kleine Korrekturen an status_client.exe

- keine Fehlermeldung bei ssh
- Paket für Kundeninstall

gctools/VBS/info.txt

@@ -1,20 +0,0 @@
-"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/dist/VBS/list-datasources-C11.mac

@@ -0,0 +1,62 @@
+Dim objApp As Object
+Dim objModel As Object
+Dim objDataSource As Object
+Dim objQuery As Object
+Dim objCube 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
+    Write #1, "--"
+    Set objCube = objModel.Cubes.Item(1)
+    Write #1, objCube.MDCFile
+    Close #1
+   
+    objModel.Close
+    rem objApp.Quit
+    Set objQuery = Nothing
+    Set objDataSource = Nothing
+    Set objModel = Nothing
+    Set objApp = Nothing
+End Sub

gctools/dist/fehlermeldung.bat

@@ -0,0 +1,6 @@
+@call "%~dp0config.bat" 0 > nul
+
+echo * Untersuche Cubes und Workflow auf Fehler
+%PHP%\php Tools\run.php fehlerbericht %TASKS%\logs %KUNDE% %XML%\info\info.json %ZEIT% %1
+echo.
+status_client.exe

gctools/ftp_client.py

@@ -2,6 +2,7 @@ import plac
 import pysftp
 from pathlib import Path
 from dataclasses import dataclass
+import warnings
 
 
 @dataclass
@@ -21,6 +22,7 @@ class FtpClient:
         # self.ftp_cfg = FtpConfig(**cfg)
         # self.ftp_cfg = FtpConfig("ftp.global-cube.com", "p33781016-vm", "Gcbs12ma-vm2020!!", "/")
         self.ftp_cfg = FtpConfig("ftp.global-cube.com", "u1339416173", "dihob#ratuy5kub%", "/")
+        warnings.filterwarnings('ignore')
 
     @plac.pos('filename', '', type=str)
     def upload(self, filename='CARLO.csv'):

gctools/status_client.spec

@@ -5,7 +5,7 @@ block_cipher = None
 
 
 a = Analysis(['status_client.py'],
-             pathex=[],
+             pathex=['C:\\Projekte\\Python\\gctools'],
              binaries=[],
              datas=[],
              hiddenimports=[],