Error Firebird en Aplicacion MDI
Hola, espero que me puedan ayudar.
Tengo una aplicacion en la cual tengo un modulo de datos con componentes DBX:
JsqlDataBase: TSQLConnection;
JQryConsulta: TSQLQuery;
Del formulario principal mando llamar un formulario el cual hace consultas y actualizaciones a la base de datos.
Cuando el formulario lo muestro de forma Modal, hace todo correctamente.
Pero ultimamente estoy haciendo modificaciones para que la aplicacion sea MDI. llamo el mismo formulario y lo
muestra y hasta ahi todo bien.
Cuando se hacen consultas funciona correctamente, pero cuando intento insertar algun nuevo registro me manda un
mensaje de error y no guarda nada.
Este es el codigo que manda el error:
with DataModule.JQryConsulta do begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO ventas (areaventa, caja, numero, fecha, hora, iva,');
SQL.Add('total, cambio, redondeo, estatus, cliente, usuario, ventaref, vendedor) VALUES(');
SQL.Add(sAreaVenta + ',' + IntToStr(iCaja) + ',' + IntToStr(iConsec) + ',''' + sFecha + ''',');
SQL.Add('''' + sHora + ''',' + FloatToStr(rIva) + ',' + FloatToStr(rTotal) + ',');
SQL.Add(FloatToStr(rCambio) + ',' + FloatToStr(rRedondeo) + ',');
SQL.Add('''A'',' + sCliente + ',' + IntToStr(iUsuario) + ',' + sVentaRef + ',' + sVendedor + ')');
ExecSQL; // <---------- aqui se presenta el error------------------
Close;
end;
De antemano les agradesco su ayuda.
|