Mi programa de facturación paso a paso

[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