Como destacar imposto icms efetivo, pRedBCEfet,vBCEfet,pICMSEfet,vICMSEfet

[Gelson Junior]

Como destacar imposto icms efetivo, pRedBCEfet,vBCEfet,pICMSEfet,vICMSEfet

 

para sair abaixo do icms500

esta saindo ha sim

<vTotTrib>5.90</vTotTrib>
-<ICMS>
-<ICMSSN500><orig>0</orig>

<CSOSN>500</CSOSN>

</ICMSSN500>

</ICMS>

 

quero por ha sim

<vTotTrib>5.90</vTotTrib>
-<ICMS>
-<ICMSSN500>

<pRedBCEfet>0.00</pRedBCEfet>
<vBCEfet>0.00</vBCEfet>
<pICMSEfet>0.00</pICMSEfet>
<vICMSEfet>0.00</vICMSEfet>

<orig>0</orig>

<CSOSN>500</CSOSN>

</ICMSSN500>

</ICMS>

[Gelson Junior]

codigo

 

with ICMS do
              begin
                if qrProdNCFE.fieldbyname('csosn').asstring = '101' then
                  ICMS.CSOSN := csosn101
                else if qrProdNCFE.fieldbyname('csosn').asstring = '102' then
                  ICMS.CSOSN := csosn102
                else if qrProdNCFE.fieldbyname('csosn').asstring = '103' then
                  ICMS.CSOSN := csosn103
                else if qrProdNCFE.fieldbyname('csosn').asstring = '201' then
                  ICMS.CSOSN := csosn201
                else if qrProdNCFE.fieldbyname('csosn').asstring = '202' then
                  ICMS.CSOSN := csosn202
                else if qrProdNCFE.fieldbyname('csosn').asstring = '203' then
                  ICMS.CSOSN := csosn203
                else if qrProdNCFE.fieldbyname('csosn').asstring = '300' then
                  ICMS.CSOSN := csosn300
                else if qrProdNCFE.fieldbyname('csosn').asstring = '400' then
                  ICMS.CSOSN := csosn400
                else if qrProdNCFE.fieldbyname('csosn').asstring = '500' then
                  ICMS.CSOSN := csosn500
                else if qrProdNCFE.fieldbyname('csosn').asstring = '900' then
                  ICMS.CSOSN := csosn900;
//                    else
//                      ICMS.CSOSN := csosn102;
                ICMS.pCredSN := 0;
                ICMS.vCredICMSSN := 0;

                ICMS.orig := oeNacional;
                ICMS.modBC := dbiValorOperacao;
                ICMS.vBC := 0;
                total_base := 0;
                ICMS.pICMS := 0;
                ICMS.vICMS := 0;
                total_icms := 0;
                ICMS.modBCST := dbisMargemValorAgregado;
                ICMS.pMVAST := 0;
                ICMS.pRedBCST := 0;
                ICMS.vBCST := 0;
                ICMS.pICMSST := 0;
                ICMS.vICMSST := 0;
                ICMS.pRedBC := 0;

[Juliomar Marchetti]

Ele omite se for zero , por conta do que o manual diz mas se insiste em sair coloque 0.0001 no valor que ele vai tratar e sair zero

[Gelson Junior]

ICMS.modBCST := dbisMargemValorAgregado;
                ICMS.pMVAST := 0;
                ICMS.pRedBCST := 0;
                ICMS.vBCST := 0;
                ICMS.pICMSST := 0;
                ICMS.vICMSST := 0;
                ICMS.pRedBC := 0;

             coloque ha sim no final e deu certo sim  

              ICMS.pRedBCEfet := 1;
                ICMS.vBCEfet := 1;
                ICMS.pICMSEfet := 1;
                ICMS.vICMSEfet := 1;

 

obrigado , agora vou formatar , grato

[Gelson Junior]

deu tudo certo obrigado , pode finalizar 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.