;ahelper_gf.au3
Global $aAngaben_GF[2][13] = [["Muffenbez.", "AnzFA-A1", "AnzFA-G1", "AnzFA-G2", "AnzFA-G3", "AnzFA-G4", "AnzFA-G5", "AnzFA-verb", "AnzFA-Mess", "AnzahlPigtails_Einz_IN", "AnzahlPigtails_Einz_Out", "AnzahlPigtails_Gruppen", "Anzahl Meter verlegen"]]


#Region GF - Montage

Func _ReadInputs2Array_GF()
	$sMuffenbezeichnung = GUICtrlRead($tab4_txt_Muffbz)
	$iAF_A1 = GUICtrlRead($tab4_txt_AF_A1)
	$iAF_G1 = GUICtrlRead($tab4_txt_AF_G1)
	$iAF_G2 = GUICtrlRead($tab4_txt_AF_G2)
	$iAF_G3 = GUICtrlRead($tab4_txt_AF_G3)
	$iAF_G4 = GUICtrlRead($tab4_txt_AF_G4)
	$iAF_G5 = GUICtrlRead($tab4_txt_AF_G5)
	$iAF_verb = GUICtrlRead($tab4_txt_anz_Fasern_verb)
	$iAF_mess = GUICtrlRead($tab4_txt_anz_fasern_mess)
	$iAP_e_in = GUICtrlRead($tab4_txt_anz_pig_e_in)
	$iAP_e_out = GUICtrlRead($tab4_txt_anz_pig_e_out)
	$iAP_g = GUICtrlRead($tab4_txt_anz_g_pig)
	$iAM_verl = GUICtrlRead($tab4_txt_m_verl)
	
	$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)
EndFunc   ;==>_ReadInputs2Array_GF


;GF-Montage
Func _felder_tab4_zurucksetzen()
	GUICtrlSetData($tab4_txt_Muffbz, "")
	GUICtrlSetData($tab4_txt_AF_A1, "")
	GUICtrlSetData($tab4_txt_AF_G1, "")
	GUICtrlSetData($tab4_txt_AF_G2, "")
	GUICtrlSetData($tab4_txt_AF_G3, "")
	GUICtrlSetData($tab4_txt_AF_G4, "")
	GUICtrlSetData($tab4_txt_AF_G5, "")
	GUICtrlSetData($tab4_txt_anz_Fasern_verb, "")
	GUICtrlSetData($tab4_txt_anz_fasern_mess, "")
	GUICtrlSetData($tab4_txt_anz_pig_e_in, "")
	GUICtrlSetData($tab4_txt_anz_pig_e_out, "")
	GUICtrlSetData($tab4_txt_anz_g_pig, "")
	GUICtrlSetData($tab4_txt_m_verl, "")
	
;~ 	GUICtrlSetState($tab2_chb_winterbau, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_indoor, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_outdoor, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_A1_neu, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_G2_neu, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_G4_neu, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_G1_neu, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_G3_neu, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_G5_neu, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_mess_mass, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_mess_indi, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_mess_gpon, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_s_bau_ein, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_p_bau_ein, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_sp_bau_ein, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_GFInnen, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_kanSNr, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_ausenbe, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_mess_kontro, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_mess_pegel, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_gfap, $GUI_UNCHECKED)
	GUICtrlSetState($tab4_chb_gfap_mfg, $GUI_UNCHECKED)
EndFunc   ;==>_felder_tab4_zurucksetzen

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

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

Func _check_Vertrag()
	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
;~ 		Mass = x, Indi = 0, GPON = x,  Kontroll = 0,  Pegel = 0
		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
			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
		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
			
			If GUICtrlRead($tab4_chb_mess_kontro) = $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_FTTH_kontroll_02()
				
			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
		EndIf
		#EndRegion -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
		
	EndIf
	If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
		#Region -Messen
