ANTONIO CARLOS ANT.CARLOS

Boa noite! Não estou conseguindo salvar o PDF da Carta de Correção na pasta de destino, como faço com os PDF do DACTE.

oi, este tópico é outro problema, Como config a o Path do PDF na Impressão da C.correção? Pois não consigo salvar o PDF da carta de correção.

Boa tarde! Fiz uma correção no arquivo do Cte - ACBrCTeDACTEClass.pas na function, TACBrCTeDACTEClass.GetPathPDF, onde a configuração do AdicionarLiteral não estava funcionado corretamente. -------------------------------------------------------------------------------- //<+++++> local da alteração do programa 09/01/2018 - Ant.Carlos DescricaoModelo := ''; if TACBrCTe(ACBrCTe).Configuracoes.Arquivos.AdicionarLiteral then begin case ACTe.Ide.modelo of 0: DescricaoModelo := TACBrCTe(FACBrCTe).GetNomeModeloDFe; 57: DescricaoModelo := 'CTe'; 67: DescricaoModelo := 'CTeOS'; end; end; //<+++++> -------------------------------------------------------------------------------- ACBrCTeDACTEClass.pas

Boa Tarde! Desejaria saber com configura o path para salvar o PDF na pasta de destino como na impressão do CTE? Veja exe. abaixo: //... Nesta configuração consigo enviar o PDF para a pasta de destino. // DMACBRCTE.ACBrCTe1.DACTe.PathPDF := DMACBRCTE.getPathMdoc+'\'+AnoMes; DMACBRCTE.ACBrCTeDACTeRL1.PathPDF := DMACBRCTE.getPathMdoc+'\'+AnoMes; DMACBRCTE.ACBrCTe1.Conhecimentos.LoadFromFile(Origem); CMACBRCTE.ACBrCTe1.Conhecimentos.ImprimirPDF; //...Como fazer para o PDF da carta de correção salvar na pasta de destino? Pois não consigo configura o path do evento da Carta de Correção igual na emissão do DACTE ? DMACBRCTE.ACBrCTe1.EventoCTe.LerXML(DMACBRCTE.Get_PathEventoCCe()); DMACBRCTE.ACBrCTe1.ImprimirEvento; Desde já meus agradecimentos a quem puder ajudar. ANT.CARLOS/SP

Encontre outra solução mesmo antes de gerar o XML. femiss := 1; coduf := Empresa.coduf; modelo := 55; serie := 1; pcnAuxiliar.GerarChave(vChave, coduf, Nfe.numnota, modelo, serie, Nfe.numnota, femiss, Date(), DMACBRNFE.getCnpjEmpresa()); vChave := pcnAuxiliar.SomenteNumeros(vChave);

Então, neste ponto antes do Enviar ainda não foi gerado o XML?

Bom dia! Desejaria saber como faço para pegar o número da chave da nota antes do envio? Exemplo: ======= ChNfe := DMACBRNFE.ACBrNFe1.NotasFiscais.Items[0].NFe....; Enviou := DMACBRNFE.ACBrNFe1.Enviar(0); Algo assim. Desde já meus agradecimentos a quem puder responder. sem mais, ANT.CARLOS/SP

Bom dia! Estou enviando arquivo do banco Santander para correção caso. Esta correção de ser feita na linha 345 do arquivo .pas. Fiz a homologação CNAB 240 e 400 e foi aprovada. Obs: Marquei o ponto com um comentário "//...<+++++>" sem mais, ANT.CARLOS/SP ACBrBoleto.rar

ok, Unit alterada conforme comunicado acima. sem mais, ANT.CARLOS/SP Arquivo AcbrNfeClass.rar

Olá boa tarde! fiz uma correção no função: TACBrNFeDANFEClass.GetPathPDF, pois a mesma não estava respeitando o comando de não gerar Literal ao imprimir o arquivo DANFE em PDF. Segue a correção: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - function TACBrNFeDANFEClass.GetPathPDF: String; var dhEmissao: TDateTime; DescricaoModelo: String; ANFe: TNFe; begin if (csDesigning in ComponentState) then begin Result := FPathPDF; Exit; end; Result := PathWithDelim(FPathPDF); //Criar diretório conforme configurado para NF-e if Assigned(ACBrNFe) then begin if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then begin ANFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe; if TACBrNFe(ACBrNFe).Configuracoes.Arquivos.EmissaoPathNFe then dhEmissao := ANFe.Ide.dEmi else dhEmissao := Now; // //...Alterações efetuadas // {++} DescricaoModelo := ''; {++} if TACBrNFe(ACBrNFe).Configuracoes.Arquivos.AdicionarLiteral then {++} begin case ANFe.Ide.modelo of 0: DescricaoModelo := TACBrNFe(FACBrNFe).GetNomeModeloDFe; 55: DescricaoModelo := 'NFe'; 65: DescricaoModelo := 'NFCe'; end; end; Result := PathWithDelim(TACBrNFe(FACBrNFe).Configuracoes.Arquivos.GetPath( Result ,DescricaoModelo ,ANFe.Emit.CNPJCPF ,dhEmissao ,DescricaoModelo )); {++} end; end; end; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Boa tarde! Estou tentando gerar o pdf de uma nfe e isto acontece com sucesso mas com um probleminha. Configurei o ACBr Nfe para gerar Literal até ai tudo bem mas na pasta que vou enviar em meus documentos não quero gerar o Literal mas o mesmo não obedece a configuração que é a seguinte: Destino := C:\Users\ANTCARLOS\Documents\Nota Fiscal Eletronica\ Origem := 'C:\ACEINFO\NFE\00653181000155\201710\Can\35170900653181000155550010000001711000001712-nfe.xml' DMACBRNFE.ACBrNFe1.NotasFiscais.Clear; DMACBRNFE.ACBrNfe1.Configuracoes.Arquivos.AdicionarLiteral := false; DMACBRNFE.ACBrNFe1.Configuracoes.Arquivos.SepararPorCNPJ := true; DMACBRNFE.ACBrNFe1.Configuracoes.Arquivos.SepararPorMes := true; DMACBRNFE.ACBrNFe1.DANFE.PathPDF := Destino; DMACBRNFE.ACBrNFeDANFeRL1.PathPDF := Destino; DMACBRNFE.ACBrNFe1.NotasFiscais.LoadFromFile(Origem); DMACBRNFE.ACBrNFe1.NotasFiscais.ImprimirPDF; Ao imprimir o pdf, ocorre tudo certo mas só que marquei que não desejaria gerar o Literal "\nfe" e o mesmo gera mesmo assim. Pasta criada no destino: C:\Users\ANTCARLOS\Documents\Nota Fiscal Eletronica\00653181000155\201709\NFe Como faço para que isto não aconteça ? Desde já meus agradecimentos ANT.CARLOS/SP

Bom dia ! Eu também estou tendo este mesmo problema. 1-Alterei a programa conforme as NTs e indiquei a versão para 4.00, erro 500, voltei para a versão 3.10 e enviou normal. 2-Atualizei o ACBr , 20/09/17 3-Copiei os Schemas da pasta do ACBr para minha pasta. Onde estou errando? sem mais, ANT.CARLOS/SP

Bom dia! Desejaria saber como faço para desativar a mensagem de pouco papel no ECF? sem mais, Desde já meus agradecimentos. ANT.CARLOS/SP