FUNCTION SumaCta
PARAMETERS cCodCta, cNivel, ldebe
LOCAL nImp_Total, cSqlStr
* Supongamos que los campo de la tabla donde estan los importes se denomina DEBE y HABER
IF cNivel <> 'D'
cNivel = STR(VAL(cNivel)+1),1)
cSqlStr ="SELECT cuenta FROM DIARIOS WHERE cuenta LIKE '"+cCodCta+"%'"+" AND Nivel='"cNivel+"'"
&cSqlStr
if Reccount() = 0
cNivel = 'D'
endif
endif
iF ldebe
cSqlStr = "SELECT sum(debe) INTO nImp_Total FROM DIARIO WHERE cuenta LIKE '"+cCodCta+"%'"+" AND Nivel='"cNivel+"'"
Else
cSqlStr= "SELECT sum(haber) INTO nImp_Total FROM DIARIO WHERE cuenta LIKE '"+cCodCta+"%'"+" AND Nivel='"cNivel+"'"
ENDiF
&cSqlStr
if reccount()=0
nImp_Total = 0
endif
USE
RETURN nImp_Total