Pesquisar na Comunidade
Showing results for tags 'bbcancel'.
Encontrado 1 registro
-
Boa Noite Pessoal, Estou fazendo o seguinte metodo para gerar um PDF. procedure TFormValidadorNfe.brnGerarPDFClick(Sender: TObject); begin OpenDialog.Title := 'Selecione a NFE'; OpenDialog.DefaultExt := '*-nfe.XML'; OpenDialog.Filter := 'Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog.InitialDir := pPathEnviado; procedure TFormValidadorNfe.brnGerarPDFClick(Sender: TObject); begin OpenDialog.Title := 'Selecione a NFE'; OpenDialog.DefaultExt := '*-nfe.XML'; OpenDialog.Filter := 'Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog.InitialDir := pPathEnviado; if OpenDialog.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.DANFE.Logo := pPathLogo+'\'+pNomeLogo; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog.FileName,False); ACBrNFeDANFeRL1.PathPDF := pPathPDF+'\'; ACBrNFe1.NotasFiscais.ImprimirPDF; end; end; Porem.,quando mando executar, apresenta o seguinte erro Estou fazendo a seguinte carga de variáveis, with ACBrNFe1.Configuracoes.WebServices do begin UF := pUF; Ambiente := StrToTpAmb(Ok,IntToStr(StrToInt(pTipoAmbiente))); Visualizar := False; end; with ACBrNFe1.Configuracoes.Geral do begin Salvar := True; end; Alguém, saberia me ajudar com este problema ? Pois, só falta isso, para o ,,meu projeto estár ok. Outro detalhe, e que esse erro, só da na primeira vez, que tento executar a função, na segunda, não da erro. Grato.