Initial commit – AufmaßCreater v2.35
This commit is contained in:
@@ -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