Hola a todos.
Estoy haciendo un pequeño sistema de ventas.
La base de datos está: Access 2007
Uso Delphi 7
Registros o mantenimientos que uso:
.- Registro Cliente (Funciona perfectamente)
.-Registro producto o artículos: (Funciona perfectamente).
El Registro Factura está dividido en dos partes:
.-Tabla: factura con los siguientes campos:
Numero Factura
Fecha
Código cliente
Nombre cliente
Apellidos
Balance.
Monto
Descuento
Total a pagar
Tabla: Detalle factura con los siguientes campos
Código articulo
Descripción
Cantidad
Precio Unitario
Subtotal
En el registro Factura tiene un botón que se llama Agregar artículos, el cual invoca la ventana de búsqueda artículo: la ventana funciona perfectamente y este es el código.
Código Delphi
[-]
var sel:string;
begin
if trim(cboBuscar.Text) = '' then
begin
showMessage('Debe elegir una opción de búsqueda');
cboBuscar.SetFocus;
exit;
end;
If cboBuscar.Text = 'CODIGO' then
Begin
sel:= 'Select * from Tbla_Producto where cod_producto like "%'+edtBuscar.Text +'%"';
end
Else
If cboBuscar.Text = 'DESCRIPCION' then
Begin
sel:= 'Select * from Tbla_Producto where descrip_Producto like "%'+edtBuscar.Text +'%"';
end
Else
If cboBuscar.Text = 'PRECIOVENTA' then
begin
sel:= 'Select * from Tbla_Producto where precio_venta like "%'+edtBuscar.Text+'%"';
End;
edtBuscar.SetFocus;
qryBusProducto.Close;
qryBusProducto.SQL.Clear;
qryBusProducto.SQL.Add( sel);
qryBusProducto.Open;
end;
¿Cuál es el problema?
Que cuando seleccione el producto o artículo en el Grid de la ventana de búsqueda producto se agregue al grid de detalle factura y que al guardar la factura haga lo siguiente:
.- La cantidad en almacén se descuente (Registro articulo)
.- El balance del cliente se actualice.
Realmente estoy confundida, como por ejemplo para guardar el registro producto o artículo o cualquier otro registro uso este código:
DataM.Tbla_Producto.Post; y me graba perfectamente, pero estoy confundida ya que el registro factura tiene dos tablas (factura y destalle factura) ¿Cómo lo voy guardar?
Mil gracias por adelantado a alguien que me quiera ayudar.
Que Dios les Bendiga a todos