193 lines
6.3 KiB
AutoIt
193 lines
6.3 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"]]
|
|
|
|
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()
|
|
|
|
$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
|
|
EndIf
|
|
EndFunc ;==>_add_ftth
|
|
|
|
Func _ReadInputs2Array_ftth()
|
|
$aAngaben_FTTH[0][0] = GUICtrlRead($tab7_txt_abschnitt)
|
|
$aAngaben_FTTH[0][1] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_lang_privat))
|
|
EndFunc ;==>_ReadInputs2Array_ftth
|
|
|
|
Func _check_FTTH_TB_HsEinfmo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[0][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] = "" ; 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 ;==>_check_FTTH_TB_HsEinfZmo
|
|
|
|
Func _check_FTTH_TB_HsEinfoo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[0][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] = "" ; 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][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] = "" ; 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][1] + 1))
|
|
_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] = "" ; 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][1] + 2))
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_Kausl
|
|
|
|
Func _check_FTTH_TB_GGRing()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[0][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
|