...
| 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"
case cParam == "PE_EXCLUSAO"
case cParam == "PRODUTO_MODIFICADO_EMAIL"
case cParam == "PRE_GRAVACAO_SB1"
case cParam == "PE_GRVFINAL"
case cParam == "ANTES_WORK"
end case
return nil |
| Nome | Tipo | Descrição |
|---|---|---|
| ENCHOICE | CaracterCaractere | Parâmetro para validação de adição de campos da SB1 no cadastro de produtos no modulo Easy Drawback Control |
| VALID_GRAVACAO | CaracterCaractere | Parâmetro para validação da gravação do produto, seja na alteração ou na inclusão. |
| ANTES_CONFIRMA_EXCLUSAO | Caractere | Parâmetro para validação antes de confirmar a exclusão do produto, podendo realizar validações customizadas (lValExclusao) e não apresentar a pergunta de confirmação de exclusão (lPergConf). |
| PE_EXCLUSAO | Caractere | |
| PRODUTO_MODIFICADO_EMAIL | Caractere | |
| PRE_GRAVACAO_SB1 | Caractere | |
| PE_GRVFINAL | Caractere | |
| ANTES_WORK | Caractere |
| Parâmetro | Nome | Tipo | Permite alterar | Descrição |
|---|---|---|---|---|
| ENCHOICE | aDrwBck | Array | Sim | Array responsável para adicionar campos da SB1 dentro do cadastro de produto no modulo Easy Drawback Control |
| VALID_GRAVACAO | PARAMIXB[1] | Numérico | Não | Indica a operação, sendo 3 = inclusão e 4 = alteração. |
| VALID_GRAVACAO | lRetPE | Lógico | Sim | lRetPE = .T. segue com a operação acima, = .F. cancela a operação acima. |
...
