impressão Imprimir NFS-e Goiânia pelo Sistema

[Fabrício Melo]

Boa tarde.

Quero compartilhar com vocês um Form para impressão da Nota Fiscal de Serviço de Goiânia pelo sistema.

Muitos devem esta usando o Navegador para visualizar e imprimir, então eu resumi isso em um Form.
 

procedure ImprimirGyn(pXML: string; Visualizar: Boolean);
var
  NumeroNota: string;
  CodVerificacao: string;
  InscricaoMunicipal: string;
  strLink: string;
  TemImpressoraPadrao: Boolean;
  EscolherImpressora: Boolean;
const
  URLNFSeGoianiaImpressao   = 'http://www2.goiania.go.gov.br/sistemas/snfse/asp/snfse00200w0.asp?inscricao=<Inscricao_municipal>&nota=<Numero_da_nota>&verificador=<Codigo_de_verificacao>';
begin
  ACBrNFSe.NotasFiscais.Clear;

  ACBrNFSe.NotasFiscais.LoadFromString(pXML);

  NumeroNota            := ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero;
  CodVerificacao        := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao;
  InscricaoMunicipal    := ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal;

  strLink               := URLNFSeGoianiaImpressao;

  strLink               := StringReplace( strLink, '<Inscricao_municipal>', InscricaoMunicipal, [rfIgnoreCase] );

  strLink               := StringReplace( strLink, '<Numero_da_nota>', NumeroNota, [rfIgnoreCase] );

  strLink               := StringReplace( strLink, '<Codigo_de_verificacao>', CodVerificacao, [rfIgnoreCase] );

  if not(pVisualizar) then
  begin
    TemImpressoraPadrao := ACBrNFSe.DANFSE.Impressora <> '';
    EscolherImpressora  := ACBrNFeDANFECFE.MostraSetup;
  end;

  ImprimirLink(strLink, pVisualizar, TemImpressoraPadrao, EscolherImpressora);
end;

 

PAS_DFM.zip