135 lines
3.9 KiB
AutoIt
135 lines
3.9 KiB
AutoIt
;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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|