;ahelper_grube.au3

Global $aAngaben_graben[2][10] = [["Abschnitt", "Länge", "Breite", "Tiefe", "Bemerkung", "Asphaltstärke", "AsphaltRestlänge", "AsphaltRestBreite", "Anzahl Einzeiler", "Einzeiler Meter"]]


Func _ReadInputs2Array_graben()
	;Array Anganen
	$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
	$sLeange = GUICtrlRead($tab1_txt_leange)
	$sBreite = GUICtrlRead($tab1_txt_breite)
	$sTiefe = GUICtrlRead($tab1_txt_tiefe)
	$sBemerkung = GUICtrlRead($tab1_txt_bemerkung)
	$sAsphaltstark = GUICtrlRead($tab1_txt_asphaltstark)
	$sAsphaltRestLang = GUICtrlRead($tab1_txt_rest_laenge)
	$sAsphaltRestBreit = GUICtrlRead($tab1_txt_rest_breite)
	$sAnzEinzeiler = GUICtrlRead($tab1_txt_anz_einz)
	$sEinzeilerMeter = GUICtrlRead($tab1_txt_lm_bre)
	
	$aAngaben_graben[1][0] = $sAbschnitt ;abeschnitt
	$aAngaben_graben[1][1] = _replaceKom2Punkt($sLeange) ;länge
	$aAngaben_graben[1][2] = _replaceKom2Punkt($sBreite) ;Breite
	$aAngaben_graben[1][3] = _replaceKom2Punkt($sTiefe) ; Tiefe
	$aAngaben_graben[1][4] = $sBemerkung ;Bemerkung
	$aAngaben_graben[1][5] = _replaceKom2Punkt($sAsphaltstark)
	$aAngaben_graben[1][6] = _replaceKom2Punkt($sAsphaltRestLang)
	$aAngaben_graben[1][7] = _replaceKom2Punkt($sAsphaltRestBreit)
	$aAngaben_graben[1][8] = _replaceKom2Punkt($sAnzEinzeiler)
	$aAngaben_graben[1][9] = _replaceKom2Punkt($sEinzeilerMeter)
	
;~ 	_ArrayDisplay($aAngaben_graben)
	
	;Array Oberflächen
;~ 	If GUICtrlRead($tab1_chb_wiese) = $GUI_CHECKED Then
;~
;~ 	EndIf
	;Array Medien
EndFunc   ;==>_ReadInputs2Array_graben

Func _add_Graben()
	Global $sIniDatei = GUICtrlRead($chb_vertrag)
	If GUICtrlRead($chb_vertrag) = "" Then
		MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
	Else

		;Graben Wiese
		_ini_umwandeln_pfad($sIniDateiPfad & $sIniDatei)
		_ReadInputs2Array_graben()
		
		If GUICtrlRead($tab1_chb_wiese) = $GUI_CHECKED Then

			_graben_wiese()

		EndIf
		;Graben Kies
		If GUICtrlRead($tab1_chb_kies) = $GUI_CHECKED Then
			
			_graben_kies()
		EndIf
		;Graben Asphalt
		If GUICtrlRead($tab1_chb_asphalt) = $GUI_CHECKED Then
			_graben_asphalt()

		EndIf
		;Graben Pflaster normal
		If GUICtrlRead($tab1_chb_pflaster) = $GUI_CHECKED Then
			_graben_pflaster()
		EndIf
		;Graben Pflaster Groß
		;If GUICtrlRead($tab1_chb_pflaster_gr) = $GUI_CHECKED Then
		;$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
		;$sLeange = GUICtrlRead($tab1_txt_leange)
		;$sBreite = GUICtrlRead($tab1_txt_breite)
		;$sTiefe = GUICtrlRead($tab1_txt_tiefe)
		;$aGrabenPflastergr = _graben_pflaster_gr($sAbschnitt, $sLeange, $sBreite, $sTiefe)
		;_ArrayAdd($aAusabge, $aGrabenPflastergr, 0, "|", @CRLF)
;~ 		_ArrayDisplay($aGrabenPflastergr)
;~ 		MsgBox(64, "Fertig", "fertig")
		;EndIf
		;Graben Mosaik
		If GUICtrlRead($tab1_chb_mosaik) = $GUI_CHECKED Then

			_graben_Mosaik()

		EndIf
		;Medien
		;CU-Kabel bis 100 DA
		If GUICtrlRead($tab1_chb_cu_kabel) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanzcu = GUICtrlRead($tab1_txt_anz_cu_kabel)
			_AnzahlCUKabelb300($sanzcu, $sLeangeM)
		EndIf
		;CU-Kabel über 100 DA
		If GUICtrlRead($tab1_chb_anz_g_100CU) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanzcu = GUICtrlRead($tab1_txt_anz_cu_kabel)
			_AnzahlCUKabelu300($sanzcu, $sLeangeM)
			
		EndIf
		;1FachDN50 Anzahl
		If GUICtrlRead($tab1_chb_dn50) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanzDN50 = GUICtrlRead($tab1_txt_anz_dn50)
			_AnzahlDN50($sanzDN50, $sLeangeM)

		EndIf
		;2FachDN50 Anzahl
		If GUICtrlRead($tab1_chb_2xdn50) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanzDN50 = GUICtrlRead($tab1_txt_anz_2xdn50)
			_Anzahl2DN50($sanzDN50, $sLeangeM)

		EndIf
		;3FachDN50 Anzahl
		If GUICtrlRead($tab1_chb_3xdn50) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanzDN50 = GUICtrlRead($tab1_txt_anz_3xdn50)
			_Anzahl3DN50($sanzDN50, $sLeangeM)

		EndIf
		;7x12 Anzahl
		If GUICtrlRead($tab1_chb_snrve7x12) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanz7x12 = GUICtrlRead($tab1_txt_anz_snrve712)
			_Anzahl7x12SNRVe($sanz7x12, $sLeangeM)
			
		EndIf
		;22x7 Anzahl
		If GUICtrlRead($tab1_chb_snrve22x7) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanz22x7 = GUICtrlRead($tab1_txt_anz_snrve22x7)
			_Anzahl22x7SNRVe($sanz22x7, $sLeangeM)

		EndIf
		;8x7 Anzahl
		If GUICtrlRead($tab1_chb_snrve8x7) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanz8x7 = GUICtrlRead($tab1_txt_anz_snrve_8x7)
			_Anzahl8x7SNRVe($sanz8x7, $sLeangeM)

		EndIf
		;Anzahl DN110
		If GUICtrlRead($tab1_chb_dn110) = $GUI_CHECKED Then
			$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
			$sLeangeM = GUICtrlRead($tab1_txt_leange)
			$sanzDN110 = GUICtrlRead($tab1_txt_anz_dn110)
			_AnzahlDN110($sanzDN110, $sLeangeM)

		EndIf
		;Boardstein
		If GUICtrlRead($tab1_chb_bord) = $GUI_CHECKED Then
			_graeben_boardstein()
		EndIf
		;Kantenstein
		If GUICtrlRead($tab1_chb_kante) = $GUI_CHECKED Then
			_graeben_kantenstein()
		EndIf
		;Rinne/Einzeiler
		If GUICtrlRead($tab1_chb_rinne) = $GUI_CHECKED Then
			_graeben_rinne()
		EndIf
		
		If GUICtrlRead($tab1_chb_trasseeinmessen) = $GUI_CHECKED Then
			_check_trasseeinmessen_graben()
			
		EndIf
		
		If GUICtrlRead($tab1_chb_stahplatte) = $GUI_CHECKED Then
			_check_stahlplatte_graben()
			

		EndIf
		
		
		;reststreifen vorhanden? ganz am Ende
		If GUICtrlRead($tab1_txt_rest_laenge) <> "" And GUICtrlRead($tab1_txt_rest_breite) <> "" Then

;~ 			_Reststreifen_graben()
			_Reststreifen_graben_new()
		EndIf
		
		
		
;~ 		_ArrayDisplay($aLVListe)
		_ArrayDelete($aLVListe, 0)
		$iCount = -1
		_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)

		Global $aLVListe[1][13]
;~ 		_ArrayAdd($aLVListe,"RSA-Abschnitt"&"|"&"PositionNr"&"|"&"Faktor"&"|"&"Länge"&"|"&"Breite"&"|"&"Tiefe"&"|"&"Menge"&"|"&"ME"&"|"&"Leistungskurztext"&"|"&"Bemerkung"&"|"&"Menge"&"|"&"E-Preis"&"|"&"Summe", 0)
	EndIf
EndFunc   ;==>_add_Graben

Func _felder_tab1_zurucksetzen()
	GUICtrlSetData($tab1_txt_abschnitt, "")
	GUICtrlSetData($tab1_txt_leange, "")
	GUICtrlSetData($tab1_txt_breite, "")
	GUICtrlSetData($tab1_txt_tiefe, "")
	GUICtrlSetData($tab1_txt_bemerkung, "")
	GUICtrlSetData($tab1_txt_rest_laenge, "")
	GUICtrlSetData($tab1_txt_rest_breite, "")
	GUICtrlSetData($tab1_txt_asphaltstark, "")
	GUICtrlSetData($tab1_txt_anz_einz, "")
	GUICtrlSetData($tab1_txt_lm_bre, "")
	GUICtrlSetData($tab1_txt_anz_cu_kabel, "")
	GUICtrlSetData($tab1_txt_anz_dn50, "")
	GUICtrlSetData($tab1_txt_anz_snrve712, "")
	GUICtrlSetData($tab1_txt_anz_dn110, "")
	GUICtrlSetData($tab1_txt_anz_snrve22x7, "")
	GUICtrlSetData($tab1_txt_anz_snrve_8x7, "")
	GUICtrlSetData($tab1_txt_anz_2xdn50, "")
	GUICtrlSetData($tab1_txt_anz_3xdn50, "")
	GUICtrlSetData($tab1_txt_stahplatteBemerk, "")
	
	GUICtrlSetState($tab1_chb_wiese, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_kies, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_asphalt, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_pflaster, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_mosaik, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_inBeton, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_winterbau, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_liefern, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_bord, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_kante, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_rinne, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_fels, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_cu_kabel, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_anz_g_100CU, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_dn50, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_snrve7x12, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_dn110, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_snrve22x7, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_snrve8x7, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_2xdn50, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_3xdn50, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_trasseeinmessen, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_stahplatte, $GUI_UNCHECKED)
	GUICtrlSetState($tab1_chb_bodentausch, $GUI_UNCHECKED)
EndFunc   ;==>_felder_tab1_zurucksetzen


#Region Gräben
Func _graben_wiese()
	_ini_umwandeln()
	
	;Gräben ohne Oberbau
	_check_OOBbreite_graben()
	
	;Bodenklasse 7
	_check_bodenklasse7_graben()

	;Mehrtiefe für gräben
	_graeben_mehrtiefe()
	
	;winterbau graben
	_check_winterbau_graben()
	
;~ 	;Arbeitsraum instandsetzten
	_check_Arbeitsrauminstand_graben()

	;Bodenaustausch für Gräben
	_check_bodentausch_graben()

	;Zulage Bodenautausch Tiefer
	_graeben_bodentausch_mehrtiefe()
	
EndFunc   ;==>_graben_wiese

Func _graben_kies()
	_ini_umwandeln()

	;Gräben in ungebunden  Oberbau
	_check_UBbreite_graben()
	
	;Bodenklasse 7
	_check_bodenklasse7_graben()
	
	;Mehrtiefe für gräben
	_graeben_mehrtiefe()

	;winterbau graben
	_check_winterbau_graben()


	;Bodenaustausch für Gräben
	_check_bodentausch_graben()

	;Zulage Bodenautausch Tiefer
	_graeben_bodentausch_mehrtiefe()



	

EndFunc   ;==>_graben_kies

Func _graben_asphalt()
	_ini_umwandeln()

	;Gräben für den gebundenen Oberbau
	_check_FGObreite_graben()
	
	;Bodenklasse 7
	_check_bodenklasse7_graben()
	
	;Mehrtiefe für gräben
	_graeben_mehrtiefe()
	
	;Zulage  Asphalt Breite von 0,3 bis 0,6
	_check_zulage_asphaltbreite_graben()
	
	;Switch $sAsphaltstark
	_check_asphaltstark_graben()
	
	;winterbau graben
	_check_winterbau_graben()

	;Bodenaustausch für Gräben
	_check_bodentausch_graben()

	;Zulage Bodenautausch Tiefer
	_graeben_bodentausch_mehrtiefe()

EndFunc   ;==>_graben_asphalt

Func _graben_pflaster()
	_ini_umwandeln()
	
	;Gräben für den gebundenen Oberbau
	_check_FGObreite_graben()
	
	;winterbau graben
	_check_winterbau_graben()

	;Bodenklasse 7
	_check_bodenklasse7_graben()

	;Mehrtiefe für gräben
	_graeben_mehrtiefe()
	
	;Zulage Pflaster
	_check_PflasterBreite_graben()
	
	
	;Zulage Beton zementmörtelbett
	_check_Pflaster_beton_graben()
	
	
	;Bodenaustausch für Gräben
	_check_bodentausch_graben()

	;Zulage Bodenautausch Tiefer
	_graeben_bodentausch_mehrtiefe()
	
EndFunc   ;==>_graben_pflaster

Func _graben_pflaster_gr()
	_ini_umwandeln()
	
	_check_FGObreite_graben()
	
	_check_bodenklasse7_graben()
	
	;Mehrtiefe für gräben
	_graeben_mehrtiefe()

	_check_PflasterGrbreite_graben()
	
	_check_Pflaster_beton_graben()
	
	_check_bodentausch_graben()

	;Zulage Bodenautausch Tiefer
	_graeben_bodentausch_mehrtiefe()
	
