Guardar registros de facturacion en base de datos access
 

Saludos amigos,

Tenia una incógnita, cuando hacemos un programa que tiene un modulo de facturación, y esos registros de facturas quieren guardarlos luego, como le hacen para que el campo que dice descripción, cantidad y precio unitario, sean independientes y se pueda guardar en un registro de la base de datos, porque ya saben que a veces se pueden facturar hasta tres cosas, cual seria la mejor forma de hacerlo?

Saludos, Gracias. :confused: :) :)

Hola
Hay muchas formas de hacerlo.
Te aconsejo que veas ESTE tutorial de facturación que hice para novatos y cualquier duda la puedes comentar aqui.
Saludos
Nota: con vuestro permiso.

Caral
 

Vi el Tutorial, pero hay muchas cosas que no puedo hacerlas igual, porque hay muchas cosas que en este programa no iran, como el impuesto, itebis, sub-total, etc.

Me gustaria ir paso a paso contigo adaptandolo al mio, crees que me puedas ayudar?, ya lo iba intentando pero no tengo un basto conocimiento de delphi y por lo tanto no pude, crees que sea posible que me ayudes?

Es sos, tengo que hacerlo antes del jueves :( :confused:

Imagina que estudias medicina y vienes preguntando: "¿cómo se hace una operación de corazón y de cerebro?", por favor, ayúdenme rápido, que el jueves tengo que operar a un paciente. :eek:

Que nadie caiga en tus manos ;)

Gracias
 

Gracias, tu sarcasmo es muy Motivador :) :D

Es que tu pregunta es muy ambigua y tiene una contestación muy amplia que depende de infinidad de factores. Deberías de "acotar" exactamente lo que necesitas, porque un módulo de facturación puede ser algo tan básico como una simple tabla o una gestión completa. De lo primero a lo segundo hay una diferencia enorme.
Básicamente lo que tú quieres son 2 tablas, una de cabeceras (resúmenes, maestro, o como quieras llamarla) y la otra de líneas de facturas (detalles, cliente, o como quieras llamarla)

Tabla cabecera, con los campos: id, numero, fecha, cliente, ...
Tabla lineas, con los campos: id, id_cabecera, articulo, cantidad, precio, ...

Así cada cabecera tiene un id único, y las líneas enlazan con su cabecera mediante el campo id_cabecera.

Eso es lo más básico. A partir de ahí, todo lo que quieras.

Error en Codigo SQL en consulta a base de datos Access
 

lo he intentado adaptar a mi programa y asi es mas o menos como me quedo, pero me da un error: Error de Sintaxis en la instrucción INSERT INTO

la tabla de datos esta en access y tiene los siguientes campos:
CodFactura
fecha
CodCliente
CodArticulo
Descripción
Cantidad
MontoTotal

el código es el siguiente:

Código Delphi [-]
Var
  a,b,c : real;
begin
 a:= StrTofloat(cantidad.Text);
 b:= StrTofloat(preciounitario.Text);
 c:= a * b;
 total.Text:= floatToStr(c);
 qry1.SQL.Text := 'Insert into Factura values ('+QuotedStr(CodFactura.Text)+', :fecha, '+QuotedStr(CodCliente.Text)+ ', '+QuotedStr(CodArticulo.Text)+ ', '+Descripcion.Caption+ ', '+
             QuotedStr(Cantidad.Text)+ ', '+QuotedStr(Total.Text);
 qry1.Parameters.ParamByName('fecha').Value:= DateToStr(Dtp1.Date);
 qry1.ExecSQL;

end;

Por favor, no abras otro hilo para seguir con el mismo tema, gracias.

Es diferente, pero ok Carimiro, Por lo menos responde si puedes.

Cambía el código:

Código Delphi [-]
qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodClient, CodArticulo, Descripcion, Cantidad, MontoTotal) '+
  'VALUES (:CodFactura, :Fecha, :CodClient, :CodArticulo, :Descripcion, :Cantidad, :MontoTotal)';
