Ajuda por favor(ACBRNFE)

Question

Bom dia, galera estou com a seguinte dificuldade:Desenvolvi para a empresa, um sistema gerenciador de NF-e, por�m, esta ocorrendo o seguinte problema. O sistema, gera, valida,assina e transmiti norm...

Leonardo Xavier · Answer

Voc� salva estes dados em algum arquivo log ou txt? Se salvar � mais simples imprimir, pois voc� poe imprimir depois do arquivo estar pronto com os dados certinho e o seu problema estar� resolvido....

Agua Cascatai · Answer

Obrigado pela ajuda, nao.� salvo em .xml que no qual � gerado pelo proprio sistema....

Leonardo Xavier · Answer

Este seu problema � apresentado logo na primeira impress�o ou depois de algumas?...

Agua Cascatai · Answer

Ola, na primeira, logo que eu fa�o os processos, validar, assinar, e enviar se eu imprimir depois, ocorre o erro. Se sair e entrar no sistema e manda imprimir, funciona normalmente....

Leonardo Xavier · Answer

Ent�o o problema com toda certeza � na conex�o com o seu xml. Acho que o seu arquivo deve estar sendo lido ou gravado ao mesmo tempo que esta sendo realizada a tentativa de impress�o, n�o tenho duvidas disso. Se voc� fecha seu aplicativo e o abre novamente a sua conex�o � estalecida sem problemas pois o arquivo n�o esta sendo editado, minha sugest�o � que antes do processo de impress�o voc� desfa�a e refa�a a conex�o via c�digo. Experimente e poste aqui. Abra�os...

Agua Cascatai · Answer

Obrigado pela aten��o, ainda nao consegui resolver o problema.
Segue o codigo para da impressao.

procedure TfrmGerenciadornotaeletronica.printnota;
begin
//faco a impressao
AcbrNFe1.NotasFiscais.Clear;
with TZReadOnlyQuery.Create(nil) do
try
Connection := DmPrincipal.MyDB;
SQL.Add(SELECT CAMINHOXML FROM TBLNOTAFISCAL WHERE CIDCHAVES=+cdsnotafiscalcidchaves.AsString+);
Open;
if FilesExists(FieldByName(caminhoxml).AsString) then
begin
AcbrNFe1.NotasFiscais.LoadFromFile(FieldByName(caminhoxml).AsString);
if AcbrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
begin
AcbrNFe1.WebServices.ConsultaDPEC.NFeChave := AcbrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
AcbrNFe1.WebServices.ConsultaDPEC.Executar;
AcbrNFe1.DANFE.ProtocoloNFe := AcbrNFe1.WebServices.ConsultaDPEC.nRegDPEC + + DateTimeToStr(AcbrNFe1.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC);
end;
AcbrNFe1.NotasFiscais.Imprimir;
end
else
ShowMessage(Arquivo n�o encontrado);
finally
free;
end;
end;

Agua Cascatai · Answer

Estava pensando em criar e destruir o componente no momento da impressao.Como fa�o?...

Emerson Nascimento · Answer

talvez voc� esteja liberando o componente da mem�ria depois de enviar, da� quando vai tentar imprimir d� o erro....

Agua Cascatai · Answer

o mais interessante que aparece a tela de configura��o da impress�o.ai quando damos o OK para o preview ocorre o erro....

Leonardo Xavier · Answer

Tente fazer isso:...

Leonardo Xavier · Answer

Alguma resposta para este post?...

F�rum Ajuda por favor(ACBRNFE) #409643