Salve salve....
Ponto de entrada XMLENV01- ( Nota fiscal de Serviço)
NFSEXMLENV-XMLENV01-XML de envio da NFSe
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} XMLENV01
XML de envio da NFSe
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function XMLENV01()
Local aProd := ParamIXB[01]
Local cMensCli := ParamIXB[02]
Local cMensFis := ParamIXB[03]
Local aDest := ParamIXB[04]
Local aNota := ParamIXB[05]
Local aDupl := ParamIXB[06]
Local aDeduz := ParamIXB[07]
Local aTotal := ParamIXB[08]
Local aISSQN := ParamIXB[09]
Local aAIDF := ParamIXB[10]
Local aInterm := ParamIXB[11]
Local aRetido := ParamIXB[12]
Local aDeducao := ParamIXB[13]
Local aConstr := ParamIXB[14]
Local aRet := {}
aAdd( aRet, aProd )
aAdd( aRet, cMensCli )
aAdd( aRet, cMensFis )
aAdd( aRet, aDest )
aAdd( aRet, aNota )
aAdd( aRet, aDupl )
aAdd( aRet, aDeduz )
aAdd( aRet, aTotal )
aAdd( aRet, aISSQN )
aAdd( aRet, aAIDF )
aAdd( aRet, aInterm )
aAdd( aRet, aRetido )
aAdd( aRet, aDeducao )
aAdd( aRet, aConstr )
Return( aRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima