Daniel Alves Barreto Postado 2 Janeiro Compartilhar Postado 2 Janeiro Boa Noite, preciso imprimir o evento carta de correção, para tanto estou usando o seguinte codigo if msgError = '' then begin dmt.NFePrincipal.imprimirEventoPdf; tipoEvento := dmt.NFePrincipal.EventoNFe.Evento[0].InfEvento.tpEvento; ArqEvento := dmt.NFePrincipal.EventoNFe.ObterNomeArquivo(tipoEvento); ArqEvento := PathWithDelim(dmt.NFePrincipal.Configuracoes.Arquivos.GetPathEvento(tipoEvento))+ArqEvento; with dmt.NFePrincipal.WebServices.EnvEvento do begin ArqEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe + TpEventoToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpEvento) + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.nSeqEvento) +'-procEventoNFe.xml'; end; mais nao esta apontando para o local real do arquivo que e C:\NFE\PDF, preciso que os arquivos fiquem na pasta cnpj / data como as nfes pdf, como posso fazer isso e recuperar via codigo o local e nome do arquivo ? Link para o comentário Compartilhar em outros sites More sharing options...
Daniel Alves Barreto Postado 4 Janeiro Autor Compartilhar Postado 4 Janeiro Boa tarde, consegui salvar na pasta que precisava. YearMonth := FormatDateTime('yyyymm', Now); FormattedCNPJ := TRegEx.Replace(dmt.QryEmpresaNFe.FieldByName('cpf_cnpj').AsString, '[./-]', ''); path_nfe := 'c:\nfe\pdf\' + FormattedCNPJ + '\' + YearMonth + '\'; dmt.NFePrincipal.DANFE.PathPDF := path_nfe; dmt.NFePrincipal.imprimirEventoPdf; Mais continuo sem saber como pegar o nome do arquivo pdf, alguem pode me ajudar? Link para o comentário Compartilhar em outros sites More sharing options...
Solution Daniel Alves Barreto Postado 5 Janeiro Autor Solution Compartilhar Postado 5 Janeiro consegui encontra com a linha: OnlyNumber(dmt.NFePrincipal.EventoNFe.Evento.Items[0].InfEvento.ID) + '-procEventoNFe.pdf'; obrigado a todos pela ajuda. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Cleber Ferreira Postado 5 Janeiro Moderadores Compartilhar Postado 5 Janeiro Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Cleber C. FerreiraAnalista de Sistemas e Consultor Email e Skype: [email protected] Formiga-MG Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts