Jump to content

dev botao
  • Este tópico foi criado há 4718 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Posted

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.

Posted

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.

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Posted

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.

  • 7 months later...
  • Moderadores
Posted

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Posted

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!

Posted

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! :D

Que coisa estranha!

Muito obrigado.

  • Consultores
Posted

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 4718 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.