Initial commit – AufmaßCreater v2.35

2026-06-10 11:03:43 +02:00
commit 84c933ea9c
2823 changed files with 490495 additions and 0 deletions
@@ -0,0 +1,89 @@
+;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