Pesquisar na Comunidade

Ola! Estou configurando o ACBrCTe da seguinte forma: class procedure TCTeFunc.ConfigurarACBrCTe(var AACBrCTe: TACBrCTe; AModelo, AtpAmb: Integer); var fOrd: TOrdenacaoPath; begin if (not Assigned(AACBrCTe)) then AACBrCTe := TACBrCTe.Create(Application); AACBrCTe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrCTe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\CTe\'; AACBrCTe.Configuracoes.Arquivos.PathSalvar := AConexao.Parametro('NFE_CAMINHO_XML'); AACBrCTe.Configuracoes.Arquivos.SepararPorCNPJ := True; AACBrCTe.Configuracoes.Arquivos.SepararPorMes := True; AACBrCTe.Configuracoes.Arquivos.SepararPorModelo := True; AACBrCTe.Configuracoes.Arquivos.Salvar := True; AACBrCTe.Configuracoes.Arquivos.EmissaoPathCTe := True; //se baseia pela data de emissão para montar o path AACBrCTe.Configuracoes.WebServices.Visualizar := False; AACBrCTe.Configuracoes.WebServices.Salvar := False; AACBrCTe.Configuracoes.WebServices.UF := AFilial.xUF; AACBrCTe.Configuracoes.Certificados.NumeroSerie := AFilial.CertSerie; AACBrCTe.Configuracoes.Geral.VersaoDF := ve300; AACBrCTe.EventoCTe.VersaoDF := ve300; AACBrCTe.EventoCTe.Versao := '3.00'; //Configura sequencia para montar o path (cnpj\anomes\modelo) AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Clear; with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opCNPJ; with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opData; with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opModelo; //Modelo if AModelo = 67 then AACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS else AACBrCTe.Configuracoes.Geral.ModeloDF := moCTe; //Ambiente if AtpAmb = 1 then AACBrCTe.Configuracoes.WebServices.Ambiente := taProducao else AACBrCTe.Configuracoes.Webservices.Ambiente := taHomologacao; //Mail if (not Assigned(AACBrCTe.MAIL)) then AACBrCTe.MAIL := TACBrMail.Create(Application); AACBrCTe.MAIL.From := AFilial.Mail_Endereco; AACBrCTe.MAIL.FromName := AFilial.Mail_NomeEmpresa; AACBrCTe.MAIL.Host := AFilial.Mail_Servidor; AACBrCTe.MAIL.Username := AFilial.Mail_Endereco; AACBrCTe.MAIL.Password := AFilial.Mail_Senha; AACBrCTe.MAIL.Port := IntToStr(AFilial.Mail_Porta); AACBrCTe.MAIL.IsHTML := True; AACBrCTe.MAIL.SetSSL := AFilial.Mail_SSL; AACBrCTe.MAIL.ReadingConfirmation := False; AACBrCTe.MAIL.ReplyTo.Clear; AACBrCTe.MAIL.AddReplyTo(AFilial.Mail_ResponderPara); AACBrCTe.Conhecimentos.Clear; AACBrCTe.EventoCTe.Evento.Clear; end; Mas estou tendo problemas com o arquivos, os arquivos "-procEventoCTe", "-cte" estão sendo salvos corretamente pasta/cnpj/anomes/cte/ porem alguns arquivos ("-inu", "-ped-inu", "-env-lot", "-rec", "-pro-rec", "-ped-rec") estão sendo salvos direto dentro da pasta, sem separar. Pelo que entendi, os arquivos sem valor fiscal estão sendo salvos na pasta configurada no ACBrCTe.Configuracoes.Arquivos.PathSalvar e os demais não. Estou errando em alguma configuração para salvar na mesma pasta? para não salvar os arquivos basta setar esta propriedade: ACBrCTe.Configuracoes.Arquivos.Salvar := False ? P.S. Atualizei o ACBr a pouco (rev. 13749)