Novo método de impressão disponibilizado para o padrão IPM onde é gerado o PDF da nota.

O método é chamado através do comando executar 'ObterPDF'

Parâmetros:

  • Xml de uma NFSe Autorizada.
  • Caminho completo e o nome do PDF.

Exemplo de implementação:

 
  procedure TfrmExemplo.btnObterPDFClick(Sender: TObject);
var
  _nomeComando, _nomeParametro, _valorParametro, _resposta: string;
  _XmlNFSe : TStringList;
begin
    _XmlNFSe := TStringList.Create;
    try
      _nomeComando := 'ObterPDF';
      _XmlNFSe.LoadFromFile(XMLNFSE);
      _nomeParametro := 'XML';
      _valorParametro := _XmlNFSe.Text;
      NFSe.Comando(_nomeComando).Parametros[_nomeParametro] := _valorParametro;
      _nomeParametro := 'CaminhoCompletoArquivo';
      _valorParametro := 'H:\ImpressaoIPM.pdf';
      NFSe.Comando(_nomeComando).Parametros[_nomeParametro] := _valorParametro;

      _resposta := NFSe.Executar(_nomeComando);
    finally
      _XmlNFSe.Free;
    end;
end;   

 

Resposta:

'Impressão realizada na pasta: H:\ImpressaoIPM.pdf'