ACBRECF - LMFC ATO COTEPE 17/04

[lucasborin]

Urgente, preciso de ajuda pois estou na homologação de meu sistema.

Ao efetuar a chamada ACBRECF.PafMF_LMFC_Cotepe1704 estou recebendo a seguinte mensagem de erro (veja imagem em anexo).

Pelo que analisei no código fonte, o problema está na leitura do COO inicial e COO final que estão sendo lidos de uma leitura de memoria fiscal. (veja imagem em anexo).

Veja que há um FOR iniciando da posição 36 da LMF e terminando no Retorno.Count - 30 (que acaba ficando em 34), nem chega a entrar no FOR, pois o retorno é 64-30 = 34, assim retornando o COO Inicial | Final = 0. Creio que essa LMF pode variar dependendo do hardware, não sei lhes confirmar esta informação.

Utilizamos na homologação uma BEMATECH MP-4000 TH FI.

Aqui para testes estou utilizando o EMUL2100.

Preciso urgente da ajuda de vocês, obrigado mais uma vês,

Lucas Borin.

[Daniel Simoes]

Você não testou isso antes de ir para a homologação ??

Fica muito difícil corrigir isso "na correria"... Lembre-se que o ACBr é mantido por voluntários... e que todos trabalham no seu tempo livre...

[Daniel Simoes]

Tente substituir a Função CRZtoCOO por esta abaixo:

procedure TACBrECFBematech.CRZToCOO(const ACRZIni, ACRZFim: Integer;

  var ACOOIni, ACOOFim: Integer);

var

  Retorno: TStringList;

  CRZi, CRZf: string;

  Linha: string;

  I, PosCOO: Integer;

