Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 18-04-2008
teclilla teclilla is offline
Miembro
 
Registrado: feb 2008
Posts: 41
Poder: 0
teclilla Va por buen camino
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; //modo insert
        //introducimos idalb calculado y fecha actual
        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;
        //pasamos datos al DBGrid
        TalbprodDetalle.Last;
        TalbprodDetalle.Append; //modo edicion
        TalbprodDetalle.FieldByName('Codprod').AsString:=EditCodigo.Text;
        //lookup nombre
        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.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Tabla Paradox maestro/detalle Ayuda Jaros Tablas planas 2 05-01-2008 13:35:33
Problema tabla Maestro-detalle en la q la pk de t.detalle formad por 2cods de la maes akinom38 Varios 1 09-11-2007 19:27:44
Respecto a la relacion maestro detalle detalle ilichhernandez Conexión con bases de datos 0 15-05-2007 18:13:54
Maestro-Detalle 'virtual' con una sola tabla gluglu Conexión con bases de datos 2 11-10-2004 19:44:23
Maestro-Detalle ;Actualizar detalle a partir de un DBgrid norberto_larios Conexión con bases de datos 1 11-09-2004 18:17:34


La franja horaria es GMT +2. Ahora son las 01:36:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi