Information générale
Titre:
Failing at the if condition:if seek (guser)
Sorry, i am sending it again the same one the previous one i dint mention the problem correctly.
Failing at the if condition:if seek (guser)
the following code is a class object code which i am calling in the init event of the form it is working fine.
And also i am calling in the button click event of the form there it is failing.
The following code is used to fill the picklist items in the form.
the problem is it is failing at the if condition
if seek (guser) and in the guser the user name is valid and it is not going inside the if condition it is skipping.
Could you please advice me what i can do to solve this.
*************
IF TYPE("acuser1") = "U" OR TYPE("acUserProj1") = "U"
WAIT WINDOW "Gathering user profile..." NOWAIT
Public ARRAY acuser1(1,2),acuserProj1(1,2)
SELECT PROJECT
SET ORDER TO project_no
SELECT workpkg
SET ORDER TO wpkg_no
SELECT userproj
SET ORDER TO USERID
SET RELATION TO project_no INTO PROJECT ADDITIVE
SET RELATION TO workpkg_no INTO workpkg additive
mProject_no = "~!"
STORE 1 TO pCnt,wCnt
DIMENSION acuserProj1(pCnt,2),acuser1(wCnt,3)
acuserProj1(1,1) = ""
acuserProj1(1,2) = "(None)"
acuser1(1,1) = ""
acuser1(1,2) = "(None)"
acuser1(1,3) = "none"
set step on
IF SEEK(gUser)
SCAN WHILE USERID = gUser FOR workpkg.rec_type=strtype
IF project_no <> mProject_no
mProject_no = project_no
pCnt = pCnt + 1
DIMENSION acuserProj1(pCnt,2)
acuserProj1(pCnt,1) = project_no
acuserProj1(pCnt,2) = PROJECT.pjct_name
ENDIF
wCnt = wCnt + 1
DIMENSION acuser1(wCnt,3)
acuser1(wCnt,1) = workpkg_no
acuser1(wCnt,2) = workpkg.wp_descrip
acUser1(wCnt,3) = project_no
ENDSCAN
ENDIF
WAIT CLEAR
elapsed = seconds() - start
ENDIF
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement