Erro a instalar AcbrSerial Lazarus 2.2.0 (max)

[Paulo Cezar Guimarães]

O erro retornado esta nesta função do ACBRSerial.

function TACBrECFVirtualClassCupom.EfetuaPagamento(AValor: Currency;
  const AObservacao: String; APosFPG: Integer): TACBrECFVirtualClassPagamentoCupom;
begin
  if fpPagamentosCupom.Count >= 999 then
    raise EACBrECFERRO.Create(ACBrStr('Máximo de Pagamentos já atingido (999)')) ;

  AValor := fpECFVirtualClasse.RoundECF( AValor );

  Result := fpPagamentosCupom.New;
  with Result do
  begin
    PosFPG     := APosFPG ;
    ValorPago  := abs(AValor) ;
    Observacao := AObservacao ;

    fpTotalPago := fpTotalPago + max(AValor, 0);
  end;
end;                      

 

Editado 7 Abril, 2022 por Paulo Cezar Guimarães

[Juliomar Marchetti]

3 minutos atrás, Paulo Cezar Guimarães disse:

O erro retornado esta nesta função do ACBRSerial.

function TACBrECFVirtualClassCupom.EfetuaPagamento(AValor: Currency;
  const AObservacao: String; APosFPG: Integer): TACBrECFVirtualClassPagamentoCupom;
begin
  if fpPagamentosCupom.Count >= 999 then
    raise EACBrECFERRO.Create(ACBrStr('Máximo de Pagamentos já atingido (999)')) ;

  AValor := fpECFVirtualClasse.RoundECF( AValor );

  Result := fpPagamentosCupom.New;
  with Result do
  begin
    PosFPG     := APosFPG ;
    ValorPago  := abs(AValor) ;
    Observacao := AObservacao ;

    fpTotalPago := fpTotalPago + max(AValor, 0);
  end;
end;                      

Tu tá com o lazarus x64

já temos tópicos e N lugares falando que o Lazarus tem que ser Win32 ou x86

[Paulo Cezar Guimarães]

Blz.

Vou reinstalar na 32 para ver. Obrigado