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

594 lines
20 KiB
AutoIt
Raw Permalink 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_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
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()
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, "|")
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 View Git Blame Copy Permalink