
Func _add_nett_achberg_HA()
	Global $aVertragsPos = _read_VertragsPositionen2Array()
	;Kabelkraben Trassenband, SAnd
	If GUICtrlRead($tab_neff_ach_chb_ha) = $GUI_CHECKED Then
		_Pos_Kabelgraben()
	EndIf

	;kopfloch Trasse
	If GUICtrlRead($tab_neff_ach_chb_kopfl_tr) = $GUI_CHECKED Then
		_HA_Kopfloch_Trasse()
	EndIf

	;kofploch Hausanschluss
	If GUICtrlRead($tab_neff_ach_chb_kopfl_ha) = $GUI_CHECKED Then
		_HA_Kopfloch_Gebaeude()
	EndIf

	;Leitungen unterfahren

	_HA_ltg_unterfahren()

	;Leitungen sichern längs
	_HA_ltg_sichern_l()

	If GUICtrlRead($tab_neff_ach_chb_ha) = $GUI_CHECKED Or GUICtrlRead($tab_neff_ach_chb_kopfl_tr) = $GUI_CHECKED Or GUICtrlRead($tab_neff_ach_chb_kopfl_ha) = $GUI_CHECKED Then
		;Pipe Rohr alle Kabelkrabenlängen +1m im Haus
		_HA_Pipe()
	EndIf
	
	_ha_dop10()


	; Sonstgies (Koordination, kernborhung MD1)
	_HA_Sonstiges()

	_ArrayDelete($aLVListe, 0)
	$iCount = -1
	_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
	Global $aLVListe[1][13]
EndFunc   ;==>_add_nett_achberg_HA

Func _add_nett_achberg_TB()
	Global $aVertragsPos = _read_VertragsPositionen2Array()


	;kabelgraben
	_TB_Kabelgraben()

	
	;Leitungen unterfahren
	_TB_ltg_unterfahren()

	;Leitungen sichern längs
	_TB_ltg_sichern_l()

	;kofploch Trasse
	If GUICtrlRead($tab_neff_ach_tb_chb_kopfl_tr) = $GUI_CHECKED Then
		_TB_Kopfloch_Trasse()
	EndIf
	
	_tb_dop10()
	_tb_dop20()

	_ArrayDelete($aLVListe, 0)
	$iCount = -1
	_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
	Global $aLVListe[1][13]
EndFunc   ;==>_add_nett_achberg_TB

Func _feld_back_neff_HA()
	GUICtrlSetData($tab_neff_ach_txt_scanname, "")
	GUICtrlSetData($tab_neff_ach_txt_anz_st_kabel, "")
	GUICtrlSetData($tab_neff_ach_txt_anz_st_verso, "")
	GUICtrlSetData($tab_neff_ach_txt_anz_st_abw, "")
	GUICtrlSetData($tab_neff_ach_txt_m_kabel, "")
	GUICtrlSetData($tab_neff_ach_txt_m_verso, "")
	GUICtrlSetData($tab_neff_ach_txt_m_abw, "")
	GUICtrlSetData($tab_neff_ach_txt_kg_gr_m, "")
	GUICtrlSetData($tab_neff_ach_txt_kg_as_m, "")
	GUICtrlSetData($tab_neff_ach_txt_kg_Pf_m, "")
	GUICtrlSetData($tab_ach_ha_txt_anz_dop10, "")

	GUICtrlSetState($tab_neff_ach_chb_ha, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_kg_Gruen, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_kg_as, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_kg_Pflaster, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_kopfl_ha, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_ha_dop10, $GUI_UNCHECKED)

	GUICtrlSetState($tab_neff_ach_chb_kopfl_tr, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_unt_kabel, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_unt_Vers, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_unt_Abwas, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_sichern_l_KabRohr, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_sichern_l_Vers, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_sichern_l_Abwas, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_HA_koor, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_Kernb, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_MD1, $GUI_UNCHECKED)
EndFunc   ;==>_feld_back_neff_HA

Func _feld_back_neff_TB()
	GUICtrlSetData($tab_neff_ach_tb_txt_scanname, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_kg_gr_m, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_kg_as_m, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_kg_pf_m, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_anz_st_kabel, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_anz_st_verso, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_anz_st_abw, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_kg_as_b, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_kg_pf_b, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_m_kabel, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_m_verso, "")
	GUICtrlSetData($tab_neff_ach_tb_txt_m_abw, "")
	GUICtrlSetData($tab_ach_tb_txt_tb_anz_dop10, "")
	GUICtrlSetData($tab_ach_tb_txt_tb_anz_dop20, "")

	GUICtrlSetState($tab_neff_ach_tb_chb_kg_Gruen, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_kg_as, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_kg_pfl, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_kopfl_tr, $GUI_UNCHECKED)
		
	GUICtrlSetState($tab_neff_ach_chb_tb_dop10, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_chb_tb_dop20, $GUI_UNCHECKED)

	GUICtrlSetState($tab_neff_ach_tb_chb_unt_kabel, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_unt_Vers, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_unt_Abwas, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_ltgT070_090, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_ltgT090_100, $GUI_UNCHECKED)

	GUICtrlSetState($tab_neff_ach_tb_chb_sichern_l_KabRohr, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_sichern_l_Vers, $GUI_UNCHECKED)
	GUICtrlSetState($tab_neff_ach_tb_chb_sichern_l_Abwas, $GUI_UNCHECKED)
;~ 	GUICtrlSetState($tab_neff_ach_chb_Kernb, $GUI_UNCHECKED)
;~ 	GUICtrlSetState($tab_neff_ach_chb_MD1, $GUI_UNCHECKED)
EndFunc   ;==>_feld_back_neff_TB

Func _TB_Leitungsgraben($sLeange)

	$aNumb = "1.3.01.0390"

	If GUICtrlRead($tab_neff_ach_tb_chb_ltgT070_090) = $GUI_CHECKED Then
		$aNumb = "1.3.01.0390"
	EndIf

	If GUICtrlRead($tab_neff_ach_tb_chb_ltgT090_100) = $GUI_CHECKED Then
		$aNumb = "1.3.02.0060"
	EndIf

	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
;~ 	$sLeange = $sLeange
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $sLeange
;~ 				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, "|")
EndFunc   ;==>_TB_Leitungsgraben

func _ha_dop10()
	If GUICtrlRead($tab_neff_ach_chb_ha_dop10) = $GUI_CHECKED Then
		$aNumb = "1.4.01.0180"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_ach_ha_txt_anz_dop10)
;~ 				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 
EndFunc

func _tb_dop10()
	If GUICtrlRead($tab_neff_ach_chb_tb_dop10) = $GUI_CHECKED Then
		$aNumb = "1.4.01.0180"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_ach_tb_txt_tb_anz_dop10)
;~ 				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 
EndFunc

func _tb_dop20()
	If GUICtrlRead($tab_neff_ach_chb_tb_dop20) = $GUI_CHECKED Then
		$aNumb = "1.4.01.0100"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_ach_tb_txt_tb_anz_dop20)
;~ 				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 
EndFunc

Func _TB_Kabelgraben()
	;Grünfläche
	If GUICtrlRead($tab_neff_ach_tb_chb_kg_Gruen) = $GUI_CHECKED Then

		; oberboden Abtragen
		$aNumb = "1.3.02.0010"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_gr_m)
		$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_guen_b)
		$sTiefe = ""
		$sMenge = ""
;~ 				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, "|")

		_TB_Leitungsgraben($slaenge)

		;trassenband
		_TB_Trassenband($sLeange)
		;sand
		_TB_Sand($sLeange)
		
		;rohe
		If GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) <> "" Then
			_add_tb_Rohr_4x20($sLeange)
		EndIf

		If GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10) <> "" Then
			_add_tb_Rohr_12x10($sLeange)
		EndIf
	EndIf

	;Pflaster
	If GUICtrlRead($tab_neff_ach_tb_chb_kg_pfl) = $GUI_CHECKED Then
		; Pflaster Decke aufnehmen
		$aNumb = "1.3.01.0200"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_gr_m)
		$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_guen_b)
		$sTiefe = ""
		$sMenge = ""
;~ 				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, "|")


		$aNumb = "1.3.01.0210"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_pf_m)
		$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_pf_b)
		$sTiefe = ""
		$sMenge = ""
;~ 				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, "|")
		
		_TB_Leitungsgraben($slaenge)

		;trassenband
		_TB_Trassenband($sLeange)
		;sand
		_TB_Sand($sLeange)
		
		;rohe
		If GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) <> "" Then
			_add_tb_Rohr_4x20($sLeange)
		EndIf

		If GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10) <> "" Then
			_add_tb_Rohr_12x10($sLeange)
		EndIf
	EndIf

	;Asphalt
	If GUICtrlRead($tab_neff_ach_tb_chb_kg_as) = $GUI_CHECKED Then
		;asphalt schneiden
		$aNumb = "1.3.01.0010"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "2,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_as_m)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = ""
;~ 				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, "|")

		;asphalt aufnehmen
		$aNumb = "1.3.01.0020"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_as_m)
		$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_as_b)
		$sTiefe = ""
		$sMenge = ""
;~ 				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, "|")
		
		_TB_Leitungsgraben($sLeange)

		;trassenband
		_TB_Trassenband($sLeange)
		;sand
		_TB_Sand($sLeange)
		;rohe
		If GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) <> "" Then
			_add_tb_Rohr_4x20($sLeange)
		EndIf

		If GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10) <> "" Then
			_add_tb_Rohr_12x10($sLeange)
		EndIf
	EndIf
EndFunc   ;==>_TB_Kabelgraben

Func _add_tb_Rohr_4x20($sLeange)
	$aNumb = "1.4.01.0080"
;~ 	$iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
	$sText_Bemerkung = GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) & "x 4x20 Rohre"
	$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)            ;Abschnitt
	$iFaktor = GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20)
;~ 	$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $sLeange

	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_tb_Rohr_12x10($sLeange)
	$aNumb = "1.4.01.0160"
;~ 	$iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname) & "x 12x10 Rohre"
	$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)             ;Abschnitt
	$iFaktor = GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10)
;~ 	$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $sLeange


	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 _HA_ltg_sichern_l()
	;Kabel + Rohr
	If GUICtrlRead($tab_neff_ach_chb_sichern_l_KabRohr) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0050"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_txt_m_kabel)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_txt_m_kabel)
;~ 				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
	;Versorgung
	If GUICtrlRead($tab_neff_ach_chb_sichern_l_Vers) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0050"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_txt_m_verso)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_txt_m_verso)
;~ 				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
	;Abwasser
	If GUICtrlRead($tab_neff_ach_chb_sichern_l_Abwas) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0050"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_txt_m_abw)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_txt_m_abw)
;~ 				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

EndFunc   ;==>_HA_ltg_sichern_l

Func _TB_ltg_sichern_l()
	;Kabel + Rohr
	If GUICtrlRead($tab_neff_ach_tb_chb_sichern_l_KabRohr) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0050"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_m_kabel)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_tb_txt_m_kabel)
;~ 				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
	;Versorgung
	If GUICtrlRead($tab_neff_ach_tb_chb_sichern_l_Vers) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0050"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_m_verso)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_tb_txt_m_verso)
;~ 				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
	;Abwasser
	If GUICtrlRead($tab_neff_ach_tb_chb_sichern_l_Abwas) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0050"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_m_abw)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_tb_txt_m_abw)
;~ 				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
EndFunc   ;==>_TB_ltg_sichern_l

