Escanear tabla usando filtros

hola, me puedes ayudar por favor, te cuento, tengo una tabla con n filas en l siguiente codigo
lleno otra tabla y esa tabla la mando COPY TO "C:\SESCO\cuentas\"+"surtiaceros_PED"+STR(nopedido)
para que llegue a otro formulario mi problema es que en l grid del otro formulario solo acepta
16 renglones pero mi tabla tiene n registros, lo que necesito es que cuando el scan llegue al registro
16 vuelva a empezar donde se quedo. Lo intentado de mil maneras pero no me lo hace
USE tempor1 IN 0
USE inventar IN 0
USE detpedidosfox IN 0
select tempor1
ZAP
SELECT dpedidosint
***lineas totales de la tabla
totalren=RECCOUNT()
****las veces que me debe de hacer el scan
divi=totalren/16
****contadores
acomulavueltas=0
contador=0
DO WHILE acomulavueltas>=divi
*Do while !eof()
*FOR i = 1 to 16
SCAN FOR "SURTIACEROS"$UPPER(surte)
*DO WHILE acomulavueltas>=divi
*FOR i = 1 to 16
SELECT detpedidosfox
GO TOP
LOCATE FOR ALLTRIM(clavepf)== ALLTRIM(dpedidosint.clavep) AND no_pedidof=dpedidosint.no_pedido
IF detpedidosfox.faltaf>0 AND detpedidosfox.porcentaje<90
SELECT tempor1
APPEND BLANK
replace numcontrol WITH dpedidosint.no_pedido
replace clave_p WITH dpedidosint.clavep
replace descrip WITH dpedidosint.descrip
*replace cantidad WITH dpedidosint.cantidad
replace kilos WITH dpedidosint.kilos
replace impuesto WITH 16
replace tempor1.cantidad WITH detpedidosfox.faltaf
SELECT inventar
GO TOP
LOCATE FOR ALLTRIM(clave_p)==ALLTRIM(dpedidosint.clavep)
IF FOUND()
SELECT tempor1
replace precio_u WITH inventar.inormal
ENDIF
SELECT tempor1
replace importe WITH IIF(kilos>0,kilos*precio_u,cantidad*precio_u)
replace total WITH importe
replace sub WITH total/(1+(impuesto/100))
replace iva WITH sub*(impuesto/100)
*i=i+1
*contador=i
if i=16
acomulavueltas=acomulavueltas+i
endif
*skip
**parte donde llamo a la tabla
SELECT tempor1
***cuando se copia y se debe de copiar las veces que tien la variabla divi
COPY TO "C:\SESCO\cuentas\"+"surtiaceros_PED"+STR(nopedido)
ENDIF
*ENDFOR
*ENDDO
skip
sELECT dpedidosint
*ENDFOR
ENDSCAN
*ENDFOR
ENDDO
*ENDDO
SELECT detpedidosfox
use
SELECT tempor1
USE
SELECT inventar
USE
muchas gracias por tú ayuda

1

1 Respuesta

77.000 pts. Me defiendo en lo que a VFP se refiere

Esta un poco "arcaico" tu método.

podrías enviar tu form y te apoyo?

Hace un tiempo tuve un problema similar y lo solucioné con unas propiedades en el form.

mi mail es: [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas