import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: CTB103EXC - Valida Execução a gravação dos lançamentos
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
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 |