AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Anlage des Repos

Browse Source
This commit is contained in:
KammM
2024-01-24 16:42:38 +01:00
commit 38d6a271c4
1785 changed files with 3051496 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
archive/SET-WINLINE_CASHBACK_VALUES/Version 1.0.0.0/FAKT249.vb Normal file
View File

@@ -0,0 +1,54 @@
'(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