
;ahelper_absperrung.au3



Func _add_Absperrung()
	Global $aLVListe[1][13]
	$sIniDateiPfad = $sPfadIni
	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   ;==>_add_Absperrung

Func _absperrungsPosAktu()
	_ReadInputs2Array_Absperrung()
EndFunc   ;==>_absperrungsPosAktu

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

;~ 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
