Initial commit – AufmaßCreater v2.35
This commit is contained in:
@@ -0,0 +1,89 @@
|
||||
;ahelper_absperrung.au3
|
||||
|
||||
Func _add_Absperrung()
|
||||
Global $aLVListe[1][13]
|
||||
|
||||
Dim $aProzent[6]
|
||||
$sIni_Kategorie = "Absperrung"
|
||||
$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
$sText_Bemerkung = GUICtrlRead($tab_ab_txt_bemerkung)
|
||||
|
||||
$aProzent[1] = GUICtrlRead($tab_ab_txt_abschnitt) ; Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
|
||||
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$iMproTag = GUICtrlRead($tab_ab_txt_anzTGe)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iMproTag)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndFunc
|
||||
|
||||
func _absperrungsPosAktu()
|
||||
_ReadInputs2Array_Absperrung()
|
||||
EndFunc
|
||||
|
||||
func _ReadInputs2Array_Absperrung()
|
||||
Global $sIniDatei = GUICtrlRead($chb_vertrag)
|
||||
If GUICtrlRead($chb_vertrag) = "" Then
|
||||
MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
|
||||
Else
|
||||
$sIni_Kategorie = "Absperrung"
|
||||
$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
;~ ConsoleWrite($sIniReadString& @CRLF)
|
||||
$aSplitt = StringSplit($sIniReadString, "|")
|
||||
GUICtrlSetData($tab_ab_ePreis, $aSplitt[12])
|
||||
$stxt_meter = Int(GUICtrlRead($tab_ab_txt_Meter)); anzahl Meter der Absperrung
|
||||
|
||||
$stxt_m_rpo_st =GUICtrlRead($tab_ab_txt_m_rpo_st); Meter Pro Stück 10
|
||||
$stxt_anz_tage =GUICtrlRead($tab_ab_txt_anz_tage); eingabe Dauer
|
||||
$stxt_anz_tag =GUICtrlRead($tab_ab_txt_anz_tag); laut Position
|
||||
$stxt_ab_ePreist =GUICtrlRead($tab_ab_ePreis); Preis
|
||||
$stxt_abschnitt = GUICtrlRead($tab_ab_txt_abschnitt)
|
||||
;~ $stxt_bemerkung =GUICtrlRead($tab_ab_txt_bemerkung)
|
||||
|
||||
$stxt_bemerkung = "(" &$stxt_meter& " Meter Absperrung / "&$stxt_m_rpo_st & "m pro Stück) x ("& $stxt_anz_tage& " Anzahl Tage - ab "& $stxt_anz_tag& " Tag )"
|
||||
GUICtrlSetData($tab_ab_txt_bemerkung, $stxt_bemerkung)
|
||||
|
||||
$iMeter = _replaceKom2Punkt($stxt_meter) /_replaceKom2Punkt($stxt_m_rpo_st); Anzahl M Absperrung / Meter Pro Stück
|
||||
$iDauerTage = _replaceKom2Punkt($stxt_anz_tage) - _replaceKom2Punkt($stxt_anz_tag) ;Tage der Absperrung Minus - 5
|
||||
If StringInStr($iDauerTage, "-") Then
|
||||
MsgBox(64, "Achtung", "Die Anzahl der Tage ist kleiner gleich (<=) " & $iDauerTage)
|
||||
GUICtrlSetData($tab_ab_txt_anzTGe, "")
|
||||
Else
|
||||
$iMproTag = _replacePunkt2Koma($iMeter * $iDauerTage)
|
||||
GUICtrlSetData($tab_ab_txt_anzTGe, $iMproTag)
|
||||
$iGPreis = _replaceKom2Punkt($aSplitt[12]) * _replaceKom2Punkt($iMproTag)
|
||||
|
||||
GUICtrlSetData($tab_ab_txt_GP, _replacePunkt2Koma($iGPreis))
|
||||
|
||||
;~ $stxt_GPt =GUICtrlRead($tab_ab_txt_GP)
|
||||
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
EndFunc
|
||||
|
||||
;~ Func _string_replace_Prozent($sString, $aArray)
|
||||
;~
|
||||
;~
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Leange%", $aArray[3]))
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Breite%", $aArray[4]))
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Tiefe%", $aArray[5]))
|
||||
;~ $sString = StringReplace($sString, "%Abschnitt%", $aArray[1])
|
||||
;~ $sString = StringReplace($sString, "%Bemerkung%", $aArray[2])
|
||||
|
||||
;~
|
||||
;~ Return $sString
|
||||
;~ EndFunc ;==>_string_replace_Prozent
|
||||
@@ -0,0 +1,182 @@
|
||||
;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
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,192 @@
|
||||
;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
|
||||
@@ -0,0 +1,437 @@
|
||||
;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 = $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, ".", "")
|
||||
EndFunc
|
||||
|
||||
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
|
||||
|
||||
|
||||
@@ -0,0 +1,593 @@
|
||||
;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
|
||||
|
||||
|
||||
@@ -0,0 +1,595 @@
|
||||
;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()
|
||||
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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,468 @@
|
||||
;ahelper_gf.au3
|
||||
|
||||
#Region GF - Montage
|
||||
|
||||
Func _add_GF_Montage()
|
||||
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_GF()
|
||||
|
||||
_check_Fasern_messen()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Fasern_messen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
||||
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
||||
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
||||
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
||||
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
||||
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
||||
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
||||
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
||||
;~ $aAngaben_GF[1][8] = _replaceKom2Punkt($iAF_mess)
|
||||
;~ $aAngaben_GF[1][9] = _replaceKom2Punkt($iAP_e_in)
|
||||
;~ $aAngaben_GF[1][10] = _replaceKom2Punkt($iAP_e_out)
|
||||
;~ $aAngaben_GF[1][11] = _replaceKom2Punkt($iAP_g)
|
||||
;~ $aAngaben_GF[1][12] = _replaceKom2Punkt($iAM_verl)
|
||||
;~ _DebugArrayDisplay($aAngaben_GF)
|
||||
;;Gräben ohne Oberbau
|
||||
Global $sIni_Kategorie = "GlasFaser"
|
||||
$sText_Bemerkung = " "
|
||||
Global $iAF = $aAngaben_GF[1][8]
|
||||
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion
|
||||
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
_check_MESS_1te_Faser()
|
||||
|
||||
|
||||
Else
|
||||
_check_MESS_xte_Faser()
|
||||
|
||||
|
||||
EndIf
|
||||
#EndRegion
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
func _check_MESS_1te_Faser()
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
_check_FTTH_kontroll_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
_check_pegelmess_1()
|
||||
EndIf
|
||||
EndFunc
|
||||
|
||||
func _check_MESS_xte_Faser()
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_kontroll_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_pegelmess_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_pegelmess_Z()
|
||||
|
||||
EndIf
|
||||
EndFunc
|
||||
|
||||
Func _check_HKMASS_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_1
|
||||
|
||||
Func _check_HKMASS_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_02
|
||||
|
||||
Func _check_HKMASS_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASSZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_Z
|
||||
|
||||
Func _check_HKINDI_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_1
|
||||
|
||||
Func _check_HKINDI_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_02
|
||||
|
||||
Func _check_HKINDI_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDIZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_Z
|
||||
|
||||
func _check_FTTH_kontroll_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_kontroll_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_GPON_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_GPON_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_pegelmess_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegel", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_pegelmess_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegelZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Baugruppe_einbauen($sText_Bemerkung)
|
||||
;~ $sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "HVT-Baugruppe einbauen" ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "BauGruppeEinAusbauen", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
EndFunc
|
||||
|
||||
#EndRegion GF - Montage
|
||||
@@ -0,0 +1,472 @@
|
||||
;ahelper_gf.au3
|
||||
|
||||
#Region GF - Montage
|
||||
|
||||
Func _add_GF_Montage()
|
||||
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_GF()
|
||||
|
||||
_check_Fasern_messen()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Fasern_messen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
||||
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
||||
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
||||
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
||||
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
||||
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
||||
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
||||
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
||||
;~ $aAngaben_GF[1][8] = _replaceKom2Punkt($iAF_mess)
|
||||
;~ $aAngaben_GF[1][9] = _replaceKom2Punkt($iAP_e_in)
|
||||
;~ $aAngaben_GF[1][10] = _replaceKom2Punkt($iAP_e_out)
|
||||
;~ $aAngaben_GF[1][11] = _replaceKom2Punkt($iAP_g)
|
||||
;~ $aAngaben_GF[1][12] = _replaceKom2Punkt($iAM_verl)
|
||||
;~ _DebugArrayDisplay($aAngaben_GF)
|
||||
;;Gräben ohne Oberbau
|
||||
Global $sIni_Kategorie = "GlasFaser"
|
||||
$sText_Bemerkung = " "
|
||||
Global $iAF = $aAngaben_GF[1][8]
|
||||
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
_check_MESS_1te_Faser()
|
||||
Else
|
||||
_check_MESS_xte_Faser()
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
Func _check_MESS_1te_Faser()
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
_check_FTTH_kontroll_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
_check_pegelmess_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
EndFunc ;==>_check_MESS_1te_Faser
|
||||
|
||||
Func _check_MESS_xte_Faser()
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_kontroll_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_pegelmess_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_pegelmess_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
EndFunc ;==>_check_MESS_xte_Faser
|
||||
|
||||
Func _check_HKMASS_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_1
|
||||
|
||||
Func _check_HKMASS_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_02
|
||||
|
||||
Func _check_HKMASS_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASSZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_Z
|
||||
|
||||
Func _check_HKINDI_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_1
|
||||
|
||||
Func _check_HKINDI_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_02
|
||||
|
||||
Func _check_HKINDI_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDIZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_Z
|
||||
|
||||
Func _check_FTTH_kontroll_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_kontroll_1
|
||||
|
||||
Func _check_FTTH_kontroll_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_kontroll_02
|
||||
|
||||
Func _check_FTTH_GPON_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_GPON_1
|
||||
|
||||
Func _check_FTTH_GPON_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_GPON_02
|
||||
|
||||
Func _check_pegelmess_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegel", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_pegelmess_1
|
||||
|
||||
Func _check_pegelmess_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegelZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_pegelmess_Z
|
||||
|
||||
Func _check_Baugruppe_einbauen($sText_Bemerkung)
|
||||
;~ $sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "HVT-Baugruppe einbauen" ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "BauGruppeEinAusbauen", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
EndFunc ;==>_check_Baugruppe_einbauen
|
||||
|
||||
#EndRegion GF - Montage
|
||||
@@ -0,0 +1,480 @@
|
||||
;ahelper_gf.au3
|
||||
|
||||
#Region GF - Montage
|
||||
|
||||
Func _add_GF_Montage()
|
||||
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_GF()
|
||||
|
||||
_check_Fasern_messen()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Fasern_messen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
||||
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
||||
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
||||
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
||||
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
||||
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
||||
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
||||
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
||||
;~ $aAngaben_GF[1][8] = _replaceKom2Punkt($iAF_mess)
|
||||
;~ $aAngaben_GF[1][9] = _replaceKom2Punkt($iAP_e_in)
|
||||
;~ $aAngaben_GF[1][10] = _replaceKom2Punkt($iAP_e_out)
|
||||
;~ $aAngaben_GF[1][11] = _replaceKom2Punkt($iAP_g)
|
||||
;~ $aAngaben_GF[1][12] = _replaceKom2Punkt($iAM_verl)
|
||||
;~ _DebugArrayDisplay($aAngaben_GF)
|
||||
;;Gräben ohne Oberbau
|
||||
Global $sIni_Kategorie = "GlasFaser"
|
||||
$sText_Bemerkung = " "
|
||||
Global $iAF = $aAngaben_GF[1][8]
|
||||
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
_check_FTTH_kontroll_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
_check_pegelmess_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
Else
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_kontroll_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_pegelmess_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_pegelmess_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
Func _check_MESS_1te_Faser()
|
||||
|
||||
EndFunc ;==>_check_MESS_1te_Faser
|
||||
|
||||
Func _check_MESS_xte_Faser()
|
||||
|
||||
EndFunc ;==>_check_MESS_xte_Faser
|
||||
|
||||
Func _check_HKMASS_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_1
|
||||
|
||||
Func _check_HKMASS_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_02
|
||||
|
||||
Func _check_HKMASS_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASSZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_Z
|
||||
|
||||
Func _check_HKINDI_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_1
|
||||
|
||||
Func _check_HKINDI_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_02
|
||||
|
||||
Func _check_HKINDI_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDIZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_Z
|
||||
|
||||
Func _check_FTTH_kontroll_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_kontroll_1
|
||||
|
||||
Func _check_FTTH_kontroll_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_kontroll_02
|
||||
|
||||
Func _check_FTTH_GPON_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_GPON_1
|
||||
|
||||
Func _check_FTTH_GPON_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_GPON_02
|
||||
|
||||
Func _check_pegelmess_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegel", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_pegelmess_1
|
||||
|
||||
Func _check_pegelmess_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegelZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_pegelmess_Z
|
||||
|
||||
Func _check_Baugruppe_einbauen($sText_Bemerkung)
|
||||
;~ $sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "HVT-Baugruppe einbauen" ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "BauGruppeEinAusbauen", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
EndFunc ;==>_check_Baugruppe_einbauen
|
||||
|
||||
#EndRegion GF - Montage
|
||||
@@ -0,0 +1,847 @@
|
||||
;ahelper_gf.au3
|
||||
|
||||
#Region GF - Montage
|
||||
|
||||
Func _add_GF_Montage()
|
||||
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_GF()
|
||||
|
||||
_check_Vertrag()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Vertrag()
|
||||
Dim $aProzent[6]
|
||||
|
||||
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
||||
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
||||
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
||||
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
||||
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
||||
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
||||
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
||||
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
||||
;~ $aAngaben_GF[1][8] = _replaceKom2Punkt($iAF_mess)
|
||||
;~ $aAngaben_GF[1][9] = _replaceKom2Punkt($iAP_e_in)
|
||||
;~ $aAngaben_GF[1][10] = _replaceKom2Punkt($iAP_e_out)
|
||||
;~ $aAngaben_GF[1][11] = _replaceKom2Punkt($iAP_g)
|
||||
;~ $aAngaben_GF[1][12] = _replaceKom2Punkt($iAM_verl)
|
||||
;~ _DebugArrayDisplay($aAngaben_GF)
|
||||
;;Gräben ohne Oberbau
|
||||
Global $sIni_Kategorie = "GlasFaser"
|
||||
$sText_Bemerkung = " "
|
||||
Global $iAF = $aAngaben_GF[1][8]
|
||||
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
||||
#Region -Messen
|
||||
;~ Mass = x, Indi = 0, GPON = x, Kontroll = 0, Pegel = 0
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
_check_FTTH_kontroll_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
_check_pegelmess_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_kontroll_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_kontroll_02()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_pegelmess_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_pegelmess_Z()
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
|
||||
#EndRegion Baugruppe einbauen
|
||||
#Region GF-Innen/Verlegen/SNR
|
||||
|
||||
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
||||
_check_GF_Innen()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
||||
_check_InKaSNRBef()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
||||
_check_Auskabelbef()
|
||||
EndIf
|
||||
|
||||
#EndRegion GF-Innen
|
||||
#Region GF-Muffen
|
||||
|
||||
;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
|
||||
_check_Kabelaufnwiederein()
|
||||
;GF -Fasern verbinden
|
||||
_check_fasernverbinden()
|
||||
;GF-Fasern ablegen
|
||||
_check_Fasernablegen()
|
||||
;Muffe herstellen
|
||||
_check_Muffe_bauen()
|
||||
;Kabelschacht öffnen
|
||||
_check_GFMuffeKsch()
|
||||
#EndRegion GF-Muffen
|
||||
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
;~ Mass = x, Indi = 0, GPON = 0, Kontroll = 0, Pegel = 0
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
_check_FTTH_kontroll_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
_check_pegelmess_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_kontroll_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_kontroll_02()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_pegelmess_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_pegelmess_Z()
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
#Region GF-Innen/Verlegen/SNR
|
||||
|
||||
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
||||
_check_GF_Innen()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
||||
_check_InKaSNRBef()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
||||
_check_Auskabelbef()
|
||||
EndIf
|
||||
|
||||
#EndRegion GF-Innen
|
||||
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
Else
|
||||
|
||||
;zuerst die erste Faser 1 Stück
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_02()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
#Region GF-Innen/Verlegen/SNR
|
||||
|
||||
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
||||
_check_GF_Innen()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
||||
_check_InKaSNRBef()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
||||
_check_Auskabelbef()
|
||||
EndIf
|
||||
|
||||
#EndRegion GF-Innen
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
|
||||
#Region -Messen
|
||||
If $iAF <= 1 Then
|
||||
; wenn Anzahl Fasern 1 dann
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
_check_HKMASS_1()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
_check_HKINDI_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
_check_FTTH_kontroll_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
_check_pegelmess_1()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
_check_FTTH_GPON_1()
|
||||
EndIf
|
||||
Else
|
||||
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKMASS_1()
|
||||
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKMASS_Z()
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_HKINDI_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_HKINDI_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_kontroll_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_kontroll_02()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_pegelmess_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_pegelmess_Z()
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
||||
;zuerst die erste Faser 1 Stück
|
||||
_check_FTTH_GPON_1()
|
||||
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
||||
_check_FTTH_GPON_02()
|
||||
EndIf
|
||||
EndIf
|
||||
#EndRegion -Messen
|
||||
#Region Baugruppe einbauen
|
||||
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
||||
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
||||
EndIf
|
||||
#EndRegion Baugruppe einbauen
|
||||
#Region GF-Innen/Verlegen/SNR
|
||||
|
||||
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
||||
_check_GF_Innen()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
||||
_check_InKaSNRBef()
|
||||
EndIf
|
||||
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
||||
_check_Auskabelbef()
|
||||
EndIf
|
||||
|
||||
#EndRegion GF-Innen
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
Func _check_HKMASS_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_1
|
||||
|
||||
Func _check_HKMASS_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASS", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_02
|
||||
|
||||
Func _check_HKMASS_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASSZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKMASS_Z
|
||||
|
||||
Func _check_HKINDI_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_1
|
||||
|
||||
Func _check_HKINDI_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDI", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_02
|
||||
|
||||
Func _check_HKINDI_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDIZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_HKINDI_Z
|
||||
|
||||
Func _check_FTTH_kontroll_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_kontroll_1
|
||||
|
||||
Func _check_FTTH_kontroll_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_kontroll_02
|
||||
|
||||
Func _check_FTTH_GPON_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_GPON_1
|
||||
|
||||
Func _check_FTTH_GPON_02()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_GPON_02
|
||||
|
||||
Func _check_pegelmess_1()
|
||||
$sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegel", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_pegelmess_1
|
||||
|
||||
Func _check_pegelmess_Z()
|
||||
$sText_Bemerkung = "weitere Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegelZU", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_pegelmess_Z
|
||||
|
||||
Func _check_Baugruppe_einbauen($sText_Bemerkung)
|
||||
;~ $sText_Bemerkung = "1. Faser-messen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "HVT-Baugruppe einbauen" ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "BauGruppeEinAusbauen", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
EndFunc ;==>_check_Baugruppe_einbauen
|
||||
|
||||
func _check_GF_Innen()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_GF[1][12] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF-Innen", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_InKaSNRBef()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_GF[1][12] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "InstKanSNRbe", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Auskabelbef()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_GF[1][12] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AusKBef", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Kabelaufnwiederein()
|
||||
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
||||
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
||||
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
||||
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
||||
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
||||
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
||||
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
||||
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
||||
local $iAnzahl = 0
|
||||
if $aAngaben_GF[1][1] <> "" and GUICtrlRead($tab4_chb_A1_neu) = $GUI_UNCHECKED Then
|
||||
$iAnzahl = $iAnzahl + 1
|
||||
EndIf
|
||||
if $aAngaben_GF[1][2] <> "" and GUICtrlRead($tab4_chb_G1_neu) = $GUI_UNCHECKED Then
|
||||
$iAnzahl =$iAnzahl + 1
|
||||
EndIf
|
||||
if $aAngaben_GF[1][3] <> "" and GUICtrlRead($tab4_chb_G2_neu) = $GUI_UNCHECKED Then
|
||||
$iAnzahl =$iAnzahl + 1
|
||||
EndIf
|
||||
if $aAngaben_GF[1][4] <> "" and GUICtrlRead($tab4_chb_G3_neu) = $GUI_UNCHECKED Then
|
||||
$iAnzahl =$iAnzahl + 1
|
||||
EndIf
|
||||
if $aAngaben_GF[1][5] <> "" and GUICtrlRead($tab4_chb_G4_neu) = $GUI_UNCHECKED Then
|
||||
$iAnzahl =$iAnzahl + 1
|
||||
EndIf
|
||||
if $aAngaben_GF[1][6] <> "" and GUICtrlRead($tab4_chb_G5_neu) = $GUI_UNCHECKED Then
|
||||
$iAnzahl =$iAnzahl + 1
|
||||
EndIf
|
||||
|
||||
If $iAnzahl = 0 Then
|
||||
Return
|
||||
EndIf
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $iAnzahl & " Kabel aufnehmen sichern und nach Montage wieder ablegen" ; Bemerkung
|
||||
$aProzent[3] = "15,0" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFMKabelaufnw", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", $iAnzahl)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", "15,0")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Fasernablegen()
|
||||
local $iFasernablage = 0
|
||||
local $iAnzFaserverb = _replaceKom2Punkt($aAngaben_GF[1][7])
|
||||
Local $iSumme = 0
|
||||
ConsoleWrite("1: " & $aAngaben_GF[1][1] & @CRLF)
|
||||
ConsoleWrite("2: " & $aAngaben_GF[1][2] & @CRLF)
|
||||
ConsoleWrite("3: " & $aAngaben_GF[1][3] & @CRLF)
|
||||
ConsoleWrite("4: " & $aAngaben_GF[1][4] & @CRLF)
|
||||
ConsoleWrite("5: " & $aAngaben_GF[1][5] & @CRLF)
|
||||
ConsoleWrite("6: " & $aAngaben_GF[1][6] & @CRLF)
|
||||
|
||||
;~ $iSumme = $aAngaben_GF[1][1] + $aAngaben_GF[1][2] + $aAngaben_GF[1][3] + $aAngaben_GF[1][4] + $aAngaben_GF[1][5] + $aAngaben_GF[1][6]
|
||||
;~ ConsoleWrite("Summe: " & $iSumme & @CRLF)
|
||||
if GUICtrlRead($tab4_chb_A1_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][1]
|
||||
ConsoleWrite("Fasernablegen1: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G1_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][2]
|
||||
ConsoleWrite("Fasernablegen2: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][3]
|
||||
ConsoleWrite("Fasernablegen3: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][4]
|
||||
ConsoleWrite("Fasernablegen4: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][5]
|
||||
ConsoleWrite("Fasernablegen5: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][6]
|
||||
ConsoleWrite("Fasernablegen: 6" & $iSumme & @CRLF)
|
||||
EndIf
|
||||
$iAblegen = ($iSumme - $iAnzFaserverb) / 2
|
||||
ConsoleWrite("Fasernablegen: " & $iSumme & @CRLF)
|
||||
ConsoleWrite("Fasernverbinden: " &$iAnzFaserverb & @CRLF)
|
||||
|
||||
|
||||
if $iAblegen <= 0 Then
|
||||
Return
|
||||
EndIf
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = "" ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFFaseernAbl", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($iAblegen))
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_fasernverbinden()
|
||||
|
||||
local $iInOu = ""
|
||||
if GUICtrlRead($tab4_chb_indoor) = $GUI_CHECKED Then
|
||||
$iInOu = "GFFasernVerbin"
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_outdoor) = $GUI_CHECKED Then
|
||||
$iInOu = "GFFasernVerbout"
|
||||
EndIf
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, $iInOu, "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][7])
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Muffe_bauen()
|
||||
local $MFaktor = 1.0
|
||||
|
||||
if GUICtrlRead($tab4_chb_Muffe_neu) = $GUI_CHECKED then
|
||||
|
||||
if GUICtrlRead($tab4_chb_A1_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][1]
|
||||
ConsoleWrite("Fasernablegen1: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G1_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][2]
|
||||
ConsoleWrite("Fasernablegen2: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][3]
|
||||
ConsoleWrite("Fasernablegen3: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][4]
|
||||
ConsoleWrite("Fasernablegen4: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][5]
|
||||
ConsoleWrite("Fasernablegen5: " & $iSumme & @CRLF)
|
||||
EndIf
|
||||
if GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED then
|
||||
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][6]
|
||||
ConsoleWrite("Fasernablegen: 6" & $iSumme & @CRLF)
|
||||
EndIf
|
||||
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFMuffebauen", "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, "|")
|
||||
EndIf
|
||||
|
||||
|
||||
EndFunc
|
||||
|
||||
func _check_GFMuffeKsch()
|
||||
if GUICtrlRead($tab4_chb_MuffeKsch) = $GUI_CHECKED then
|
||||
$sText_Bemerkung = "Ksch öffnen"
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "" ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Sonstiges", "Kschoffnen", "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, "|")
|
||||
Else
|
||||
Return
|
||||
EndIf
|
||||
EndFunc
|
||||
#EndRegion GF - Montage
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,261 @@
|
||||
;ahelper_kabelzug.au3
|
||||
|
||||
Global $aAngaben_kabelzug[2][5] = [["Abschnitt von", "Abschnit bis", "Länge", "Anzahl Ksch", "Bezeichn Ksch"]]
|
||||
|
||||
Func _ReadInputs2Array_Kabelzug()
|
||||
|
||||
$aAngaben_kabelzug[1][0] = GUICtrlRead($tab6_txt_abschn_von) ;Abschnitt von
|
||||
$aAngaben_kabelzug[1][1] = GUICtrlRead($tab6_txt_abschnitt_bis) ; Abschnitt bis
|
||||
$aAngaben_kabelzug[1][2] = _replaceKom2Punkt(GUICtrlRead($tab6_txt_lang)) ; Länge
|
||||
$aAngaben_kabelzug[1][3] = GUICtrlRead($tab6_txt_anzksch)
|
||||
$aAngaben_kabelzug[1][4] = GUICtrlRead($tab6_txt_bezeichKsch)
|
||||
|
||||
EndFunc ;==>_ReadInputs2Array_GF
|
||||
|
||||
Func _felder_tab6_zurucksetzen()
|
||||
GUICtrlSetData($tab6_txt_abschn_von, "")
|
||||
GUICtrlSetData($tab6_txt_abschnitt_bis, "")
|
||||
GUICtrlSetData($tab6_txt_lang, "")
|
||||
GUICtrlSetData($tab6_txt_anzksch, "")
|
||||
GUICtrlSetData($tab6_txt_bezeichKsch, "")
|
||||
|
||||
|
||||
GUICtrlSetState($tab6_chb_12gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_22x7, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_24gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_36gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_3pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_48gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_5pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_72gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_7pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_7x12, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_8x7, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_96gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_cugr, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_cukl, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_belegtrh, $GUI_UNCHECKED)
|
||||
|
||||
EndFunc ;==>_felder_tab4_zurucksetzen
|
||||
|
||||
func _add_Kabelzug()
|
||||
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_Kabelzug()
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then
|
||||
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
|
||||
;3 Pipes in MFR
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
_check_Einblassen()
|
||||
EndIf
|
||||
|
||||
; 5 Pipes in MFR
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650001474") Then
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650003044") Then
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650003822") Then
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc
|
||||
|
||||
func _check_Kabelschaechte()
|
||||
$sText_Bemerkung = $aAngaben_kabelzug[1][4]; Bezeichnung der kabelschächte
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "Kabelschächte öffnen " ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "ZuKsch", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_kabelzug[1][3])
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Einblassen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
$sAbschnitt = $aAngaben_kabelzug[1][0] & " bis " & $aAngaben_kabelzug[1][1]
|
||||
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "3 Pipes in MFR-kl"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_5pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "5 Pipes in MFR-gr"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_7pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "7 in DN 50"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_12gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "12 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_24gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "24 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_36gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "36 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_48gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "48 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_72gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "72 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_96gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung ="96 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
|
||||
$aProzent[1] = $sAbschnitt ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_kabelzug[1][2] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
||||
If GUICtrlRead($tab6_belegtrh) = $GUI_CHECKED Then
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBlbe", "NA")
|
||||
Else
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBlunbe", "NA")
|
||||
EndIf
|
||||
|
||||
$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)
|
||||
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_5pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_7pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_12gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_24gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_36gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_48gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_72gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_96gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc
|
||||
|
||||
Func _check_Einbringen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = $aAngaben_kabelzug[1][0] & " bis " & $aAngaben_kabelzug[1][1]
|
||||
|
||||
If GUICtrlRead($tab6_chb_7x12) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVe 7x12"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_8x7) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVE 8x7 " & GUICtrlRead($tab6_dl_verbfarbe)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_22x7) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVE 22x7 " & GUICtrlRead($tab6_dl_verbfarbe)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cugr) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "CU 6-100 DA"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cukl) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "CU > 100 DA"
|
||||
EndIf
|
||||
|
||||
|
||||
$aProzent[1] = $sAbschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_kabelzug[1][2] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
||||
|
||||
If GUICtrlRead($tab6_belegtrh) = $GUI_CHECKED Then
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBRbe", "NA")
|
||||
$aProzent[2] = $sText_Bemerkung & " in belegtes Rohr"
|
||||
Else
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBRunbe", "NA")
|
||||
EndIf
|
||||
|
||||
$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)
|
||||
If GUICtrlRead($tab6_chb_7x12) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_8x7) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_22x7) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cugr) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cukl) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc
|
||||
|
||||
Reference in New Issue
Block a user