1095 lines
41 KiB
AutoIt
1095 lines
41 KiB
AutoIt
;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] = "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 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
|
|
|
|
$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 UB
|
|
$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 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
|
|
|
|
$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 = 0.1
|
|
|
|
$iLeange = _replaceKom2Punkt($sLeange)
|
|
$iBreite = _replaceKom2Punkt($sBreite)
|
|
|
|
$iFaktor = ((($iLeange * $iBreite) - $iNormgrube) / $iSchrittgr) * $iFaktor + 1
|
|
$iFakotrround = _replacePunkt2Koma($iFaktor)
|
|
$wert = Round(Number(StringReplace($iFakotrround, ",", ".")), 1)
|
|
Return _replacePunkt2Koma($wert)
|
|
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 |