FoxPro/Visual FoxPro - Seleccionar campos del ultimo registro de una subtabla

#define _PEND_	"pendiente"

LOCAL lnTally,i

LOCAL ARRAY laPend(1)

lcList = "Credito,curLast,curPend"

FOR i = 1 TO GETWORDCOUNT(lcList,CHR(44))

	lcCursor = GETWORDNUM(m.lcList,i,CHR(44))

	IF USED(lcCursor)

		USE IN SELECT(m.lcCursor)

	ENDIF

NEXT

* Creo el cursor que voy a mostrar

CREATE CURSOR curLast ("NoFactura" i,"cliente" c(20),"Saldo" n(12,2))

lcFolder = "c:\theodore\temp"    && esto es para mi

USE (ADDBS(lcFolder)+"credito") IN 0 SHARED

* Selecciono solamente los registros que tienen "pendiente"

SELECT * ;

	FROM credito ;

	WHERE TRIM(condicion)== _PEND_ ;

	INTO CURSOR curPend readwrite

lnTally = _tally

IF m.lnTally > 0

       * Si hay registros, creo un array con los números de factura pendientes

	SELECT distinct NoFactura;

		WHERE .t. ;

		FROM curPend ;

		INTO ARRAY laPend

	lnTally = _tally

	FOR i = 1 TO m.lnTally

               * para cada factura pendiente creo un cursor de paso y tomo el último registro

               * Incluyo el último registro en el cursor que voy a mostrar

		lnFactura = laPend[i,1]

		SELECT * ;

			FROM curPend ;

			WHERE NoFactura = laPend[i,1] ;

			INTO CURSOR curTramo

		SELECT curTramo

		GO bott

		INSERT INTO curlast (NoFActura,Cliente,Saldo) ;

			VALUES (laPend[i,1],curtramo.cliente,curtramo.saldo)

		USE IN curtramo

	NEXT

	SELECT curLast

	GO top

	BROWSE

ENDIF

FOR i = 1 TO GETWORDCOUNT(lcList,CHR(44))

	lcCursor = GETWORDNUM(m.lcList,i,CHR(44))

	IF USED(lcCursor)

		USE IN SELECT(m.lcCursor)

	ENDIF

NEXT

SET DATE FRENCH

CREATE CURSOR informaciones(aviso c(100))

CREATE CURSOR deudor(nofactura N(5), cliente C(20), condicion C(10), saldo N(10,2), vencimiento d)

*

SELECT credito

SELECT *;

from credito;

WHERE credito.vencimiento<DATE()+30 ORDER BY credito.vencimiento INTO CURSOR encontrado

*

vfac = 0

SELECT encontrado

vfac = encontrado.numero

SCAN

	SCAN WHILE encontrado.numero= vfac

		SCATTER MEMVAR

	ENDSCAN

*

	IF m.condicion = 'PENDIENTE'

		INSERT INTO deudor (nofactura, cliente, condicion, saldo, vencimiento) VALUES (m.numero, m.cliente, m.condicion, m.saldo, m.vencimiento)

	ENDIF

*

	vfac = encontrado.numero

	SCATTER MEMVAR

ENDSCAN

SELECT deudor

GO TOP

********CARGA A INFORMACIONES**********

SELECT deudor

GOTO TOP

DO WHILE !EOF()

SELECT informaciones

APPEND BLANK

replace informaciones.aviso WITH "Vencimiento factura cliente:    "+ALLTRIM(deudor.cliente)+"    - Saldo: "+ALLTRIM(STR(deudor.saldo))+"     - Fecha: "+ DTOC(deudor.vencimiento)

*thisform.grid1.Refresh

SELECT deudor

SKIP

ENDDO

SELECT informaciones

GO TOP

SELECT deudor

GO TOP

********************************************