DBGrid como detalle de Factura.

[epenor]

Empezado por Neftali

Revisa la Guía de Estilo de los foros.

Ok Neftali, lo que pasa es que estoy un poco apurado con esto y sólo queria que alguien me guiara en esto. Mi idea es publicar la aplicacion aqui porque he recibido mucha ayuda aqui.

Saludos.

[[Caral]]

Hola
Un ejemplo del uso de botones en vez del DBNavigator.
Saludos
PD: El ejemplo no permanecerá mucho tiempo aquí, por asunto de espacio.

[epenor]

Gracias caral. probare y en unos minutos respondo, estaré online todo el dia.

saludos.

[[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

[[BlueSteel]]

Te dejo una imagen de como tengo un Formulario según lo que te describí... si bien se trata de una Orden de Compra, el Modulo de Facturación lo estoy tratando de la misma forma, pero el ejemplo de Facturación lo tengo con Interbase....

Form Orden de Compras

Bueno, si te fijas bien, tanto la cantidad como el precio unitario de los articulos los trabajé con decimales y para eso el componente JvValidateEdit es genial...

Salu2

[lKinGl]

Salu2

me parece que es mas fácil si crea una tabla exactamente igual a factura con otro nombre para usarla como temporal, la enlazas a tu aplicacion y luego al momento de agregar un artículo a la factura que este se grabe en la tabla temporal y se liste en tu dbgrid mediante un datasource



espero te sea de utilidad

[[Caral]]

Hola
Me falto la opción de borrar o eliminar un registro.
Bueno, aunque sea muy sencillo, aqui lo dejo.
Saludos

[epenor]

BlueSteel:

Muchas gracias por las ideas y correcciones, ahora la cosa está mas clara lo unico que no veo son esos controles en mi delphi 7. Por qué tendria que usar el campo correlativo en la tabla dfactura? no basta con el codigo de factura simplemente? creo que trabajaré con una tabla temporal mientras tanto.

Caral, gracias nuevamente.

[[BlueSteel]]

Empezado por epenor

BlueSteel:

Muchas gracias por las ideas y correcciones, ahora la cosa está mas clara lo unico que no veo son esos controles en mi delphi 7. Por qué tendria que usar el campo correlativo en la tabla dfactura? no basta con el codigo de factura simplemente? creo que trabajaré con una tabla temporal mientras tanto.

Caral, gracias nuevamente.

la idea de un correlativo es para identificar el registro dentro de una tabla detalle, es decir, diferenciar uno de otro.... a medida que vas insertando registro se va incrementando el numero de registro y tambien te sirve para tener un orden....

tambien conservas la posición de como se ingreso en la factura...

Las paletas y controles que faltan en tu delphi 7 es por que tienes que instalar el Jedi... jvcl jcl.... descargala e instalala...

Si tienes problema avisa....

y si puedes utiliza la tabla de memoria....

Salu2