From 82fc1ddc6aa0df8d329c99cf2eb72f4e86492d2d Mon Sep 17 00:00:00 2001 From: italojjr Date: Fri, 31 Jan 2025 20:17:18 +0000 Subject: [PATCH] =?UTF-8?q?31/01/2025=20--=20ACBrCTe.XmlWriter=20--=20[*]?= =?UTF-8?q?=20Corre=C3=A7=C3=A3o=20para=20alguns=20campos=20do=20ICMS=20qu?= =?UTF-8?q?e=20s=C3=A3o=20opcionais=20e=20estavam=20como=20obrigat=C3=B3ri?= =?UTF-8?q?os.=20=20=20=20Por:=20devFortes/Italo=20Giurizzato=20Junior?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.code.sf.net/p/acbr/code/trunk2@37158 6e92efe7-b92a-0410-a9ec-f9e4e41bb3a6 --- Fontes/ACBrDFe/ACBrCTe/ACBrCTe-change-log.txt | 3 +++ Fontes/ACBrDFe/ACBrCTe/Base/ACBrCTe.XmlWriter.pas | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/Fontes/ACBrDFe/ACBrCTe/ACBrCTe-change-log.txt b/Fontes/ACBrDFe/ACBrCTe/ACBrCTe-change-log.txt index 6bd1415c1d..4c68c6de90 100644 --- a/Fontes/ACBrDFe/ACBrCTe/ACBrCTe-change-log.txt +++ b/Fontes/ACBrDFe/ACBrCTe/ACBrCTe-change-log.txt @@ -45,6 +45,9 @@ S [-] : Correção de Bug (assim esperamos) 31/01/2025 +-- ACBrCTe.XmlWriter -- +[*] Correção para alguns campos do ICMS que são opcionais e estavam como obrigatórios. + Por: devFortes/Italo Giurizzato Junior -- ACBrCTeConhecimentos, pcteConversaoCTe -- [*] #Tk-6521 - Altera o tipo dos enumerados TpcteTipoDataPeriodo e TpcteTipoHorarioIntervalo de não preenchido e N para -1 Por: Diego Folieni diff --git a/Fontes/ACBrDFe/ACBrCTe/Base/ACBrCTe.XmlWriter.pas b/Fontes/ACBrDFe/ACBrCTe/Base/ACBrCTe.XmlWriter.pas index 3e0d7e3a58..05d4d51940 100644 --- a/Fontes/ACBrDFe/ACBrCTe/Base/ACBrCTe.XmlWriter.pas +++ b/Fontes/ACBrDFe/ACBrCTe/Base/ACBrCTe.XmlWriter.pas @@ -1491,7 +1491,7 @@ function TCTeXmlWriter.Gerar_CST60: TACBrXmlNode; Result.AppendChild(AddNode(tcDe2, '#233', 'pICMSSTRet', 1, 5, 1, CTe.Imp.ICMS.ICMS60.pICMSSTRet, DSC_PICMS)); - Result.AppendChild(AddNode(tcDe2, '#234', 'vCred', 1, 15, 1, + Result.AppendChild(AddNode(tcDe2, '#234', 'vCred', 1, 15, 0, CTe.Imp.ICMS.ICMS60.vCred, DSC_VCRED)); if CTe.Imp.ICMS.ICMS60.vICMSDeson > 0 then @@ -1511,7 +1511,7 @@ function TCTeXmlWriter.Gerar_CST90: TACBrXmlNode; Result.AppendChild(AddNode(tcStr, '#236', 'CST', 2, 2, 1, CSTICMSTOStr(CTe.Imp.ICMS.ICMS90.CST), DSC_CST)); - Result.AppendChild(AddNode(tcDe2, '#237', 'pRedBC', 1, 5, 1, + Result.AppendChild(AddNode(tcDe2, '#237', 'pRedBC', 1, 5, 0, CTe.Imp.ICMS.ICMS90.pRedBC, DSC_PREDBC)); Result.AppendChild(AddNode(tcDe2, '#238', 'vBC', 1, 15, 1, @@ -1523,7 +1523,7 @@ function TCTeXmlWriter.Gerar_CST90: TACBrXmlNode; Result.AppendChild(AddNode(tcDe2, '#240', 'vICMS', 1, 15, 1, CTe.Imp.ICMS.ICMS90.vICMS, DSC_VICMS)); - Result.AppendChild(AddNode(tcDe2, '#241', 'vCred', 1, 15, 1, + Result.AppendChild(AddNode(tcDe2, '#241', 'vCred', 1, 15, 0, CTe.Imp.ICMS.ICMS90.vCred, DSC_VCRED)); if CTe.Imp.ICMS.ICMS90.vICMSDeson > 0 then