Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

User Function EECAC120()
Local cParam:= ""

Local nOperacao:= 0


 
    If ValType(PARAMIXB) == "C"
        cParam := PARAMIXB
    ElseIf ValType(PARAMIXB) == "A"
        cParam := PARAMIXB[1]
    EndIf
 
    If cParam == "ENCHOICE"
        AAdd(aDrwBck, "B1_GRUPO") //Inclusão de campos adicionais para a manutenção no módulo de Drawback
        AAdd(aDrwBck, "B1_CONTA")
    EndIf

        iF cParam == "VALID_GRAVACAO"  

          nOperacao :=  ParamIxb[2]   //4 atera 3 inclui      

          IF M->B1_PRV1 > 1000 .AND. nOperacao == 4
              lRetPE:=.F.    

          ENDIF

      Endif
 
Return .T.

03. PARÂMETROS


NomeTipoDescrição
ENCHOICECaracterParâmetro para validação de adição de campos da SB1 no cadastro de produtos no modulo Easy Drawback Control
VALID_GRAVACAOCaracterParâmetro para validação da gravação do produto, seja na alteração ou na inclusão.

04. VARIÁVEIS


ParâmetroNomeTipoPermite alterarDescrição
ENCHOICEaDrwBckArraySimArray responsável para adicionar campos da SB1 dentro do cadastro de produto no modulo Easy Drawback Control
VALID_GRAVACAOPARAMIXB[1]NuméricoNãoIndica a operação, sendo 3 = inclusão e 4 = alteração.
VALID_GRAVACAOlRetPELógicoSimlRetPE = .T. segue com a operação acima, = .F. cancela a operação acima.


05. TABELAS UTILIZADAS

  • Não há.



...