;ahelper_absperrung.au3

Func _add_Absperrung()
	Global $aLVListe[1][13]
	
	Dim $aProzent[6]
	$sIni_Kategorie = "Absperrung"
	$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
	$sText_Bemerkung = GUICtrlRead($tab_ab_txt_bemerkung)
	
	$aProzent[1] = GUICtrlRead($tab_ab_txt_abschnitt)     ; Abschnitt
	$aProzent[2] = $sText_Bemerkung     ;Bemerkung
	$aProzent[3] = "" ; Länge
	$aProzent[4] = ""     ; Breite
	$aProzent[5] = ""     ; Tiefe
	
	
	$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
	$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
	$iMproTag =  GUICtrlRead($tab_ab_txt_anzTGe)
	$sINI_String = StringReplace($sINI_String, "%Menge%", $iMproTag)
	_ArrayAdd($aLVListe, $sINI_String, 0, "|")
	_ArrayDelete($aLVListe, 0)
		$iCount = -1
		_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
		
	Global $aLVListe[1][13]
EndFunc

func _absperrungsPosAktu()
	_ReadInputs2Array_Absperrung()
EndFunc

func _ReadInputs2Array_Absperrung()
	Global $sIniDatei = GUICtrlRead($chb_vertrag)
	If GUICtrlRead($chb_vertrag) = "" Then
		MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
	Else
		$sIni_Kategorie = "Absperrung"
		$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
;~ 		ConsoleWrite($sIniReadString& @CRLF)
		$aSplitt = StringSplit($sIniReadString, "|")
		GUICtrlSetData($tab_ab_ePreis, $aSplitt[12])
		$stxt_meter = Int(GUICtrlRead($tab_ab_txt_Meter)); anzahl Meter der Absperrung
		
		$stxt_m_rpo_st =GUICtrlRead($tab_ab_txt_m_rpo_st); Meter Pro Stück 10
		$stxt_anz_tage =GUICtrlRead($tab_ab_txt_anz_tage); eingabe Dauer
		$stxt_anz_tag =GUICtrlRead($tab_ab_txt_anz_tag); laut Position
		$stxt_ab_ePreist =GUICtrlRead($tab_ab_ePreis); Preis
		$stxt_abschnitt = GUICtrlRead($tab_ab_txt_abschnitt)
;~ 		$stxt_bemerkung =GUICtrlRead($tab_ab_txt_bemerkung)
		
		$stxt_bemerkung =  "(" &$stxt_meter& " Meter Absperrung / "&$stxt_m_rpo_st & "m pro Stück)  x ("& $stxt_anz_tage& " Anzahl Tage - ab "& $stxt_anz_tag& " Tag )"
		GUICtrlSetData($tab_ab_txt_bemerkung, $stxt_bemerkung)
		
		$iMeter = _replaceKom2Punkt($stxt_meter) /_replaceKom2Punkt($stxt_m_rpo_st); Anzahl M Absperrung / Meter Pro Stück
		$iDauerTage = _replaceKom2Punkt($stxt_anz_tage) - _replaceKom2Punkt($stxt_anz_tag) ;Tage der Absperrung Minus - 5
		If StringInStr($iDauerTage, "-") Then 
			MsgBox(64, "Achtung", "Die Anzahl der Tage ist kleiner gleich (<=) " & $iDauerTage)
			GUICtrlSetData($tab_ab_txt_anzTGe, "")
		Else 
			$iMproTag = _replacePunkt2Koma($iMeter * $iDauerTage)
			GUICtrlSetData($tab_ab_txt_anzTGe, $iMproTag)
			$iGPreis = _replaceKom2Punkt($aSplitt[12]) * _replaceKom2Punkt($iMproTag)
			
			GUICtrlSetData($tab_ab_txt_GP, _replacePunkt2Koma($iGPreis))
			
	;~ 		$stxt_GPt =GUICtrlRead($tab_ab_txt_GP)
			
		EndIf

	EndIf 
	
	
	
EndFunc

;~ Func _string_replace_Prozent($sString, $aArray)
;~ 
;~ 	
;~ 	$sString = _replacePunkt2Koma(StringReplace($sString, "%Leange%", $aArray[3]))
;~ 	$sString = _replacePunkt2Koma(StringReplace($sString, "%Breite%", $aArray[4]))
;~ 	$sString = _replacePunkt2Koma(StringReplace($sString, "%Tiefe%", $aArray[5]))
;~ 	$sString = StringReplace($sString, "%Abschnitt%", $aArray[1])
;~ 	$sString = StringReplace($sString, "%Bemerkung%", $aArray[2])

;~ 	
;~ 	Return $sString
;~ EndFunc   ;==>_string_replace_Prozent