Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Imprimir NFC-e em papel A4


Go to solution Solved by Datalogical Informática,
  • Este tópico foi criado há 1055 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Prezados,

Gostaria de imprimir a NFC-e em papel A4 (laser). 

Estou gerando NFC-e (65) e, ao imprimir, está saindo no modelo NF-e (55).

As configurações que utilizei foram:

1 - Gerar a NFC-e:

...

  NotaF := ACBrNFe1.NotasFiscais.Add;

...

  if  Assigned( ACBrNFe1.DANFE ) then begin
      if iModelo=55 then begin // NFe
          NotaF.NFe.Ide.tpImp     := ACBrNFe1.DANFE.TipoDANFE; // tipo de impressao: tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica
      end else begin // NFC-e
          NotaF.NFe.Ide.tpImp     := tiNFCe; // ACBrNFe1.DANFE.TipoDANFE; // tipo de impressao: tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica
      end;
  end;
 

...

  //////////////////////////////////////////////////////
  // QR-CODE
  /////////////////////////////////////////////////////

  if iModelo = 55 then begin // 55 = NFC-e
      ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr000;  //  (veqr000, veqr100, veqr200);
  end else begin // 65 = NFC-e
      ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr200;  //  (veqr000, veqr100, veqr200);
      if UpperCase(aqyNFBusca.FieldByName('co_ambiente').AsString)='P' then begin // P=Producao
          ACBrNFe1.Configuracoes.Geral.IdCSC:=aqyEmp.FieldByName('ID_NF_CSC1').AsString;
          ACBrNFe1.Configuracoes.Geral.CSC:=aqyEmp.FieldByName('CO_NF_CSC1').AsString;
      end else begin // H=Homologacao
          //showmessage('homologacao!! id:' + aqyEmp.FieldByName('ID_NF_CSC1H').AsString + ' CSC:' + aqyEmp.FieldByName('CO_NF_CSC1H').AsString);
          ACBrNFe1.Configuracoes.Geral.IdCSC:=aqyEmp.FieldByName('ID_NF_CSC1H').AsString;
          ACBrNFe1.Configuracoes.Geral.CSC:=aqyEmp.FieldByName('CO_NF_CSC1H').AsString;
      end;
  end;

  // gera a nota fiscal
  ACBrNFe1.NotasFiscais.GerarNFe;
 

 

2 - Para imprimir:

      ACBrNFe1.NotasFiscais.Clear;
      // recupera xml de nota fiscal assinada e/ou autorizada (5=transmitida)
      ACBrNFe1.NotasFiscais.LoadFromString(sXml, False);
      ACBrNFe1.NotasFiscais.Imprimir; // ver opcao de imprimir direto sem visualizar
 

 

 

Link to comment
Share on other sites

  • Solution

Só para exemplificar:

...

      if aqyNF.FieldByName('CO_MODELODF').AsInteger = 55 then begin // NF-e
          ACBrNFe1.DANFE:=ACBrNFeDANFeRL1;
      end else begin
          ACBrNFe1.DANFE:=ACBrNFeDANFCeRL1;
      end;
      ACBrNFe1.NotasFiscais.Imprimir; 
...

Tudo certo.

  • Like 2
Link to comment
Share on other sites

  • Este tópico foi criado há 1055 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.