Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||||||
---|---|---|---|---|---|---|---|---|---|
Linha de Produto: |
| ||||||||
Segmento: |
| ||||||||
Módulo: | Contabilidade Gerencial(SIGACTB) | ||||||||
Função: | Lan Contab. Automat. (CTBA102) | ||||||||
Ticket: | 10803748 | ||||||||
Requisito/Story/Issue: | DSERCTR1-30528 |
02. SITUAÇÃO/REQUISITO
O p.e. ponto de entrada 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 ao ser executada a chamada do ponto de entrada CTBGRV
03. SOLUÇÃO
Realizado documentação do PE.
...
Aviso | ||
---|---|---|
| ||
O exemplo demonstrado é meramente ilustrativo. A regra, o funcionamento e os impactos gerados pelo ponto de entrada no sistema são de responsabilidade do cliente que o utiliza. |
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() Local cBase nOpcLct := SN1->N1_CBASE Local cItem := SN1->N1_ITEM Local dDBlDs := DTOS(SN1->N1_DTBLOQ) If Empty(DTOS(SN1->N1_DTBLOQ))//bem desbloqueadoaParamIxb[1] nProgra := aParamIxb[2] If nOpcLct == 3 //inclusao //Algum tratamento dependendo da regra utilizada Else //Algum incluir tratamento dependendode daacordo regraà utilizadanecessidade 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
- Não se aplica.
Templatedocumentos |
---|
...