EndFunc   ;==>_graben_pflaster_gr

Func _graben_Mosaik()
	_ini_umwandeln()
	
	_check_FGObreite_graben()
	
	;Bodenklasse 7
	_check_bodenklasse7_graben()
	
	;Mehrtiefe für gräben
	_graeben_mehrtiefe()

	_check_Mosaikbreite_graben()
	
	_check_Pflaster_beton_graben()
	
	_check_bodentausch_graben()

	;Zulage Bodenautausch Tiefer
	_graeben_bodentausch_mehrtiefe()
	
EndFunc   ;==>_graben_Mosaik

Func _Reststreifen_graben_new()
	$sAbschitt = $aAngaben_graben[1][0]
	$sBreite = $aAngaben_graben[1][7]
	$sLeange = $aAngaben_graben[1][6]
	$sAsphaltstark = $aAngaben_graben[1][5]
	
;~ 	[["Abschnitt", "Länge", "Breite", "Tiefe", "Bemerkung", "Asphaltstärke", "AsphaltRestlänge", "AsphaltRestBreite",
	$sVertragString = GUICtrlRead($chb_vertrag)
	If StringInStr($sVertragString, "4650000697") Then
		If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen über 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			_reststreifen_graben_13ueber10cm($sAsphaltstark,$sLeange, $sBreite)
			
			;Reststreifen über 10 cm 18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		
	EndIf
	If StringInStr($sVertragString, "4650001474") Then
			If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
				
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
						
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen von 11 - 15 cm 13 Pos
			_reststreifen_graben_13_v11b15($sLeange, $sBreite)
			;Reststreifen über 16cm 13 Pos
			_reststreifen_graben_13_gr16($sAsphaltstark, $sLeange, $sBreite)
			
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			; Reststreifen von 11 - 15 cm 18 Pos
			_reststreifen_graben_18_v11b15($sLeange, $sBreite)
			;Reststreifen über 16cm 18 Pos
			_reststreifen_graben_18_gr16($sAsphaltstark, $sLeange, $sBreite)
			
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
	EndIf
	If StringInStr($sVertragString, "4650003044") Then
		If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
				
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
						
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen von 11 - 15 cm 13 Pos
			_reststreifen_graben_13_v11b15($sLeange, $sBreite)
			;Reststreifen über 16cm 13 Pos
			_reststreifen_graben_13_gr16($sAsphaltstark, $sLeange, $sBreite)
			
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			; Reststreifen von 11 - 15 cm 18 Pos
			_reststreifen_graben_18_v11b15($sLeange, $sBreite)
			;Reststreifen über 16cm 18 Pos
			_reststreifen_graben_18_gr16($sAsphaltstark, $sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
	EndIf
	
	If StringInStr($sVertragString, "4650003822") Then
		If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen über 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			_reststreifen_graben_13ueber10cm($sAsphaltstark,$sLeange, $sBreite)
			
			;Reststreifen über 10 cm 18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
	EndIf
	
	If StringInStr($sVertragString, "FA-A") Then
		If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen über 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			_reststreifen_graben_13ueber10cm($sAsphaltstark,$sLeange, $sBreite)
			
			;Reststreifen über 10 cm 18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
	EndIf
	
	If StringInStr($sVertragString, "FA-B") Then
		If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen über 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			_reststreifen_graben_13ueber10cm($sAsphaltstark,$sLeange, $sBreite)
			
			;Reststreifen über 10 cm 18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
	EndIf
	
	If StringInStr($sVertragString, "Pfiff") Then
	If $sAsphaltstark <= 0.10 Then
			; Reststreifen bis 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			; Reststreifen bis 10 cm  18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
		If $sAsphaltstark >= 0.11 Then
			;Reststreifen über 10 cm 13 Pos
			_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
			_reststreifen_graben_13ueber10cm($sAsphaltstark,$sLeange, $sBreite)
			
			;Reststreifen über 10 cm 18 Pos
			_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
			_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
			
			;Reststreifen Fugen/Schnitte
			_reststreifen_graben_Fugen($sLeange, $sBreite)
		EndIf
	EndIf
EndFunc   ;==>_Reststreifen_graben_new

Func _Reststreifen_graben_bis10cm($sTABschnitt, $sTLeange, $sTBreite)
	Dim $aProzent[6]
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Restreifenausbau mit BVT & Gemeinde abgesprochen"
	;Reststreifen Asphalt aufbrechen
	$aProzent[1] = $sTABschnitt
	$aProzent[2] = $sText_Bemerkung
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbis10", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_Reststreifen_graben_bis10cm

Func _Reststreifen_graben_bis10liefern($sTLeange, $sTBreite)
	$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbisl10", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_Reststreifen_graben_13bis10liefern

Func _reststreifen_graben_13ueber10cm($sAsphaltstark,$sTLeange, $sTBreite )
	$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
EndFunc   ;==>_reststreifen_graben_13über10cm

func _reststreifen_graben_13_v11b15($sTLeange, $sTBreite)
	$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

Func _reststreifen_graben_13_gr16($sAsphaltstark, $sTLeange, $sTBreite)
	;Asphaltstäkre über 10 cm einbauen
	$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	If $sAsphaltstark >= 0.16 And $sAsphaltstark <= 0.21 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
EndFunc

func _Reststreifen_graben_18ueber10cm($sAsphaltstark, $sTLeange, $sTBreite)
	;Asphaltstäkre über 10 cm einbauen
	$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc

func _reststreifen_graben_18_v11b15($sTLeange, $sTBreite)
	$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _reststreifen_graben_18_gr16($sAsphaltstark, $sTLeange, $sTBreite)
		$sIni_Kategorie = "graebenOberflaeche"
	Dim $aProzent[6]
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
	$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
	$aProzent[5] = ""
	If $sAsphaltstark >= 0.16 And $sAsphaltstark <= 0.21 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6034", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
EndFunc


Func _reststreifen_graben_Fugen( $sLeange, $sBreite)
	$sIni_Kategorie = "graebenOberflaeche"
	; Fugen schnitte
	Dim $aProzent[6]
	$s1 = _replaceKom2Punkt($sBreite)
	$s2 = _replaceKom2Punkt($sBreite)
	$s3 = _replaceKom2Punkt($sLeange)
	$sFugenleange = $s1 + $s2 + $s3
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sFugenleange)
	$aProzent[4] = ""
	$aProzent[5] = ""
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "RestFugen", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc
Func _Reststreifen_graben()
	Dim $aProzent[6]
	_ini_umwandeln()
	
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Restreifenausbau mit BVT & Gemeinde abgesprochen"
	$sBreite = $aAngaben_graben[1][7]
	$sLeange = $aAngaben_graben[1][6]
	
	
	;_check_asphaltstark_graben()
	
;~ 	;Reststreifen Asphalt aufbrechen
	$aProzent[1] = $aAngaben_graben[1][0]
	$aProzent[2] = $sText_Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
	$aProzent[5] = ""
	
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbis10", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	
	;Asphaltstäkre über 10 cm aufbrechen
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
	$aProzent[5] = ""
	
	$sAsphaltstark = $aAngaben_graben[1][5]
	
	
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf


	;Assphaltliefer bis 10,cm liefern/einbauen
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
	$aProzent[5] = ""
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbisl10", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	
	;Asphaltstäkre über 10 cm einbauen
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	
	; Fugen schnitte
	$s1 = _replaceKom2Punkt($sBreite)
	$s2 = _replaceKom2Punkt($sBreite)
	$s3 = _replaceKom2Punkt($sLeange)
	$sFugenleange = $s1 + $s2 + $s3
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sFugenleange)
	$aProzent[4] = ""
	$aProzent[5] = ""
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "RestFugen", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")


EndFunc   ;==>_Reststreifen_graben

Func _graeben_mehrtiefe()
	_ini_umwandeln()
	
	Dim $aProzent[6]
	
	$sIni_Kategorie = "ZGraebenMehrtiefe"
	$sText_Bemerkung = "Grabentiefe " & _replacePunkt2Koma($aAngaben_graben[1][3]) & " cm"
	$sTiefe = $aAngaben_graben[1][3]
	
	$aProzent[1] = ""
	$aProzent[2] = $sText_Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = ""


	If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 0.80 And $sTiefe < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 0.90 And $sTiefe < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 1.00 And $sTiefe < 1.10 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "100", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 1.10 And $sTiefe < 1.20 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "110", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 1.20 And $sTiefe < 1.30 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "120", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	

EndFunc   ;==>_graeben_mehrtiefe

Func _graeben_bodentausch_mehrtiefe()
	_ini_umwandeln()
	Dim $aProzent[6]
	
	$sIni_Kategorie = "ZLBodenTausch"
	$sText_Bemerkung = "Aushub nicht verdichtungsfähig nach ZTV"
	$sTiefe = $aAngaben_graben[1][3]
	
	$aProzent[1] = ""
	$aProzent[2] = $sText_Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	
	If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 0.80 And $sTiefe < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 0.90 And $sTiefe < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 1.00 And $sTiefe < 1.10 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "100", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 1.10 And $sTiefe < 1.20 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "110", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sTiefe >= 1.20 And $sTiefe < 1.30 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "120", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf

EndFunc   ;==>_graeben_bodentausch_mehrtiefe

Func _graeben_boardstein()
	_ini_umwandeln()
	
	Dim $aProzent[6]
	
	$sIni_Kategorie = "Boardstein"
	
	;Boardstein Aufnehmen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bauf", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	
	;Boardstein liefern Anzahl steine in m
	If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
		$aProzent[1] = "" ;RSA
		$aProzent[2] = "" ;Bemerkung
		$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
		$aProzent[4] = "" ;Breite
		$aProzent[5] = "" ; Tiefe
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "blief", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	;Boardstein eibauen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bein", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	

EndFunc   ;==>_graeben_boardstein

Func _graeben_kantenstein()
	_ini_umwandeln()
	Dim $aProzent[6]
	
	$sIni_Kategorie = "Kantenstein"
	
	;Kantenstein Aufnehmen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kauf", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	
	;Kantenstein liefern
	If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
		$aProzent[1] = "" ;RSA
		$aProzent[2] = "" ;Bemerkung
		$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
		$aProzent[4] = "" ;Breite
		$aProzent[5] = "" ; Tiefe
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "klief", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	;Kantenstein eibauen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kein", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	

EndFunc   ;==>_graeben_kantenstein

Func _graeben_rinne()
	_ini_umwandeln()
	
	Dim $aProzent[6]
	$sIni_Kategorie = "Rinne"
	
	$anzahl_Rinnen = GUICtrlRead($tab1_txt_anz_einz)
	$sLeange = GUICtrlRead($tab1_txt_lm_bre)
	;Rinnen Aufnehmen 1-7
	Switch $anzahl_Rinnen
		Case "1"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf4", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf5", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf6", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch
	
	;Rinnen Liefer 1-7
	If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
		$sLeangel = GUICtrlRead($tab1_txt_lm_bre)
		Switch $anzahl_Rinnen
			Case "1"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "2"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "3"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "4"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief4", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "5"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief5", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "6"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief6", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "7"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeangel ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief7", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndSwitch
	EndIf

	;Rinnen Einbauen 1-7
	Switch $anzahl_Rinnen
		Case "1"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein4", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein5", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein6", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = $sLeange ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein6", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch

EndFunc   ;==>_graeben_rinne

Func _check_OOBbreite_graben()
;~ 	$aAngaben_graben[1][1] ;länge
;~ 	$aAngaben_graben[1][2] ;Breite
;~ 	$aAngaben_graben[1][3]  ; Tiefe
	Dim $aProzent[6]
	
	
	;;Gräben ohne Oberbau
	$sIni_Kategorie = "greaben_ohneOberbau"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe

;~ 	ConsoleWrite($sIniDateiPfad & $sIniDatei & @CRLF & @CRLF & $sIni_Kategorie)
;~ 	MsgBox(64, "", "asdfasdf")
	
	;Breite wiese von 0,3 bis 0,6 je 0,10cm
	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_OOBbreite_graben

Func _check_Arbeitsrauminstand_graben()
	Dim $aProzent[6]
	;Arbeitsraum instand setzen
	$sIni_Kategorie = "Instandsetzung"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = "" ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = ""

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ABRaumInstand", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_Arbeitsrauminstand_graben

Func _check_UBbreite_graben()
	;;Gräben in ungebunden  Oberbau
	Dim $aProzent[6]
	$sIni_Kategorie = "graeben_uB"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	
	;Breite Kies von 0,3 bis 0,6 je 0,10cm

	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_UBbreite_graben

Func _check_FGObreite_graben()
	;Gräben für den gebundenen Oberbau
	Dim $aProzent[6]
	
	$sIni_Kategorie = "graeben_fgO"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	
	
	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf

EndFunc   ;==>_check_FGObreite_graben

Func _check_winterbau_graben()
	;Zulage Winterbaustelle Gräben
	
	Dim $aProzent[6]
	
	$sIni_Kategorie = "Winterbaugraben"
	$sText_Bemerkung = "Oberfläche wird  im Frühjahr instandgesetzt"
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	
	If GUICtrlRead($tab1_chb_winterbau) = $GUI_CHECKED Then
		If $sBreite >= 0.30 And $sBreite < 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.40 And $sBreite < 0.50 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.50 And $sBreite < 0.60 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.60 And $sBreite < 0.70 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.70 And $sBreite < 0.80 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.80 And $sBreite < 0.90 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.90 And $sBreite < 1.00 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf

	EndIf
EndFunc   ;==>_check_winterbau_graben

Func _check_bodentausch_graben()
	If GUICtrlRead($tab1_chb_bodentausch) = $GUI_CHECKED Then
	Dim $aProzent[6]
	;Bodenaustausch f. Gräben
	$sIni_Kategorie = "BodentauschGraben"
	$sText_Bemerkung = "Aushub nicht verdichtungsfähig nach ZTV"
	
	$aProzent[1] = "" ; Abschnitt
	$aProzent[2] = $sText_Bemerkung ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe
	$sBreite = $aAngaben_graben[1][2]
	
	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	EndIf 
EndFunc   ;==>_check_bodentausch_graben

Func _check_asphaltstark_graben()
	Dim $aProzent[6]
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Asphaltstärke " & _replacePunkt2Koma($aAngaben_graben[1][5]) & " cm."
	
	$sBreite_temp = $aAngaben_graben[1][2] + 0.3
	$sBreite_test = _replacePunkt2Koma($sBreite_temp)
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = $sBreite_test ;Breite
	$aProzent[5] = "" ; Tiefe
	
	
	$sAsphaltstark = $aAngaben_graben[1][5]

	
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.41 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje60xx", "NA")
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_asphaltstark_graben

Func _check_zulage_asphaltbreite_graben()
	;Zulage Gräben Asphalt
	Dim $aProzent[6]
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2])
	
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = "" ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	$sBreite = $aAngaben_graben[1][2]
	
	
	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_zulage_asphaltbreite_graben

