PAF-ECF Arquivo MFD por COO Erro

[marcelca]

Bom dia,

Na homologação do PAF-ECF de minha empresa estava apresentando um erro ao gerar o Arquivo MFD pelo COO, consegui contornar este erro alterando o código fonte do Arquivo "ACBrECFBematech.pas". Tive que alterar a linha 3996 de:

DiaIni := copy( Texto.Strings[ 6 ], 1, 10 );

para:

DiaIni := copy( Texto.Strings[ 8 ], 1, 10 );

pois estava recuperando traços ao invés da data.

O Ecf utilizado foi uma MP-4000 TH FI.

No mais não tive mais nenhum problema, agradeço pelo componente ele é fantástico!

Atenciosamente,

Marcel Amorim

[Daniel Simoes]

Isso já foi corrigido várias vezes... Quando arruma para um, quebra para outro.. o ideal é fazer algo que não dependa de posição fixa... vou pensar em algo..

[ricardomendes]

Daniel, nesse caso não seria interessante tentar fazer uma comparação se a primeira opção não trouxer uma data valida, tenta a segunda...e se ai não trouxer uma data valida da a mensagem de erro...

Foi assim que fiz no meu aplicativo..-

[Daniel Simoes]

Boa ideia Ricardo... vou tentar implementar...

[Daniel Simoes]

Atualmente o fonte está assim:

       Try

         DiaIni := copy( Texto.Strings[ 6 ], 1, 10 );

         StrtoDate(DiaIni);

       Except

         DiaIni := copy( Texto.Strings[ 7 ], 1, 10 );

       end;

[/code]




Isso está correto ?



ou seria:



[code]

       Try

         DiaIni := copy( Texto.Strings[ 6 ], 1, 10 );

         StrtoDate(DiaIni);

       Except

         DiaIni := copy( Texto.Strings[ 8 ], 1, 10 );

       end;