Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Compile error vfp6 to vfp9
Message
 
 
To
12/04/2007 13:38:10
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01214993
Message ID:
01215105
Views:
12
I hope it was not you who invented this function...

BTW, I now take away the "insert" offer <g>

P.S. I hope also you already corrected the problem with declarations and removed unneeded External Array statement.

>Took some digging but I finally found the function I
>
   FUNCTION I
>    LPARAMETERS txpassed1, txpassed2
>    IF ISNULL(txpassed1) .OR. ISNULL(txpassed2)
>       RETURN .NULL.
>    ENDIF
>    LOCAL lctype, llisarray, lxretval
>    lctype = TYPE("TxPassed1")
>    llisarray = TYPE("txPassed[ 1]")<>"U"
>    lxretval = ''
>    DO CASE
>       CASE lctype="C" .AND. this.isintlclass(this.ohook)
>          lxretval = this.ohook.i(@txpassed1, @txpassed2)
>       CASE TYPE("txPassed1")="O"
>          lxretval = this.localize(txpassed1, txpassed2)
>       CASE ( .NOT. ISNULL(this.getstrategy("Currency"))) .AND. TYPE("txPassed1")="N"
>          LOCAL locstrat
>          locstrat = this.getstrategy("Currency")
>          lxretval = IIF(ISNULL(locstrat), txpassed1, locstrat.i(txpassed1, txpassed2))
>       OTHERWISE
>          lxretval = txpassed1
>    ENDCASE
>    RETURN lxretval
>   ENDFUNC
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform