Programa de Facturacion, Inventarios, Produccion, Completo

[[movorack]]

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

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]

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

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]

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

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]

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]

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]

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

[[Caral]]

Hola
mcs : Efectivamente la conexion a el archivo datos se hace en el datamodule, asi en cuanto empieza el programa lo primero que hace es conectarse a la base de datos, ten en cuenta que si cambias la ruta en el archivo datos, el programa buscara la base de datos en esa nueva ruta, de eso se trata, de que si se quiere mover la base de datos a otro directorio no alla que modificar nada en el programa, es muy practico.
gdlrinfo: No te preocupes por ser novato, ya somos dos.
Juan Reyes: Es un placer ayudar a este club con algo aunque sea un pequeño programa.
La idea de este es que todos los mas novatos, empiecen viendo codigo, de utilidad y que se aprenda de mis muchos errores.
Saludos

[Juan Reyes]

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.

[joarleco]

hola caral;
como estas disculpa pero la duda que te mencione hace rato ya fue aclarada desde hace tiempo , me puse a leer con detalle de ese error y me uno a los demas en agradecerte por compartir tu conocimiento y me alegro unirme al club, me gustaria eu me orientaras donde encontrar tutoriales para saber mas de delphi y me da mucho gusto qeu alla gente que apoye este lenguaje que para mi se me hace de lo mejor para realizar todo tipo de aplicaciones ...gracias.

[joarleco]

hola disculpen tengo dos dudas la primera:
en el programa de facturacion ya instale los componentes y me sige saliendo la leyenda
EconvertError
'0.00' is not a valid floating point value
no se que debo hacer mas ara que ya no me salga ese leyenda que mas se debe de instalar
la segunda quisiera saber las diferentes funciones que hay para convertir cadenas , por ejemplo mi interes es convertir un tipo de dato doble a integer.
muchas gracias.

[[Caral]]

Hola joarleco
Me alegro que estes probando el programa y ya haciendo los cambios que necesitas.
El error que mencionas es precisamente, aunque sin ver, me parece que ya hiciste algun cambio en la base de datos.
Si usas los componentes numedit, estos buscaran numeros o integer o float, dependiendo del componente, si modificas la tabla, pues el componente no funcionara.
Ahora, si no has modificado nada, el problema viene del windows, me explico:
En Panel de control, configuracion regional, opciones regionales, personalizar, vas a ver que los decimales estan con coma y los miles con punto, hay que cambiarlos, pones los decimales con punto y los miles tambien con punto, osea los dos.
La tabla y los componentes lo identifican asi.
No hay que instalar nada mas para que el programa funcione.
En cuanto a la conversion, se puede usar algo como:
FloatToInt
IntToFloat
ect.
Recuerda que si cambias algun tipo de dato, este no funcionara correctamente.
Saludos

[joarleco]

hola tengo un programa echo en delphi que da el nombre de cualquier numero pero los numeros por ejemplo separadas 2 230 que se leria como " dos mil docientos treinta " no lo quiere leer por que no puede leer el numero si se encuentra separado .. me gustaria compartir el archivo por que lo baje de internet . me gustaria saber como lo subo y ver si me pueden ayudar para qeu lo lea con el espacio o como puedo juntar un numero y moestrlo en un edit por ejemplo.... gracias.

[tenporal]

Saludos Joarleco

Lo primero que debes checar es que para que sea tomado como numero solamente debe tener digitos y el separados de decimales (en mexico es el punto, tengo entendido que en españa es la coma) y te pongo el siguiente ejemplo:

En un formulario nuevo, inserta dos cuadros de texto (edit), y un boton "salir " y otro boton "convertir"

Código PHP:

procedure TForm1.Button2Click(Sender: TObject);
var
//variable que contiene el codigo de error, si es cero no hay error
codigoerror:integer;
// variable que va a contener un numero con decimales
numero:real;
begin
// se trata de convertir el dato que existe en el edit1
VAL(EDIT1.Text,numero,codigoerror);
if codigoerror = 0 then //si es cero se convirtio en numero
edit2.Text := floattostr(numero)  // ahora lo convierto en texto
else
begin // si no se pudo realizar la conversion
showmessage('teclea un numero sin espacios');
edit1.SetFocus
end;
end; 


Yo programo en otros lenguajes, apenas estoy aprendiendo la sintaxis de Delphi, no se si tu problema es que los datos estan en un archivo (si es asi, deberias checar que realmente sean tomados como numero) o los tecleas en un programa (si es asi deberias validar la entrada de los datos numericos), bueno, espero que el codigo te sirva...

Hasta luego...

[DeG]

Empezado por joarleco

hola disculpen tengo dos dudas la primera:
en el programa de facturacion ya instale los componentes y me sige saliendo la leyenda
EconvertError
'0.00' is not a valid floating point value
no se que debo hacer mas ara que ya no me salga ese leyenda que mas se debe de instalar
la segunda quisiera saber las diferentes funciones que hay para convertir cadenas , por ejemplo mi interes es convertir un tipo de dato doble a integer.
muchas gracias.

La solución esta cambiando el FormCreate por este

procedure TFMainForm.FormCreate(Sender: TObject);

begin
DecimalSeparator:='.';//separador decimal
ThousandSeparator:=',';//separador de miles
ShortDateFormat:='dd/MM/yyyy';
// Muestra la pantalla de Login
FLogin:=TFLogin.Create(self);
try
FLogin.ShowModal;
finally
FLogin.Free;
end;

end;

[joarleco]

hola de nuevo discupen tal vez mi pregunta estuvo mal , pero lo qeu deseo hacer es realizar una sumatoria de productos en un punto de venta y despues lanzar el resultado pero no se como sumer las cantidades .... no se como se me falicitaria hacerlo y con que componentes ...soy nuevo en esto pero me gustaria aprender mas sobre este lenguaje...gracias.

[[Caral]]

Hola joarleco
Te sugiero que inicies un nuevo hilo con tu problema y que lo expliques con mas detalle.
Saludos

[mramos65]

Estoy haciendo un programa en el que tengo un DbGrid, DataSource, Tedit y Table (DBF), la captura se descompone en para obtener talla y color en el dbgrid.
en segunda instancia tengo otro DbGrid, DataSource y Query en el cual quiero que aparezca la cuenta de unidades capturadas por talla de acuerdo al color que le corresponda:
COLOR 31 32 33
NEGRO_ 2_ 3_ 5
he puesto este codigo en el Query pero me falta para el resultado esperado, alguien me puede dar una manita?


Código SQL [-]
SELECT color, count(talla)
FROM invent.dbf
group by color





de antemano gracias por su gran ayuda.
Miguel