Acbr No Windows 7

[Joscru01]

tenho uma maquina instalado o Delphi 2010 com o ACBR e Jedi meu sistema de frente de caixa funciona perfeitamente.usando Impressora Daruma FS700

 

Comprei outra maquina I7 com Windows 7

 

instalei o Delphi

instalei o ACBR pelo instalador

instalei o JEDI

 

Quando vou rodar o frente de caixa acontece vários erros.

 

1 - Na abertura do Cupom

 

Rotina -->> UECF chamo  >>>FDataModule.ACBrECF.AbreCupom(CPFouCNPJ, Nome, Endereco);

 

2 - ACBrECF >>>> chama a >>>> fsECF.AbreCupom ;

 

3 - ACBrECFDaruma

 

procedure TACBrECFDaruma.AbreCupom ;
Var StrConsumidor : String ;
  CO : string;
  CC : string;
begin
  fsSubTotal := 0;
  fsNumCupom := '';
  fsNumCCF   := '';
  fsNumUltimoItem := 0;

  fpUltimaMsgPoucoPapel := 0 ;  { Zera tempo pra msg de pouco papel }
  AguardaImpressao := True ;

  if fpMFD then
  begin
    StrConsumidor := LeftStr(Consumidor.Documento,20) + cDELIMITADOR +
                     LeftStr(Consumidor.Nome,30) + cDELIMITADOR +
                     LeftStr(Consumidor.Endereco,79) + cDELIMITADOR ;

    EnviaComando( FS + 'F' + #200 + StrConsumidor ) ;
    Consumidor.Enviado := True ;

    RespostasComando.Clear;
    CO := Trim(Copy(fpRespostaComando, 10, 6));
    CC := Trim(Copy(fpRespostaComando, 16, 6));
    RespostasComando.AddField('COO', CO);
    RespostasComando.AddField('CCF', CC);

    fsNumCupom := RespostasComando['COO'].AsString;
    fsNumCCF   := RespostasComando['CCF'].AsString;

    if ModoPreVendaAtivado then
      EnviaComando( FS + 'C' + #226 + '1' ) ;
  end
  else
    EnviaComando(ESC + #200, 8) ;

  ZeraTotalApagar;
end;

 

4 - ACBrBase

 

function TACBrInformacoes.AddField(const ANome,
  AValor: String): TACBrInformacao;
begin
  try
     Result := FieldByName(ANome);
     Result.AsString := AValor;
  except
     Result := Self.Add;
     with Result do
     begin
       Nome     := AnsiString(ANome);
       AsString := AnsiString(AValor);
     end;
  end;
end;

 

O erro acontece nesta rotina abaixo

function TACBrInformacoes.FieldByName(const AName: String): TACBrInformacao;
var
  I: Integer;
begin
  Result := nil;
   for I := 0 to Self.Count - 1 do
    begin
      if AnsiSameText(String(Self.Items.Nome), String(AName)) then
      begin
        Result := Self.Items;
        Exit;
      end;
    end;

    if Result = nil then
      raise Exception.CreateFmt('Resposta "%s" não encontrada.', [AName]);
end;

 

na primeira passada o Self.count está = 0 a o result fica = nil é exibido o erro de COO,CCF,NumeroItem e ValorLiquido não localizado.

 

o estranho é que o valor de  string(AName) está sendo passado

 

Clico em ignorar erro e continue, os itens são enviados para impressora.

 

ao finalizar o cupom da erro na rotina Subtotalizar cupom

 

Subtotal,Saldo,COO,TotalLiquido não localizado.

 

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

 

já chequei pra ver se estava retornando valores da impressora e está.

 

já desinstalei e instalei Windows o ACBR e JEDI e continua o erro.

 

Coloco a impressora na outra maquina funciona perfeito sem dá um erro.

 

se alguém souber porque isso acontece do Windows 7 eu agradeço muito.

 

 

[email protected]

 

(83)3534-2683    -   Claro 9121-4188  Tim 9667-4725

 

Obrigado

[Daniel Simoes]

Acho que seria mais simples você simplesmente copiar a exata mensagem de erro e o arquivo de LOG...

 

Lembre-se que o ACBr é usado (com sucesso) por centenas de desenvolvedores, então antes de procurar problemas nos fontes do ACBr, tente algo mais simples...

 

(Se a lanterna não acende, você primeiro deve checar as pilhas e não desmontar a lanterna)

[Joscru01]

Acho que seria mais simples você simplesmente copiar a exata mensagem de erro e o arquivo de LOG...

 

Lembre-se que o ACBr é usado (com sucesso) por centenas de desenvolvedores, então antes de procurar problemas nos fontes do ACBr, tente algo mais simples...

 

(Se a lanterna não acende, você primeiro deve checar as pilhas e não desmontar a lanterna)

Camarada não quis dizer que o fonte do acbr está com problema, o que postei foi pra descobrir o motivo pelo qual acontece isso sacou, pois na mesma maquina se eu dé um run sem o debuger não acontece o erro.

[Daniel Simoes]

Continuo sem compreender o que vc quis dizer...

Talvez você esteja falando do fato do Delphi parar a IDE nas exceptions controladas...

Desabillite "Stop on Delphi Exceptions"