Campos faltando CST 53 para NFe

[Leonardo Gregianin]

Adiciona dois campos faltantes nas classes do ACBRNFe: qBCMonoDif e adRemICMSDif

 

Componentes/ACBr/Fontes/ACBrDFe/ACBrNFe/Base/ACBrNFe.Classes.pas

     FadRemICMSReten: Currency;
     FvICMSMonoReten: Currency;
     FvICMSMonoDif: Currency;
+    FqBCMonoDif: Currency;
+    FadRemICMSDif: Currency;
     FadRemICMSRet: Currency;
     FvICMSMonoRet: Currency;
     FqBCMono: Currency;

     property motRedAdRem: TmotRedAdRem read FmotRedAdRem write FmotRedAdRem;
     // CST 53
     property vICMSMonoOp: Currency read FvICMSMonoOp write FvICMSMonoOp;
+    property qBCMonoDif: Currency read FqBCMonoDif write FqBCMonoDif;
+    property adRemICMSDif: Currency read FadRemICMSDif write FadRemICMSDif;
     property vICMSMonoDif: Currency read FvICMSMonoDif write FvICMSMonoDif;
     // CST 61
     property adRemICMSRet: Currency read FadRemICMSRet write FadRemICMSRet;

   vICMSMono := Source.vICMSMono;
   adRemICMSReten := Source.adRemICMSReten;
   vICMSMonoReten := Source.vICMSMonoReten;
-//  adRemICMSDif := Source.adRemICMSDif;
+  qBCMonoDif := Source.qBCMonoDif;
+  adRemICMSDif := Source.adRemICMSDif;
   vICMSMonoDif := Source.vICMSMonoDif;
   adRemICMSRet := Source.adRemICMSRet;
   vICMSMonoRet := Source.vICMSMonoRet;


Componentes/ACBr/Fontes/ACBrDFe/ACBrNFe/Base/ACBrNFe.Consts.pas

   DSC_PREDADREM = 'Percentual de redução do valor da alíquota adrem do ICMS';
   DSC_MOTREDADREM = 'Motivo da redução do adrem';
   DSC_VICMSMONOOP = 'Valor do ICMS da operação';
+  DSC_QBCMONODIF = 'Quantidade tributada diferida';
   DSC_QBCMONORET = 'Quantidade tributada retida anteriormente';
   DSC_PDIF = 'Percentual do diferimento';


Componentes/ACBr/Fontes/ACBrDFe/ACBrNFe/Base/ACBrNFe.XmlReader.pas

     ANodeImposto.ICMS.qBCMonoRet := ObterConteudo(ANodeICMS.Childrens.Find('qBCMonoRet'), tcDe2);
     ANodeImposto.ICMS.vICMSMonoOp := ObterConteudo(ANodeICMS.Childrens.Find('vICMSMonoOp'), tcDe2);
+    ANodeImposto.ICMS.qBCMonoDif := ObterConteudo(ANodeICMS.Childrens.Find('qBCMonoDif'), tcDe2);
+    ANodeImposto.ICMS.adRemICMSDif := ObterConteudo(ANodeICMS.Childrens.Find('adRemICMSDif'), tcDe4);

     sAux := ObterConteudo(ANodeICMS.Childrens.Find('indDeduzDeson'), tcStr);
     ANodeImposto.ICMS.indDeduzDeson := tieNenhum;


Componentes/ACBr/Fontes/ACBrDFe/ACBrNFe/Base/ACBrNFe.XmlWriter.pas
           xmlNode.AppendChild(AddNode(tcDe2, 'N15', 'vICMSMonoOp',
             01, 15, 0, NFe.Det[i].Imposto.ICMS.vICMSMonoOp, DSC_VICMSMONOOP));

+          xmlNode.AppendChild(AddNode(tcDe4, 'N15', 'qBCMonoDif',
+            01, 15, 0, NFe.Det[i].Imposto.ICMS.qBCMonoDif, DSC_QBCMONODIF));
+          xmlNode.AppendChild(AddNode(tcDe4, 'N15', 'adRemICMSDif',
+            01, 07, 0, NFe.Det[i].Imposto.ICMS.adRemICMSDif, DSC_ADREMICMSDIF));
+
           if NFe.Det[i].Imposto.ICMS.pDif = 100 then
             FormatoAliq4ou2 := tcDe2
           else

 

ACBrNFe.XmlReader.pas ACBrNFe.XmlWriter.pas ACBrNFe.Classes.pas ACBrNFe.Consts.pas