Salve salve....
Ponto de entrada CT105REV - ( Inclusao de Lancamento Contabeis - Manuais - Automatizado)
CTBA105-CT105REV - Valida lançamento contábil
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} CT105REV
Valida lançamento contábil
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function CT105REV()
Local lRet := .T. as logical
Local aArea := GetArea() as array
Local aAreaTMP := TMP->( GetArea() ) as array
Private dDataLanc := PARAMIXB[01] as date
Private cLote := PARAMIXB[02] as character
Private cSubLote := PARAMIXB[03] as character
Private cDoc := PARAMIXB[04] as character
Begin Sequence
If !( lRet := fValid() )
Break
Endif
End Sequence
RestArea(aAreaTMP)
RestArea(aArea)
Return( lRet )
/*/{Protheus.doc} fValid
Valida lançamento contábil
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
Static Function fValid()
Local lRet := .T. as logical
Begin Sequence
If !FwIsInCallStack('CTBA102')
Break
Endif
If AllTrim(cLote) == '555555'
Break
Endif
End Sequence
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima