182 lines
5.8 KiB
AutoIt
182 lines
5.8 KiB
AutoIt
;ahelper_ftth.au3
|
|
|
|
func _add_ftth()
|
|
Dim $aProzent[6]
|
|
|
|
Global $sIni_Kategorie = "FTTH"
|
|
$sText_Bemerkung = ""
|
|
|
|
Global $aAngaben_FTTH[2][2] = [["Abschnitt", "Länge Privat"]]
|
|
|
|
_ReadInputs2Array_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()
|
|
Else
|
|
_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[0][2] = 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
|
|
EndFunc
|
|
|
|
func _ReadInputs2Array_ftth()
|
|
$aAngaben_FTTH[0][1] = GUICtrlRead($tab7_txt_abschnitt)
|
|
$aAngaben_FTTH[0][2] = _replaceKom2Punkt(GUICtrlRead)($tab7_txt_lang_privat))
|
|
EndFunc
|
|
|
|
Func _check_FTTH_TB_HsEinfmo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[0][1] ;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
|
|
|
|
func _check_FTTH_TB_HsEinfZmo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;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, "HsEinfZmo", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] -1))
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_FTTH_TB_HsEinfoo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[0][1] ;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
|
|
|
|
func _check_FTTH_TB_HsEinfZoo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;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, "HsEinfZoo", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] -1))
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_FTTH_TB_Rausl()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;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, "Rausl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] + 1))
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_FTTH_TB_Kausl()
|
|
$sText_Bemerkung = "2x7 SNR"
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;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, "Kausl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] + 2))
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_FTTH_TB_GGRing()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[0][1] ;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 |