Histórico da Página
...
O p.e. CTBGRV executa o procedimento de usuário após a gravação de inclusão, alteração ou estorno do lançamento contábil.
Os lançamentos contábeis de integração somente tem acesso aos indices [1] e [2] do array aParamIxb.
03. SOLUÇÃO
Realizado documentação do PE.
...
04. DEMAIS INFORMAÇÕES
Parâmetros:
Parâmetro | Tipo | Descrição | Obrigatório | Rotina |
---|---|---|---|---|
PARAMIXB[1] | Numérico | Opção para lançamento (3-Inclusão; 4-Alteração;6-Estorno) | Sim | Ctba101/CTBA102 CTBA211 Lançamentos contábeis de integração |
PARAMIXB[2] | Caractere | Nome do programa |
Sim | Ctba101/CTBA102 CTBA211 Lançamentos contábeis de integração | |||
PARAMIXB[3] | Data | Data do lançamento contábil | Sim | Ctba101/CTBA102 CTBA211 |
PARAMIXB[4] | Caractere | Lote do lançamento contábil | Sim | Ctba101/CTBA102 CTBA211 |
PARAMIXB[5] | Caractere | Sub Lote do lançamento contábil | Sim | Ctba101/CTBA102 CTBA211 |
PARAMIXB[6] | Caractere | Documento do lançamento Contábil | Sim | Ctba101/CTBA102 CTBA211 |
Retorno:
Retorno | Tipo | Descrição | Obrigatório |
---|---|---|---|
Não se aplica | Não se aplica | Não se aplica | Não se aplica |
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include "protheus.ch" User Function AT200AN1CTBGRV() LocalnOpcLct cBase := SN1->N1_CBASE Local cItem := SN1->N1_ITEM Local dDBlDs := DTOS(SN1->N1_DTBLOQ) If Empty(DTOS(SN1->N1_DTBLOQ))//bem desbloqueado aParamIxb[1] nProgra := aParamIxb[2] If nOpcLct == 3 //inclusao //Algum tratamento dependendo da regra utilizada Else //Algum tratamento dependendo da regra utilizada EndIf incluir tratamento de acordo à necessidade EndIf Return |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
_lCtbGrv := ExistBlock("CTBGRV") If ExistBlock_lCtbGrv ExecBlock("AT200AN1"CTBGRV",.f.,.f.,{ nOpc,cRotina,dData,cLote,cSubLote,cDoc } ) EndIf para lançamentos contábeis de integração If _lCtbGrv .And. !lSimula ExecBlock("AT200AN1CTBGRV",.Ff.,.F.)f.,{nOpc,cProg}) EndIf Endif |
05. ASSUNTOS RELACIONADOS
...