Rev. 3849 não compila no Linux - ACBrECFBematech.pas

[Alexsander]

Arquivo: Fontes/ACBrSerial/ACBrECFBematech.pas

Procedure: PafMF_GerarCAT52()

Não compila no Linux; acrescentei dois {$IFNDEF LINUX} apenas para compilar.

As chamadas que deram erro: LoadDLLFunctions e AbrePortaSerialDLL.

Para funcionar no Linux seria preciso mais do que estes IFDEF, evidentemente.

[Daniel Simoes]

Oi Alexsander... bem lembrado... vou inserir aqui...

[Alexsander]

Há previsão de entrar no SVN? Montei um ambiente novo, puxei do SVN e veio a versão com erro.

[Régys Silveira]

Me envie os arquivos que você alterou para que eu possa conciliar aos fontes.

Muito obrigado.

[Alexsander]

Segue PATCH gerado com "svn diff ACBrECFBematech.pas".

Apenas acrescentei dois {$IFNDEF LINUX} nas chamadas de LoadDLLFunctions e AbrePortaSerialDLL.

Não deve funcionar no Linux (que não usa DLL) mas pelo menos compila.

PS: Como dá pra ver, o arquivo também não está com encoding UTF-8.

Index: ACBrECFBematech.pas

===================================================================

--- ACBrECFBematech.pas	(revisão 3869)

+++ ACBrECFBematech.pas	(cópia de trabalho)

@@ -3723,7 +3723,9 @@

   FileMFD: AnsiString;

   DataArquivo: TDateTime;

 begin

+  {$IFNDEF LINUX}

   LoadDLLFunctions;

+  {$ENDIF}


   NumUsu   := AnsiString(UsuarioAtual);


@@ -3739,7 +3741,9 @@

     // gerar arquivos de um arquivo MFD, ent�o baixamos a MFD para o periodo

     // e rodamos um loop com a data gerando o arquivo para cada dia dentro

     // do per�odo

+    {$IFNDEF LINUX}

     AbrePortaSerialDLL( fpDevice.Porta, FilePath ) ;

+    {$ENDIF}


     // fazer primeiro o download da MFD para o per�odo

     Resp := xBematech_FI_DownloadMFD( FileMFD, '1', DiaIni, DiaFim, NumUsu );

bematech.txt

[Alexsander]

Além disso, o ACBr não compila com o FPC 2.7.x do trunk, pois Unix.Shell (deprecated) foi removido:

http://wiki.freepascal.org/Executing_Ex ... _and_shell

O erro ocorre no arquivo Fontes/ACBrComum/ACBrUtil.pas, linha 1757.

A sugestão do Wiki é usar "fpsystem" ao invés de Shell, como já foi feito na unit Synaser.

[Daniel Simoes]

Devo trabalhar na compatibilização do Linux amanhã e nesse fim de semana

[Daniel Simoes]

Alexsander,

Atualizei o SVN com correções para compilar corretamente no FPC 2.7.1

[Alexsander]

Obrigado!