Erro no tratamento da TAG de combustiveis

[newtongaucho]

Pessoal,

estou com um erro na tag de combustiveis(unit pcnNFeR), a Tag L120 esta pegando os valores errados.

A geração da Tag L120 esta assim

function TNFeR.LerXml: boolean;


(* Grupo da TAG  *)

if Leitor.rExtrai(3, 'comb') <> '' then

begin

  (*L102*)NFe.Det[i].Prod.comb.cProdANP := Leitor.rCampo(tcInt, 'cProdANP');

  (*L103*)NFe.Det[i].Prod.comb.CODIF := Leitor.rCampo(tcEsp, 'CODIF');

  (*L104*)NFe.Det[i].Prod.comb.qTemp := Leitor.rCampo(tcDe4, 'qTemp');


  if Leitor.rExtrai(4, 'CIDE') <> '' then

  begin

    (*L106*)NFe.Det[i].Prod.comb.CIDE.qBCprod := Leitor.rCampo(tcDe4, 'qBCprod');

    (*L107*)NFe.Det[i].Prod.comb.CIDE.vAliqProd := Leitor.rCampo(tcDe4, 'vAliqProd');

    (*L108*)NFe.Det[i].Prod.comb.CIDE.vCIDE := Leitor.rCampo(tcDe2, 'vCIDE');

  end;

  if Leitor.rExtrai(4, 'ICMSComb') <> '' then

  begin

    (*L110*)NFe.Det[i].Prod.comb.ICMS.vBCICMS   := Leitor.rCampo(tcDe2, 'vBCICMS');

    (*L111*)NFe.Det[i].Prod.comb.ICMS.vICMS     := Leitor.rCampo(tcDe2, 'vICMS');

    (*L112*)NFe.Det[i].Prod.comb.ICMS.vBCICMSST := Leitor.rCampo(tcDe2, 'vBCICMSST');

    (*L113*)NFe.Det[i].Prod.comb.ICMS.vICMSST   := Leitor.rCampo(tcDe2, 'vICMSST');

  end;

  if Leitor.rExtrai(4, 'ICMSInter') <> '' then

  begin

    (*L115*)NFe.Det[i].Prod.comb.ICMSInter.vBCICMSSTDest := Leitor.rCampo(tcDe2, 'vBCICMSSTDest');

    (*L116*)NFe.Det[i].Prod.comb.ICMSInter.vICMSSTDest := Leitor.rCampo(tcDe2, 'vICMSSTDest');

  end;

  if Leitor.rExtrai(4, 'ICMSCons') <> '' then

  begin

    (*L118*)NFe.Det[i].Prod.comb.ICMSCons.vBCICMSSTCons := Leitor.rCampo(tcDe2, 'vBCICMSSTCons');

    (*L119*)NFe.Det[i].Prod.comb.ICMSCons.vICMSSTCons   := Leitor.rCampo(tcDe2, 'vICMSSTCons');

  end;



  (*L120*)NFe.Det[i].Prod.comb.ICMSCons.UFcons := Leitor.rCampo(tcStr, 'UFcons');

end;

e Deveria estar assim:

(* Grupo da TAG  *)

if Leitor.rExtrai(3, 'comb') <> '' then

begin

  (*L102*)NFe.Det[i].Prod.comb.cProdANP := Leitor.rCampo(tcInt, 'cProdANP');

  (*L103*)NFe.Det[i].Prod.comb.CODIF := Leitor.rCampo(tcEsp, 'CODIF');

  (*L104*)NFe.Det[i].Prod.comb.qTemp := Leitor.rCampo(tcDe4, 'qTemp');


  (*L120*)NFe.Det[i].Prod.comb.ICMSCons.UFcons := Leitor.rCampo(tcStr, 'UFcons');


  if Leitor.rExtrai(4, 'CIDE') <> '' then

  begin

    (*L106*)NFe.Det[i].Prod.comb.CIDE.qBCprod := Leitor.rCampo(tcDe4, 'qBCprod');

    (*L107*)NFe.Det[i].Prod.comb.CIDE.vAliqProd := Leitor.rCampo(tcDe4, 'vAliqProd');

    (*L108*)NFe.Det[i].Prod.comb.CIDE.vCIDE := Leitor.rCampo(tcDe2, 'vCIDE');

  end;

  if Leitor.rExtrai(4, 'ICMSComb') <> '' then

  begin

    (*L110*)NFe.Det[i].Prod.comb.ICMS.vBCICMS   := Leitor.rCampo(tcDe2, 'vBCICMS');

    (*L111*)NFe.Det[i].Prod.comb.ICMS.vICMS     := Leitor.rCampo(tcDe2, 'vICMS');

    (*L112*)NFe.Det[i].Prod.comb.ICMS.vBCICMSST := Leitor.rCampo(tcDe2, 'vBCICMSST');

    (*L113*)NFe.Det[i].Prod.comb.ICMS.vICMSST   := Leitor.rCampo(tcDe2, 'vICMSST');

  end;

  if Leitor.rExtrai(4, 'ICMSInter') <> '' then

  begin

    (*L115*)NFe.Det[i].Prod.comb.ICMSInter.vBCICMSSTDest := Leitor.rCampo(tcDe2, 'vBCICMSSTDest');

    (*L116*)NFe.Det[i].Prod.comb.ICMSInter.vICMSSTDest := Leitor.rCampo(tcDe2, 'vICMSSTDest');

  end;

  if Leitor.rExtrai(4, 'ICMSCons') <> '' then

  begin

    (*L118*)NFe.Det[i].Prod.comb.ICMSCons.vBCICMSSTCons := Leitor.rCampo(tcDe2, 'vBCICMSSTCons');

    (*L119*)NFe.Det[i].Prod.comb.ICMSCons.vICMSSTCons   := Leitor.rCampo(tcDe2, 'vICMSSTCons');

  end;




end;