Changeset 47

Timestamp:

06/22/10 20:36:38 (2 years ago)

Author:

larry.grey

Message:

Updated to loop through all queries with a prefix of "GS"

Location:

projects/updatetreeeffdtinqry/trunk/defn/ApplicationEnginePrograms/GS/GS_QRYEFFDT

Files:

• GS_QRYEFFDT.MAIN.GBL.default.1900-01-01.Step01.OnExecute.pcdefn.peoplecode (modified) (2 diffs)
• GS_QRYEFFDT.MAIN.GBL.default.1900-01-01.Step01.OnExecute.pcdefn.peoplecodeblob (modified) (previous)

projects/updatetreeeffdtinqry/trunk/defn/ApplicationEnginePrograms/GS/GS_QRYEFFDT/GS_QRYEFFDT.MAIN.GBL.default.1900-01-01.Step01.OnExecute.pcdefn.peoplecode

@@ -51 +51 @@
 Local ApiObject &MyQuery, &MySession, &CriteriaCollection;
 Local ApiObject &CurrentCriteria;
+Local string &QryToProcess;
 Local number &i;
 
@@ -59 +60 @@
    &MyQuery = &MySession.getquery();
    
-   &MyQuery.open("GS_JRNLS_MY_DEPT", True, True);
-   
-   Warning ("Just Opened Query " | &MyQuery.name | ", " | &MyQuery.description);
-   
-   &CriteriaCollection = &MyQuery.queryselect.criteria;
-   
-   For &i = 1 To &CriteriaCollection.count;
+   Local SQL &sqlGetQueries = CreateSQL("select QRYNAME from PSQRYDEFN where QRYNAME like 'GS%'");
+   While &sqlGetQueries.Fetch(&QryToProcess)
       
-      ProcessCriterion(&CriteriaCollection.item(&i), &i);
+      &MyQuery.open(&QryToProcess, True, True);
       
-   End-For;
-   
-   &MyQuery.save();
+      Warning ("Just Opened Query " | &MyQuery.name | ", " | &MyQuery.description);
+      
+      &CriteriaCollection = &MyQuery.queryselect.criteria;
+      
+      For &i = 1 To &CriteriaCollection.count;
+         
+         ProcessCriterion(&CriteriaCollection.item(&i), &i);
+         
+      End-For;
+      
+      &MyQuery.save();
+      &MyQuery.close();
+      
+   End-While;
    
 End-If;