Obtener un nuevo ID antes de cargar sus respectivos datos

[[Caral]]

Hola
Eso lo entiendo, lo que no entiendo es, cual es el problema?.
Si haces una llamada a esa tabla por sql te generara el id de ese profesional, si lo quieres mantener activo puedes colocar ese dato en una variable y usarla en donde la necesites.
una vez que tengas ese ID, lo demas es simplemente guardar los datos.
Eso es lo que entiendo.
Saludos

[Vales08]

Ecfisa, al append/post lo realizo en el Onshow? (En el tbsheet del alta) xq lo realizo alli pero al poner el post me salta error:

Project Project_tesis.exe raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible window'. Process stopped. Use Step or Run to continue.

[Vales08]

Ya encontre el error tenia algunos campos por defecto Not Null y por eso me saltaba el error, me olvide de tener en cuenta tu ultimo consejo

Si tenés campos requeridos, tendrás que asignarles algún valor por defecto (antes del Post), que luego se modificarán en el transcurso del ingreso.

Asi me quedo el codigo hecho en el OnShow del tabsheet Alta..

Código Delphi [-]
DM.DSET_prof.Append;
DM.DSET_profESTADO.Value:=0;
DM.DSET_prof.Post;
DM.Transaccion.CommitRetaining;
DM.DSET_prof.Edit;
ape_nom_prof_a.SetFocus;

Gracias por tu ayuda, me sirvio de mucho!! .-

[ecfisa]

Hola Vales.

Recién entro, me alegra que lo hayas resuelto.

Saludos.

[Vales08]

Empezado por ecfisa

Hola Vales.

Llego tarde... pero me alegro que lo hayas resuelto.

Saludos.

Jaja gracias pero me surgio un pequeño problemilla del que no me habia dado cuenta..
Cada vez que paso a la solapa (tabsheet) Modificacion, en la base de datos me da de alta igual el id, y cada vez que cierro el formulario, tanto con la crux de la ventana, como del boton salir, igual me guarda el id.. Y eso no tiene q suseder porque no quiero registros en blancon guardaddos solo con los id..
Me entiendes??

[ecfisa]

Hola Vales.

En ese caso podes utilizar CachedUpdates en las tablas relacionadas para evitar que los datos que guardaste del médico se consoliden si deciden
salir sin almacenar los cambios.

Al guardar, por ejemplo:

Código Delphi [-]
    if MessageDlg('¿Confirma la operación?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
    begin
      DMDatos.tbCoberturas.DataSource:= nil;   (* desconectar Coberturas *)
      DMConect.IBDatabase.ApplyUpdates([tbMedicos,tbCoberturas]);  // Guardar datos en Cache
      DMDatos.tbCoberturas.DataSource:= dsMedicos; (* conectar Coberturas *)
      DMConect.IBTransaction.CommitRetaining;
    end
    else
      DMConect.IBTransaction.RollbackRetaining; // Cancelar
    Close; // Salir

De este modo, los cambios únicamente se guardarán sí las líneas que contienen ApplyUpdates / CommitRetaining se ejecutan.

Saludos.

[Vales08]

Ahhh ok, pero igual yo hice un commitretaining en el onshow despues el post y por eso con el RollbackRetaining no hacia nada... Ahora lo saque y me funciona bien...

Espero no tener mas problemitas.. creo q esto fue lo ultimo..
Muchas gracias ecfisa!!