Juan Antonio, yo tengo un caso parecido con la difertencia que establecí las tarifas
con Kms. desde en lugar de Kms. Hasta (no se si podrias hacerlo o te interesa) y de
esta forma la localizacion de la tarifa para unos kms cualesquiera y una fecha
cualquiera seria asi:
KTAR1 KLIST (CLAVE COMPLETA DEL ARCHIVO)
KFLD KKEMPR
KFLD KKDELE
KFLD KKTARI
KFLD KKKMS
KFLD KKFEC
KTAR2 KLIST (CLAVE PARCIAL)
KFLD KKEMPR
KFLD KKDELE
KFLD KKTARI
KTAR1 SETGTTTARL01
WWWKMS DOULEKKKMS
WWWFEC ANDLE KKFEC
*IN77 OREQ '1'
KTAR2 REDPETTARL01 77
ENDDO
*IN77 IFEQ '0'
"TARIFA ENCONTRADA"
ELSE
"NO EXSITE TARIFA"
ENDIF
Espero que te sirva
un saludo
luis
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nombre de Juan Ramón Garcia
Enviado el: martes, 01 de junio de 2004 11:35
Para: [EMAIL PROTECTED]
Asunto: Re: Sobre acceso a un fichero...
MessageHola Juan Antonio:
Yo lo montaría en 2 fases:
1 - Localizar escala de kilómetros
2 - Localizar tarifa para esa escala y fecha
La clave de acceso sería: Empresa/Delegación/Tarifa/Hasta
Kilómetros/Fecha(Año-mes-dia)
Tendríamos 2 claves:
CLAVE1 Empresa/delegación/Tarifa/Kilómetros
CLAVE2 Empresa/delegación/Tarifa/Kilómetros leídos/fecha
y 2 campos de control:
CONTROL1 Empresa/delegación/tarifa
CONTROL2 Empresa/delegación/tarifa/Kilómetros leídos
Montamos los 3 campos fijos (empresa/delegación/tarifa) y el campo
kilómetros de la 1ª clave
CLAVE1 SETLL Fichero
CONTROL1 READE Fichero 21
*IN21 IFEQ *OFF
Con la escala de kilómetros leídos montamos el campo kilómetros de clave 2 y
el campo CONTROL2 (los campos son los mismos)
CLAVE2 SETGT Fichero (el lógico es el mismo)
CONTROL2 REDPE Fichero 21
*IN21 IFEQ *OFF
¡Ya tenemos la tarifa para la fecha solicitada!
Este montaje de la clave te permite hacer consultas para tramos determinados
de kilometraje y todas sus tarifas segun la fecha de entrada en vigor.
Espero que te sirva.
Un saludo.
Juanra
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Juan Antonio
Sent: 31 May 2004 18:09
To: Forum
Subject: Sobre acceso a un fichero...
Buenas tardes.
Se me plantea la siguiente duda (ya de lunes...).
Tengo un fichero que va a contener precios para tarifas, y puedo grabar
estos para que entren en vigor dada cierta fecha. Es decir, la clave sería:
Empresa/Delegación/Tarifa/Fecha vigor y Hasta Kilómetros y tendría un precio
para esta clave.
Mi duda está en si es posible, y cómo (cambio en claves del fichero o
estructura de fichero), capturar el registro en vigor de forma directa sin
utilizar bucle de lectura alguno, esto es directamente con Setll/Segt y
Read/Reade/Readpe poder recuperar el registro en vigor. Creo que la única
forma es posicionandome por fecha y leyendo hasta localizar el
correspondiente a 9 kms, pero es por quitarme la duda de si se puede hacer
exclusivamente con las instrucciones Setxx y Readx/Readpx?.
Imaginar estos datos, siendo Empresa/Delegación/Tarifa conocidos y
restrictores, y deseo saber precio tarifa para 2004-05-31 con 9 kms u 11 kms
por ejemplo:
2004-01-01 // hasta 10 kms // 100 €
2004-01-01 // hasta 20 kms // 200 €
2004-01-01 // hasta 30 kms // 300 €
...etc
2004-06-01 // hasta 10 kms // 101 €
2004-06-01 // hasta 20 kms // 102 €
2004-06-01 // hasta 30 kms // 103 €
...etc
(Esta tarifa de junio puede existir para contemplar de antemano un cambio de
tarifa futuro)
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
