Mi programa de facturación paso a paso

[Robert01]

Delphitest usa Adoconnection y AdoTable (como en el código de abajo), en este caso es posible usar AdoTable.sort pero como se podría hacer lo mismo si uso BDE y TTable?

¿o no se requiere ordenar por código?


Código Delphi [-]
procedure TFBuscaCliente.RadioGroup1Click(Sender: TObject);
var orden: string;
begin
case Radiogroup1.ItemIndex of
0: orden := 'Cod_Cliente';
1: orden := 'Nombre_Cial';
2: orden := 'Razon_Social';
3: orden := 'Localidad';
4: orden := 'Provincia';
5: orden := 'Pais';
end;
dtmgesatrans.TClientes.sort:= orden ;
end;





Saludos

[[Caral]]

Hola a todos
Me descuido un fin de semana y hay criticas por doquier , bueno vamos una a una, hay que defenderse.
David: En el caso del login, Si se pone en la tabla se puede modificar la clave cada vez que se quiera y poner los usuarios y priviligios a estos que uno quiera, ademas ponerle clave a la base de datos es facil; Ya se que evadir la clave en access es facil, tambien lo es en otras; Con relacion a ponerlo por codigo, una vez que la descubran, bueno, ademas si se quiere modificar, hay que hacerlo en delphi, crear el ejecutable nuevamente y demas, es muy engorroso, no me parece, aun me gusta mas la idea de Lepe, siento que esta mas en la tierra.
Delphitest: Me alegro que te gustara lo del archivo ini, es bastante util, ya lo veras con el tiempo.
Para que el login no salga de momento, simplemente rodealo con parentesis{ } y no saldra; Cierto cuando das cancelar siempre se va al principal, es tan facil como pinchar en el boton cancelar del login y en vez de Close; Poner Application.Terminate; y ya, verdad que no era tan dificil.
Me alegra mucho cuando la critica es constructiva, asi tambien aprendo y puedo reconocer mis errores perfectamente, pero, criticar y no aportar me parece descortes, he tratado, con mis limitaciones de novato, ayudar a Delphitest con lo que he podido, dando no solo ideas sino codigo, si bien no de programador, puesto que no lo soy, si de ayuda, no estoy en condicion de criticar ningun codigo ya que como novato y aprendiz me es muy dificil, en este mundo de delphi, si hay algo claro es que se puede hacer todo de muchas formas diferentes, la mia es simple, si la de un aprendiz; No critiquemos sino aportamos, ver el partido desdes las graderias siempre sera mas facil.
Con esto me voy a retirar de este proyecto, no sin antes desear a Delphitest que lo pueda y estoy seguro de eso, terminar con exito.
Saludos

[xander]

hombre Caral!, no hagas caso, vas perfectamente, siempre te vas a encontrar gente alzadilla y creida por todos lados, pero lo resuelves fácil haciendo caso a lo que tu quieras y lo que no solo pasatelo por entre los aguacates, asi de simple.

Para lo de la contraseña en la BD puedo aportar que se podría encriptar la contraseña en la BD asi aunque se abra la bd no se sabrá cual es la contraseña real del usuario. como la ves mi estimado Caral???

[Delphitest]

Buenas tardes a tod@s,

no pensaba postear tan pronto todavía, se me ha ocurrido llevar mis adelantos a la oficina para que lo vean los compañeros y ya hay pegas por todos los lados, tengo que hacer un monton de cambios para que sea de su agrado, acabo de llegar y vengo un poco cabreado la verdad . Con las horas que le echo a esto ...

En fin, que me toca cambiar varias cosas antes de poder seguir, por cierto Caral no me va eso del .ini lo he probado en otro equipo y me sigue dando el error en la BD, algo haré mal supongo.

Lo que si quiero que sepas es que has sido de gran ayuda para mi y de las pocas personas que se ha brindado a ayudar al completo con comentarios y codigos, eso es de agradecer. Ya sabes como son los foros, este y todos, siempre hay criticas, no hay remedio. Si optas por retirarte te echaremos de menos, porque aunque haya poca colaboración parece que interesados si que hay muchos y que nos leen.

Desde aqui agradezco toda tu ayuda y si te animas a seguir por aqui ya sabes que será bienvenido pese a lo que se pueda decir en contra.

Un abarazo muy fuerte y gracias por todo. (a ver ahora quien me resuelve la dudas )

[[Caral]]

