CTBVldSld - Valida se os saldos básicos serão atualizados na gravação de lançamentos contábeis.

Criado ponto de entrada CTBVldSld que valida se os saldos básicos serão atualizados na gravação da rotina Lançamentos Contábeis Automáticos.

User Function CTBVldSld()

Local lRet := .F.
Local _lAtSldCT7 := paramixb[1]
Local _lAtSldCT3 := paramixb[2]
Local _lAtSldCT4 := paramixb[3]
Local _lAtSldCTI := paramixb[4]

//Customizações do Cliente

Alert ("Ponto de Entrada executado")

If (_lAtSldCT7 .or. _lAtSldCT3 .or. _lAtSldCT4 .or. _lAtSldCTI)
lRet := .T.
EndIf

Return lRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

_lAtSldCT7, _lAtSldCT3, _lAtSldCT4, _lAtSldCTI

lRet

_lAtSldBase := IIf(GetMv("MV_ATUSAL")== "S",.T.,.F.)

If _lAtSldBase .and. lVldSld
lRetSld := ExecBlock("CTBVldSld",.F.,.F., {_lAtSldCT7, _lAtSldCT3, _lAtSldCT4, _lAtSldCTI})
If lRetSld
 _lAtSldBase := .F.
EndIf
EndIf

Local lVldSld := ExistBlock("CTBVldSld")
Local lRetSld := .F.

CTBXATU.PRW