XProfan

Proc ?_Value

    Declarar val&

    With ?_TableMap#

        If .RowPos& > 0 And .RowPos& <= .Rows& And .ColPos& > 0 And .ColPos& <= .Cols&

            val& = LONG(.Table&, (.ColPos& - 1 + (.RowPos& * .Cols&)) * 4)

            If val&

                //?_UTF8ToAscii(val&)
                Volver cadena$(val&, 0)

            EndIf

        EndIf

    EndWith

    Volver ""

ENDPROC