Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: ANCTB103GR - Executa 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: 
Esse P.E Executa a gravação dos lançamentos
Eventos

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

Programa Fonte 
CTBA103.PRW
Sintaxe

ANCTB103GR - Executa 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)
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