;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() ; erstmal entfernt nicht mehr regelkomform

	;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",

	dim $aAuswahl[15][2]
	$aAuswahl[0][0] = "4650005565"
	$aAuswahl[0][1] = "1"
	$aAuswahl[1][0] = "4650004935"
	$aAuswahl[1][1] = "1"
	$aAuswahl[2][0] = "4650000697"
	$aAuswahl[2][1] = "1"
	$aAuswahl[3][0] = "4650003822"
	$aAuswahl[3][1] = "1"
	$aAuswahl[4][0] = "4650007105"
	$aAuswahl[4][1] = "1"
	$aAuswahl[5][0] = "4650007106"
	$aAuswahl[5][1] = "1"
	$aAuswahl[6][0] = "4650007107"
	$aAuswahl[6][1] = "1"
	$aAuswahl[7][0] = "4650005993"
	$aAuswahl[7][1] = "1"
	$aAuswahl[8][0] = "4650002630"; Rahmenvertrag DBM
	$aAuswahl[8][1] = "1"
	$aAuswahl[9][0] = "LV-Sölden-PushPK"; Sölden Malush
	$aAuswahl[9][1] = "1"
	$aAuswahl[10][0] = "LV-PushPK-Isny"; Isny
	$aAuswahl[10][1] = "1"
	$aAuswahl[11][0] = "4650007697"; FTTC Spaichingen
	$aAuswahl[11][1] = "1"
	$aAuswahl[12][0] = "4650001474"
	$aAuswahl[12][1] = "2"
	$aAuswahl[13][0] = "4650003044"
	$aAuswahl[13][1] = "2"
	$aAuswahl[14][0] = "SW31-Probevertrag-Entstörung-Tiefbau"
	$aAuswahl[14][1] = "1"
	
;~ 	_DebugArrayDisplay($aAuswahl)
	$sVertragString = GUICtrlRead($chb_vertrag)
;~ 	MsgBox(64, "", $sVertragString)
	For $i =  0 to UBound($aAuswahl) -1
		If StringInStr($sVertragString,  $aAuswahl[$i][0]) Then 
			If $aAuswahl[$i][1] = "1" 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
			Else 
				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
		EndIf
	Next

	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

	If StringInStr($sVertragString, "Bischoff") 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_bis10liefern

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_13ueber10cm

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   ;==>_reststreifen_graben_13_v11b15

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   ;==>_reststreifen_graben_13_gr16

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   ;==>_Reststreifen_graben_18ueber10cm

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   ;==>_reststreifen_graben_18_v11b15

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   ;==>_reststreifen_graben_18_gr16

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_RestFugen")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_reststreifen_graben_Fugen

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_Reststrbis10")
	$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_ZAsphalt13je6016")
		$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_ZAsphalt13je6021")
		$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_ZAsphalt13je6028")
		$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_ZAsphalt13je6034")
		$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_ZAsphalt13je6040")
		$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_Reststrbisl10")
	$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_ZAsphalt18je6016")
		$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_ZAsphalt18je6021")
		$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_ZAsphalt18je6028")
		$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_ZAsphalt13je6034")
		$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_ZAsphalt18je6040")
		$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]) & " m"
	$sBreite = $aAngaben_graben[1][2]
	$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] = ""

	;mindertiefe Breite 0,15-30
	If $sBreite = 0.15 Then

		If $sTiefe > 0.45 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "m060", "NA_m060")
			$aProzent[2] = "max. 0,6m Tief"
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
	EndIf

	If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "070", "NA_070")
		$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_080")
		$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_090")
		$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_100")
		$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_110")
		$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_120")
		$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]
	$sBreite = $aAngaben_graben[1][2]

	$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

	;mindertiefe Breite 0,15-30
	If $sBreite >= 0.15 And $sBreite < 0.30 Then

		If $sTiefe >= 0.45 And $sTiefe < 0.60 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "mz030", "NA_mz030")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
	EndIf

	If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx070", "NA_xx070")
		$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, "xx080", "NA_xx080")
		$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, "xx090", "NA_xx090")
		$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, "xx100", "NA_xx100")
		$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, "xx110", "NA_xx110")
		$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, "xx120", "NA_xx120")
		$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_bauf")
	$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_blief")
		$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_bein")
	$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_kauf")
	$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_klief")
		$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_kein")
	$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_rauf")
			$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_rauf")
			$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_rauf")
			$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_rauf")
			$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_rauf")
			$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_rauf")
			$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_rauf")
			$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_rlief")
				$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_rlief")
				$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_rlief")
				$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_rlief4")
				$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_rlief5")
				$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_rlief6")
				$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_rlief7")
				$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_rein")
			$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_rein")
			$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_rein")
			$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_rein4")
			$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_rein5")
			$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_rein6")
			$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_rein6")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch

EndFunc   ;==>_graeben_rinne

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_ABRaumInstand")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_Arbeitsrauminstand_graben

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]
	$sTiefe = $aAngaben_graben[1][3]

	$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")


	;mindertiefe Breite 0,15-30 und Tiefe 0,30-0,45
	If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
		If $sBreite =  0.15 and $sTiefe = 0.30 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_30", "g_OO_1530", "NA_g_OO_1530")
			
			
			
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
		If $sBreite =  0.15 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_45", "g_OO_1545", "NA_g_OO_1545")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf 
		
	If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
		If $sBreite =  0.15 and $sTiefe = 0.30 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_30", "g_OO_1530", "NA_g_OO_1530")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
		If $sBreite =  0.15 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_45", "g_OO_1545", "NA_g_OO_1545")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf
	
	If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
		If $sBreite =  0.30 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_30_45", "g_OO_3045", "NA_g_OO_3045")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf 
		
	If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
		If $sBreite =  0.30 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_30_45", "g_OO_3045", "NA_g_OO_3045")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf
	
;~ 	If $sBreite >= 0.15 And $sBreite < 0.30 Then

;~ 		If GUICtrlRead($tab1_chb_mindert_hs) = $GUI_CHECKED Then
;~ 			If $sTiefe >= 0.30 And $sTiefe < 0.45 Then
;~ 				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bt015hs", "NA_bt015hs")
;~ 			Else
;~ 				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015hs", "NA_b015hs")
;~ 			EndIf

;~ 		Else
;~ 			If $sTiefe >= 0.30 And $sTiefe < 0.45 Then
;~ 				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bt3045", "NA_bt3045")
;~ 			Else
;~ 				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA_b015")
;~ 			EndIf

;~ 		EndIf


;~ 		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ 		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 	EndIf
;~ 	
	
	
	
	;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_b030")
		$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_b040")
		$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_b050")
		$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_b060")
		$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_b070")
		$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_b080")
		$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_b090")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_OOBbreite_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]
	$sTiefe = $aAngaben_graben[1][3]

	$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

	;mindertiefe Breite 0,15-30 und Tiefe 0,30-0,45
	If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
		If $sBreite =  0.15 and $sTiefe = 0.30 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_30", "g_UB_1530", "NA_g_UB_1530")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
		If $sBreite =  0.15 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_45", "g_UB_1545", "NA_g_UB_1545")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf 
		
	If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
		If $sBreite =  0.15 and $sTiefe = 0.30 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_30", "g_UB_1530", "NA_g_UB_1530")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
		If $sBreite =  0.15 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_45", "g_UB_1545", "NA_g_UB_1545")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf
	
	If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
		If $sBreite =  0.30 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_30_45", "g_UB_3045", "NA_g_UB_3045")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf 
		
	If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
		If $sBreite =  0.30 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_30_45", "g_UB_3045", "NA_g_UB_3045")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf

	;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_b030")
		$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_b040")
		$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_b050")
		$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_b060")
		$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_b070")
		$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_b080")
		$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_b090")
		$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]
	$sTiefe = $aAngaben_graben[1][3]

	$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

	;mindertiefe Breite 0,15-30 und Tiefe 0,30-0,45
	If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
		If $sBreite =  0.15 and $sTiefe = 0.30 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_30", "g_FG_1530", "NA_g_FG_1530")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
		If $sBreite =  0.15 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_45", "g_FG_1545", "NA_g_FG_1545")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf 
		
	If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
		If $sBreite =  0.15 and $sTiefe = 0.30 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_30", "g_FG_1530", "NA_g_FG_1530")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
		If $sBreite =  0.15 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_45", "g_FG_1545", "NA_g_FG_1545")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf
	
	If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
		If $sBreite =  0.30 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_30_45", "g_FG_3045", "NA_g_FG_3045")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf 
		
	If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
		If $sBreite =  0.30 and $sTiefe = 0.45 Then 
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_30_45", "g_FG_3045", "NA_g_FG_3045")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Return 
		EndIf
	EndIf
	

	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
		$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_b040")
		$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_b050")
		$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_b060")
		$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_b070")
		$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_b080")
		$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_b090")
		$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
		;mindertiefe Breite 0,15-30
		If $sBreite >= 0.15 And $sBreite < 0.30 Then

			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA_b015")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sBreite >= 0.30 And $sBreite < 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
			$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_b040")
			$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_b050")
			$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_b060")
			$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_b070")
			$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_b080")
			$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_b090")
			$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 GUICtrlRead($tab1_chb_bodentausch) = $GUI_CHECKED Then

		;mindertiefe Breite 0,15-30
		If $sBreite >= 0.15 And $sBreite < 0.30 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "m030", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf

		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]) & " m."

	$sBreite_temp = $aAngaben_graben[1][2] + 0.3
	$sBreite_test = _replacePunkt2Koma($sBreite_temp)
	$sBreite = $aAngaben_graben[1][2]

	$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]

	;mindertiefe Breite 0,15-30
	If $sBreite >= 0.15 And $sBreite < 0.30 Then

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje4", "NA_ZAsphaltje4")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")

		If $sAsphaltstark >= 0.13 And $sAsphaltstark <= 0.16 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje416", "NA_ZAsphaltje416")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.20 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje421", "NA_ZAsphaltje421")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.21 And $sAsphaltstark <= 0.24 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje428", "NA_ZAsphaltje428")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.25 And $sAsphaltstark <= 0.28 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje434", "NA_ZAsphaltje434")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.32 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje440", "NA_ZAsphaltje440")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		If $sAsphaltstark >= 0.33 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje60xxm", "NA_ZAsphaltje60xxm")
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
	EndIf

	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6016", "NA_ZAsphaltje6016")
		$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_ZAsphaltje6021")
		$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_ZAsphaltje6028")
		$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_ZAsphaltje6034")
		$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_ZAsphaltje6040")
		$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_ZAsphaltje60xx")
		_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]
	$sTiefe =  $aProzent[5]

;~ 	;mindertiefe Breite 0,15-30
;~ 	If $sBreite >= 0.15 And $sBreite <= 0.30 Then
;~ 		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb3045", "NA_ZAsphaltb3045")
;~ 			If $sTiefe >= 0.30 And $sTiefe < 0.45 Then
;~ 				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb3045", "NA_ZAsphaltb3045")
;~ 			EndIf

;~ 		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ 		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 	EndIf

	If $sBreite >= 0.30 And $sBreite < 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb030", "NA_ZAsphaltb030")
		$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_ZAsphaltb040")
		$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_ZAsphaltb050")
		$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_ZAsphaltb060")
		$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_ZAsphaltb070")
		$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_ZAsphaltb080")
		$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_ZAsphaltb090")
		$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

		;mindertiefe Breite 0,15-30
		If $sBreite >= 0.15 And $sBreite < 0.30 Then

			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA_b015")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndIf
		;1xBodenklasse7 in m
		If $sBreite >= 0.30 And $sBreite < 0.40 Then
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
			$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_b040")
			$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_b050")
			$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_b060")
			$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_b070")
			$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_b080")
			$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_b090")
			$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

	;mindertiefe Breite 0,15-30
	If $sBreite >= 0.15 And $sBreite < 0.30 Then

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb015", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf

	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


	;mindertiefe Breite 0,15-30
	If $sBreite >= 0.15 And $sBreite < 0.30 Then

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb015", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	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

	;mindertiefe Breite 0,15-30
	If $sBreite >= 0.15 And $sBreite < 0.30 Then

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb015", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	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
