#include <GUIConstantsEx.au3>
_Main()
Func _Main()
Local $filemenu, $fileitem, $recentfilesmenu, $separator1
Local $exititem, $helpmenu, $aboutitem, $okbutton, $cancelbutton
Local $msg, $file
#forceref $separator1
GUICreate("RUN", 600, 700)
$filemenu = GUICtrlCreateMenu("File")
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
$okbutton = GUICtrlCreateButton("Удаление старых накладных", 30, 50, 250, 20)
$okbutton1 = GUICtrlCreateButton("Отправка накладных" , 30, 80, 250, 20)
$okbutton20 = GUICtrlCreateButton("Импорт остатков М" , 300, 50, 250, 20)
$okbutton21 = GUICtrlCreateButton("Импорт остатков Ф" , 300, 80, 250, 20)
$okbutton22 = GUICtrlCreateButton("Импорт остатков З" , 300, 110, 250, 20)
$okbutton23 = GUICtrlCreateButton("Импорт остатков К" , 300, 140, 250, 20)
$okbutton24 = GUICtrlCreateButton("Импорт остатков У" , 300, 170, 250, 20)
$okbutton25 = GUICtrlCreateButton("Импорт остатков Д" , 300, 200, 250, 20)
$okbutton26 = GUICtrlCreateButton("Импорт остатков В" , 300, 230, 250, 20)
$okbutton27 = GUICtrlCreateButton("Импорт остатков К" , 300, 260, 250, 20)
$okbutton28 = GUICtrlCreateButton("Импорт остатков Ка" , 300, 290, 250, 20)
$okbutton29 = GUICtrlCreateButton("Импорт остатков Ма" , 300, 320, 250, 20)
$okbutton30 = GUICtrlCreateButton("Импорт остатков П" , 300, 350, 250, 20)
$okbutton8 = GUICtrlCreateButton("Остатки ALL" , 30, 200, 250, 20)
$okbutton9 = GUICtrlCreateButton("Плеханова с Флешки" , 30, 230, 250, 20)
$okbutton10 = GUICtrlCreateButton("Копия Base М" , 30, 330, 250, 20)
$okbutton11 = GUICtrlCreateButton("Копия Base Ф" , 30, 360, 250, 20)
$okbutton12 = GUICtrlCreateButton("Копия Base З" , 30, 390, 250, 20)
$okbutton13 = GUICtrlCreateButton("Копия Base К" , 30, 420, 250, 20)
$okbutton14 = GUICtrlCreateButton("Копия Base У" , 30, 450, 250, 20)
$okbutton15 = GUICtrlCreateButton("Копия Base Д" , 30, 480, 250, 20)
$okbutton16 = GUICtrlCreateButton("Копия Base В" , 30, 510, 250, 20)
$okbutton17 = GUICtrlCreateButton("Копия Base Ку" , 30, 540, 250, 20)
$okbutton18 = GUICtrlCreateButton("Копия Base Ка" , 30, 570, 250, 20)
$okbutton19 = GUICtrlCreateButton("Копия Base Ма" , 30, 600, 250, 20)
$cancelbutton = GUICtrlCreateButton("Exit", 520, 650, 70, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
ExitLoop
Case $msg = $exititem
ExitLoop
Case $msg = $okbutton
ShellExecute("D:\RUN\Батники\Удаление старых накладных.bat", "" ,"c:\")
Case $msg = $okbutton1
ShellExecute("D:\RUN\Батники\Отправка накладных.bat", "" ,"c:\")
Case $msg = $okbutton20
ShellExecute("D:\RUN\Закачка остатков\М\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton21
ShellExecute("D:\RUN\Закачка остатков\Ф\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton22
ShellExecute("D:\RUN\Закачка остатков\З\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton23
ShellExecute("D:\RUN\Закачка остатков\К\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton24
ShellExecute("D:\RUN\Закачка остатков\У\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton25
ShellExecute("D:\RUN\Закачка остатков\Д\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton26
ShellExecute("D:\RUN\Закачка остатков\В\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton27
ShellExecute("D:\RUN\Закачка остатков\Ку\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton28
ShellExecute("D:\RUN\Закачка остатков\Ка\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton29
ShellExecute("D:\RUN\Закачка остатков\Ма\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton30
ShellExecute("D:\RUN\Закачка остатков\П\ZakOstatki.exe", "" ,"c:\")
Case $msg = $okbutton8
ShellExecute("D:\RUN\Батники\Остатки ALL.bat", "" ,"c:\")
Case $msg = $okbutton9
ShellExecute("D:\RUN\Батники\Копия баз.bat", "" ,"c:\")
Case $msg = $okbutton10
ShellExecute("D:\RUN\Батники\М.bat", "" ,"c:\")
Case $msg = $okbutton11
ShellExecute("D:\RUN\Батники\Ф.bat", "" ,"c:\")
Case $msg = $okbutton12
rem ShellExecute("D:\RUN\Батники\З.bat", "" ,"c:\")
Case $msg = $okbutton13
ShellExecute("D:\RUN\Батники\Ки.bat", "" ,"c:\")
Case $msg = $okbutton14
ShellExecute("D:\RUN\Батники\у.bat", "" ,"c:\")
Case $msg = $okbutton15
ShellExecute("D:\RUN\Батники\Д.bat", "" ,"c:\")
Case $msg = $okbutton16
ShellExecute("D:\RUN\Батники\В.bat", "" ,"c:\")
Case $msg = $okbutton17
ShellExecute("D:\RUN\Батники\Ку.bat", "" ,"c:\")
Case $msg = $okbutton18
ShellExecute("D:\RUN\Батники\Ка.bat", "" ,"c:\")
Case $msg = $okbutton19
ShellExecute("D:\RUN\Батники\Ма.bat", "" ,"c:\")
EndSelect
WEnd
GUIDelete()
Exit
EndFunc