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
		 	oPrn:Say( MLin, MCol, "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 := 10000.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
		 	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