;ahelper_ftth.au3

Func _add_ftth()
	Dim $aProzent[6]

	Global $sIni_Kategorie = "FTTH"
	$sText_Bemerkung = ""

	Global $aAngaben_FTTH[2][11] = [["Abschnitt", "Länge Privat", "NVT", "APNr", "AnzWE", "Str", "HsNr", "GF-Kabel", "GF-BlasLang", "InstalRohrlang", "Ausgabe"]]
	
	Global $sIniDatei = GUICtrlRead($chb_vertrag)
	If GUICtrlRead($chb_vertrag) = "" Then
		MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
	Else
		
		
		
		_ini_umwandeln_pfad($sIniDateiPfad & $sIniDatei)
		
		_ReadInputs2Array_ftth()
		
;~ 		_DebugArrayDisplay($aAngaben_FTTH)
		$sVertragString = GUICtrlRead($chb_vertrag)
		
		If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
			If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then
				_add_ftth_GFMontage()
			Else
				
				
				If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
					_check_FTTH_TB_HsEinfoo()
					_check_FTTH_TB_HsEinfZoo()
					_check_FTTH_TB_Rausl()
					_check_FTTH_TB_Kausl()
				EndIf
				If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then
					_check_FTTH_TB_HsEinfmo()
					_check_FTTH_TB_HsEinfZmo()
					
					_check_FTTH_TB_Rausl()
					_check_FTTH_TB_Kausl()
				EndIf
				
				If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then
					_check_FTTH_TB_GGRing()
					; 5m Ring auslegen 3 + (2 in der Func)
					$aAngaben_FTTH[1][1] = 3
					_check_FTTH_TB_Kausl()
				EndIf
			EndIf
		EndIf
		If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
			If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then
				_add_ftth_GFMontage()
			Else
				
				
				If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
					_check_FTTH_TB_HsEinfoo()
					_check_FTTH_TB_HsEinfZoo()
					_check_FTTH_TB_Rausl()
					_check_FTTH_TB_Kausl()
				EndIf
				If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then
					_check_FTTH_TB_HsEinfmo()
					_check_FTTH_TB_HsEinfZmo()
					
					_check_FTTH_TB_Rausl()
					_check_FTTH_TB_Kausl()
				EndIf
				
				If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then
					_check_FTTH_TB_GGRing()
					; 5m Ring auslegen 3 + (2 in der Func)
					$aAngaben_FTTH[1][1] = 3
					_check_FTTH_TB_Kausl()
				EndIf
			EndIf
		EndIf
		If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
			
		EndIf
		If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
			If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then
				_add_ftth_GFMontage()
			Else
				
				
				If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
					_check_FTTH_TB_HsEinfoo()
					_check_FTTH_TB_HsEinfZoo()
					_check_FTTH_TB_Rausl()
					_check_FTTH_TB_Kausl()
				EndIf
				If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then
					_check_FTTH_TB_HsEinfmo()
					_check_FTTH_TB_HsEinfZmo()
					
					_check_FTTH_TB_Rausl()
					_check_FTTH_TB_Kausl()
				EndIf
				
				If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then
					_check_FTTH_TB_GGRing()
					; 5m Ring auslegen 3 + (2 in der Func)
					$aAngaben_FTTH[1][1] = 3
					_check_FTTH_TB_Kausl()
				EndIf
			EndIf
		EndIf
		
;~ 		_DebugArrayDisplay($aLVListe)
		
		_ArrayDelete($aLVListe, 0)
		$iCount = -1
		_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)

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

