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
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);
ModuloDatos.SQLCuentas.ParamByName('P10').AsString := MTexto.Text;
ModuloDatos.SQLCuentas.ExecSQL;
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.