Enviar sem Busca de Retorno

[ronnei]

Olá Amigos tem como fazer a função de envio sem buscar o retorno.

Exemplo:

Gerar Xml

Assinar

Enviar

guardo que foi enviado e o XMl enviado no BD

Busco Retorno

Atualizo o XML

Estou tendo problemas exception depois do envio, na hora do retorno, aí nos meus tratamentos eu desconsidero a Nfe enviada, desta forma fico com Nfe enviadas e aceitas pela recieta, mas no momento que eu enviei não tinha conseguido trazer a resposta da Receita.

Obrigado pela atenção!!

[André Ferreira de Moraes]

Debugue a função ACBrNFe1.Enviar(Lote) e verá que dentro dela os passos são feitos separadamente. Basta vc usar os comandos internos dela..

[ronnei]

Obrigado André, vou fazer os devidos testes e posto aqui no fórum depois o resultado!!

[ronnei]

Para os que estão com o mesmo problema segue abaixo como resolvi:

 

      With FcomponentesNfe.ACBrNFe.WebServices do

     Begin

            Enviar.Lote := Plote;

            if not(Enviar.Executar)

            then begin

                          FcomponentesNfe.ACBrNFe.OnGerarLog(Enviar.Msg);

                          raise EACBrNFeException.Create(Enviar.Msg);

             end;


             Precibo:=FcomponentesNfe.ACBrNFe.WebServices.Enviar.Recibo;

             //neste ponto guardo o xml enviado e marco que a nfe esta em processamento no BD

       End;


//pegando o retorno


     Try

       With FcomponentesNfe.ACBrNFe.WebServices do

       Begin

             //carrego o xml para o componente

             FcomponentesNfe.ACBrNFe.NotasFiscais.LoadFromFile(RetornaPastaSistema+'ARQUIVOB.XML');

             Retorno.Recibo := Precibo;

             Retorno.Executar;

             //guardo o XML depois do retorno ok

       End;

   except

          //trato as excessoes do retorno....

   end;