Função ACBrNFe1.Enviar dá erro se der erro na impressão

[andradeaf]

Olá amigos do forum.

Estou implementando a NFe no meu sistema e me deparei com este problema:

Executo a função ACBrNFe1.Enviar.

No meus sistema, após a nota ter sido enviada e autorizada, eu gravo numa tabela a chave, protocolo e entre outros gravo o "Status = "Enviada".

o problema é quando, após o envio e autorização, se por qualquer motivo, dá erro na impressão, o componente não retorna chave, protocolo.

Dai fica assim, o usuario não sabe se a nota foi autorizada, e minha tela não atualiza pois, para meu sistema a nota ainda está pendente.

Alguém sabe como contornar esta situação? O ideal seria que o componente retornasse positivamente a chave, protocolo etc, mesmo antes de exibir a tela de impressão.

Obrigado pela atenção..

[juaumkiko]

Utilize os metodos separados para geracao do xml, assinatura, validacao e envio ao inves de usar o ENVIAR que engloba tudo.

[andradeaf]

Utilize os metodos separados para geracao do xml, assinatura, validacao e envio ao inves de usar o ENVIAR que engloba tudo.

Grato pela atenção.

estou implementando agora o componente e confesso que estou seguindo a rotina do exemplo.

Teria como você me passar um exemplo simples de utilização dos metodos separadamente..

mais uma vez obrigado.

[juaumkiko]

...

ACBrNFe1.NotasFiscais.GerarNFe;

ACBrNFe1.NotasFiscais.Assinar;

ACBrNFe1.NotasFiscais.Valida;

ACBrNFe1.WebServices.Envia(DataModule_NF.qry_nf.FieldByName('n_nf').AsInteger);

...

[andradeaf]

...

ACBrNFe1.NotasFiscais.GerarNFe;

ACBrNFe1.NotasFiscais.Assinar;

ACBrNFe1.NotasFiscais.Valida;

ACBrNFe1.WebServices.Envia(DataModule_NF.qry_nf.FieldByName('n_nf').AsInteger);

...

ok amigo. e se eu , após o comando ACBrNFe1.WebServices.Envia , quiser ativar a impressão da nota enviada, que comando devo utilizar??

[juaumkiko]

Ola

Dae vc pode usar semelhante ao que esta no DEMO.

Repare que no demo, primeiro ele carrega a NF para o componente, nesse caso vc nao precisaria carregar a nf pq ela ja esta no componente.

[andradeaf]

...

ACBrNFe1.NotasFiscais.GerarNFe;

ACBrNFe1.NotasFiscais.Assinar;

ACBrNFe1.NotasFiscais.Valida;

ACBrNFe1.WebServices.Envia(DataModule_NF.qry_nf.FieldByName('n_nf').AsInteger);

...

ok amigo. e se eu , após o comando ACBrNFe1.WebServices.Envia , quiser ativar a impressão da nota enviada, que comando devo utilizar??

So para finalizar rsss;

o metodo ACBrNFe1.WebServices.Envia(DataModule_NF.qry_nf.FieldByName('n_nf').AsInteger) é o ultimo antes da impressão. Então e ele que vai me retornar o numero da chave, protocolo??

Vê se o codigo e a sequencia abaixo estão corretos:

ACBrNFe1.NotasFiscais.Clear;

with ACBrNFe1.NotasFiscais.Add.NFe do

begin

1 ....//aqui eu vou preencher as tags do componente, impostos e outros

2 NotasFiscais.GerarNFe;

3 NotasFiscais.Assinar;

4 NotasFiscais.Valida;

5 WebServices.Envia(numero_NFe);

6 ...//aqui eu gravo a chave e o protocolo recebido

mytable.fieldByName('PCHAVE').AsString := WebServices.Retorno.ChaveNFe;

mytable.fieldByName('PMOTIVO').AsString := WebServices.Retorno.xMotivo;

mytable.fieldByName('PPROT').AsString := WebServices.Retorno.Protocolo;

7 NotasFiscais.Imprimir;

end;

end;

.

[juaumkiko]

isso mesmo

[andradeaf]

isso mesmo

Nossa cara.. obrigado mesmo. se tudo funcionar vou ficar te devendo uma obrigação e fica aqui a meu compromisso de doação à ACBR.

Abraço

[juaumkiko]

Imagina...

+ uma coisa.... utilize os blocos try except para recuperar os erros de webservices.

Eu uso assim e fica perfeito.

Boa sorte

[andradeaf]

Imagina...

+ uma coisa.... utilize os blocos try except para recuperar os erros de webservices.

Eu uso assim e fica perfeito.

Boa sorte

Value a sugestão.. mais uma vez obrigado