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
CTBA220
CTBA231
CTBA280
CTBA281
CTBA380
CTBA381
CTBM300
CTBA410

Lançamentos contábeis de integração

PARAMIXB[2]

Caractere

Nome do programa

.Sim

	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410 Lançamentos contábeis de integração
PARAMIXB[3]	Data	Data do lançamento contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410
PARAMIXB[4]	Caractere	Lote do lançamento contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410
PARAMIXB[5]	Caractere	Sub Lote do lançamento contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410
PARAMIXB[6]	Caractere	Documento do lançamento Contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410

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

language	groovy
theme	DJango
title	Exemplo de utilização do Ponto de Entrada
collapse	true

#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

language	groovy
theme	DJango
title	Exemplo da manipulação do PE pelo sistema - Exemplo 1
collapse	true

	_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

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

03. SOLUÇÃO

04. DEMAIS INFORMAÇÕES

05. ASSUNTOS RELACIONADOS