ACBRECF - Compatibilidade Delphi 2010

[iran]

Olá,

Estou desenvolvendo um sistema de PAF, é notei que algumas funções implementadas na unit "ACBrECFBematech" está dando erro no delphi 2010. Notei que estas funções estão usando Pchar ao invez do PAnsiChar que deve ser usando no delphi 2010.

[lampada]

Vc está com a última versão?

Já tem bastante gente usando no delphi 2010, eu mesmo estou e sem problema.

[EMBarbosa]

Está dando erro ou aparecem mensagens de warning?

Se você indicar a mensagem de erro e onde o ocorre ficaria mais fácil pra ajudar também.

Também estou no grupo dos que usam 2010 e não tiveram problemas que já não estejam corrigidos...

[iran]

Está dando erro ou aparecem mensagens de warning?

O erro só acontece em tempo de execução.

Atualizei o ACBR ontem e o problema ainda ocorre. O erro só ocorre quando chamo a função por COO, por Data funciona normalmente.

Na depuração percebi que na Unit está usando PChar para COO e PAnsiCHar para Data. COrrigi aqui e funcionou 100%.

     Resp := xBematech_FI_DownloadMFD( PChar( ArqTmp + '.mfd'),   // Arquivo de Saida

                                       '2',                       // 1 = Por Data

                                       PChar( IntToStr(COOInicial) ),

                                       PChar( IntToStr(COOFinal) ),

                                       PChar( Prop ) ) ;   

Obrigado!

[Daniel Simoes]

Humm... não sou usuário do Delphi2010...

Iran, qual foi a correção que vc aplicou ?

Elton, poderia verificar isso para mim ?

[EMBarbosa]

Sim. Mas acho que já tinha entendido o que o Iran mencionou.

Iran confirme por favor se a alteração é a seguinte:

na

procedure TACBrECFBematech.ArquivoMFD_DLL(COOInicial, COOFinal: Integer;

NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet);

     Resp := xBematech_FI_DownloadMFD( PChar( ArqTmp + '.mfd'),   // Arquivo de Saida

                                       '2',                       // 1 = Por Data

                                       PChar( IntToStr(COOInicial) ),

                                       PChar( IntToStr(COOFinal) ),

                                       PChar( Prop ) ) ;   [/code]




Alterar para:



[code]     Resp := xBematech_FI_DownloadMFD( PAnsiChar( ArqTmp + '.mfd'),   // Arquivo de Saida

                                       '2',                       // 1 = Por Data

                                       PAnsiChar( IntToStr(COOInicial) ),

                                       PAnsiChar( IntToStr(COOFinal) ),

                                       PAnsiChar( Prop ) ) ;   

     Resp := xBemaGeraRegistrosTipoE( PChar( ArqTmp + '.mfd'),

                                      Pchar( NomeArquivo ),

                                      PChar( DiaIni ),

                                      PChar( DiaFim ),

                                      Pchar( cRazao ),

                                      Pchar( cEndereco ),

                                      '','2','','','','','','','','','','','','','' );

[/code]




E também



[code]     Resp := xBemaGeraRegistrosTipoE( PChar( ArqTmp + '.mfd'),

                                      Pchar( NomeArquivo ),

                                      PChar( DiaIni ),

                                      PChar( DiaFim ),

                                      Pchar( cRazao ),

                                      Pchar( cEndereco ),

                                      '','2','','','','','','','','','','','','','' );

por

     Resp := xBemaGeraRegistrosTipoE( PAnsiChar( ArqTmp + '.mfd'),

                                      PAnsiChar( NomeArquivo ),

                                      PAnsiChar( DiaIni ),

                                      PAnsiChar( DiaFim ),

                                      PAnsiChar( cRazao ),

                                      PAnsiChar( cEndereco ),

                                      '','2','','','','','','','','','','','','','' );[/code]


Fiquei intrigado foi porquê não aconteceu erro nessas funções no meu caso...  


O Iran confirmando eu posto no SVN. Assim que tiver mais tempo no entanto vou tentar substituir essas funções pelas mais recomendada.

[iran]

Olá Elton,

São essas funções mesmo.

Obrigado!

[EMBarbosa]

Olá Iran,

Estou tendo alguns problemas em acessar a DLL aqui... vou descobrir o que é e depois disso faço as alterações ok?

Embora concorde plenamente com as alterações, não quero arriscar já que outros já estão usando o sistema atual...

[iran]

OK, Brother.

Valeu!