Descrição | Manutenção de contrato de financiamento | ||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Exemplos | #include "protheus.ch"
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") Case cParamIXB == "GRAVANDO_EF3" MsgInfo("Teste GRAVANDO_EF3", "ponto de entrada") Case cParamIXB == "INC_EF3" MsgInfo("Teste INC_EF3", "ponto de entrada") 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 " EndCase End Sequence Return | ||||||||||||||||||||||||||||||||||||||||
Idioma | Português(Brasil) | ||||||||||||||||||||||||||||||||||||||||
Versões | Microsiga Protheus11 e posteriores | ||||||||||||||||||||||||||||||||||||||||
Sistemas Operacionais Suportados | Todos | ||||||||||||||||||||||||||||||||||||||||
Compatível com as Bases de Dados | Todas | ||||||||||||||||||||||||||||||||||||||||
Parâmetros |
| ||||||||||||||||||||||||||||||||||||||||
Retorno | |||||||||||||||||||||||||||||||||||||||||
Variáveis |
| ||||||||||||||||||||||||||||||||||||||||
Programa Fonte | EFFEX400.PRW |