Mi programa de facturación paso a paso

[oscarnoe]

Referente al tema de logins y gestion de usuarios, yo prefiero almacenar el hash del password en la tabla, nunca la contraseña en si.

Os recomientod DCPCrypt para todo tipo de hashes y ciphers:

http://www.cityinthesky.co.uk/cryptography.html

Espero que os sirva de ayuda...

Oscar Noe

[[Caral]]

Hola a Todos
Bueno teniendo en cuenta los feriados en España, la situacion empresarial y los aumentos en los insumos basicos, ademas del costo de los albaranes, creo que es de esperar que nuestro promotor del proyecto (Mi Programa de facturacion Paso a Paso), nos tenga un poco abandonados, a la espera de noticias desde hace ya 4 dias, sin contar las diferencias horarias.
Ahora si; Que pasa Delphitest, me tienes verdaderamente preocupado, he estado observando que hay otros foristas interesados en tu proyecto y , ven el hilo y se van desepcionados .sin avances.
Yo por mi parte en mis horas de ocio, en las que con entusiasmo trataba de incorporar algo al proyecto y apreder mas, me siento defraudado, que pasa....
Va deja ya la marcha y a trabajar hombre.
Saludos

[Delphitest]

Muy buenas a todos,

tienes razón, me merezco una colleja

No es que tenga esto abandonado pero la verdad es que la parte de los albaranes me tienen totalmente bloqueado.

He tenido que hacer muchos cambios y ademas a medida que arreglo pequeños fallos surgen nuevas cosas y lo que pensaba hacer en unas horas se está convirtiendo en unas semanas. asi parece que es esto de la programación.

No he subido nada porque está a medias y no se entendería bien la finalidad.

Necesito pasar de un punto donde estoy atontado y bloqueado

No quería molestar al foro pero ya necesito un empujoncito porque sino me eternizo con esto.

Estoy haciendo los calculos del form albaran, muy diferente a lo que tenía inicialmente, aqui hay de todo un poco. Aunque voy avanzando con otras cosas sigo parado en el tema de calcular el porte en funcion del peso de la tarifa. Necesito usar como sea y siempre que se pueda, la orden locate ya que resulta muy comoda y no hay demasiado que detallar en ella. Pero no se exactamente si lo que quiero se puede o no hacer con ella. Os cuento:

Uso la siguiente sentencia para buscar el primer registro de la tabla TTarifa cuyo peso sea igual al contenido del Edit3.

Hasta ahí bien, pero hay un detalle importante y es que el peso en este caso debe de ser exactamente igual a ese valor sino no lo encuentra, sin embargo yo necesito que localice el primer registro cuyo peso sea >= a Edit3 y no se como hacerlo.

Código Delphi [-]
  DTMGesatrans.TTarifa.Locate('Peso',StrToInt(Edit3.Text),[]);

La tabla tarifa tiene por ej:

5
10
15
20
...

Si edit3 = 5 no hay problema, si edit3 = 10 tampoco lo hay ... pero si edit 3=11 quiero que se quede en el registro de 10 si es 17 , por ejemplo que se quede en 15 ...

No se si me explico bien, supongo que con sql esto se hace sin problema pero de momento preferiría hacerlo con locate para no liarme demasiado.

A ver si alguien se anima y me saca del tunel

Que tengais todos un buen día.

Caral no te preocupes que es cosa de días

[[pepon386]]

Si tienes un índice por ese campo, puedes usar la función FindNearest.

[Robert01]

Hola Delphitest:

En el form repartidores cuando le ponés modificar se pueden cambiar todos los datos del repartidor pero no su foto.

Yo hice todo lo que tenías vos pero usando dbe. Hice algunso cambios.
Cuando esté todo listo lo subo.

saludos

[[Lepe]]

Empezado por Delphitest

supongo que con sql esto se hace sin problema pero de momento preferiría hacerlo con locate para no liarme demasiado.

Pues al no usar sql te estas liando más todavía con código delphi: Cuando FindNearest devuelve un valor,tienes que mirar si es el valor exacto o si es un valor cercano (por encima o por debajo) del peso, con sql lo tienes de un solo golpe, además ya lo dije en un mensaje anterior.

Saludos

[[Caral]]

Hola Delphitest
La verdad sigo sin entender porque te cuesta tanto esto, es solo cuestion de preguntar en el foro, recuerda que hay verdaderos maestros en esto.
Bueno, tienes un problema que es:

Si edit3 = 5 no hay problema, si edit3 = 10 tampoco lo hay ... pero si edit 3=11 quiero que se quede en el registro de 10 si es 17 , por ejemplo que se quede en 15 ...

Bueno la verdad lo tenias, te envio la modificacion, recuerda que he modificado la tabla tarifa, y por sobre todo que soy novatito y que hago lo que puedo, seguro habra mejores formas de hacerlo, pero no las conozco.
Aqui te envio los cambios, no te entretengas con otras cosas, sigue adelante, ya tendras tiempo de mejorar tu codigo.
http://rapidshare.com/files/3475098/Gesatrans.zip.html
Por favor revisalo, creo que es lo que necesitas.
Si pones cualquier numero que no sea el peso exacto el selecciona el conveniente automaticamente.
Saludos

[Delphitest]

Hola Caral,

gracias por molestarte con esto.

He estado probando y repasando el código, pero no me sirve de esta forma.

Dentro del código hay varias lineas que mencionan los kilos, entre tanto y tanto ...

no puedo depender de esto ya que los kilos se pueden cambiar en cualquier momento desde la tabla tarifa y no siempre los saltos seran de 5 en 5 o de 10 en 10, es la parte delicada que tiene.

Necesito que una orden busque en la tabla y saque los datos pero amoldandose a los kilos que esten ahí aunque cambien de vez en cuando.

Sigo dandole vueltas pero no veo la forma.

si doy con algo os lo digo, pero esto se pone oscuro

Por cierto, diras que soy un poco pesado pero no funciona el tema del ini
Haz la prueba y quitando la DB del sitio original colocala en otra ruta, ami solo me funciona si cambio el ADOConnection, sino nada.

Un abrazo para todos y siento las molestias

[[Caral]]

Hola Delphitest
La verdad no se que te esta pasando, no nos envias codigo, asi que no sabemos nada.
A mi el programa que acabo de enviar funciona perfectamente, define los kilos y los calcula en base a la zona, no se si hay que hacer otro calculo adicional, sin codigo es dificil verlo.
Insisto, prueba el programa que te envie, el ultimo, hazlo correr y modifica un albaran, con esto te daras cuenta de cosas.
Por cierto tego un hilo empezado (Programa de Matematicas) en varios, este es para que los foristas aporten ideas y codigo, es interesante, casualmente trabaja con matematicas, revisalo y aporta ideas y codigo, se que puedes.
Saludos

[[Caral]]

Por cierto. Que ha pasado con nuestro amigo Robert01.
Se va de vacaciones y no pide permiso, ni avisa.
A ver si da señales de vida.
Saludos

[Delphitest]

Es cierto Caral, parece que ya no quiero subir nada ni compartir nada, pero te aseguro que no es por nada especial, sino simplemente que creo que lo que tengo hecho ahora mismo no sirve para nada, hay un lio impresionante, pero realmente impresionante. Hasta yo me pierdo en el código.

Soy consciente de que no estoy haciendo esta parte demasiado bien pero he llegado a un punto en el que me superan las cosas. Entre todos los cambios que van surgiendo dia a dia y las partes que no consigo hacer no veas que agobio me entra por momentos.

Aun así para que os hagais una idea y veais que realmente se está complicando el asunto, os pongo todo lo que tengo.

Aqui esta lo último

Hay que centrarse en los albaranes.

Los clientes tienen mas opciones, hay remitentes, destinatarios, volumen para el peso, desembolso en origen ... tengo la cabeza que ya no da para mas.

Hay varias casillas por ahi no visibles que he tenido que poner para conseguir algunos calculos.

Lo importante ahora mismo es:

Hay que editar un albaran, poner el peso y si queremos volumen, en Edit3 se recoge el peso max de esos dos valores, en DBEdit25 y solo despues de meter un destinatario (mas que nada pq antes no sabriamos donde va el bulto) se recoge la zona, que he calculado en base a los 2 digitos de la izquierda del codigo postal (Hay logicamente una tabla con los 52 codigos postales de España).

