' 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