eror on Isnum

[Silvio.Falconi]

FUNCTION SerializeData(aInfo)
LOCAL cResult := ""
LOCAL nItemCount := LEN(aInfo)

FOR nIndex := 1 TO nItemCount
IF ISNUM(aInfo[nIndex][2]) <---- gave me error here
cResult += aInfo[nIndex][1] + "=" + ALLTRIM(STR(aInfo[nIndex][2], 10, 0)) + CHR(10)
ELSE
cResult += aInfo[nIndex][1] + "=" + ALLTRIM(aInfo[nIndex][2]) + CHR(10)
ENDIF
NEXT

RETURN cResult


I tried also with hb_isnum()

[Antonio Linares]

Dear Silvio,

What error do you get ?

[Silvio.Falconi]

Now Ai corrected in

Code: Select all  Expand view

FUNCTION SerializeData(aInfo)
    LOCAL cResult := ""
    LOCAL nItemCount := LEN(aInfo)
    LOCAL cKey, cValue

    FOR nIndex := 1 TO nItemCount
        cKey := aInfo[nIndex][1]
        cValue := aInfo[nIndex][2]


        IF ValType(cKey) != "C"
            MsgAlert("Errore: La chiave non è una stringa.")
            RETURN ""
        ENDIF


        IF ValType(cValue) == "N"
            cValue := Str(cValue)  
        ELSEIF ValType(cValue) != "C"
            MsgAlert("Errore: Valore non supportato.")
            RETURN ""
        ENDIF

       
        cResult += cKey + "=" + cValue + CHR(10)
    NEXT

    RETURN cResult

and run ok