Insertar registro en una tabla

[[fjcg02]]

efelix,
me acabo de dar cuenta de que haces el cancel y el post en ADOQueryNuevaFactura.

Debes hacerlo sobre al tabla en la que estás insertando registros, no en la query en la que preguntas.

Ejemplo:
Edito la tabla Facturas
Tengo una query de comprobación de numeros duplicados

Si nº de registros query numero duplicado > 0 entonces
cancelo edición en TABLA DE FACTURAS
else
Confirmo inserción/modificación en TABLA DE FACTURAS

Repasalo por favor.

[efelix]

Felicidades fcg02 por ser padre, no se si por primera vez, pero bueno eso no importa, cada nuevo hijo es como si fueramos padres por vez primera, yo tengo tres hijos y son tremendos, el mas pequeño anoche no me dejo dormir. Te cuento lo que sucede. Puse en en evento onclick del botón guardar lo siguiente:

Código Delphi [-]
begin
 if ADOTNuevaFactura.State in [edit, insert] then
    ADOTNuevaFactura.
end;

Cuando hago esto el método post del ADOTable realacionado con la tabla factura no me sale en la lista de miembros. Eliminé como me dijiste la línea else del evento before post del ado table y ahora quedó de la siguiente manera:

Código Delphi [-]
begin
 ADOQNuevaFactura.Close;
 ADOQNuevaFactura.Parameters.ParamByName('IdFactura').Value :=StrToInt(DBEditNumero.Text);
 ADOQNuevaFactura.Open;
 if ADOQNuevaFactura.RecordCount > 0 then
 begin
    MessageDlg('La Factura que está intentando introducir ya existe',mtWarning,[mbOK],0);
    DBEditNumero.SetFocus;
    ADOTNuevaFactura.Cancel;
 end;

end;

Cuando la factura que intento agregar es nueva esto me funciona a la perfección, por supuesto si elimino la primera línea del evento onclick del botón guardar y solamente dejo ADOTNuevaFactura.Post. Ahora no te entiendo en cuantoa a lo que me explicas sobre la utilización del método cancel y post, porque aunque ambos están en al mismo evento es decir en el before post del ado table nueva factura, ambos se aplican al ado table y no al ado query, realmente no entiendo bien lo que pasa o es que ambos métodos no deben estar en el mismo evento. Disclpáme nuevamente, independientemente de que resuelva o no el problema me ha servido de mucho tu ayuda al ugual que la de los demás compañeros que me han respondido, te reítero mis felicitaciones y suerte con la nueva cria.

[[fjcg02]]

efelix,
he podido sacar un poco de tiempo, y te paso el código.
Dos cosas, para abortar el post cuando tienes duplicados, hay que utilizar el método Abort.
Cuando estás editando un registro, no debe saltar la verificación siempre, sino cuando cambias el valor de la factura.
Espero que te sirva de ayuda.
PAra ver el ejemplo, descomprime el zip en un directorio y compila. Está todo lo necesario. YO utilizo delphi 7.0 con ADO.

Un saludo

[efelix]

Saludos fcg02, sería un verdadero ingrato si no te diera las gracias por tu paciencia y ayuda, muchas gracias. Resolví el problema con tu ayuda. Suerte con el niño.