2893 lines
108 KiB
AutoIt
2893 lines
108 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() ; erstmal entfernt nicht mehr regelkomform
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_wiese
|
|
|
|
Func _graben_kies()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben in ungebunden Oberbau
|
|
_check_UBbreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
|
|
|
|
|
|
|
|
EndFunc ;==>_graben_kies
|
|
|
|
Func _graben_asphalt()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben für den gebundenen Oberbau
|
|
_check_FGObreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;Zulage Asphalt Breite von 0,3 bis 0,6
|
|
_check_zulage_asphaltbreite_graben()
|
|
|
|
;Switch $sAsphaltstark
|
|
_check_asphaltstark_graben()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_asphalt
|
|
|
|
Func _graben_pflaster()
|
|
_ini_umwandeln()
|
|
|
|
;Gräben für den gebundenen Oberbau
|
|
_check_FGObreite_graben()
|
|
|
|
;winterbau graben
|
|
_check_winterbau_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
;Zulage Pflaster
|
|
_check_PflasterBreite_graben()
|
|
|
|
|
|
;Zulage Beton zementmörtelbett
|
|
_check_Pflaster_beton_graben()
|
|
|
|
|
|
;Bodenaustausch für Gräben
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_pflaster
|
|
|
|
Func _graben_pflaster_gr()
|
|
_ini_umwandeln()
|
|
|
|
_check_FGObreite_graben()
|
|
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
_check_PflasterGrbreite_graben()
|
|
|
|
_check_Pflaster_beton_graben()
|
|
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_pflaster_gr
|
|
|
|
Func _graben_Mosaik()
|
|
_ini_umwandeln()
|
|
|
|
_check_FGObreite_graben()
|
|
|
|
;Bodenklasse 7
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Mehrtiefe für gräben
|
|
_graeben_mehrtiefe()
|
|
|
|
_check_Mosaikbreite_graben()
|
|
|
|
_check_Pflaster_beton_graben()
|
|
|
|
_check_bodentausch_graben()
|
|
|
|
;Zulage Bodenautausch Tiefer
|
|
_graeben_bodentausch_mehrtiefe()
|
|
|
|
EndFunc ;==>_graben_Mosaik
|
|
|
|
Func _Reststreifen_graben_new()
|
|
$sAbschitt = $aAngaben_graben[1][0]
|
|
$sBreite = $aAngaben_graben[1][7]
|
|
$sLeange = $aAngaben_graben[1][6]
|
|
$sAsphaltstark = $aAngaben_graben[1][5]
|
|
|
|
;~ [["Abschnitt", "Länge", "Breite", "Tiefe", "Bemerkung", "Asphaltstärke", "AsphaltRestlänge", "AsphaltRestBreite",
|
|
|
|
dim $aAuswahl[15][2]
|
|
$aAuswahl[0][0] = "4650005565"
|
|
$aAuswahl[0][1] = "1"
|
|
$aAuswahl[1][0] = "4650004935"
|
|
$aAuswahl[1][1] = "1"
|
|
$aAuswahl[2][0] = "4650000697"
|
|
$aAuswahl[2][1] = "1"
|
|
$aAuswahl[3][0] = "4650003822"
|
|
$aAuswahl[3][1] = "1"
|
|
$aAuswahl[4][0] = "4650007105"
|
|
$aAuswahl[4][1] = "1"
|
|
$aAuswahl[5][0] = "4650007106"
|
|
$aAuswahl[5][1] = "1"
|
|
$aAuswahl[6][0] = "4650007107"
|
|
$aAuswahl[6][1] = "1"
|
|
$aAuswahl[7][0] = "4650005993"
|
|
$aAuswahl[7][1] = "1"
|
|
$aAuswahl[8][0] = "4650002630"; Rahmenvertrag DBM
|
|
$aAuswahl[8][1] = "1"
|
|
$aAuswahl[9][0] = "LV-Sölden-PushPK"; Sölden Malush
|
|
$aAuswahl[9][1] = "1"
|
|
$aAuswahl[10][0] = "LV-PushPK-Isny"; Isny
|
|
$aAuswahl[10][1] = "1"
|
|
$aAuswahl[11][0] = "4650007697"; FTTC Spaichingen
|
|
$aAuswahl[11][1] = "1"
|
|
$aAuswahl[12][0] = "4650001474"
|
|
$aAuswahl[12][1] = "2"
|
|
$aAuswahl[13][0] = "4650003044"
|
|
$aAuswahl[13][1] = "2"
|
|
$aAuswahl[14][0] = "SW31-Probevertrag-Entstörung-Tiefbau"
|
|
$aAuswahl[14][1] = "1"
|
|
|
|
;~ _DebugArrayDisplay($aAuswahl)
|
|
$sVertragString = GUICtrlRead($chb_vertrag)
|
|
;~ MsgBox(64, "", $sVertragString)
|
|
For $i = 0 to UBound($aAuswahl) -1
|
|
If StringInStr($sVertragString, $aAuswahl[$i][0]) Then
|
|
If $aAuswahl[$i][1] = "1" Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
;~ _Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
Else
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen von 11 - 15 cm 13 Pos
|
|
_reststreifen_graben_13_v11b15($sLeange, $sBreite)
|
|
;Reststreifen über 16cm 13 Pos
|
|
_reststreifen_graben_13_gr16($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
; Reststreifen von 11 - 15 cm 18 Pos
|
|
_reststreifen_graben_18_v11b15($sLeange, $sBreite)
|
|
;Reststreifen über 16cm 18 Pos
|
|
_reststreifen_graben_18_gr16($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
Next
|
|
|
|
If StringInStr($sVertragString, "FA-A") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
;~ If StringInStr($sVertragString, "FA-B") Then
|
|
;~ If $sAsphaltstark <= 0.10 Then
|
|
;~ ; Reststreifen bis 10 cm 13 Pos
|
|
;~ _Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
;~ ; Reststreifen bis 10 cm 18 Pos
|
|
;~ _Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
;~
|
|
;~ ;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
;~ EndIf
|
|
;~ If $sAsphaltstark >= 0.11 Then
|
|
;~ ;Reststreifen über 10 cm 13 Pos
|
|
;~ _Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
;~ _reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
;~
|
|
;~ ;Reststreifen über 10 cm 18 Pos
|
|
;~ _Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
;~ _Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
;~
|
|
;~ ;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
;~ EndIf
|
|
;~ EndIf
|
|
|
|
If StringInStr($sVertragString, "Pfiff") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
If StringInStr($sVertragString, "Bischoff") Then
|
|
If $sAsphaltstark <= 0.10 Then
|
|
; Reststreifen bis 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
; Reststreifen bis 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
_reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
If $sAsphaltstark >= 0.11 Then
|
|
;Reststreifen über 10 cm 13 Pos
|
|
_Reststreifen_graben_bis10cm($aAngaben_graben[1][0], $sLeange, $sBreite)
|
|
_reststreifen_graben_13ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen über 10 cm 18 Pos
|
|
_Reststreifen_graben_bis10liefern($sLeange, $sBreite)
|
|
_Reststreifen_graben_18ueber10cm($sAsphaltstark, $sLeange, $sBreite)
|
|
|
|
;Reststreifen Fugen/Schnitte
|
|
;~ _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
EndIf
|
|
EndIf
|
|
|
|
EndFunc ;==>_Reststreifen_graben_new
|
|
|
|
Func _Reststreifen_graben_bis10cm($sTABschnitt, $sTLeange, $sTBreite)
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Restreifenausbau mit BVT & Gemeinde abgesprochen"
|
|
;Reststreifen Asphalt aufbrechen
|
|
$aProzent[1] = $sTABschnitt
|
|
$aProzent[2] = $sText_Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbis10", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_Reststreifen_graben_bis10cm
|
|
|
|
Func _Reststreifen_graben_bis10liefern($sTLeange, $sTBreite)
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbisl10", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_Reststreifen_graben_bis10liefern
|
|
|
|
Func _reststreifen_graben_13ueber10cm($sAsphaltstark, $sTLeange, $sTBreite)
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_reststreifen_graben_13ueber10cm
|
|
|
|
Func _reststreifen_graben_13_v11b15($sTLeange, $sTBreite)
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_reststreifen_graben_13_v11b15
|
|
|
|
Func _reststreifen_graben_13_gr16($sAsphaltstark, $sTLeange, $sTBreite)
|
|
;Asphaltstäkre über 10 cm einbauen
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
If $sAsphaltstark >= 0.16 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_reststreifen_graben_13_gr16
|
|
|
|
Func _Reststreifen_graben_18ueber10cm($sAsphaltstark, $sTLeange, $sTBreite)
|
|
;Asphaltstäkre über 10 cm einbauen
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_Reststreifen_graben_18ueber10cm
|
|
|
|
Func _reststreifen_graben_18_v11b15($sTLeange, $sTBreite)
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_reststreifen_graben_18_v11b15
|
|
|
|
Func _reststreifen_graben_18_gr16($sAsphaltstark, $sTLeange, $sTBreite)
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sTLeange) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($sTBreite) ; Breite
|
|
$aProzent[5] = ""
|
|
If $sAsphaltstark >= 0.16 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6034", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_reststreifen_graben_18_gr16
|
|
|
|
Func _reststreifen_graben_Fugen($sLeange, $sBreite)
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
; Fugen schnitte
|
|
Dim $aProzent[6]
|
|
$s1 = _replaceKom2Punkt($sBreite)
|
|
$s2 = _replaceKom2Punkt($sBreite)
|
|
$s3 = _replaceKom2Punkt($sLeange)
|
|
$sFugenleange = $s1 + $s2 + $s3
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sFugenleange)
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "RestFugen", "NA_RestFugen")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_reststreifen_graben_Fugen
|
|
|
|
Func _Reststreifen_graben()
|
|
Dim $aProzent[6]
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Restreifenausbau mit BVT & Gemeinde abgesprochen"
|
|
$sBreite = $aAngaben_graben[1][7]
|
|
$sLeange = $aAngaben_graben[1][6]
|
|
|
|
|
|
;_check_asphaltstark_graben()
|
|
|
|
;~ ;Reststreifen Asphalt aufbrechen
|
|
$aProzent[1] = $aAngaben_graben[1][0]
|
|
$aProzent[2] = $sText_Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbis10", "NA_Reststrbis10")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Asphaltstäkre über 10 cm aufbrechen
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sAsphaltstark = $aAngaben_graben[1][5]
|
|
|
|
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6016", "NA_ZAsphalt13je6016")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6021", "NA_ZAsphalt13je6021")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6028", "NA_ZAsphalt13je6028")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA_ZAsphalt13je6034")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6040", "NA_ZAsphalt13je6040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
|
|
;Assphaltliefer bis 10,cm liefern/einbauen
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][6]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][7]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Reststrbisl10", "NA_Reststrbisl10")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Asphaltstäkre über 10 cm einbauen
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6016", "NA_ZAsphalt18je6016")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6021", "NA_ZAsphalt18je6021")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6028", "NA_ZAsphalt18je6028")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt13je6034", "NA_ZAsphalt13je6034")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphalt18je6040", "NA_ZAsphalt18je6040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
; Fugen schnitte
|
|
$s1 = _replaceKom2Punkt($sBreite)
|
|
$s2 = _replaceKom2Punkt($sBreite)
|
|
$s3 = _replaceKom2Punkt($sLeange)
|
|
$sFugenleange = $s1 + $s2 + $s3
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = ""
|
|
$aProzent[3] = _replacePunkt2Koma($sFugenleange)
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "RestFugen", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndFunc ;==>_Reststreifen_graben
|
|
|
|
Func _graeben_mehrtiefe()
|
|
_ini_umwandeln()
|
|
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "ZGraebenMehrtiefe"
|
|
$sText_Bemerkung = "Grabentiefe " & _replacePunkt2Koma($aAngaben_graben[1][3]) & " m"
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = $sText_Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite = 0.15 Then
|
|
|
|
If $sTiefe > 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "m060", "NA_m060")
|
|
$aProzent[2] = "max. 0,6m Tief"
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndIf
|
|
|
|
If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "070", "NA_070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.80 And $sTiefe < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "080", "NA_080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.90 And $sTiefe < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "090", "NA_090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.00 And $sTiefe < 1.10 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "100", "NA_100")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.10 And $sTiefe < 1.20 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "110", "NA_110")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.20 And $sTiefe < 1.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "120", "NA_120")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
|
|
EndFunc ;==>_graeben_mehrtiefe
|
|
|
|
Func _graeben_bodentausch_mehrtiefe()
|
|
_ini_umwandeln()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "ZLBodenTausch"
|
|
$sText_Bemerkung = "Aushub nicht verdichtungsfähig nach ZTV"
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = $sText_Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
If $sTiefe >= 0.45 And $sTiefe < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "mz030", "NA_mz030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndIf
|
|
|
|
If $sTiefe >= 0.70 And $sTiefe < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx070", "NA_xx070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.80 And $sTiefe < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx080", "NA_xx080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 0.90 And $sTiefe < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx090", "NA_xx090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.00 And $sTiefe < 1.10 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx100", "NA_xx100")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.10 And $sTiefe < 1.20 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx110", "NA_xx110")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sTiefe >= 1.20 And $sTiefe < 1.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "xx120", "NA_xx120")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndFunc ;==>_graeben_bodentausch_mehrtiefe
|
|
|
|
Func _graeben_boardstein()
|
|
_ini_umwandeln()
|
|
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Boardstein"
|
|
|
|
;Boardstein Aufnehmen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bauf", "NA_bauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Boardstein liefern Anzahl steine in m
|
|
If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "blief", "NA_blief")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
;Boardstein eibauen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bein", "NA_bein")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndFunc ;==>_graeben_boardstein
|
|
|
|
Func _graeben_kantenstein()
|
|
_ini_umwandeln()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Kantenstein"
|
|
|
|
;Kantenstein Aufnehmen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kauf", "NA_kauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;Kantenstein liefern
|
|
If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "klief", "NA_klief")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
;Kantenstein eibauen
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][9]) ; Länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "kein", "NA_kein")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndFunc ;==>_graeben_kantenstein
|
|
|
|
Func _graeben_rinne()
|
|
_ini_umwandeln()
|
|
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "Rinne"
|
|
|
|
$anzahl_Rinnen = GUICtrlRead($tab1_txt_anz_einz)
|
|
$sLeange = GUICtrlRead($tab1_txt_lm_bre)
|
|
;Rinnen Aufnehmen 1-7
|
|
Switch $anzahl_Rinnen
|
|
Case "1"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf4", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf5", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf6", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab1_txt_lm_bre) ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rauf7", "NA_rauf")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
;Rinnen Liefer 1-7
|
|
If GUICtrlRead($tab1_chb_liefern) = $GUI_CHECKED Then
|
|
$sLeangel = GUICtrlRead($tab1_txt_lm_bre)
|
|
Switch $anzahl_Rinnen
|
|
Case "1"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA_rlief")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA_rlief")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief", "NA_rlief")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief4", "NA_rlief4")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief5", "NA_rlief5")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief6", "NA_rlief6")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeangel ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rlief7", "NA_rlief7")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
EndIf
|
|
|
|
;Rinnen Einbauen 1-7
|
|
Switch $anzahl_Rinnen
|
|
Case "1"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA_rein")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA_rein")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein", "NA_rein")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein4", "NA_rein4")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein5", "NA_rein5")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein6", "NA_rein6")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = "" ;RSA
|
|
$aProzent[2] = "" ;Bemerkung
|
|
$aProzent[3] = $sLeange ;länge
|
|
$aProzent[4] = "" ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "rein6", "NA_rein6")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_graeben_rinne
|
|
|
|
Func _check_Arbeitsrauminstand_graben()
|
|
Dim $aProzent[6]
|
|
;Arbeitsraum instand setzen
|
|
$sIni_Kategorie = "Instandsetzung"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = ""
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ABRaumInstand", "NA_ABRaumInstand")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_Arbeitsrauminstand_graben
|
|
|
|
Func _check_OOBbreite_graben()
|
|
;~ $aAngaben_graben[1][1] ;länge
|
|
;~ $aAngaben_graben[1][2] ;Breite
|
|
;~ $aAngaben_graben[1][3] ; Tiefe
|
|
Dim $aProzent[6]
|
|
|
|
;Gräben ohne Oberbau
|
|
$sIni_Kategorie = "greaben_ohneOberbau"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;~ ConsoleWrite($sIniDateiPfad & $sIniDatei & @CRLF & @CRLF & $sIni_Kategorie)
|
|
;~ MsgBox(64, "", "asdfasdf")
|
|
|
|
|
|
;mindertiefe Breite 0,15-30 und Tiefe 0,30-0,45
|
|
If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
|
|
If $sBreite = 0.15 and $sTiefe = 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_30", "g_OO_1530", "NA_g_OO_1530")
|
|
|
|
|
|
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
If $sBreite = 0.15 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_45", "g_OO_1545", "NA_g_OO_1545")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
|
|
If $sBreite = 0.15 and $sTiefe = 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_30", "g_OO_1530", "NA_g_OO_1530")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
If $sBreite = 0.15 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_45", "g_OO_1545", "NA_g_OO_1545")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
|
|
If $sBreite = 0.30 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_30_45", "g_OO_3045", "NA_g_OO_3045")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
|
|
If $sBreite = 0.30 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_30_45", "g_OO_3045", "NA_g_OO_3045")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
;~ If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
;~ If GUICtrlRead($tab1_chb_mindert_hs) = $GUI_CHECKED Then
|
|
;~ If $sTiefe >= 0.30 And $sTiefe < 0.45 Then
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bt015hs", "NA_bt015hs")
|
|
;~ Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015hs", "NA_b015hs")
|
|
;~ EndIf
|
|
|
|
;~ Else
|
|
;~ If $sTiefe >= 0.30 And $sTiefe < 0.45 Then
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "bt3045", "NA_bt3045")
|
|
;~ Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA_b015")
|
|
;~ EndIf
|
|
|
|
;~ EndIf
|
|
|
|
|
|
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ EndIf
|
|
;~
|
|
|
|
|
|
|
|
;Breite wiese von 0,3 bis 0,6 je 0,10cm
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA_b040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA_b050")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA_b060")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA_b070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA_b080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA_b090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_OOBbreite_graben
|
|
|
|
Func _check_UBbreite_graben()
|
|
;;Gräben in ungebunden Oberbau
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graeben_uB"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30 und Tiefe 0,30-0,45
|
|
If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
|
|
If $sBreite = 0.15 and $sTiefe = 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_30", "g_UB_1530", "NA_g_UB_1530")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
If $sBreite = 0.15 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_45", "g_UB_1545", "NA_g_UB_1545")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
|
|
If $sBreite = 0.15 and $sTiefe = 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_30", "g_UB_1530", "NA_g_UB_1530")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
If $sBreite = 0.15 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_45", "g_UB_1545", "NA_g_UB_1545")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
|
|
If $sBreite = 0.30 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_30_45", "g_UB_3045", "NA_g_UB_3045")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
|
|
If $sBreite = 0.30 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_30_45", "g_UB_3045", "NA_g_UB_3045")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
;Breite Kies von 0,3 bis 0,6 je 0,10cm
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA_b040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA_b050")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA_b060")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA_b070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA_b080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA_b090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_UBbreite_graben
|
|
|
|
Func _check_FGObreite_graben()
|
|
;Gräben für den gebundenen Oberbau
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "graeben_fgO"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
$sTiefe = $aAngaben_graben[1][3]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30 und Tiefe 0,30-0,45
|
|
If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
|
|
If $sBreite = 0.15 and $sTiefe = 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_30", "g_FG_1530", "NA_g_FG_1530")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
If $sBreite = 0.15 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_15_45", "g_FG_1545", "NA_g_FG_1545")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
|
|
If $sBreite = 0.15 and $sTiefe = 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_30", "g_FG_1530", "NA_g_FG_1530")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
If $sBreite = 0.15 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_15_45", "g_FG_1545", "NA_g_FG_1545")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_L) = $GUI_CHECKED Then
|
|
If $sBreite = 0.30 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_L_30_45", "g_FG_3045", "NA_g_FG_3045")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
If GUICtrlRead($chb_g_mind_ftth) = $GUI_CHECKED Then
|
|
If $sBreite = 0.30 and $sTiefe = 0.45 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "graeben_mindertiefe_FTTH_30_45", "g_FG_3045", "NA_g_FG_3045")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Return
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA_b040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA_b050")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA_b060")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA_b070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA_b080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA_b090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndFunc ;==>_check_FGObreite_graben
|
|
|
|
Func _check_winterbau_graben()
|
|
;Zulage Winterbaustelle Gräben
|
|
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Winterbaugraben"
|
|
$sText_Bemerkung = "Oberfläche wird im Frühjahr instandgesetzt"
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = $aAngaben_graben[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
If GUICtrlRead($tab1_chb_winterbau) = $GUI_CHECKED Then
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA_b015")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA_b040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA_b050")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA_b060")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA_b070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA_b080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA_b090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndIf
|
|
EndFunc ;==>_check_winterbau_graben
|
|
|
|
Func _check_bodentausch_graben()
|
|
;~ If GUICtrlRead($tab1_chb_bodentausch) = $GUI_CHECKED Then
|
|
Dim $aProzent[6]
|
|
;Bodenaustausch f. Gräben
|
|
$sIni_Kategorie = "BodentauschGraben"
|
|
$sText_Bemerkung = "Aushub nicht verdichtungsfähig nach ZTV"
|
|
|
|
$aProzent[1] = "" ; Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
If GUICtrlRead($tab1_chb_bodentausch) = $GUI_CHECKED Then
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "m030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndIf
|
|
EndFunc ;==>_check_bodentausch_graben
|
|
|
|
Func _check_asphaltstark_graben()
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Asphaltstärke " & _replacePunkt2Koma($aAngaben_graben[1][5]) & " m."
|
|
|
|
$sBreite_temp = $aAngaben_graben[1][2] + 0.3
|
|
$sBreite_test = _replacePunkt2Koma($sBreite_temp)
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = $sBreite_test ;Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
|
|
$sAsphaltstark = $aAngaben_graben[1][5]
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje4", "NA_ZAsphaltje4")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
If $sAsphaltstark >= 0.13 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje416", "NA_ZAsphaltje416")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.20 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje421", "NA_ZAsphaltje421")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.21 And $sAsphaltstark <= 0.24 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje428", "NA_ZAsphaltje428")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.25 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje434", "NA_ZAsphaltje434")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.32 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje440", "NA_ZAsphaltje440")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.33 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje60xxm", "NA_ZAsphaltje60xxm")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndIf
|
|
|
|
If $sAsphaltstark >= 0.11 And $sAsphaltstark <= 0.16 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6016", "NA_ZAsphaltje6016")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.17 And $sAsphaltstark <= 0.21 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6021", "NA_ZAsphaltje6021")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.22 And $sAsphaltstark <= 0.28 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6028", "NA_ZAsphaltje6028")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.29 And $sAsphaltstark <= 0.34 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6034", "NA_ZAsphaltje6034")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.35 And $sAsphaltstark <= 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje6040", "NA_ZAsphaltje6040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sAsphaltstark >= 0.41 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltje60xx", "NA_ZAsphaltje60xx")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_asphaltstark_graben
|
|
|
|
Func _check_zulage_asphaltbreite_graben()
|
|
;Zulage Gräben Asphalt
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2])
|
|
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
$sTiefe = $aProzent[5]
|
|
|
|
;~ ;mindertiefe Breite 0,15-30
|
|
;~ If $sBreite >= 0.15 And $sBreite <= 0.30 Then
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb3045", "NA_ZAsphaltb3045")
|
|
;~ If $sTiefe >= 0.30 And $sTiefe < 0.45 Then
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb3045", "NA_ZAsphaltb3045")
|
|
;~ EndIf
|
|
|
|
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ EndIf
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb030", "NA_ZAsphaltb030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb040", "NA_ZAsphaltb040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb050", "NA_ZAsphaltb050")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb060", "NA_ZAsphaltb060")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb070", "NA_ZAsphaltb070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb080", "NA_ZAsphaltb080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZAsphaltb090", "NA_ZAsphaltb090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_zulage_asphaltbreite_graben
|
|
|
|
Func _check_bodenklasse7_graben()
|
|
;Bodenkl. 7 oder Frost f. Gräben
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "GraebenBodenkl7"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
If GUICtrlRead($tab1_chb_fels) = $GUI_CHECKED Then
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b015", "NA_b015")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
;1xBodenklasse7 in m
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b030", "NA_b030")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b040", "NA_b040")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b050", "NA_b050")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b060", "NA_b060")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b070", "NA_b070")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b080", "NA_b080")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b090", "NA_b090")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndIf
|
|
EndFunc ;==>_check_bodenklasse7_graben
|
|
|
|
Func _check_PflasterBreite_graben()
|
|
;Zulage Pflaster
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb015", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPlfasterb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_PflasterBreite_graben
|
|
|
|
Func _check_Pflaster_beton_graben()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
|
|
|
|
If GUICtrlRead($tab1_chb_inBeton) = $GUI_CHECKED Then
|
|
;Zulage Zementmörtelbett m2
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZZementm", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
;1xBodenklasse7 in m
|
|
_check_bodenklasse7_graben()
|
|
|
|
;Beton Liefern m3
|
|
$aProzent[5] = "0,15"
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Beton15cmliefern", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_Pflaster_beton_graben
|
|
|
|
Func _check_PflasterGrbreite_graben()
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb015", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterGrb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_PflasterGrbreite_graben
|
|
|
|
Func _check_Mosaikbreite_graben()
|
|
;Zulage Mosaik
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "graebenOberflaeche"
|
|
$sText_Bemerkung = "Grabenprofil " & _replacePunkt2Koma($aAngaben_graben[1][1]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][2]) & " x " & _replacePunkt2Koma($aAngaben_graben[1][3])
|
|
$sBreite = $aAngaben_graben[1][2]
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
;mindertiefe Breite 0,15-30
|
|
If $sBreite >= 0.15 And $sBreite < 0.30 Then
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb015", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.30 And $sBreite < 0.40 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb030", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.40 And $sBreite < 0.50 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb040", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.50 And $sBreite < 0.60 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb050", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.60 And $sBreite < 0.70 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb060", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.70 And $sBreite < 0.80 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb070", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.80 And $sBreite < 0.90 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb080", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $sBreite >= 0.90 And $sBreite < 1.00 Then
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "ZPflasterMosaikb090", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_Mosaikbreite_graben
|
|
|
|
Func _check_stahlplatte_graben()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Sonstiges"
|
|
$sText_Bemerkung = GUICtrlRead($tab1_txt_stahplatteBemerk)
|
|
$sLeange = "2,5"
|
|
$sBreite = "1,25"
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Stahlplatten", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_stahlplatte_graben
|
|
|
|
Func _check_trasseeinmessen_graben()
|
|
Dim $aProzent[6]
|
|
|
|
$sIni_Kategorie = "Sonstiges"
|
|
$sText_Bemerkung = "Trasse einmessen"
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_graben[1][1]) ; Länge
|
|
$aProzent[4] = _replacePunkt2Koma($aAngaben_graben[1][2]) ; Breite
|
|
$aProzent[5] = _replacePunkt2Koma($aAngaben_graben[1][3]) ; Tiefe
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Einmesstrasse", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_trasseeinmessen_graben
|
|
|
|
Func _AnzahlCUKabelb300($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
Dim $aProzent[6]
|
|
;Anzahl CU Kabel
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU1b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU2b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU3b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU4b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU5b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU6b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU7b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU8b30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_AnzahlCUKabelb300
|
|
|
|
Func _AnzahlCUKabelu300($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
|
|
|
|
;Anzahl CU Kabel
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU1u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU2u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU3u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU4u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU5u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU6u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU7u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x Kabel auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzCU8u30", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_AnzahlCUKabelu300
|
|
|
|
Func _AnzahlDN50($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl DN50
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN501", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN502", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN503", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN504", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN505", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN506", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN507", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AnzDN508", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_AnzahlDN50
|
|
|
|
Func _Anzahl2DN50($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 2DN50
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN501", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN502", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN503", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN504", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN505", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN506", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN507", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x 2Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN508", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_Anzahl2DN50
|
|
|
|
Func _Anzahl3DN50($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
|
|
;Anzahl 2DN50
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN501", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN502", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN503", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN504", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "5"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "5x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN505", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "6"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "6x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN506", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "7"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "7x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN507", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "8"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "8x 3Fach-DN50 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN508", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ Case Else
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "b0XX", "NA")
|
|
;~ _ArrayAdd($aArray, $sINI_String, 0, @CRLF)
|
|
;~ MsgBox(64, "Prüfen", "Grabenbreite liegt außerhalb von 0,3-Max 0,6 cm")
|
|
EndSwitch
|
|
EndFunc ;==>_Anzahl3DN50
|
|
|
|
Func _Anzahl7x12SNRVe($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 7x12
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x SNRVe7x12 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe7x12", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x SNRVe7x12 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe7x12", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x SNRVe7x12 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe7x12", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
EndFunc ;==>_Anzahl7x12SNRVe
|
|
|
|
Func _Anzahl22x7SNRVe($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 22x7
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 22x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4SNRVe22x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_Anzahl22x7SNRVe
|
|
|
|
Func _Anzahl8x7SNRVe($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl 8x7
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x 8x7SNRVe auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4SNRVe8x7", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_Anzahl8x7SNRVe
|
|
|
|
Func _AnzahlDN110($anzahl, $sLeange)
|
|
_ini_umwandeln()
|
|
|
|
$sIni_Kategorie = "Medien"
|
|
|
|
Dim $aProzent[6]
|
|
|
|
;Anzahl DN110
|
|
Switch $anzahl
|
|
Case "1"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "1x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz1DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "2"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "2x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz2DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "3"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "3x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz3DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
Case "4"
|
|
$aProzent[1] = ""
|
|
$aProzent[2] = "4x DN110 auslegen"
|
|
$aProzent[3] = $sLeange
|
|
$aProzent[4] = ""
|
|
$aProzent[5] = ""
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Anz4DN110", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndSwitch
|
|
|
|
EndFunc ;==>_AnzahlDN110
|
|
|
|
#EndRegion Gräben
|