Maestro/Detalle (No graba en tabla Maestro)

[teclilla]

He probado esta ultima instruccion y sigue igual, aunque he probado una cosa: Si inserto un registro en la tabla Maestro/Detalle (Talbaranes/TalbprodDetalle), confirmo y cierro la aplicacion no me guarda en la tabla maestra pero si en la tabla detalle. Pero si antes de cerrar me muevo de registro con el DBNavegator entonces si guarda bien en las dos tablas. ¿A que puede ser debido? ¿Como puedo solvertarlo por si el usuario cierra al dar de alta un registro sin moverse en la tabla?

MUCHAS GRACIAS.

[[eduarcol]]

tienes que hacer post en la tabla de albarranes

TAlbarranes.Post;

[teclilla]

Perdona Eduarcol, pero si que lo hago,
¿tengo que hacerlo otra vez antes de cerrar la aplicacion?
Gracias.

[[eduarcol]]

si yo veo que en el codigo que colocas lo pones, pero estas seguro que ese codigo es llamado en la ejecucion del programa?

[[Delphius]]

Hola teclilla,
¿Podrías por favor exponernos el código? Dices que haces eso y aquello otro... es posible que el problema venga de otro lado.

Necesitamos que nos aportes mayores detalles de lo que nos brindas. Un poco más de tu código podría revelarnos parte del problema y/o su solución.

No dudes en exponer tu duda, cuanto más información nos brindes mejor sera para ti. No te vamos a cobrar por la cantidad palabras.

Pon un poco más de tu parte para que podamos ayudarte.

Saludos,

[teclilla]

OK,
Al crear el formulario:

Código Delphi [-]
procedure TFormAlbaran.FormCreate(Sender: TObject);
begin
        //abrimos tablas
        Talbaranes.Open;
        Talbaranes.First;
        TCliente.Open;
        TProductos.Open;
        TalbprodDetalle.Open;
end;

Despues tengo en el formulario un botón para añardir un nuevo albaran:

Código Delphi [-]
procedure TFormAlbaran.SpeedButtonAnadirClick(Sender: TObject);
var
   id_ant: longint;
begin
        DBEditsEscritura;       //(Readonly:=false)
        Label13.Caption:='Añadiendo un nuevo albarán.';
        DesactivarBotones;  //Solo visibles Botones Confirmar y cancelar
        Talbaranes.Last;
        id_ant:=Talbaranes.FieldByName('Idalb').AsInteger;
        Talbaranes.Append; //modo insert
        //introducimos idalb calculado y fecha actual
        Talbaranes.FieldByName('Idalb').AsInteger:=id_ant+1; //siguiente alb
        Talbaranes.FieldByName('Fecha').AsDateTime:=Date; //fecha hoy
end;

Despues introducimos los demas DbEdits que queramos del albaran y despues le damos al boton de confirmar para grabar:

Código Delphi [-]
procedure TFormAlbaran.SpeedButtonConfirmarClick(Sender: TObject);
begin
     GrabarAlbaran;
     ControlStock;
     DBEditsLectura;     //(Readonly:=true)
     ActivarBotones;   // Visibles los demas botones 
     Label13.Caption:='';
end;

Código Delphi [-]
procedure TFormAlbaran.GrabarAlbaran;
begin
    if ((DBEditIdalb.Field.IsNull) or (DBEditFechaAlb.Field.IsNull) or (DBEditNifCli.Field.IsNull))then
        if Application.MessageBox('Faltan datos obligatorios del Albarán','Añadiendo Albarán',mb_iconExclamation+mb_ok)= id_ok then
        begin
        SpeedButtonCancelarClick(Self);
        Abort;
        end
    else
        begin
        //guardamos presupuesto
        Talbaranes.ApplyUpdates;
        Talbaranes.Post;
        TalbprodDetalle.ApplyUpdates;
        TalbprodDetalle.Post;
        end;
end;
 
//este procedimiento lleva el stock de los productos que se añaden al
//albaran y salen de fabrica.
procedure TFormAlbaran.ControlStock;
begin
        //para los detalles del alb correspondiente
        TalbprodDetalle.First;
        while not TalbprodDetalle.Eof do
        begin
        TProductos.Locate('Codigo',TalbprodDetalleCodprod.asString,[]);
        TProductos.Edit;//editamos
        //modificamos
        TProductos.FieldByName('Stock').asInteger:=TProductos.FieldByName('Stock').asInteger - TalbprodDetalleCantidad.AsInteger;
        TProductos.Post;//grabamos
        TalbprodDetalle.next;
        end;
end;

Al ejecutar el programa, si doy de alta un albaran, y sin cambiar de registro cierro, no se guarda en la tabla maestra y si en la tabla detalle, pero si cambio de registro antes de salir se graba en las dos

MUCHAS GRACIAS.