Hola Delphitest
No me gusta dejar las cosas a medias asi que veamos, que te pasa con el ini.
Si el programa lo trasladas a otro ordenador, con todo y base de datos, pues no debe haber ningun problema, simplemente en este archivo ini, tienes que poner la direccion en la que este o coloques la base de datos.
Si el programa va a estar en un ordenador y la base de datos en otro, tiene que haber una red, osea conexion entre estos ordenadores, si estan conectados se establece una conexion en mipc, con el boton derecho, conectar a unidad de red, hay te saldra una pantalla en la que puedes poner en unidad Z y en carpeta, tendras que buscar el otro ordenador por su nombre, le das examinar y lo buscas, aplica conectar de nuevo al iniciar sesion y aceptar, hay se creara un acceso al otro ordenador, de nuevo en mipc al darle doble click, veras la conexion en este caso Z, te metes en esta y buscas la direccion donde esta la base de datos, la copias y la pegas en el archivo ini, recordando que sea el formato igual al que esta, con esto el programa ya puede ver la base de datos y funcionar, el archivo ini quedaria si la carpeta se llama gesatrans, algo como:

[BD]
Path="Z:\Gesatrans\Datos\Gesatrans.MDB"
[Logon]
Auto="No"
Login=""
Pass=""

No se que error te este dando ahora mismo, pero debe ser algo sencillo de solucionar, mira quien lo dice un aprendiz
Espero que con esto soluciones el problema del ini, que es verdaderamente practico.
Saludos

[Robert01]

Hola a todos.

Esta es una versión modificada del programa que está haciendo delphitest.
Yo en vez de usar adoconection y access database usé base de datos paradox, ttables y datasource.
En la parte de ingreso modifiqué un poco lo que hizo caral porque no me salió bien usando query y sql, tampoco usé el ini (si alguien me puede decir como podría hacerlo la ayuda es bienvenida)

Puse una contraseña para que no sea posible ingresar a la tabla usuarios que es donde está el login y la contraseña del usuario (para esta prueba master password = Gesa1000_ y auxiliary password = Gesa_1000; El nombre de usuario y contraseña son Gesa y gesa.

No se que error hay en el formulario Albaranes porque los campos Total, iva, descuento se mantienen en blanco.

No envío el ejecutable pero el alias para las tabla es gesa y el camino es c:\Archivos de programa\Borland\Delphi7\Projects\Datos

El link para download es:
http://download.yousendit.com/B71A2CB37EA9FF7C

Saludos

[[Caral]]

Hola Delphitest
Primero quiero tratar de responder a tu ultima duda que fue esta:

Lo que me gustaría es que una vez metido el peso (los bultos me dan lo mismo) se hiciese un chequeo en la tabla tarifa para extraer el precio del porte que corresponda, pero no se por donde empezar esto ya que hay varias cosas a tener en cuenta, por ej.:

Trate de analizar esto y no pude hacerlo con la tabla tarifa, por eso la modifique, para que te des cuenta de varias cosas.
Con la modificacion a la tabla, logro que se puedan crear las zonas que se quiera ademas de las variaciones de peso y costo que se necesiten.
Como lo que indicas es esto:

Ahi ando, a ver si alguien me puede dar su opinión al respecto, no busco la forma de programarlo, mas bien la forma de hacerlo

Entonces no modifique el programa, hice un pequeño programa de ejemplo, como dicen para muestra un boton.
Ademas te hice varias cosas, como un filtro, para que veas los zonas y otros.
El programita va mas o menos explicado, asi que creo no tendras problemas en analizarlo.
Con relacion a que cuando pones el peso, salga de una vez el porte, ya sale en este, nada mas revislo, creo que te sera util.
Para poder ejecutarlo sin problemas ponlo dentro de:

C:\Archivos de programa\Borland\Delphi7\Projects

El archivo se llama Ejemplo, y tiene la base de datos con la tabla tarifa, no vas a tener problemas en verlo, seguro.
Bueno aqui te envio este ejemplito, seguro que me lo critican, espero, constructivamente.
Aqui esta:
http://rapidshare.com/files/2376064/Ejemplo.zip.html
Saludos

[Enan0]

Hola a todos. Bueno con referencia al login creo que lo mejor es almacenarlo en la base de datos, de manera encriptada.

y la forma mas segura seria la siguiente.. (Fanaticos del Hack o Decrypt abstenerse) es para Usuarios medios ejjeee.

Bueno mira. lo que tendrias que hacer es: El PSW que el usuario ingrese modificarlo utilizando el Nombre de Usuario+ algun algoritmo matematico.

porque? bueno porque si el usuario se le ocurre entrar a la base de datos y tocar o borrar directamente el Campo Password de la base de datos siemplemente este no Funcionaria.

La Desencriptacion seria el inverso a la Encriptacion .

Código Delphi [-]

Function Crypt(Psw,User:string):string;
Cont C=666;
var  i,n:Integer;
begin
 result:='';
 for i:=1 to length(psw) do begin
    if I<=length(user) then 
       n:=i; 
    else if n>=length(user) then
       n:=1
    else
       inc(n);
     
     result:=result+Inttostr((Byte(User[n])-byte(psw[i])) XOR c) +',';
 end;
end;

esto te daria un string "12,255,123,789" el cual deberias alamacenar en la base de datos. y al momento de hacer el logue deberias hacer el paso inverso.

Saludos

PD: la funcion inversa al Byte es Char()