begin

  Retorno := TStringList.Create;

  try

    Self.LeituraMemoriaFiscalSerial(ACRZIni, ACRZFim, Retorno);


    PosCOO  := 0;

    ACOOIni := 0;

    ACOOFim := 0;

    CRZi    := IntToStrZero(ACRZIni,4)+'  ';

    CRZf    := IntToStrZero(ACRZFim,4)+'  ';


    I := 0 ;

    while (I 
    begin

      Linha := Retorno[I];


      if PosCOO = 0 then  // Já achou o cabeçalho ?

      begin

        if (pos('CRZ ',Linha) = 1) then

          PosCOO := pos('COO ', Linha);

      end

      else

      begin

        if Copy(Linha, 1, 6) = CRZi then

          ACOOIni := StrToIntDef(Copy(Linha, PosCOO, 6), 0) ;


        if Copy(Linha, 1, 6) = CRZf then

          ACOOFim := StrToIntDef(Copy(Linha, PosCOO, 6), 0) ;

      end ;


      Inc( I ) ;

    end ;


    ACOOIni := max(ACOOIni,1);

    ACOOFim := max(ACOOFim,ACOOIni);

  finally

    Retorno.Free;

  end;

end;

[/code]

[lucasborin]

Você não testou isso antes de ir para a homologação ??

Fica muito difícil corrigir isso "na correria"... Lembre-se que o ACBr é mantido por voluntários... e que todos trabalham no seu tempo livre...

Tranquilo, o problema é que testamos e provavelmente foram atualizadas as DLL na sequencia, mas consegui entrar em contato com o Régys ontem a noite e ele irá ajustar aquela função.

Realmente o problema que está na rotina de leitura dos COO, pois está efetuando a leitura diretamente da LFM que varia de impressora para impressora.

Obrigado Daniel,

Lucas Borin.

[lucasborin]

Tente substituir a Função CRZtoCOO por esta abaixo:

procedure TACBrECFBematech.CRZToCOO(const ACRZIni, ACRZFim: Integer;

  var ACOOIni, ACOOFim: Integer);

var

  Retorno: TStringList;

  CRZi, CRZf: string;

  Linha: string;

  I, PosCOO: Integer;

begin

  Retorno := TStringList.Create;

  try

    Self.LeituraMemoriaFiscalSerial(ACRZIni, ACRZFim, Retorno);


    PosCOO  := 0;

    ACOOIni := 0;

    ACOOFim := 0;

    CRZi    := IntToStrZero(ACRZIni,4)+'  ';

    CRZf    := IntToStrZero(ACRZFim,4)+'  ';


    I := 0 ;

    while (I < Retorno.Count) and (ACOOIni = 0) and (ACOOFim = 0) do

    begin

      Linha := Retorno[I];


      if PosCOO = 0 then  // Já achou o cabeçalho ?

      begin

        if (pos('CRZ ',Linha) = 1) then

          PosCOO := pos('COO ', Linha);

      end

      else

      begin

        if Copy(Linha, 1, 6) = CRZi then

          ACOOIni := StrToIntDef(Copy(Linha, PosCOO, 6), 0) ;


        if Copy(Linha, 1, 6) = CRZf then

          ACOOFim := StrToIntDef(Copy(Linha, PosCOO, 6), 0) ;

      end ;


      Inc( I ) ;

    end ;


    ACOOIni := max(ACOOIni,1);

    ACOOFim := max(ACOOFim,ACOOIni);

  finally

    Retorno.Free;

  end;

end;

Vou tentar trocar esta função, já lhe retorno.

[lucasborin]

Conseguimos efetuar a leitura ajustando o "Retorno.Count - 30" para "Retorno.Count - 20".

Obrigado ao Régys e ao Daniel pela ajuda.

[Daniel Simoes]

Não aplicarei essa modificação no SVN.. preciso saber se a rotina acima funciona para o seu caso... ela que será aplicada...

[Régys Silveira]

Fiz uma alteração na rotina e enviei para o SVN, agora ela passa a procurar pelo início da lista, o que resolve o problema relatado.

[Daniel Simoes]

Regys,

A rotina ainda pode cair nos seguintes Bugs...

- Se CRZIni e CRZFim forem iguais ela não achará o CRZFim

- Se o COO estiver em coluna diferente de 13 ela pode truncar o valor... No exemplo que achei na internet o COO está iniciando na 12

http://www.bematech.com.br/suporte/tuto ... ml?lmf.htm

[Régys Silveira]

Vou olhar isso então.

[lmdsistemas]

Não sei se ajuda, mas a Bematech tem um exemplo por COO em http://partners.bematech.com.br/bemacas ... oo-e-data/

http://www.bematech.com.br/suporte/down ... Delphi.zip

JURANDIR DALLABENETA

[Régys Silveira]

Na verdade o problema e que o LMFC e gerado por intervalo de CRZ, dai termos a função para passar para COO, porque as funções da dll utilizam o COO.

[lmdsistemas]

A versão que está no SVN gera o erro "IM:11.111 is not a valid date" na minha mp-2100

JURANDIR DALLABENETA

[Régys Silveira]

Acabei de enviar um acerto, atualize e verifique se continua a ocorrer, se sim me passe como está chamando a função no delphi, inclusive os parâmetros.

[lmdsistemas]

não deu, mesmo erro.

chamo com PafMF_LMFC_Cotepe1704(nCrzIni,nCrzFim,cNomeArquivo)

Anexo os arquivos temporários.

ACBr_ESP_.txt

ACBr_ESP_TMP.txt

[Régys Silveira]

Tem algo errado, estes dois arquivos que você enviou não são gerados pelo método PafMF_LMFC_Cotepe1704.

Acabei de testar ele aqui gerei vários arquivos e está tudo correto, você não fez nenhuma alteração nos teus fontes ai?

[lmdsistemas]

codigo do SVN, nada anormal.

O erro acontece exatamente em:

linha 4067 em diante

     Texto := TStringList.Create;

     try

       Texto.LoadFromFile( ArqTmp+'_ESP_TMP' + '.txt' );

       Try

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

         StrtoDate(DiaIni);  ----> AQUI

       Except

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

       end;

Ao inves de pegar a data está pegando a IM:

Alterado Data e Hora: 17/07/2011 20:28:01V

ECF AUTORIZADO EXCLUSIVAMENTE PARA TREINAMENTO

OU DESENVOLVIMENTO

SEM VALOR FISCAL

CNPJ:11.111.111/1111-11

IE:111.111.111

IM:11.111

------------------------------------------------

17/07/2011 20:28:01V COO:001388

Eu acertei a hora da impressora no dia, com isso desceu uma linha.

Além disso para mim sempre está na linha 7 ou 8.

Ajustando assim, na minha ecf funciona, mas sei que é cambiarra..

[Daniel Simoes]

Apague ou renomeie seu ACBrECFBematech.pas, antes de atualizar pelo SVN, sua função está diferente da atual...

[lmdsistemas]

Apaguei tudo, baixei no SVN.

A rotina funciona para algumas faixas de CRZ.

Porém se algum dia tiver alterado a hora junto a redução, não funciona pois desloca uma linha abaixo

Alterado Data e Hora: 17/07/2011 20:28:01V

ECF AUTORIZADO EXCLUSIVAMENTE PARA TREINAMENTO

              OU DESENVOLVIMENTO

               SEM VALOR FISCAL

[Daniel Simoes]

copie aqui o trecho da sua função...

[lmdsistemas]

Estou chamando com PafMF_LMFC_Cotepe1704(nCrzIni,nCrzFim,cNomeArquivo)

Anexei o arquivo ACBrECFBematech.pas que estou usando (baixado via SVN após excluir a pasta fontes).

Vasculhei HD a procurar de pas ou dcu e o único que tenho é o anexado.

Conforme comentei o erro só acontece quando há ajuste do horário do ecf na redução.

Se por acaso o arquivo ACBrECFBematech.pas estiver diferente, poderia anexar ao fórum?

obrigado pelo empenho.

ACBrECFBematech.pas

[Régys Silveira]

apague os arquivos ACBrECF.pas e ACBrECFClass.pas e atualize.

[Daniel Simoes]

vc pode capturar a Leitura de Memoria Fiscal em disco e anexa-la aqui ?

Modifique a rotina para:

Self.LeituraMemoriaFiscalSerial(ACRZIni, ACRZFim, Retorno);

Retorno.SaveToFile( 'c:\temp\retorno.txt' ) ;

[lmdsistemas]

anexos arquivo solicitado e arquivos que a rotina gerou no processo.

Pergunta, debugando eu chego sempre na linha 4069, que na rotina deveria pegar a data.

Observe que se não der certo (try), ele tenta a linha seguinte.

No meu caso, está uma linha depois (linha 8).

// Cria um objeto do tipo TStringList para Ler o arquivo gerado

Texto := TStringList.Create;

try

Texto.LoadFromFile( ArqTmp+'_ESP_TMP' + '.txt' );

Try

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

StrtoDate(DiaIni);

Except

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

end;

retorno1.txt

ACBr_ESP_TMP.txt

ACBr_ESP_.txt

[Daniel Simoes]

humm.. agora que notei que estamos falando de rotinas diferentes

Essas DLLs da Bematech são um saco... ficar caçando Strings sempre dará problema... Vou tentar modificar essa rotinas de forma semelhante a CRZtoCOO