#include "protheus.ch" User Function EFFEX400() Local cParamIXB
Begin Sequence If ValType(ParamIXB) == "A" cParamIXB:= ParamIXB[1] Else cParamIXB:= ParamIXB EndIf Do Case Case cParamIXB == "ANTES_GRAVA_EF3" MsgInfo("Teste ANTES_GRAVA_EF3", "ponto de entrada") //EF3->EF3_ZZCAMPO:= "CONTEUDO" Case cParamIXB == "GRAVANDO_EF3" MsgInfo("Teste GRAVANDO_EF3", "ponto de entrada") //EF3->EF3_ZZCAMPO:= "CONTEUDO" Case cParamIXB == "INC_EF3" MsgInfo("Teste INC_EF3", "ponto de entrada") //EF3->EF3_ZZCAMPO:= "CONTEUDO" Case cParamIXB == "BOTOES1" //adicionar ou remover ações extras em outras ações AAdd( aBotoes, {"EDIT", {|| MsgInfo("Nova Ação"")}, "Ação Teste"} ) Case cParamIXB == "CONDICAO_VINCULACAO_TOP" cCond += " And EEQ_ABC = 'ABC'" Case cParamIXB == "CAMPOS_QUERY_INVOICES" cQuery += ", EEQ_ABC " Case cParamIXB == "GRV_EVENTO_EFF" MsgInfo("Entrou no ponto de entrada 'GRV_EVENTO_EFF'") EndCase End Sequence Return |