Alcances: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versiones: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Portugués (Brasil) , Portugués (Portugal) , Español , Inglés |
Descripción:
Este P.E. ocurre antes de hacer efectiva la grabación de los asientos validando su ejecución
Eventos
Se ejecuta en la función que graba los asientos contables
Programa fuente
CTBA103.PRW
Sintaxis
CTB103EXC - Valida ejecución de grabación de los asientos ( ) --> lOk
Devolución
lOk(logico)
Indicador de validación de grabación de los asientos
Observaciones
Si este P.E. devuelve falso, el proceso de grabación se anulará
Ejemplos
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