Mi programa de facturación paso a paso

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