55 lines
2.0 KiB
VB.net
55 lines
2.0 KiB
VB.net
'(Deklarationen)
|
|
'Remark: Digital Data - Skript zum Speichern der benutzerdefinierten Controls für Offene Posten.
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 26.07.2021 / JJ
|
|
' Version Date / Editor: 26.07.2021 / JJ
|
|
' Version Number: 1.0.0.0
|
|
|
|
BUTTON_OK = 98
|
|
GRID_COMMENTS = 400
|
|
TEXT_OP_AMOUNT = 798
|
|
TEXT_OP_COMMENT = 799
|
|
TEXT_OP_DATE = 800
|
|
ROW_OP_AMOUNT = 5
|
|
ROW_OP_COMMENT = 6
|
|
ROW_OP_DATE = 1
|
|
COLUMN_VALUE = 2
|
|
|
|
WINDOW_MAIN = 249
|
|
WINDOW_SAVE = 248
|
|
WINDOW_TEXT = 247
|
|
'Ende von (Deklarationen)
|
|
|
|
Sub CWLCurrentWindow_OnCheckUserfield(nFgId, bResult)
|
|
If nFgId = TEXT_OP_AMOUNT Or nFgId = TEXT_OP_COMMENT Or nFgId = TEXT_OP_DATE Then
|
|
MsgBox "Werte werden übertragen!"
|
|
|
|
OpAmount = MacroCommands.MGetFieldValue(WINDOW_MAIN, TEXT_OP_AMOUNT)
|
|
OpComment = MacroCommands.MGetFieldValue(WINDOW_MAIN, TEXT_OP_COMMENT)
|
|
OpDate = MacroCommands.MGetFieldValue(WINDOW_MAIN, TEXT_OP_DATE)
|
|
|
|
Set OpDateControl = CWLCurrentWindow.ActiveWindow.Controls.Item(TEXT_OP_DATE)
|
|
If Len(OpDateControl.ScreenContents) > 0 Then
|
|
MacroCommands.MSetGridValue WINDOW_TEXT, GRID_COMMENTS, ROW_OP_DATE, COLUMN_VALUE, "Gefüllt"
|
|
Else
|
|
MacroCommands.MSetFieldFocus WINDOW_TEXT, GRID_COMMENTS
|
|
MacroCommands.MGridLeftClick WINDOW_TEXT, GRID_COMMENTS, ROW_OP_DATE, COLUMN_VALUE
|
|
MacroCommands.MSetGridValue WINDOW_TEXT, GRID_COMMENTS, ROW_OP_DATE, COLUMN_VALUE, "Ungefüllt"
|
|
MacroCommands.MGridLeftClick WINDOW_TEXT, GRID_COMMENTS, ROW_OP_DATE, COLUMN_VALUE
|
|
End If
|
|
|
|
If Len(OpAmount) > 0 Then
|
|
MacroCommands.MSetGridValue WINDOW_TEXT, GRID_COMMENTS, ROW_OP_AMOUNT, COLUMN_VALUE, OpAmount
|
|
End If
|
|
|
|
If Len(OpComment) > 0 Then
|
|
MacroCommands.MSetGridValue WINDOW_TEXT, GRID_COMMENTS, ROW_OP_COMMENT, COLUMN_VALUE, OpComment
|
|
End If
|
|
End If
|
|
End Sub
|