Func _TB_ltg_unterfahren()
	;unterquerung Kabel + Rohr
	If GUICtrlRead($tab_neff_ach_tb_chb_unt_kabel) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0060"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_kabel)) * 1
		$sLeange = "1,0"
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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, "|")

		;unterfahren kabel
		$aNumb = "1.3.03.0070"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_kabel)) * 1
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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

	;unterquerung Versorgugnsleitungen
	If GUICtrlRead($tab_neff_ach_tb_chb_unt_Vers) = $GUI_CHECKED Then
		; sicher Versorgung Querung
		$aNumb = "2.3.03.0070"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_verso)) * 1
		$sLeange = "1,0"
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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, "|")

		;unterfahren Versorung
		$aNumb = "1.3.03.0100"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_verso)) * 1
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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

	;unterquerungen Abwasserleitungen
	If GUICtrlRead($tab_neff_ach_tb_chb_unt_Abwas) = $GUI_CHECKED Then
		; sicher ABwasser Querung
		$aNumb = "1.3.03.0100"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_abw)) * 1
		$sLeange = "1,0"
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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, "|")

		;unterfahren ABwasser
		$aNumb = "1.3.03.0130"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_abw)) * 1
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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
EndFunc   ;==>_TB_ltg_unterfahren

Func _HA_ltg_unterfahren()
	;unterquerung Kabel + Rohr
	If GUICtrlRead($tab_neff_ach_chb_unt_kabel) = $GUI_CHECKED Then
		; sicher KAbel Querung
		$aNumb = "1.3.03.0060"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_kabel)) * 1
		$sLeange = "1,0"
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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, "|")

		;unterfahren kabel
		$aNumb = "1.3.03.0070"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_kabel)) * 1
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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

	;unterquerung Versorgugnsleitungen
	If GUICtrlRead($tab_neff_ach_chb_unt_Vers) = $GUI_CHECKED Then
		; sicher Versorgung Querung
		$aNumb = "2.3.03.0070"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_verso)) * 1
		$sLeange = "1,0"
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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, "|")

		;unterfahren Versorung
		$aNumb = "1.3.03.0100"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_verso)) * 1
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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

	;unterquerungen Abwasserleitungen
	If GUICtrlRead($tab_neff_ach_chb_unt_Abwas) = $GUI_CHECKED Then
		; sicher ABwasser Querung
		$aNumb = "2.3.03.0100"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_abw)) * 1
		$sLeange = "1,0"
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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, "|")

		;unterfahren ABwasser
		$aNumb = "1.3.03.0130"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_abw)) * 1
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1,0"
;~ 				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
EndFunc   ;==>_HA_ltg_unterfahren

Func _Pos_Kabelgraben()
	;Grünfläche
	If GUICtrlRead($tab_neff_ach_chb_kg_Gruen) = $GUI_CHECKED Then
		$aNumb = "1.3.02.0220"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_txt_kg_gr_m)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_txt_kg_gr_m)
;~ 				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, "|")

		;trassenband
		_HA_Trassenband($sLeange)
		;sand
		_HA_Sand($sLeange)
	EndIf

	;Pflaster
	If GUICtrlRead($tab_neff_ach_chb_kg_Pflaster) = $GUI_CHECKED Then
		$aNumb = "1.3.01.0470"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_txt_kg_Pf_m)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_txt_kg_Pf_m)
;~ 				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, "|")

		;trassenband
		_HA_Trassenband($sLeange)
		;sand
		_HA_Sand($sLeange)
	EndIf

	;Asphalt
	If GUICtrlRead($tab_neff_ach_chb_kg_as) = $GUI_CHECKED Then
		$aNumb = "1.3.01.0460"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = GUICtrlRead($tab_neff_ach_txt_kg_as_m)
		$sBreite = ""
		$sTiefe = ""
		$sMenge = GUICtrlRead($tab_neff_ach_txt_kg_as_m)
