93 lines
3.4 KiB
AutoIt
93 lines
3.4 KiB
AutoIt
|
|
;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
|