Initial commit – AufmaßCreater v2.35

2026-06-10 11:03:43 +02:00
commit 84c933ea9c
2823 changed files with 490495 additions and 0 deletions
@@ -0,0 +1,681 @@
+;ahelper_sasmecka.au3
+
+Func _add_Mecka_HA()
+
+	Global $aVertragsPos = _read_VertragsPositionen2Array()
+;~ 	_DebugArrayDisplay($aVertragsPos)
+
+	If GUICtrlRead($tab_sas_chb_ha) <> "" Then
+		_add_HAPos($aVertragsPos, "01.06.0001")
+		_add_HAPos($aVertragsPos, "01.06.0003")
+		_add_HAPos($aVertragsPos, "01.06.0007")
+
+
+	EndIf
+	If GUICtrlRead($tab_sas_txt_anz_qkr) <> "" Then
+		_add_HA_QkR($aVertragsPos)
+	EndIf
+	If GUICtrlRead($tab_sas_txt_trmeter) <> "" Then
+		_add_HATBm($aVertragsPos)
+		_add_HARM($aVertragsPos)
+	EndIf
+	If GUICtrlRead($tab_sas_txt_kabelm) <> "" Then
+		_add_HA_kabelsm($aVertragsPos)
+	EndIf
+	
+	If GUICtrlRead($tab_sas_txt_strqm) <> "" Then
+		_add_HA_Strq($aVertragsPos)
+	EndIf
+	
+	If GUICtrlRead($tab_sas_txt_anzsuchgr) <> "" Then
+		_add_HA_Suchgrube($aVertragsPos)
+	EndIf
+
+
+	_ArrayDelete($aLVListe, 0)
+	$iCount = -1
+	_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
+	Global $aLVListe[1][13]
+EndFunc   ;==>_add_Mecka_HA
+
+Func _add_Mecka_TB()
+	$aVertragsPos = _read_VertragsPositionen2Array()
+
+	Global $aNumb = "Error"
+	If GUICtrlRead($tab_sas_txt_tb_lang) <> "" And GUICtrlRead($tab_sas_txt_tb_tief) <> "" Then
+		_add_regelgrabenTB($aVertragsPos)
+
+		If GUICtrlRead($tab_sas_txt_tb_anz_4x20) <> "" Then
+			_add_Rohr_4x20($aVertragsPos)
+		EndIf
+		
+		If GUICtrlRead($tab_sas_txt_tb_anz_12x10) <> "" Then
+			_add_Rohr_12x10($aVertragsPos)
+		EndIf
+	EndIf
+
+	If GUICtrlRead($tab_sas_txt_tb_anzqs) <> "" Then
+		_add_HA_QkR_tb($aVertragsPos)
+	EndIf
+	If GUICtrlRead($tab_sas_txt_tb_kabelm) <> "" Then
+		_add_HA_kabelsm_tb($aVertragsPos)
+	EndIf
+	
+	If GUICtrlRead($tab_sas_txt_tb_anzsuchgr) <> "" Then
+		_add_TB_Suchgrube($aVertragsPos)
+	EndIf
+
+	_ArrayDelete($aLVListe, 0)
+	$iCount = -1
+	_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
+	Global $aLVListe[1][13]
+
+;~ 01.03.0019	1,00	1,00			1,00	M	Zulage für Aushub in Handarbeit
+;~ 01.03.0020	1,00	1,00				M	Kabel und Rohrleitungen sichern
+;~ 01.03.0001	1,00	1,00			1,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
+;~ 01.03.0002	1,00	1,00			1,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
+;~ 01.03.0003	1,00	1,00			1,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
+
+;~ 01.03.0004	1,00	1,00			1,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0005	1,00	1,00			1,00	M	Regelgraben zur Verlegung von bis zu 4 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0006	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche
+;~ 01.03.0008	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0009	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 4 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0010	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0012	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0013	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 4 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.03.0014	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
+;~ 01.04.0001	1,00	1,00			0,00	M	Rohrverband 4x20/15 oder vergleichbarer Rohrverband auf Zuleitungsebene für die Verbindungen BB-AP zu POP und POP zu Netzverteiler, Lieferung und Verlegung
+;~ 01.04.0002	1,00	1,00			0,00	M	Rohrverbund 12x10/6 oder vergleichbarer Rohrverband auf Verteilebene für die Verbindungen POP/Netzverteiler zu den Gebäuden, Lieferung und Verlegung
+;~ 01.03.0007	1,00	1,00			1,00	M	Mehrbreite 10 cm, Regelgraben mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster,Asphalt- und Betonoberfläche)
+;~
+;~ 01.03.0001	1,00	1,00			1,00	M	Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
+;~ 01.04.0001	1,00	2,00			0,00	M	Rohrverband 4x20/15 oder vergleichbarer Rohrverband auf Zuleitungsebene für die Verbindungen BB-AP zu POP und POP zu Netzverteiler, Lieferung und Verlegung
+;~ 01.04.0002	1,00	2,00			0,00	M	Rohrverbund 12x10/6 oder vergleichbarer Rohrverband auf Verteilebene für die Verbindungen POP/Netzverteiler zu den Gebäuden, Lieferung und Verlegung
+;~ 01.03.0007	2,00				1,00	M	Mehrbreite 10 cm, Regelgraben mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster,Asphalt- und Betonoberfläche)
+;~
+;~ 01.03.0006	1,00	1,00			0,00	M	Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche
+;~ 01.03.0011	2,00				0,00	M	Mehrbreite 10 cm, Regelgraben mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster,Asphalt- und Betonoberfläche)
+
+EndFunc   ;==>_add_Mecka_TB
+
+Func _add_regelgrabenTB($aVertragsPos)
+	If GUICtrlRead($tab_sas_chb_unbe) = $GUI_CHECKED Then
+
+		If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
+			$aNumb = "01.03.0001"
+			ConsoleWrite($aNumb & @CRLF)
+		EndIf
+		If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80" Then
+			$aNumb = "01.03.0002"
+			ConsoleWrite($aNumb & @CRLF)
+		EndIf
+		If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
+			$aNumb = "01.03.0003"
+			ConsoleWrite($aNumb & @CRLF)
+		EndIf
+
+		$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
+		$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)     ;Abschnitt
+		$iFaktor = "1,0"
+		$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
+		$sBreite = ""
+		$sTiefe = ""
+		$sMenge = "1"     ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+;~ 				ConsoleWrite($aNumb & "=12315 "& @CRLF)
+		Dim $aPosNr = [$aNumb]
+		_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+		$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+		If $sIPosNr <> "" Then
+			$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+		Else
+			$sINI_String = $sNotImVer
+		EndIf
+		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+
+	EndIf
+
+	If GUICtrlRead($tab_sas_chb_be) = $GUI_CHECKED Then
+
+		If GUICtrlRead($tab_sas_chb_kg2) = $GUI_CHECKED Then
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
+				$aNumb = "01.03.0004"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80" Then
+				$aNumb = "01.03.0008"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
+				$aNumb = "01.03.0012"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+
+			$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
+			$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)     ;Abschnitt
+			$iFaktor = "1,0"
+			$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
+			$sBreite = ""
+			$sTiefe = ""
+			$sMenge = "1"     ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+;~ 				ConsoleWrite($aNumb & "=12315 "& @CRLF)
+			Dim $aPosNr = [$aNumb]
+			_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+			$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+			If $sIPosNr <> "" Then
+				$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+			Else
+				$sINI_String = $sNotImVer
+			EndIf
+			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+		EndIf
+
+		If GUICtrlRead($tab_sas_chb_kg4) = $GUI_CHECKED Then
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
+				$aNumb = "01.03.0005"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80" Then
+				$aNumb = "01.03.0009"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
+				$aNumb = "01.03.0013"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+
+			$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
+			$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)     ;Abschnitt
+			$iFaktor = "1,0"
+			$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
+			$sBreite = ""
+			$sTiefe = ""
+			$sMenge = "1"     ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+;~ 				ConsoleWrite($aNumb & "=12315 "& @CRLF)
+			Dim $aPosNr = [$aNumb]
+			_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+			$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+			If $sIPosNr <> "" Then
+				$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+			Else
+				$sINI_String = $sNotImVer
+			EndIf
+			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+		EndIf
+
+		If GUICtrlRead($tab_sas_chb_kg6) = $GUI_CHECKED Then
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
+				$aNumb = "01.03.0006"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8"  or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80"Then
+				$aNumb = "01.03.0010"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+			If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
+				$aNumb = "01.03.0014"
+				ConsoleWrite($aNumb & @CRLF)
+			EndIf
+
+			$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
+			$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)     ;Abschnitt
+			$iFaktor = "1,0"
+			$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
+			$sBreite = ""
+			$sTiefe = ""
+			$sMenge = "1"     ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+
+			Dim $aPosNr = [$aNumb]
+			_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+			$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+			If $sIPosNr <> "" Then
+				$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+			Else
+				$sINI_String = $sNotImVer
+			EndIf
+			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+		EndIf
+	EndIf
+EndFunc   ;==>_add_regelgrabenTB
+
+Func _add_Rohr_4x20($aVertragsPos)
+	$aNumb = "01.04.0001"
+;~ 	$iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
+	$sText_Bemerkung = GUICtrlRead($tab_sas_txt_tb_anz_4x20) & "x 4x20 Rohre"
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)            ;Abschnitt
+	$iFaktor = GUICtrlRead($tab_sas_txt_tb_anz_4x20)
+	$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_tb_lang)
+
+	Dim $aPosNr = [$aNumb]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_Rohr_4x20
+
+Func _add_Rohr_12x10($aVertragsPos)
+	$aNumb = "01.04.0002"
+;~ 	$iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
+	$sText_Bemerkung = GUICtrlRead($tab_sas_txt_tb_anz_12x10) & "x 12x10 Rohre"
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)             ;Abschnitt
+	$iFaktor = GUICtrlRead($tab_sas_txt_tb_anz_12x10)
+	$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_tb_lang)
+
+
+	Dim $aPosNr = [$aNumb]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_Rohr_12x10
+
+Func _add_HAPos($aVertragsPos, $aNumb)
+	$sText_Bemerkung = GUICtrlRead($tab_sas_txtscanname)
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)  ;Abschnitt
+	$iFaktor = "1,0"
+	$sLeange = ""
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+
+	Dim $aPosNr = [$aNumb]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_HAPos
+
+Func _add_HATBm($aVertragsPos)
+	$sText_Bemerkung = ""
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
+	$iFaktor = "1,0"
+	$sLeange = GUICtrlRead($tab_sas_txt_trmeter)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.06.0004"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_HATBm
+
+Func _add_HARM($aVertragsPos)
+	If GUICtrlRead($tab_sas_chb_einzug10) = $GUI_CHECKED Then
+		;einzug die neuen Positionen
+		
+		$sText_Bemerkung = ""
+		$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
+		$iFaktor = "1,0"
+		$sLeange = GUICtrlRead($tab_sas_txt_trmeter)
+		$sBreite = ""
+		$sTiefe = ""
+		$sMenge = GUICtrlRead($tab_sas_txt_trmeter)
+		;$sText_Bemerkung = ""
+
+		Dim $aPosNr = ["01.04.0003"]
+		_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+		$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+		If $sIPosNr <> "" Then
+			$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+		Else
+			$sINI_String = $sNotImVer
+		EndIf
+		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+		
+		$sText_Bemerkung = ""
+		$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
+		$iFaktor = "1,0"
+		$sLeange =	GUICtrlRead($tab_sas_txt_trmeter)
+		$sBreite = ""
+		$sTiefe = ""
+		$sMenge = GUICtrlRead($tab_sas_txt_trmeter)
+		;$sText_Bemerkung = ""
+
+		Dim $aPosNr = ["01.06.0006"]
+		_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+		$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+		If $sIPosNr <> "" Then
+			$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+		Else
+			$sINI_String = $sNotImVer
+		EndIf
+		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+	Else 
+		
+		$sText_Bemerkung = ""
+		$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
+		$iFaktor = "1,0"
+		$sLeange = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_trmeter)) + 1 + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_strqm))
+		$sBreite = ""
+		$sTiefe = ""
+		$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+		;$sText_Bemerkung = ""
+
+		Dim $aPosNr = ["01.06.0006"]
+		_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+		$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+		If $sIPosNr <> "" Then
+			$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+		Else
+			$sINI_String = $sNotImVer
+		EndIf
+		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+	EndIf
+	
+EndFunc   ;==>_add_HARM
+
+Func _add_HA_QkR($aVertragsPos)
+	;Pos 19
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
+	$iFaktor = 1 * _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_anzqst))
+	$sLeange = "1,0"
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = "1,0" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0019"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+
+	;Pos20
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
+	$iFaktor = GUICtrlRead($tab_sas_txt_anz_qkr)
+	$sLeange = "0,5"
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = "0,5" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0020"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_HA_QkR
+
+Func _add_HA_Strq($aVertragsPos)
+	$sText_Bemerkung = "Öffentlicherbereich "
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
+	$iFaktor = "1,0"
+	$sLeange = GUICtrlRead($tab_sas_txt_strqm)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_strqm);GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0008"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc
+
+Func _add_HA_Suchgrube($aVertragsPos)
+	$sText_Bemerkung = "Öffentlicherbereich "
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
+	$iFaktor = "1,0"
+	$sLeange = ""
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_anzsuchgr);GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0018"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc
+; Pos 19 = Anzahl Querungs Stellen
+; Pos 20 = Anzahl der Kabelquerungen
+
+Func _add_HA_kabelsm($aVertragsPos)
+
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
+	$iFaktor = "1,0"
+	$sLeange = GUICtrlRead($tab_sas_txt_kabelm)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_kabelm)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0019"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+
+	;Pos20
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
+	$iFaktor = "1,0"
+	$sLeange = GUICtrlRead($tab_sas_txt_kabelm)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_kabelm)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0020"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_HA_kabelsm
+;$tab_sas_kabelm
+
+;~ 	Global $Label86 = GUICtrlCreateLabel("Anzahl Q Kabel Rohre:", 698, 120, 120, 17)
+;~ 	Global $tab_sas_txt_tbanzqk = GUICtrlCreateInput("", 827, 116, 45, 22)
+;~ 	Global $Label87 = GUICtrlCreateLabel("Anzahl Querungs Stellen:", 698, 145, 127, 18)
+;~ 	Global $tab_sas_txt_tb_anzqs = GUICtrlCreateInput("", 827, 142, 45, 22)
+;~ 	Global $Label88 = GUICtrlCreateLabel("Kabelsichern Meter:", 697, 173, 98, 17)
+
+Func _add_HA_QkR_tb($aVertragsPos)
+	;Pos 19
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
+	$iFaktor = 1 * _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anzqs))
+	$sLeange = "1,0"
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = "1,0" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0019"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+
+	;Pos20
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
+	$iFaktor = GUICtrlRead($tab_sas_txt_tbanzqk)
+	$sLeange = "0,5"
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = "0,5" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0020"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_HA_QkR_tb
+
+Func _add_HA_kabelsm_tb($aVertragsPos)
+
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
+	$iFaktor = "1,0"
+	$sLeange = GUICtrlRead($tab_sas_txt_tb_kabelm)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_tb_kabelm)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0019"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+
+	;Pos20
+	$sText_Bemerkung = "Siehe Bild: "
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
+	$iFaktor = "1,0"
+	$sLeange = GUICtrlRead($tab_sas_txt_tb_kabelm)
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_tb_kabelm)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0020"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc   ;==>_add_HA_kabelsm_tb
+
+Func _add_TB_Suchgrube($aVertragsPos)
+	$sText_Bemerkung = "Öffentlicherbereich "
+	$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
+	$iFaktor = "1,0"
+	$sLeange = ""
+	$sBreite = ""
+	$sTiefe = ""
+	$sMenge = GUICtrlRead($tab_sas_txt_tb_anzsuchgr)
+	;$sText_Bemerkung = ""
+
+	Dim $aPosNr = ["01.03.0018"]
+	_Find_Pos_From_Array($aPosNr, $aVertragsPos)
+
+	$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
+	If $sIPosNr <> "" Then
+		$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
+	Else
+		$sINI_String = $sNotImVer
+	EndIf
+	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
+EndFunc
+
+Func _feld_back_tb()
+	GUICtrlSetData($tab_sas_txt_scantb, "")
+	GUICtrlSetData($tab_sas_txt_tb_lang, "")
+	GUICtrlSetData($tab_sas_txt_tb_tief, "")
+	GUICtrlSetData($tab_sas_txt_tb_anz_12x10, "")
+	GUICtrlSetData($tab_sas_txt_tb_anz_4x20, "")
+	GUICtrlSetData($tab_sas_txt_tbanzqk, "")
+	GUICtrlSetData($tab_sas_txt_tb_anzqs, "")
+	GUICtrlSetData($tab_sas_txt_tb_kabelm, "")
+	GUICtrlSetData($tab_sas_txt_tb_anzsuchgr, "")
+	GUICtrlSetState($tab_sas_chb_unbe, $GUI_UNCHECKED)
+	GUICtrlSetState($tab_sas_chb_be, $GUI_UNCHECKED)
+	GUICtrlSetState($tab_sas_chb_kg2, $GUI_UNCHECKED)
+	GUICtrlSetState($tab_sas_chb_kg4, $GUI_UNCHECKED)
+	GUICtrlSetState($tab_sas_chb_kg6, $GUI_UNCHECKED)
+	GUICtrlSetState($tab_sas_chb_einzug10, $GUI_UNCHECKED)
+EndFunc   ;==>_feld_back_tb
+
+Func _feld_back_ha()
+	GUICtrlSetData($tab_sas_txtscanname, "")
+	GUICtrlSetData($tab_sas_txt_trmeter, "")
+	GUICtrlSetData($tab_sas_txt_kabelm, "")
+	GUICtrlSetData($tab_sas_txt_anz_qkr, "")
+	GUICtrlSetData($tab_sas_txt_anzqst, "")
+	GUICtrlSetData($tab_sas_txt_anzsuchgr, "")
+	GUICtrlSetData($tab_sas_txt_strqm, "")
+	GUICtrlSetState($tab_sas_chb_ha, $GUI_UNCHECKED)
+EndFunc   ;==>_feld_back_ha