DBGrid como detalle de Factura.

[[BlueSteel]]

Hola Epenor

estaba mirando tu estructura y le falta algo, asi que te sugiero que debiera ser como sigue...

Tabla factura:
- numero
- fecha
- cliente
- usuario
- forma de pago
- Estado
- Sub_TotalNeto
- Descuento
- Total_Neto
- Impuesto
- Total

Tabla dfactura:
- Correlativo
- Numero_Factura
- codigo_producto
- descripcion
- cantidad
- valor_unitario

Como verás, te hice varios cambios.... lo ideal es que almacenes en la tabla factura todo lo referente a la factura, que será comun para todos los items (articulos) que se encuentren en ella, como

- Nº de Factura (unico)
- Fecha (de emisión)
- Cliente
- Usuario (supongo que esto es el vendedor)
- Forma de pago...
- Estadio... (por si despues anulan la factura, le puedas cambiar el estado)

Tambien aquí agregue lo que tenias en el Detalle de la Factura, ya que es más fácil su tratamiento que estar sumando todos los items de la factura (detalle) para sacar el valor....

- Sub-totalneto (valor que suman todos los articulos, sin incluir descuentos)
- descuento (cantidad que corresponde a algun descuento...)
- totalneto (sub-totalneto - descuento)
- impuesto (según el aplicado en cada país)
- total... (corresponde al total de la factura por todos los items vendidos)

Para el Detalle de la Factura (Items), solo necesitas trabajar con lo sgtes campos
- Correlativo (que debe identificar a un registro de otro)
- Nº de Factura (que asocia el registro a una factura en particular)
- codigo_producto (se identifica el código del producto que estas vendiendo... lo puedes omitir si no tienes codificado tus articulos)
- descripcion..(.identifica el articulo... se puede omitir si tienes codificado tus articulos)
- cantidad... (cantidad vendida)
- precio unitario (valor unitario de venta del producto)

como ves el diseño cambio mucho del que tu planteas...

Con respecto a como trabajar el ingreso de los items de la factura, lo puedes realizar con tabla de Memoria...

De los componentes JVC de Jedi puedes utilizar el componente TJvMemoryData de la Paleta Jv Data Access... su uso es muy sencillo... intenta usarlo y si tienes problemas avisas..

Para usar el TJvMemoryData, solo tienes que definir los campos y vincularlo a un DBGrid... luego insertas los datos según lo que ingreses en algunos Edits (para manejo de la cantidad y precios y valores totales te sugiero el uso del componente TJvValidateEdit que esta en la paleta JV Edits (jedi)... es muy bueno para el manejo de decimales y tipo de dato moneda...

para insertar un dato en una tabla de memory puedes usar el codigo sgte, donde Datos es un DataModule e ItemsOCompra es una Tabla de Memoria...

Código Delphi [-]
      
Datos.ItemsOCompra.Append;
Datos.ItemsOCompra.FieldByName('ctd').AsFloat := vCtd.asFloat;
Datos.ItemsOCompra.FieldByname('descripcion').AsString := vDes.Text;
Datos.ItemsOCompra.FieldByName('vunit').AsCurrency := vUni.AsCurrency;
Datos.ItemsOCompra.FieldByName('vtotal').AsCurrency := vTot.AsCurrency;
Datos.ItemsOCompra.Post;

para eliminar un item de la tabla de memory debes usar

Código Delphi [-]
Datos.ItemsOCompra.Delete;

para traspasar los items de la tabla de memoria a la tabla de detalle de factura debes utilizar el sgte codigo (este ejemplo es usando Ado y SQL Server... que para acces debiera ser el mismo)

Código Delphi [-]
     // Para Almacenar Detalle de Orden
     Datos.ItemsOCompra.First;
     For i:= 1 to Datos.ItemsOCompra.RecordCount do
     Begin
          Datos.AQ_DOrden.Close;
          Datos.AQ_DOrden.SQL.Clear;
          Datos.AQ_DOrden.SQL.Add('Insert Into DOrden (Ord_Numero, Dor_Cantidad, Dor_Detalle, Dor_ValorUnitario, Dor_ValorTotal)');
          Datos.AQ_DOrden.SQL.Add('Values (:v01, :v02, :v03, :v04, :v05)');
          Datos.AQ_DOrden.Parameters[0].Value  := cNoc+1;
          Datos.AQ_DOrden.Parameters[1].Value  := Datos.ItemsOCompra['ctd'];
          Datos.AQ_DOrden.Parameters[2].Value  := Datos.ItemsOCompra['descripcion'];
          Datos.AQ_DOrden.Parameters[3].Value  := Datos.ItemsOCompra['vunit'];
          Datos.AQ_DOrden.Parameters[4].Value  := Datos.ItemsOCompra['vtotal'];
          Datos.aq_DOrden.ExecSQL;
          Datos.ItemsOCompra.Next;
     End;

Espero que esto te sirva...

Salu2