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"} ) 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 |