VBA-Scripts in Ordner VBA

- list-datasources auch für C11
- Aufrufe für .mac-Dateien entsprechend angepasst

gctools/create-cube.mac → gctools/VBS/create-cube.mac

@@ -1,31 +1,31 @@
-Dim objApp As Object
-Dim objModel As Object
-Dim objCube As Object
-
-Dim filename as String
-Dim folder as String
-Dim publish As String
-
-
-Sub Main ()
-   Rem On Error Resume Next
-
-   rem folder = "C:\GAPS\Portal\System\Models"
-   rem filename = "belege.mdc"
-   rem publish = "C:\GAPS\Portal\System\Cube_out\temp"
-   
-   folder = GetField(Command, 1, ",")
-   filename = GetField(Command, 2, ",")
-   publish = GetField(Command, 3, ",")
-   
-   Set objApp = CreateObject("CognosTransformer.Application")
-   Set objModel = objApp.OpenModel(folder + "\" + filename)
-   Set objCube = objModel.Cubes.Item(1)
-
-   objCube.MDCFile = publish + "\" + filename + ".mdc"
-   objCube.Update
-   objCube.CreateMDCFile
-   
-   objModel.Close
-   objApp.Quit
-End Sub
+Dim objApp As Object
+Dim objModel As Object
+Dim objCube As Object
+
+Dim filename as String
+Dim folder as String
+Dim publish As String
+
+
+Sub Main ()
+   Rem On Error Resume Next
+
+   rem folder = "C:\GAPS\Portal\System\Models"
+   rem filename = "belege.mdc"
+   rem publish = "C:\GAPS\Portal\System\Cube_out\temp"
+   
+   folder = GetField(Command, 1, ",")
+   filename = GetField(Command, 2, ",")
+   publish = GetField(Command, 3, ",")
+   
+   Set objApp = CreateObject("CognosTransformer.Application")
+   Set objModel = objApp.OpenModel(folder + "\" + filename)
+   Set objCube = objModel.Cubes.Item(1)
+
+   objCube.MDCFile = publish + "\" + filename + ".mdc"
+   objCube.Update
+   objCube.CreateMDCFile
+   
+   objModel.Close
+   objApp.Quit
+End Sub

gctools/impromptu.mac → gctools/VBS/impromptu.mac

@@ -1,38 +1,38 @@
-Dim objApp As Object
-Dim objRep as Object
-
-Dim imrFile as String
-Dim catalogFile as String
-Dim exportFile As String
-Dim exportFormat As String
-
-
-Sub Main ()
-   rem On Error Resume Next
-
-   rem imrFile = "C:\GAPS\Portal\System\IQD\Belege\Belege.imr"
-   rem catalogFile = "C:\GAPS\Portal\System\Catalogs\Finance.cat"
-   rem exportFile = "C:\GAPS\Portal\System\Export\Belege.csv"
-   rem exportFormat = "x_ascii.flt"
-   
-   imrFile = GetField(Command, 1, ",")
-   catalogFile = GetField(Command, 2, ",")
-   exportFile = GetField(Command, 3, ",")
-   exportFormat = GetField(Command, 4, ",")
-   
-   
-   Set objApp = CreateObject("CognosImpromptu.Application")
-   objApp.OpenCatalog catalogFile, "Ersteller"
-   Set objRep = objApp.OpenReport(imrFile)
-   objRep.RetrieveAll
-   If exportFormat = "ims" Then
-      objRep.ExportHotFile(exportFile)
-   Else
-      objRep.Export exportFile, exportFormat
-   End If
-   objRep.CloseReport
-   objApp.Quit
-   Set objRep = Nothing
-   Set objApp = Nothing
-
-End Sub
+Dim objApp As Object
+Dim objRep as Object
+
+Dim imrFile as String
+Dim catalogFile as String
+Dim exportFile As String
+Dim exportFormat As String
+
+
+Sub Main ()
+   rem On Error Resume Next
+
+   rem imrFile = "C:\GAPS\Portal\System\IQD\Belege\Belege.imr"
+   rem catalogFile = "C:\GAPS\Portal\System\Catalogs\Finance.cat"
+   rem exportFile = "C:\GAPS\Portal\System\Export\Belege.csv"
+   rem exportFormat = "x_ascii.flt"
+   
+   imrFile = GetField(Command, 1, ",")
+   catalogFile = GetField(Command, 2, ",")
+   exportFile = GetField(Command, 3, ",")
+   exportFormat = GetField(Command, 4, ",")
+   
+   
+   Set objApp = CreateObject("CognosImpromptu.Application")
+   objApp.OpenCatalog catalogFile, "Ersteller"
+   Set objRep = objApp.OpenReport(imrFile)
+   objRep.RetrieveAll
+   If exportFormat = "ims" Then
+      objRep.ExportHotFile(exportFile)
+   Else
+      objRep.Export exportFile, exportFormat
+   End If
+   objRep.CloseReport
+   objApp.Quit
+   Set objRep = Nothing
+   Set objApp = Nothing
+
+End Sub

gctools/VBS/info.txt

@@ -0,0 +1,20 @@
+"current_date_Prognose"
+"current_date_Prognose_operativ_VJ"
+"Kontenrahmen"
+"Belege_GuV_KST_ohne_Konvertierung"
+"Umsatz_Belege_GuV_KST_ohne_Konvertierung"
+"Planung_Tag"
+"Planung_Tag_Umsatz"
+"NW_GW_VK"
+"Auftraege"
+"Auftraege_Mont_fuer_ben_AW"
+"Offene_Auftraege"
+"NW_GW_BE"
+"OP_Gesamt"
+"Kontenrahmen_Bankkonten"
+"Belege_Bilanz_ohne_KST_Bankkonten"
+"Belege_Bilanz_ohne_KST_Vortrag_Bankkonten"
+"Belege_Bilanz_KST_Bankkonten"
+"Planung_Tag_Stk_für NW_GW_Soll"
+"Stempelung_Monteur"
+"Auftraege_Mont"

gctools/VBS/list-datasources-C11.mac

@@ -0,0 +1,58 @@
+Dim objApp As Object
+Dim objModel As Object
+Dim objDataSource As Object
+Dim objQuery As Object
+
+Dim filename as String
+Dim folder as String
+Dim logfile As String
+
+
+Sub Main ()
+    On Error Resume Next
+
+    folder = "C:\GlobalCube\System\AUDEV_CARIT\Models"
+    filename = "s_offene_auftraege.pyj"
+    rem filename = "f_belege.pyj"
+    rem publish = "C:\GAPS\Portal\System\Cube_out\temp"
+
+    folder = GetField(Command, 1, ",")
+    filename = GetField(Command, 2, ",")
+    logfile = GetField(Command, 3, ",")
+
+    Set objApp = CreateObject("IBMCognosTransformer.ApplicationCtrl.1")
+    Set objModel = objApp.OpenModel(folder + "\" + filename)
+   
+    Open logfile for Output as #1
+    rem Print objModel.DataSources.Count
+    For i = 1 to objModel.DataSources.Count
+        Set objDataSource = objModel.DataSources.Item(i)
+
+        If objDataSource.Type = 38 Then
+            rem Package
+            For j = 1 to objDataSource.Queries.Count
+                Set objQuery = objDataSource.Queries.Item(j)
+                Write #1, objQuery.Name 
+            Next
+            Exit For
+        End If
+        If objDataSource.Type = 6 Then
+           Write #1, objDataSource.LocalPath
+        Else
+           Write #1, objDataSource.Name
+        End If     
+
+        rem If objDataSource.Type = 4 Then
+           rem Print objDataSource.SQLExpression
+        rem End If
+        rem Print "--"
+    Next
+    Close #1
+   
+    objModel.Close
+    rem objApp.Quit
+    Set objQuery = Nothing
+    Set objDataSource = Nothing
+    Set objModel = Nothing
+    Set objApp = Nothing
+End Sub

gctools/list-datasources.mac → gctools/VBS/list-datasources.mac

@@ -1,36 +1,36 @@
-Dim objApp As Object
-Dim objModel As Object
-Dim objDataSource As Object
-
-Dim filename as String
-Dim folder as String
-Dim publish As String
-
-
-Sub Main ()
-    Rem On Error Resume Next
-
-    folder = "C:\GAPS\Portal\System\Models"
-    filename = "fin_belege.pyi"
-    rem publish = "C:\GAPS\Portal\System\Cube_out\temp"
-
-    rem folder = GetField(Command, 1, ",")
-    rem filename = GetField(Command, 2, ",")
-    rem publish = GetField(Command, 3, ",")
-
-    Set objApp = CreateObject("CognosTransformer.Application")
-    Set objModel = objApp.OpenModel(folder + "\" + filename)
-   
-    For i = 1 to objModel.DataSources.Count
-        Set objDataSource = objModel.DataSources.Item(i)
-        Print objDataSource.Name
-        Print objDataSource.LocalPath
-        If objDataSource.SourceType = 4 Then
-           Print objDataSource.SQLExpression
-        End If
-        Print "--"
-    Next
-   
-    objModel.Close
-    objApp.Quit
-End Sub
+Dim objApp As Object
+Dim objModel As Object
+Dim objDataSource As Object
+
+Dim filename as String
+Dim folder as String
+Dim publish As String
+
+
+Sub Main ()
+    Rem On Error Resume Next
+
+    folder = "C:\GAPS\Portal\System\Models"
+    rem filename = "fin_belege.pyi"
+    rem publish = "C:\GAPS\Portal\System\Cube_out\temp"
+
+    rem folder = GetField(Command, 1, ",")
+    filename = GetField(Command, 1, ",")
+    rem publish = GetField(Command, 3, ",")
+
+    Set objApp = CreateObject("CognosTransformer.Application")
+    Set objModel = objApp.OpenModel(folder + "\" + filename)
+   
+    For i = 1 to objModel.DataSources.Count
+        Set objDataSource = objModel.DataSources.Item(i)
+        Print objDataSource.Name
+        Print objDataSource.LocalPath
+        If objDataSource.SourceType = 4 Then
+           Print objDataSource.SQLExpression
+        End If
+        Print "--"
+    Next
+   
+    objModel.Close
+    objApp.Quit
+End Sub

gctools/powerplay-export.mac → gctools/VBS/powerplay-export.mac

@@ -1,68 +1,68 @@
-Dim objApp As Object
-Dim objRep As Object
-Dim filename as String
-Dim folder as String
-Dim publish As String
-Dim exportFormat As String
-
-Sub Main ()
-   Rem On Error Resume Next
-   Set objApp = CreateObject("CognosPowerPlay.Application")
-   rem folder = "C:\GAPS\Portal\System\Report"
-   rem filename = "test.ppr"
-   rem exportFormat = "pdf"
-   rem publish = "C:\GAPS\Portal\daten"
-   
-   folder = GetField(Command, 1, ",")
-   filename = GetField(Command, 2, ",")
-   exportFormat = GetField(Command, 3, ",")
-   publish = GetField(Command, 4, ",")
-
-   Dim exportFile as String
-   Dim objPDF as Object
-   
-   If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
-      Set objRep = CreateObject("CognosPowerPlay.Report")
-      objRep.Open(folder + "\" + filename)
-      exportFile = publish + "\" + Left(filename, Len(filename) -4)
-
-      Select Case exportFormat
-         Case "pdf"
-            
-            Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
-            With objPDF
-               .SaveEntireReport = True
-               .AxisOnAllPages = True
-               .ChartTitleOnAllPages = False
-               .IncludeLegend = False
-            End With
-            objPDF.Save
-
-            For i = 1 to objRep.Layers.Count
-               Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
-               With objPDF
-                  .SaveEntireReport = False
-                  .SaveAllCharts = False                     
-                  .AxisOnAllPages = True
-                  .ChartTitleOnAllPages = False
-                  .IncludeLegend = False
-                  .SetListOfLayersToSave objRep.Layers.Subset(i, i)
-                  .SetListOfRowsToSave objRep.Rows
-               End With
-               objPDF.Save
-            Next
-
-         Case "asc"
-            objRep.SaveAs exportFile, 3
-         Case "xls"
-            objRep.SaveAs exportFile, 4
-         Case "ppx"
-            objRep.SaveAs exportFile, 5
-         Case Else
-            objRep.Publish publish, False, True, True    
-      End Select
-      objRep.Close
-   End if
-
-   objApp.Quit
-End Sub
+Dim objApp As Object
+Dim objRep As Object
+Dim filename as String
+Dim folder as String
+Dim publish As String
+Dim exportFormat As String
+
+Sub Main ()
+   Rem On Error Resume Next
+   Set objApp = CreateObject("CognosPowerPlay.Application")
+   rem folder = "C:\GAPS\Portal\System\Report"
+   rem filename = "test.ppr"
+   rem exportFormat = "pdf"
+   rem publish = "C:\GAPS\Portal\daten"
+   
+   folder = GetField(Command, 1, ",")
+   filename = GetField(Command, 2, ",")
+   exportFormat = GetField(Command, 3, ",")
+   publish = GetField(Command, 4, ",")
+
+   Dim exportFile as String
+   Dim objPDF as Object
+   
+   If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
+      Set objRep = CreateObject("CognosPowerPlay.Report")
+      objRep.Open(folder + "\" + filename)
+      exportFile = publish + "\" + Left(filename, Len(filename) -4)
+
+      Select Case exportFormat
+         Case "pdf"
+            
+            Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
+            With objPDF
+               .SaveEntireReport = True
+               .AxisOnAllPages = True
+               .ChartTitleOnAllPages = False
+               .IncludeLegend = False
+            End With
+            objPDF.Save
+
+            For i = 1 to objRep.Layers.Count
+               Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
+               With objPDF
+                  .SaveEntireReport = False
+                  .SaveAllCharts = False                     
+                  .AxisOnAllPages = True
+                  .ChartTitleOnAllPages = False
+                  .IncludeLegend = False
+                  .SetListOfLayersToSave objRep.Layers.Subset(i, i)
+                  .SetListOfRowsToSave objRep.Rows
+               End With
+               objPDF.Save
+            Next
+
+         Case "asc"
+            objRep.SaveAs exportFile, 3
+         Case "xls"
+            objRep.SaveAs exportFile, 4
+         Case "ppx"
+            objRep.SaveAs exportFile, 5
+         Case Else
+            objRep.Publish publish, False, True, True    
+      End Select
+      objRep.Close
+   End if
+
+   objApp.Quit
+End Sub

gctools/publish-reports.mac → gctools/VBS/publish-reports.mac

@@ -1,71 +1,71 @@
-Dim objApp As Object
-Dim objRep As Object
-Dim folder as String
-Dim publish As String
-Dim exportFormat As String
-
-Sub Main ()
-   Rem On Error Resume Next
-   Set objApp = CreateObject("CognosPowerPlay.Application")
-   rem folder = "C:\GAPS\Portal\System\Report"
-   rem exportFormat = "pdf"
-   rem publish = "C:\GAPS\Portal\daten"
-   
-   folder = GetField(Command, 1, ",")
-   exportFormat = GetField(Command, 2, ",")
-   publish = GetField(Command, 3, ",")
-
-   Dim filename as String
-   Dim exportFile as String
-   Dim objPDF as Object
-   
-   filename = Dir(folder + "\")
-
-   Do While filename <> ""
-      If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
-         Set objRep = CreateObject("CognosPowerPlay.Report")
-         objRep.Open(folder + "\" + filename)
-         exportFile = publish + "\" + Left(filename, Len(filename) -4)
-         Select Case exportFormat
-            Case "pdf"
-               
-               Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
-               With objPDF
-                  .SaveEntireReport = True
-                  .AxisOnAllPages = True
-                  .ChartTitleOnAllPages = False
-                  .IncludeLegend = False
-               End With
-               objPDF.Save
-
-               For i = 1 to objRep.Layers.Count
-                  Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
-                  With objPDF
-                     .SetListOfLayersToSave objRep.Layers.Subset(i, i)
-                     .SetListOfRowsToSave objRep.Rows
-                     .SaveEntireReport = False
-                     .SaveAllCharts = False           
-                     .AxisOnAllPages = True
-                     .ChartTitleOnAllPages = True
-                     .IncludeLegend = True
-                  End With
-                  objPDF.Save
-               Next
-
-            Case "asc"
-               objRep.SaveAs exportFile, 3
-            Case "xls"
-               objRep.SaveAs exportFile, 4
-            Case "ppx"
-               objRep.SaveAs exportFile, 5
-            Case Else
-               objRep.Publish publish, False, True, True    
-         End Select
-         objRep.Close
-      End if
-
-
-      filename = Dir
-   Loop
-   objApp.Quit
-End Sub
+Dim objApp As Object
+Dim objRep As Object
+Dim folder as String
+Dim publish As String
+Dim exportFormat As String
+
+Sub Main ()
+   Rem On Error Resume Next
+   Set objApp = CreateObject("CognosPowerPlay.Application")
+   rem folder = "C:\GAPS\Portal\System\Report"
+   rem exportFormat = "pdf"
+   rem publish = "C:\GAPS\Portal\daten"
+   
+   folder = GetField(Command, 1, ",")
+   exportFormat = GetField(Command, 2, ",")
+   publish = GetField(Command, 3, ",")
+
+   Dim filename as String
+   Dim exportFile as String
+   Dim objPDF as Object
+   
+   filename = Dir(folder + "\")
+
+   Do While filename <> ""
+      If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
+         Set objRep = CreateObject("CognosPowerPlay.Report")
+         objRep.Open(folder + "\" + filename)
+         exportFile = publish + "\" + Left(filename, Len(filename) -4)
+         Select Case exportFormat
+            Case "pdf"
+               
+               Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
+               With objPDF
+                  .SaveEntireReport = True
+                  .AxisOnAllPages = True
+                  .ChartTitleOnAllPages = False
+                  .IncludeLegend = False
+               End With
+               objPDF.Save
+
+               For i = 1 to objRep.Layers.Count
+                  Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
+                  With objPDF
+                     .SetListOfLayersToSave objRep.Layers.Subset(i, i)
+                     .SetListOfRowsToSave objRep.Rows
+                     .SaveEntireReport = False
+                     .SaveAllCharts = False           
+                     .AxisOnAllPages = True
+                     .ChartTitleOnAllPages = True
+                     .IncludeLegend = True
+                  End With
+                  objPDF.Save
+               Next
+
+            Case "asc"
+               objRep.SaveAs exportFile, 3
+            Case "xls"
+               objRep.SaveAs exportFile, 4
+            Case "ppx"
+               objRep.SaveAs exportFile, 5
+            Case Else
+               objRep.Publish publish, False, True, True    
+         End Select
+         objRep.Close
+      End if
+
+
+      filename = Dir
+   Loop
+   objApp.Quit
+End Sub

gctools/config.py

@@ -42,6 +42,7 @@ class Config:
         self.tasks_dir = str(self.tools_dir.parent)
         if self.tools_dir.parent.name.lower() != 'tasks':
             # development
+            self.tools_dir = self.tools_dir.joinpath('gctools')
             self.portal_dir = 'C:\\GlobalCube'
             if not Path(self.portal_dir).exists():
                 self.portal_dir = joinpath(self.tools_dir, 'Portal')

gctools/impromptu.py

@@ -36,7 +36,7 @@ def export(imr_file, export_format='csv', export_dir=None, catalog=None):
         catalog = catalog + '.cat'
     catalog_full_filename = f'{catalog_dir}\\{catalog}'
     start = datetime.now().timestamp()
-    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\impromptu.mac" "{imr_full_filename}","{catalog_full_filename}","{export_full_filename}","{export_translation[export_format]}"'
+    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\VBS\\impromptu.mac" "{imr_full_filename}","{catalog_full_filename}","{export_full_filename}","{export_translation[export_format]}"'
     print(f"Exportiere '{imr_file}' als '{export_format}' nach '{export_dir}'...", end='')
 
     p = subprocess.Popen(cmd)

gctools/portal.py

@@ -34,7 +34,7 @@ def portal(config_file='GAPS_neu'):
 
 
 def export_files(config_file, export_format, rep_dir, pub_dir, logfile):
-    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\publish-reports.mac" "{rep_dir}","{export_format}","{pub_dir}"'
+    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\VBS\\publish-reports.mac" "{rep_dir}","{export_format}","{pub_dir}"'
     setup = {
         'start': datetime.now().timestamp(),
         'call': ['export_files', export_format, rep_dir, str(pub_dir), logfile],

gctools/powerplay.py

@@ -12,7 +12,7 @@ publish_dir = cfg.portal_dir + '\\daten'
 @plac.opt('publish_subdir', '', type=str)
 def export(report_file, export_format='pdf', publish_subdir=None):
     pub_dir = publish_dir if publish_subdir is None else f'{publish_dir}\\{publish_subdir}'
-    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\powerplay-export.mac" "{report_dir}","{report_file}","{export_format}","{pub_dir}"'
+    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\VBS\\powerplay-export.mac" "{report_dir}","{report_file}","{export_format}","{pub_dir}"'
     print(f"Exportiere '{report_file}' als '{export_format}' nach '{pub_dir}'...", end='')
 
     p = subprocess.Popen(cmd)

gctools/status_client.py

@@ -25,6 +25,17 @@ def shared_files(logfile):
     run_command('openfiles /Query /fo CSV', logfile)
 
 
+def model_datasources(cfg, model_file: Path, logfile):
+    cmd = f'"{cfg.cognos7.program_dir}\\runmac32.exe" "{cfg.tools_dir}\\VBS\\list-datasources-c11.mac" "{model_file.parent}","{model_file.name}","{logfile}"'
+    p = subprocess.Popen(cmd)
+    p.wait()
+
+
+def datasources_all_models(cfg: config.Config):
+    for model_file in Path(cfg.system_dir + '\\Models').glob('*.pyj'):
+        model_datasources(cfg, model_file, cfg.tasks_dir + '\\config\\models\\' + model_file.name + '.csv')
+
+
 def zip_to_file(base_dir, zip_file):
     filter = ['config/*', 'config/info/*', 'logs/*', '*.ini', '*.bat']
 
@@ -45,6 +56,7 @@ if __name__ == '__main__':
     # aktuelle Freigabe-Sessions
     shared_files(cfg.tasks_dir + '\\logs\\tasklist.csv')
 
+    datasources_all_models(cfg)
     # Liste aller Dateien im GAPS-Verzeichnis
     # filename;size;cdate;mdate
     ti = PathInfo()

gctools/transformer7.py

@@ -13,7 +13,7 @@ cube_temp = cube_out + "\\temp"
 def create(model_file):
     cube = cube_name(model_file)
 
-    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\create-cube.mac" "{models_dir}","{model_file}","{cube_temp}"'
+    cmd = f'"{cfg.cognos_dir}\\runmac32.exe" "{cfg.tools_dir}\\VBS\\create-cube.mac" "{models_dir}","{model_file}","{cube_temp}"'
     print(f"Erstelle Cube '{cube}' fuer '{model_file}'...", end='')
 
     p = subprocess.Popen(cmd)