Mi programa de facturación paso a paso

[kalimero]

Hola.
Con que lo escribas el codigo en un evento es suficiente. Despues vas a cada edit y en el evento "Onchange" asignas el que has escrito que estará en la lista.
Saludos

[kalimero]

Por cierto. ¿Para que repites los filtros en cada evento del "OnChange"?
Coloca en cada Evento el que corresponda

Saludos

[Delphitest]

Perfecto Kalimero, gracias.

He dejado solo el del Edit1 y he hecho es que dices, funciona perfectamente.

Ya decía yo que tenía que haber un truco sencillo para ello, tomo nota para próximas veces

kalimeroPor cierto. ¿Para que repites los filtros en cada evento del "OnChange"?
Coloca en cada Evento el que corresponda

Saludos

He hecho tantas pruebas que al final es lo único que parece que funciona. A cada vez que se pulsa una tecla estes en la casilla que este tiene que 'refiltrar' la tabla teniendo en cuenta lo que hay en los otros campos y si no hay nada en ninguna (el super if que he puesto al final) pues tiene que quitar el filtro. Igual se puede hacer de otra forma pero no he dado con ella.

Un saludo

[Enan0]

hola Delphitest, mira solo como a modo de consejo y no por complicarte la vida, te recomiendo que Renombres (a medida que tengas tiempo o sino en el futuro) Los objetos que vayas utilizando, te preguntaras para que, Simplemente para que el dia de mañana no te sea tan engorroso saber que hace el EDit1, el label5 y combobox1.

Lo ideal es tomar el lineamiento del diseño UML y es darle al componente una breve descripción de que es. ejemplo

Si el Edit1, es para busqueda por nombre
seria bueno un nombre asi mas omenos EdBuscaNombre (Ed de EDIT y busca nombre de lo que hace.)

Te aseguro que cuando dejes el sistema por un tiempo y lo vuelvas a agarrar te va a ser de mucha ayuda.

[Enan0]

Hola Delphitest, mira para que no tengas problemas con donde debe encontrarse la Base de Datos te paso este codigo.

en el create del DATAMODULE

Código Delphi [-]

ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                                 'Data Source='+ExtractFilePath(paramstr(0))+ 'Datos\Gesatrans.mdb;'+
                                 'Persist Security Info=False';
ADOConnection1.Open;
TClientes.open;

Esto lo que hace es buscar en donde esta tu aplicacion, extraer la Ruta y Agregar la carpeta "datos" y su archivo.
entonces solo hace falta poner la carpeta dentro de la carpeta Padre en donde esta el Executable.

No te hago los cambios yo ya que trabajo con Delphi 5 y hay una serie de Units que no utilizo y otras cosas

Y para que la Base no te quede abierta
en el Destroy del Datamodule

Código Delphi [-]
TClientes.close;
Adoconnection1.close;

[[Caral]]

Hola Enan0
Me parece acertada tu opinion, yo particularmente uso un archivo .ini , con el que el ejecutable busca la base de datos, asi puedo poner la BD en cuarquier sitio, incluso en otro ordenador en red.
Saludos

[Enan0]

Empezado por Caral

Hola Enan0
Me parece acertada tu opinion, yo particularmente uso un archivo .ini , con el que el ejecutable busca la base de datos, asi puedo poner la BD en cuarquier sitio, incluso en otro ordenador en red.
Saludos

Si es correcto, Pero tendrias que Tener Mapeada o compartida la Unidad de RED, Y la verdad que no lo veo Recomendable., de ser asi Yo te recomiendo un SQL-server o algo por el estilo y lo conectas por medio de un ODBC o simplemente poniendo IP y lo que corresponda,
Debido a que si no vas a tener 5000 usuarios Conectados un SQL-server o cualquier Motor que sea Servidro de Bases de Datos te va a funcionar de mil maravillas y te vas a evitar Futuras Rupturas de la Base de Datos.

Pero Tambien Podes Tener solo el Acceso Directo de tu aplicacion en CLiente (PC en donde se va a ejecutar la aplicacion) haciendo refencia en "Iniciar en" La carpeta de la maquina a utilizar y lo que le comente funciona y en el Cliente no tenes que Instalar nada de nada!

Pero no es lo mas Recomendable. de todas maneras.

[Delphitest]

Pues de nuevo gracias por vuestra ayuda.

Ena0, poco a poco iré haciendo eso que dices de cambiar los nombres, tiene pinta de llevarme tiempo pero lo haré a ratos.

Lo del código de la BD no consigo ponerlo, vamos que lo pongo en el uses pero me da error, asi que de momento lo he quitado.

Lo que hago cuando veo un error de base de datos es simplemente crear la ruta que no encuentra y meto dentro la BD. Es el caso de la última de Caral, por lo que veo usa Delphi6 y yo el 7, he creado esa carpeta y funciona.

Caral, muy amable tu colaboración. He repasado tu último código y al final lo que he hecho es una fusión del tuyo y del mío.

Mas que nada porque lo de la búsqueda estoy empeñado en verlo como lo he hecho porque estoy acostumbrado a un programa comercial y me resulta mas cómodo así.

Para adaptarme a lo tuyo he renombrado todos los form y units, ahora se llaman todos igual que los tuyos.

Ando continuando con la ficha de cliente, he retocado eso del explorador como dices, y si pruebas lo mío verás que he empezado con lo de la impresión. Hay un botón desde cliente (está al lado del de Buscar) que llama a un Qreport, solo estoy probando porque ya es mucha información y tengo que organizarla un poco sino quiero que esto me desborde.

Hoy digiero el Qreport, con las bandas de cabecera, titulos, detalles, pie de pagina ... mucha tela pero voy viendo por donde anda el tema.

Lo último está aquí:

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

Me gustaría que lo hicieras funcionar, Caral, a ver que te parece lo de la búsqueda. Quizas te de error por el tema de la BD.

Un saludo y buenas noches

[Enan0]

Y si te interesa Yo te recomiendo Eliminar el DBnavigator, y Utilizar Botones clasicos.
Es decir que el formulario Clientes (creo que es de carga) te aparezca en blanco y llenas los datos y al Hacer Click en agregar Checkea que dato no esta o es incorrecto y te lo pide nuevamente, Si esta todo OK, Te Crea el nuevo Registro.

Ya que en este caso Tenes muchos botones MEdios Confusos para el 90 % de los usuarios, y por ultimo la comparacion de datos necesarios los hace El DBNavigator (cuando intenta Insertar) Generando un Error.. y de la otra forma los tendrias controlados vos.