35 lines
762 B
Plaintext
35 lines
762 B
Plaintext
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
|