Mi programa de facturación paso a paso

[Delphitest]

Buenas tardes a tod@s,

os cuento por donde voy en este momento.

En primer lugar para no ocupar espacio en el foro voy a subir los ficheros a través de rapidshare, lo ultimo que tengo hecho está aquí:

http://rapidshare.de/files/36976866/Gesatrans.zip.html

- He añadido un campo F_Pago a la base de datos, se me había pasado y creo que lo voy a necesitar. Para mostrarlo en el Form he utilizado el DBComboBox que parecía el mas apropiado.

- Recorriendo foros y articulos he encontrado la forma (muy sencilla por cierto) para que el usuario no pueda cambiar el tamaño de la ventana, solo lo he aplicado a Clientes añadiendo este código en el evento OnCreate:

procedure TForm2.FormCreate(Sender: TObject);
begin
  Constraints.Minheight := Height;
  Constraints.Maxheight := Height;
  Constraints.Minwidth := Width;
  Constraints.Maxwidth := Width;
end;

- Por otra parte, y esto es lo que me está empezando a traer de cabeza, necesito un sistema sencillo pero completo de busqueda que me permita localizar un cliente por su razon social o nombre comercial, pero con algo que haga la comprobación de "contiene" sin necesidad de que coincida al 100% con el contenido del campo. Solo he conseguido de forma muy sencilla buscar a traves del código de cliente, que resulta ser el campo clave de la BD, ha sido con esto creando un botón y metiendo este código en el evento onClick:

procedure TForm2.BitBtn1Click(Sender: TObject);
var Buscar:Integer;
begin
Buscar:=strtoint(inputbox('Buscar Cliente','Indique el código de cliente','1'));
if Not Table1.FindKey([Buscar]) then
messagedlg('Código inexistente',mtConfirmation,[mbok],0);
end;

¿Se os ocurre algo para lo que necesito de la busqueda ?
(si se resolviese dentro de este mismo form sería lo mejor )

Hasta aquí he dado de sí hoy, por cierto Caral, he probado lo que ponías par buscar pero no hay manera, no lo hago funcionar y me da errores que no consigo solucionar.

Hasta la próxima y gracias

[[maeyanes]]

Empezado por Delphitest

- Recorriendo foros y articulos he encontrado la forma (muy sencilla por cierto) para que el usuario no pueda cambiar el tamaño de la ventana, solo lo he aplicado a Clientes añadiendo este código en el evento OnCreate:

Esto mismo lo puedes lograr estableciendo la propiedad BorderStyle de la forma en bsSingle.

- Por otra parte, y esto es lo que me está empezando a traer de cabeza, necesito un sistema sencillo pero completo de busqueda que me permita localizar un cliente por su razon social o nombre comercial, pero con algo que haga la comprobación de "contiene" sin necesidad de que coincida al 100% con el contenido del campo. Solo he conseguido de forma muy sencilla buscar a traves del código de cliente, que resulta ser el campo clave de la BD, ha sido con esto creando un botón y metiendo este código en el evento onClick:

...

¿Se os ocurre algo para lo que necesito de la busqueda ?
(si se resolviese dentro de este mismo form sería lo mejor )

Tienes varias opciones, una es el método Locate de TTable, busca en la ayuda de Delphi para más información...

Otra opción sería mediante un query LIKE, algo como:

Código SQL [-]
SELECT * FROM Tabla WHERE Campo like '%texto%';

Saludos...

[[David]]

hola

Me he bajado los recursos traducidos de David Esmeralta , y funcionan bien en Delphi 7 , pero no así en Delphi 5 . Mi pregunta es si para Delphi 5 , teneis algo por el estilo .

Un saludo

[[David]]

Mira , este procedure :

