AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Module: Reorg / Cleanup

Browse Source
This commit is contained in:
KammM
2024-11-08 15:39:19 +01:00
parent 36ef16eb34
commit 294debc67c
226 changed files with 436 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
archive/Modules/Sicherungen/Modules_20230623/ShowWinLineDocOverview.vbs Normal file
View File

@@ -0,0 +1,46 @@
' ShowWinLineDocOverview(DocNumber : String, AccountNumber : String, RunningNumber : String)
' ----------------------------------------------------------------------------
' KURZBESCHREIBUNG
'
' Returns: -
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author: 22.09.2020 / XX
' Version Date / Editor: 22.09.2020 / XX
' Version Number: 1.0.0.0
Sub ShowWinLineDocOverview(DocNumber, AccountNumber, RunningNumber)
'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