Ir para conteúdo
  • Cadastre-se

dev botao

Imprimir Carta de Correção


aline_plr
  • Este tópico foi criado há 2371 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá estou tentando imprimir a carta de correção , mas ocorre o erro "Campo cOrgão não informado".

O código que estou utilizando é para imprimir é:

            frmFaturamento1.ACBrNFeFaturamento.NotasFiscais.Clear;
            frmFaturamento1.ACBrNFeFaturamento.NotasFiscais.LoadFromString(ExtractFilePath(Application.ExeName) +  frmFaturamento1.qPedido.FieldByName('NOMEARQUIVO').AsString);

            frmFaturamento1.ACBrNFeFaturamento.EventoNFe.Evento.Clear;
            frmFaturamento1.ACBrNFeFaturamento.EventoNFe.LerXMLFromString(frmFaturamento1.ACBrNFeFaturamento.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.NomeArquivo); // AO EXECUTAR ESSA LINHA OCORRE O ERRO

            frmFaturamento1.ACBrNFeFaturamento.ImprimirEvento;

 

Segue em anexos os xmls utilizado.

Alguém sabe o que pode estar acontecendo, estou precisando muito resolver esse problema.

Desde já agradeço

35170924821544000182550010000666911000666910-nfe.xml

1101103517092482154400018255001000066691100066691006-procEventoNFe.xml

Link para o comentário
Compartilhar em outros sites

  • Membros

@aline_plr
Veja como é feito no demo.

procedure TForm1.btnImprimirCCeClick(Sender: TObject);
begin
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
  end;

  OpenDialog1.Title := 'Selecione o Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFe1.ImprimirEvento;
  end;
end;

 

Testei aqui com seus arquivos e ta tudo ok.

Equipe ACBr Sérgio Assunção
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

[email protected]

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2371 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.