qry1.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.ParamByName('CodClient').AsString := CodClient.Text;
qry1.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.ParamByName('Descripcion').AsString := Cantidad.Text;
qry1.ParamByName('MontoTotal').AsString := Total.Text;
qry1.ExecSQL;

Así indicas exactamente cuales campos quieres insertar (los nombres entre paréntesis antes del VALUES) e insertas los valores usando parámetros (los nombres de campo con el ":" delante).

Por otra parte, si lo que quieres es guardar una factura, vas por el mal camino. Tal cómo te ha dicho Casimiro, debes usar dos tablas distintas:
- Factura, con los valores CodFactura, Fecha y CodCliente
- LíneaFactura, con los valores CodFactura (para enlazar con la tabla Factura), CodArtículo, Cantidad y Total.

De esta forma, una factura puede tener muchos productos, y tal cómo lo has hecho tu, cada factura sólo puede tener un producto de venta. Por otra parte, creo que deberías guardar en la línea de la factura el precio del producto, pero esto es lo de menos.

Hombre, si estás hablando del tutorial de Caral y haces una pregunta sobre el código del tutorial de Caral, entonces es el mismo tema :)
Por cierto, no es código SQL, es Delphi ;)

Para poder ayudarte con el error, tendría que saber exactamente el contenido de esas variables y componentes, porque seguramente ahí está el error, por ejemplo (por intentar adivinar algo), que un valor numérico lleva la coma decimal, eso variará la sentencia.

Cuando tengas que pasar valores a una sentencia sql desde delphi, lo ideal es hacerlo con parámetros, en lugar de componer toda la sentencia, te ahorrarás errores y dolores de cabeza.

EDITO: tal y como ha explicado mcs

tengo 3 tablas, la del cliente, la del articulo y la de factura, entones cual seria la forma correcta de hacerlo?

Observa
Cliente
CodCliente
Nombre
Telefono
Celular
Direccion
E-mail

Articulo
CodArticulo
Fecha
Descripcion
Cantidad
Precio de Venta

Factura
CodFactura
Fecha
CodCliente
CodArticulo
descripcion
Cantidad
total

Como lo haria?

Cliente y Artículo es correcto. Lo que tienes que separar es factura y línea factura, tal cómo te he dicho antes:

- Factura, con los valores CodFactura, Fecha y CodCliente
- LíneaFactura, con los valores CodFactura (para enlazar con la tabla Factura), CodArtículo, Cantidad y Total.

Me da este error:
[Error] Unit7.pas(133): Undeclared identifier: 'ParamByName'
[Error] Unit7.pas(133): Missing operator or semicolon

y Luego? soy novato:

entonces serian 4 tablas?

Hola
no llevo el siguimiento de lo que estas o quieres hacer.
lo mejor es poner en un zip el programa como lo tienes con la bd incluida y dar una explicacion detallada de lo que necesitas.
saludos

No sé qué componentes usas. Podría ser que entre el qry1 y el ParamByName debas incluir "Parameters". O sea:

Código Delphi [-]
qry1.Parameters.ParamByName("variable").AsString := valor;

Y respecto a lo de "y después", pues no sé... Creo que estás empezando la casa por el tejado. Si quieres aprender bién, descargate "La Cara Oculta de Delphi 6" (http://commanet.blogspot.com.es/2010...-delphi-6.html) y estudíatelo a fondo. Así aprenderás cómo funciona Delphi, el acceso a datos y las bases de datos.

feliz-58, lo de "soy novato" es la excusa típica. Así no se aprende, porque se supone que quieres aprender, tienes que mirar código, leer, escribir, probar, dedicar una cantidad casi infinita de tiempo. Ya digo, suponiendo que quieras aprender porque vayas a dedicarte a estas cosas.

Lo que pretendes es como querer aprender a nadar sin tirarte al agua, es imposible. O aprender a montar en bicicleta sin montar en bicicleta. No se puede.

cuando yo lo publico es que estoy arto de probar y probar y no llego a la solución, no me rindo tan fácil pero cuando pongo algo que no entiendo es porque he buscado y no encuentro!

puse lo de novato porque cuando te explican la solucion no son tan explicitos con los terminos, y por lo tanto tengo que a la solucion buscarle las mil y una formas para usarla!

Gracias!

aqui esta el proyecto, es en el form de facturacion.

Mi proyecto

este codigo en el boton de guardar

Código Delphi [-]
Var
  a,b,c : real;
begin
 a:= StrTofloat(cantidad.Text);
 b:= StrTofloat(precio.Text);
 c:= a * b;
 total.Text:= floatToStr(c);
 qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodCliente, CodArticulo, Descripcion, Cantidad, Total) '+
  'VALUES (:CodFactura, :Fecha, :CodCliente, :CodArticulo, descripcion, :Cantidad, :Total)';
qry1.Parameters.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.Parameters.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.Parameters.ParamByName('CodClient').AsString := CodClient.Text;
qry1.Parameters.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.Parameters.ParamByName('Descripcion').AsString := lbl9.Text;
qry1.Parameters.ParamByName('Cantidad').AsString := Cantidad.Text;
qry1.Parameters.ParamByName('Total').AsString := Total.Text;
qry1.ExecSQL;
end;

gracias

He descargado tu proyecto, lo he mirado todo y te digo lo mismo que te ha dicho Casimiro: no puedes hacerlo.

Tu nivel de programación es nulo. Tu nivel de conocimientos de bases de datos es nulo.

Hazte un favor y leete La Cara Oculta de Delphi, ya sea el 4 o el 6. Son gratuitos, y aprenderás un montón.

Porqué la verdad, tirando componentes a un formulario y copiado código no vas a aprender nada. Yo (y gran parte de la gente que está por aquí) te podemos decir todas las tablas, procedures, clases, funciones y demás que necesita un programa de facturación, pero no te servirá de nada.

Ah, en el proyecto que has subido al SkyDrive no hay la query de inserción de facturas.

Y una primera lección, y MUY importante: pon nombres claros a TODO lo que uses: units, clases, dbedits, botones, etc! Sinó, dentro de cuatro días no sabrás que era el dbedit1, el label5 o que hay en unit7.pas.

Saludos, y buenas noches.

Hola
No se si baje el correcto o no el asunto es que me indica que la BD Usuarios no esta.
Saludos

Así a la rapida, detecto un error en la sentencia...

Código Delphi [-]
Var
  a,b,c : real;
begin
 a:= StrTofloat(cantidad.Text);
 b:= StrTofloat(precio.Text);
 c:= a * b;
 total.Text:= floatToStr(c);
 qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodCliente, CodArticulo, Descripcion, Cantidad, Total) '+
  'VALUES (:CodFactura, :Fecha, :CodCliente, :CodArticulo, descripcion, :Cantidad, :Total)';
qry1.Parameters.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.Parameters.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.Parameters.ParamByName('CodClient').AsString := CodClient.Text;
qry1.Parameters.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.Parameters.ParamByName('Descripcion').AsString := lbl9.Text;
qry1.Parameters.ParamByName('Cantidad').AsString := Cantidad.Text;
qry1.Parameters.ParamByName('Total').AsString := Total.Text;
qry1.ExecSQL;
end;

Estas asignando un valor al parametro "Descripcion", el cual no existe ya que en el sql no esta precedido de los ":"...

Deberia ser:

Código Delphi [-]
 qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodCliente, CodArticulo, Descripcion, Cantidad, Total) '+
  'VALUES (:CodFactura, :Fecha, :CodCliente, :CodArticulo, :descripcion, :Cantidad, :Total)';
qry1.Parameters.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.Parameters.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.Parameters.ParamByName('CodClient').AsString := CodClient.Text;
qry1.Parameters.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.Parameters.ParamByName('Descripcion').AsString := lbl9.Text;
qry1.Parameters.ParamByName('Cantidad').AsString := Cantidad.Text;
qry1.Parameters.ParamByName('Total').AsString := Total.Text;
qry1.ExecSQL;
end;

