#include <OOoCalc.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
Opt("WinTitleMatchMode", 2)
Global $Date, $Chas, $Min, $Nomer, $Ulica, $Rayon, $nIsh, $Button, $sOCalck, $iN, $Read_Cell
If Not IsObj($sOCalck) Then $sOCalck = _OOoCalcBookOpen(@ScriptDir & "\Реестр тест.ods")
$aOCalck = _OOoCalcReadSheetToArray($sOCalck)
$iN = UBound($aOCalck)
If $iN = 1 Then $iN = 0
$Gui = GUICreate("Передача в реестр", 200, 236, 622, 345)
GUISetBkColor(0xB4B4B4)
$Date = GUICtrlCreateDate("", 24, 0, 129, 21, $DTS_SHORTDATEFORMAT)
$Chas = GUICtrlCreateCombo("", 24, 30, 57, 25, $CBS_DROPDOWNLIST + $WS_VSCROLL)
GUICtrlSetData(-1, "00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|", "00")
GUICtrlSendMsg(-1, $CB_SETDROPPEDWIDTH, 70, 0) ; Ширина выпадающего списка
$Min = GUICtrlCreateCombo("", 96, 30, 57, 25, $CBS_DROPDOWNLIST + $WS_VSCROLL)
GUICtrlSetData(-1, "00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47|48|49|50|51|52|53|54|55|56|57|58|59|", "00")
GUICtrlSendMsg(-1, $CB_SETDROPPEDWIDTH, 70, 0) ; Ширина выпадающего списка
$Nomer = GUICtrlCreateInput("RUS", 24, 65, 129, 21)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Ulica = GUICtrlCreateCombo("Улица", 24, 96, 129, 25, $CBS_DROPDOWNLIST + $WS_VSCROLL)
GUICtrlSetData(-1, " Красная | Крупской 50 | Крупской 60 | Дятьковская, пер.Дятьковский | Горького | Щорса 67 | Бувальцева | Ленина | Фрунзе | Комсомольская |", "")
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSendMsg(-1, $CB_SETDROPPEDWIDTH, 190, 0) ; Ширина выпадающего списка
$Rayon = GUICtrlCreateInput("", 24, 136, 129, 21)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$nIsh = GUICtrlCreateInput(" ОТ", 24, 160, 129, 21)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button = GUICtrlCreateButton("Внести", 24, 195, 129, 33)
GUICtrlSetBkColor(-1, 0x008080)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
_Write()
EndSwitch
WEnd
Func _Write()
If Not IsObj($sOCalck) Then Return SetError(1, 0, 0)
$iN = 1
Local $iNomer = GUICtrlRead($Nomer)
Local $iChas = GUICtrlRead($Chas)
Local $iMin = GUICtrlRead($Min)
Local $iUlica = GUICtrlRead($Ulica)
Local $iRayon = GUICtrlRead($Rayon)
Local $iDate = GUICtrlRead($Date)
Local $inIsh = GUICtrlRead($nIsh)
While 1
$Read_Cell = _OOoCalcReadCell($sOCalck, "B" & $iN, -1, -1)
ConsoleWrite($Read_Cell&@LF)
If $Read_Cell <> '' Then $iN += 1
If $Read_Cell == '' Then ExitLoop
WEnd
_OOoCalcWriteCell($sOCalck, $iDate, "B" & $iN)
_OOoCalcWriteCell($sOCalck, $iChas & ":" & $iMin, "C" & $iN)
_OOoCalcWriteCell($sOCalck, "Зафиксирован факт нарушения ПДД, совершенного водителем транспортного средства.", "D" & $iN)
_OOoCalcWriteCell($sOCalck, $iNomer, "E" & $iN)
_OOoCalcWriteCell($sOCalck, $iUlica, "F" & $iN)
_OOoCalcWriteCell($sOCalck, $iRayon, "G" & $iN)
_OOoCalcWriteCell($sOCalck, $inIsh & " " & $iDate, "H" & $iN)
EndFunc ;==>_Write