Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Membros Pro
Postado

estou com um problema para imprimir a NFSe componente novo.

quando solicito para emitir uma nota nova, ele sai certinho com todos os dados.

mas quando solicito uma nova impressão no botão btnImprimir ele não imprime a razão social do prestador do serviço.

vou anexar um XML aqui para teste. lembrando que estou usando o programa exemplo.

e nesse processo:

          OpenDialog1.Title      := 'Selecione a NFSe';
          OpenDialog1.DefaultExt := '*-NFSe.xml';
          OpenDialog1.Filter     :='Arquivos NFSe (*-NFSe.xml)|*-NFSe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
          OpenDialog1.InitialDir := ACBrNFSeX1.Configuracoes.Arquivos.PathGer;

          if OpenDialog1.Execute then
          begin
               ACBrNFSeX1.NotasFiscais.Clear;

               // LoadFromFile - Usado para carregar o Xml de apenas uma nota
               ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False);

               // LoadFromLoteNfse - Usado para carregar um lote de notas
               // ACBrNFSeX1.NotasFiscais.LoadFromLoteNfse(OpenDialog1.FileName);

               ACBrNFSeXDANFSeRL1.Usuario := CdsUsuUSUARIO.AsString;

               ACBrNFSeX1.NotasFiscais.Imprimir;
     //          ACBrNFSeX1.NotasFiscais.ImprimirPDF;

               if ACBrNFSeX1.NotasFiscais.Items[0].NomeArqRps <> '' then
                  memoLog.Lines.Add('Arquivo Carregado de: ' + ACBrNFSeX1.NotasFiscais.Items[0].NomeArqRps)
               else
                   memoLog.Lines.Add('Arquivo Carregado de: ' + ACBrNFSeX1.NotasFiscais.Items[0].NomeArq);

               memoLog.Lines.Add('Nota Numero..........: ' + ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero);
               memoLog.Lines.Add('Código de Verificação: ' + ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao);
               memoLog.Lines.Add('Data de Emissão......: ' + DateToStr(ACBrNFSeX1.NotasFiscais.Items[0].NFSe.DataEmissao));
               memoLog.Lines.Add('Prestador............: ' + ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Prestador.RazaoSocial);
               memoLog.Lines.Add('Tomador..............: ' + ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.RazaoSocial);

               if ACBrNFSeX1.NotasFiscais.Items[0].NFSe.SituacaoNfse = ACBrNFSeXConversao.snCancelado then
                  memoLog.Lines.Add('A Nota encontra-se Cancelada.');

               pgRespostas.ActivePageIndex := 0;
          end;
 

obrigado

3522070485998300025856000000000000036-nfse.xml 3522070485998300025856000000000000076-rps.xml 3522070485998300025856000000000000036-nfse.pdf

  • Membros Pro
Postado
47 minutos atrás, Juliomar Marchetti disse:

Bom dia.

tente informar os dados no componente pois o mesmo  possui eles pois alguns xml não vem com os mesmos para imprimir

bom dia. tendi. vou fazer isso e reporto aqui. obrigado

  • Este tópico foi criado há 857 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.