Ajuste Retorno - Contemplar outros tipos documentos origem, além do 22

[gutembergscosta]

Ajustes para contemplar codigos que em alguns estados são diferentes, antes só tratava o tipo 22, contudo tem estados que o atributo tipo pode ser 10, 24

 

Unit = \Fontes\ACBrDFe\ACBrGNRE\PCNGNRE\pgnreRetConsResLoteGNRE.pas

      if Leitor.rExtrai(4, 'itensGNRE') <> '' then
      begin
        j := 0;
        while Leitor.rExtrai(5, 'item', '', j + 1) <> '' do
        begin
          resGuia.Items[i].CodReceita     := Leitor.rCampo(tcInt, 'receita');
          resGuia.Items[i].DataVencimento := Leitor.rCampo(tcStr, 'dataVencimento');

          l := 0;
          while Leitor.rExtrai(6, 'documentoOrigem', '', l + 1) <> '' do
          begin
              //if Leitor.rAtributo('tipo=', 'documentoOrigem') = '22' then
              if Leitor.rAtributo('tipo=', 'documentoOrigem') in ['10','22','24'] then
              resGuia.Items[i].NumDocOrigem := Leitor.rCampo(tcStr, 'documentoOrigem');

             inc(l);
          end;
 

[Juliomar Marchetti]

Anexe a unit alterada

[gutembergscosta]

13 horas atrás, gutembergscosta disse:

Ajustes para contemplar codigos que em alguns estados são diferentes, antes só tratava o tipo 22, contudo tem estados que o atributo tipo pode ser 10, 24

 

Unit = \Fontes\ACBrDFe\ACBrGNRE\PCNGNRE\pgnreRetConsResLoteGNRE.pas

      if Leitor.rExtrai(4, 'itensGNRE') <> '' then
      begin
        j := 0;
        while Leitor.rExtrai(5, 'item', '', j + 1) <> '' do
        begin
          resGuia.Items[i].CodReceita     := Leitor.rCampo(tcInt, 'receita');
          resGuia.Items[i].DataVencimento := Leitor.rCampo(tcStr, 'dataVencimento');

          l := 0;
          while Leitor.rExtrai(6, 'documentoOrigem', '', l + 1) <> '' do
          begin
              //if Leitor.rAtributo('tipo=', 'documentoOrigem') = '22' then
              if Leitor.rAtributo('tipo=', 'documentoOrigem') in ['10','22','24'] then
              resGuia.Items[i].NumDocOrigem := Leitor.rCampo(tcStr, 'documentoOrigem');

             inc(l);
          end;
 

Anexado.

Linha alterada = 507

pgnreRetConsResLoteGNRE.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-1864

[Italo Giurizzato Junior]

Bom dia Gutemberg,

Já esta no SVN.