Hola!
Estoy programando en fox 2.26 para win, tengo que hacer un listado en donde muestre
el nro de seccion, importe, iva y el total, ademas de si es o no un pago con
credito, pero bueno, eso esta hecho el problema surge al hacer el DO
LISTADO, me muestra mal las cosas, me salen en cualquier lado y muchas
paginas, que puedo tener mal?, este es el codigo.
SET DELETE ON
SET SAFE OFF
INDEX ON NRODPTO+NROSEC TAG XDPTOSEC
STORE 0 TO CLINEA, CONT, TOTAL, IVA, CANTSEC, TOTXSEC, TOTDEPTO
GO TOP
DO TITULO
nomdep=space(15)
DO WHILE NOT EOF()
mdepto=nombdep
=imprimo("")
=imprimo("Departamento: "+str(nrodpto)+nombdep)
=imprimo("")
DO WHILE NOT EOF AND mdepto=nomdep
mseccion=nrosec
iva=importe*21/100
total=importe+iva
totxsec=totxsec+total
cantsec=cantsec+1
DO WHILE NOT EOF() AND mdepto=nomdep AND mseccion=nrosec
totdepto=total+totxsec
IF control=1
alcon=alcon+1
ENDIF
=imprimo(str(nrocomp)+str(importe)+str(iva)+str(to tal)+str(control))
SKIP
ENDDO
=imprimo("Cantidad de secciones por depto: "+str(cantsec))
clinea=30
ENDDO
=imprimo("Importe vendido por ventas al contado= "+str(alcont))
ENDDO
?REPLICATE("_",60)
CLOSE DATABASE
PROCEDURE TITULO
cont=cont+1
CLEAR
?" Listado de ventas HOJA NRO"+space(1)+STR(CONT)
?REPLICATE("_", 60)
?""
?"Departamento: "+nrodpto
?"Nombre: "+nombdep
?""
?"Sección: "+nrosec
?"Nombre Sección: "+nomsec
?""
?"Nro De Comp. Importe IVA TOTAL"
CLINEA=2
RETURN
FUNCTION IMPRIMO
PARAMETERS DETALLE
IF CLINEA>29
WAIT WINDOW
DO TITULO
ENDIF
?DETALLE
CLINEA=CLINEA+1
RETURN
