...
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
...
A user function EECAC120 tem como obrigatório seu retorno como Verdadeiro (.T.)
...
.
Programa Fonte: EECAC120.PRW
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "protheus.ch" user function EECAA100EECAC120() local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,"")) local nOperacao := 0 do case case cParam == "EMAIL" cTitAux := "Título do email" cSubjectAux := "Assunto do email" cBodyAux := "Corpo do texto" cToAux := "destinatá[email protected]" cCCAux := "[email protected]" 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 == "CONFIGURACAOANTES_SERVIDORCONFIRMA_EMAILEXCLUSAO" lValExclusao := .T. // indica o resultado da validações cSMTPUsrcustomizadas lPergConf := "".T. // 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
...
iF cParam == "VALID_GRAVACAO"
nOperacao := ParamIxb[2] //4 atera 3 inclui
IF M->B1_PRV1 > 1000 .AND. nOperacao == 4
lRetPE:=.F.
ENDIF
...
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 .T. |
| 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 definir se apresenta a pergunta de confirmação de exclusão (lPergConf). |
| PE_EXCLUSAO | Caractere | Ponto de entrada após a confirmação e validações da exclusão do produto |
| PRODUTO_MODIFICADO_EMAIL | Caractere | Ponto de entrada para alterar os dados enviados no email de notificação de alteração do produto, onde pode ser alterado o titulo (cEDCSubjc) e o corpo do email (cEDCMAIL), somente utilizado quando integrado com Easy Drawback Control (MV_EEC_EDC) e ativado para envio de email (MV_ENVMAIL). |
| PRE_GRAVACAO_SB1 | Caractere | Ponto de entrada ao iniciar a gravação |
| PE_GRVFINAL | Caractere | Ponto de entrada ao finalizar a gravação |
| ANTES_WORK | Caractere | Ponto de entrada ao acessar a funcionalidade EECAE120, antes da criação das works da tabela EX5 e EX6 |
| 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. |
| ANTES_CONFIRMA_EXCLUSAO | lValExclusao | Lógico | Sim | Indica se as validações customizadas estão corretas (.T.) ou inválidas (.F.) |
| ANTES_CONFIRMA_EXCLUSAO | lPergConf | Lógico | Sim | Indica se será apresentado a pergunta de confirmação de exclusão (.T.) ou não será apresentada (.F.) |
| PRODUTO_MODIFICADO_EMAIL | cEDCSubjc | Caractere | Sim | Título do email de notificação na alteração do produto |
| PRODUTO_MODIFICADO_EMAIL | cEDCMAIL | Caractere | Sim | Corpo do email de notificação na alteração do produto |
| PE_GRVFINAL | nOpcRotina | Numérico | Não | Indica a operação, sendo 3 = inclusão, 4 = alteração e 5 = exclusão. |
