...
Este Ponto de Entrada pertence à rotina de Manutenção de Produtos (EECAC120).
...
Sendo utilizado para customizar a rotina de manutenção de Produtos
...
do módulo Easy Export Control e Easy Drawback Control.
Programa Fonte: EECAC120.PRW
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
user function EECAA100EECAC120() local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,"")) dolocal case case cParam == "EMAIL" cTitAux nOperacao := "Título do email" cSubjectAux := "Assunto do email" cBodyAux := "Corpo do texto" cToAux := "destinatá[email protected]" cCCAux := "[email protected]" 0 do case case cParam == "CONFIGURACAO_SERVIDOR_EMAIL" cSMTPUsr := "" // Usuário para Autenticação no Servidor de Email cSMTPPwd := "" // Senha para Autenticação no Servidor de Email end case return nil |
User Function EECAC120()Local cParam:= ""
Local nOperacao:= 0
...
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
...
endif
end case
return nil |
| Nome | Tipo | Descrição |
|---|---|---|
| ENCHOICE | Caracter | Parâmetro para validação de adição de campos da SB1 no cadastro de produtos no modulo Easy Drawback Control |
| VALID_GRAVACAO | Caracter | Parâmetro para validação da gravação do produto, seja na alteração ou na inclusão. |
...
