[firebase-br] laço dentro do outro

Reijanio Nunes Ribeiro rnribeiro em gmail.com
Ter Maio 31 16:13:15 -03 2016


blz vou testar obrigado

Em 31 de maio de 2016 15:58, José Mauricio barbisan Zottis <
zottissistemas em gmail.com> escreveu:

> boa tarde acredito que não esta dando certo porque vc faz os 2 whiles com a
> mesma tabela, ela perde o foco do primeiro while quando entra no segundo e
> se perde inteira.
> vc terá que fazer uma outra tabela dentro da dowload
>
> Em 31 de maio de 2016 15:52, Reijanio Nunes Ribeiro <rnribeiro em gmail.com>
> escreveu:
>
> > gente boa tarde estou com um pequeno problema que é o seguinte tenho uma
> > pesquisa de itens que faz uma pesquisa por período então as vezes filtra
> > 100 itens as vezes filtra mais as vezes menos esses itens tem uma chave
> de
> > acesso que através desta chave de acesso pesquisa no site da sefaz e faz
> o
> > download dos xml's so que tenho um problema o download do webserver so
> > permite no maximo 10 download por vez então usei esta sintaxe seguindo
> > conselho de um amigo(Caique) porem ela não esta funcionando alguém teria
> > como me ajudar e ver se realmente da pra fazer este download de 10 em 10
> > como preciso a sintaxe é a seguinte
> >
> >    while not Download.Eof do
> >     begin
> >      linha := 0;
> >               while ((not Download.Eof) or (linha < 10)) do
> >                 begin
> >                   inc(linha);
> >                   dm.ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe :=
> > DownloadCHAVE.AsString;
> >                   dm.ACBrNFe1.WebServices.DownloadNFe.Executar;
> >                if FilesExists(EmpresaCAMINHOXML.AsString +
> > DownloadCHAVE.AsString+'-nfe.xml') then
> >                 begin
> >                  Download.Edit;
> >                  DownloadIMPORTADA.AsString := 'S';
> >                  DownloadFLAG.AsString := 'S';
> >                  DownloadCAMINHO_XML.AsString :=
> > Trim(empresaCAMINHOXML.AsString);
> >                  Download.Post;
> >                 end;
> >                 Download.Next;
> >                end;
> >              //  Download.Next;
> >               Download.ApplyUpdates(0);
> >     end;
> >
> >
> > Desde ja grato pela ajuda
> >
> > --
> > Reijanio Nunes Ribeiro
> > Desenvolvedor Delphi/Php
> > Suporte em TI
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas:
> > http://www.firebase.com.br/pesquisa_lista.html
> >
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas:
> http://www.firebase.com.br/pesquisa_lista.html
>



-- 
Reijanio Nunes Ribeiro
Desenvolvedor Delphi/Php
Suporte em TI



Mais detalhes sobre a lista de discussão lista