QrCode no Danfsex issnetonline

[digitosistemas]

Estou migrando a versão do NFSe e não esta saindo o QRCode na impressão do DANFE, como fazer para sair?

[Juliomar Marchetti]

  Em 24/05/2025 at 16:05, digitosistemas disse:

Estou migrando a versão do NFSe e não esta saindo o QRCode na impressão do DANFE, como fazer para sair?

Expandir  

depende do que usa? fast ou fortes

e se a cidade tem e o provedor isso já está definido no sistema

[digitosistemas]

Estou usando o "fortes", o provedor é o ISSNet.

 

Tentei usar assim esse Demonstração:
 

  Citar

 

procedure TfrmACBrNFSe.btnConsultarLinkNFSeClick(Sender: TObject);
var
  InfConsultaLinkNFSe: TInfConsultaLinkNFSe;
  xTitulo, xCompetencia, xNumeroNFSe, xSerieNFSe,
  xNumeroRps, xSerieRps, xTomador: string;
begin
  xTitulo := 'Consultar Link da NFSe';

  if ACBrNFSeX1.Configuracoes.Geral.Provedor = proConam then
  begin
    xCompetencia := '07/07/2023';
    if not(InputQuery(xTitulo, 'Data de Competencia:', xCompetencia)) then
      exit;

    xNumeroRps := '';
    if not(InputQuery(xTitulo, 'Numero do RPS:', xNumeroRps)) then
      exit;

    xSerieRps := '';
    if not(InputQuery(xTitulo, 'Serie do RPS:', xSerieRps)) then
      exit;
  end;

  if ACBrNFSeX1.Configuracoes.Geral.Provedor = proNFEletronica then
  begin
    xNumeroRps := '';
    if not(InputQuery(xTitulo, 'Numero do RPS (referencia):', xNumeroRps)) then
      exit;
  end;

  xNumeroNFSe := '';
  if not(InputQuery(xTitulo, 'Numero da NFS-e:', xNumeroNFSe)) then
    exit;

  xSerieNFSe := '';
  if not(InputQuery(xTitulo, 'Serie da NFS-e:', xSerieNFSe)) then
    exit;

  if ACBrNFSeX1.Configuracoes.Geral.Provedor = proGeisWeb then
  begin
    xTomador := '';
    if not(InputQuery(xTitulo, 'CNPJ/CPF do Tomador:', xTomador)) then
      exit;
  end;

  InfConsultaLinkNFSe := TInfConsultaLinkNFSe.Create;
  try
    InfConsultaLinkNFSe.Competencia := StrToDateDef(xCompetencia, 0);
    InfConsultaLinkNFSe.NumeroNFSe := xNumeroNFSe;
    InfConsultaLinkNFSe.SerieNFSe := xSerieNFSe;
    InfConsultaLinkNFSe.NumeroRps := StrToIntDef(xNumeroRps, 0);
    InfConsultaLinkNFSe.SerieRps := xSerieRps;
    InfConsultaLinkNFSe.CnpjCpfToma := xTomador;

    ACBrNFSeX1.ConsultarLinkNFSe(InfConsultaLinkNFSe);

   ChecarResposta(tmConsultarLinkNFSe);
  finally
    InfConsultaLinkNFSe.Free;
  end;
end;

 

Expandir  

  Citar

 

Expandir  

Mas o "Link" vem vazio.

 

[Juliomar Marchetti]

  Em 02/06/2025 at 16:57, digitosistemas disse:

Estou usando o "fortes", o provedor é o ISSNet.

 

Tentei usar assim esse Demonstração:
 

Mas o "Link" vem vazio.

 

Expandir  

Verifica no exemplo que te4m bot~]ao que fala dos métodos pra ver se para esse provedor e cidade tem