Histórico da Página

Este ponto de entrada foi disponibilizado para o cliente manipular as informações dos arrays com os dados do XML de envio da NFSe

nfsexmlenv.prw

F022ATUNF - Customizar a gravação de campos próprios no SF2/SF1 XMLENV01 - Manipular os dados dos arrays para a geração do XML único ( [ PARAMIXB ] )

User Function F022ATUNF()XMLENV01()

Local aParam := {}
Local aProd := PARAMIXB[1] // Dados do produto
Local aDest := PARAMIXB[4] // Dados do tomador
Local aNota := PARAMIXB[5] // Dados da nota
Local aDupl := PARAMIXB[6] // Dados da duplicata
Local aDeduz := PARAMIXB[7] // Valores
Local aTotal := PARAMIXB[8] // Valor total
Local aISSQN := PARAMIXB[9] // Valor dos impostos
Local aAIDF := PARAMIXB[10] // Dados tabela AIDF
Local aInterm := PARAMIXB[11] // Dados do intermediário
Local aRetido := PARAMIXB[12] // Valores retidos
Local aDeducao := PARAMIXB[13] // Valores dedução
Local aConstr := PARAMIXB[14] // Dados construção civil

Local cMensCli := PARAMIXB[2] // Mensagem cliente
Local cMensFis Local cProtocolo := PARAMIXB[3] // Mensagem fiscal

Local nX := 0 // Atualiza SF2
If !Empty(cProtocolo)RECLOCK( "SF2", .F. )
SF2->F2_CODNFE := cProtocolo
MSUNLOCK() // Destrava o registro
EndIfContador for

For nX := 1 to len( aProd )
aProd[nX][4] := "NFSE MODIFICADA - " + strzero(nX,2) // Descrição do produto
Next

aDest[2] := "NFSE MODIFICADA - TESTE"

cMensCli := "CLIENTE MODIFICADO"

aParam := {aProd,cMensCli,cMensFis,aDest,aNota,aDupl,aDeduz,aTotal,aISSQN,aAIDF,aInterm,aRetido,aDeducao,aConstr}

Return aParamReturn Nil