FiveTech Software tech support forums

... since they are visible everywhere, you always run the risk of conflicts with locals and fieldnames. Note that here we are using a static variable oUser (an object). A static variable retains its value as long as the program is running. #include "fivewin.ch"// Class for userClass TUser  ...

... a save-button, if all are valid. the curiosity is now, that only two fields seem to follow the roules of the ON CHANGE clause. REDEFINE GET oUser VAR cUser ID 104 OF oDlg VALID !Empty (cUser) ;         ON CHANGE IIF ( (oUser:lValid() .and. oCity:lValid().and. ...

... ?? Rick Lipkin http://img69.imageshack.us/img69/4374/reads.jpg [code] DEFINE ICON oICO RESOURCE "SCANNER" DEFINE WINDOW oUser ; FROM 2,2 to 25,65 ; of oWndMDI ; TITLE "USERINFO Administrative Browse" ; MENU BuildMenu(oRsUser) ; ICON oICO ; NOMINIMIZE ; NOZOOM ...

... the user object. Then you can retrieve the user object anywhere in the program without using a public. Note that user():level is the same as doing oUser:= user(); oUser:level Menu oMenuif user():level > 3   menuitem...endifif user():level > 2   menuitem...endif Regards, James

... can do something like this: menuItem prompt "Edit" action ::edit() when user():lEdit This syntax may not be clear. The function user() returns an oUser object and one of the variables of that object is lEdit. Thus user():lEdit is the same as oUser:lEdit. The reason for storing the oUser object ...

... Function Countrycode() not included. Hope you'll enjoy it. :lol: Antonio FUNCTION PhoneTO(cPhone,cNome,cComment,CodeCountry) Local oSkype,oCall,oUser DEFAULT CodeCountry := CountryCode() if empty(cPhone) return 0 endif //if its a user do nothing if val(cPhone) <>0 //phone number build ...

... way it was before (no permisson necessary) because of the claims. By the way, the code has the following diference to the one post previously : oUser:= oSkype:user(cPhone) oCall := oSkype:PlaceCall(oUser:Handle) It works perfectly. And it can process a call to a number or if you have the skype ...

I've been trying with the code below but it doesn't work. FUNCTION PhoneTO(cPhone,cNome,cComment) Local oSkype,oCall,oUser cPhone := alltrim(cPhone) Try oSkype := CreateObject("Skype4COM.Skype") Catch alert("Skype4Com não está instalado!") return End If .not. oSkype:Client:IsRunning() ...

... nNewOption endif return nReply You could just change the fucntion name to user(). Better yet is to create a user class and then store the oUser object in the user function. You can create a user class with DATA such as user name, password, rights, etc. Also, you could add methods for load(), ...

... MsgInfo( "Error in Opening USERINFO table" ) RETURN(.F.) END TRY oRs:Find("USERID = '"+xLOGIN+"'" ) IF oRs:eof oRs:MoveFirst() ENDIF DEFINE WINDOW oUser ; FROM 2,2 to 25,65 ; of oWndMDI ; TITLE "USERINFO Records Browse" ; MENU BuildMenu(oRs) ; NOMINIMIZE ; NOZOOM ; MDICHILD @ 0, 0 LISTBOX oBrow ...

... del usuario, me la muestra bien puesto que coge eluser que tiene definido windows como usuario pero si cambio de usuario (en el objeto GET oUser VAR x_user) no me actualiza la imagen. Alguana idea? function lGetPassword() local oDlg, oUser, oPass local nTries := 0 //Nº de intentos ...

... 5, oSelf:oWnd:oMsgBar,0,,,.t.,.f.,180,14.7) Return Self METHOD MyClick(nRow, nCol, oTree) CLASS tNewrol local oItem Local nAt Local oUser local n, lWhen local oItem1 oItem := oTree:HitTest( nRow, nCol ) if oItem != NIL nAt := Ascan( ::aEmpresas, oItem:cPrompt ) aFill( ::aPerms, .T. ...