Salve salve....
Ponto de entrada VLCPLOTE- ( Inclusao de Lancamento Contabeis por tipo de saldo)
CTBA101/CTBA102/CTBA103-VLCPLOTE-Chamado na inclusão , alteração ou exclusão
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} VLCPLOTE
Chamado na inclusão , alteração ou exclusão
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function VLCPLOTE()
Local dDataLanc := PARAMIXB[1] as date
Local cLote := PARAMIXB[2] as character
Local cSubLote := PARAMIXB[3] as character
Local cDoc := PARAMIXB[4] as character
Local nOpc := PARAMIXB[5] as numeric
Local lRet := .T.
Local lValida := AllTrim( FunName() ) $ 'CTBA101/CTBA102'
If lValida .AND. ( nOpc == 3 .OR. nOpc == 7 ) // Validacao somente aplicada na Inclusao do Lote
Endif
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima