101 lines
3.9 KiB
Plaintext
101 lines
3.9 KiB
Plaintext
' SetExportWinLineDoc_ReadOnlyControls
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine läd Daten für reine Anzeigefelder.
|
|
' Parameter 1 (LEVEL) = Das aktuelle Showlevel übergeben.
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 22.06.2021 / MD
|
|
' Version Date / Editor: 22.06.2021 / MD
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub SetExportWinLineDoc_ReadOnlyControls(LEVEL)
|
|
|
|
If (LEVEL = 1) or (LEVEL = "1") Then
|
|
|
|
'Current selected line in grid 1
|
|
IF (cint(LEVEL1_TXT_GUID_DBValue) > 0) Then
|
|
LEVEL1_TXT_GUID.Contents = "GUID: " & cstr(LEVEL1_TXT_GUID_DBValue)
|
|
Else
|
|
LEVEL1_TXT_GUID.Contents = "GUID: <0>"
|
|
End if
|
|
|
|
'Line Counter in grid 1
|
|
If (LEVEL1_Grid.LineCount > 0) Then
|
|
LEVEL1_TXT_TabelCounter.Contents = (Cstr(LEVEL1_Grid.LineCount) & " Zuordnungen gefunden")
|
|
Else
|
|
LEVEL1_TXT_TabelCounter.Contents = "Keine Zuordnungen gefunden"
|
|
End if
|
|
|
|
ElseIf (LEVEL = 2) or (LEVEL = "2") Then
|
|
|
|
'Current selected line in grid 2
|
|
IF (cint(LEVEL2_TXT_GUID_DBValue) > 0) Then
|
|
LEVEL2_TXT_GUID.Contents = "GUID: " & cstr(LEVEL2_TXT_GUID_DBValue)
|
|
Else
|
|
LEVEL2_TXT_GUID.Contents = "GUID: <0>"
|
|
End if
|
|
|
|
'Line Counter in grid 2
|
|
If (LEVEL2_Grid.LineCount > 0) Then
|
|
LEVEL2_TXT_TabelCounter.Contents = (Cstr(LEVEL2_Grid.LineCount) & " Zuordnungen gefunden")
|
|
Else
|
|
LEVEL2_TXT_TabelCounter.Contents = "Keine Zuordnungen gefunden"
|
|
End if
|
|
|
|
ElseIf (LEVEL = 3) or (LEVEL = "3") Then
|
|
|
|
LEVEL3_TXT_Standard_Modul_Path.Contents = ModuleDefaultSourcePath
|
|
LEVEL3_TXT_EWLD_Modul_Path.Contents = ModuleExportWinLineDocSourcePath
|
|
LEVEL3_TXT_WebServiceUser.Contents = WebServiceUser
|
|
LEVEL3_TXT_Blank.active = true
|
|
LEVEL3_TXT_Blank.contents = " "
|
|
|
|
End if
|
|
'------------------------------------------------------------------------------------------------------
|
|
|
|
'Definitely, does not matter tab / level 1 or 2 set these fields...
|
|
If (((LEVEL = 1) or (LEVEL = "1")) and (LEVEL1_GRID_CURRENT_GUID > 0)) or (((LEVEL = 2) or (LEVEL = "2")) and (LEVEL2_GRID_CURRENT_GUID > 0)) Then
|
|
|
|
IF ((LEVEL0_TXT_Erstellt_wer_DBValue > empty) and (LEVEL0_TXT_Erstellt_wer_DBValue <> "")) Then
|
|
LEVEL0_TXT_Erstellt_wer.Contents = cstr(LEVEL0_TXT_Erstellt_wer_DBValue)
|
|
Else
|
|
LEVEL0_TXT_Erstellt_wer.Contents = NULL
|
|
End if
|
|
'------------------------------------------------------------------------------------------------------
|
|
|
|
IF ((LEVEL0_TXT_Erstellt_wann_DBValue > empty) and (LEVEL0_TXT_Erstellt_wann_DBValue <> "")) Then
|
|
LEVEL0_TXT_Erstellt_wann.Contents = cdate(LEVEL0_TXT_Erstellt_wann_DBValue)
|
|
Else
|
|
LEVEL0_TXT_Erstellt_wann.Contents = NULL
|
|
End if
|
|
'------------------------------------------------------------------------------------------------------
|
|
|
|
IF ((LEVEL0_TXT_Geaendert_wer_DBValue > empty) and (LEVEL0_TXT_Geaendert_wer_DBValue <> "")) Then
|
|
LEVEL0_TXT_Geaendert_wer.Contents = cstr(LEVEL0_TXT_Geaendert_wer_DBValue)
|
|
Else
|
|
LEVEL0_TXT_Geaendert_wer.Contents = NULL
|
|
End if
|
|
'------------------------------------------------------------------------------------------------------
|
|
|
|
IF ((LEVEL0_TXT_Geaendert_wann_DBValue > empty) and (LEVEL0_TXT_Geaendert_wann_DBValue <> "")) Then
|
|
LEVEL0_TXT_Geaendert_wann.Contents = cdate(LEVEL0_TXT_Geaendert_wann_DBValue)
|
|
Else
|
|
LEVEL0_TXT_Geaendert_wann.contents = NULL
|
|
End if
|
|
|
|
'But if no valid line was selected...
|
|
Elseif (LEVEL <> 3) and (LEVEL <> "3") Then
|
|
|
|
LEVEL0_TXT_Erstellt_wer.Contents = NULL
|
|
LEVEL0_TXT_Erstellt_wann.Contents = NULL
|
|
LEVEL0_TXT_Geaendert_wer.Contents = NULL
|
|
LEVEL0_TXT_Geaendert_wann.contents = NULL
|
|
|
|
End if
|
|
|
|
End sub |