fk/aufmass-web
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
84c933ea9ccc1b3ddd9fedff5917ba71ab2886ac
aufmass-web/_legacy/includes/aHelper/BackUp/ahelper_ftth_old9.au3
T

1206 lines
40 KiB
AutoIt
Raw Blame History

;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
;~ _DebugArrayDisplay($aLVListe)
_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
; Nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP($sAnzWE, 4 -$sAnzWE, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
If $sKabelstark = "12E" Then
; Nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP($sAnzWE, 12 -$sAnzWE, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
_check_InKaSNRBef_FTTH()
_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
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(1, 3, 1, 3) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
If $sKabelstark = "12E" Then
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(1, 11, 1, 11) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
_check_InKaSNRBef_FTTH()
_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
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(2, 2, 2, 2) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
If $sKabelstark = "12E" Then
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
_check_InKaSNRBef_FTTH()
_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
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
If $sKabelstark = "12E" Then
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
_check_InKaSNRBef_FTTH()
_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
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(4, 8, 4, 8) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(5, 7, 5, 7) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(6, 6, 6, 6) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(7, 5, 7, 5) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(8, 4, 8, 4) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(9, 3, 9, 3) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(10, 2, 10, 2) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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)
;nach Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
Else
_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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, "|")
;eigentlich Richtig wäre erste Faser NVT verbinden dann Zulage
;~ $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%", "1,0")
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_NVT_VerbZU", "NA")
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTVerb -1)
;~ _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, "|")
;eigentlich Richtig wäre erste Faser NVT verbinden dann Zulage
;~ $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%", "1,0")
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_NVT_VerbZU", "NA")
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTVerb -1)
;~ _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
;apl montieren nur bei Oli
if GUICtrlRead($tab7_chb_oli) = $GUI_CHECKED Then
$aProzent[1] = "" ;Abschnitt
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "GlasFaser", "GF-AP-bef", "NA")
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
$sINI_String = StringReplace($sINI_String, "%Bemerkung%", "APL montieren")
_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
Func _check_InKaSNRBef_FTTH()
If GUICtrlRead($tab7_txt_instrohr) <> "" Then
$sText_Bemerkung = ""
Dim $aProzent[6]
$aProzent[1] = "" ;Abschnitt
$aProzent[2] = $sText_Bemerkung ; Bemerkung
$aProzent[3] = GUICtrlRead($tab7_txt_instrohr) ; Länge
$aProzent[4] = "" ; Breite
$aProzent[5] = "" ; Tiefe
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "GlasFaser", "InstKanSNRbe", "NA")
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
$sINI_String = StringReplace($sINI_String, "%Menge%", $aProzent[3])
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndIf
EndFunc ;==>_check_InKaSNRBef_FTTH
Reference in New Issue View Git Blame Copy Permalink