Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Renato Ferreira Campos

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
ANCTB103GR - Executa a gravação dos lançamentos
ANCTB103GR - Executa a gravação dos lançamentos

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcNuméricoNumero da opção escolida
dDataLancdataData do lançamento
cLotecaracterCódigo do lote
cSubLotecaracterCódigo do Sub Lote
cDoccaracterCó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