;FTTH
Func _felder_tab7_zurucksetzen()
	GUICtrlSetData($tab7_txt_nvtname, "")
	
	GUICtrlSetData($tab7_txt_abschnitt, "")
	GUICtrlSetData($tab7_txt_lang_privat, "")
	GUICtrlSetData($tab7_txt_nvtname, "")
	GUICtrlSetData($tab7_txt_anzWE, "")
	GUICtrlSetData($tab7_txt_apnr, "")
	GUICtrlSetData($tab7_txt_hsnr, "")
	GUICtrlSetData($tab7_txt_str, "")
	GUICtrlSetData($tab7_txt_einblang, "")
	GUICtrlSetData($tab7_txt_instrohr, "")
	GUICtrlSetData($tab7_txt_ausgabe, "")
	GUICtrlSetState($tab7_chb_oO, $GUI_UNCHECKED)
	GUICtrlSetState($tab7_chb_ring_gg, $GUI_UNCHECKED)
	GUICtrlSetState($tab7_chb_adGFMontage, $GUI_UNCHECKED)
	GUICtrlSetState($tab7_chb_koordinationp, $GUI_UNCHECKED)
EndFunc   ;==>_felder_tab7_zurucksetzen


#Region Abrechnung GF -Montage FTTH nach Bestückungsplan

