Lote Com Varios Rpss

[Mauricio Andrade]

Caros,

 

Algumas prefeituras, integram via site o lote por XML, exemplo Nota Carioca/RJ, Niteroi/RJ e outras

 

Não consigo gerar um lote com vários RPSs, alguém pode ajudar?

 

PS: eu vi um poste do Italo dizendo:

ACBrNFSe1.NotasFiscais.Items[qryExporta.RecNo-1].SaveToFile;

 

Não consegui fazer funcionar, só insere a primeira RPS

Mais a quantidade no XML <- informa a quantidade certa.. exemplo 11

 

 

Agradeço

 

Maurício Andrade

 

[Italo Giurizzato Junior]

Bom dia Mauricio,

 

O componente permite que você adicione vários RPS.

 

Recentemente foi implementado uma função chamada GerarLote.

 

Declaração:

 

    function GerarLote(ALote: Integer): Boolean; overload;
    function GerarLote(ALote: String): Boolean; overload;
 

Como usar:

 

 Ok := ACBrNFSe.GerarLote(25); // sendo que Ok é uma variável booleana e 25 é o numero do lote informado como integer

 

ou

 

 Ok := ACBrNFSe.GerarLote('25'); // sendo que Ok é uma variável booleana e 25 é o numero do lote informado como string

 

A função salva em disco na pasta Ger o seguinte arquivo: 25-lot-rps.xml

onde 25 é o numero do lote que foi informado.

 

Esse arquivo contem o lote de RPS que pode ser importado pelo site. Caso seja adicionado 10 RPS, o arquivo *-lot-rps.xml vai conter todos eles.

 

Espero ter ajudado.

[Mauricio Andrade]

Valeu Italo,

 

vou testar e depois te retorno.

 

Grande Abraço

[Mauricio Andrade]

Italo,

 

Não está dando certo...veja abaixo o q está errado, por favor...abraços

 

 

                    ACBrNFSe1.NotasFiscais.Clear;

                    ACBrNFSe1.NotasFiscais.NumeroLote := edtProx_Lote.Text;

                    qryExporta.First;

                    while not qryExporta.Eof do

                        begin

                            //neste momento eu adiciono as RPSs

                            GerarNFSe(qryExporta.FieldByname('num_nf').AsString);

 

                                //ACBrNFSe1.Enviar(edtProx_Lote.Text); \\teste

 

                            qryExporta.Next;

                        end;

                    ok := ACBrNFSe1.GerarLote(edtProx_Lote.Text);

                    ShowMessage('Arquivo gerado em: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);

                    ACBrNFSe1.NotasFiscais.Clear;