FoxPro/Visual FoxPro - Saldo

PROCEDURE Getsaldo( xcAlias , xcCodigoBuscado )

*-----------------------------------------------

* Propósito: Obtener los saldos en una tabla de Entradas / Salidas / Saldos

* Acá supongo que tienes un campo llamado "FECHA", pero también lo puedes parametrizar.

* Obtiene el índice si lo hay

LOCAL lcIndice , LnSaldo,nti,i

LOCAL ARRAY gatags(1)

SELECT (xcAlias)

NTi=ATAGINFO(GATAGS)

lcIndice=""

FOR i=1 TO nti

	IF LEFT(gatags[i,3],LEN("FECHA"))=="FECHA"

		LcIndice=gatags[i,1]

		EXIT

	ENDIF

ENDFOR

* Selecciona el cursor

SELECT (xcAlias)

IF !EMPTY(lcIndice)

	SET ORDER TO (lcIndice)

ENDIF

lnSaldo=0

IF EMPTY(xcCodigo)

	&& Si xcCodigo no se consigna, toma toda la tabla

	SCAN

		lnSaldo=lnSaldo+Entrada-Salida

		replace saldo WITH m.lnSaldo

	ENDSCAN

ELSE

	&& Si se consigna un código

	SCAN WHILE Codigo=xcCodigo	&& alt SCAN FOR codigo=xcCodigo

		lnSaldo=m.lnSaldo+Entrada-Salida

		replace saldo WITH m.lnSaldo

	ENDSCAN

ENDIF

*BROWSE