Facturación e Inventario

[[Caral]]

Paso 10:
Aqui esta el form de factura mas adelantado.
Como trabaja:
Al entrar en el form, este automaticamente genera un numero de factura nuevo.
La fecha de la factura se pone al dia.
Se busca el cliente con el boton buscar, con solo cerrar el form de clientes el codigo y el nombre de este se colocan en el form de facturar.
Lo mismo se hace con el articulo, se busca.
Se coloca la cantidad de este articulo, el precio unitario, en la casillas pequeñas de descuento e impuesto se colocan los porcentajes, este los calculara solo en la parte de abajo a la hora de guardar.
Una vez hecho esto se puede seguir colocando otros articulos con sus precios, descuentos etc, y guardarlos, esta sera la lista de la factura (varios articulos).
Con solo pasar a la parte de Resumen de factura, se podra ver cada uno de los articulos.
Para ver una factura ya hecha, simplemente se pone el numero de esta y se pasa al resumen.
Bueno, ya seguiremos.
Saludos

[silver07]

Muchas gracias Caral a esto me referia, anoche trabaje con los mantenimientos y el diseño de la factura pués hoy en cuanto llegue a casa continuaré aplicando los pasos 9 y 10, de momento todo marcha bien. La verdad que este proyecto me ha inspirado.


Muchas Gracias otra vez por tu tiempo.

[spia]

Tengo Una Duda Yo Utilizo Delphi 8.0 Pero No Trae Los Componentes Ado Alguien Me Puede Decir Donde Los Encuentro Gracias

[adan12]

Hola quien me puede pasar la base de datos completa para poder facturar y llenar cxp , cxc

[Casimiro Noteví]

Está aquí el proyecto completo.

[jtaquichiri]

Estaviendo el programa y esta bueno, quiero probarlo pero me falta otros componente aperte del que pusiste; lo quiero compilar en Delphi 7 y me pide Standardprinter

[Casimiro Noteví]

Como no te expliques claramente, nadie te va a entender

[[Caral]]

Paso 11:
Bueno ya el form de factura tiene cara, ya genera los totales, en base a la suma de los articulos que se le coloquen.
Hay que recordar que solo se necesita incluir al cliente y las condiciones una vez, en cuanto a los articulos, pues seran las veces que sea necesario, dependiendo de la venta, por supuesto.
Bueno aqui esta el form ya casi listo, lo unico que faltaria seria imprimir la factura, esto lo hariamos con Qreport, que es el que conozco.
Espero te este sirviendo y a alguien mas.
Saludos

[[Caral]]

Paso 12:
Creacion de la factura imprimida en qreport.
Bueno con este paso creo que ya esta mas o menos listo, por lo menos ya se puede entender un poco como funciona esto de la facturacion, hay otras, muchas otras maneras de hacer esto, pero he querido hacerlo lo mas sencillo posible para que se pueda empezar con delphi.
Espero haber cubierto tu inquietud silver07 y que te sirva a ti y a otros esta pequeña practica.
Saludos

[tenporal]

Saludos Caral, estaba viendo tu tutorial de facturacion y tengo una pregunta

¿ En donde debo instalar la carpeta con la bd?
¿ En donde debo tener el proyecto de delphi ?

[[Caral]]

Hola
Pues en realidad no me he puesto a pensar en eso, en cualquier lado supongo.
Simplemente en el Datamodule en el adoconnection le das la direccion que quieras.
Hay otra manera y es un archivo ini, si necesitas te lo explico.
Saludos

[[Caral]]

Hola
Como hay una pregunta del amigo tenporal con relacion a donde colocar la Base de datos y el Programa, he querido dar la opción de hacerlo con un archivo .ini como lo indique antes, me parece practico, asi que va.
Para empezar hay que hacer un archivo ini, Abrimos el block de notas y se coloca esto:

[BD]
Path="C:\Facturacion.MDB"
[Logon]
Auto="No"
Login=""
Pass=""

Se guarda en este caso con el nombre de BDatos.ini

Como ven aqui le estoy diciendo que la base de datos esta en C:\ y ya sabemos que se llama Facturacion.mdb, si queremos colocar la base de datos en otra carpeta o sub carpeta simplemente le cambiamos la direccion, ejemplo:

[BD]
Path="C:\Programa\MiCarpeta\Facturacion.MDB"
[Logon]
Auto="No"
Login=""
Pass=""

Como ven el resto queda igual, simple verdad.
Ahora vamos a hacer que nuestro programa lea este archivo.
Hay que tener en cuenta que el archivo BDatos.ini, tendra que estar en la misma carpeta que el programa.
Ahora abrimos el programa en Delphi, abrimos el datamodule, en el evento OnCreate del datamodule, ponemos esto:

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);// esta parte ya la pone Delphi
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');// aqui esta el nombre del archino ini
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB : Database Password=admin';
   ADOConnection1.ConnectionString := ConStr;
   ADOConnection1.Open;

end;

Ahora en el uses del mismo DataModule ponemos esto:

uses
SysUtils, Classes, DB, IniFiles, ADODB, Forms, Dialogs;

Y a funcionar, ahora cada vez que arranque el programa, buscara primero el archivo BDatos.ini, y se conectara a la base de datos, podeis poner la base de datos donde querais, siempre la encontrara, incluso en red, recordad poner el archivo ini en la misma carpeta donde este el programa.
Espero les sirva, la explicacion.
Saludos

[[Caral]]

Hola
Siguiendo mi politica de poner los archivos aqui esta el archivo ini, para que lo veáis, por si tenéis dudas.
Saludos

[tenporal]

Otra pregunta amigo Caral

¿Como evitas que el usuario teclee 2 articulos diferentes asignandole la misma clave del articulo?

Por ejemplo:

articulo: 1
Descripcion: Teclado

articulo: 1
Descripcion: Raton

En el modulo de articulos teclee estos 2 registros con la misma clave y me lo acepto sin problemas, pero no tendria aqui llaves duplicadas ¿como resuelvo esto?

Saludos

[[Caral]]

Hola
Supongo que te refieres al form de articulos, lo que quieres hacer es que el ID del articulo no se repita o no tenga uno igual en la tabla, si es asi.
Ya te respondo, un momento.
Saludos

[[Caral]]

Hola
Para seguir con esto y en base a preguntas que me han hecho, vamos a poner un login al proyecto.
Para empezar hay que añadir una tabla a la base de datos:

Tabla: Usuarios
Campos:
CodUsuario, Testo(15)
Nombre, Texto(50)
Clave, Texto(50)

Vamos a añadir el form (FLogin) que esta en el archivo.
Vamos a Project, options, y vamos a cambiar en Main Form, por FLogin, con esto el programa buscara primero este form.

Bueno, creo que no tendreis problemas.
Saludos

[advicur]

Que tal!!
He tratado de bajar el tutorial de http://www.terawiki.clubdelphi.com/D...in32/Ejemplos/ pero me marca error hay algun otro lugar de donde lo pueda bajar.

Saludos y de antemano gracias.

[[Caral]]

Hola
Hay algunos problemas con la dirección, se están solucionando, no puedo confirmar para cuando este listo, pero se esta en eso.
Saludos