#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <GuiDateTimePicker.au3>

Global $LabelDateAuto, $sDateAuto, $sTimeAuto, $LabelTimeAuto, $sInOut, $ComboBoxInOut, $sInter, $ComboBoxInter, $sIssue, $ComboBoxIssue, $sRemarks, $EditRemarks, $DateFinderManual, $sDateManual, $InputTimeManual, $sTimeManual, $sDateAutoLoad

Opt("GUIOnEventMode", 1)


#Region ### START Koda GUI section ### Form=C:\Users\roman\Downloads\koda agenda4.kxf
$Form2 = GUICreate("Form1", 961, 598, 189, 104)
$Tab1 = GUICtrlCreateTab(32, 24, 921, 569)
$TabSheet1 = GUICtrlCreateTabItem("Agenda")
$Label1 = GUICtrlCreateLabel("Calls Registration", 68, 57, 338, 29)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Auto Date", 60, 113, 72, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("Incoming / Outcoming Call", 60, 201, 136, 17)
$ComboBoxInOut = GUICtrlCreateCombo("In", 204, 201, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($ComboBoxInOut, "Out", "")
$Label9 = GUICtrlCreateLabel("Interlocutor", 316, 201, 57, 17)
$ComboBoxInter = GUICtrlCreateCombo("", 388, 201, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($ComboBoxInter, "LEAL|LEBL|LECH|LEDA|LEGE|LEHC|LEIB|LELL|LEMH|LEPA|LERS|LESU|LETL|LEVC|LEZG|OTHERS", "LEAL")
$Label10 = GUICtrlCreateLabel("Issue", 580, 201, 75, 17)
$ComboBoxIssue = GUICtrlCreateCombo("", 668, 201, 217, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($ComboBoxIssue, "Doubt about TAF|Demanding Info|Change TAF|Notify Problem|Others", "")
$Label11 = GUICtrlCreateLabel("Remarks", 60, 249, 75, 17)
$EditRemarks = GUICtrlCreateEdit("", 164, 249, 417, 113)
GUICtrlSetData(-1, "")

$ButtonSave = GUICtrlCreateButton("Save", 620, 249, 129, 25)
GUICtrlSetOnEvent($ButtonSave, "Save")

$ButtonExit2 = GUICtrlCreateButton("Exit2", 624, 304, 121, 25)
GUICtrlSetOnEvent($ButtonExit2, "Exit2")

$Checkbox1 = GUICtrlCreateCheckbox("", 628, 113, 17, 17)
GUICtrlSetOnEvent(-1, "Checkbox1Click")

$LabelDateAuto = GUICtrlCreateLabel("" & _NowDate(), 148, 113, 60, 17)

$DateFinderManual = GUICtrlCreateDate("12/03/2020", 150, 152, 95, 21)
_GUICtrlDTP_SetFormat(GUICtrlGetHandle($DateFinderManual), "dd/MM/yyyy")
GUICtrlSetState($DateFinderManual, $GUI_DISABLE)

$Label15 = GUICtrlCreateLabel("Manual Date", 60, 153, 141, 17)
$Label16 = GUICtrlCreateLabel("Auto Time", 276, 113, 51, 17)
$LabelTimeAuto = GUICtrlCreateLabel("" & _NowTime(), 340, 113, 60, 17)

$Label17 = GUICtrlCreateLabel("Manual Time", 300, 153, 128, 17)

Local $InputTimeManual = GUICtrlCreateDate("", 390, 153, 90, 21, $DTS_TIMEFORMAT)
GUICtrlSetState($InputTimeManual, $GUI_DISABLE)


$Label3 = GUICtrlCreateLabel("Press to Manual Time", 468, 113, 143, 17)

$List1 = GUICtrlCreateList("", 141, 375, 297, 162)


$Label29 = GUICtrlCreateLabel("Auto Date and Time: ", 512, 376, 111, 17)
$LabelsDateAutoLoad = GUICtrlCreateLabel("", 640, 376, 258, 17)
$Label30 = GUICtrlCreateLabel("Manual Date: ", 512, 400, 78, 17)
$LabelsDateManual = GUICtrlCreateLabel("", 600, 400, 282, 17)
$Label31 = GUICtrlCreateLabel("Manual Time: ", 512, 424, 83, 17)	;Load Labels
$LabelsTimeManual = GUICtrlCreateLabel("", 600, 424, 266, 17)
$Label32 = GUICtrlCreateLabel("In/Out: ", 512, 448, 93, 17)
$LabelsInOut = GUICtrlCreateLabel("", 616, 448, 242, 17)
$Label33 = GUICtrlCreateLabel("Interlocutor: ", 512, 472, 63, 17)
$LabelsInter = GUICtrlCreateLabel("", 584, 472, 338, 17)
$Label34 = GUICtrlCreateLabel("Issue: ", 512, 496, 42, 17)
$LabelsIssue = GUICtrlCreateLabel("", 560, 496, 362, 17)
$Label35 = GUICtrlCreateLabel("Remarks: ", 512, 520, 81, 17)
$LabelsRemarks = GUICtrlCreateLabel("", 600, 520, 338, 25)


$Button2 = GUICtrlCreateButton("Edit", 64, 560, 121, 25)
$Button4 = GUICtrlCreateButton("Delete", 784, 560, 137, 25)

$ComboBoxLoad = GUICtrlCreateCombo("", 400, 560, 49, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($ComboBoxLoad, "2h|6h|24h", "")
$Label18 = GUICtrlCreateLabel("Load", 352, 560, 35, 17)
$ButtonLoad = GUICtrlCreateButton("Load", 488, 560, 89, 17)
GUICtrlSetOnEvent($ButtonLoad, "Load")

$TabSheet3 = GUICtrlCreateTabItem("Notes")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func Checkbox1Click()
    If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
        GUICtrlSetState($DateFinderManual, $GUI_ENABLE)
        GUICtrlSetState($InputTimeManual, $GUI_ENABLE)
    Else
        GUICtrlSetState($DateFinderManual, $GUI_DISABLE)
        GUICtrlSetState($InputTimeManual, $GUI_DISABLE)
    EndIf
 EndFunc


$aSecNames = IniReadSectionNames("agendaprueba3.ini")


For $i = 2 to UBound($aSecNames)

    GUICtrlSetData($List1,$aSecNames[$i-1])

Next


Func  Save()

$sDateAuto = GUICtrlRead($LabelDateAuto)
$sTimeAuto = GUICtrlRead($LabelTimeAuto)
$sDateManual = GUICtrlRead($DateFinderManual)
$sTimeManual= GUICtrlRead($InputTimeManual)
$sInOut = GUICtrlRead($ComboBoxInOut)
$sInter = GUICtrlRead($ComboBoxInter)
$sIssue = GUICtrlRead($ComboBoxIssue)
$sRemarks = GUICtrlRead($EditRemarks)



IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "Manual Date",$sDateManual)
IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "Manual Time",$sTimeManual)
IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "In/Out",$sInOut)
IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "Interlocutor",$sInter)
IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "Issue",$sIssue)
IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "Remarks",$sRemarks)
IniWrite(@ScriptDir & "\agendaprueba3.ini", $sDateAuto & " " & $sTimeAuto, "-----------------------------------------------------------------", " ")

EndFunc


Func Load()

 $sDateAutoLoad = $sDateAuto & " " & $sTimeAuto

$aSecNames = IniReadSectionNames("agendaprueba3.ini")
$nMsg = GUIGetMsg()
    Switch $nMsg
            For $i = 2 to UBound($aSecNames)

                GUICtrlSetData($List1,$aSecNames[$i-1])

			Next
      case $List1
            $sDateAutoLoad = GUICtrlRead($List1)
			$sDateManual = IniRead("agendaprueba3.ini",$sDateAutoLoad,"Manual Date","None")
			$sTimeManual = IniRead("agendaprueba3.ini",$sDateAutoLoad,"Manual Time","None")
			$sInOut = IniRead("agendaprueba3.ini",$sDateAutoLoad,"In/Out","None")
            $sInter = IniRead("agendaprueba3.ini",$sDateAutoLoad,"Interlocutor","None")
            $sIssue = IniRead("agendaprueba3.ini",$sDateAutoLoad,"Issue","None")
			$sRemarks = IniRead("agendaprueba3.ini",$sDateAutoLoad,"Remarks","None")

            GUICtrlSetData($LabelsDateAutoLoad,$sDateAutoLoad)
            GUICtrlSetData($LabelsDateManual,$sDateManual)
            GUICtrlSetData($LabelsTimeManual,$sTimeManual)
			GUICtrlSetData($LabelsInOut,$sInOut)
			GUICtrlSetData($LabelsInter,$sInter)
			GUICtrlSetData($LabelsIssue,$sIssue)
			GUICtrlSetData($LabelsRemarks,$sRemarks)
	  EndSwitch
   EndFunc


Func Exit2()
   Exit
EndFunc

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
                ContinueCase
        Case $ButtonExit2
                Exit
    EndSwitch
WEnd