;~ 		Mass = x, Indi = 0, GPON = 0,  Kontroll = 0,  Pegel = 0
		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
			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
		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
			
			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
			
			If GUICtrlRead($tab4_chb_mess_kontro) = $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_FTTH_kontroll_02()
				
			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
		EndIf
		#EndRegion -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	If StringInStr($sVertragString, "4650003822") Then ;4650003822_	S23 Regel Ü-Wege
		#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_kontro) = $GUI_CHECKED Then
				_check_FTTH_kontroll_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
				
			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	If StringInStr($sVertragString, "4650005993") Then ;4650005993 Regel >10Tsd.? Lindau
		#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_kontro) = $GUI_CHECKED Then
				_check_FTTH_kontroll_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
				
			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	If StringInStr($sVertragString, "4650007105") Then ;4650007105_S23 Regel <20T? Los 4 Kempten (...
		#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_kontro) = $GUI_CHECKED Then
				_check_FTTH_kontroll_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
				
			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	If StringInStr($sVertragString, "4650007106") Then ;4650007106 / Projekte,Regel >20T? Los...
		#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_kontro) = $GUI_CHECKED Then
				_check_FTTH_kontroll_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
				
			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	If StringInStr($sVertragString, "4650007107") Then ;4650007107__S23-Entstören_Los_4_KE
		#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_kontro) = $GUI_CHECKED Then
				_check_FTTH_kontroll_1()
			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
				
			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	If StringInStr($sVertragString, "SW31-Probevertrag-Entstörung-Tiefbau") Then ; Entstörvertrag Technikpartner
		#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_kontro) = $GUI_CHECKED Then
;~ 				_check_FTTH_kontroll_1()
;~ 			EndIf
;~ 			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
;~ 				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
;~ 				
;~ 			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
;~ 			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 -Messen
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
;~ 			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
			#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
	
	EndIf
	
	If StringInStr($sVertragString, "4650002630") Then ;DBM RV Vertrag
		#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_kontro) = $GUI_CHECKED Then
;~ 				_check_FTTH_kontroll_1()
;~ 			EndIf
;~ 			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
;~ 				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
;~ 				
;~ 			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
;~ 			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	
	If StringInStr($sVertragString, "LV-Spaichingen") Then ;LV-Spaichingen
		#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_kontro) = $GUI_CHECKED Then
;~ 				_check_FTTH_kontroll_1()
;~ 			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
;~ 				
;~ 			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
;~ 			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	
	;###################### noch ändern
	If StringInStr($sVertragString, "LV-PushPK-Isny") Then ;LV-PushPK-Isny
		#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_kontro) = $GUI_CHECKED Then
;~ 				_check_FTTH_kontroll_1()
;~ 			EndIf
			If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
				_check_pegelmess_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_kontro) = $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_FTTH_kontroll_02()
;~ 				
;~ 			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
			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 -Messen
		#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
		#Region GF-Innen/Verlegen/SNR
		
		If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
			_check_GF_Innen()
		EndIf
		If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
			_check_InKaSNRBef()
		EndIf
		If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
			_check_Auskabelbef()
		EndIf
		
		#EndRegion GF-Innen/Verlegen/SNR
		#Region GF-Muffen
		If GUICtrlRead($tab4_txt_Muffbz) = "" Then
		Else
			;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
;~ 			_check_Kabelaufnwiederein()
			;GF -Fasern verbinden
			_check_fasernverbinden()
			;GF-Fasern ablegen
			_check_Fasernablegen()
			;Muffe herstellen
			_check_Muffe_bauen()
			;Kabelschacht öffnen
			_check_GFMuffeKsch()
		EndIf
		
		If GUICtrlRead($tab4_txt_nvtbez) = "" Then
		Else
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) > 1 Then
				_check_NVT_Verbinden()
				_check_NVT_VerbindenZ()
			EndIf
			If GUICtrlRead($tab4_txt_anz_Fasern_verb) = 1 Then
				_check_NVT_Verbinden()
			EndIf
		EndIf
		;GF AP Montieren
		_check_GF_AP_be()
		;GF AP in MFG montieren
		_check_GF_AP_MFG_be()
		#EndRegion GF-Muffen
	EndIf
	
EndFunc   ;==>_check_Vertrag

Func _check_NVT_Verbinden()
	$sText_Bemerkung = "1. Faser verbinden"
	Dim $aProzent[6]
	$aProzent[1] = "Am NVt " &GUICtrlRead($tab4_txt_nvtbez) ;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, "FTTH-GF-NVT-APL", "GF_NVT_Verb", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")

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

Func _check_NVT_VerbindenZ()
	$sText_Bemerkung = "weitere Faser verbinden"
	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, "FTTH-GF-NVT-APL", "GF_NVT_VerbZU", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][7] - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_NVT_VerbindenZ

Func _check_HKMASS_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = "Am HVt" ;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, "%Faktor%", "1,0")
	$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, "%Faktor%", "1,0")
	$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] = "Am HVt" ;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, "%Faktor%", "1,0")
	$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,"%Menge%", $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, "%Faktor%", "1,0")
	$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] = "Am HVt" ;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, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_kontroll_1

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, "%Faktor%", "0,2")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_kontroll_02

Func _check_FTTH_GPON_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = "Am HVt" ;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, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_GPON_1

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, "%Faktor%", "0,2")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_GPON_02

Func _check_pegelmess_1()
	$sText_Bemerkung = "1. Faser-messen"
	Dim $aProzent[6]
	$aProzent[1] = "Am HVt" ;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, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_pegelmess_1

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, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_pegelmess_Z

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   ;==>_check_Baugruppe_einbauen

Func _check_GF_Innen()
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = $aAngaben_GF[1][12] ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe
;~ 		$aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF-Innen", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_GF_Innen

Func _check_InKaSNRBef()
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = $aAngaben_GF[1][12] ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe
;~ 		$aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "InstKanSNRbe", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_InKaSNRBef

Func _check_Auskabelbef()
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = $aAngaben_GF[1][12] ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe
;~ 		$aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AusKBef", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_Auskabelbef

Func _check_Kabelaufnwiederein()
;~ 	$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)
	Local $iAnzahl = 0
	If $aAngaben_GF[1][1] <> "" And GUICtrlRead($tab4_chb_A1_neu) = $GUI_UNCHECKED Then
		$iAnzahl = $iAnzahl + 1
	EndIf
	If $aAngaben_GF[1][2] <> "" And GUICtrlRead($tab4_chb_G1_neu) = $GUI_UNCHECKED Then
		$iAnzahl = $iAnzahl + 1
	EndIf
	If $aAngaben_GF[1][3] <> "" And GUICtrlRead($tab4_chb_G2_neu) = $GUI_UNCHECKED Then
		$iAnzahl = $iAnzahl + 1
	EndIf
	If $aAngaben_GF[1][4] <> "" And GUICtrlRead($tab4_chb_G3_neu) = $GUI_UNCHECKED Then
		$iAnzahl = $iAnzahl + 1
	EndIf
	If $aAngaben_GF[1][5] <> "" And GUICtrlRead($tab4_chb_G4_neu) = $GUI_UNCHECKED Then
		$iAnzahl = $iAnzahl + 1
	EndIf
	If $aAngaben_GF[1][6] <> "" And GUICtrlRead($tab4_chb_G5_neu) = $GUI_UNCHECKED Then
		$iAnzahl = $iAnzahl + 1
	EndIf
	
	If $iAnzahl = 0 Then
		Return
	EndIf
	
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
	$aProzent[2] = $iAnzahl & " Kabel aufnehmen sichern und nach Montage wieder ablegen" ; Bemerkung
	$aProzent[3] = "15,0" ; Länge
	$aProzent[4] = "" ; Breite
	$aProzent[5] = "" ; Tiefe
;~ 		$aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFMKabelaufnw", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", $iAnzahl)
	$sINI_String = StringReplace($sINI_String, "%Menge%", "15,0")
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_Kabelaufnwiederein

Func _check_Fasernablegen()
	Local $iFasernablage = 0
	Local $iAnzFaserverb = _replaceKom2Punkt($aAngaben_GF[1][7])
	Local $iSumme = 0
	
	Local $aLV_Splei = _Listview2Array($tab4_lv_verb)
	Local $aFasern[6][4]
	
	$aFasern[0][0] = "A1"
	$aFasern[1][0] = "G1"
	$aFasern[2][0] = "G2"
	$aFasern[3][0] = "G3"
	$aFasern[4][0] = "G4"
	$aFasern[5][0] = "G5"
	$aFasern[0][1] = $aAngaben_GF[1][1]
	$aFasern[1][1] = $aAngaben_GF[1][2]
	$aFasern[2][1] = $aAngaben_GF[1][3]
	$aFasern[3][1] = $aAngaben_GF[1][4]
	$aFasern[4][1] = $aAngaben_GF[1][5]
	$aFasern[5][1] = $aAngaben_GF[1][6]
;~ 	_DebugArrayDisplay($aLV_Splei)
;~ 	ConsoleWrite("1: " & $aAngaben_GF[1][1] & @CRLF)
;~ 	ConsoleWrite("2: " & $aAngaben_GF[1][2] & @CRLF)
;~ 	ConsoleWrite("3: " & $aAngaben_GF[1][3] & @CRLF)
;~ 	ConsoleWrite("4: " & $aAngaben_GF[1][4] & @CRLF)
;~ 	ConsoleWrite("5: " & $aAngaben_GF[1][5] & @CRLF)
;~ 	ConsoleWrite("6: " & $aAngaben_GF[1][6] & @CRLF)
	
	For $i = 0 To UBound($aLV_Splei) - 1
		If $aFasern[0][0] = $aLV_Splei[$i][0] Then
			$aFasern[0][2] = $aFasern[0][2] + $aLV_Splei[$i][1]
		EndIf
		
		If $aFasern[1][0] = $aLV_Splei[$i][0] Then
			$aFasern[1][2] = $aFasern[1][2] + $aLV_Splei[$i][1]
		EndIf
		
		If $aFasern[2][0] = $aLV_Splei[$i][0] Then
			$aFasern[2][2] = $aFasern[2][2] + $aLV_Splei[$i][1]
		EndIf
		
		If $aFasern[3][0] = $aLV_Splei[$i][0] Then
			$aFasern[3][2] = $aFasern[3][2] + $aLV_Splei[$i][1]
		EndIf
		
		If $aFasern[4][0] = $aLV_Splei[$i][0] Then
			$aFasern[4][2] = $aFasern[4][2] + $aLV_Splei[$i][1]
		EndIf
		
		If $aFasern[5][0] = $aLV_Splei[$i][0] Then
			$aFasern[5][2] = $aFasern[5][2] + $aLV_Splei[$i][1]
		EndIf
	Next
;~ 	_DebugArrayDisplay($aFasern)
;~ 	$iSumme =  $aAngaben_GF[1][1] + $aAngaben_GF[1][2] + $aAngaben_GF[1][3] + $aAngaben_GF[1][4] + $aAngaben_GF[1][5] + $aAngaben_GF[1][6]
;~ 	ConsoleWrite("Summe: " & $iSumme & @CRLF)
	If GUICtrlRead($tab4_chb_A1_neu) = $GUI_CHECKED Then
		$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][1]
		$aFasern[0][3] = $aFasern[0][1] - $aFasern[0][2]
;~ 		ConsoleWrite("Fasernablegen1: " & $iSumme & @CRLF)
	EndIf
	If GUICtrlRead($tab4_chb_G1_neu) = $GUI_CHECKED Then
		$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][2]
		$aFasern[1][3] = $aFasern[1][1] - $aFasern[1][2]
;~ 		ConsoleWrite("Fasernablegen2: " & $iSumme & @CRLF)
	EndIf
	If GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED Then
		$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][3]
		$aFasern[2][3] = $aFasern[2][1] - $aFasern[2][2]
;~ 		ConsoleWrite("Fasernablegen3: " & $iSumme & @CRLF)
	EndIf
	If GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED Then
		$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][4]
		$aFasern[3][3] = $aFasern[3][1] - $aFasern[3][2]
;~ 		ConsoleWrite("Fasernablegen4: " & $iSumme & @CRLF)
	EndIf
	If GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED Then
		$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][5]
		$aFasern[4][3] = $aFasern[4][1] - $aFasern[4][2]
;~ 		ConsoleWrite("Fasernablegen5: " & $iSumme & @CRLF)
	EndIf
	If GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED Then
		$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][6]
		$aFasern[5][3] = $aFasern[5][1] - $aFasern[5][2]
;~ 		ConsoleWrite("Fasernablegen: 6" & $iSumme & @CRLF)
	EndIf
	$iAblegen = ($aFasern[0][3] + $aFasern[1][3] + $aFasern[2][3] + $aFasern[3][3] + $aFasern[4][3] + $aFasern[5][3]) / 2
	
;~ 	_DebugArrayDisplay($aFasern)
;~ 	ConsoleWrite("Fasernablegen: " & $iSumme & @CRLF)
;~ 	ConsoleWrite("Fasernverbinden: " & $iAnzFaserverb & @CRLF)
	
	
	If $iAblegen <= 0 Then
;~ 		ConsoleWrite("Faserablegen raus" & @CRLF)
		Return
	EndIf
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = "" ; 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, "GFFaseernAbl", "NA")
;~ 	ConsoleWrite($sINI_String & @CRLF)
	
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($iAblegen))
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_Fasernablegen

Func _check_fasernverbinden()
	
	Local $aLV_Splei = _Listview2Array($tab4_lv_verb)
	Local $aFasern[6][4]
	
	$aFasern[0][0] = "A1"
	$aFasern[1][0] = "G1"
	$aFasern[2][0] = "G2"
	$aFasern[3][0] = "G3"
	$aFasern[4][0] = "G4"
	$aFasern[5][0] = "G5"
	$aFasern[0][1] = $aAngaben_GF[1][1]
	$aFasern[1][1] = $aAngaben_GF[1][2]
	$aFasern[2][1] = $aAngaben_GF[1][3]
	$aFasern[3][1] = $aAngaben_GF[1][4]
	$aFasern[4][1] = $aAngaben_GF[1][5]
	$aFasern[5][1] = $aAngaben_GF[1][6]
;~ 	_DebugArrayDisplay($aLV_Splei)
;~ 	ConsoleWrite("1: " & $aAngaben_GF[1][1] & @CRLF)
;~ 	ConsoleWrite("2: " & $aAngaben_GF[1][2] & @CRLF)
;~ 	ConsoleWrite("3: " & $aAngaben_GF[1][3] & @CRLF)
;~ 	ConsoleWrite("4: " & $aAngaben_GF[1][4] & @CRLF)
;~ 	ConsoleWrite("5: " & $aAngaben_GF[1][5] & @CRLF)
;~ 	ConsoleWrite("6: " & $aAngaben_GF[1][6] & @CRLF)
	
;~ 	For $i = 0 to UBound($aLV_Splei) -1
;~ 		If $aFasern[0][0] = $aLV_Splei[$i][0] Then
;~ 			$aFasern[0][2] = $aFasern[0][2] + $aLV_Splei[$i][1]
;~ 		EndIf
;~
;~ 		If $aFasern[1][0] = $aLV_Splei[$i][0] Then
;~ 			$aFasern[1][2] = $aFasern[1][2] + $aLV_Splei[$i][1]
;~ 		EndIf
;~
;~ 		If $aFasern[2][0] = $aLV_Splei[$i][0] Then
;~ 			$aFasern[2][2] = $aFasern[2][2] + $aLV_Splei[$i][1]
;~ 		EndIf
;~
;~ 		If $aFasern[3][0] = $aLV_Splei[$i][0] Then
;~ 			$aFasern[3][2] = $aFasern[3][2] + $aLV_Splei[$i][1]
;~ 		EndIf
;~
;~ 		If $aFasern[4][0] = $aLV_Splei[$i][0] Then
;~ 			$aFasern[4][2] = $aFasern[4][2] + $aLV_Splei[$i][1]
;~ 		EndIf
;~
;~ 		If $aFasern[5][0] = $aLV_Splei[$i][0] Then
;~ 			$aFasern[5][2] = $aFasern[5][2] + $aLV_Splei[$i][1]
;~ 		EndIf
;~ 	Next
;~
;~
	Local $iInOu = ""
	If GUICtrlRead($tab4_chb_indoor) = $GUI_CHECKED Then
		$iInOu = "GFFasernVerbin"
	EndIf
	If GUICtrlRead($tab4_chb_outdoor) = $GUI_CHECKED Then
		$iInOu = "GFFasernVerbout"
	EndIf
;~
;~ 	$aAngaben_GF[1][7] =  $aFasern[0][2] + $aFasern[1][2] + $aFasern[2][2] + $aFasern[3][2] + $aFasern[4][2] + $aFasern[5][2]
;~
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	If GUICtrlRead($tab4_chb_Muffe_neu) = $GUI_CHECKED Then
		$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
	Else
		$aProzent[1] = ""
	EndIf
;~ 	$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, $iInOu, "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", GUICtrlRead($tab4_txt_anz_Fasern_verb))
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_fasernverbinden

