El programa da facturación pueden también descargarlo de aquí.

// Saludos

Hola
Marymania: Gracias por tus palabras, para eso estamos, tratrar de ayudar.
Roman: Gracias por colocar el otro programa accesible.
Espero sirva de ejemplo para muchos
Si teneis dudas, consultas, criticas u otros, pues a ponerlas aqui, que asi tambien aprendo esto de la programacion, que ya me esta gustando.:D
Saludos

Excelente aporte
 

Hola Caral. Primero que todo agradecer enormemente que hayas puesto a disposición de los programadores tu obra de arte. Lo llamo asi porque es tuyo producto de tu esfuerzo y de la ayuda de otros quizás como todos lo hemos requerido alguna vez. Es tu creación y eso es motivo de admiración.
Este programa me ha servido para aclarar muchisimas dudas porque puedo ver las acciones que se realizan leyendo las lineas de codigo y viendo los componentes que usas. Yo también estoy realizando un programa similar pero es poco lo que puedo aportar al foro porque no tengo mucha experiencia en Delphi, en realidad yo soy matemático y tomo esto de la programación como algo mas para generar más recursos y me gusta bastante.
Ya mencionaste las razones por la cual pusiste a disposición tu obra pero me gustaria saber cuento tiempo te demoraste y que cosas fueron las que mas te costaron implementar. Una vez mas te felicito por tu sistema y por supuesto por tu disposición para ayudar a aquellos que necesitamos de un ejemplo concreto para aprender. Una vez mas felicitaciones :p

Yo me uno a la lista
 

Yo también me uno a la lista de agradecidos por ti.
Soy un novato en manejo de base de datos en Delphi. A diferencia tuya yo ando experimentando con Firebird, no es que le culpe a Access... pero bueno... tiene sus pequeñeces... jeje (si ya se que lo haz hecho para ser ilustrativo). Lo he descargado para ver como lo implementas, y que componentes usas.

La verdad que me está ayudando en entender esto del manejo de Base de Datos en Delphi. Toda mi experiencia anterior con BD se ha basado en SQL Server y con VB (por dios... espero no decir esas silabas nunca mas! :D).
Me leí la Cara Oculta de Delphi 4. Y algunas cosas de alli las he entendido... y ahora que veo un buen ejemplo... me siento mas seguro para meterle mas maña a Firebird y a Delphi.

Muchas gracias por compartir tus conocimientos.
Eso si... me ha llamado la antención de que tu BD no está relacionada. es algo muy curioso... ¿afecta en algo que estèn hechas o no las relaciones? Me estaba preguntando...

Saludos,

Hola
TrUnkS: Gracias por tus palabras; Me alegra que te sirva este ejemplo, de eso se trata, de incentivar a mas personas a que usen Delphi, que sepan que en verdad es realmente sencillo.
Dificilmente puedo decir que fue mas dificil o facil de hacer, lo hice por instinto, yo tampoco soy programador en realidad bastante novato en esto con 8 o 9 meses no se puede pedir mucho, pero sigo aprendinedo porque me gusta, aparte de ayudarme en mi empresa es un jovi.
Cualquier modificacion y mejora seguro sera bien venida por muchos.
Delphius: Gracias por tus palabras, tambien, al igual que a otros espero te sirva aunque sea de ejemplo basico.
Con relacion a las relaciones, valga la redundancia, en realidad tengo entendido que si afecta sobre todo cuando se ejecutan consultas, pero esto te lo puede decir mejor uno de los tantos maestros que hay por el foro, estos si sabran, recuerda que soy seguramente tanto o mas novato que vosotros.
Saludos y que paseis felices fiestas navideñas.
Saludos

Un tiermpo + y lo libero!!

Dejenme sacarle un poco + de Jugo al asunto y libero el codigo de mi "Suite Puntos Venta" que taantas veces su algoritmo incremento mi cuenta bancaria :)

Aqui tienen un link del software

Relaciones en BBDD:

Imaginamos que estamos haciendo un programa para un constructor de obras, se tienen las siguientes tablas:
obras
clientes
trabajadores
jornales
presupuestos de obras
facturas
lineas de facturas

