ORDSCOPE(TOPSCOPE,INT001->DPTO
Publicado por jose (9 intervenciones) el 09/09/2004 05:03:10
Esto lo puse como linea No. 1 del programa
#INCLUDE "ORD.ch"
abajo puse los escopes , adaptandolos a mi necesidad, pero no marca error pero no me filtra nada. desplliega todas las ordenes de produccion.
select int001
seek MORDEN_PR+MVIENE_DPTO SOFTSEEK
// LIMITE SUPERIOR
ORDSCOPE(TOPSCOPE,INT001->DPTO=MVIENE_DPTO.AND.INT001->O_PROD=MORDEN_PR)
// LIMITE INFERIOR
ORDSCOPE(BOTTOMSCOPE,INT001->DPTO=MVIENE_DPTO.AND.INT001->O_PROD=MORDEN_PR)
**SET FILTER TO INT001->DPTO=MVIENE_DPTO.AND.INT001->O_PROD=MORDEN_PR
@ 08,00 CLEAR to 18,79
@ 08,00 to 18,79 double
BEGIN SEQUENCE
DBEDIT(9,02,18,77,AR,"nueva_db",ARP,ARC,CHR(205),CHR(179),CHR(205),)
BREAK
END
#INCLUDE "ORD.ch"
abajo puse los escopes , adaptandolos a mi necesidad, pero no marca error pero no me filtra nada. desplliega todas las ordenes de produccion.
select int001
seek MORDEN_PR+MVIENE_DPTO SOFTSEEK
// LIMITE SUPERIOR
ORDSCOPE(TOPSCOPE,INT001->DPTO=MVIENE_DPTO.AND.INT001->O_PROD=MORDEN_PR)
// LIMITE INFERIOR
ORDSCOPE(BOTTOMSCOPE,INT001->DPTO=MVIENE_DPTO.AND.INT001->O_PROD=MORDEN_PR)
**SET FILTER TO INT001->DPTO=MVIENE_DPTO.AND.INT001->O_PROD=MORDEN_PR
@ 08,00 CLEAR to 18,79
@ 08,00 to 18,79 double
BEGIN SEQUENCE
DBEDIT(9,02,18,77,AR,"nueva_db",ARP,ARC,CHR(205),CHR(179),CHR(205),)
BREAK
END
Valora esta pregunta
0