Clipper/FiveWin - Mi five no sabe sumar

Muy buenas a todos:
Si no os riais del titulo, es cierto. O por lo menos yo no encuentro la logica. Mirar el siguiente trozo de código:

LOCAL nFila:=1
DO WHILE
....
.....

nSaldo+=aVarExt[nFila,5]-aVarExt[nFila,6]
IF nSaldo=0
EXIT
ELSE
nFila+=1
ENDIF
ENDDO

las variables se cargaran de la siguiente manera: (Estan verificado los datos que cargan)
aVarExt[1,5]=1140.17 aVarExt[1,6]=0
aVarExt[2,5]=0 aVarExt[2,6]=162.30
aVarExt[3,5]=0 aVarExt[3,6]=1024.59
aVarExt[4,5]=0 aVarExt[4,6]=-46.72

en principio el resultado despues de calcular los valores para nFila=4 sería 0,
1140.17 - 0 + 0 +162.30 + 0 - 1024.59 + 0 - (46.72)

pero no. Si en ese momento haces un say de nSaldo y te indica que su valor es"-0", con lo que el condicional no actua. ¿Como se soluciona eso?

Muchas gracias

Hola Gabriel.

Si no te entendí bien, disculpame, pero ensayaré esta solución, si no es así dimelo, volveré a leer tu mensaje en intentaré otra solución

Para que una variable, de cero cuando es cero hago así:

nSaldo:= VAL( STR( nSaldo , 12 , 0 ) )

Luego si preguntas:

IF EMPTY( nSaldo )
// Vendrá por aquí si es cero

Espero que te ayude.

Saludos, desde Santa Cruz de la Sierra - Bolivia

Gabriel,

Probé tu código y el resultado en la variable nSaldo es 0, mirá tu código:

LOCAL nFila:=1 , nSaldo := 0
DECLARE aVarExt[ 4 , 2 ]
//
aVarExt[1,1] := 1140.17 ; aVarExt[1,2] := 0
aVarExt[2,1] := 0 ; aVarExt[2,2] := 162.30
aVarExt[3,1] := 0 ; aVarExt[3,2] := 1024.59
aVarExt[4,1] := 0 ; aVarExt[4,2] := -46.72
WHILE ( nFila < 5 )
nSaldo += ( aVarExt[nFila,1] - aVarExt[nFila,2] )
IF nSaldo = 0
EXIT
ELSE
nFila += 1
ENDIF
ENDDO
nSaldo := VAL( STR( nSaldo , 12 , 0 ) )
IF EMPTY( nSaldo )
? 'nSaldo es: 0'
ELSE
? 'nSaldo es: ' , nSaldo
ENDIF
WAIT
RETURN NIL

Sólo le cambie las columnas al arreglo y claro lo declaré, para tu considearción ve este otro código que hace lo mismo:

LOCA nI , nSaldo := 0
DECLARE aVarExt[ 4 , 2 ]
//
aVarExt[1,1] := 1140.17 ; aVarExt[1,2] := 0
aVarExt[2,1] := 0 ; aVarExt[2,2] := 162.30
aVarExt[3,1] := 0 ; aVarExt[3,2] := 1024.59
aVarExt[4,1] := 0 ; aVarExt[4,2] := -46.72
FOR nI := 1 TO 4
nSaldo += ( aVarExt[ nI , 1 ] - aVarExt[ nI , 2] )
NEXT nI
nSaldo := VAL( STR( nSaldo , 12 , 0 ) )
IF EMPTY( nSaldo )
? 'nSaldo es: 0'
ELSE
? 'nSaldo es: ' , nSaldo
ENDIF
WAIT
RETURN NIL

Deseo que te vaya bien.

Saludos, desde Santa Cruz de la Sierra - Bolivia.

Pues muchisimas gracias Adalberto Baqueros. Al parecer la solucion esta en el VAL(STR(..))

No sabes que peso me quitaste de encima.

Mil gracias otra vez.

Saludos Gabriel Martin, desde Mataró España