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
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
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. |
| 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. |