Saludos cordiales

Caral
 

Caral, aqui esta la BD de usuarios. Espero tu respuesta. Gracias

Excelente comentario, no se nada, nunca dije que supiera, no es mi intención hacer saber que se, me imagino que debes ser un genio, y me alegra, porque si no hubieran personas como tu, las personas como yo no sabríamos hacer nada :) gracias!


Suerte amigo! :D

Hola
Ya lo puedo ver, que quieres hacer ?
Saludos
Nota: Con precisión.

Gracias
 

Simplemente, en el form de facturacion, quiero hacer las facturas de los diferentes articulos y de los diferentes clientes que pueda tener "lo común" el asunto es que hay muchas cosas que no tendré que usar, como Sub total, impuestos, descuentos,etc. solo lo que tengo en las bases de datos y algo esencial que tu creas que falte.

ese es el asunto. intente seguir tu tutorial pero como esas cosas no van se me complico un poco.


Saludos :)

Hola
Primero sácame de una duda
para que dos bases de datos ?
saludos

pensaba hubicar la de usuarios en otro directorio, cuando terminara el programa solo era re ubicar.

Hola
No voy a poder probar el programa porque usas componentes de botones que yo no tengo asi que iremos poco a poco.
Para empezar no pretendas mucho de mi, no soy programador solo es un hoovi y hay muchos aqui que saben mucho mas que yo.
Para empezar deberías replantearte el programa la logica no es buena, entiendo que estés empezando pero mejor empezar bien.
Yo lo primero que haria seria :
1- eliminar todos los adoconnection de los form y dejaria solo el del datamodule.
2- pondria un archivo ini para localizar la base de datos.
3- crearia una tabla de facturaItem que tendria los articulos de venta, independientemente de la tabla factura.
4- pondria la tabla usuarios en la misma bd, no entiendo la razon de ponerla en otro lado.
tal vez digas que no es lo que necesitas, pero creeme, si no cambias lo que estas haciendo vas a hacer un escabeche.
Es solo mi opinion.
Saludos
PD: Si tienes dudas en los puntos que te comento lo podemos ver uno a uno.

reorganizare todo y luego te enseño.

Gracias por la ayuda :)

Hola
Para poner el archivo INI puedes ver este tutorial que hice, te servira de ejemplo, es muy sencillo.
Saludos

listo, paso 1 y 2 ahora vamos al tres, que se tomarían en cuenta en esa tabla?

Hola
En la tabla factura se usa:
Fecha
Numero
CodCliente
Terminos
Vendedor (si existe)
FormaDePago (tarjeta, contado, etc)
Total
En la tabla Items de fatura:
Codfactura (numero)
CodProducto
Cantidad
Precio (en ese momento ya que puede variar)
Con esto que se gana ?.
Primero la tabla factura solo contiene detalles importantes, ademas de tener un consecutivo que es importante.
Luego en la tabla FacturaItems se tienen los detalles que se necesiten de la factura.
Es mas limpio y a la hora de hacer reportes etc se complica menos esto.
saludos

ok en la de factura ya tengo lo siguiente:
CodFactura
Fecha
CodCliente
Terminos
Vendedor
Formadepago
Codarticulo
total

y en facturaitem
Codfactura
CodProducto
Cantidad
Precio

que sigue?

Hola
Bueno, necesitaria el archivo con los cambios que as hecho para poder ver el codigo funcionando, es la unica forma en que te podria ayudar, probandolo.
Tambien necesitaria los componentes que le pusiste al proyecto sin estos no lo puedo poner a correr.
saludos

ahora te lo envio :)

Valla que paciencia caral, en realidad para un novato solo otro novato tiene tanta paciencia y dedicación.

aqui esta, pero despues de que conecte las tablas al adoconection del modulo me dice que faltan conexiones :S :confused:

Chequea.

acá el enlace:
archivo

parece que el unico interezado en ayudarme es caral :S :(