Suposto BUG no componente ACBrSPED

[Andre Rosa]

Olá,

Eu estou tentando definir via código o path e o nome do arquivo a ser gerado através do componente ACBrSPED. No entanto, não funciona. Só funciona os parâmetros definidos visualmente pela paleta de propriedades. Faço dessa forma:

  AcbrSpedFiscal.Path:= DiretorioDoExecutavel;

  ACBrSpedFiscal.Arquivo:= 'meuArquivo.txt';

Mas ele obedece a propriedade visual. Alguém têm esse mesmo problema? Já reenstalei o componente e nada.

Obg.

[Mark Apollo]

Experimente informar somente o nome do arquivo com o caminho completo, ex:

    SPEDPisCofins.Arquivo := DiretorioDoExecutavel+'\meuArquivo.txt';

não sei se será necessário a adição da "\" antes do "meuArquivo.txt", mas fica a dica.

[Andre Rosa]

Experimente informar somente o nome do arquivo com o caminho completo, ex:

    SPEDPisCofins.Arquivo := DiretorioDoExecutavel+'\meuArquivo.txt';

não sei se será necessário a adição da "\" antes do "meuArquivo.txt", mas fica a dica.

Olá, markapollo. Ele continuou obedecendo as propriedades gráficas.

Mais alguma sugestão?

Obg.

[Andre Rosa]

Ainda estou com esse problema e, como estou próximo à homologação, preciso resolve-lo. Atualizai meu ACBr ontem, mas continuo na mesma.

Alguém pode me ajudar?

[Juliomar Marchetti]

Bom dia

utilizo desde a primeira versão do meu PAF e seto o caminho em tempo de execução e não tenho problemas

em que hora você seta as duas propriedades?

abaixo segue uma parte do meu código

    fACBrSped.Arquivo := PDV.PDVDesenvolvedora.DesenvNumeroLaudo + {}

    copy(PDVCaixa.ECF_numero_serie,{}

    Length(PDVCaixa.ECF_numero_serie) -13,14)+{}

    FormatDateTime('ddmmyyyy', now) + '.txt';


    fACBrSped.Path := ExtractFilePath(Application.ExeName);

    fACBrSped.Delimitador := '|';

    fACBrSped.TrimString := false;

    fACBrSped.CurMascara := '#0.00';

    fACBrSped.DT_INI := cxdtdtIni.Date;

    fACBrSped.DT_FIN := cxdtdtFim.Date;

    //=============================================================================

    with fACBrSped.Bloco_0 do

      begin

[Andre Rosa]

Bom dia

utilizo desde a primeira versão do meu PAF e seto o caminho em tempo de execução e não tenho problemas

em que hora você seta as duas propriedades?

abaixo segue uma parte do meu código

    fACBrSped.Arquivo := PDV.PDVDesenvolvedora.DesenvNumeroLaudo + {}

    copy(PDVCaixa.ECF_numero_serie,{}

    Length(PDVCaixa.ECF_numero_serie) -13,14)+{}

    FormatDateTime('ddmmyyyy', now) + '.txt';


    fACBrSped.Path := ExtractFilePath(Application.ExeName);

    fACBrSped.Delimitador := '|';

    fACBrSped.TrimString := false;

    fACBrSped.CurMascara := '#0.00';

    fACBrSped.DT_INI := cxdtdtIni.Date;

    fACBrSped.DT_FIN := cxdtdtFim.Date;

    //=============================================================================

    with fACBrSped.Bloco_0 do

      begin

Ô Juliomar, obrigado! Então... eu faço isso antes de gerar o txt. Faço o seguinte:

   Diretorio:= CriaDiretorio('Vendas_do_Periodo') ;

   ACBrSpedFiscal.Path:= Diretorio;


  ACBrSpedFiscal.Arquivo := 'SPED_'+FormatDateTime('ddmmyyyyhhmmss',now)+'.txt';

  ACBrSpedFiscal.SaveFileTXT ;

Inclusive, antes de dar o SaveFileTXT, eu dou um showMessage nas propriedades Arquivo e Path, e elas retornam conforme eu coloquei via código, o problema é na hora de salvar mesmo.

Obrigado!

[Juliomar Marchetti]

Faz um teste

passe o caminho e o nome do arquivo para o componente

antes de começar a alimentar eles com os dados para a geração

[Andre Rosa]

Faz um teste

passe o caminho e o nome do arquivo para o componente

antes de começar a alimentar eles com os dados para a geração

Opa, deu certo!

Que coisa estranha!

Muito obrigado.

[EMBarbosa]

Não é estranho não. Quando você usa o comando TACBrSPEDFiscal.IniciaGeracao ele passa a informação da propriedade Path e NomedoArquivo para os blocos internos do componente. Isso é muito importante para que, caso aconteça alguma mudança nessas propriedades durante a geração do arquivo, não se mude o caminho do arquivo que será gerado, principalmente se estiver fazendo uma geração concomitante.