Ahora bien, en DBEdit21 quiero que aparezcan los portes en base a:

Peso que sale de Edit3 (pero no clavado sino que se tiene que amoldar a lo que hay en la tabla Tarifa)

Zona que aparece en DBEdit25

Ya no se ni si me estoy explicando bien o no, pero solo por curiosidad echarle un vistazo al codigo del form albaranes, asi se entenderá mejor mi bloqueo, cabreo, decepción, agobio ....

Buenas noches para el que pueda dormir bien, pq yo ya ni duermo

[[Caral]]

Hola Delphitest
La verdad estoy mas confundido que tu pero lo voy a explicar como lo entiendo.
Por favor respondeme si o no a estos puntos:
1- Tarifa= Peso x zona
Es simplemente una tabla de comparacion.

Osea envio tanto peso a tal zona y cuesta tanto.

2- destinatario ya tiene una zona seleccionada.

Osea que al incluir un destinatario en la tabla ya le incluyo la zona.

3- El precio de porte= Peso x zona

Osea que si envio 6 Kg a la zona 1, el porte sera el calculo en vase a la tarifa 5 { 7.96 Dividido entre 5 por 6}.

4- Supongo que viendo esto, yo lo haria por porcentage, me explico:

Tengo un peso minimo 5 Kg, y un maximo 1000 Kg.
Tengo las zonas que quiera 1, 2,3,4,5 ect.
De acuerdo a la zona 1 y un peso de 5 Kg el porte es de 7.96
De acuerdo a la zona 1 y un peso de 8 Kg el porte es de 12.72

Y asi sucesivamente
Si es asi, con solo tener el valor minimo de cada zona x porcentage se sacan los valores por peso que se necesiten.
5-Tanbien se puede hacer en base a diferencias de peso me explico.

Si envio de 5 a 10 Kg a la zona 1 cuesta 7.96 supongo ?
Si envio de 11 a 15 Kg a la zona 1 cuesta 8.74 supongo ?

Pero creo que estas no son el caso, de lo contrario seria bueno que lo comentaras.
Saludos

[Delphitest]

Abre la Tabla Tarifa y lo entenderas.

El destinatario tiene una zona en funcion de la provincia de destino, es la que calculo en DBEdit25.

La tarifa es por ej:

Estos son los campos:

Peso, Precio Zona0, Precio Zona1, Precio Zona2 ...Precio Reexpedición

y los registros serían:

5, 3.75, 4.50, 5.60 ...
10, 4.50, 5.60, 7.20

es decir que un registro corresponde a un peso pero con diferentes zonas y precios para cada una.

Para calcular el porte hay que tener en cuenta el peso y una vez en el registro del peso correspondiente elegir la zona que coincida con la del destinatario.

con el locate que tengo puesto solo funciona si el peso es exactamente igual que el de un registro, por ej. 5 , 10 ... pero si pongo 6 deberia corresponderle la tarifa de 10 Kg (hasta 10Kg)

lo dejo por hoy, hasta mañana

[yusnerqui]

Hola, creo que debes reconciderar el uso del SQL, con esto no te digo que cambies nada, pero si muy bien podrías ausiliarte de una función que use una instrucción sql para resolber tu problema:

Te confieso que no estoy muy empapado en tu programa, no se los componentes que usas etc, pero me he concentrado en el problema actual, si como supongo siempre debes coger el valor inmediato superior al peso introducido en caso de no ser este uno de los existentes puedes crearte una función similar a esta:

Código Delphi [-]
function paLocate(Peso: String): String;
Var
   Query:TADOQuery//suponiendo que uses ado.
begin
   Query:= TADOQuery.Create(nil);
   Try
     Query.Connection :=ADOConnection1; //El conector que uses
     Query.SQL.Text := 'Select min(peso) from TuTabla where Peso >= '+Peso;
     Result := Query.Fields[0].asString;
   finally
     Query.Free
   end
end;

Fíjate que te va a devolver el primer valor que sea mayor que el que has pasado como parámetro y en caso de que el parámetro exista en la base de datos te debe devolver ese mismo valor.

Pues nada que el resultado de esa función es el que le debes pasar a tu locate

