Histórico da Página

User Function EICOR150()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

      DO case
		CASE cParam == "ADICIONA_CAMPO"
			aAdd(Struct,{"NOVO_CAMPO","C",10,0})

		CASE cParam == "DESC_ITEM_REL" 
			Mlin+=50
		 	oPrn:Say( MLin, MCol, "Campo Customizado: TESTE Campo ITEM Customizado")

		CASE cParam == "DESC_LI_REL"
	     	Mlin+=50
		 	msginfooPrn:Say("Licença deMLin, importação"MCol,"Descrição "Campo Customizado: TESTE Campo LI Customizado")

 		     CASE cParam == "IMPRIME_EST_MUN" 
			MLin+=50				
			oPrn:Say( MLin, MCol, "Campo Customizado: TESTE Campo Customizado")

    	CASE cParam =="TOTALIZADOR"		
		     nTot_PLI := 1010000.000,00
		     nPesTotPLI	:= 100

  		CASE cParam == "DESCRICAO_ITEM"
			cTexto +="Adiciona na descrição do item"
			

  		CASE cParam == "GRAVA_WORK"
		    msginfo("Tabela work gravada","Gravação da work")
			Work->WKPART_N := "123456"

  		CASE cParam == "ImpostosIMPOSTOS"
     		Mlin+=50
		 	msginfo(oPrn:Say( MLin, MCol,"Impressão dos impostos ICMS,IPI,PIS E COFINS")

  		CASE cParam == "GRV_WORK_INV"
			msginfo("Entrou no ponto de entrada 'GRV_WORK_INV' ")
			Work->WKPART_N := "123456"

     END CASE

Return Nil