;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