Duvida Arquivomfd_Dll Bematech

[alexsiilvaa]

Ao gerar o arquivo ArquivoMFD_DLL ele ta passando o seguinte valor para a variável FileMask, abaixo:

 

 FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT';

 

Observei que ao pesquisar o arquivo no "FindFiles( FileMask, Arquivos );" ele não encontra o arquivo, motivo devido o formato "yyyymmdd", pois o file esta sendo gerando no formato 'BENumSerie_ddmmyyyy_ddmmyyyy.TXT', gostaria de saber se existe alguma configuração para gerar o arquivo no formato da Acbr?

 

Observação: Unit que estou me referindo é a ACBrECFBematech.pas e não a rotina da procedure em 

 

     if Arquivos.Count < 1 then

        raise EACBrECFErro.Create( ACBrStr( 'Erro na execução de xBematech_FI_ArquivoMFD.'+sLineBreak+

                                'Arquivo: "'+NomeArquivo + '" não gerado' )) ;

 

 

Desde já, obrigado.

[EMBarbosa]

Será que a versão de sua dll não está desatualizada?

Dê informações completas sobre seu ambiente.

[Daniel Simoes]

Tudo indica que você está usando uma DLL antiga... a Bematech modificou recentemente a maneira de nomear esse arquivo...

[alexsiilvaa]

Obrigado pela atenção, realmente era a versão da dll.

[Richard]

Bom dia!

 

Realmente a DLL alterou o formato e na DLL atual (6.1.2.0) esta gerando no formato que o Acbr esta gerando.

 

Porém estou tendo um problema grave, o componente gera certo:

 

  FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT';

 

E a DLL também, só que a DLL esta gerando o número de série com 15 dígitos e não com 20 dígitos, ou seja:

 

DLL Bematech 6.1.2.0 = MFDBE0507756007000_20130828_112744

Acbr                             = MFDBE050775600700013969_20130828_112744

 

Alguém passou por este problema?

[Daniel Simoes]

Poderiamos ajustar para:

 

  FileMask := FilePath + Prefixo + LeftStr(Trim(NumSerie),15) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT';

 

e talvez fazer 2 IFs para verificar se o arquivo existe com 20 ou 15 caracteres

[EMBarbosa]

Verifique se gerando pela  dll você está usando o método NumSerieMFD

[Richard]

Verifique se gerando pela  dll você está usando o método NumSerieMFD

 

Quando digo pela DLL quero dizer o comando xBematech_FI_ArquivoMFD que o ACBr solicita para DLL, ou seja, é o nome do arquivo é gerado pela DLL da Bematech

 

Poderiamos ajustar para:

 

  FileMask := FilePath + Prefixo + LeftStr(Trim(NumSerie),15) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT';

 

e talvez fazer 2 IFs para verificar se o arquivo existe com 20 ou 15 caracteres

 

Então, creio que não deva mudar para 15 dígitos não, pois ainda não tenho certeza se em todos modelos vão vir 15 dígitos, na minha opinião deveria comparar das 2 formas

 

Sugestão:

 

________________________________________________________________________________________________

 

FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' +

              FormatDateTime('yyyymmdd',Now ) + '_*.TXT';    // Nome do arquivo retornado pela DLL com número de série correto

FileMask2:= FilePath + Prefixo + Copy(Trim(NumSerie),1,15) + '_' +

              FormatDateTime('yyyymmdd',Now ) + '_*.TXT';    // Nome do arquivo retornado pela DLL com número de série constando apenas os 15 primeiros caracteres.

  Arquivos := TStringList.Create;

  OldAtivo := Ativo ;

  try

     DeleteFile( NomeArquivo );

     DeleteFiles( FileMask );

     DeleteFiles( FileMask2 );

     AbrePortaSerialDLL( FilePath ) ;

     Resp := xBematech_FI_ArquivoMFD( '', DiaIni, DiaFim, 'D', Prop, Tipo,

                                      cChavePublica, cChavePrivada, 1 ) ;

     if (Resp <> 1) then

        raise EACBrECFErro.Create( ACBrStr( 'Erro ao executar xBematech_FI_ArquivoMFD.'+sLineBreak+

                                         AnalisarRetornoDll(Resp) )) ;

     FindFiles( FileMask, Arquivos );

     if Arquivos.Count < 1 then Begin

        FindFiles( FileMask2, Arquivos );

        if Arquivos.Count < 1 then Begin

           raise EACBrECFErro.Create( ACBrStr( 'Erro na execução de xBematech_FI_ArquivoMFD.'+sLineBreak+

                                'Arquivo: "'+NomeArquivo + '" não gerado' )) ;

        End;

     End;

     RenameFile( Arquivos[0], NomeArquivo );

  finally

     Arquivos.Free;

     FechaPortaSerialDLL( OldAtivo );

  end;

 

________________________________________________________________________________________________

 

Em vermelho o que eu mudei. Desta forma da certo tanto se o nome do arquivo retornar com 15 dígitos, quanto com 20 dígitos

[Daniel Simoes]

Parece estar muito bom... Poderia anexar a unit modificada ?

[Richard]

Segue em anexo as alterações sugeridas!

ACBrECFBematech.pas

[Daniel Simoes]

Sua Unit parece estar MUITO desatualizada em relação a atual do SVN...  Já migrou o seu repositório para o novo endereço ?

[Richard]

Não havia observado isto, farei agora