Exemplos | User Function EICGI400_RDM()
Local cParam := If(Type("ParamIxb") = "A",ParamIxb1,If(Type("ParamIxb") = "C",ParamIxb,""))
If cParam == "ESTRU_WORK"
MsgInfo("Entrou no ponto de entrada 'ESTRU_WORK'.")
EndIf
If cParam == "INIT_VAR"
MsgInfo("Entrou no ponto de entrada 'INIT_VAR'.")
EndIf
If cParam == "COND_MOSTRA_PO"
MsgInfo("Entrou no ponto de entrada 'COND_MOSTRA_PO'.")
EndIf
If cParam == "COND_COLUNA"
MsgInfo("Entrou no ponto de entrada 'COND_COLUNA'.")
EndIf
If cParam == "COND_REFRESH"
MsgInfo("Entrou no ponto de entrada 'COND_REFRESH'.")
EndIf
If cParam == "GRAVA_WORK"
MsgInfo("Entrou no ponto de entrada 'GRAVA_WORK'.")
EndIf
If cParam == "ESTRU_WORK"
MsgInfo("Entrou no ponto de entrada 'ESTRU_WORK'.")
EndIf
If cParam == "DT_ENTREGA"
MsgInfo("Entrou no ponto de entrada 'DT_ENTREGA'.")
EndIf
If cParam == "GET_VAL_TELA"
MsgInfo("Entrou no ponto de entrada 'GET_VAL_TELA'.")
EndIf
If cParam == "ANTES_ATU_WORK"
MsgInfo("Entrou no ponto de entrada 'ANTES_ATU_WORK'.")
EndIf
If cParam == "GRV_WORK"
MsgInfo("Entrou no ponto de entrada 'GRV_WORK'.")
EndIf
If cParam == "GRV_TELA_WORK"
MsgInfo("Entrou no ponto de entrada 'GRV_TELA_WORK'.")
EndIf
If cParam == "RECALC_DT_ENTREGA"
MsgInfo("Entrou no ponto de entrada 'RECALC_DT_ENTREGA'.")
EndIf
If cParam == "GRV_WORK_SW3"
MsgInfo("Entrou no ponto de entrada 'GRV_WORK_SW3'.")
EndIf
If cParam == "GRV_WORK_SW5"
MsgInfo("Entrou no ponto de entrada 'GRV_WORK_SW5'.")
EndIf
If cParam == "POS_GRV_SW3_SW5"
MsgInfo("Entrou no ponto de entrada 'POS_GRV_SW3_SW5'.")
EndIf
If cParam == "PONTO_08"
MsgInfo("Entrou no ponto de entrada 'PONTO_08'.")
EndIf
If cParam == "PONTO_TITULO"
MsgInfo("Entrou no ponto de entrada 'PONTO_TITULO'.")
EndIf
If cParam == "PONTO_09"
MsgInfo("Entrou no ponto de entrada 'PONTO_09'.")
EndIf
If cParam == "VERIFICA_VAL_PO"
MsgInfo("Entrou no ponto de entrada 'VERIFICA_VAL_PO'.")
EndIf
If cParam == "GRV_SW5_WORK"
MsgInfo("Entrou no ponto de entrada 'GRV_SW5_WORK'.")
EndIf
Return |
|---|