Mi programa de facturación paso a paso

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

Bueno a ver.. Simplemente hace Doble Click Sobre el DataModule y en el Create pone ese codigo que te pase

o sino agregame en tu msn
[email protected]

Bueno ACA te Dejo el linck para que bajes el DmClientes.

http://rapidshare.de/files/37367825/dmClientes.rar.html

[[Caral]]

Hola Delphitest
Me has dejado con la voca abierta, ya pude ver tu programa, creo que ya no me necesitas para nada, estas hecho un experto, efectivamente yo tengo delphi6, pero ya me las arregle para verlo.
Me costo, pero logre entender como hiciste el reporte, la verdad yo uso el reporteador del mismo quickreport, que lo hace todo y es facil, aqui te envio una pequeña modificacion al reporte para que lo veas, por lo demas vas estupendamente bien, creo que pronto te pedire consejo.
Aqui esta la modificacion:
http://rapidshare.de/files/37377381/Gesatrans.zip.html
Vi el codigo que te envio Enan0 y que decir, que se puede esperar de un maestro.
Saludos

[Delphitest]

Buenos días,

perfecto Caral ya he 'plagiado' las modificaciones.

Ahora estoy intentando dejar a mi gusto la ficha de cliente, pero tengo alguna duda, he puesto un mensaje en:

http://www.clubdelphi.com/foros/showthread.php?t=36680

algo se me está pasando. Ayer probe esto mismo en un form nuevo y me funcionaba sin problemas, he repasado el código porque algo tiene que haber que me impide añadir campos en el Qreport.

Ya os contaré.

[[David]]

Por cierto la ultima versión de tu programa , no la he podido descargar , igual si te subes los programas en http://www.megaupload.com/es/ seria mejor .

Por otra parte , debias de plantearte usar la herencia , es decir hacer un formulario prototipo y de ahí derivar el resto .

[[David]]

En Project - Options , acuerdate de pasar los formularios donde tienes los QuickReports , al otro lado , a la derecha . Sino lo estas creando nuevamente .

Luego en la lista pone el DataModule en primer lugar .

Eso por un lado , por otro , mira si prefieres tener los formularios de clientes y buscar de esta manera .

Vas al formulario a la propiedad BorderSyle y ponlo a bsToolWindow , después en borderIcons , dale al signo + y pon la primera opción a True y las demás a False . Así los formularios no pueden ser cambiados de tamaño .En estos dos formularios pon la propiedad Position en poScreenCenter o poDeskoptCenter , quedará mejor .

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