Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Compile error vfp6 to vfp9
Message
 
 
À
12/04/2007 13:38:10
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01214993
Message ID:
01215105
Vues:
14
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform