;ahelber_gruben.au3
Global $aAngaben_gruben[2][10] = [["Abschnitt", "Länge", "Breite", "Tiefe", "Bemerkung", "Asphaltstärke", "AsphaltRestlänge", "AsphaltRestBreite", "Anzahl Einzeiler", "Einzeiler Meter"]]

Func _ReadInputs2Array_gruben()
	;Array Anganen
	$sAbschnitt = GUICtrlRead($tab2_txt_abschnitt)
	$sLeange = GUICtrlRead($tab2_txt_leange)
	$sBreite = GUICtrlRead($tab2_txt_breite)
	$sTiefe = GUICtrlRead($tab2_txt_tiefe)
	$sBemerkung = GUICtrlRead($tab2_txt_bemerkung)
	$sAsphaltstark = GUICtrlRead($tab2_txt_asphaltstark)
	$sAsphaltRestLang = GUICtrlRead($tab2_txt_rest_laenge)
	$sAsphaltRestBreit = GUICtrlRead($tab2_txt_rest_breite)
	$sAnzEinzeiler = GUICtrlRead($tab2_txt_anz_einz)
	$sEinzeilerMeter = GUICtrlRead($tab2_txt_lm_bre)

	$aAngaben_gruben[1][0] = $sAbschnitt ;abeschnitt
	$aAngaben_gruben[1][1] = _replaceKom2Punkt($sLeange) ;länge
	$aAngaben_gruben[1][2] = _replaceKom2Punkt($sBreite) ;Breite
	$aAngaben_gruben[1][3] = _replaceKom2Punkt($sTiefe) ; Tiefe
	$aAngaben_gruben[1][4] = $sBemerkung ;Bemerkung
	$aAngaben_gruben[1][5] = _replaceKom2Punkt($sAsphaltstark)
	$aAngaben_gruben[1][6] = _replaceKom2Punkt($sAsphaltRestLang)
	$aAngaben_gruben[1][7] = _replaceKom2Punkt($sAsphaltRestBreit)
	$aAngaben_gruben[1][8] = _replaceKom2Punkt($sAnzEinzeiler)
	$aAngaben_gruben[1][9] = _replaceKom2Punkt($sEinzeilerMeter)

EndFunc   ;==>_ReadInputs2Array_gruben

;Gruben
Func _felder_tab2_zurucksetzen()
	GUICtrlSetData($tab2_txt_abschnitt, "")
	GUICtrlSetData($tab2_txt_leange, "")
	GUICtrlSetData($tab2_txt_breite, "")
	GUICtrlSetData($tab2_txt_tiefe, "")
	GUICtrlSetData($tab2_txt_bemerkung, "")
	GUICtrlSetData($tab2_txt_rest_laenge, "")
	GUICtrlSetData($tab2_txt_rest_breite, "")
	GUICtrlSetData($tab2_txt_asphaltstark, "")
	GUICtrlSetData($tab2_txt_anz_einz, "")
	GUICtrlSetData($tab2_txt_lm_bre, "")
	GUICtrlSetData($tab2_txt_einmessengr, "")

	GUICtrlSetState($tab2_chb_winterbau, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_liefern, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_bord, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_kante, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_rinne, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_fels, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_einmessengr, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_wiese, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_kies, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_asphalt, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_pflaster, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_mosaik, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_inBeton, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_bodentausch, $GUI_UNCHECKED)
	GUICtrlSetState($tab2_chb_Rohrinstand, $GUI_UNCHECKED)
EndFunc   ;==>_felder_tab2_zurucksetzen

Func _add_Grube()
	Global $sIniDatei = GUICtrlRead($chb_vertrag)
	If GUICtrlRead($chb_vertrag) = "" Then
		MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
	Else
		_ini_umwandeln_pfad($sIniDateiPfad & $sIniDatei)
		_ReadInputs2Array_gruben()
		;Grube in der Wiese (UB)
		If GUICtrlRead($tab2_chb_wiese) = $GUI_CHECKED Then
			_gruben_wiese()
		EndIf
		;grube im Kies
		If GUICtrlRead($tab2_chb_kies) = $GUI_CHECKED Then
			_gruben_kies()
		EndIf
		;grube im Asphalt
		If GUICtrlRead($tab2_chb_asphalt) = $GUI_CHECKED Then
			_gruben_asphalt()
		EndIf
		;grube im Pflaster
		If GUICtrlRead($tab2_chb_pflaster) = $GUI_CHECKED Then
			_gruben_pflaster()
		EndIf
		;grube im Pflaster groß
;~ 		If GUICtrlRead($tab2_chb_pflaster) = $GUI_CHECKED Then
;~ 			$sAbschnitt = GUICtrlRead($tab2_txt_abschnitt)
;~ 			$sLeange = GUICtrlRead($tab2_txt_leange)
;~ 			$sBreite = GUICtrlRead($tab2_txt_breite)
;~ 			$sTiefe = GUICtrlRead($tab2_txt_tiefe)
;~ 			$aGrubePfalsterGr = _gruben_pflastergr($sAbschnitt, $sLeange, $sBreite, $sTiefe)
;~ 			_ArrayAdd($aAusabge, $aGrubePfalsterGr, 0, "|", @CRLF)
;~ 		_ArrayDisplay($aGrabenKies)
;~ 		MsgBox(64, "Fertig", "fertig")
;~ 	EndIf
		;grube im Mosaik
		If GUICtrlRead($tab2_chb_mosaik) = $GUI_CHECKED Then
			_gruben_mosaik()
		EndIf

		;Boardstein
		If GUICtrlRead($tab2_chb_bord) = $GUI_CHECKED Then
			_gruben_Bordstein()
		EndIf
		;Kantenstein
		If GUICtrlRead($tab2_chb_kante) = $GUI_CHECKED Then
			_gruben_kantenstein()
		EndIf
		;Rinne/Einzeiler
		If GUICtrlRead($tab2_chb_rinne) = $GUI_CHECKED Then
			_gruben_rinnen()

		EndIf

		If GUICtrlRead($tab2_chb_einmessengr) = $GUI_CHECKED Then
			_check_trasseeinmessen_grube()
		EndIf

		;reststreifen vorhanden? ganz am Ende
		If GUICtrlRead($tab2_txt_rest_laenge) <> "" And GUICtrlRead($tab2_txt_rest_breite) <> "" Then
			_reststreifen_grube()
		EndIf

		If GUICtrlRead($tab2_chb_kugelmarker) = $GUI_CHECKED Then
			_check_kugelmarker()
		EndIf

		If GUICtrlRead($tab2_chb_Rohrinstand) = $GUI_CHECKED Then
			_check_rohrinstand_grube()
		EndIf
		_ArrayDelete($aLVListe, 0)
		$iCount = -1
		_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)

		Global $aLVListe[1][13]
	EndIf
EndFunc   ;==>_add_Grube

#Region Gruben
Func _gruben_wiese()
	_ini_umwandeln()
	_check_OOBbreite_grube()
	_check_bodenklasse7_grube()
	_check_winterbau_grube()
;~ 	_check_Arbeitsrauminstand_grube() ; estmal entfernen nicht mehr nach ztv regelkonform
	_check_bodentausch_grube()
EndFunc   ;==>_gruben_wiese

Func _gruben_kies()
	_ini_umwandeln()
	_check_UBbreite_grube()
	_check_bodenklasse7_grube()
	_check_winterbau_grube()
	_check_bodentausch_grube()
EndFunc   ;==>_gruben_kies

Func _gruben_asphalt()
	_ini_umwandeln()
	_check_FGObreite_grube()
	_check_bodenklasse7_grube()
	_check_winterbau_grube()
	_check_apshalt_grube()
	_check_asphaltje6cm_grube()
	_check_bodentausch_grube()
EndFunc   ;==>_gruben_asphalt

Func _gruben_pflaster()
	_check_FGObreite_grube()
	_check_winterbau_grube()
	_check_pflaster_grube()
	_check_pflasterBeton_grube()
	_check_bodentausch_grube()

EndFunc   ;==>_gruben_pflaster

Func _gruben_mosaik()
	_ini_umwandeln()
	_check_FGObreite_grube()
	_check_winterbau_grube()
	_check_mosaik_grube()
	_check_moasikBeton_grube()
	_check_bodentausch_grube()
EndFunc   ;==>_gruben_mosaik

