Lote Não Processado

[ronnei]

Enviei um lote e provavelmente quando ele foi consultar Deu o Erro

 

Situação: 2-Não Processado

 

Como tratar essa situação, queria separar um envio do Lote e retorno do lote, e depois consulta do lote com o protocolo, assim posso tratar o que seria um lote em processamento.

 

Estava usando Enviar(pnumlote);

 

Como separar? Alguma dica?

 

 

 

 

 

 

[Leonardo Gregianin]

Se em regra o processo é assíncrono, acho que o certo é mesmo separar o envio e o retorno do lote.

[ronnei]

Fiz o seguinte, setei a propriedade ConsultaLoteAposEnvio para False, e enviei com a opção imprimir=false, assim ele apenas envia, sendo assim eu seto minha Nfse como Enviada processando, logo em seguida eu chamo um procedimento que faz a consulta

             Try
                FComponentesNfe.ACBrNFSe.Configuracoes.WebServices.ConsultaLoteAposEnvio:=False;

                Enviar(Self.campo_Rps_Numero,false);
             Except
                   On e:exception do
                   Begin
                        Mensagemerro(e.message);
                        exit;
                   End;
             End;

Procedimento que consulta

ACBrNFSe.NotasFiscais.Clear;
           ACBrNFSe.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

           Try
              AcbrNfse.Configuracoes.WebServices.ConsultaLoteAposEnvio:=False;
              AcbrNfse.Configuracoes.WebServices.Visualizar:=True;
              ACBrNFSe.ConsultarNFSeporRps(Self.campo_Rps_Numero,
                                Self.campo_Rps_Serie,
                                Self.campo_Rps_Tipo,
                                Self.campo_Prestador_CpfCnpj,
                                self.campo_Prestador_InscricaoMunicipal);

O que eu preciso agora é pegar o resultado desta consulta para saber a situação do RPS para saber se ele foi rejeitado ou se ainda está em processamento, porque se eu usar um exception como regra para não aceito posso ter problemas no caso do lote em processamento.

[Leonardo Gregianin]

Ronnei,

Meu código também tinha um try..except, eu tirei e passei uma variável boleana:

Retorno := ACBrNFSe1.Enviar(rps,false);

Retorno := ACBrNFSe1.ConsultarNFSeporRps(rps, serie, tipo, cnpj, im);

Eu gravo no banco de dados o protocolo do envio, ou seja, a nota está em processamento. Depois faço a consulta e se a variável "retorno" voltar "true" eu pego o número da nfs-e senão continua "em processamento".

Editado 7 Junho, 2013 por lvr

[ronnei]

Porém LVR se ele retornar false porque a NFSE não foi gerada você vai ficar em processamento de forma errada, porque ela pode ter sido negada, por algum motivo, por isso a importância de pegar a situação do RPS e verificar se ele está em processamento ou se foi aceito.