'(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