Func _check_bodenklasse7_graben()
	;Bodenkl. 7 oder Frost f. Gräben
	Dim $aProzent[6]
	$sIni_Kategorie = "GraebenBodenkl7"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	
	If GUICtrlRead($tab1_chb_fels) = $GUI_CHECKED Then
		;1xBodenklasse7 in m
		If $sBreite >= 0.30 And $sBreite < 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.40 And $sBreite < 0.50 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.50 And $sBreite < 0.60 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.60 And $sBreite < 0.70 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.70 And $sBreite < 0.80 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.80 And $sBreite < 0.90 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.90 And $sBreite < 1.00 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
	EndIf
EndFunc   ;==>_check_bodenklasse7_graben

Func _check_PflasterBreite_graben()
	;Zulage Pflaster
	Dim $aProzent[6]
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	

	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_PflasterBreite_graben

Func _check_Pflaster_beton_graben()
	Dim $aProzent[6]
	
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = "" ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	

	
	If GUICtrlRead($tab1_chb_inBeton) = $GUI_CHECKED Then
		;Zulage Zementmörtelbett m2
		$aProzent[5] = ""
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZZementm", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		
		;1xBodenklasse7 in m
		_check_bodenklasse7_graben()
		
		;Beton Liefern m3
		$aProzent[5] = "0,15"
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Beton15cmliefern", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_Pflaster_beton_graben

Func _check_PflasterGrbreite_graben()
	Dim $aProzent[6]
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	


	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_PflasterGrbreite_graben

Func _check_Mosaikbreite_graben()
	;Zulage Mosaik
	Dim $aProzent[6]
	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
	$sBreite = $aAngaben_graben[1][2]
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	

	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb030", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.40 And $sBreite < 0.50 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.50 And $sBreite < 0.60 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb050", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.60 And $sBreite < 0.70 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb060", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.70 And $sBreite < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb070", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.80 And $sBreite < 0.90 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb080", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sBreite >= 0.90 And $sBreite < 1.00 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb090", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_Mosaikbreite_graben

Func _check_stahlplatte_graben()
	Dim $aProzent[6]
	
	$sIni_Kategorie = "Sonstiges"
	$sText_Bemerkung = GUICtrlRead($tab1_txt_stahplatteBemerk)
	$sLeange = "2,5"
	$sBreite = "1,25"
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = "" ; Tiefe
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Stahlplatten", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_stahlplatte_graben

Func _check_trasseeinmessen_graben()
	Dim $aProzent[6]
	
	$sIni_Kategorie = "Sonstiges"
	$sText_Bemerkung = "Trasse einmessen"
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Einmesstrasse", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_trasseeinmessen_graben

Func _AnzahlCUKabelb300($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	Dim $aProzent[6]
	;Anzahl CU Kabel
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU1b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU2b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU3b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU4b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = ""
			$aProzent[2] = "5x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU5b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = ""
			$aProzent[2] = "6x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU6b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = ""
			$aProzent[2] = "7x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU7b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "8"
			$aProzent[1] = ""
			$aProzent[2] = "8x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU8b30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")

	EndSwitch