Código Delphi [-]
procedure TForm1.SalirdeGesatrans1Click(Sender: TObject);
begin
   if MessageDlg('¿ Seguro que desea salir del programa ?',
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     Application.Terminate;
end;

lo debes de cambiar por este :

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('¿ Seguro que desea salir del programa ?',
     mtConfirmation, [mbYes, mbNo], 0) = mrNo then
     CanClose := False;
end;

Es decir te vas al evento OnCloseQuery del Form y escribes el código que he puesto yo .

[[AzidRain]]

Creo que llego tarde al hilo pero espero que mis comentarios te sirvan.

Yo tb estoy desarrollando una aplicacion gestión de transporte solo que para el mercado mexicano, aunque en teoría es muy similar cualquier otro país.

Creo que antes que escribir el primer begin debiste haber hecho un análisis a detalle de lo que quieres hacer:

1.-Va a servir para cualquiera, para algunos cuantos clientes tuyos o solo para uno.
2.- Correrá en un solo equipo o distribuido en redes
3.- Con acceso a datos via internet o no
4.- Como vas a imprimir los reportes (Quick Report, FR, Rave, etc.)
5.- Si la impresión de las facturas será en matriciales, ya tienes lo necesario para manejarlas (no nada mas es crear un reporte y ya)
6.- Que ofrecerá tu sistema (o tu creatividad) que no ofrezca ya algún otro en el mercado (por ejemplo facturalux)
7.- En que tiempo (razonable) lo quieres terminar
8.- Lo haras tu solo o en equipo (por aquello de los CVS)

Una vez hecho lo anterior, hay que definir que tipo de base datos usar:

1.- Tablas Planas (Paradox)
2.- Firebird, MySQL o Postgress (y tb que componentes: ADO, Zeos, etc.)
3.- Interbase
4.- MS-SQL Server

Hasta aqui ya es un buen de trabajo y todavía no sale el código. Pero viene lo bueno: El análisis del sistema en si, en donde tendrás que usar por lo menos diagramas de flujo sencillos y para el caso de que uses bases de datos, tendrás que preparar tu modelo E-R y sus correspondientes diagramas.

Faltaría pensar en el diseño de la Interfase de usuario (si vas a usar estilo Office, MDI, etc.) para que tu programa sea consistente, es decir, se vea igual en cualquier parte y no "parchado".

Bueno y todo esto para que: Pues para que cuando empieces con el código todo sea coser y cantar, solamente trasladar lo que ya razonaste previamente a la forma como quieres que tu programa lo ejecute. Esto te evitará tener que reescribir código o re-diseñar las tablas porque a medio programa te diste cuenta que te hace falta un campo o cambiar algún tipo de datos.

Todo esto te permitirá tener una aplicación sólida, fácil de mantener y sobre todo fácil de hacerla crecer.

Antes a mi me pasaba la clásica "impaciencia de programador" y empezaba a programar solo con la idea principal, excuso decirte los dolores de cabeza que me creaba yo solo y sobre todo cuando tenía que volver a código de hace 1 o 2 años...


Tengo ya algo avanzado, si te intesa podemos ir desarrollando los pasos en algun hilo o en este mismo para que sirva de tutorial para quien lo desee o bien solo para intercambiar opiniones.

Saludos

[Delphitest]

Buenos días,

gracias Marcos por tus comentarios, anda que no enterarme antes de la propiedad BorderStyle tiene delito , logicamente he optado por retirar esas líneas que tenía de código y hacer esto que dices, algo mas que tengo aprendido.

Para la busquedad estoy pensando en optar por el uso de Locate, otra cosa es que de con ello, la verdad es que la ayuda de delphi no me está sirviendo para esto. Espero que a través de ejemplos que encuentro por ahí en los foros de con algo que me ayude a solucionarlo, en ello ando todavía y cada minuto con un nuevo error, menos mal que antes de hacer modificaciones me he acostumbrado a hacer copias de seguridad de todo.

AzidRain, antes de empezar si que he hecho un "esquema" intentando tener claro lo que necesito realmente y mas que nada por el tema de las bases de datos y campos necesarios.

Gracias a tus palabras he descubierto que estoy trabajando con tablas planas, te contesto por encima a esas cosillas:

1.-Va a servir para cualquiera, para algunos cuantos clientes tuyos o solo para uno.

Realmente soy el propio cliente, es un programa para uso propio.

2.- Correrá en un solo equipo o distribuido en redes

Inicialmente en un solo equipo, a la larga quizas interese que funcione en red, pero no es algo que necesite por ahora.

3.- Con acceso a datos via internet o no

Esto ya lo tengo claro, no tendrá acceso via intenet.

4.- Como vas a imprimir los reportes (Quick Report, FR, Rave, etc.)

Tendré que mirar lo que mas facil me resulte de hacer, no he llegado a este apartado todavía y la verdad no se que diferencias hay.

5.- Si la impresión de las facturas será en matriciales, ya tienes lo necesario para manejarlas (no nada mas es crear un reporte y ya)

La impresion es en laser

6.- Que ofrecerá tu sistema (o tu creatividad) que no ofrezca ya algún otro en el mercado (por ejemplo facturalux)

Es un programa totalmente a medida, algunas partes si servirán para cualquier otro programa de facturacion, pero en general quiero algo que se adapte a las tareas que hacemos a diario no algo generico.

7.- En que tiempo (razonable) lo quieres terminar

Como se suele decir, sin prisa pero sin pausa. No tengo plazo en mente pero considero que 3 meses sería razonable aunque luego necesite algun retoque sobre la marcha.

8.- Lo haras tu solo o en equipo (por aquello de los CVS)

Por desgracia yo solo, aunque cualquier mano amiga será bienvenida

Tengo ya algo avanzado, si te intesa podemos ir desarrollando los pasos en algun hilo o en este mismo para que sirva de tutorial para quien lo desee o bien solo para intercambiar opiniones.

Es la idea inicial de este hilo, si, por supuesto que me interesa compartir la experiencia aunque ni nivel es realmente bajo pero por falta de interés y trabajo que no quede, le hecho muchas horas y empeño, no lo hago por diversión sino por necesidad y eso me motiva bastante y me obliga a tirar para adelante.


Que tengais un buen día

[Delphitest]

Lo tengo casi pero ....


He creado un Form3 para la busqueda y tengo una pequeña duda, bueno dos:

He apañado el código que amablemente me ha facilitado Caral:

 
procedure TForm3.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Table1.Filtered := False;
      Filtro := 'Nombre_Cial ='+QuotedStr(Edit1.Text);
      Table1.Filter := Filtro;
      Table1.Filtered := True
   end
   else Table1.Filtered := False;
end;

Y con ello consigo realizar una busqueda o filtro de un DBGrid que he puesto, la gran pregunta es:

El operador "=" requiere que mi texto de busqueda sea identico al del campo "Nombre_Cial" pero prefiero que coincidan los primeros caracteres a medida que los escribo, he probado con Like y no lo reconoce supongo que es por el motor de bases de datos que uso.

¿Que operador puedo poner para que funcione?

Tambien he probado añadiendo un +'*' detras de (Edit1.Text) pero tampoco funciona.

Por otro lado no acabo de entender esto de trabajar con diferentes Form, veo que son totalmente independientes por defecto, o sea que en este último he tenido de nuevo que indicar DataSource y Table y cuando selecciono en el DBGrid el registro que me interesa no me lo tiene en cuenta en el Form2 (que es el de clientes). Supongo que esto será algo sencillo pero lo desconozco por el momento.

Gracias de nuevo por vuestra ayuda

[[Lepe]]

La propiedad Filter no admite comodines, aunque existen trucos, es bastante incómodo, resulta más eficiente una consulta (TQuery).

Respondiendo antes a tu segunda pregunta:
Existen los TDatamodules, que son contenedores de objetos no visuales, es decir, no puedes situar un Edit, pero si un TTable, TDatasource, etc. La idea consiste en Crear un TDatamodule, al guardarlo le das el nombre a la unidad (dmClientes) y a la ventana del Datamodule, en su propiedad Name indicas DTMClientes.

Sitúas la tabla clientes y su TDataSource en dicho datamodule y si lo necesitas en el Form1 y Form2, haces lo sigueinte:

Código Delphi [-]
Unit Unit1; // este es el Form1

interface
  uses windows, messages, etc.... , DmClientes;
...

Cuando en Form1, en el Inspector de Objetos eliges el DBGrid.DataSource, si apararece el DataSource de Clientes para elegirlo.

Hecho esto, puedes situar un TQuery en dicho Datamodule (qryClientes), en el OnCreate del Datamodule añades:

Código Delphi [-]

qryClientes.sql.text := 'Select * from Clientes where Nombre like :prNombre order by Nombre';
if not qryClientes.Prepared then qryClientes.Prepare; // agilizar la consulta en futuras llamadas.

Ya en tu Form de búsqueda, en el OnKeyUp de tu Edit (que busca por nombres), solo tienes que hacer:

Código Delphi [-]
procedure TFormX.Edit2KeyUp(....);
begin
  if Key = vk_return then 
  with dtmClientes.qryclientes do
  begin
     Close;
     ParambyName('prNombre').AsString := QuotedStr(Edit2.text+ '%');
     Open;
  end;
end;

Con eso consigues que estando en el Edit2, al pulsar la tecla Enter/return, se obtengan todos los registros que empiezan por ese texto.

Para que busque en cualquier parte del nombre, puedes añadir:

QuotedStr('%'+Edit2.text+ '%');

es decir, otro comodín al principio del texto.

Saludos

[kalimero]

Hola DelphiTest.
Bueno sobre tu elección de Paradox como BD para tu sistema, te diré que para mi es una mala elección. El BDE hace tiempo que Borland dejó de darle soporte.
Tambien comentas que de momento no va a funcionar en red. Pues bien, el dia que te necesites que funcione varios equipos te va a costa dios y ayuda cambiar de BD. Yo hubiera elegido, sin ninguna duda, Firebird. Es un potente servidor de Bases de datos que ademas te permite trabajar en modo "embebido" es decir, si de momento va a trabajar en un solo equipo, con una sola Dll tienes toda la potencia y funcionalidad del motor Firebird pero sin la necesidad de instalar el servidor.

http://www.firebirdsql.org/

Por otro lado te recomiendo que procures usar modulos de datos para poner todos los componentes que utilices para acceder a base de datos. Es decir, intentar que en los formularios (que son la interfaz del usuario) no haya ninguna referencia a tal ocual sistema de BD. Esto te facilitará el trabajo ante cualqiuer cambio referido a BD que hagas en el futuro.
Bueno espero que te sirvan de ayuda mis comentarios.
Saludos.

[Delphitest]

Gracias a los dos por vuestra ayuda.

Buena idea eso de los modulos, es lo que mas o menos estoy buscando y seguro que me resulta util para este programa, asi no indico en cada form la base de datos y tabla con la que voy a trabajar.

Repasaré este código Lepe y seguro que saco algo en claro.


Por otro lado Kalimero, esto que dices del Firebird creo que tienes toda la razón del mundo, varias personas me lo han comentado desde el primer momento pero no he sabido por donde empezar con ello.

Aunque parte de lo hecho se vaya al traste quizás sea mejor que me encamine de nuevo usando ese motor para evitar posibles problemas mas adelante y sea peor que intentarlo ahora.

Mi problema va a ser el de siempre. Me he descargado la version 1.5... del link que me has indicado, lo he instalado en su opción de superserver y resto de herramientas, no se si es la que necesito o no, ahora viene lo bueno. Todos los manuales que hay en la web vienen en inglés por no cambiar la costumbre y no se por donde empezar.

¿Mi base de datos de antes me sirve ahora (la puedo convertir)?

Aunque lo haya instalado no veo nada tipo el DataDesktop que me sirva para crear las tablas excepto una ventana que espera comandos.

Dentro de delphi, uso la version 7, que cambia a la hora de insertar por ejemplo BDEdit, BDSource, Table ... ¿hay que usar otras opciones supongo?

Si estaba un poco bloqueado con las busquedas esto ya supone un muro de hormigon delante de mi, espero aprender algo que me permita seguir sino tendré que regresar a lo que tenía

Un saludo

[kalimero]

Bueno, no te apures poco a poco.
En primer lugar creo que es preferible que pierdas ahora un poco de tiempo cambiando a Firebird que no despues que te va a costar el doble.
Tu base de datos si que te sirve, no lo he necesitado nunca pero hay herramientas que te convierten tu base de datos Paradox, en una Firebird. En cualquier caso siempre la pudes crear desde cero.
Lo que tu te has instalado es el motor d Base de datos. Para gestionar y administrar la bases de datos necesitas una herramienta de administración. Hay muchas, y como siempre unas de pago otras opensource.
El IbExpert está muy bien. Es de pago pero tienen una version de pruebas:

http://www.ibexpert.com/

Esta otra es Gratis. La baje el otro dia y ahora mismo la estoy probando.
Se llama SqlHamer y la tienes aquí:

http://www.devrace.com/

Y aprovechando que te bajas el "SqlHammer", te bajas tambien los componentes para acceder a Firebird desde Delphi. Son los "FibPlus"

Por cierto. Mira en esta pagina ,también, por su hubiera alguna herramienta para convertir BD's Paradox en BD,s Firebird.

Saludos

[Angel Fernández]

Citado por Caral "El que uso se llama Constructor es muy pequeño y facil de usar."

Caral, ¿podrías dar mas detalles de ese tal Constructor para crear ventanas de mensajes? ¿Pag web donde encontralo, enlace, autor, algo para descargarlo? Es que sólo con constructor salen miles de entradas en google.

Gracias

[scott216]

como creo un login con:
dos edit en uno un nombre como scott= edit1 y el otro la clave como dilania=edit2 estao es el nombre y la clave fija del login. como ago esto en el programa osea los codigos
un boton aceptar y otro salir

[[Delphius]]

scott216, ¿tuviste en cuenta lo que he dicho antes?
La respuesta la tienes a unos pocos clic aquí. Por favor te sugiero que busques primero ya que el tema se ha tratado en reiteradas ocasiones.

Saludos,

[TBRamon]

Algun enlace de donde descargar la ultima version?

[Casimiro Noteví]

Debe estar en el ftp de clubdelphi, échale un vistazo.

[TBRamon]

Gracias, pero lo que aparece en el FTP es una version de los inicios, quizas cuando iban por el post 10.

[Casimiro Noteví]

Empezado por TBRamon

Gracias, pero lo que aparece en el FTP es una version de los inicios, quizas cuando iban por el post 10.

¿Seguro?, qué raro.