Todas estan relacionadas mediante sus respectivas claves ajenas y con integridad referencial, esto es: ON UPDATE CASCADE, ON DELETE CASCADE.

Esto significa que al eliminar una obra, automáticamente el gestor de bases de datos se encarga de eliminar:
- los presupuestos iniciales que se hicieron para esa obra
- los jornales que existan de sus trabajadores para esa obra
- Otras registros de otras tablas que dependan de la tabla OBRA.

Para el caso de las facturas, como ya sabemos, no pueden eliminarse facturas ya emitidas, en ese caso especificaríamos como regla de integridad On DELETE NO ACTION y lo mismo para la tabla cliente, quedando así en la Base de datos:
- las facturas emitidas a ese cliente
- los datos personales del cliente (para mostrarlo en las facturas)

... y todo esto sin ninguna linea de código, basta un buen diseño de la BBDD.

Para relaciones Maestro-Detalles, también se especificaría ON DELETE CASCADE en la tabla detalle, así al borrar un registro en la tabla Maestra, se borran todas sus lineas automáticamente.

...Por algo estoy en contra de usar Paradox (no tiene integridad referencial) y te obliga a lanzar consultas de borrado cada dos por tres, o lo que es peor, hacer bucles en delphi eliminando las lineas de detalle.

Como veis no entro en eficiencia del motor de Bases de datos, planes de ejecución de consultas ni nada técnico, creo que la explicación es simple pero se entiende sobradamente.

Saludos

Woowww!!
 

Exelente Aporte, soy nuevo en el foro , ya que soy usuario linuxero y pues programo en MySQL y PHP, llegue hasta aca por un amigo desarrollador "CESAR", y pues queria programa este tipo de ´programacion sobre windows, y creo que tiene mucho que ver el impulso que para mostrar el codigo de alguna aplicacion.

apoyo a todo lo FREE,no por gratis sino por libre, y que bueno que nuestra compañera de foro, tenga esa cultura de mostrar el codigo

posteriormente ,mostrare mi codigo de alguna aplicacion mia en MySQL y PHP--

por el momento GRACIAS ..

Es un hombre :D :D

Eso pasa por elejir un nick que se intuye femenino, además de la foto de su hija jejeje. Por eso mi nick es neutro ;).

Saludos

perfecto pero no me sale en castellano
 

:confused: a mi no me sale en castellano solo en ingles no me es de utilidad asi ) no ostante muchas gracias por tu aportacion ya que les fue de utilidad a otro muchos.. saludos:D

Hola
tucatrin: No me preocupa el denominativo sexual, lo tengo claro, la de la foto es mi hija y no eres el unico que se ha confundido como dice lepe es por el nick.:D
Me alegro que te pueda servir, eso es lo importante en esto.
axl_1: Dices que no te sale en castellano ?.
No entiendo que te sale en otro idioma, este esta en castellano todo el, seguro bajaste el mismo?.:D
Aqui tengo otro sitio donde puedes bajar el de facturacion, tal vez te sirva.
Se llama Facturacion.Zip, tambien hay otros ejemplitos pequeños.:D
ftp://196.40.62.xxx/
Saludos

Hmmmmm:p:p
:confused: Para mí que se equivocó de hilo.
No es muy bueno que se divulgue FTP en una web, no lo digo porque estés haciendo algo mal, sino que puedes verte enfrentado a bombardeo al ftp por alguna vulnerabilidades de seguridad y te hagan alguna maldad.

Casi siempre es mejor alojarlo en otro lugar como rapidshare o sus clones que andan por ahí. Asi te libras de eso y les dejas el problema a otro:D. Ademas está alojado en la web de roman, mejor aún.

Por eso lo he editado, si deseas aun asi dejarlo, pues no tengo problema en restaurarlo.

Saludos

Gracias vtdeleon
me parece muy bien, se que roman lo hace poniendo el nombre que quiera y el archivo sale.
sabes como hacerlo?
Me puedes explicar?
Saludos

Creo que ya roman se ha encargado de explicarte :)
Un ejemplo seria==> enlazar [url="www.google.com"]google[ /URL ], esto sin los espacios en la etiqueta [ /url ]. El resultado seria google;)
Saludos

