Ver Mensaje Individual
  #1  
Antiguo 16-05-2008
Mosis2k2 Mosis2k2 is offline
Miembro
 
Registrado: feb 2007
Posts: 12
Reputación: 0
Mosis2k2 cantidad desconocida en este momento
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.
Responder Con Cita