Func _gruben_Bordstein()
	_ini_umwandeln()

	Dim $aProzent[6]

	$sIni_Kategorie = "Boardstein"

	;Boardstein Aufnehmen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe

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

	;Boardstein liefern Anzahl steine in m
	If GUICtrlRead($tab2_chb_liefern) = $GUI_CHECKED Then
		$aProzent[1] = "" ;RSA
		$aProzent[2] = "" ;Bemerkung
		$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
		$aProzent[4] = "" ;Breite
		$aProzent[5] = "" ; Tiefe
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "blief", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	;Boardstein eibauen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bein", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_gruben_Bordstein

Func _gruben_kantenstein()
	_ini_umwandeln()
	Dim $aProzent[6]

	$sIni_Kategorie = "Kantenstein"

	;Kantenstein Aufnehmen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe

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

	;Kantenstein liefern
	If GUICtrlRead($tab2_chb_liefern) = $GUI_CHECKED Then
		$aProzent[1] = "" ;RSA
		$aProzent[2] = "" ;Bemerkung
		$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
		$aProzent[4] = "" ;Breite
		$aProzent[5] = "" ; Tiefe
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "klief", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	;Kantenstein eibauen
	$aProzent[1] = "" ;RSA
	$aProzent[2] = "" ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = "" ;Breite
	$aProzent[5] = "" ; Tiefe
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kein", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")


EndFunc   ;==>_gruben_kantenstein

Func _gruben_rinnen()
	_ini_umwandeln()

	Dim $aProzent[6]
	$sIni_Kategorie = "Rinne"

	$anzahl_Rinnen = GUICtrlRead($tab2_txt_anz_einz)
	$sLeangel = GUICtrlRead($tab2_txt_lm_bre)
	;Rinnen Aufnehmen 1-7
	Switch $anzahl_Rinnen
		Case "1"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "2"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "3"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "4"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf4", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "5"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf5", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "6"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf6", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		Case "7"
			$aProzent[1] = "" ;RSA
			$aProzent[2] = "" ;Bemerkung
			$aProzent[3] = GUICtrlRead($tab2_txt_lm_bre) ;länge
			$aProzent[4] = "" ;Breite
			$aProzent[5] = "" ; Tiefe
			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf7", "NA")
			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndSwitch

	;Rinnen Liefer 1-7
	If GUICtrlRead($tab2_chb_liefern) = $GUI_CHECKED Then
		$sLeange = GUICtrlRead($tab2_txt_lm_bre)
		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, "rlief", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "2"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeange ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "3"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeange ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "4"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeange ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief4", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "5"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeange ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief5", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "6"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeange ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief6", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
			Case "7"
				$aProzent[1] = "" ;RSA
				$aProzent[2] = "" ;Bemerkung
				$aProzent[3] = $sLeange ;länge
				$aProzent[4] = "" ;Breite
				$aProzent[5] = "" ; Tiefe
				$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief7", "NA")
				$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
				_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		EndSwitch
	EndIf

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

Func _check_OOBbreite_grube()
	Dim $aProzent[6]
	;;Gruben ohne Oberbau
	$sIni_Kategorie = "gruben_ohneOberbau"
	$sText_Bemerkung = "Grubenmaß: " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][3])
	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]
	$sTiefe = $aAngaben_gruben[1][3]

	$aProzent[1] = $aAngaben_gruben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe



	; Grube in der Wiese
	$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)
	$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
	$aProzent[2] = "Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
	$aProzent[3] = $sLeange ;Länge
	$aProzent[4] = $sBreite ;Breite
	$aProzent[5] = $sTiefe ;Tiefe

	If GUICtrlRead($chb_gr_gfm) = $GUI_CHECKED Then
		$iFaktor = "1,5"
		$sLeange = "1,8"
		$sBreite = "1,3"
		$sTiefe = "0,9"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "GF-Muffe Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf
	If GUICtrlRead($chb_gr_mfg12) = $GUI_CHECKED Then
		$iFaktor = "1,3"
		$sLeange = "1,9"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 12 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf
	If GUICtrlRead($chb_gr_mfg15) = $GUI_CHECKED Then
		$iFaktor = "1,4"
		$sLeange = "2,1"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 15 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf 
	If GUICtrlRead($chb_gr_mfg18) = $GUI_CHECKED Then
		$iFaktor = "1,5"
		$sLeange = "2,4"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 18 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf 
	

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "g1", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_OOBbreite_grube

Func _check_UBbreite_grube()
	Dim $aProzent[6]
	;;Grube UB
	$sIni_Kategorie = "gruben_uB"
	$sText_Bemerkung = "Grubenmaß: " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][3])
	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]
	$sTiefe = $aAngaben_gruben[1][3]

	$aProzent[1] = $aAngaben_gruben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe


	; Grube Kies
	$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)
	$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
	$aProzent[2] = "Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
	$aProzent[3] = $sLeange ;Länge
	$aProzent[4] = $sBreite ;Breite
	$aProzent[5] = $sTiefe ;Tiefe
	
	If GUICtrlRead($chb_gr_gfm) = $GUI_CHECKED Then
		$iFaktor = "1,5"
		$sLeange = "1,8"
		$sBreite = "1,3"
		$sTiefe = "0,9"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "GF-Muffe Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf
	If GUICtrlRead($chb_gr_mfg12) = $GUI_CHECKED Then
		$iFaktor = "1,3"
		$sLeange = "1,9"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 12 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf
	If GUICtrlRead($chb_gr_mfg15) = $GUI_CHECKED Then
		$iFaktor = "1,4"
		$sLeange = "2,1"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 15 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf 
	If GUICtrlRead($chb_gr_mfg18) = $GUI_CHECKED Then
		$iFaktor = "1,5"
		$sLeange = "2,4"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 18 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf 

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "g1", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_UBbreite_grube

Func _check_FGObreite_grube()
	Dim $aProzent[6]
	;;Grube für Gebundenen Oberbau
	$sIni_Kategorie = "gruben_fgO"
	$sText_Bemerkung = "Grubenmaß: " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][3])
	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]
	$sTiefe = $aAngaben_gruben[1][3]

	$aProzent[1] = $aAngaben_gruben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe


	; Grube für den Bebundenen Oberbau
	$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)
	$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
	$aProzent[2] = "Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
	$aProzent[3] = $sLeange ;Länge
	$aProzent[4] = $sBreite ;Breite
	$aProzent[5] = $sTiefe ;Tiefe
	
	If GUICtrlRead($chb_gr_gfm) = $GUI_CHECKED Then
		$iFaktor = "1,5"
		$sLeange = "1,8"
		$sBreite = "1,3"
		$sTiefe = "0,9"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "GF-Muffe Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf
	If GUICtrlRead($chb_gr_mfg12) = $GUI_CHECKED Then
		$iFaktor = "1,3"
		$sLeange = "1,9"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 12 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf
	If GUICtrlRead($chb_gr_mfg15) = $GUI_CHECKED Then
		$iFaktor = "1,4"
		$sLeange = "2,1"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 15 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf 
	If GUICtrlRead($chb_gr_mfg18) = $GUI_CHECKED Then
		$iFaktor = "1,5"
		$sLeange = "2,4"
		$sBreite = "1,0"
		$sTiefe = "0,7"
		$aProzent[1] = $aAngaben_gruben[1][0] ;RSA
		$aProzent[2] = "MFG 18 Grubenmaß: " & $sLeange & " x " & $sBreite & " x " & $sTiefe ;Bemerkung
		$aProzent[3] = $sLeange ;Länge
		$aProzent[4] = $sBreite ;Breite
		$aProzent[5] = $sTiefe ;Tiefe
	EndIf 

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "g1", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FGObreite_grube

Func _check_bodenklasse7_grube()
	Dim $aProzent[6]
	If GUICtrlRead($tab2_chb_fels) = $GUI_CHECKED Then
		;Bodenkl. 7 oder Frost f. Gräben
		Dim $aProzent[6]
		$sIni_Kategorie = "Grubenbodenkl7"
		$sText_Bemerkung = ""
		$sBreite = $aAngaben_gruben[1][2]

		$aProzent[1] = "" ;Abschnitt
		$aProzent[2] = $sText_Bemerkung ; Bemerkung
		$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
		$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
		$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe

		$iFaktor = _grubenfaktorrechner($aAngaben_gruben[1][1], $aAngaben_gruben[1][2])
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "g1", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_bodenklasse7_grube

Func _check_winterbau_grube()
	Dim $aProzent[6]
	If GUICtrlRead($tab2_chb_winterbau) = $GUI_CHECKED Then
		$sIni_Kategorie = "Winterbaugrube"
		$sText_Bemerkung = "Oberfläche wird  im Frühjahr instandgesetzt"
		$sBreite = $aAngaben_gruben[1][2]
		$sLeange = $aAngaben_gruben[1][1]

		$aProzent[1] = "" ;Abschnitt
		$aProzent[2] = $sText_Bemerkung ; Bemerkung
		$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
		$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
		$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe
		$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "g1", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_winterbau_grube

Func _check_Arbeitsrauminstand_grube()
	Dim $aProzent[6]
	;Arbeitsraum instand setzen
	$sIni_Kategorie = "Instandsetzung"
	$sText_Bemerkung = "Grubenprofil " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][3])

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = "" ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = ""

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

Func _check_bodentausch_grube()
	If GUICtrlRead($tab2_chb_bodentausch) = $GUI_CHECKED Then
		Dim $aProzent[6]

		$sIni_Kategorie = "BodentauschGrube"
		$sText_Bemerkung = "Ausgebautes Material ist nach ZTV nicht zu verdichten"
		$sBreite = $aAngaben_gruben[1][2]
		$sLeange = $aAngaben_gruben[1][1]

		$aProzent[1] = "" ;Abschnitt
		$aProzent[2] = $sText_Bemerkung ; Bemerkung
		$aProzent[3] = "" ; Länge
		$aProzent[4] = "" ; Breite
		$aProzent[5] = "" ; Tiefe
		$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)

		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "g1", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_bodentausch_grube

Func _check_apshalt_grube()
	Dim $aProzent[6]

	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = "" ;Bemerkung
	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]
	$sTiefe = $aAngaben_gruben[1][3]

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = "Grubenmaß: " & $sLeange & " x " & $sBreite ;Bemerkung; Bemerkung
	$aProzent[3] = "" ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe
	$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltg1", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_apshalt_grube

Func _check_asphaltje6cm_grube()
	Dim $aProzent[6]
	;Zulage je 6cm ;+ b+10 +l+20
	;Switch $sAsphaltstark

	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = ""
	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]

	$sAsphaltst = GUICtrlRead($tab2_txt_asphaltstark)
	$sAsphaltstark = _replaceKom2Punkt($sAsphaltst)
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$aProzent[1] = ""
		$aProzent[2] = "Asphaltstärke nach RSTO mind. 0,12 m"
		$aProzent[3] = $sLeange
		$aProzent[4] = $sBreite
		$aProzent[5] = ""
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$aProzent[1] = ""
		$aProzent[2] = "Asphaltstärke " & $sAsphaltst & " cm."
		$aProzent[3] = $sLeange
		$aProzent[4] = $sBreite
		$aProzent[5] = ""
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$aProzent[1] = ""
		$aProzent[2] = "Asphaltstärke " & $sAsphaltst & " cm."
		$aProzent[3] = $sLeange
		$aProzent[4] = $sBreite
		$aProzent[5] = ""
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$aProzent[1] = ""
		$aProzent[2] = "Asphaltstärke " & $sAsphaltst & " cm."
		$aProzent[3] = $sLeange
		$aProzent[4] = $sBreite
		$aProzent[5] = ""
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$aProzent[1] = ""
		$aProzent[2] = "Asphaltstärke " & $sAsphaltst & " cm."
		$aProzent[3] = $sLeange
		$aProzent[4] = $sBreite
		$aProzent[5] = ""
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.41 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje60xx", "NA")
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_asphaltje6cm_grube

Func _check_pflaster_grube()
	Dim $aProzent[6]

	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = "Grubenmaß " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2])
	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe
	$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterg1", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_pflaster_grube

Func _check_mosaik_grube()
	Dim $aProzent[6]
	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = "Grubenmaß " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2])

	$sBreite = $aAngaben_gruben[1][2]
	$sLeange = $aAngaben_gruben[1][1]

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe
	$iFaktor = _grubenfaktorrechner($sLeange, $sBreite)

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZMosaikg1", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iFaktor)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_mosaik_grube

Func _check_moasikBeton_grube()
	Dim $aProzent[6]

	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = "Grabenmaß " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][3])
	$sBreite = $aAngaben_gruben[1][2]

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe



	If GUICtrlRead($tab2_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_grube()

		;Beton Liefern m3
		$aProzent[5] = "0,20"
		$aProzent[2] = "Mosaik in Beton"
		$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_moasikBeton_grube

Func _check_pflasterBeton_grube()
	Dim $aProzent[6]

	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = "Grabenmaß " & _replacePunkt2Koma($aAngaben_gruben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_gruben[1][3])
	$sBreite = $aAngaben_gruben[1][2]

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][2]) ; Breite
	$aProzent[5] = _replacePunkt2Koma($aAngaben_gruben[1][3]) ; Tiefe



	If GUICtrlRead($tab2_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_grube()

		;Beton Liefern m3
		$aProzent[5] = "0,20"
		$aProzent[2] = "Pflaster in Beton"
		$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_pflasterBeton_grube

Func _check_asphaltstark_gruben()
	Dim $aProzent[6]
	$sIni_Kategorie = "grubenOberfleachen"
	$sText_Bemerkung = "Asphaltstärke " & _replacePunkt2Koma($aAngaben_gruben[1][5]) & " cm."

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

	$aProzent[1] = $aAngaben_gruben[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ;Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][1]) ; Länge
	$aProzent[4] = $sBreite_test ;Breite
	$aProzent[5] = "" ; Tiefe

	$sAsphaltstark = $aAngaben_gruben[1][5]

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

Func _check_trasseeinmessen_grube()
	Dim $aProzent[6]

	$sIni_Kategorie = "Sonstiges"
	$sText_Bemerkung = GUICtrlRead($tab2_txt_einmessengr)

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

Func _check_rohrinstand_grube()
	Dim $aProzent[6]

	$sIni_Kategorie = "Sonstiges"
	$sText_Bemerkung = ""

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = "" ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Rohrinstand", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_rohrinstand_grube

Func _reststreifen_grube()
	Dim $aProzent[6]
	_ini_umwandeln()

	$sIni_Kategorie = "graebenOberflaeche"
	$sText_Bemerkung = "Restreifenausbau mit BVT & Gemeinde abgesprochen"
	$sBreite = $aAngaben_gruben[1][7]
	$sLeange = $aAngaben_gruben[1][6]


	_check_apshalt_grube()

;~ 	;Reststreifen Asphalt aufbrechen
	$aProzent[1] = $aAngaben_graben[1][0]
	$aProzent[2] = $sText_Bemerkung
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][6]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][7]) ; Breite
	$aProzent[5] = ""


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

	;Asphaltstäkre über 10 cm aufbrechen
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][6]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][7]) ; Breite
	$aProzent[5] = ""

	$sAsphaltstark = $aAngaben_gruben[1][5]

	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf


	;Assphaltliefer bis 10,cm liefern/einbauen
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($aAngaben_gruben[1][6]) ; Länge
	$aProzent[4] = _replacePunkt2Koma($aAngaben_gruben[1][7]) ; Breite
	$aProzent[5] = ""

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

	;Asphaltstäkre über 10 cm einbauen
	If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf

	; Fugen schnitte
	$s1 = _replaceKom2Punkt($sBreite)
	$s2 = _replaceKom2Punkt($sBreite)
	$s3 = _replaceKom2Punkt($sLeange)
	$sFugenleange = $s1 + $s2 + $s3
	$aProzent[1] = ""
	$aProzent[2] = ""
	$aProzent[3] = _replacePunkt2Koma($sFugenleange)
	$aProzent[4] = ""
	$aProzent[5] = ""
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "RestFugen", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_reststreifen_grube

Func _grubenfaktorrechner($sLeange, $sBreite)
	$iNormgrube = 1.2
	$iSchrittgr = 0.25
	$iFaktor = 1.0

	$iLeange = _replaceKom2Punkt($sLeange)
	$iBreite = _replaceKom2Punkt($sBreite)
	
	$iArea =  $iLeange * $iBreite
	
	 If $iArea > 1.2 Then
        $iFaktor += Int((($iArea - 1.2) / 0.25) + 1) * 0.1
    EndIf

;~ 	;alt $iFaktor = ((($iLeange * $iBreite) - $iNormgrube) / $iSchrittgr) * $iFaktor + 1
	$iFakotrround = _replacePunkt2Koma($iFaktor)
;~ 	$wert = Round(Number(StringReplace($iFakotrround, ",", ".")), 1)
	Return _replacePunkt2Koma($iFakotrround)
EndFunc   ;==>_grubenfaktorrechner

Func _check_kugelmarker()
	Dim $aProzent[6]

	$sIni_Kategorie = "Sonstiges"
	$sText_Bemerkung = ""

	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = "" ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe

	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Kugelmarker", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_kugelmarker

#EndRegion Gruben