EndFunc   ;==>_AnzahlCUKabelb300

Func _AnzahlCUKabelu300($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	
	Dim $aProzent[6]
	

	
	;Anzahl CU Kabel
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU1u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x Kabel  auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU2u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x Kabel  auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU3u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU4u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = ""
			$aProzent[2] = "5x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU5u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = ""
			$aProzent[2] = "6x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU6u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = ""
			$aProzent[2] = "7x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU7u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "8"
			$aProzent[1] = ""
			$aProzent[2] = "8x Kabel auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU8u30", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 		Case Else
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
;~ 			_ArrayAdd($aArray, $sINI_String, 0, @CRLF)
;~ 			MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
	EndSwitch
EndFunc   ;==>_AnzahlCUKabelu300

Func _AnzahlDN50($anzahl, $sLeange)
	_ini_umwandeln()

	$sIni_Kategorie = "Medien"

	Dim $aProzent[6]
	
	;Anzahl DN50
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN501", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN502", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN503", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN504", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = ""
			$aProzent[2] = "5x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN505", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = ""
			$aProzent[2] = "6x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN506", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = ""
			$aProzent[2] = "7x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN507", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "8"
			$aProzent[1] = ""
			$aProzent[2] = "8x DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN508", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 		Case Else
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
;~ 			_ArrayAdd($aArray, $sINI_String, 0, @CRLF)
;~ 			MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
	EndSwitch
EndFunc   ;==>_AnzahlDN50

Func _Anzahl2DN50($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	

	Dim $aProzent[6]
	
	;Anzahl 2DN50
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN501", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN502", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN503", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN504", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = ""
			$aProzent[2] = "5x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN505", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = ""
			$aProzent[2] = "6x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN506", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = ""
			$aProzent[2] = "7x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN507", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "8"
			$aProzent[1] = ""
			$aProzent[2] = "8x 2Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN508", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 		Case Else
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
;~ 			_ArrayAdd($aArray, $sINI_String, 0, @CRLF)
;~ 			MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
	EndSwitch
EndFunc   ;==>_Anzahl2DN50

Func _Anzahl3DN50($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	
	Dim $aProzent[6]

	
	;Anzahl 2DN50
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN501", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN502", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN503", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN504", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = ""
			$aProzent[2] = "5x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN505", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = ""
			$aProzent[2] = "6x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN506", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = ""
			$aProzent[2] = "7x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN507", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "8"
			$aProzent[1] = ""
			$aProzent[2] = "8x 3Fach-DN50 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN508", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 		Case Else
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
;~ 			_ArrayAdd($aArray, $sINI_String, 0, @CRLF)
;~ 			MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
	EndSwitch
EndFunc   ;==>_Anzahl3DN50

Func _Anzahl7x12SNRVe($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	

	Dim $aProzent[6]
	
	;Anzahl 7x12
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x SNRVe7x12 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe7x12", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x SNRVe7x12 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe7x12", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x SNRVe7x12 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe7x12", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch
EndFunc   ;==>_Anzahl7x12SNRVe

Func _Anzahl22x7SNRVe($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	

	Dim $aProzent[6]
	
	;Anzahl 22x7
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x 22x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe22x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x 22x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe22x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x 22x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe22x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x 22x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4SNRVe22x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch

EndFunc   ;==>_Anzahl22x7SNRVe

Func _Anzahl8x7SNRVe($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"
	

	Dim $aProzent[6]
	
	;Anzahl 8x7
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x 8x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe8x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x 8x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe8x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x 8x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe8x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x 8x7SNRVe auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4SNRVe8x7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch

EndFunc   ;==>_Anzahl8x7SNRVe

Func _AnzahlDN110($anzahl, $sLeange)
	_ini_umwandeln()
	
	$sIni_Kategorie = "Medien"

	Dim $aProzent[6]
	
	;Anzahl DN110
	Switch $anzahl
		Case "1"
			$aProzent[1] = ""
			$aProzent[2] = "1x DN110 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1DN110", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = ""
			$aProzent[2] = "2x DN110 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN110", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = ""
			$aProzent[2] = "3x DN110 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN110", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = ""
			$aProzent[2] = "4x DN110 auslegen"
			$aProzent[3] = $sLeange
			$aProzent[4] = ""
			$aProzent[5] = ""
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4DN110", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch

EndFunc   ;==>_AnzahlDN110

#EndRegion Gräben