pero amos.... que poniendo el ratón sobre el enlace, y mirando a la barra de estado del navegador se ve bien la url de destino....

Saludos

Vaya Caral eres una Madre (es solo una Expresión), tu aporte es fenomenal.
Me ocurre algo curioso que veo no le ha pasado a nadie, una ves que termino de correr la aplicacion, desde DELPHI, procedo a cerrar todo, tanto delphi como la aplicacion "Produccion 1" y aparece un error de Violacion de memoria o algo asi, al parecer no le acurrio a nadie??
En cuanto al Tema de compartir los códigos me parece una idea genial y si el problema es el espacio pues se me ocurre que podriamos usar por ejemplo un Grupo Yahoo para colgar los archivos alli, como lo hacen otras WEB, o no?? que les parece?

Hola MikyVato
No se que error sea, pero si lo muestras te podremos ayudar, el programa esta corriendo, dificilmente genere un error asi, pero todo es posible, si alguien mejora el programa, compartanlo, que le servira a mas foristas.
Recuerden que todo es mejorable, sobre todo lo de novatos como yo.
Saludos

Caral...No he logrado bajar el programa
 

como bajo el programa?

le doy clic al enlace y me sale una pagina extraña y en ingles.

disculpa mi ignorancia...estoy novata

Aqui, creo que es la ultima version.

Perdon me descargue mal ja ja... valla error mas tonto, soy autonomo y seguro me sera de ayuda MIL GRACIAS
saludos al foro

Buen aporte...
 

Es la mejor sección que he visto...... el codigo me servira para checar algunas funciones de los componentes, pues como ya lo he comentado antes estoy apenas iniciando con delphi.

y en la Internet no hay mucha información sobre los componentes de delphi y como usarlos.

Pero pues como dicen, un ejemplo dice mas que mil articulos.

Una pregunta, y espero no se vaya a ofender, me queda la duda, por favor no te ofendaas pero es para conocer mejor.

caral.............eres hombre o mujer?

Perdon si te ofendo.

Hola
Me da una risa, porque estaba leyendo lo que decias y esperaba algo como:
Hey y cuanto tiempo tardaste o como uso tal o cual cosa.
Perdona pero me dio mucha risa, no eres el primero que lo pregunta.:D
Respuesta, segun dice mi mujer, Hombre.:D
La foto es de mi hija, mi guru.
Saludos

Por lo de las rutas absolutas...
 

un función que uso siempre. :D un dia me encontré con ella en Internet y me enamoré de sus ojos.

Código Delphi [-]
function TForm.AppPath(): String;
var x,y:string;
begin
  x := ParamStr(0);
  y := ExtractFileName(ParamStr(0));
  Result := copy(x,0,length(x) - length(y));
end;

Pues todo aclarado
 

Pues ya todo quedo aclarado..................................... y el programa esta muy bien.....................
y ahora a anaoizar con detalle para aprender más.

Hola,

Me llamó la atención el código... ¿no se consigue lo mismo usando la función "ExtractFilePath"?

Parece que sí, pero, lo mismo se me está escapando algo. :)

Código Delphi [-]
var
  appPath: string;
begin
  appPath := ExtractFilePath(ParamStr(0));
end;

Bueno, pero si algún día se descompone ExtractFilePath, ahí tienes una opción :D

// Saludos

jejeje, sí, parece otra de esas "maravillosas" funciones que todos tenemos y que un día descubrimos que ya existe alguna función en el sistema que hacía exactamente lo mismo y no lo sabíamos :)

huy!!!
 

así parece... La anotaré en mi lista de osos. :D

-- Por otro lado, no se que opinen y con el permiso del autor. que tal si se sube el proyecto a SourceForge? con licencia y todo. Y entre la comunidad de ClubDelphi se desarrolla, se usa y además se aprende creando un verdadero software Open Source.

Hola Caral,

Quiero bajar tu ejemplo que mencionas, pero no me deja entrar a esta direccion de ftp. Cambio esta ruta ?

Oye y de verdad gracias por esta aportacion es muy positiva para usuarios como yo.

