|
|
He creado un method con el siguiente procedimiento:
Tengo un select proveniente de varias tablas y el resultado lo guardo dentro de un array "laA".
En un ListBox con la configuracion siguiente rowsourcetype = 5-array y rowsource = this.Item , hago un DIMENSION thisform.ListBox.Item[alen(laA,1),n] , y ya tengo poblado mi ListBox, en una columna tengo valores numericos que los quiero sumar para desplegar esta suma en un TextBox.
Para sumar la columna con los valores numericos he dimencinado otro array "laB" asi: DIMENSION laB[alen(laA),n] , y luego realizo un FOR i = 1 to alen(laA,1).....Next.
Guardo mi valor en el TextBox asi: thisform.TextBox.Value = ArraySum(@laB)
Hago mi Function asi:
FUNCTION ArraySum(Total)
LOCAL i, lnRetVal
lnRetVal = 0
FOR i = 1 to alen(Total)
IF TYPE("Total[i,n]") = "N" && [i,n] representa la columna con los valores
lnRetVal = lnRetVal +Total[i,n]
ENDIF
ENDFOR
RETURN lnRetVal
ENDFUNC
Problema1: VFP me manda un mensage de que no permite nested procudure dentro de methods.
He trasladado la funcion ArraySum hacia un .prg , pero alli me manda un mensage de error de que no encuentra la variable "Total"
Pregunta: Esta bien mi sintaxis? o que estoy haciendo mal?
Gracias
Victor
|