;~ 				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, "|")

		;trassenband
		_HA_Trassenband($sLeange)
		;sand
		_HA_Sand($sLeange)
	EndIf

EndFunc   ;==>_Pos_Kabelgraben

Func _HA_Trassenband($iMeter)
	$aNumb = "1.2.02.0010"

	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = $iMeter
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $iMeter
;~ 				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, "|")

EndFunc   ;==>_HA_Trassenband

Func _HA_Sand($iMeter)
	$aNumb = "1.3.01.0400"

	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = $iMeter
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $iMeter
;~ 				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, "|")
EndFunc   ;==>_HA_Sand

Func _TB_Trassenband($iMeter)
	$aNumb = "1.2.02.0010"

	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = $iMeter
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $iMeter
;~ 				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, "|")

EndFunc   ;==>_TB_Trassenband

Func _TB_Sand($iMeter)
	$aNumb = "1.3.01.0400"

	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = $iMeter
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $iMeter
;~ 				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, "|")
EndFunc   ;==>_TB_Sand

Func _HA_Kopfloch_Gebaeude()
	If GUICtrlRead($tab_neff_ach_chb_kopfl_ha) = $GUI_CHECKED Then
		$aNumb = "1.3.03.0040"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1"
;~ 				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, "|")

		;Endkappen
		_HA_Endkappen()
	EndIf
EndFunc   ;==>_HA_Kopfloch_Gebaeude

Func _HA_Kopfloch_Trasse()
	If GUICtrlRead($tab_neff_ach_chb_kopfl_tr) = $GUI_CHECKED Then
		$aNumb = "1.3.03.0030"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1"
;~ 				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, "|")

		;Endkappen
		_HA_Endkappen()
	EndIf
EndFunc   ;==>_HA_Kopfloch_Trasse

Func _HA_Endkappen()
	$aNumb = "1.4.01.0190"
	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = ""
	$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, "|")
EndFunc   ;==>_HA_Endkappen

Func _TB_Kopfloch_Trasse()
	If GUICtrlRead($tab_neff_ach_tb_chb_kopfl_tr) = $GUI_CHECKED Then
		$aNumb = "1.3.03.0030"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1"
;~ 				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, "|")

		;Endkappen
		_TB_Endkappen()
	EndIf
EndFunc   ;==>_TB_Kopfloch_Trasse

Func _TB_Endkappen()
	$aNumb = "1.4.01.0190"
	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = ""
	$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, "|")
EndFunc   ;==>_TB_Endkappen

Func _HA_Pipe()

	$iMeter_gr = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_kg_gr_m))
	$iMeter_as = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_kg_as_m))
	$iMeter_pf = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_kg_Pf_m))

	$iGesamtMeter = $iMeter_gr + $iMeter_as + $iMeter_pf + 1

	$aNumb = "1.4.01.0220"

	$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
	$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
	$iFaktor = "1,0"
	$sLeange = $iGesamtMeter
	$sBreite = ""
	$sTiefe = ""
	$sMenge = $iGesamtMeter
;~ 				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, "|")
EndFunc   ;==>_HA_Pipe

Func _HA_Sonstiges()

	If GUICtrlRead($tab_neff_ach_chb_HA_koor) = $GUI_CHECKED Then
		$aNumb = "1.4.03.0010"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1"
;~ 				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_neff_ach_chb_Kernb) = $GUI_CHECKED Then
		$aNumb = "1.4.03.0020"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1"
;~ 				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_neff_ach_chb_MD1) = $GUI_CHECKED Then
		$aNumb = "1.4.03.0030"

		$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
		$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname)     ;Abschnitt
		$iFaktor = "1,0"
		$sLeange = ""
		$sBreite = ""
		$sTiefe = ""
		$sMenge = "1"
;~ 				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

EndFunc   ;==>_HA_Sonstiges
