Ok, el formulario visualiza los datos del albaran en DBEdits y el detalle del albarán en Datagrid. Despues tengo un DBNavegator para moverme.
El formulario tiene un boton Añadir (para añadir un albaran) que realiza lo siguiente:
Código Delphi
[-]procedure TFormAlbaran.SpeedButtonAnadirClick(Sender: TObject);
var
id_ant: longint;
begin
DBEditsEscritura;
Label13.Caption:='Añadiendo un nuevo albarán.';
DesactivarBotones;
Talbaranes.Last;
id_ant:=Talbaranes.FieldByName('Idalb').AsInteger;
Talbaranes.Append; Talbaranes.FieldByName('Idalb').AsInteger:=id_ant+1;
Talbaranes.FieldByName('Fecha').AsDateTime:=Date;
end;
entonces relleno en los DbEdits los demás campos generales del albarán observaciones y tal, y despues tengo un boton que me lleva a otro formulario para elegir producto y cantidad y al darle aceptar lo añado al Dbgrid del siguiente modo:
Código Delphi
[-]procedure TFormAlbaran.SpeedButtonAnaLProdClick(Sender: TObject);
begin
if (EditCodigo.Text='') or (EditCantidad.Text='') then
if Application.MessageBox('Seleccione un producto e introduzca la cantidad','Detalle del Albarán',mb_iconExclamation+mb_ok)= id_ok then
Abort;
TalbprodDetalle.Last;
TalbprodDetalle.Append; TalbprodDetalle.FieldByName('Codprod').AsString:=EditCodigo.Text;
TalbprodDetalle.FieldByName('Cantidad').AsString:=EditCantidad.Text;
EditCodigo.Text:='';
EditNombre.Text:='';
EditCantidad.Text:='';
end;
en las dos tablas realizo un Append y despues al pulsar el Boton de Confirmar realiza el codigo que os puse en el post de mas arriba.
¿Hay algo que estoy haciendo mal?
Muchas gracias.