Salve salve....
Ponto de entrada MT103DRF- ( Compras - Documento de Entrada )
MATA103-MT103DRF - Utilizado para popular campos E2_DIRF e E2_CODRET dos Títulos.
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT103DRF
Utilizado para popular campos E2_DIRF e E2_CODRET dos Títulos.
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT103DRF()
Local nCombo := PARAMIXB[1] as numeric
Local cCodRet := PARAMIXB[2] as character
Local aImpRet := {} as array
nCombo := 1
cCodRet := "1708"
aadd(aImpRet,{"IRR",nCombo,cCodRet})
nCombo := 2
cCodRet := "1708"
aadd(aImpRet,{"ISS",nCombo,cCodRet})
nCombo := 1
cCodRet := "5952"
aadd(aImpRet,{"PIS",nCombo,cCodRet})
nCombo := 1
cCodRet := "5952"
aadd(aImpRet,{"COF",nCombo,cCodRet})
nCombo := 1
cCodRet := "5952"
aadd(aImpRet,{"CSL",nCombo,cCodRet})
Return( aImpRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima