;ahelper_gf.au3

#Region GF - Montage

Func _add_GF_Montage()
	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_GF()
		
		_check_Fasern_messen()
		
		_ArrayDelete($aLVListe, 0)
		$iCount = -1
		_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)

		Global $aLVListe[1][13]
	EndIf
	
EndFunc   ;==>_add_GF_Montage

Func _check_Fasern_messen()
	Dim $aProzent[6]
	
;~ 	$aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
;~ 	$aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
;~ 	$aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
;~ 	$aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
;~ 	$aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
;~ 	$aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
;~ 	$aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
;~ 	$aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
;~ 	$aAngaben_GF[1][8] = _replaceKom2Punkt($iAF_mess)
;~ 	$aAngaben_GF[1][9] = _replaceKom2Punkt($iAP_e_in)
;~ 	$aAngaben_GF[1][10] = _replaceKom2Punkt($iAP_e_out)
;~ 	$aAngaben_GF[1][11] = _replaceKom2Punkt($iAP_g)
;~ 	$aAngaben_GF[1][12] = _replaceKom2Punkt($iAM_verl)
;~ 	_DebugArrayDisplay($aAngaben_GF)
	;;Gräben ohne Oberbau
	Global $sIni_Kategorie = "GlasFaser"
	$sText_Bemerkung = " "
	Global $iAF = $aAngaben_GF[1][8]
	
	
	$sVertragString = GUICtrlRead($chb_vertrag)
	If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
		#Region -Messen
		If $iAF <= 1 Then
			; wenn Anzahl Fasern 1 dann
			If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				_check_HKMASS_1()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				_check_HKINDI_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
				_check_FTTH_GPON_1()
			EndIf
		Else
			
			If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_HKMASS_1()
				
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKMASS_Z()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_HKINDI_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKINDI_Z()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_FTTH_GPON_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_FTTH_GPON_02()
				
			EndIf
		EndIf
		#EndRegion
		
		#Region Baugruppe einbauen
		If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
		EndIf
		#EndRegion Baugruppe einbauen
	EndIf
	If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
		#Region -Messen
		If $iAF <= 1 Then
			; wenn Anzahl Fasern 1 dann
			If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				_check_HKMASS_1()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				_check_HKINDI_1()
			EndIf
		Else
			
			;zuerst die erste Faser 1 Stück
			If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				_check_HKMASS_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKMASS_02()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_HKINDI_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKINDI_Z()
			EndIf
		EndIf
		#EndRegion
		#Region Baugruppe einbauen
		If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
		EndIf
		#EndRegion Baugruppe einbauen
	EndIf
	If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
		#Region -Messen
		If $iAF <= 1 Then
			; wenn Anzahl Fasern 1 dann
			If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				_check_HKMASS_1()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				_check_HKINDI_1()
			EndIf
		Else
			
			;zuerst die erste Faser 1 Stück
			If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				_check_HKMASS_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKMASS_02()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_HKINDI_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKINDI_Z()
			EndIf
		EndIf
		#EndRegion
		#Region Baugruppe einbauen
		If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
		EndIf
		#EndRegion Baugruppe einbauen
	EndIf
	If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
		#Region -Messen
		If $iAF <= 1 Then
			; wenn Anzahl Fasern 1 dann
			_check_MESS_1te_Faser()
			
			
		Else
			_check_MESS_xte_Faser()
			
		
		EndIf
		#EndRegion
		#Region Baugruppe einbauen
		If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
		EndIf
		If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
			_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
		EndIf
		#EndRegion Baugruppe einbauen
	EndIf

EndFunc   ;==>_check_Fasern_messen

func _check_MESS_1te_Faser()
	If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				_check_HKMASS_1()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				_check_HKINDI_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
				_check_FTTH_kontroll_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_1()
			EndIf
EndFunc

func _check_MESS_xte_Faser()
	If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_HKMASS_1()
				
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKMASS_Z()
			EndIf
			
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_HKINDI_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKINDI_Z()
				
			EndIf
			If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_FTTH_kontroll_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_HKINDI_Z()
				
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				;zuerst die erste Faser 1 Stück
				_check_pegelmess_1()
				; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
				_check_pegelmess_Z()
				
			EndIf
EndFunc

Func _check_HKMASS_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenHKMASS", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")

	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_HKMASS_1

Func _check_HKMASS_02()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_graben[1][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, "MessenHKMASS", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_HKMASS_02

Func _check_HKMASS_Z()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_graben[1][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, "MessenHKMASSZU", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_HKMASS_Z

Func _check_HKINDI_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenHKINDI", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_HKINDI_1

Func _check_HKINDI_02()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_graben[1][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, "MessenHKINDI", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
	$sINI_String = StringReplace($sINI_String, $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_HKINDI_02

Func _check_HKINDI_Z()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_graben[1][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, "MessenHKINDIZU", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_HKINDI_Z

func _check_FTTH_kontroll_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenFTTH", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _check_FTTH_kontroll_02()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenFTTH", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "0,2")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _check_FTTH_GPON_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenGPON", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _check_FTTH_GPON_02()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenGPON", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "0,2")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _check_pegelmess_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenPegel", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _check_pegelmess_Z()
	$sText_Bemerkung = "weitere Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;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, $sIni_Kategorie, "MessenPegelZU", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc

func _check_Baugruppe_einbauen($sText_Bemerkung)
;~ 	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = "HVT-Baugruppe einbauen" ;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, $sIni_Kategorie, "BauGruppeEinAusbauen", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	
EndFunc

#EndRegion GF - Montage