47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
' 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
|