;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