Func _Aufmass_Bestuckungsplan()
	Global $sIniDatei = GUICtrlRead($chb_vertrag)
	If GUICtrlRead($chb_vertrag) = "" Then
		MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
	Else
		
		Local $sFilePath, $aArray
		Dim $aTest[1]
		Local $sIni_Kategorie = "FTTH-GF-NVT-APL"

		
		Local $message = "Bitte wählen Sie die Import Datei aus!"

		Local $sFilePath = FileOpenDialog($message, @ScriptDir & "\_Aufmaße\", "CSV (*.csv)", 1 + 4)
		If @error Then
			MsgBox(4096, "", "Keine Datei(en) ausgewählt")
		Else
			$sFilePath = StringReplace($sFilePath, "|", @CRLF)
			_FileReadToArray($sFilePath, $aArray)
			_ArrayDelete($aArray, 0)
;~ 			_DebugArrayDisplay($aArray)
			
			
			For $i = 0 To UBound($aArray) - 1
				If StringInStr($aArray[$i], ";;;;;;;;;;;0;;;;;;;;;;;") Then
				Else
					_ArrayAdd($aTest, $aArray[$i])
				EndIf

			Next
;~ 	_ArrayDisplay($aTest)
;~ 	MsgBox(64, "tset", "adsfasdf")

;~ Hergensweiler;2R2;4207772773;4650000697;203648385;2V1013;22x7;or/sw;2;rs;4E;2P1334;Rupolzer Str.;33;;2;1-3;;;x;x;1;281;7;309;294;

			Dim $aListeImport[UBound($aTest)][33] = [["Ort", "HK", "AbrufNr", "Vertrag", "SMnr", "NVT", "Rohrverband", "VerbandFarbe", "VerbandNr", "PipeFarbe", "Fasernstärke", "APNr", "Str.", "Hsnr", "HausZusatz", "WE's", "AP-Größe", "Anschluss Ja", "PST gebaut", "TB", "GF-Montage", "GF-AnzMess", "SNR-Haupt", "2x7", "KabelzugGFl", "GFMLang", "LinstalR", "LEP-TP", "LEP-GF-K", "E-Status", "Euro-TB", "Euro-GF", "Hinweis"]]
			For $i = 1 To UBound($aTest) - 1
				$aTemp = StringSplit($aTest[$i], ";")
;~ 			_ArrayDisplay($aTemp)
				$aListeImport[$i][0] = $aTemp[1]
				$aListeImport[$i][1] = $aTemp[2]
				$aListeImport[$i][2] = $aTemp[3]
				$aListeImport[$i][3] = $aTemp[4]
				$aListeImport[$i][4] = $aTemp[5]
				$aListeImport[$i][5] = $aTemp[6]
				$aListeImport[$i][6] = $aTemp[7]
				$aListeImport[$i][7] = $aTemp[8]
				$aListeImport[$i][8] = $aTemp[9]
				$aListeImport[$i][9] = $aTemp[10]
				$aListeImport[$i][10] = $aTemp[11]
				$aListeImport[$i][11] = $aTemp[12]
				$aListeImport[$i][12] = $aTemp[13]
				$aListeImport[$i][13] = $aTemp[14]
				$aListeImport[$i][14] = $aTemp[15]
				$aListeImport[$i][15] = $aTemp[16]
				$aListeImport[$i][16] = $aTemp[17]
				$aListeImport[$i][17] = $aTemp[18]
				$aListeImport[$i][18] = $aTemp[19]
				$aListeImport[$i][19] = $aTemp[20]
				$aListeImport[$i][20] = $aTemp[21]
				$aListeImport[$i][21] = $aTemp[22]
				$aListeImport[$i][22] = $aTemp[23]
				$aListeImport[$i][23] = $aTemp[24]
				$aListeImport[$i][24] = $aTemp[25]
				$aListeImport[$i][25] = $aTemp[26]
				$aListeImport[$i][26] = $aTemp[27]
				$aListeImport[$i][27] = $aTemp[28]
				$aListeImport[$i][28] = $aTemp[29]
				$aListeImport[$i][29] = $aTemp[30]
				$aListeImport[$i][30] = $aTemp[31]
				$aListeImport[$i][31] = $aTemp[32]
				$aListeImport[$i][32] = $aTemp[33]

				
			Next
			_ArrayDisplay($aListeImport)
			;GUICtrlRead($tab7_txt_nvtname)
			For $i = 1 To UBound($aListeImport) - 1
				Global $sNVTName = $aListeImport[$i][5]
				;Finde alle Glasfaseranschlüsse (BS)
				If $aListeImport[$i][20] = "x" And $aListeImport[$i][28] = "" And $aListeImport[$i][24] <> "" Then ; wenn GF-Montage x
					Global $sAPNr = $aListeImport[$i][11]
					$sKabelstark = $aListeImport[$i][10]
					$sStr = $aListeImport[$i][12]
					$sHsZu = $aListeImport[$i][13] & $aListeImport[$i][14]
					Global $sAnzWE = $aListeImport[$i][15]
					$sGFlang = $aListeImport[$i][24] ; Kabelzug länge
					Global $sStringName = "NVT_" & $sNVTName & "_GF_" & $sStr & "_HS_" & $sHsZu & "_AP_" & $sAPNr
					$sStringName = StringReplace($sStringName, " ", "_")
					$sStringName = StringReplace($sStringName, ".", "")
					
;~ 			MsgBox(64, "testen", $sStringName)
					
					;1-3 WE AP
					If $sAnzWE > 1 And $sAnzWE <= 3 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						If $sKabelstark = "4E" Then
							_check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						If $sKabelstark = "12E" Then
							_check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						
						_check_GF_AP_Messen("2")
						
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
						
					EndIf
					;4WE AP
					If $sAnzWE = 4 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						
						
						If $sKabelstark = "4E" Then
							_check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						If $sKabelstark = "12E" Then
							_check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						
						_check_GF_AP_Messen("4")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
						
					EndIf
					;5-8 WE
					If $sAnzWE > 5 And $sAnzWE <= 8 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						
						
						If $sKabelstark = "4E" Then
							_check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						If $sKabelstark = "12E" Then
							_check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						_check_GF_AP_Messen("8")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;9-12 WE
					If $sAnzWE > 9 And $sAnzWE <= 12 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						
						If $sKabelstark = "4E" Then
							_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						If $sKabelstark = "12E" Then
							_check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						_check_GF_AP_Messen("12")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;13-16 WE
					If $sAnzWE > 13 And $sAnzWE <= 16 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						
						If $sKabelstark = "4E" Then
							_check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						If $sKabelstark = "12E" Then
							_check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						EndIf
						_check_GF_AP_Messen("16")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;17-20 WE
					If $sAnzWE > 17 And $sAnzWE <= 20 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("20")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;21-24 WE
					If $sAnzWE > 21 And $sAnzWE <= 24 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("24")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;25-28 WE
					If $sAnzWE > 25 And $sAnzWE <= 28 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("28")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;29-32 WE
					If $sAnzWE > 29 And $sAnzWE <= 32 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("32")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;33-36 WE
					If $sAnzWE > 33 And $sAnzWE <= 36 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("36")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;37-40 WE
					If $sAnzWE > 37 And $sAnzWE <= 40 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("40")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;41-64 WE
					If $sAnzWE > 41 And $sAnzWE <= 64 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("64")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					;65-96 WE
					If $sAnzWE > 65 And $sAnzWE <= 96 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
						_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
						_check_GF_AP_Messen("96")
						_check_GF_AP_Koordination()
						
						_check_GF_AP_einbl($sGFlang)
					EndIf
					
;~ 					_DebugArrayDisplay($aLVListe)
;~ 					_ArrayDelete($aLVListe, 0)
;~ FTTH_Weißensberg_HK_2R3_
					$sBaustelle = "FTTH_" & $aListeImport[$i][0] & "_HK_" & $aListeImport[$i][1] & "_"
					$sAbruf = $aListeImport[$i][2]
					$sVertrag = $aListeImport[$i][3]
					$sSMNr = $aListeImport[$i][4]
					$sBauabschnitt = $sStringName
					_LV_GFMontageFTTH_save2txt(@MDAY & @MON & @YDAY, $sBaustelle, $sAbruf, $sVertrag, $sSMNr, $sBauabschnitt)
				EndIf
			Next
			
			
;~ 			_DebugArrayDisplay($aLVListe, "Fertig")
			

			
		EndIf
	EndIf
EndFunc   ;==>_Aufmass_Bestuckungsplan


Func _LV_GFMontageFTTH_save2txt($tDatum, $tBaustelle, $tAbruf, $tVetrag, $tSMnr, $tBauabschnitt)
	$sDatum = $tDatum
	$sBaustelle = $tBaustelle
	$sAbrufNr = $tAbruf
	$sVertrag = $tVetrag
	$sStartZ = GUICtrlRead($kopf_tab_datum_start)
	$sEndZ = GUICtrlRead($kopf_tab_txt_datum_ende)
	$sAspaN = GUICtrlRead($kopf_tab_chb_aspa)
	$sAspaTel = GUICtrlRead($kopf_tab_txt_telnr)
	$sBauabschnitt = $tBauabschnitt
	$sKolone = "Hartl"
	$sSMNr = $tSMnr
	
	Local $sItem
	
	
;~ 	? * < > . , \ + : = / " ; [ ] |
	
	$sDateiname = ""
	$sDateiname = $sBaustelle & "_" & $sBauabschnitt & "_" & $sSMNr & "_" & $sAbrufNr
	$sDateiname = StringReplace($sDateiname, "?", " ")
	$sDateiname = StringReplace($sDateiname, "*", " ")
	$sDateiname = StringReplace($sDateiname, "<", " ")
	$sDateiname = StringReplace($sDateiname, ">", " ")
	$sDateiname = StringReplace($sDateiname, ",", " ")
	$sDateiname = StringReplace($sDateiname, "\", " ")
	$sDateiname = StringReplace($sDateiname, "+", " ")
	$sDateiname = StringReplace($sDateiname, ":", " ")
	$sDateiname = StringReplace($sDateiname, "=", " ")
	$sDateiname = StringReplace($sDateiname, "/", " ")
	$sDateiname = StringReplace($sDateiname, '"', " ")
	$sDateiname = StringReplace($sDateiname, ";", " ")
	$sDateiname = StringReplace($sDateiname, "[", " ")
	$sDateiname = StringReplace($sDateiname, "]", " ")
	$sDateiname = StringReplace($sDateiname, "[", " ")
	$sDateiname = StringReplace($sDateiname, "{", " ")
	$sDateiname = StringReplace($sDateiname, "}", " ")
	$sDateiname = StringReplace($sDateiname, "|", " ")
	$sDateiname = StringReplace($sDateiname, " ", "_")
	$sDateiname = StringReplace($sDateiname, "__", "_")
	
	Local $hFile = FileOpen(@ScriptDir & "\_Aufmaße\_FTTH-GF\" & $sDateiname & ".txt", 2) ; Datei zum speichern (überschreiben) öffnen
	If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
		FileWriteLine($hFile, "[Kopfdaten]")
		If GUICtrlRead($kopf_tab_rd_teilauf) = $GUI_CHECKED Then
			FileWriteLine($hFile, "Teilaufma=X")
		Else
			FileWriteLine($hFile, "Teilaufma=")
		EndIf
		If GUICtrlRead($kopf_tab_rd_schluss) = $GUI_CHECKED Then
			FileWriteLine($hFile, "Schlussaufma=X")
		Else
			FileWriteLine($hFile, "Schlussaufma=")
		EndIf
		FileWriteLine($hFile, "Datum=" & $sDatum)
		FileWriteLine($hFile, "Baustelle=" & $sBaustelle)
		FileWriteLine($hFile, "AbrufNr=" & $sAbrufNr)
		FileWriteLine($hFile, "SMNr=" & $sSMNr)
		FileWriteLine($hFile, "Vertrag=" & $sVertrag)
		FileWriteLine($hFile, "StartZ=" & $sStartZ)
		FileWriteLine($hFile, "EndZ=" & $sEndZ)
		FileWriteLine($hFile, "AspaN=" & $sAspaN)
		FileWriteLine($hFile, "AspaTel=" & $sAspaTel)
		FileWriteLine($hFile, "Bauabschnitt=" & $sBauabschnitt)
		FileWriteLine($hFile, "Kolone=" & $sKolone)
		FileWriteLine($hFile, "[Aufmaßdaten]")
;~ 		_DebugArrayDisplay($aLVListe)
		For $i = 1 To UBound($aLVListe) - 1 ; Schleife, um alle Listview-Einträge durchzugehen)
			$sItem = $aLVListe[$i][0] & "|" & $aLVListe[$i][1] & "|" & $aLVListe[$i][2] & "|" & $aLVListe[$i][3] & "|" & $aLVListe[$i][4] & "|" & $aLVListe[$i][5] & "|" & $aLVListe[$i][6] & "|" & $aLVListe[$i][7] & "|" & $aLVListe[$i][8] & "|" & $aLVListe[$i][9] & "|" & $aLVListe[$i][10] & "|" & $aLVListe[$i][11] & "|" & $aLVListe[$i][12]
			FileWriteLine($hFile, $sItem) ; und in die Datei schreiben
		Next
		FileClose($hFile) ; Datei schließen
;~ 		MsgBox(64, "Datei wurde gespeichert!", "Das Aufmaß wurde gespeichert:" & @CRLF & @ScriptDir & "\Aufmaße\" & $sDateiname & ".txt")
		
		$iCount = -1
		_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
		Dim $aLVListe[1][13] = [["RSA-Abschnitt", "PositionNr", "Faktor", "Länge", "Breite", "Tiefe", "Menge", "ME", "Leistungskurztext", "Bemerkung", "Menge", "E-Preis", "Summe"]]

	Else
		MsgBox(64, "Fehler beim Speichern", "Datei => " & @CRLF & @ScriptDir & "\_Aufmaße\" & $sDateiname & ".txt" & @CRLF & "konnte nicht gespeichert werden!")
	EndIf
	
EndFunc   ;==>_LV_GFMontageFTTH_save2txt


#EndRegion Abrechnung GF -Montage FTTH nach Bestückungsplan

Func _ReadInputs2Array_ftth()
	$aAngaben_FTTH[1][0] = GUICtrlRead($tab7_txt_abschnitt)
	$aAngaben_FTTH[1][1] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_lang_privat))
	$aAngaben_FTTH[1][2] = GUICtrlRead($tab7_txt_nvtname)
	$aAngaben_FTTH[1][3] = GUICtrlRead($tab7_txt_apnr)
	$aAngaben_FTTH[1][4] = GUICtrlRead($tab7_txt_anzWE)
	$aAngaben_FTTH[1][5] = GUICtrlRead($tab7_txt_str)
	$aAngaben_FTTH[1][6] = GUICtrlRead($tab7_txt_hsnr)
	$aAngaben_FTTH[1][7] = GUICtrlRead($tab7_dl_gfkabel)
	$aAngaben_FTTH[1][8] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_einblang))
	$aAngaben_FTTH[1][9] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_instrohr))
	$aAngaben_FTTH[1][10] = GUICtrlRead($tab7_txt_ausgabe)
