262 lines
8.3 KiB
AutoIt
262 lines
8.3 KiB
AutoIt
;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
|
|
|