Hola Epenor
estaba mirando tu estructura y le falta algo, asi que te sugiero que debiera ser como sigue...
Cita:
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
[-] 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