Hola jorelivi
Tuve que cerrar el ftp poque se me saturo demasiado la linea, amablemente Roman y Dec, subieron el codigo a su web, busca las intervenciones de ellos, debe estar el codigo por ahi.
Me gustaria que se pudiera poner en algun lado mas accesible, pero depende del club o los moderadores si amerita o se puede.
Saludos

y va de nuevo...
 

por eso te digo caral...

talves si pensaras la posibilidad de subir el proyecto a SourceForge.net y de allí se haría la descarga.

no se echale un ojo a la idea. así todos podrian participar no solo en conocer el codigo y aprender sino también en modificar el proyecto e ir mejorandolo.

Open Source amigo.

Hola
Que yo sepa el club tiene una web para ese efecto, lo que no se cual es, pero se que existe, ahi es donde se pone el codigo.
SourceForge.net, no lo conozco, esta en ingles, no se me parece que al cesar lo que es del cesar, el programa de facturacion fue en parte hecho con la ayuda de este club, le pertenece mas que a nadie, en esta vida hay que ser fiel y yo lo soy.
Saludos

Normalmente, un servidor ftp tiene la opción de limitar el número de accesos simultáneos, que posiblemente solucione lo de la saturación. Por otra parte, puedes acceder a http://www.terawiki.clubdelphi.com/ y subirlo tú mismo (quizá con el prefijo [Ejemplo]). Eso sí, te recomiendo que lo "limpies" de dcus, exes y backups, para que no sea pesado y pueda descargarse con mayor facilidad.

// Saludos

Hola
Gracias Roman, Ya esta el archivo en http://www.terawiki.clubdelphi.com/
Lo limpie mas o menos, la verdad creo que bien.
Muchas gracias por el espacio.
Saludos

Caral
 

Hola caral te comento un par de errores que note soy novato y me gustaria saber porque hace lo siguiente:

cuando cargo datos para hacer la factura y le pongo la cantidad y el precio me dice
"Is not valid Floating Point Value"

Luego con el programa abierto en delphi y lo corro me dice es decir me señala la linea ffactuta.showmodal; cuando tira este error y dice tambien que hay un error en class floatedit(not found) tambien despues de cargar los datos con este error le doy al boton procesar y me dice EconvertError '0.00' not valid floating point cabe destacar que en el boton convercion ya le agrege los valores!!

Podrias ayudarme y explicarme cual es el defecto desde ya muchas gracias

Hola
El programa biene con un componente NumEdit, hay que instalarlo para verlo desde delphi.
El error se da por que se busca un float, si no se modifica nada el programa esta revisado y funcionando perfectamente.
Saludos

Hola,

Soy novato en Delphi, y he estado mirando tu programa, pero hay una cosa que no entiendo/encuentro: cuando/dónde se lee el fichero Datos.ini? Porqué me interesaría hacer un archivo de configuración similar para una pequeña aplicación que estoy desarrollando, pero estoy un poco perdido...

Me harías un favor si me pudieses ayudar!

Marc

P.D.: Estoy usando el Turbo Delphi Explorer.

Buenos días,

He investigado más, y ahora entiendo el funcionamiento. A ver si lo he entendido bién:

- El DataModule1 (fichero UDM1) es dónde se inicializa la conexión a la base de datos, previa lectura del fichero "Datos.ini".
- Al usar cualquier componente TADO*, se indica que la conexión es el DataModule1. Este, al crearse abre la conexión a la base de datos.

Es esto? Realmente me está sorprendiendo el Delphi de lo rápido que es, comparado con el Java (hasta hora es lo que utilizaba...)

Saludos,

Marc

Gracias
 

Gracias caral por contestarme y he instalado el componente y todo bien es que soy nuevito en esto y todavia me falta mucho pero te agradesco que me hallas contestado a la brevedad el programa es genial y muy recomendable agradesco mucho tu ayuda saludos

Gracias por tu sinceridad y apoyo
 

Caral buen día.
El motivo del siguiente mensaje es agradecerte el compartir el código completo de tus programas, asimismo el comentarte que me ha servido de mucho. Asimismo decirte que los comentarios a dudas que he tenido me han servido de mucho.
Saludo y que tengas mucho éxito.:)