Initial commit – AufmaßCreater v2.35
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user