Salve salve....
Ponto de entrada CTBLANC - ( Contabil )
CTBXATU-CTBLANC - Após a gravação. Fora da transação.
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} CTBLANC
Após a gravação. Fora da transação.
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function CTBLANC()
Local dData := ParamIXB[01] as date
Local cLote := ParamIXB[02] as character
Local SubLote := ParamIXB[03] as character
Local cDoc := ParamIXB[04] as character
Local cLinha := ParamIXB[05] as character
Local cTipo := ParamIXB[06] as character
Local cMoeda := ParamIXB[07] as character
Local cHistPad := ParamIXB[08] as character
Local cDebito := ParamIXB[09] as character
Local cCredito := ParamIXB[10] as character
Local cCustoDeb := ParamIXB[11] as character
Local cCustoCrd := ParamIXB[12] as character
Local cItemDeb := ParamIXB[13] as character
Local cItemCrd := ParamIXB[14] as character
Local cClVlDeb := ParamIXB[15] as character
Local cClVlCrd := ParamIXB[16] as character
Local nValor := ParamIXB[17] as numeric
Local cTexto := ParamIXB[18] as character
Local cTpSald := ParamIXB[19] as character
Local cSeqLan := ParamIXB[20] as character
Local nOpc := ParamIXB[21] as numeric
Local aCols := ParamIXB[22] as array
Local cDCD := ParamIXB[23] as character
Local cDCC := ParamIXB[24] as character
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima