;ahelper_ftth.au3 Func _add_ftth() Dim $aProzent[6] Global $sIni_Kategorie = "FTTH" $sText_Bemerkung = "" Global $aAngaben_FTTH[2][11] = [["Abschnitt", "Länge Privat", "NVT", "APNr", "AnzWE", "Str", "HsNr", "GF-Kabel", "GF-BlasLang", "InstalRohrlang", "Ausgabe"]] Global $sIniDatei = GUICtrlRead($chb_vertrag) If GUICtrlRead($chb_vertrag) = "" Then MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen") Else _ini_umwandeln_pfad($sIniDateiPfad & $sIniDatei) _ReadInputs2Array_ftth() ;~ _DebugArrayDisplay($aAngaben_FTTH) $sVertragString = GUICtrlRead($chb_vertrag) If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18 If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then _add_ftth_GFMontage() Else If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then _check_FTTH_TB_HsEinfoo() _check_FTTH_TB_HsEinfZoo() _check_FTTH_TB_Rausl() _check_FTTH_TB_Kausl() EndIf If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then _check_FTTH_TB_HsEinfmo() _check_FTTH_TB_HsEinfZmo() _check_FTTH_TB_Rausl() _check_FTTH_TB_Kausl() EndIf If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then _check_FTTH_TB_GGRing() ; 5m Ring auslegen 3 + (2 in der Func) $aAngaben_FTTH[1][1] = 3 _check_FTTH_TB_Kausl() EndIf EndIf EndIf If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then _add_ftth_GFMontage() Else If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then _check_FTTH_TB_HsEinfoo() _check_FTTH_TB_HsEinfZoo() _check_FTTH_TB_Rausl() _check_FTTH_TB_Kausl() EndIf If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then _check_FTTH_TB_HsEinfmo() _check_FTTH_TB_HsEinfZmo() _check_FTTH_TB_Rausl() _check_FTTH_TB_Kausl() EndIf If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then _check_FTTH_TB_GGRing() ; 5m Ring auslegen 3 + (2 in der Func) $aAngaben_FTTH[1][1] = 3 _check_FTTH_TB_Kausl() EndIf EndIf EndIf If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg EndIf If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then _add_ftth_GFMontage() Else If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then _check_FTTH_TB_HsEinfoo() _check_FTTH_TB_HsEinfZoo() _check_FTTH_TB_Rausl() _check_FTTH_TB_Kausl() EndIf If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then _check_FTTH_TB_HsEinfmo() _check_FTTH_TB_HsEinfZmo() _check_FTTH_TB_Rausl() _check_FTTH_TB_Kausl() EndIf If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then _check_FTTH_TB_GGRing() ; 5m Ring auslegen 3 + (2 in der Func) $aAngaben_FTTH[1][1] = 3 _check_FTTH_TB_Kausl() EndIf EndIf EndIf _ArrayDelete($aLVListe, 0) $iCount = -1 _GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe) Global $aLVListe[1][13] EndIf EndFunc ;==>_add_ftth ;FTTH Func _felder_tab7_zurucksetzen() GUICtrlSetData($tab7_txt_nvtname, "") GUICtrlSetData($tab7_txt_abschnitt, "") GUICtrlSetData($tab7_txt_lang_privat, "") GUICtrlSetData($tab7_txt_nvtname, "") GUICtrlSetData($tab7_txt_anzWE, "") GUICtrlSetData($tab7_txt_apnr, "") GUICtrlSetData($tab7_txt_hsnr, "") GUICtrlSetData($tab7_txt_str, "") GUICtrlSetData($tab7_txt_einblang, "") GUICtrlSetData($tab7_txt_instrohr, "") GUICtrlSetData($tab7_txt_ausgabe, "") GUICtrlSetState($tab7_chb_oO, $GUI_UNCHECKED) GUICtrlSetState($tab7_chb_ring_gg, $GUI_UNCHECKED) GUICtrlSetState($tab7_chb_adGFMontage, $GUI_UNCHECKED) GUICtrlSetState($tab7_chb_koordinationp, $GUI_UNCHECKED) EndFunc ;==>_felder_tab7_zurucksetzen #Region Abrechnung GF -Montage FTTH nach Bestückungsplan Func _Aufmass_Bestuckungsplan() Global $sIniDatei = GUICtrlRead($chb_vertrag) If GUICtrlRead($chb_vertrag) = "" Then MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen") Else Local $sFilePath, $aArray Dim $aTest[1] Local $sIni_Kategorie = "FTTH-GF-NVT-APL" Local $message = "Bitte wählen Sie die Import Datei aus!" Local $sFilePath = FileOpenDialog($message, @ScriptDir & "\_Aufmaße\", "CSV (*.csv)", 1 + 4) If @error Then MsgBox(4096, "", "Keine Datei(en) ausgewählt") Else $sFilePath = StringReplace($sFilePath, "|", @CRLF) _FileReadToArray($sFilePath, $aArray) _ArrayDelete($aArray, 0) ;~ _DebugArrayDisplay($aArray) For $i = 0 To UBound($aArray) - 1 If StringInStr($aArray[$i], ";;;;;;;;;;;0;;;;;;;;;;;") Then Else _ArrayAdd($aTest, $aArray[$i]) EndIf Next ;~ _ArrayDisplay($aTest) ;~ MsgBox(64, "tset", "adsfasdf") ;~ Hergensweiler;2R2;4207772773;4650000697;203648385;2V1013;22x7;or/sw;2;rs;4E;2P1334;Rupolzer Str.;33;;2;1-3;;;x;x;1;281;7;309;294; Dim $aListeImport[UBound($aTest)][33] = [["Ort", "HK", "AbrufNr", "Vertrag", "SMnr", "NVT", "Rohrverband", "VerbandFarbe", "VerbandNr", "PipeFarbe", "Fasernstärke", "APNr", "Str.", "Hsnr", "HausZusatz", "WE's", "AP-Größe", "Anschluss Ja", "PST gebaut", "TB", "GF-Montage", "GF-AnzMess", "SNR-Haupt", "2x7", "KabelzugGFl", "GFMLang", "LinstalR", "LEP-TP", "LEP-GF-K", "E-Status", "Euro-TB", "Euro-GF", "Hinweis"]] For $i = 1 To UBound($aTest) - 1 $aTemp = StringSplit($aTest[$i], ";") ;~ _ArrayDisplay($aTemp) $aListeImport[$i][0] = $aTemp[1] $aListeImport[$i][1] = $aTemp[2] $aListeImport[$i][2] = $aTemp[3] $aListeImport[$i][3] = $aTemp[4] $aListeImport[$i][4] = $aTemp[5] $aListeImport[$i][5] = $aTemp[6] $aListeImport[$i][6] = $aTemp[7] $aListeImport[$i][7] = $aTemp[8] $aListeImport[$i][8] = $aTemp[9] $aListeImport[$i][9] = $aTemp[10] $aListeImport[$i][10] = $aTemp[11] $aListeImport[$i][11] = $aTemp[12] $aListeImport[$i][12] = $aTemp[13] $aListeImport[$i][13] = $aTemp[14] $aListeImport[$i][14] = $aTemp[15] $aListeImport[$i][15] = $aTemp[16] $aListeImport[$i][16] = $aTemp[17] $aListeImport[$i][17] = $aTemp[18] $aListeImport[$i][18] = $aTemp[19] $aListeImport[$i][19] = $aTemp[20] $aListeImport[$i][20] = $aTemp[21] $aListeImport[$i][21] = $aTemp[22] $aListeImport[$i][22] = $aTemp[23] $aListeImport[$i][23] = $aTemp[24] $aListeImport[$i][24] = $aTemp[25] $aListeImport[$i][25] = $aTemp[26] $aListeImport[$i][26] = $aTemp[27] $aListeImport[$i][27] = $aTemp[28] $aListeImport[$i][28] = $aTemp[29] $aListeImport[$i][29] = $aTemp[30] $aListeImport[$i][30] = $aTemp[31] $aListeImport[$i][31] = $aTemp[32] $aListeImport[$i][32] = $aTemp[33] Next _ArrayDisplay($aListeImport) ;GUICtrlRead($tab7_txt_nvtname) For $i = 1 To UBound($aListeImport) - 1 Global $sNVTName = $aListeImport[$i][5] ;Finde alle Glasfaseranschlüsse (BS) If $aListeImport[$i][20] = "x" And $aListeImport[$i][28] = "" And $aListeImport[$i][24] <> "" Then ; wenn GF-Montage x Global $sAPNr = $aListeImport[$i][11] $sKabelstark = $aListeImport[$i][10] $sStr = $aListeImport[$i][12] $sHsZu = $aListeImport[$i][13] & $aListeImport[$i][14] Global $sAnzWE = $aListeImport[$i][15] $sGFlang = $aListeImport[$i][24] ; Kabelzug länge Global $sStringName = "NVT_" & $sNVTName & "_GF_" & $sStr & "_HS_" & $sHsZu & "_AP_" & $sAPNr $sStringName = StringReplace($sStringName, " ", "_") $sStringName = StringReplace($sStringName, ".", "") ;~ MsgBox(64, "testen", $sStringName) ;1-3 WE AP If $sAnzWE > 1 And $sAnzWE <= 3 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("2") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;4WE AP If $sAnzWE = 4 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("4") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;5-8 WE If $sAnzWE > 5 And $sAnzWE <= 8 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("8") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;9-12 WE If $sAnzWE > 9 And $sAnzWE <= 12 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("12") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;13-16 WE If $sAnzWE > 13 And $sAnzWE <= 16 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("16") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;17-20 WE If $sAnzWE > 17 And $sAnzWE <= 20 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("20") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;21-24 WE If $sAnzWE > 21 And $sAnzWE <= 24 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("24") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;25-28 WE If $sAnzWE > 25 And $sAnzWE <= 28 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("28") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;29-32 WE If $sAnzWE > 29 And $sAnzWE <= 32 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("32") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;33-36 WE If $sAnzWE > 33 And $sAnzWE <= 36 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("36") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;37-40 WE If $sAnzWE > 37 And $sAnzWE <= 40 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("40") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;41-64 WE If $sAnzWE > 41 And $sAnzWE <= 64 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("64") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;65-96 WE If $sAnzWE > 65 And $sAnzWE <= 96 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("96") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;~ _DebugArrayDisplay($aLVListe) ;~ _ArrayDelete($aLVListe, 0) ;~ FTTH_Weißensberg_HK_2R3_ $sBaustelle = "FTTH_" & $aListeImport[$i][0] & "_HK_" & $aListeImport[$i][1] & "_" $sAbruf = $aListeImport[$i][2] $sVertrag = $aListeImport[$i][3] $sSMNr = $aListeImport[$i][4] $sBauabschnitt = $sStringName _LV_GFMontageFTTH_save2txt(@MDAY & @MON & @YDAY, $sBaustelle, $sAbruf, $sVertrag, $sSMNr, $sBauabschnitt) EndIf Next ;~ _DebugArrayDisplay($aLVListe, "Fertig") EndIf EndIf EndFunc ;==>_Aufmass_Bestuckungsplan Func _LV_GFMontageFTTH_save2txt($tDatum, $tBaustelle, $tAbruf, $tVetrag, $tSMnr, $tBauabschnitt) $sDatum = $tDatum $sBaustelle = $tBaustelle $sAbrufNr = $tAbruf $sVertrag = $tVetrag $sStartZ = GUICtrlRead($kopf_tab_datum_start) $sEndZ = GUICtrlRead($kopf_tab_txt_datum_ende) $sAspaN = GUICtrlRead($kopf_tab_chb_aspa) $sAspaTel = GUICtrlRead($kopf_tab_txt_telnr) $sBauabschnitt = $tBauabschnitt $sKolone = "Hartl" $sSMNr = $tSMnr Local $sItem ;~ ? * < > . , \ + : = / " ; [ ] | $sDateiname = "" $sDateiname = $sBaustelle & "_" & $sBauabschnitt & "_" & $sSMNr & "_" & $sAbrufNr $sDateiname = StringReplace($sDateiname, "?", " ") $sDateiname = StringReplace($sDateiname, "*", " ") $sDateiname = StringReplace($sDateiname, "<", " ") $sDateiname = StringReplace($sDateiname, ">", " ") $sDateiname = StringReplace($sDateiname, ",", " ") $sDateiname = StringReplace($sDateiname, "\", " ") $sDateiname = StringReplace($sDateiname, "+", " ") $sDateiname = StringReplace($sDateiname, ":", " ") $sDateiname = StringReplace($sDateiname, "=", " ") $sDateiname = StringReplace($sDateiname, "/", " ") $sDateiname = StringReplace($sDateiname, '"', " ") $sDateiname = StringReplace($sDateiname, ";", " ") $sDateiname = StringReplace($sDateiname, "[", " ") $sDateiname = StringReplace($sDateiname, "]", " ") $sDateiname = StringReplace($sDateiname, "[", " ") $sDateiname = StringReplace($sDateiname, "{", " ") $sDateiname = StringReplace($sDateiname, "}", " ") $sDateiname = StringReplace($sDateiname, "|", " ") $sDateiname = StringReplace($sDateiname, " ", "_") $sDateiname = StringReplace($sDateiname, "__", "_") Local $hFile = FileOpen(@ScriptDir & "\_Aufmaße\_FTTH-GF\" & $sDateiname & ".txt", 2) ; Datei zum speichern (überschreiben) öffnen If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann... FileWriteLine($hFile, "[Kopfdaten]") If GUICtrlRead($kopf_tab_rd_teilauf) = $GUI_CHECKED Then FileWriteLine($hFile, "Teilaufma=X") Else FileWriteLine($hFile, "Teilaufma=") EndIf If GUICtrlRead($kopf_tab_rd_schluss) = $GUI_CHECKED Then FileWriteLine($hFile, "Schlussaufma=X") Else FileWriteLine($hFile, "Schlussaufma=") EndIf FileWriteLine($hFile, "Datum=" & $sDatum) FileWriteLine($hFile, "Baustelle=" & $sBaustelle) FileWriteLine($hFile, "AbrufNr=" & $sAbrufNr) FileWriteLine($hFile, "SMNr=" & $sSMNr) FileWriteLine($hFile, "Vertrag=" & $sVertrag) FileWriteLine($hFile, "StartZ=" & $sStartZ) FileWriteLine($hFile, "EndZ=" & $sEndZ) FileWriteLine($hFile, "AspaN=" & $sAspaN) FileWriteLine($hFile, "AspaTel=" & $sAspaTel) FileWriteLine($hFile, "Bauabschnitt=" & $sBauabschnitt) FileWriteLine($hFile, "Kolone=" & $sKolone) FileWriteLine($hFile, "[Aufmaßdaten]") ;~ _DebugArrayDisplay($aLVListe) For $i = 1 To UBound($aLVListe) - 1 ; Schleife, um alle Listview-Einträge durchzugehen) $sItem = $aLVListe[$i][0] & "|" & $aLVListe[$i][1] & "|" & $aLVListe[$i][2] & "|" & $aLVListe[$i][3] & "|" & $aLVListe[$i][4] & "|" & $aLVListe[$i][5] & "|" & $aLVListe[$i][6] & "|" & $aLVListe[$i][7] & "|" & $aLVListe[$i][8] & "|" & $aLVListe[$i][9] & "|" & $aLVListe[$i][10] & "|" & $aLVListe[$i][11] & "|" & $aLVListe[$i][12] FileWriteLine($hFile, $sItem) ; und in die Datei schreiben Next FileClose($hFile) ; Datei schließen ;~ MsgBox(64, "Datei wurde gespeichert!", "Das Aufmaß wurde gespeichert:" & @CRLF & @ScriptDir & "\Aufmaße\" & $sDateiname & ".txt") $iCount = -1 _GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe) Dim $aLVListe[1][13] = [["RSA-Abschnitt", "PositionNr", "Faktor", "Länge", "Breite", "Tiefe", "Menge", "ME", "Leistungskurztext", "Bemerkung", "Menge", "E-Preis", "Summe"]] Else MsgBox(64, "Fehler beim Speichern", "Datei => " & @CRLF & @ScriptDir & "\_Aufmaße\" & $sDateiname & ".txt" & @CRLF & "konnte nicht gespeichert werden!") EndIf EndFunc ;==>_LV_GFMontageFTTH_save2txt #EndRegion Abrechnung GF -Montage FTTH nach Bestückungsplan Func _ReadInputs2Array_ftth() $aAngaben_FTTH[1][0] = GUICtrlRead($tab7_txt_abschnitt) $aAngaben_FTTH[1][1] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_lang_privat)) $aAngaben_FTTH[1][2] = GUICtrlRead($tab7_txt_nvtname) $aAngaben_FTTH[1][3] = GUICtrlRead($tab7_txt_apnr) $aAngaben_FTTH[1][4] = GUICtrlRead($tab7_txt_anzWE) $aAngaben_FTTH[1][5] = GUICtrlRead($tab7_txt_str) $aAngaben_FTTH[1][6] = GUICtrlRead($tab7_txt_hsnr) $aAngaben_FTTH[1][7] = GUICtrlRead($tab7_dl_gfkabel) $aAngaben_FTTH[1][8] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_einblang)) $aAngaben_FTTH[1][9] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_instrohr)) $aAngaben_FTTH[1][10] = GUICtrlRead($tab7_txt_ausgabe) EndFunc ;==>_ReadInputs2Array_ftth Func _add_ftth_GFMontage() Global $sAPNr = $aAngaben_FTTH[1][3] Global $sKabelstark = $aAngaben_FTTH[1][7] Global $sStr = $aAngaben_FTTH[1][5] Global $sHsZu = $aAngaben_FTTH[1][6] Global $sAnzWE = $aAngaben_FTTH[1][4] Global $sGFlang = $aAngaben_FTTH[1][8] ; Kabelzug länge Global $sNVTName = $aAngaben_FTTH[1][2] Global $sStringName = "NVT_" & $sNVTName & "_GF_" & $sStr & "_HS_" & $sHsZu & "_AP_" & $sAPNr $sStringName = StringReplace($sStringName, " ", "_") $sStringName = StringReplace($sStringName, ".", "") GUICtrlSetData($tab7_txt_ausgabe, $sStringName) ;1-3 WE AP If $sAnzWE > 1 And $sAnzWE <= 3 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("2") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;4WE AP If $sAnzWE = 4 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("4") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;5-8 WE If $sAnzWE > 5 And $sAnzWE <= 8 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("8") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;9-12 WE If $sAnzWE > 9 And $sAnzWE <= 12 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("12") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;13-16 WE If $sAnzWE > 13 And $sAnzWE <= 16 Then ;~ ConsoleWrite($sStringName & @CRLF) If $sKabelstark = "4E" Then _check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl. EndIf If $sKabelstark = "12E" Then _check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl. EndIf _check_GF_AP_Messen("16") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;17-20 WE If $sAnzWE > 17 And $sAnzWE <= 20 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("20") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;21-24 WE If $sAnzWE > 21 And $sAnzWE <= 24 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("24") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;25-28 WE If $sAnzWE > 25 And $sAnzWE <= 28 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("28") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;29-32 WE If $sAnzWE > 29 And $sAnzWE <= 32 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("32") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;33-36 WE If $sAnzWE > 33 And $sAnzWE <= 36 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("36") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;37-40 WE If $sAnzWE > 37 And $sAnzWE <= 40 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("40") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;41-64 WE If $sAnzWE > 41 And $sAnzWE <= 64 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("64") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf ;65-96 WE If $sAnzWE > 65 And $sAnzWE <= 96 Then ;~ ConsoleWrite($sStringName & @CRLF) _check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl. _check_GF_AP_Messen("96") _check_GF_AP_Koordination() _check_GF_AP_einbl($sGFlang) EndIf EndFunc ;==>_add_ftth_GFMontage Func _check_FTTH_TB_HsEinfmo() $sText_Bemerkung = "" Dim $aProzent[6] $aProzent[1] = $aAngaben_FTTH[1][0] ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = "" ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfmo", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") $sINI_String = StringReplace($sINI_String, "%Menge%", "1,0") _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_HsEinfmo Func _check_FTTH_TB_HsEinfZmo() $sText_Bemerkung = "" Dim $aProzent[6] $aProzent[1] = "" ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] - 1) ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfZmo", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") ;~ $sINI_String = StringReplace($sINI_String, "%Leange%", _replacePunkt2Koma($aAngaben_FTTH[1][1] - 1)) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_HsEinfZmo Func _check_FTTH_TB_HsEinfoo() $sText_Bemerkung = "" Dim $aProzent[6] $aProzent[1] = $aAngaben_FTTH[1][0] ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = "" ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfoo", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") $sINI_String = StringReplace($sINI_String, "%Menge%", "1, 0") _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_HsEinfoo Func _check_FTTH_TB_HsEinfZoo() $sText_Bemerkung = "" Dim $aProzent[6] $aProzent[1] = "" ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] - 1) ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfZoo", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") ;~ $sINI_String = StringReplace($sINI_String, "%Leange%", $aAngaben_FTTH[1][1] - 1) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_HsEinfZoo Func _check_FTTH_TB_Rausl() $sText_Bemerkung = "" Dim $aProzent[6] $aProzent[1] = "" ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] + 1) ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Rausl", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") ;~ $sINI_String = StringReplace($sINI_String, "%Leange%", ) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_Rausl Func _check_FTTH_TB_Kausl() $sText_Bemerkung = "2x7 SNR" Dim $aProzent[6] $aProzent[1] = "" ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] + 2) ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Kausl", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") ;~ $sINI_String = StringReplace($sINI_String, "%Leange%", ) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_Kausl Func _check_FTTH_TB_GGRing() $sText_Bemerkung = "" Dim $aProzent[6] $aProzent[1] = $aAngaben_FTTH[1][0] ;Abschnitt $aProzent[2] = $sText_Bemerkung ; Bemerkung $aProzent[3] = "" ; Länge $aProzent[4] = "" ; Breite $aProzent[5] = "" ; Tiefe ;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GGRing", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0") $sINI_String = StringReplace($sINI_String, "%Menge%", "1,0") _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndFunc ;==>_check_FTTH_TB_GGRing Func _check_GF_AP($iNVTVerb, $iNVTab, $iAPVerb, $iAPab) $sIni_Kategorie = "FTTH-GF-NVT-APL" Dim $aProzent[6] $aProzent[1] = "Am NVT " & $sNVTName ;Abschnitt If $iNVTVerb <= 0 Then Else $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_NVT_Verb", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTVerb) ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf If $iNVTab <= 0 Then Else $aProzent[1] = "" ;Abschnitt $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_FAabl", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTab) ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf $aProzent[1] = "Am APL " & $sAPNr ;Abschnitt If $iAPVerb <= 0 Then Else $aProzent[2] = _check_WE_AP_Bemerkung() $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", $iAPVerb) ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") $aProzent[2] = "" ;~ ; ab Hier GF-Verbinden apl mit Zulage 1. Verbinden zulage jede weitere ;~ If $iAPVerb >= 1 Then ;~ $aProzent[2] =_check_WE_AP_Bemerkung() ;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA") ;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) ;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1") ;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|") ;~ $aProzent[2] = "" ;~ ;~ $aProzent[2] =_check_WE_AP_Bemerkung() ;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_VerbZU", "NA") ;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) ;~ $sINI_String = StringReplace($sINI_String, "%Menge%",$iAPVerb - 1) ;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|") ;~ $aProzent[2] = "" ;~ ;~ EndIf ;~ If $iAPVerb <= 1 Then ;~ $aProzent[2] =_check_WE_AP_Bemerkung() ;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA") ;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) ;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAPVerb) ;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|") ;~ $aProzent[2] = "" ;~ ;~ EndIf EndIf If $iAPab <= 0 Then Else $aProzent[1] = "" ;Abschnitt $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_FAabl", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", $iAPab) ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf EndFunc ;==>_check_GF_AP Func _check_WE_AP_Bemerkung() If $sAnzWE >= 1 And $sAnzWE <= 3 Then Return "GF-AP 1-3 WE" ; Bemerkung EndIf If $sAnzWE = 4 Then Return "GF-AP 4 WE" ; Bemerkung EndIf If $sAnzWE >= 5 And $sAnzWE <= 8 Then Return "GF-AP 5-8 WE" EndIf ;9-12 WE If $sAnzWE >= 9 And $sAnzWE <= 12 Then Return "GF-AP 9-12 WE" ; Bemerkung EndIf ;13-16 WE If $sAnzWE >= 13 And $sAnzWE <= 16 Then Return "GF-AP 13-16 WE" ; Bemerkung EndIf ;17-20 WE If $sAnzWE >= 17 And $sAnzWE <= 20 Then Return "GF-AP 17-20 WE" ; Bemerkung EndIf ;21-24 WE If $sAnzWE >= 21 And $sAnzWE <= 24 Then Return "GF-AP 21-24 WE" ; Bemerkung EndIf ;25-28 WE If $sAnzWE >= 25 And $sAnzWE <= 28 Then Return "GF-AP 25-28 WE" ; Bemerkung EndIf ;29-32 WE If $sAnzWE >= 29 And $sAnzWE <= 32 Then Return "GF-AP 29-32 WE" ; Bemerkung EndIf ;33-36 WE If $sAnzWE >= 33 And $sAnzWE <= 36 Then Return "GF-AP 33-36 WE" ; Bemerkung EndIf ;37-40 WE If $sAnzWE >= 37 And $sAnzWE <= 40 Then Return "GF-AP 37-40 WE" ; Bemerkung EndIf ;41-64 WE If $sAnzWE >= 41 And $sAnzWE <= 64 Then Return "GF-AP 41-64 WE" ; Bemerkung EndIf ;65-96 WE If $sAnzWE >= 65 And $sAnzWE <= 96 Then Return "GF-AP 65-96 WE" ; Bemerkung EndIf EndFunc ;==>_check_WE_AP_Bemerkung Func _check_GF_AP_Koordination() If GUICtrlRead($tab7_chb_koordinationp) = $GUI_CHECKED Then Dim $aProzent[6] $sIni_Kategorie = "FTTH-GF-NVT-APL" $aProzent[1] = "Koordination mit KD" ;Abschnitt $aProzent[2] = "Koordination mit KD" ; Bemerkung $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Koordination", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", "1") ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf EndFunc ;==>_check_GF_AP_Koordination Func _check_GF_AP_Messen($sAnzahlMessen) Dim $aProzent[6] $sIni_Kategorie = "FTTH-GF-NVT-APL" If $sAnzahlMessen >= 1 Then $aProzent[1] = "APL Messen" ;Abschnitt $aProzent[2] = "1. Faser messen" ; Bemerkung $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", "1") ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") $aProzent[1] = "" ;Abschnitt $aProzent[2] = "jede weitere Faser messen" ; Bemerkung $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_02", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", $sAnzahlMessen - 1) ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf If $sAnzahlMessen <= 1 Then $aProzent[1] = "APL Messen" ;Abschnitt $aProzent[2] = "Faser messen" ; Bemerkung $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", "1") ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf EndFunc ;==>_check_GF_AP_Messen Func _check_GF_AP_einbl($iMeter) Dim $aProzent[6] $sIni_Kategorie = "FTTH-GF-NVT-APL" If $iMeter <= 300 Then $aProzent[1] = "GF-Einblasen < 300m" ;Abschnitt $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFbis300", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", "1") ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf If $iMeter >= 300 Then $aProzent[1] = "GF-Einblasen > 300m" ;Abschnitt $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFbis300", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", "1") ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") $aProzent[1] = "" ;Abschnitt $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFgr300", "NA") $sINI_String = _string_replace_Prozent($sINI_String, $aProzent) $sINI_String = StringReplace($sINI_String, "%Menge%", $iMeter - 300) ;~ ConsoleWrite($sINI_String & @CRLF) _ArrayAdd($aLVListe, $sINI_String, 0, "|") EndIf EndFunc ;==>_check_GF_AP_einbl