RoyTan
09-01-2018, 21:53:38
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.
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.
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.
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.