...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
user function EECAC120()
local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
local nOperacao := 0
do case
case cParam == "ENCHOICE"
AAdd(aDrwBck, "B1_GRUPO") //Inclusão de campos adicionais para a manutenção no módulo de Drawback
AAdd(aDrwBck, "B1_CONTA")
case cParam == "VALID_GRAVACAO"
nOperacao := ParamIxb[2] //4 altera - 3 inclui
if M->B1_PRV1 > 1000 .and. nOperacao == 4
lRetPE:= .F.
endif
case cParam == "ANTES_CONFIRMA_EXCLUSAO"
lValExclusao := .T. // indica o resultado da validações customizadas
lPergConf := .T. // Apresenta (.T.) ou não (.F.) a confirmação da exclusão
case cParam == "PE_EXCLUSAO"
case cParam == "PRODUTO_MODIFICADO_EMAIL"
MsgInfo(cEDCSubjc,"Atenção") // Informação do titulo (assunto) do email
MsgInfo(cEDCMAIL,"Atenção") // Informação do corpo do email
case cParam == "PRE_GRAVACAO_SB1"
case cParam == "PE_GRVFINAL"
case cParam == "ANTES_WORK"
end case
return nil |
...
