Jajaja bueno, ya puse las lineas htm en subrutinas para limpiar el código, así que puedo copiarlo...
Código:
Topvec=Ubound(vecrs,2)
while (i< Topvec)
Call ImprimirCabecera(Manant)
Curman=vecrs(Nroman,i)
While ((i< Topvec) AND (Manant=Curman))
Call ImprimirLinea(vecrs(NroCte,i), vecrs(NroCredito,i), vecrs(DebitoMandan,i))
AcumMan=Ccur(AcumMan)+Ccur(vecrs(DebitoMandan,i))
i=i+1
Curman=vecrs(Nroman,i)
wend
If vecrs(NroMan,i)<>"" Then
Manant=Cint(vecrs(NroMan,i))
Else
Manant=""
End if
Call ImprimirSubtotal (AcumMan)
AcumGen=Ccur(AcumGen)+Ccur(AcumMan)
AcumMan=0
Wend
Call ImprimirTotal(AcumGen)
Y el resultado que espero es este:
Mandante 1 - Nombre
Cliente | Credito | Monto
Cliente | Credito | Monto
Subtotal | Acumulados
Mandante 2 - Nombre
Cliente | Credito | Monto
Cliente | Credito | Monto
Subtotal | Acumulados
Total General: Total Acumulados
Y por las dudas, la tabla trae:
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto...
Ordenado por Mandante :)