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,134 @@
+;Aufmasshelfer.au3
+;~ #include <Array.au3>
+
+Global $sPfad_Conf_Ini = @ScriptDir & "\daten\conf.ini"
+Global $sIniDateiPfad = @ScriptDir & "\daten\LV\"
+Global $aLVListe[1][13] = [["RSA-Abschnitt", "PositionNr", "Faktor", "Länge", "Breite", "Tiefe", "Menge", "ME", "Leistungskurztext", "Bemerkung", "Menge", "E-Preis", "Summe"]]
+;~ Global $aKoma[2][3] = [["Länge", "Breite", "Tiefe"]]
+
+Global $sIniPfad = @ScriptDir & "\daten\conf.ini"
+
+;_ArrayDisplay($aLVListe)
+;_ArrayDisplay($aKoma)
+
+Func _ArrayClear(ByRef $aArray)
+	Local $iCols = UBound($aArray, 2)
+	Local $iDim = UBound($aArray, 0)
+	Local $iRows = UBound($aArray, 1)
+	If $iDim = 1 Then
+		Local $aArray1D[$iRows]
+		$aArray = $aArray1D
+	Else
+		Local $aArray2D[$iRows][$iCols]
+		$aArray = $aArray2D
+	EndIf
+EndFunc   ;==>_ArrayClear
+
+
+
+Func _string_replace_Prozent($sString, $aArray)
+;~ 	_ArrayDisplay($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
+
+Func _ini_umwandeln()
+	$sData = FileRead($sIniDateiPfad & $sIniDatei) ;Datei einlesen
+	$hFile = FileOpen($sIniDateiPfad & $sIniDatei, $FO_OVERWRITE + $FO_UNICODE) ;im richtigen Format ein Handle zum schreiben eröffnen
+	FileWrite($hFile, $sData) ;in Datei schreiben
+	FileClose($hFile) ;Handle schliessen
+EndFunc   ;==>_ini_umwandeln
+
+Func _ini_umwandeln_pfad($sPfad)
+	$sData = FileRead($sPfad) ;Datei einlesen
+	$hFile = FileOpen($sPfad, $FO_OVERWRITE + $FO_UNICODE) ;im richtigen Format ein Handle zum schreiben eröffnen
+	FileWrite($hFile, $sData) ;in Datei schreiben
+	FileClose($hFile) ;Handle schliessen
+EndFunc   ;==>_ini_umwandeln_pfad
+
+Func _array2Listview($aAusabge)
+	Dim $aListeImport[UBound($aAusabge) - 1][13]
+	$iZ = 0
+	For $i = 1 To UBound($aAusabge) - 1
+		ConsoleWrite($aAusabge[$i] & @CRLF)
+;~ 		MsgBox(64, "", "")
+		$aTemp = StringSplit($aAusabge[$i], "|")
+		For $ii = 1 To UBound($aTemp) - 1
+;~ 			If $ii =  7 Then
+;~ 				$aListeImport[$iZ][$ii] = ""
+;~ 				$ii =  $ii + 1
+;~ 			EndIf
+			If $ii = 11 Then
+				$aListeImport[$iZ][$ii] = ""
+				$ii = $ii + 1
+			EndIf
+			If $ii = 12 Then
+				;$aListeImport[$iZ][$ii] = ""
+				;$ii =  $ii + 1
+			EndIf
+			$aListeImport[$iZ][$ii - 1] = $aTemp[$ii]
+		Next
+		$iZ = $iZ + 1
+	Next
+;~ 	_ArrayDisplay($aListeImport)
+	$iCount = -1
+	_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aListeImport)
+	
+;~ 	_ListviewAutoWidthHeader($lv_ausgabe)
+EndFunc   ;==>_array2Listview
+
+Func _formload_Aufmh()
+	
+	$sData = FileRead($sIniPfad) ;Datei einlesen
+	$hFile = FileOpen($sIniPfad, $FO_OVERWRITE + $FO_UNICODE) ;im richtigen Format ein Handle zum schreiben eröffnen
+	FileWrite($hFile, $sData) ;in Datei schreiben
+	FileClose($hFile) ;Handle schliessen
+
+	Local $aKV = IniReadSection($sIniPfad, "Verträge")
+	_ArrayDelete($aKV, 0)
+	_ArraySort($aKV)
+;~ 	_ArrayDisplay($aKV)
+	
+	$cData = ""
+	For $i = 0 To UBound($aKV) - 1
+		$cData &= "|" & "data_" & $aKV[$i][0] & ".ini"
+	Next
+	GUICtrlSetData($chb_vertrag, $cData, "")
+
+EndFunc   ;==>_formload_Aufmh
+
+Func _felder_Kopfdaten_zurucksetzen()
+	GUICtrlSetState($kopf_TAB_rd_teilauf, $GUI_UNCHECKED)
+	GUICtrlSetState($kopf_tab_rd_schluss, $GUI_UNCHECKED)
+	
+	GUICtrlSetData($kopf_TAB_txt_abrufnr, "")
+	GUICtrlSetData($kopf_TAB_txt_bauabschnitt, "")
+	GUICtrlSetData($kopf_TAB_txt_baustelle, "")
+	GUICtrlSetData($kopf_TAB_txt_datum, "")
+	GUICtrlSetData($kopf_tab_txt_datum_ende, "")
+	GUICtrlSetData($kopf_TAB_datum_start, "")
+	GUICtrlSetData($kopf_TAB_txt_detailsID, "")
+	GUICtrlSetData($kopf_TAB_txt_kolone, "")
+	GUICtrlSetData($kopf_tab_txt_smnr, "")
+	GUICtrlSetData($kopf_TAB_txt_telnr, "")
+	GUICtrlSetData($kopf_TAB_txt_aspa, "")
+;~ 	GUICtrlSetData($kopf_tab_chb_vertrag, "")
+EndFunc   ;==>_felder_Kopfdaten_zurucksetzen
+
+
+
+
+
+
+
+
+
+
+