Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Error al insertar el signo del € en Firebird (https://www.clubdelphi.com/foros/showthread.php?t=92717)

RoyTan 09-01-2018 22:53:38

Error al insertar el signo del € en Firebird
 
Saludos.

Estoy trabajando en un proyecto con Lazarus 1.8 y los componentes de bases de datos Zeos y con una base de datos firebird 2.5.

Mi pregunta es la siguiente...

¿ a alguien le a ocurrido alguna vez que al insertar en una campo de una tabla el signo del € le salga el siguiente error?

SQL Error: Aritmetic overflow or division by zero has occurred.

El campo es del tipo varchar y el charset ISO8859_1.

Acepta cualquier tipo de signo, letra, numero, pero el sigo del € no.

Supongo que seran los componentes Zeos, no veo otra razon porque nunca me ha sucedido antes.

Aquí os pongo el código para que entendáis lo que quiero decir, porque no se si me he explicado bien.

Código Delphi [-]
procedure TFACuenta.BAceptarClick(Sender: TObject);
Var
  SQLStrTmp: String;
begin

 if MessageDlg('¿ Seguro que desea Cerrar. ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  Begin

  // Salvar valor consulta inicial

  SQLStrTmp := ModuloDatos.SQLCuentas.SQL.Text;
  ModuloDatos.SQLCuentas.Close;
  ModuloDatos.SQLCuentas.SQL.Text := 'insert into CUENTAS (Pagado, Borrado, Fecha, Hora, Gasto,'
                                   + 'Iva, Falta, Efectivo, Banco, Texto) values (:P1,:P2,:P3,'
                                   + ':P4,:P5,:P6,:P7,:P8,:P9,:P10)';

  ModuloDatos.SQLCuentas.ParamByName('P1').AsString  := 'N';
  ModuloDatos.SQLCuentas.ParamByName('P2').AsString  := 'N';
  Modulodatos.SQLCuentas.ParamByName('P3').AsDate    := DTFecha.Date;
  Modulodatos.SQLCuentas.ParamByName('P4').AsTime    := Time();
  Modulodatos.SQLCuentas.ParamByName('P5').AsFloat   := StrToFloat(EGasto.Text);
  Modulodatos.SQLCuentas.ParamByName('P6').AsFloat   := StrToFloat(EIva.Text);
  Modulodatos.SQLCuentas.ParamByName('P7').AsFloat   := StrToFloat(EFalta.Text);
  Modulodatos.SQLCuentas.ParamByName('P8').AsFloat   := StrToFloat(EEfectivo.Text);
  Modulodatos.SQLCuentas.ParamByName('P9').AsFloat   := StrToFloat(EBanco.Text);
 
  // aquí da el error el campo texto de tipo varchar de la base de datos firebird 2.5 
 
  ModuloDatos.SQLCuentas.ParamByName('P10').AsString := MTexto.Text;

  ModuloDatos.SQLCuentas.ExecSQL;

  // Restaurar valor consulta inicial

  ModuloDatos.SQLCuentas.Close;
  ModuloDatos.SQLCuentas.SQL.Text := SQLStrTmp;
  ModuloDatos.SQLCuentas.Open;
  ModuloDatos.SQLCuentas.Last;
  
  FACuenta.Close;
  
 End;
end;

No se si habré cometido algún error en este código lo he hecho en el trabajo con el bloc de notas y con prisas, el jefe me vigila jejeje.

Pero creo que es Zeos el culpable y no se porqué.

Gracias de ante mano.

Casimiro Notevi 09-01-2018 23:12:02

Usa iso8859_15
Pero para guardar valores monetarios no almacenes el símbolo, solamente números.

RoyTan 11-01-2018 03:17:13

Muchisimas gracias.

Todo perfecto. ^\||/


La franja horaria es GMT +2. Ahora son las 20:06:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi