Abrangências: | Microsiga Protheus 11 , Microsiga Protheus 12 |
Versões: | Microsiga Protheus 11 , Microsiga Protheus 12 |
Compatível Países: | Brasil |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português (Brasil) |
Este ponto de entrada foi disponibilizado para o cliente manipular as informações dos arrays com os dados do XML de envio da NFTS
NFSEXml102.PRW
XML10201 - Manipular os dados dos arrays para a geração do XML antigo( [ PARAMIXB ] )
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB | Array of Record | [1] - aNota - Dados da nota |
User Function XML10201()
Local aParam := {}
Local aNota := PARAMIXB[1] // Dados da Nota
Local aProd := PARAMIXB[2] // Dados do produto
Local aTotal := PARAMIXB[3]
Local aDest := PARAMIXB[4]
Local aDeduz := PARAMIXB[5]
Local aConstr := PARAMIXB[6]
Local aPrest := PARAMIXB[7]
Local aEndPrest := PARAMIXB[8]
Local aICMS := PARAMIXB[9]
Local aICMSST := PARAMIXB[10]
Local aIPI := PARAMIXB[11]
Local aPIS := PARAMIXB[12]
Local aPISST := PARAMIXB[13]
Local aCOFINS := PARAMIXB[14]
Local aCOFINSST := PARAMIXB[15]
Local aISSQN := PARAMIXB[16]
Local aCST := PARAMIXB[17]
Local aMed := PARAMIXB[18]
Local aArma := PARAMIXB[19]
Local aveicProd := PARAMIXB[20]
Local aDI := PARAMIXB[21]
Local aAdi := PARAMIXB[22]
Local aExp := PARAMIXB[23]
Local aPisAlqZ := PARAMIXB[24]
Local aCofAlqZ := PARAMIXB[25]
Local aDupl := PARAMIXB[26]
Local cCodIss := "" // Código ISS
Local Nx := 0 // Contador for
For Nx := 1 to Len(aProd)
cCodIss := AllTrim(aProd[Nx][23])
//Coloco o ponto para não ocasionar erro na validação do arquivo
If !"."$cCodIss
If Len(cCodIss) == 3
cCodIss := "0" + Substr(cCodIss,1,1)+"."+ Substr(cCodIss,2,2)
Elseif Len(cCodIss) == 4
cCodIss := Substr(cCodIss,1,2)+"."+ Substr(cCodIss,3,2)
Elseif Len(cCodIss) == 5
cCodIss := "0"+ Substr(cCodIss,1,1) + "."+ Substr(cCodIss,2,2)+"."+ Substr(cCodIss,4,2)
Elseif Len(cCodIss) == 6
cCodIss := Substr(cCodIss,1,2)+"."+ Substr(cCodIss,3,2)+"."+ Substr(cCodIss,5,2)
EndIf
EndIf
aProd[Nx][23] := cCodIss
Next Nx
aParam := {aNota,aProd,aTotal,aDest,aDeduz,aConstr,aPrest,aEndPrest,aICMS,aICMSST,aIPI,aPIS,aPISST,aCOFINS,aCOFINSST,aISSQN,aCST,aMed,aArma,aveicProd,aDI,aAdi,aExp,aPisAlqZ,aCofAlqZ,aDupl}
Return aParam
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |