|
Variable |
Datenformat |
Zuriff |
Beschreibung |
|---|---|---|---|
|
|
String |
Lesen |
|
|
|
String |
Lesen |
|
|
|
String |
Lesen |
Liefert einen leeren Wert in Abhängigkeit der ausgeführten Operation und einem Vergleichsobjekt. z.B: ““, NULL |
|
|
String |
Lesen |
|
|
|
|
Lesen |
Liefert das Formobjekt |
|
|
|
Lesen/Schreiben |
Höhe des Fensters |
|
|
|
Lesen/Schreiben |
Name des Fensters in der Titelzeile |
|
|
|
Lesen |
Wert der Kategorie im Zusatzfenster “Benutzerdefinierte Felder” |
|
|
Numeric |
Lesen |
Liefert die eindeutige ID des aktuellen Datensatzes des Fensters. |
|
* |
Numeric |
Lesen/Schreiben |
Abstand des Fensters vom linken Rand des Desktops |
|
|
Variant |
Lesen |
Liefert einen boolschen Wert in Abhängigkeit der ausgeführten Operation und einem Vergleichsobjekt. z.B: 0, “N” |
|
* |
Numeric |
Lesen/Schreiben |
Sichtbarkeitsebene des Fensters. |
|
* |
Spezifisch |
Lesen/Schreiben |
Liefert oder setzt den Modus des Fensters. Werte: |
|
|
Numeric |
Lesen/Schreiben |
Abstand des Fensters vom oberen Rand des Desktops |
|
|
String |
Lesen |
Typ des Fensters. Z.B. “150” = Artikelstamm |
|
|
String |
Lesen |
Eindeutige ID das aktuellen Fensters |
|
|
Boolsch |
Lesen/Schreiben |
Liefert oder setzt die Sichtbarkeit des Fensters |
|
|
Numeric |
Lesen/Schreiben |
Breite des Fensters |
|
|
String |
Lesen |
Die eindeutige ID der DB-Leseoperation des vorhergenden Objektes |
|
|
String |
Lesen |
Liefert einen Wert der einem Business-Objekt bei der Operation “Open” angibt, dass ein leeres Objekt initialisiert werden soll |
|
|
String |
Lesen |
|
|
|
String |
Lesen |
|
|
|
String |
Lesen |
Rückgabewert, der zuvor ausgeführten Methode |
|
|
String |
Lesen |
Liefert den zuletzt verwendeten SQL-String |
|
|
String |
Lesen |
Liefert einen Zeitstempel |
|
|
Variant |
Lesen |
Liefert einen boolschen Wert in Abhängigkeit der ausgeführten Operation und einem Vergleichsobjekt. z.B: 1, “Y” |
|
|
String |
Lesen |
|
|
|
String |
Lesen |
|
Systemmethoden
|
Methode |
Parameter |
Beschreibung |
|---|---|---|
|
|
|
Friert das Fenster ein, sodass aktualisierungen unterdrückt werden. |
|
|
|
Hebt das Einfrieren auf. |
Case "*MINIMIZED" ' Windows State
GetElementValue_SYS = "*MINIMIZED"
Type = "String"
Case "*MAXIMIZED" ' Windows State
GetElementValue_SYS = "*MAXIMIZED"
Type = "String"
Case "*NORMAL" ' Windows State
GetElementValue_SYS = "*NORMAL"
Type = "String"
Case "*WORDPATH" ' Word Path
GetElementValue_SYS = gACApplication.ACCompany.WordPath
Type = "String"
Case "*BITMAPPATH" ' Bitmap Path
GetElementValue_SYS = gACApplication.ACCompany.BitMapPath
Type = "String"
Case "*ATTACHMENTPATH" ' Attachment Path
GetElementValue_SYS = gACApplication.ACCompany.AttachPath
Type = "String"
Case "*EXTENSIONPATH" ' Extension Path
GetElementValue_SYS = gACApplication.ACCompany.ExtPath
Type = "String"
Case "*EXCELPATH" ' Excel Path
GetElementValue_SYS = gACApplication.ACCompany.ExcelPath
Type = "String"
Case "*XMLPATH" ' XML Path
GetElementValue_SYS = gACApplication.ACCompany.XmlPath
Type = "String"
Case "*LASTMENUID" ' Last Menu ID
GetElementValue_SYS = pLastMenuID
Type = "String"
Case "*LASTFKEY" ' Last Function Key 1-12
GetElementValue_SYS = pLastFkey
Type = "String"
Case "*LASTKEY" ' Last pressed key
GetElementValue_SYS = pLastKey
Type = "String"
Case "*CFLROWS" ' Count of rows in the cfl Array
'lACEventDispatcher.ACEvent.ItemCFLValues
If IsNothing(lACEventDispatcher.ACEvent.ItemCFLValues) Then
GetElementValue_SYS = 0
Else
GetElementValue_SYS = lACEventDispatcher.ACEvent.ItemCFLValues.Count
End If
Type = "Numeric"
Case "*HIDEMESSAGEBOX"
If pHideMessageBox = False Then
GetElementValue_SYS = "0"
Else
GetElementValue_SYS = "1"
End If
Type = "Numeric"
Case "*ERRORMESSAGE"
GetElementValue_SYS = pErrorMessage
Type = "String"
Case "*ASCIIFile"
GetElementValue_SYS = "*ASCIIFile"
Type = "String"
Case "*CTIPhoneSource" ' Source: CNT = Contactor
GetElementValue_SYS = vCTIPhoneSource
Type = "String"
Case "*CTIPhoneField" ' Phone field
GetElementValue_SYS = vCTIPhoneField
Type = "String"
Case "*CTICardCode" ' BP CasrdCOde
GetElementValue_SYS = vCTICardCode
Type = "String"
Case "*CTIContactInternalCode" ' BP internal Contact Code
GetElementValue_SYS = vCTIContactInternalCode
Type = "String"
Case "*CTIContactName" ' BP contac name
GetElementValue_SYS = vCTIContactName
Type = "String"
Case "*BusinessPartner"
GetElementValue_SYS = "*BusinessPartner"
Type = "String"
Case "*ChecksForPayment"
GetElementValue_SYS = "*ChecksForPayment"
Type = "String"
Case "*Deposits"
GetElementValue_SYS = "*Deposits"
Type = "String"
Case "*IncomingPayment"
GetElementValue_SYS = "*IncomingPayment"
Type = "String"
Case "*InventoryGenEntry"
GetElementValue_SYS = "*InventoryGenEntry"
Type = "String"
Case "*InventoryGenExit"
GetElementValue_SYS = "*InventoryGenExit"
Type = "String"
Case "*InventoryTransfer"
GetElementValue_SYS = "*InventoryTransfer"
Type = "String"
Case "*JournalEntries"
GetElementValue_SYS = "*JournalEntries"
Type = "String"
Case "*LandedCosts"
GetElementValue_SYS = "*LandedCosts"
Type = "String"
Case "*OutgoingPayment"
GetElementValue_SYS = "*OutgoingPayment"
Type = "String"
Case "*PurchaseDownPayment"
GetElementValue_SYS = "*PurchaseDownPayment"
Type = "String"
Case "*SalesDownPayment"
GetElementValue_SYS = "*SalesDownPayment"
Type = "String"
Case "*ServiceCall"
GetElementValue_SYS = "*ServiceCall"
Type = "String"
Case "*Invoice"
GetElementValue_SYS = "*Invoice"
Type = "String"
Case "*SalesOpportunity"
GetElementValue_SYS = "*SalesOpportunity"
Type = "String"
Case "*SalesOrder"
GetElementValue_SYS = "*SalesOrder"
Type = "String"
Case "*SalesContract"
GetElementValue_SYS = "*SalesContract"
Type = "String"
Case "*StringHelper"
GetElementValue_SYS = "*StringHelper"
Type = "String"
Case "*DateHelper"
GetElementValue_SYS = "*DateHelper"
Type = "String"
Case "*UnitHelper"
GetElementValue_SYS = "*UnitHelper"
Type = "String"
Case "*Return"
GetElementValue_SYS = "*Return"
Type = "String"
Case "*CreditNote"
GetElementValue_SYS = "*CreditNote"
Type = "String"
Case "*Menus"
GetElementValue_SYS = "*Menus"
Type = "String"
Case "*DeliveryNote"
GetElementValue_SYS = "*DeliveryNote"
Type = "String"
Case "*SalesQuotation"
GetElementValue_SYS = "*SalesQuotation"
Type = "String"
Case "*PurchaseOrder"
GetElementValue_SYS = "*PurchaseOrder"
Type = "String"
Case "*PurchaseContract"
GetElementValue_SYS = "*PurchaseContract"
Type = "String"
Case "*PurchaseInvoice"
GetElementValue_SYS = "*PurchaseInvoice"
Type = "String"
Case "*PurchaseCreditNote"
GetElementValue_SYS = "*PurchaseCreditNote"
Type = "String"
Case "*PurchaseReturn"
GetElementValue_SYS = "*PurchaseReturn"
Type = "String"
Case "*PurchaseQuotation"
GetElementValue_SYS = "*PurchaseQuotation"
Type = "String"
Case "*SalesDownPayment"
GetElementValue_SYS = "*SalesDownPayment"
Type = "String"
Case "*PurchaseDownPayment"
GetElementValue_SYS = "*PurchaseDownPayment"
Type = "String"
Case "*SalesPerson"
GetElementValue_SYS = "*SalesPerson"
Type = "String"
Case "*User"
GetElementValue_SYS = oSBOCompany.UserName
Type = "String"
Case "*ProductionOrder"
GetElementValue_SYS = "*ProductionOrder"
Type = "String"
Case "*BinLocation"
GetElementValue_SYS = "*BinLocation"
Type = "String"
Case "*PickList"
GetElementValue_SYS = "*PickList"
Type = "String"
Case "*Project"
GetElementValue_SYS = "*Project"
Type = "String"
Case "*EcomDocument"
GetElementValue_SYS = "*EcomDocument"
Type = "String"
Case "*StockTransfer"
GetElementValue_SYS = "*StockTransfer"
Type = "String"
Case "*StockTaking"
GetElementValue_SYS = "*StockTaking"
Type = "String"
Case "*FileSystem"
GetElementValue_SYS = "*FileSystem"
Type = "String"
Case "*FTPClient"
GetElementValue_SYS = "*FTPClient"
Type = "String"
Case "*XMLReader"
GetElementValue_SYS = "*XMLReader"
Type = "String"
Case "*XMLWriter"
GetElementValue_SYS = "*XMLWriter"
Type = "String"
Case "*CrystalReport"
GetElementValue_SYS = "*CrystalReport"
Type = "String"
Case "*MASCHINENAME"
GetElementValue_SYS = System.Environment.MachineName
Type = "String"
Case "*OSVERSION"
GetElementValue_SYS = System.Environment.OSVersion.ToString
Type = "String"
Case "*WINDOWSUSER"
GetElementValue_SYS = System.Environment.UserName
Type = "String"
Case "*ACVERSION"
GetElementValue_SYS = ACVersion
Type = "String"
Case "*LANGUAGE"
GetElementValue_SYS = gACApplication.ACCompany.Language
Type = "String"
Case "*NEWLINE"
GetElementValue_SYS = Environment.NewLine
Type = "String"
Case "*QUOT"
GetElementValue_SYS = """"
Type = "String"
Case "*MAINCURRENCY"
GetElementValue_SYS = gACApplication.ACCompany.MAINCurrency
Type = "String"
Case "*SYSCURRENCY"
GetElementValue_SYS = gACApplication.ACCompany.SYSCurrency
Type = "String"
' use *EVENT instead
Case "*MENUEVENT"
If IsNothing(lEvent) Then
GetElementValue_SYS = ""
Type = "String"
Else
Select Case ElementProperty
Case "BeforeAction"
If lEvent.BeforeAction = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "Numeric"
Case "InnerEvent"
If lEvent.InnerEvent = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "Numeric"
Case "MenuUID"
GetElementValue_SYS = lEvent.MenuUID
Type = "String"
End Select
End If
' use *EVENT instead
Case "*ITEMEVENT"
If IsNothing(lEvent) Then
GetElementValue_SYS = ""
Type = "String"
Else
Select Case ElementProperty
Case "BeforeAction"
If lEvent.BeforeAction = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "Numeric"
Case "InnerEvent"
If lEvent.InnerEvent = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "Numeric"
Case "ColUID"
GetElementValue_SYS = lEvent.ColUID
Type = "String"
Case "EventType"
GetElementValue_SYS = lEvent.EventType.ToString
Type = "Numeric"
Case "FormMode"
GetElementValue_SYS = lEvent.FormMode.ToString
Type = "Numeric"
Case "FormType"
GetElementValue_SYS = lEvent.FormType
Type = "String"
Case "FormUID"
GetElementValue_SYS = lEvent.FormUID
Type = "String"
Case "ItemChanged"
If lEvent.ItemChanged = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "String"
Case "ItemUID"
GetElementValue_SYS = lEvent.ItemUID
Type = "String"
Case "Row"
GetElementValue_SYS = CStr(lEvent.Row)
Type = "Numeric"
Case "Modifiers"
GetElementValue_SYS = CStr(lEvent.Modifiers)
Type = "Numeric"
End Select
End If
Case "*EVENT"
If IsNothing(lEvent) Then
GetElementValue_SYS = ""
Type = "String"
Else
Select Case ElementProperty
Case "BeforeAction"
If lEvent.BeforeAction = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "Numeric"
Case "InnerEvent"
If lEvent.InnerEvent = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "Numeric"
Case "ColUID"
GetElementValue_SYS = lEvent.ColUID
Type = "String"
Case "EventType"
GetElementValue_SYS = lEvent.EventType.ToString
Type = "Numeric"
Case "FormMode"
GetElementValue_SYS = lEvent.FormMode.ToString
Type = "Numeric"
Case "FormType"
GetElementValue_SYS = lEvent.FormType
Type = "String"
Case "FormUID"
GetElementValue_SYS = lEvent.FormUID
Type = "String"
Case "ItemChanged"
If lEvent.ItemChanged = True Then
GetElementValue_SYS = "1"
Else
GetElementValue_SYS = "0"
End If
Type = "String"
Case "ItemUID"
GetElementValue_SYS = lEvent.ItemUID
Type = "String"
Case "Row"
GetElementValue_SYS = CStr(lEvent.Row)
Type = "Numeric"
Case "Modifiers"
GetElementValue_SYS = CStr(lEvent.Modifiers)
Type = "Numeric"
Case "MenuUID"
GetElementValue_SYS = lEvent.MenuUID
Type = "String"
End Select
End If
Case "*COLORS"
If IsNothing(gColors) Then
gColors = New QYCUI.Colors
End If
Try
GetElementValue_SYS = CStr(gColors.GetType.GetProperty(ElementProperty).GetValue(gColors, Nothing))
Type = "Numeric"
Catch ex As Exception
If vDevMode = True Then Stop
LogException(Me.GetType, ex)
End Try
Case "*SQLDATEFORMAT"
' 0 = DD/MM/YY
' 1 = TT/MM/JJJJ
' 2 = MM/DD/YY
' 3 = MM/TT/JJJJ
' 4 = JJJJ/MM/DD
' 5 = TT/Monat/JJJJ
Select Case sysDateFormat
Case 0 ' 0 = DD/MM/YY
Select Case sysDateSeparator
Case "."
GetElementValue_SYS = "4" 'German
Case "-"
GetElementValue_SYS = "5" 'Italian
Case "/"
GetElementValue_SYS = "3" 'British/French
Case Else
GetElementValue_SYS = "4" 'German
End Select
Case 1 ' 1 = TT/MM/JJJJ
Select Case sysDateSeparator
Case "."
GetElementValue_SYS = "104" 'German
Case "-"
GetElementValue_SYS = "105" 'Italian
Case "/"
GetElementValue_SYS = "103" 'British/French
Case Else
GetElementValue_SYS = "104" 'German
End Select
Case 2 ' 2 = MM/DD/YY
GetElementValue_SYS = "10" 'U.S.
Case 3 ' 3 = MM/TT/JJJJ
GetElementValue_SYS = "101" 'U.S.
Case 4 ' 4 = JJJJ/MM/DD
Select Case sysDateSeparator
Case "."
GetElementValue_SYS = "102" 'ANSI / Hungaria
Case "/"
GetElementValue_SYS = "111" 'Japan
Case Else
GetElementValue_SYS = "102" 'ANSI
End Select
Case 5 ' 5 = TT/Monat/JJJJ
GetElementValue_SYS = "106" 'Japan
End Select
Type = "Numeric"
Case Else
If Left$(ElementName, 7) = "*CFLKEY" Then
Try
Dim S As String
Dim Idx As Integer
S = Replace(ElementName, "*CFLKEY", "")
S = Replace(S, "(", "")
S = Replace(S, ")", "")
If Not IsNumeric(S) Then
S = GetElementValue("VAR", S, "", Type)
End If
If IsNumeric(S) And CType(S, Integer) > 0 Then
Idx = CType(S, Integer)
If Not lACEventDispatcher.ACEvent.ItemCFLValues Is Nothing Then
If lACEventDispatcher.ACEvent.ItemCFLValues.Count >= Idx Then
GetElementValue_SYS = lACEventDispatcher.ACEvent.ItemCFLValues.Item(Idx - 1)
If Not IsNumeric(GetElementValue_SYS) Then
Type = "String"
End If
End If
End If
End If
Catch ex As Exception
If vDevMode = True Then Stop
LogException(Me.GetType, ex)
End Try
Else
'
oMSGHandler.Caller = Me
oMSGHandler.CallerMethod = "GetElementValue"
oMSGHandler.Var01 = ElementName
oMSGHandler.Var02 = lParameter.FunctionName
oMSGHandler.SendMessage("103470")
Type = "String"
GetElementValue_SYS = ""
End If
End Select
If ElementProperty <> "" And ElementProperty <> "VALUE" Then
' Property Length
If ElementProperty = "Length" Then
GetElementValue_SYS = GetElementValue_SYS.Length.ToString
End If
End If
Farbpalette
AliceBlue
AntiqueWhite
Aqua
Aquamarine
Azure
Beige
Bisque
Black
BlanchedAlmond
Blue
BlueViolet
Brown
BurlyWood
CadetBlue
Chartreuse
Chocolate
Coral
CornflowerBlue
Cornsilk
Crimson
Cyan
DarkBlue
DarkCyan
DarkGoldenrod
DarkGray
DarkGreen
DarkKhaki
DarkMagenta
DarkOliveGreen
DarkOrange
DarkOrchid
DarkRed
DarkSalmon
DarkSeaGreen
DarkSlateBlue
DarkSlateGray
DarkTurquoise
DarkViolet
DeepPink
DeepSkyBlue
DimGray
DodgerBlue
Firebrick
FloralWhite
ForestGreen
Fuchsia
Gainsboro
GhostWhite
Gold
Goldenrod
Gray
Green
GreenYellow
Honeydew
HotPink
IndianRed
Indigo
Ivory
Khaki
Lavender
LavenderBlush
LawnGreen
LemonChiffon
LightBlue
LightCoral
LightCyan
LightGoldenrodYellow
LightGreen
LightPink
LightSalmon
LightSeaGreen
LightSkyBlue
LightSlateGray
LightGray
LightSteelBlue
LightYellow
Lime
LimeGreen
Linen
Magenta
Maroon
MediumAquamarine
MediumBlue
MediumOrchid
MediumMediumPurple
MediumSeaGreen
MediumSlateBlue
MediumSpringGreen
MediumTurquoise
MediumVioletRed
MidnightBlue
MintCream
NavajoWhite
Navy
Olive
Orange
OrangeRed
Orchid
Peru
Pink
Plum
Purple
Red
RosyBrown
RoyalBlue
Salmon
SeaGreen
Silver
Snow
Tomato
Turquoise
Violet
Wheat
White
WhiteSmoke
Yellow
YellowGreen