Func _check_Muffe_bauen()
	Local $MFaktor = 1.0
	Local $iNeu = 0
	Local $iFaser = 0
	Local $iFaserNeuF = 0
	If GUICtrlRead($tab4_chb_Muffe_neu) = $GUI_CHECKED Then
		
		If GUICtrlRead($tab4_chb_A1_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1
;~ 			$iFaser =  $iFaser + $aAngaben_GF[1][1]
		EndIf
		If GUICtrlRead($tab4_chb_G1_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1
;~ 			$iFaser =  $iFaser + $aAngaben_GF[1][2]
		EndIf
		If GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][3]
		EndIf
		If GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][4]
		EndIf
		If GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][5]
		EndIf
		If GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][6]
		EndIf
		
		$iFaserNeu12 = "";$iFaser / 12; größer 96 Fasern neu dann wieder einbauen
		$iFaserNeuF = $iFaserNeu12 * 0.1
		$iNeuFasern = $iNeu * 0.1 ; neues Kabel
		
		$MFaktor = $MFaktor + $iFaserNeuF + $iNeuFasern
;~ 		ConsoleWrite("neuer Faktor: " & $MFaktor & @CRLF)
		$sText_Bemerkung = $iNeu & " Kabel neu vorbereiten mit Wellrohr " & $iFaserNeu12 & "mal je 12 Fasern"
		If $iNeu <> "" And $iFaserNeu12 = "" Then
			$sText_Bemerkung = $iNeu & " Kabel neu " & "Faktor 0,1 für jedes vorbereitetes Gf-Minikabel/SNR wg. PP-Wellrohr"
		EndIf
;~ 		If $iNeu <> "" And $iFaserNeu12 <> "" Then
;~ 			$sText_Bemerkung = $iNeu & " Kabel neu vorbereiten mit Wellrohr " & $iFaserNeu12 & "mal je 12 Fasern"
;~ 		EndIf
		Dim $aProzent[6]
		$aProzent[1] = "" ;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, "GFMuffebauen", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Faktor%", _replacePunkt2Koma($MFaktor))
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	Else
		$MFaktor = 0.3
		If GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][3]
		EndIf
		If GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][4]
		EndIf
		If GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][5]
		EndIf
		If GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED Then
			$iNeu = $iNeu + 1 ; neues Kabel
			$iFaser = $iFaser + $aAngaben_GF[1][6]
		EndIf
		
		$iFaserNeu12 = $iFaser / 12
		$iFaserNeuF = $iFaserNeu12 * 0.1
		$iNeuFasern = $iNeu * 0.1 ; neues Kabel
		
		$MFaktor = $MFaktor + $iFaserNeuF + $iNeuFasern
		
		$sText_Bemerkung = "bestehende Muffe öffnen"
;~
		Dim $aProzent[6]
		$aProzent[1] = "" ;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, "GFMuffebauen", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Faktor%", _replacePunkt2Koma($MFaktor))
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	
	
EndFunc   ;==>_check_Muffe_bauen

Func _check_GFMuffeKsch()
	If GUICtrlRead($tab4_chb_MuffeKsch) = $GUI_CHECKED Then
		$sText_Bemerkung = "Ksch öffnen"
		Dim $aProzent[6]
		$aProzent[1] = "" ;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, "Sonstiges", "Kschoffnen", "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, "|")
	Else
		Return
	EndIf
EndFunc   ;==>_check_GFMuffeKsch

Func _add_spleiss_LV()
	Dim $aArrayLV[1][2]
	$sKabel = GUICtrlRead($tab4_cb_kabel)
	$sAnzSplei = GUICtrlRead($tab4_txt_Splei)
	
	$aArrayLV[0][0] = $sKabel
	$aArrayLV[0][1] = $sAnzSplei
;~ 	_DebugArrayDisplay($aArrayLV)
	_GUICtrlListView_AddArray($tab4_lv_verb, $aArrayLV)
EndFunc   ;==>_add_spleiss_LV

Func _check_GF_AP_be()
	If GUICtrlRead($tab4_chb_gfap) = $GUI_CHECKED Then
		$sText_Bemerkung = "APL montieren"
		Dim $aProzent[6]
		$aProzent[1] = "" ;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, "GlasFaser", "GF-AP-bef", "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, "|")
	Else
		Return
	EndIf
EndFunc   ;==>_check_GF_AP_be

Func _check_GF_AP_MFG_be()
	If GUICtrlRead($tab4_chb_gfap_mfg) = $GUI_CHECKED Then
		$sText_Bemerkung = "APL montieren"
		Dim $aProzent[6]
		$aProzent[1] = "" ;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, "GlasFaser", "GF-AP-MFG-Bef", "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, "|")
	Else
		Return
	EndIf
EndFunc   ;==>_check_GF_AP_MFG_be
#EndRegion GF - Montage
