CTB103EXC - Valida ejecución de grabación de asientos -- 109616

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