Initial commit – AufmaßCreater v2.35
This commit is contained in:
@@ -0,0 +1,601 @@
|
||||
;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
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc ;==>_add_ftth
|
||||
|
||||
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]
|
||||
$sKabelstark = $aAngaben_FTTH[1][7]
|
||||
$sStr = $aAngaben_FTTH[1][5]
|
||||
$sHsZu = $aAngaben_FTTH[1][6]
|
||||
Global $sAnzWE = $aAngaben_FTTH[1][4]
|
||||
$sGFlang = $aAngaben_FTTH[1][8] ; Kabelzug länge
|
||||
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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user