Jump to content

chamada diadoacbr

Assista tectoy.png

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


gutembergscosta
Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 218 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;
 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Administradores

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

TK-1864

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • 2 months later...
  • Este tópico foi criado há 218 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.