;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