Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: DPCTB103GR - Valida pós execução a gravação dos lançamentos
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Valida se registro foi gravado corretamente
Eventos

É executado dentro da função de gravação de lançamentos contabeis

Programa Fonte 
CTBA103.PRW
Sintaxe

DPCTB103GR - Valida pós execução a gravação dos lançamentos ( [ nOpc ], [ dDataLanc ], [ cLote ], [ cSubLote ], [ cDoc ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nOpc Numérico Numero da opção escolida
dDataLanc data Data do lançamento
cLote caracter Código do lote
cSubLote caracter Código do Sub Lote
cDoc caracter Código do documento
Retorno
Nil (Nulo)
Observações

Ele ocorre após a efetiva gravação dos lançamentos

Exemplos 
	If lOk .And. (!l103Visual)		If l103Exclui .And. ExistBlock("CTB103EXC")			lOk := ExecBlock("CTB103EXC",.F.,.F.)		EndIf				If lOk			If ExistBlock("ANCTB103GR")				ExecBlock("ANCTB103GR",.F.,.F.,{ nOpc,dDataLanc,cLote,cSubLote,cDoc }  )			Endif						CTBGrava(nOpc,dDataLanc,cLote,cSubLote,cDoc,.F.,"",__lCusto,__lItem,__lCLVL,nTotInf,'CTBA103',,,cEmpAnt,cFilAnt,,,,,,,cSeqCorr)						If ExistBlock("DPCTB103GR")				ExecBlock("DPCTB103GR",.F.,.F.,{ nOpc,dDatalanc,cLote,cSubLote,cDoc } )			Endif		EndIf	EndifEndIf