Código Delphi [-]
 var
   MyPeso:String;
 begin
   MyPeso := paLocate(Edit3.Text)
   DTMGesatrans.TTarifa.Locate('Peso',StrToInt(MyPeso ),[]);
 end;

Espero que esto te de alguna idea, ya comentarás como te fue.

Consejo: No tienes idea de la cantidad de quebraderos de cabeza que te puedes quitar con solo usar pequeñas inyecciones de SQL en tu sistema.

Saludos

[Delphitest]

Gracias Yusnerqui,

he incorporado ese código al programa y me da este error (a parte de los ';' que faltaban y he ido colocando)

Indice de la lista fuera de rango(0)


¿Sabes a que puede ser debido?

al final creo que debo de ser gafe

[yusnerqui]

jeje, no te preocupes que la culpa es toda mía, jejeje, es que me faltó ejecutar la consulta:

Código Delphi [-]
function paLocate(Peso: String): String;
Var
   Query:TADOQuery//suponiendo que uses ado.
begin
   Query:= TADOQuery.Create(nil);
   Try
     Query.Connection :=ADOConnection1; //El conector que uses
     Query.SQL.Text := 'Select min(peso) from TuTabla where Peso >= '+Peso;
     Query.Open;
     Result := Query.Fields[0].AsString;
   finally
     Query.Free
   end
end;

Te recuerdo que no va a funcionar así de flai, debes ajustarlo a los componentes que estás usando. Saludos.

[yusnerqui]

Bueno y te sirvió o no la función???

Saludos Yusnerqui

[Delphitest]

Buenas Tardes,

no me ha servido o mejor dicho no le se sacar partido.

Pero me ha servido para pensar en otra forma para hacerlo y ahí ando, a ver si doy con ello de una vez.

Buen fin de semana y gracias de todos modos

[[Lepe]]

Empezado por yusnerqui

creo que debes reconciderar el uso del SQL

Empezado por Lepe

Pues al no usar sql te estas liando más todavía con código delphi

... y erre que erre con delphi...

El error que yo veo en este hilo, es que está construyendo su propia carretera, sin querer ver que hay otras autopistas desconocidas para él, pero que ya llevan al destino de una forma más rápida y fiable.

En mi caso, la tarifa depende de:
- el peso y tipo de portes a ese cliente (1 porte diario, 1 porte semanal, 2 semanales, 2 al més), dependiendo de ese tipo de porte, se aplica una tarifa distinta (es idéntico a tu problema de zonas)
- la tarifa del cliente que paga el albarán (remite o destinatario del paquete)
- Incluso se puede establecer un precio especial para un albarán, distinto de la tarifa que exista en la BBDD.

Solución que le dí en aquel momento:
Un simple Combobox. Cuando el usuario rellena todos los datos (remite, tipo de portes, kilos), se hace una consulta a la base de datos con sql y en el combobox se añaden 2 o 3 items del tipo:
14 kg 15.00 €
20 kg 19.30 €

(suponiendo que el peso del albarán es de 16 kg)

Al entrar el foco en el combo, se despliega la lista automáticamente, y el usuario solo tiene que elegirlo. El usuario ya sabe que el precio normal sería entre 15 y 19 € para ese albarán. Pero es libre de poner el precio que quiera (porque sea un porte "especial").

Cuando el usuario elige una tarifa de la lista, en el Combobox.Text solo aparece el precio, es decir sólo "19.30 €". Así al echar una ojeada al albarán completo vé:
- Portes (los 19.30 €)
etc... (otras cantidades que no puedo revelar)
- Base imponible
- xx % de iva
- Total del albarán

Simple, efectivo y cómodo.

... Y todo esto se ha tratado en el foro...

Saludos

[[Caral]]

Hola a todos
La verdad no entiendo que pasa con Delphitest , me preocupa que se llegue a desanimar, sin haber empezado.
Cuando se tiene un problema, normalmente se recurre a los amigos, hey hombre que aqui hay muchos, que pasa ,no entiendes algo , pues aqui te ayudamos, todo menos lo economico , tienes nuestra ayuda, hasta donde se pueda.
Este proyecto lo terminamos, porque lo terminamos, asi de claro, no se puede empezar algo y dejarlo a medias.
Entonces cuales son los nuevos avances. , esperamos por ti Delphitest.
Saludos