Module: Reorg / Cleanup

archive/Modules/Archiv/ShowWinLineDocOverview.vbs

@@ -0,0 +1,34 @@
+Sub ShowWinLineDocOverview(DocNumber, AccountNumber, RunningNumber)
+
+	'Version Date 22.09.2020
+
+	'Call "Beleg" Window
+	MApplication 2
+	MWindow 774, false
+	MTreeExpand 774, 102, 321566992, 100
+	MTreeSelChange 774, 102, 321566992, 1001
+	MActivateWindow 774
+
+	IF (DocNumber <> "") and (AccountNumber <> "") and (RunningNumber <> "") Then
+
+		'Set time periode (12 = alle Jahre)
+		MSetFieldValue 774, 105, "12"
+
+		'Set area (1 = Verkauf/Einkauf)
+		MSetFieldValue 774, 107, "1"
+
+		'Set Account number (Kundennummern)
+		MSetFieldValue 774, 115, AccountNumber
+
+		'Set doc number (Belegnummer)
+		MSetFieldValue 774, 117, DocNumber
+
+		'Set Running Nr (Laufnummer)
+		MSetFieldValue 774, 191, RunningNumber
+
+		'Click the ok Button
+		MPushButton 774, 98, 0
+
+	End If
+
+End Sub