General information
Title:
Want to add the condition to the array(acUser).
I have two pick lists first project and second workpackage
when i select the project, and in the second picklist all the work packages which belong to that project will get populated. but i want to add a condition to the workpackage, show only those workpackages with rec_type = 'C'
the following three lines belong to the array where it is putting all the work packages in the second picklist:
***********************************************
acuser(wCnt,1) = workpkg_no
acuser(wCnt,2) = workpkg.wp_descrip
acUser(wCnt,3) = project_no
***********************************************
The following is the entire code:
*************
IF TYPE("acuser") = "U" OR TYPE("acUserProj") = "U"
WAIT WINDOW "Gathering user profile..." NOWAIT
PUBLIC ARRAY acuser(1,2),acuserProj(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 acuserProj(pCnt,2),acuser(wCnt,3)
acuserProj(1,1) = ""
acuserProj(1,2) = "(None)"
acuser(1,1) = ""
acuser(1,2) = "(None)"
acuser(1,3) = "none"
IF SEEK(gUser)
SCAN WHILE USERID = gUser
IF project_no <> mProject_no
mProject_no = project_no
pCnt = pCnt + 1
DIMENSION acuserProj(pCnt,2)
acuserProj(pCnt,1) = project_no
acuserProj(pCnt,2) = PROJECT.pjct_name
ENDIF
wCnt = wCnt + 1
DIMENSION acuser(wCnt,3)
acuser(wCnt,1) = workpkg_no
acuser(wCnt,2) = workpkg.wp_descrip
acUser(wCnt,3) = project_no
ENDSCAN
ENDIF
WAIT CLEAR
elapsed = seconds() - start
ENDIF
***********************End**************
Thank you Very much.
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only