>*--Basic example of principle >CLOSE ALL >CLEAR ALL >CLEAR >SET SAFETY OFF >SET TALK OFF >gilang = 2 && Spanish > >CREATE TABLE msgs (cid c(16), ilang n(2,0), cmsg c(100), cmsgid c(16), ctitle c(50)) > >SELE msgs >INDEX ON ALLTRIM(STR(ilang))+ALLTRIM(cmsgid) TAG cmsglist > >APPEND BLANK >REPLACE cid WITH "0000000000000001" >REPLACE ilang WITH 1 >REPLACE cmsg WITH "Please enter your name" >REPLACE cmsgid WITH "11" >REPLACE ctitle WITH "Instructions" >APPEND BLANK >REPLACE cid WITH "0000000000000002" >REPLACE ilang WITH 2 >REPLACE cmsg WITH "Por favor entre en su nombre" >REPLACE cmsgid WITH "11" >REPLACE ctitle WITH "Instrucciones" >USE IN msgs > >*--Display the message >=MESSAGEBOX(getmsg(.F.,"11",1),0+16+4096,getmsg(.T.,"11",1)) >=MESSAGEBOX(getmsg(.F.,"11",gilang),0+16+4096,getmsg(.T.,"11",2)) > >CLOSE ALL > >RETURN > > >FUNCTION getmsg(qtitle, qid, qlang) > >IF TYPE('qtitle') <> 'L' > RETURN "" >ENDIF > >IF TYPE('qid') <> 'C' .or. EMPTY(qid) > RETURN "" >ENDIF > >IF TYPE('qlang') <> "N" .or. qlang <=0 > RETURN "" >ENDIF > >qlang = ALLTRIM(STR(qlang)) > >STORE ALIAS() TO curalias > >USE msgs ORDER TAG CMSGLIST IN 0 > >IF INDEXSEEK(qlang+qid,.t.,'msgs','CMSGLIST') > IF qtitle > lcReturn = ALLTRIM(msgs.ctitle) > ELSE > lcReturn = ALLTRIM(msgs.cmsg) > ENDIF >ELSE > lcReturn = "" >ENDIF > >USE IN msgs > >IF !EMPTY(curalias) .and. USED(curalias) > SELECT (curalias) >ENDIF > >RETURN lcReturn > > >>