ICMSOutrasUF - Não preenche a TAG

[Gabriel Rezende]

Boa tarde,

estou tentando fazer um CTE e preencher a TAG ICMSOutrasUF,

porem a tag não está aparecendo no XML. Será que preciso fazer alguma

configuração? Ou basta preencher os valores no componente?

Segue o código abaixo.

       case dm.cdsGil_Mes.FieldByName( 'me_cst1' ).AsInteger of
        00:  begin
             Imp.ICMS.SituTrib      := cst00;
             Imp.ICMS.ICMS00.CST    := cst00; // Tributação Normal ICMS
             Imp.ICMS.ICMS00.vBC    := dm.cdsGil_Mes.FieldByName( 'me_vlr_base_calc_icms' ).asFloat;
             Imp.ICMS.ICMS00.pICMS  := dm.cdsGil_Mes.FieldByName( 'me_aliq_icms'          ).asFloat;
             Imp.ICMS.ICMS00.vICMS  := dm.cdsGil_Mes.FieldByName( 'me_vlr_icms'           ).asFloat;
             end;
        20:  begin
             Imp.ICMS.SituTrib      := cst20;
             Imp.ICMS.ICMS20.CST    := cst20; // Tributação com BC reduzida do ICMS
             Imp.ICMS.ICMS20.pRedBC := 0.00;  // RoundTo(DM_CNT.Conhec2ReducaoICMS.AsFloat, -2);
             Imp.ICMS.ICMS20.vBC    := dm.cdsGil_Mes.FieldByName( 'me_vlr_base_calc_icms' ).asFloat;
             Imp.ICMS.ICMS20.pICMS  := dm.cdsGil_Mes.FieldByName( 'me_aliq_icms'          ).asFloat;
             Imp.ICMS.ICMS20.vICMS  := dm.cdsGil_Mes.FieldByName( 'me_vlr_icms'           ).asFloat;
             end;
        40:  begin
             Imp.ICMS.SituTrib      := cst40;
             Imp.ICMS.ICMS45.CST    := cst40; // ICMS Isento
             end;
        41:  begin
             Imp.ICMS.SituTrib      := cst41;
             Imp.ICMS.ICMS45.CST    := cst41; // ICMS não Tributada
             end;
        51:  begin
             Imp.ICMS.SituTrib      := cst51;
             Imp.ICMS.ICMS45.CST    := cst51; // ICMS diferido
             end;
        90:  begin
             Imp.ICMS.SituTrib      := cst90;
             Imp.ICMS.ICMS90.CST    := cst90; // ICMS Outros
             Imp.ICMS.ICMS90.pRedBC := 0.00;  // RoundTo(DM_CNT.Conhec2ReducaoICMS.AsFloat, -2);
             Imp.ICMS.ICMS90.vBC    := dm.cdsGil_Mes.FieldByName( 'me_vlr_base_calc_icms' ).asFloat;
             Imp.ICMS.ICMS90.pICMS  := dm.cdsGil_Mes.FieldByName( 'me_aliq_icms'          ).asFloat;
             Imp.ICMS.ICMS90.vICMS  := dm.cdsGil_Mes.FieldByName( 'me_vlr_icms'           ).asFloat;
             Imp.ICMS.ICMS90.vCred  := 0.00;  // RoundTo(DM_CNT.Conhec2CreditoICMS.AsFloat, -2);
             end;

        end;

        if   rem.enderReme.UF <> emit.enderEmit.UF
        then begin
             imp.ICMS.ICMSOutraUF.CST           := cstICMSOutraUF;
             imp.ICMS.ICMSOutraUF.pRedBCOutraUF := 0;
             imp.ICMS.ICMSOutraUF.vBCOutraUF    := dm.cdsGil_Mes.FieldByName( 'me_vlr_base_calc_icms' ).asFloat;
             imp.ICMS.ICMSOutraUF.pICMSOutraUF  := dm.cdsGil_Mes.FieldByName( 'me_aliq_icms'          ).asFloat;
             imp.ICMS.ICMSOutraUF.vICMSOutraUF  := dm.cdsGil_Mes.FieldByName( 'me_vlr_icms'           ).asFloat;
             end;

 

 

Desde já,

Obrigado.

[Italo Giurizzato Junior]

Boa tarde Gabriel,

Inclua dentro do seu IF a seguinte linha:

Imp.ICMS.SituTrib := cstICMSOutraUF;

[Gabriel Rezende]

Boa tarde, Italo.

 

Muito obrigado deu certo.!!!

[brizolla10]

Boa tarde,

e no TXT como informo essa tag, fiz dessa forma e nao deu certo

 

[ICMSOutraUF]
SituTrib=90
pRedBCOutraUF=40.000
vBCOutraUF=2954.770
pICMSOutraUF=12.000
vICMSOutraUF=354.570