Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Programa de Facturacion, Inventarios, Produccion, Completo (https://www.clubdelphi.com/foros/showthread.php?t=38055)

Fenix_Xanadu 27-04-2007 21:55:09

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.

Caral 27-04-2007 22:02:36

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

movorack 28-04-2007 17:29:55

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;

Fenix_Xanadu 29-04-2007 05:12:40

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

dec 29-04-2007 05:41:55

Hola,

Cita:

Empezado por movorack
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;

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;

roman 29-04-2007 08:55:58

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

// Saludos

Casimiro Notevi 29-04-2007 13:42:48

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 :)

movorack 30-04-2007 15:22:11

huy!!!
 
Cita:

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

jorelivi 30-04-2007 18:22:59

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.

Caral 30-04-2007 18:43:47

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

movorack 30-04-2007 19:20:29

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.

Caral 30-04-2007 19:26:55

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

roman 30-04-2007 19:50:05

Cita:

Empezado por Caral
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

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

Caral 30-04-2007 20:52:53

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

gdlrinfo 04-05-2007 21:45:40

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

Caral 04-05-2007 22:13:47

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

mcs 05-05-2007 02:57:09

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.

mcs 05-05-2007 12:46:05

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

gdlrinfo 05-05-2007 15:42:06

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

Juan Reyes 05-05-2007 19:24:09

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.:)


La franja horaria es GMT +2. Ahora son las 21:33:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi