2675 lines
99 KiB
AutoIt
2675 lines
99 KiB
AutoIt
;ahelper_grube.au3
|
|
|
|
Global $aAngaben_graben[2][10] = [["Abschnitt", "Länge", "Breite", "Tiefe", "Bemerkung", "Asphaltstärke", "AsphaltRestlänge", "AsphaltRestBreite", "Anzahl Einzeiler", "Einzeiler Meter"]]
|
|
|
|
|
|
Func _ReadInputs2Array_graben()
|
|
;Array Anganen
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeange = GUICtrlRead($tab1_txt_leange)
|
|
$sBreite = GUICtrlRead($tab1_txt_breite)
|
|
$sTiefe = GUICtrlRead($tab1_txt_tiefe)
|
|
$sBemerkung = GUICtrlRead($tab1_txt_bemerkung)
|
|
$sAsphaltstark = GUICtrlRead($tab1_txt_asphaltstark)
|
|
$sAsphaltRestLang = GUICtrlRead($tab1_txt_rest_laenge)
|
|
$sAsphaltRestBreit = GUICtrlRead($tab1_txt_rest_breite)
|
|
$sAnzEinzeiler = GUICtrlRead($tab1_txt_anz_einz)
|
|
$sEinzeilerMeter = GUICtrlRead($tab1_txt_lm_bre)
|
|
|
|
$aAngaben_graben[1][0] = $sAbschnitt ;abeschnitt
|
|
$aAngaben_graben[1][1] = _replaceKom2Punkt($sLeange) ;länge
|
|
$aAngaben_graben[1][2] = _replaceKom2Punkt($sBreite) ;Breite
|
|
$aAngaben_graben[1][3] = _replaceKom2Punkt($sTiefe) ; Tiefe
|
|
$aAngaben_graben[1][4] = $sBemerkung ;Bemerkung
|
|
$aAngaben_graben[1][5] = _replaceKom2Punkt($sAsphaltstark)
|
|
$aAngaben_graben[1][6] = _replaceKom2Punkt($sAsphaltRestLang)
|
|
$aAngaben_graben[1][7] = _replaceKom2Punkt($sAsphaltRestBreit)
|
|
$aAngaben_graben[1][8] = _replaceKom2Punkt($sAnzEinzeiler)
|
|
$aAngaben_graben[1][9] = _replaceKom2Punkt($sEinzeilerMeter)
|
|
|
|
;~ _ArrayDisplay($aAngaben_graben)
|
|
|
|
;Array Oberflächen
|
|
;~ If GUICtrlRead($tab1_chb_wiese) = $GUI_CHECKED Then
|
|
;~
|
|
;~ EndIf
|
|
;Array Medien
|
|
EndFunc ;==>_ReadInputs2Array_graben
|
|
|
|
|
|
|
|
Func _add_Graben()
|
|
Global $sIniDatei = GUICtrlRead($chb_vertrag)
|
|
If GUICtrlRead($chb_vertrag) = "" Then
|
|
MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
|
|
Else
|
|
|
|
;Graben Wiese
|
|
_ini_umwandeln_pfad($sIniDateiPfad & $sIniDatei)
|
|
_ReadInputs2Array_graben()
|
|
|
|
If GUICtrlRead($tab1_chb_wiese) = $GUI_CHECKED Then
|
|
|
|
_graben_wiese()
|
|
|
|
EndIf
|
|
;Graben Kies
|
|
If GUICtrlRead($tab1_chb_kies) = $GUI_CHECKED Then
|
|
|
|
_graben_kies()
|
|
EndIf
|
|
;Graben Asphalt
|
|
If GUICtrlRead($tab1_chb_asphalt) = $GUI_CHECKED Then
|
|
_graben_asphalt()
|
|
|
|
EndIf
|
|
;Graben Pflaster normal
|
|
If GUICtrlRead($tab1_chb_pflaster) = $GUI_CHECKED Then
|
|
_graben_pflaster()
|
|
EndIf
|
|
;Graben Pflaster Groß
|
|
;If GUICtrlRead($tab1_chb_pflaster_gr) = $GUI_CHECKED Then
|
|
;$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
;$sLeange = GUICtrlRead($tab1_txt_leange)
|
|
;$sBreite = GUICtrlRead($tab1_txt_breite)
|
|
;$sTiefe = GUICtrlRead($tab1_txt_tiefe)
|
|
;$aGrabenPflastergr = _graben_pflaster_gr($sAbschnitt, $sLeange, $sBreite, $sTiefe)
|
|
;_ArrayAdd($aAusabge, $aGrabenPflastergr, 0, "|", @CRLF)
|
|
;~ _ArrayDisplay($aGrabenPflastergr)
|
|
;~ MsgBox(64, "Fertig", "fertig")
|
|
;EndIf
|
|
;Graben Mosaik
|
|
If GUICtrlRead($tab1_chb_mosaik) = $GUI_CHECKED Then
|
|
|
|
_graben_Mosaik()
|
|
|
|
EndIf
|
|
;Medien
|
|
;CU-Kabel bis 100 DA
|
|
If GUICtrlRead($tab1_chb_cu_kabel) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanzcu = GUICtrlRead($tab1_txt_anz_cu_kabel)
|
|
_AnzahlCUKabelb300($sanzcu, $sLeangeM)
|
|
EndIf
|
|
;CU-Kabel über 100 DA
|
|
If GUICtrlRead($tab1_chb_anz_g_100CU) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanzcu = GUICtrlRead($tab1_txt_anz_cu_kabel)
|
|
_AnzahlCUKabelu300($sanzcu, $sLeangeM)
|
|
|
|
EndIf
|
|
;1FachDN50 Anzahl
|
|
If GUICtrlRead($tab1_chb_dn50) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanzDN50 = GUICtrlRead($tab1_txt_anz_dn50)
|
|
_AnzahlDN50($sanzDN50, $sLeangeM)
|
|
|
|
EndIf
|
|
;2FachDN50 Anzahl
|
|
If GUICtrlRead($tab1_chb_2xdn50) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanzDN50 = GUICtrlRead($tab1_txt_anz_2xdn50)
|
|
_Anzahl2DN50($sanzDN50, $sLeangeM)
|
|
|
|
EndIf
|
|
;3FachDN50 Anzahl
|
|
If GUICtrlRead($tab1_chb_3xdn50) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanzDN50 = GUICtrlRead($tab1_txt_anz_3xdn50)
|
|
_Anzahl3DN50($sanzDN50, $sLeangeM)
|
|
|
|
EndIf
|
|
;7x12 Anzahl
|
|
If GUICtrlRead($tab1_chb_snrve7x12) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanz7x12 = GUICtrlRead($tab1_txt_anz_snrve712)
|
|
_Anzahl7x12SNRVe($sanz7x12, $sLeangeM)
|
|
|
|
EndIf
|
|
;22x7 Anzahl
|
|
If GUICtrlRead($tab1_chb_snrve22x7) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanz22x7 = GUICtrlRead($tab1_txt_anz_snrve22x7)
|
|
_Anzahl22x7SNRVe($sanz22x7, $sLeangeM)
|
|
|
|
EndIf
|
|
;8x7 Anzahl
|
|
If GUICtrlRead($tab1_chb_snrve8x7) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanz8x7 = GUICtrlRead($tab1_txt_anz_snrve_8x7)
|
|
_Anzahl8x7SNRVe($sanz8x7, $sLeangeM)
|
|
|
|
EndIf
|
|
;Anzahl DN110
|
|
If GUICtrlRead($tab1_chb_dn110) = $GUI_CHECKED Then
|
|
$sAbschnitt = GUICtrlRead($tab1_txt_abschnitt)
|
|
$sLeangeM = GUICtrlRead($tab1_txt_leange)
|
|
$sanzDN110 = GUICtrlRead($tab1_txt_anz_dn110)
|
|
_AnzahlDN110($sanzDN110, $sLeangeM)
|
|
|
|
EndIf
|
|
;Boardstein
|
|
If GUICtrlRead($tab1_chb_bord) = $GUI_CHECKED Then
|
|
_graeben_boardstein()
|
|
EndIf
|
|
;Kantenstein
|
|
If GUICtrlRead($tab1_chb_kante) = $GUI_CHECKED Then
|
|
_graeben_kantenstein()
|
|
EndIf
|
|
;Rinne/Einzeiler
|
|
If GUICtrlRead($tab1_chb_rinne) = $GUI_CHECKED Then
|
|
_graeben_rinne()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab1_chb_trasseeinmessen) = $GUI_CHECKED Then
|
|
_check_trasseeinmessen_graben()
|
|
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab1_chb_stahplatte) = $GUI_CHECKED Then
|
|
_check_stahlplatte_graben()
|
|
EndIf
|
|
|
|
|
|
;reststreifen vorhanden? ganz am Ende
|
|
If GUICtrlRead($tab1_txt_rest_laenge) <> "" And GUICtrlRead($tab1_txt_rest_breite) <> "" Then
|
|
;~ _Reststreifen_graben()
|
|
_Reststreifen_graben_new()
|
|
EndIf
|
|
|
|
|
|
|
|
;~ _ArrayDisplay($aLVListe)
|
|
_ArrayDelete($aLVListe, 0)
|
|
$iCount = -1
|
|
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
|
|
|
Global $aLVListe[1][13]
|
|
;~ _ArrayAdd($aLVListe,"RSA-Abschnitt"&"|"&"PositionNr"&"|"&"Faktor"&"|"&"Länge"&"|"&"Breite"&"|"&"Tiefe"&"|"&"Menge"&"|"&"ME"&"|"&"Leistungskurztext"&"|"&"Bemerkung"&"|"&"Menge"&"|"&"E-Preis"&"|"&"Summe", 0)
|
|
EndIf
|
|
EndFunc ;==>_add_Graben
|
|
|
|
Func _felder_tab1_zurucksetzen()
|
|
GUICtrlSetData($tab1_txt_abschnitt, "")
|
|
GUICtrlSetData($tab1_txt_leange, "")
|
|
GUICtrlSetData($tab1_txt_breite, "")
|
|
GUICtrlSetData($tab1_txt_tiefe, "")
|
|
GUICtrlSetData($tab1_txt_bemerkung, "")
|
|
GUICtrlSetData($tab1_txt_rest_laenge, "")
|
|
GUICtrlSetData($tab1_txt_rest_breite, "")
|
|
GUICtrlSetData($tab1_txt_asphaltstark, "")
|
|
GUICtrlSetData($tab1_txt_anz_einz, "")
|
|
GUICtrlSetData($tab1_txt_lm_bre, "")
|
|
GUICtrlSetData($tab1_txt_anz_cu_kabel, "")
|
|
GUICtrlSetData($tab1_txt_anz_dn50, "")
|
|
GUICtrlSetData($tab1_txt_anz_snrve712, "")
|
|
GUICtrlSetData($tab1_txt_anz_dn110, "")
|
|
GUICtrlSetData($tab1_txt_anz_snrve22x7, "")
|
|
GUICtrlSetData($tab1_txt_anz_snrve_8x7, "")
|
|
GUICtrlSetData($tab1_txt_anz_2xdn50, "")
|
|
GUICtrlSetData($tab1_txt_anz_3xdn50, "")
|
|
GUICtrlSetData($tab1_txt_stahplatteBemerk, "")
|
|
|
|
GUICtrlSetState($tab1_chb_wiese, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_kies, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_asphalt, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_pflaster, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_mosaik, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_inBeton, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_winterbau, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_liefern, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_bord, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_kante, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_rinne, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_fels, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_cu_kabel, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_anz_g_100CU, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_dn50, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_snrve7x12, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_dn110, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_snrve22x7, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_snrve8x7, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_2xdn50, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_3xdn50, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_trasseeinmessen, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_stahplatte, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab1_chb_bodentausch, $GUI_UNCHECKED)
|
|
EndFunc ;==>_felder_tab1_zurucksetzen
|
|
|
|
|
|
#Region Gräben
|
|
Func _graben_wiese()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben ohne Oberbau
|
|
_check_OOBbreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
;~ ;Arbeitsraum instandsetzten
|
|
_check_Arbeitsrauminstand_graben()
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_wiese
|
|
|
|
Func _graben_kies()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben in ungebunden Oberbau
|
|
_check_UBbreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
|
|
|
|
|
|
|
|
EndFunc ;==>_graben_kies
|
|
|
|
Func _graben_asphalt()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben für den gebundenen Oberbau
|
|
_check_FGObreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;Zulage Asphalt Breite von 0,3 bis 0,6
|
|
_check_zulage_asphaltbreite_graben()
|
|
|
|
;Switch $sAsphaltstark
|
|
_check_asphaltstark_graben()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_asphalt
|
|
|
|
Func _graben_pflaster()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben für den gebundenen Oberbau
|
|
_check_FGObreite_graben()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;Zulage Pflaster
|
|
_check_PflasterBreite_graben()
|
|
|
|
|
|
;Zulage Beton zementmörtelbett
|
|
_check_Pflaster_beton_graben()
|
|
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_pflaster
|
|
|
|
Func _graben_pflaster_gr()
|
|
_ini_umwandeln()
|
|
|
|
_check_FGObreite_graben()
|
|
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
_check_PflasterGrbreite_graben()
|
|
|
|
_check_Pflaster_beton_graben()
|
|
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_pflaster_gr
|
|
|
|
Func _graben_Mosaik()
|
|
_ini_umwandeln()
|
|
|
|
_check_FGObreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
_check_Mosaikbreite_graben()
|
|
|
|
_check_Pflaster_beton_graben()
|
|
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_Mosaik
|
|
|
|
Func _Reststreifen_graben_new()
|
|
$sAbschitt = $aAngaben_graben[1][0]
|
|
$sBreite = $aAngaben_graben[1][7]
|
|
$sLeange = $aAngaben_graben[1][6]
|
|
$sAsphaltstark = $aAngaben_graben[1][5]
|
|
|
|
;~ [["Abschnitt", "Länge", "Breite", "Tiefe", "Bemerkung", "Asphaltstärke", "AsphaltRestlänge", "AsphaltRestBreite",
|
|
$sVertragString = GUICtrlRead($chb_vertrag)
|
|
If StringInStr($sVertragString, "4650000697") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650001474") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen von 11 - 15 cm 13 Pos
|
|
_reststreifen_graben_13_v11b15($sLeange, $sBreite)
|
|
;Reststreifen über 16cm 13 Pos
|
|
_reststreifen_graben_13_gr16($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
; Reststreifen von 11 - 15 cm 18 Pos
|
|
_reststreifen_graben_18_v11b15($sLeange, $sBreite)
|
|
;Reststreifen über 16cm 18 Pos
|
|
_reststreifen_graben_18_gr16($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650003044") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen von 11 - 15 cm 13 Pos
|
|
_reststreifen_graben_13_v11b15($sLeange, $sBreite)
|
|
;Reststreifen über 16cm 13 Pos
|
|
_reststreifen_graben_13_gr16($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
; Reststreifen von 11 - 15 cm 18 Pos
|
|
_reststreifen_graben_18_v11b15($sLeange, $sBreite)
|
|
;Reststreifen über 16cm 18 Pos
|
|
_reststreifen_graben_18_gr16($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
If StringInStr($sVertragString, "4650003822") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
If StringInStr($sVertragString, "FA-A") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
;~ If StringInStr($sVertragString, "FA-B") Then
|
|
;~ If $sAsphaltstark <= 0.10 Then
|
|
;~ ; Reststreifen bis 10 cm 13 Pos
|
|
;~ _Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
;~ ; Reststreifen bis 10 cm 18 Pos
|
|
;~ _Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
;~
|
|
;~ ;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
;~ EndIf
|
|
;~ If $sAsphaltstark >= 0.11 Then
|
|
;~ ;Reststreifen über 10 cm 13 Pos
|
|
;~ _Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
;~ _reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
;~
|
|
;~ ;Reststreifen über 10 cm 18 Pos
|
|
;~ _Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
;~ _Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
;~
|
|
;~ ;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
;~ EndIf
|
|
;~ EndIf
|
|
|
|
If StringInStr($sVertragString, "Pfiff") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
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")
|
|
$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")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Asphaltstäkre über 10 cm aufbrechen
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sAsphaltstark = $aAngaben_graben[1][5]
|
|
|
|
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
|
|
;Assphaltliefer bis 10,cm liefern/einbauen
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbisl10", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Asphaltstäkre über 10 cm einbauen
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
; Fugen schnitte
|
|
$s1 = _replaceKom2Punkt($sBreite)
|
|
$s2 = _replaceKom2Punkt($sBreite)
|
|
$s3 = _replaceKom2Punkt($sLeange)
|
|
$sFugenleange = $s1 + $s2 + $s3
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sFugenleange)
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "RestFugen", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndFunc ;==>_Reststreifen_graben
|
|
|
|
Func _graeben_mehrtiefe()
|
|
_ini_umwandeln()
|
|
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "ZGraebenMehrtiefe"
|
|
$sText_Bemerkung = "Grabentiefe " & _replacePunkt2Koma($aAngaben_graben[1][3]) & " cm"
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = $sText_Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
|
|
If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.80 And $sTiefe < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.90 And $sTiefe < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.00 And $sTiefe < 1.10 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "100", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.10 And $sTiefe < 1.20 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.20 And $sTiefe < 1.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "120", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
|
|
EndFunc ;==>_graeben_mehrtiefe
|
|
|
|
Func _graeben_bodentausch_mehrtiefe()
|
|
_ini_umwandeln()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "ZLBodenTausch"
|
|
$sText_Bemerkung = "Aushub nicht verdichtungsfähig nach ZTV"
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = $sText_Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.80 And $sTiefe < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.90 And $sTiefe < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.00 And $sTiefe < 1.10 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "100", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.10 And $sTiefe < 1.20 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.20 And $sTiefe < 1.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "120", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndFunc ;==>_graeben_bodentausch_mehrtiefe
|
|
|
|
Func _graeben_boardstein()
|
|
_ini_umwandeln()
|
|
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Boardstein"
|
|
|
|
;Boardstein Aufnehmen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bauf", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Boardstein liefern Anzahl steine in m
|
|
If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "blief", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
;Boardstein eibauen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bein", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndFunc ;==>_graeben_boardstein
|
|
|
|
Func _graeben_kantenstein()
|
|
_ini_umwandeln()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Kantenstein"
|
|
|
|
;Kantenstein Aufnehmen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kauf", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Kantenstein liefern
|
|
If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "klief", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
;Kantenstein eibauen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kein", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndFunc ;==>_graeben_kantenstein
|
|
|
|
Func _graeben_rinne()
|
|
_ini_umwandeln()
|
|
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "Rinne"
|
|
|
|
$anzahl_Rinnen = GUICtrlRead($tab1_txt_anz_einz)
|
|
$sLeange = GUICtrlRead($tab1_txt_lm_bre)
|
|
;Rinnen Aufnehmen 1-7
|
|
Switch $anzahl_Rinnen
|
|
Case "1"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf4", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf5", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf6", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
;Rinnen Liefer 1-7
|
|
If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
|
|
$sLeangel = GUICtrlRead($tab1_txt_lm_bre)
|
|
Switch $anzahl_Rinnen
|
|
Case "1"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief4", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief5", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief6", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
EndIf
|
|
|
|
;Rinnen Einbauen 1-7
|
|
Switch $anzahl_Rinnen
|
|
Case "1"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein4", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein5", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein6", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein6", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_graeben_rinne
|
|
|
|
Func _check_OOBbreite_graben()
|
|
;~ $aAngaben_graben[1][1] ;länge
|
|
;~ $aAngaben_graben[1][2] ;Breite
|
|
;~ $aAngaben_graben[1][3] ; Tiefe
|
|
Dim $aProzent[6]
|
|
|
|
|
|
;;Gräben ohne Oberbau
|
|
$sIni_Kategorie = "greaben_ohneOberbau"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;~ ConsoleWrite($sIniDateiPfad & $sIniDatei & @CRLF & @CRLF & $sIni_Kategorie)
|
|
;~ MsgBox(64, "", "asdfasdf")
|
|
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
If GUICtrlRead($tab1_chb_mindert_hs) = $GUI_CHECKED Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015hs", "NA")
|
|
Else
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA")
|
|
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")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_OOBbreite_graben
|
|
|
|
Func _check_Arbeitsrauminstand_graben()
|
|
Dim $aProzent[6]
|
|
;Arbeitsraum instand setzen
|
|
$sIni_Kategorie = "Instandsetzung"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ABRaumInstand", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_Arbeitsrauminstand_graben
|
|
|
|
Func _check_UBbreite_graben()
|
|
;;Gräben in ungebunden Oberbau
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graeben_uB"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
If GUICtrlRead($tab1_chb_mindert_hs) = $GUI_CHECKED Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015hs", "NA")
|
|
Else
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA")
|
|
EndIf
|
|
|
|
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
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")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_UBbreite_graben
|
|
|
|
Func _check_FGObreite_graben()
|
|
;Gräben für den gebundenen Oberbau
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "graeben_fgO"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
If GUICtrlRead($tab1_chb_mindert_hs) = $GUI_CHECKED Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015hs", "NA")
|
|
Else
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA")
|
|
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, "b030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndFunc ;==>_check_FGObreite_graben
|
|
|
|
Func _check_winterbau_graben()
|
|
;Zulage Winterbaustelle Gräben
|
|
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Winterbaugraben"
|
|
$sText_Bemerkung = "Oberfläche wird im Frühjahr instandgesetzt"
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
If GUICtrlRead($tab1_chb_winterbau) = $GUI_CHECKED Then
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndIf
|
|
EndFunc ;==>_check_winterbau_graben
|
|
|
|
Func _check_bodentausch_graben()
|
|
;~ If GUICtrlRead($tab1_chb_bodentausch) = $GUI_CHECKED Then
|
|
Dim $aProzent[6]
|
|
;Bodenaustausch f. Gräben
|
|
$sIni_Kategorie = "BodentauschGraben"
|
|
$sText_Bemerkung = "Aushub nicht verdichtungsfähig nach ZTV"
|
|
|
|
$aProzent[1] = "" ; Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
;~ EndIf
|
|
EndFunc ;==>_check_bodentausch_graben
|
|
|
|
Func _check_asphaltstark_graben()
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Asphaltstärke " & _replacePunkt2Koma($aAngaben_graben[1][5]) & " cm."
|
|
|
|
$sBreite_temp = $aAngaben_graben[1][2] + 0.3
|
|
$sBreite_test = _replacePunkt2Koma($sBreite_temp)
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = $sBreite_test ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
|
|
$sAsphaltstark = $aAngaben_graben[1][5]
|
|
|
|
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.41 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje60xx", "NA")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_asphaltstark_graben
|
|
|
|
Func _check_zulage_asphaltbreite_graben()
|
|
;Zulage Gräben Asphalt
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2])
|
|
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_zulage_asphaltbreite_graben
|
|
|
|
Func _check_bodenklasse7_graben()
|
|
;Bodenkl. 7 oder Frost f. Gräben
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "GraebenBodenkl7"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
If GUICtrlRead($tab1_chb_fels) = $GUI_CHECKED Then
|
|
;1xBodenklasse7 in m
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndIf
|
|
EndFunc ;==>_check_bodenklasse7_graben
|
|
|
|
Func _check_PflasterBreite_graben()
|
|
;Zulage Pflaster
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_PflasterBreite_graben
|
|
|
|
Func _check_Pflaster_beton_graben()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
|
|
|
|
If GUICtrlRead($tab1_chb_inBeton) = $GUI_CHECKED Then
|
|
;Zulage Zementmörtelbett m2
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZZementm", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;1xBodenklasse7 in m
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Beton Liefern m3
|
|
$aProzent[5] = "0,15"
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Beton15cmliefern", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_Pflaster_beton_graben
|
|
|
|
Func _check_PflasterGrbreite_graben()
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_PflasterGrbreite_graben
|
|
|
|
Func _check_Mosaikbreite_graben()
|
|
;Zulage Mosaik
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_Mosaikbreite_graben
|
|
|
|
Func _check_stahlplatte_graben()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Sonstiges"
|
|
$sText_Bemerkung = GUICtrlRead($tab1_txt_stahplatteBemerk)
|
|
$sLeange = "2,5"
|
|
$sBreite = "1,25"
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Stahlplatten", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_stahlplatte_graben
|
|
|
|
Func _check_trasseeinmessen_graben()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Sonstiges"
|
|
$sText_Bemerkung = "Trasse einmessen"
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Einmesstrasse", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_trasseeinmessen_graben
|
|
|
|
Func _AnzahlCUKabelb300($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
Dim $aProzent[6]
|
|
;Anzahl CU Kabel
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU1b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU2b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU3b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU4b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU5b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU6b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU7b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU8b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_AnzahlCUKabelb300
|
|
|
|
Func _AnzahlCUKabelu300($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
|
|
|
|
;Anzahl CU Kabel
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU1u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU2u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU3u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU4u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU5u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU6u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU7u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU8u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_AnzahlCUKabelu300
|
|
|
|
Func _AnzahlDN50($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl DN50
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN501", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN502", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN503", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN504", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN505", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN506", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN507", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN508", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_AnzahlDN50
|
|
|
|
Func _Anzahl2DN50($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 2DN50
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN501", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN502", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN503", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN504", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN505", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN506", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN507", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN508", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_Anzahl2DN50
|
|
|
|
Func _Anzahl3DN50($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
|
|
;Anzahl 2DN50
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN501", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN502", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN503", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN504", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN505", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN506", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN507", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN508", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_Anzahl3DN50
|
|
|
|
Func _Anzahl7x12SNRVe($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 7x12
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x SNRVe7x12 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe7x12", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x SNRVe7x12 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe7x12", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x SNRVe7x12 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe7x12", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
EndFunc ;==>_Anzahl7x12SNRVe
|
|
|
|
Func _Anzahl22x7SNRVe($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 22x7
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_Anzahl22x7SNRVe
|
|
|
|
Func _Anzahl8x7SNRVe($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 8x7
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_Anzahl8x7SNRVe
|
|
|
|
Func _AnzahlDN110($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl DN110
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_AnzahlDN110
|
|
|
|
#EndRegion Gräben
|