EndFunc   ;==>_ReadInputs2Array_ftth

Func _add_ftth_GFMontage()
	Global $sAPNr = $aAngaben_FTTH[1][3]
	Global $sKabelstark = $aAngaben_FTTH[1][7]
	Global $sStr = $aAngaben_FTTH[1][5]
	Global $sHsZu = $aAngaben_FTTH[1][6]
	Global $sAnzWE = $aAngaben_FTTH[1][4]
	Global $sGFlang = $aAngaben_FTTH[1][8] ; Kabelzug länge
	Global $sNVTName = $aAngaben_FTTH[1][2]
	Global $sStringName = "NVT_" & $sNVTName & "_GF_" & $sStr & "_HS_" & $sHsZu & "_AP_" & $sAPNr
	$sStringName = StringReplace($sStringName, " ", "_")
	$sStringName = StringReplace($sStringName, ".", "")
	
	GUICtrlSetData($tab7_txt_ausgabe, $sStringName)
	;1-3 WE AP
	If $sAnzWE > 1 And $sAnzWE <= 3 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		If $sKabelstark = "4E" Then
			_check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		If $sKabelstark = "12E" Then
			_check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		
		_check_GF_AP_Messen("2")
		
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
		
	EndIf
	;4WE AP
	If $sAnzWE = 4 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		
		
		If $sKabelstark = "4E" Then
			_check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		If $sKabelstark = "12E" Then
			_check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		
		_check_GF_AP_Messen("4")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
		
	EndIf
	;5-8 WE
	If $sAnzWE > 5 And $sAnzWE <= 8 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		
		
		If $sKabelstark = "4E" Then
			_check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		If $sKabelstark = "12E" Then
			_check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		_check_GF_AP_Messen("8")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;9-12 WE
	If $sAnzWE > 9 And $sAnzWE <= 12 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		
		If $sKabelstark = "4E" Then
			_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		If $sKabelstark = "12E" Then
			_check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		_check_GF_AP_Messen("12")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;13-16 WE
	If $sAnzWE > 13 And $sAnzWE <= 16 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		
		If $sKabelstark = "4E" Then
			_check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		If $sKabelstark = "12E" Then
			_check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		EndIf
		_check_GF_AP_Messen("16")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;17-20 WE
	If $sAnzWE > 17 And $sAnzWE <= 20 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("20")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;21-24 WE
	If $sAnzWE > 21 And $sAnzWE <= 24 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("24")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;25-28 WE
	If $sAnzWE > 25 And $sAnzWE <= 28 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("28")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;29-32 WE
	If $sAnzWE > 29 And $sAnzWE <= 32 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("32")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;33-36 WE
	If $sAnzWE > 33 And $sAnzWE <= 36 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("36")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;37-40 WE
	If $sAnzWE > 37 And $sAnzWE <= 40 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("40")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;41-64 WE
	If $sAnzWE > 41 And $sAnzWE <= 64 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("64")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	;65-96 WE
	If $sAnzWE > 65 And $sAnzWE <= 96 Then
;~ 						ConsoleWrite($sStringName & @CRLF)
		_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
		_check_GF_AP_Messen("96")
		_check_GF_AP_Koordination()
		
		_check_GF_AP_einbl($sGFlang)
	EndIf
	
EndFunc   ;==>_add_ftth_GFMontage

Func _check_FTTH_TB_HsEinfmo()
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	
	
	$aProzent[1] = $aAngaben_FTTH[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, "HsEinfmo", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_TB_HsEinfmo

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

Func _check_FTTH_TB_HsEinfoo()
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	
	
	$aProzent[1] = $aAngaben_FTTH[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, "HsEinfoo", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1, 0")
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_TB_HsEinfoo

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

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

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

Func _check_FTTH_TB_GGRing()
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	
	
	$aProzent[1] = $aAngaben_FTTH[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, "GGRing", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
	$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndFunc   ;==>_check_FTTH_TB_GGRing

Func _check_GF_AP($iNVTVerb, $iNVTab, $iAPVerb, $iAPab)
	$sIni_Kategorie = "FTTH-GF-NVT-APL"
	Dim $aProzent[6]
	$aProzent[1] = "Am NVT " & $sNVTName ;Abschnitt
	
	
	
	If $iNVTVerb <= 0 Then
		
	Else
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_NVT_Verb", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTVerb)
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	
	If $iNVTab <= 0 Then
		
	Else
		$aProzent[1] = "" ;Abschnitt
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_FAabl", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTab)
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	
	$aProzent[1] = "Am APL " & $sAPNr ;Abschnitt
	If $iAPVerb <= 0 Then
		
	Else
		$aProzent[2] = _check_WE_AP_Bemerkung()
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", $iAPVerb)
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		$aProzent[2] = ""
		
;~ 	; ab Hier GF-Verbinden apl mit Zulage 1. Verbinden zulage jede weitere
;~ 		If $iAPVerb >= 1 Then
;~ 			$aProzent[2] =_check_WE_AP_Bemerkung()
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA")
;~ 			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ 			$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
		
;~ 			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 			$aProzent[2] = ""
;~
;~ 			$aProzent[2] =_check_WE_AP_Bemerkung()
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_VerbZU", "NA")
;~ 			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ 			$sINI_String = StringReplace($sINI_String, "%Menge%",$iAPVerb - 1)

;~ 			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 			$aProzent[2] = ""
;~
;~ 		EndIf
;~ 		If $iAPVerb <= 1 Then
;~ 			$aProzent[2] =_check_WE_AP_Bemerkung()
;~ 			$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA")
;~ 			$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
;~ 			$sINI_String = StringReplace($sINI_String, "%Menge%", $iAPVerb)

;~ 			_ArrayAdd($aLVListe, $sINI_String, 0, "|")
;~ 			$aProzent[2] = ""
;~
;~ 		EndIf
		
		
	EndIf
	
	If $iAPab <= 0 Then
		
	Else
		$aProzent[1] = "" ;Abschnitt
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_FAabl", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", $iAPab)
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	
EndFunc   ;==>_check_GF_AP

Func _check_WE_AP_Bemerkung()
	If $sAnzWE >= 1 And $sAnzWE <= 3 Then
		Return "GF-AP 1-3 WE" ; Bemerkung
	EndIf
	If $sAnzWE = 4 Then
		Return "GF-AP 4 WE" ; Bemerkung
	EndIf
	If $sAnzWE >= 5 And $sAnzWE <= 8 Then
		Return "GF-AP 5-8 WE"
	EndIf
	;9-12 WE
	If $sAnzWE >= 9 And $sAnzWE <= 12 Then
		Return "GF-AP 9-12 WE" ; Bemerkung
	EndIf
	;13-16 WE
	If $sAnzWE >= 13 And $sAnzWE <= 16 Then
		Return "GF-AP 13-16 WE" ; Bemerkung
	EndIf
	;17-20 WE
	If $sAnzWE >= 17 And $sAnzWE <= 20 Then
		Return "GF-AP 17-20 WE" ; Bemerkung
	EndIf
	;21-24 WE
	If $sAnzWE >= 21 And $sAnzWE <= 24 Then
		Return "GF-AP 21-24 WE" ; Bemerkung
	EndIf
	;25-28 WE
	If $sAnzWE >= 25 And $sAnzWE <= 28 Then
		Return "GF-AP 25-28 WE" ; Bemerkung
	EndIf
	;29-32 WE
	If $sAnzWE >= 29 And $sAnzWE <= 32 Then
		Return "GF-AP 29-32 WE" ; Bemerkung
	EndIf
	;33-36 WE
	If $sAnzWE >= 33 And $sAnzWE <= 36 Then
		Return "GF-AP 33-36 WE" ; Bemerkung
	EndIf
	;37-40 WE
	If $sAnzWE >= 37 And $sAnzWE <= 40 Then
		Return "GF-AP 37-40 WE" ; Bemerkung
	EndIf
	;41-64 WE
	If $sAnzWE >= 41 And $sAnzWE <= 64 Then
		Return "GF-AP 41-64 WE" ; Bemerkung
	EndIf
	;65-96 WE
	If $sAnzWE >= 65 And $sAnzWE <= 96 Then
		Return "GF-AP 65-96 WE" ; Bemerkung
	EndIf
EndFunc   ;==>_check_WE_AP_Bemerkung

Func _check_GF_AP_Koordination()
	If GUICtrlRead($tab7_chb_koordinationp) = $GUI_CHECKED Then
		Dim $aProzent[6]
		$sIni_Kategorie = "FTTH-GF-NVT-APL"
		$aProzent[1] = "Koordination mit KD" ;Abschnitt
		$aProzent[2] = "Koordination mit KD" ; Bemerkung
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Koordination", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 	ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
EndFunc   ;==>_check_GF_AP_Koordination

Func _check_GF_AP_Messen($sAnzahlMessen)
	Dim $aProzent[6]
	$sIni_Kategorie = "FTTH-GF-NVT-APL"
	If $sAnzahlMessen >= 1 Then
		$aProzent[1] = "APL Messen" ;Abschnitt
		$aProzent[2] = "1. Faser messen" ; Bemerkung
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		
		$aProzent[1] = "" ;Abschnitt
		$aProzent[2] = "jede weitere Faser messen" ; Bemerkung
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_02", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", $sAnzahlMessen - 1)
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")

		
	EndIf
	If $sAnzahlMessen <= 1 Then
		$aProzent[1] = "APL Messen" ;Abschnitt
		$aProzent[2] = "Faser messen" ; Bemerkung
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	
	
EndFunc   ;==>_check_GF_AP_Messen

Func _check_GF_AP_einbl($iMeter)
	Dim $aProzent[6]
	$sIni_Kategorie = "FTTH-GF-NVT-APL"
	If $iMeter <= 300 Then
		$aProzent[1] = "GF-Einblasen < 300m" ;Abschnitt
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFbis300", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf
	If $iMeter >= 300 Then
		$aProzent[1] = "GF-Einblasen > 300m" ;Abschnitt
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFbis300", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		
		$aProzent[1] = "" ;Abschnitt
		$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFgr300", "NA")
		$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
		$sINI_String = StringReplace($sINI_String, "%Menge%", $iMeter - 300)
;~ 		ConsoleWrite($sINI_String & @CRLF)
		_ArrayAdd($aLVListe, $sINI_String, 0, "|")
		
	EndIf
EndFunc   ;==>_check_GF_AP_einbl

Func _check_InKaSNRBef_FTTH()
	If GUICtrlRead($tab7_txt_instrohr) <> "" Then 
	$sText_Bemerkung = ""
	Dim $aProzent[6]
	$aProzent[1] = "" ;Abschnitt
	$aProzent[2] = $sText_Bemerkung ; Bemerkung
	$aProzent[3] = GUICtrlRead($tab7_txt_instrohr) ; 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%", $aProzent[3])
;~ 	$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	EndIf 
EndFunc   ;==>_check_InKaSNRBef
