Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CTB103EXC - Valida 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: 
Esse P.E Ocorre antes da efetivação da gravação dos lançamentos validando sua execução
Eventos

É executada na função que grava os lançamentos contabeis

Programa Fonte 
CTBA103.PRW
Sintaxe

CTB103EXC - Valida Execução a gravação dos lançamentos ( ) --> lOk

Retorno
    lOk(logico)
  • Indicador de validação da gravação dos lançamentos
Observações

Caso esse P.E retorne falso o processo de gravação sera cancelado

Exemplos 
		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