#include <GuiConstantsEx.au3>
#include <GUIConstantsEx.au3>



Opt('MustDeclareVars', 1)

_Main()

Func _Main()
	Local $Label1, $Label2, $Label3, $Label4, $button16, $Label5, $Label6, $Label7, $Label8, $Label9, $Label10, $Label11, $Label12, $Label13, $Label14, $Label15, $Label16, $Combo_2, $Combo_3, $Combo_4, $Combo_5, $Combo_6, $Combo_7, $Combo_8, $Combo_9, $Combo_10, $Combo_11, $Combo_12, $Combo_13, $Combo_14, $Combo_15, $Combo_16, $Combo_17
	Local $oui1, $oui2, $oui3, $oui4, $oui5, $oui6, $oui7, $oui8, $oui9, $oui10, $oui11, $oui12, $oui14, $oui15, $oui16, $non1, $non2, $non3, $non4, $non5, $non6, $non7, $non8, $non9, $non10, $non11, $non12, $non14, $non15, $non16, $msg, $data, $data2, $edit1, $sourceServeur, $valider, $code, $erreur
	GUICreate("Interface", 700, 700, (@DesktopWidth - 600) / 2, (@DesktopHeight - 600) / 2)

;; isolation
	GUICtrlCreateGroup("", 10, 2, 370, 30)
	$Label1 = GUICtrlCreateLabel("Voulez-vous isolé les utilisateurs?", 30, 10, 230, 20, 0x1000)
	$oui1 = GUICtrlCreateRadio("oui", 270, 10, 40, 20)
	$non1 = GUICtrlCreateRadio("non", 320, 10, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

;; Arret des services
	$Label2 = GUICtrlCreateLabel("Arret des service?", 30, 40, 230, 20, 0x1000)
	$Combo_2 = GUICtrlCreateCombo("", 270, 40, 180, 21)
	GUICtrlSetData($Combo_2, "Arret GSTOCK|Arret_Complet GSTOCK")
	


;; Sauvegarde de la base de données échange
	GUICtrlCreateGroup("", 10, 62, 370, 30)
	$Label3 = GUICtrlCreateLabel("Sauvegarde de la base de données échange?", 30, 70, 230, 20, 0x1000)
	$oui3 = GUICtrlCreateRadio("oui", 270, 70, 40, 20)
	$non3 = GUICtrlCreateRadio("non", 320, 70, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

	
;; Sauvegarde de la base de données GSTOCK
	GUICtrlCreateGroup("", 10, 92, 370, 30)
	$Label4 = GUICtrlCreateLabel("Sauvegarde de la base de données GSTOCK?", 30, 100, 230, 20, 0x1000)
	$oui4 = GUICtrlCreateRadio("oui", 270, 100, 40, 20)
	$non4 = GUICtrlCreateRadio("non", 320, 100, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

; copie de fichier et sauvegarde des anciens
	GUICtrlCreateGroup("", 10, 122, 370, 30)
	$Label5 = GUICtrlCreateLabel("Copie de Fichiers sur le repertoire Serveur?", 30, 130, 230, 20, 0x1000)
	$oui5 = GUICtrlCreateRadio("oui", 270, 130, 40, 20)
	$non5 = GUICtrlCreateRadio("non", 320, 130, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
	
	GUICtrlCreateGroup("", 10, 152, 370, 30)
	$Label6 = GUICtrlCreateLabel("Copie de Fichiers sur le repertoire Interface?", 30, 160, 230, 20, 0x1000)
	$oui6 = GUICtrlCreateRadio("oui", 270, 160, 40, 20)
	$non6 = GUICtrlCreateRadio("non", 320, 160, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

	GUICtrlCreateGroup("", 10, 182, 370, 30)
	$Label7 = GUICtrlCreateLabel("Copie de Fichiers sur le repertoire Client?", 30, 190, 230, 20, 0x1000)
	$oui7 = GUICtrlCreateRadio("oui", 270, 190, 40, 20)
	$non7 = GUICtrlCreateRadio("non", 320, 190, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

	GUICtrlCreateGroup("", 10, 212, 370, 30)
	$Label8 = GUICtrlCreateLabel("Copie de Fichiers sur le repertoire Report?", 30, 220, 230, 20, 0x1000)
	$oui8 = GUICtrlCreateRadio("oui", 270, 220, 40, 20)
	$non8 = GUICtrlCreateRadio("non", 320, 220, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
	
	
	
;; Mise a jour du serveur
	GUICtrlCreateGroup("", 10, 242, 370, 30)
	$Label9 = GUICtrlCreateLabel("Mise à jour du serveur?", 30, 250, 230, 20, 0x1000)
	$oui9 = GUICtrlCreateRadio("oui", 270, 250, 40, 20)
	$non9 = GUICtrlCreateRadio("non", 320, 250, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

	

	$Label9 = GUICtrlCreateLabel("Quelle mise à jour du serveur voulez-vous effectuer? (Toute la configuration doit être choisi en dernier)", 30, 280, 230, 40, 0x1000)
	$Combo_3 = GUICtrlCreateCombo("", 270, 300, 180, 21)
	GUICtrlSetData($Combo_3, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_4 = GUICtrlCreateCombo("", 270, 320, 180, 21)
	GUICtrlSetData($Combo_4, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_5 = GUICtrlCreateCombo("", 270, 340, 180, 21)
	GUICtrlSetData($Combo_5, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_6 = GUICtrlCreateCombo("", 270, 360, 180, 21)
	GUICtrlSetData($Combo_6, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_7 = GUICtrlCreateCombo("", 270, 380, 180, 21)
	GUICtrlSetData($Combo_7, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_8 = GUICtrlCreateCombo("", 510, 300, 180, 21)
	GUICtrlSetData($Combo_8, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_9 = GUICtrlCreateCombo("", 510, 320, 180, 21)
	GUICtrlSetData($Combo_9, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_10 = GUICtrlCreateCombo("", 510, 340, 180, 21)
	GUICtrlSetData($Combo_10, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_11 = GUICtrlCreateCombo("", 510, 360, 180, 21)
	GUICtrlSetData($Combo_11, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")
	$Combo_12 = GUICtrlCreateCombo("", 510, 380, 180, 21)
	GUICtrlSetData($Combo_12, "Toute la configuration|Libelles|Listes type|Message erreurs|Ecrans|Grilles|View|Liens|Confprint|Radio|PlanIficateur systéme|Fonction|Base de données|index")


;; Réactivation des services
	GUICtrlCreateGroup("", 10, 402, 370, 40)
	$Label10 = GUICtrlCreateLabel("Voulez-vous réactiver les services ? (obligatoire avant la mise à jour du Client)", 30, 410, 230, 30, 0x1000)
	$oui10 = GUICtrlCreateRadio("oui", 270, 410, 40, 20)
	$non10 = GUICtrlCreateRadio("non", 320, 410, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

;; Mise a jour de l'interface
	GUICtrlCreateGroup("", 10, 437, 370, 30)
	$Label11 = GUICtrlCreateLabel("Mise à jour de l'interface?", 30, 445, 230, 20, 0x1000)
	$oui11 = GUICtrlCreateRadio("oui", 270, 445, 40, 20)
	$non11 = GUICtrlCreateRadio("non", 320, 445, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
	
;; Mise a jour du Client
	
	GUICtrlCreateGroup("", 10, 462, 370, 30)
	$Label12 = GUICtrlCreateLabel("Mise à jour du client?", 30, 470, 230, 20, 0x1000)
	$oui12 = GUICtrlCreateRadio("oui", 270, 470, 40, 20)
	$non12 = GUICtrlCreateRadio("non", 320, 470, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
	
	$Label13 = GUICtrlCreateLabel("Quelle mise à jour Client?", 30, 495, 230, 20, 0x1000)
	$Combo_13 = GUICtrlCreateCombo("", 270, 495, 180, 20)
	GUICtrlSetData($Combo_13, "ConfEcran|ConfGrille|ConfLibelle|ConfListeType|ConfErreur|ConfPrint|ConfReport|TClient1|TClient2|TClient3|TClient4|TClient5")
	$Combo_14 = GUICtrlCreateCombo("", 270, 515, 180, 20)
	GUICtrlSetData($Combo_14, "ConfEcran|ConfGrille|ConfLibelle|ConfListeType|ConfErreur|ConfPrint|ConfReport|TClient1|TClient2|TClient3|TClient4|TClient5")
	$Combo_15 = GUICtrlCreateCombo("", 270, 535, 180, 20)
	GUICtrlSetData($Combo_15, "ConfEcran|ConfGrille|ConfLibelle|ConfListeType|ConfErreur|ConfPrint|ConfReport|TClient1|TClient2|TClient3|TClient4|TClient5")
	$Combo_16 = GUICtrlCreateCombo("", 450, 495, 180, 20)
	GUICtrlSetData($Combo_16, "ConfEcran|ConfGrille|ConfLibelle|ConfListeType|ConfErreur|ConfPrint|ConfReport|TClient1|TClient2|TClient3|TClient4|TClient5")
	$Combo_17 = GUICtrlCreateCombo("", 450, 515, 180, 20)
	GUICtrlSetData($Combo_17, "ConfEcran|ConfGrille|ConfLibelle|ConfListeType|ConfErreur|ConfPrint|ConfReport|TClient1|TClient2|TClient3|TClient4|TClient5")

;; Reset des reservations
	GUICtrlCreateGroup("", 10, 552, 370, 30)
	$Label16 = GUICtrlCreateLabel("Voulez-vous faire un reset des reservations ?" , 30, 560, 230, 20, 0x1000)
	$oui16 = GUICtrlCreateRadio("oui", 270, 560, 40, 20)
	$non16 = GUICtrlCreateRadio("non", 320, 560, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
	
;; réactivation des utilisateurs
	GUICtrlCreateGroup("", 10, 582, 370, 30)
	$Label14 = GUICtrlCreateLabel("Voulez-vous réactiver les utilisateurs?", 30, 590, 230, 20, 0x1000)
	$oui14 = GUICtrlCreateRadio("oui", 270, 590, 40, 20)
	$non14 = GUICtrlCreateRadio("non", 320, 590, 40, 20)
	GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group

;; Numero de livraison
	$Label15 = GUICtrlCreateLabel("Quel est le numéro de livraison ou de version?", 30, 620, 230, 20, 0x1000)
	$edit1= GUICtrlCreateEdit("", 270, 620, 100, 20)
	
;; Lancement de la création du script

	$valider=GUICtrlCreateButton ("Lancer l'édition du script", 400, 600, 150, 30)

	; Run the GUI until it is closed
	GUISetState()
	while 1
		$msg = GUIGetMsg()
		
		Select
		
		Case $msg = $GUI_EVENT_CLOSE
				ExitLoop
				;When button is pressed, label text is changed
				;to combobox value
		Case $msg = $valider and $edit1 <> ""
			select
			Case $msg = $oui1
				run ("C:\Program Files\ELECTROCLASS\G-STOCK\isolation.bat")
			
			Case $msg = $Combo_2
				$data = GUICtrlRead ($Combo_2)
				If $data = "Arret_Complet GSTOCK" Then 
					run("C:\Program Files\ELECTROCLASS\G-STOCK\Arret complet G-Stock.bat")
				Else 
					run ("C:\Program Files\ELECTROCLASS\G-STOCK\Arret G-Stock.bat")
				EndIf
			
			Case $msg = $oui3
				$code=run ("C:\WINDOWS\system32\cmd.exe","C:\WINDOWS\system32"); on lance l'editeur de commande dos
				If $code =0 Then ERROR ($code)
				WinWaitActive("C:\WINDOWS\system32\cmd.exe"); on attend l'affichage de la fenetre
				Send ('osql.exe -E -i "D:\Sauvegarde_BD_Script\Sauvegarde_ech01.sql"'); lancement d'osql pour exécuter des commandes sql sous dos
				Send ("{enter}")
				Sleep (15000)
				MsgBox(4096, "Sauvegarde _ech01", "la base de données _ech01 a été sauvegarder", 5)
				$code=WinClose ("C:\WINDOWS\system32\cmd.exe")
				If $code =0 Then ERROR ($code)
			
			Case $msg = $oui4
				$code=run ("C:\WINDOWS\system32\cmd.exe","C:\WINDOWS\system32"); on lance l'editeur de commande dos
				If $code =0 Then ERROR ($code)
				WinWaitActive("C:\WINDOWS\system32\cmd.exe"); on attend l'affichage de la fenetre
				Send ('osql.exe -E -i "D:\Sauvegarde_BD_Script\Sauvegarde_gst01.sql"'); lancement d'osql pour exécuter des commandes sql sous dos
				Send ("{enter}")
				Sleep (15000)
				MsgBox(4096, "Sauvegarde _ech01", "la base de données _ech01 a été sauvegarder", 5)
				$code=WinClose ("C:\WINDOWS\system32\cmd.exe")
				If $code =0 Then ERROR ($code)		
				
			Case $msg = $edit1
				$SourceServeur = "E:\Livraisons\Livraison " & GUICtrlRead ($edit1 ) & "\Maj serveur"
				$SourceInterface = "E:\Livraisons\Livraison " & GUICtrlRead ($edit1 ) & "\Maj interface"
				$SourceClient = "E:\Livraisons\Livraison " & GUICtrlRead ($edit1 ) & "\Maj interface"
				$SourceReport = "E:\Livraisons\Livraison " & GUICtrlRead ($edit1 ) & "\Maj report"
				$RepServeurSauveagrde = DirCreate ("D:\Repertoire_AvantBL" & GUICtrlRead ($edit1 ) & "\Serveur") 
				$RepInterfaceSauveagrde = DirCreate ("D:\Repertoire_AvantBL" & GUICtrlRead ($edit1 ) & "\interface") 
				$RepClientSauveagrde = DirCreate ("D:\Repertoire_AvantBL" & GUICtrlRead ($edit1 ) & "\Client") 
				
				
			Case $msg = $oui5
				DirCopy ("Program Files\ELECTROCLASS\G-STOCK\Server", $RepServeurSauveagrde, 1) ; sauvagarde du repertoire server
				DirCopy ($SourceServeur, "C:\Program Files\ELECTROCLASS\G-STOCK\Server", 1)
			
			Case $msg = $oui6
				DirCopy ("Program Files\ELECTROCLASS\G-STOCK\interface", $RepInterfaceSauveagrde, 1) ; sauvegarde du repertoire interface
				DirCopy ($SourceInterface , "Program Files\ELECTROCLASS\G-STOCK\interface", 1)
			
			Case $msg = $oui7
				DirCopy ("Program Files\ELECTROCLASS\G-STOCK\Client", $RepClientSauveagrde, 1) ; sauvegarde du repertoire Client
				DirCopy ($SourceInterface , "Program Files\ELECTROCLASS\G-STOCK\interface", 1)
				
			Case $msg = $oui8
				DirCopy ($SourceReport, "Program Files\ELECTROCLASS\G-STOCK\Client\Report")
			
			Case $msg = $oui9
				$code=run ("C:\Program Files\ELECTROCLASS\G-STOCK\Server\Gestock_cs.exe", "C:\Program Files\ELECTROCLASS\G-STOCK\Server\", @SW_MAXIMIZE)
				If $code =0 Then ERROR ($code)
				Sleep ("180000")
				MsgBox(4096, "Gstock server", "Gstock server a ete executer", 5)
				If winexists ("G-STOCK Server") Then WinActivate ("G-STOCK Server")
				WinWaitActive ("G-STOCK Server")
				
			Case $msg = $Combo_3
				$data = GUICtrlRead ( $Combo_3 )
				MAJ_serveur ($data)
				
				
			Case $msg= $oui10
				run ("C:\Program Files\ELECTROCLASS\G-STOCK\demarrage complet G-Stock.bat")
				Sleep (60000)
				winclose ("demarrage complet G-Stock.bat")
				
			Case $msg = $oui11
				run ("C:\Program Files\ELECTROCLASS\G-STOCK\interface\DCMAT_Interface.exe")
				Sleep (60000) 
				WinWaitActive ("Interface G-STOCK SIMAT pour la DCMAT")
				If WinActive ("Interface G-STOCK SIMAT pour la DCMAT") Then Send ("!mmm{enter}")
				Sleep (45000)
				WinClose ("Interface G-STOCK SIMAT pour la DCMAT")
				
			Case $msg = $oui12
				run ("C:\Program Files\ELECTROCLASS\G-STOCK\Client\Client.exe")
				$code=run("C:\Program Files\ELECTROCLASS\G-STOCK\Client\Client.exe", "C:\Program Files\ELECTROCLASS\G-STOCK\Client\")
				$erreur= $erreur + 1;42
				If $code =0 Then ERROR ($code, $erreur)
				Sleep (40000)
				WinWaitActive("IdentIfication Client G-STOCK", "")
				$code=ControlSetText("IdentIfication Client G-STOCK", "", "[CLASS:ThunderRT6TextBox; INSTANCE:2]", "ecsa")
				$erreur= $erreur + 1;43
				If $code =0 Then ERROR ($code, $erreur)
				$code=ControlSetText("IdentIfication Client G-STOCK", "", "[CLASS:ThunderRT6TextBox; INSTANCE:1]", "ecsa")
				$erreur= $erreur + 1;44
				If $code =0 Then ERROR ($code, $erreur)
				Sleep (5000)
				Send("{enter}")
				Sleep(20000)
				MsgBox(4096, "Execution du Clien", "le Client a ete lancé", 10)
				If WinExists ("G-STOCK ") Then WinActivate ("G-STOCK ")
				WinWaitActive ("G-STOCK ")
				Send("!F{down}{enter}")
				WinWaitActive ("Chargement Initial")
				
			Case $msg = $Combo_13
				MAJ_client (GUICtrlRead ($Combo_13))
				ControlClick ("Chargement Initial", "", "[CLASS:Button; INSTANCE:1]")
			
			Case $msg = $Combo_14
				$data = GUICtrlRead ($Combo_14)
				MAJ_client ($data)
				ControlClick ("Chargement Initial", "", "[CLASS:Button; INSTANCE:1]")
			
			Case $msg = $Combo_15
				$data = GUICtrlRead ($Combo_15)
				MAJ_client ($data)
				ControlClick ("Chargement Initial", "", "[CLASS:Button; INSTANCE:1]")	
			
			Case $msg = $Combo_16
				$data = GUICtrlRead ($Combo_16)
				MAJ_client ($data)
				ControlClick ("Chargement Initial", "", "[CLASS:Button; INSTANCE:1]")
			
			Case $msg = $Combo_17
				$data = GUICtrlRead ($combo_17)
				MAJ_client ($data)
				ControlClick ("Chargement Initial", "", "[CLASS:Button; INSTANCE:1]")
			
			Case $msg = $oui16
				If WinExists ("Chargement Initial") Then WinActivate ("Chargement Initial")
				$code=WinClose ("Chargement Initial")
				$erreur= $erreur + 1;45
				If $code =0 Then ERROR ($code, $erreur)
				Send ("!grrrr{enter}")
				WinWaitActive ("G-STOCK ", "Voulez-vous Vider toutes les réservations ?")
				If WinActive ("G-STOCK ", "Voulez-vous Vider toutes les réservations ?") Then ControlClick ("G-STOCK ", "Voulez-vous Vider toutes les réservations ?", "CLASS:Button; INSTANCE:1]")
				MsgBox(4096, "Chargement init", "le chargement de l'initialisation a ete effectué", 5)	
				Sleep (10000)
				WinClose("G-STOCK")
				WinWaitActive ("G-STOCK", "Voulez-vous quitter G-STOCK")
				If WinActive ("G-STOCK", "Voulez-vous quitter G-STOCK") Then ControlClick ("G-STOCK", "Voulez-vous quitter G-STOCK", "[CLASS:Button; INSTANCE:1]")
				Sleep (5000)
			
			Case $msg = $oui14
				run("C:\Program Files\ELECTROCLASS\G-STOCK\reactivation.bat")
					
			EndSelect
		EndSelect
	WEnd
	Exit



EndFunc   ;==>_Main
Func MAJ_serveur ($data)
	If $data = "Toute la configuration" Then 
		Send ("!m{enter}")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Mettre a jour la configuration")
		If WinActive("G-STOSK Server", "Voulez-Vous Mettre a jour la configuration") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour la configuration", "[CLASS:Button; INSTANCE:1]")
		Sleep (2000)
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION") Then WinActivate ("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION", "[CLASS:Button; INSTANCE:1]")
		Sleep (100000)
				
	ElseIf $data = "Libelles" Then 
		Send ("!ml{enter}")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des libelles")
		If WinActive("G-STOSK Server", "Voulez-Vous Mettre a jour des libelles") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour des libelles", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIBELLE", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour des Libelles", "Attente de 1 minute de la mise à jour des Libelles", 5)
 		Sleep (60000)
					
					
	ElseIf $data = "Listes type" Then 
		Send ("!mll{enter}")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des Listes Type")
		If WinActive("G-STOSK Server", "Voulez-Vous Mettre a jour des Listes Type") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour des Listes Type", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLISTETYPE", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour des Listes type", "Attente de 1 minute de la mise à jour des Listes type", 5)
 		Sleep (60000)
					
	ElseIf $data = "Message erreurs" Then 
		Send ("!mm{enter}")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des Erreurs")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des Erreurs") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour des Erreurs", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFERREUR", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour des erreurs", "Attente de 1 minute de la mise à jour des Erreurs", 5)
		Sleep (60000)
					
	ElseIf $data = "Ecrans" Then 
		Send ("!me")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des ecrans")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des ecrans") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour des ecrans", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFECRAN", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour des ecrans", "Attente de 1 minute de la mise à jour des ecrans", 5)
		Sleep(60000)
					
	ElseIf $data = "Grilles" Then 
		Send ("!mg")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Mettre a jour des Grilles")
		If WinActive("G-STOSK Server", "Voulez-Vous Mettre a jour des Grilles") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour des Grilles", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE")
		If WinActive("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFGRILLE", "[CLASS:Button; INSTANCE:1]")
		If WinExists ("G-STOCK Server") Then WinActivate ("G-STOCK Server")
		MsgBox(4096, "mise a jour de des grilles", "Attente de  minute 1 min pour la mise à jour des grilles ", 5)
		Sleep(60000)
					
	ElseIf $data = "View" Then
		Send ("!mv")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des VIEW") 
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour des VIEW") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour des VIEW", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW") 
		If WinActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFVIEW", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour de des view", "Attente de  minute 1 min pour la mise à jour des view ", 5)
		Sleep(60000)
					
	ElseIf $data = "Liens" Then 
		Send ("!mlll{enter}")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour le Liens")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour le Liens") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour le Liens", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN") 
		If WinActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFLIEN", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour des liens", "Attente de  minute 1 min pour la mise à jour des liens ", 5)
		Sleep(60000)
					
	ElseIf $data = "Confprint" Then 
		Send ("!mc")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour a configuration des Print")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour a configuration des Print") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour a configuration des Print", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT")
		If WinActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFPRINT", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour de Confprint", "Attente de  minute 1 min pour la mise à jour des liens ", 5)
		Sleep(60000)
			
	ElseIf $data = "Radio" Then 
		Send ("!mr")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Mettre a jour de la Configuration RADIO")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour de la Configuration RADIO") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour de la Configuration RADIO", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO") 
		If WinActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table CONFRADIO", "[CLASS:Button; INSTANCE:1]")  
		MsgBox(4096, "mise a jour de ConfRadio", "Attente de  minute 1 min pour la mise à jour de ConfRadio ", 5)
		Sleep(60000)
					
	ElseIf $data = "PlanIficateur systéme" Then 
		Send ("!mp")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour PLANFICATEUR SYSTEM")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour PLANFICATEUR SYSTEM") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour PLANFICATEUR SYSTEM", "[CLASS:Button; INSTANCE:1]")
		Sleep (15000)
					
	ElseIf $data = "Fonction" Then
		Send ("!mf")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour les Fonctions")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour les Fonctions") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour les Fonctions", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION")
		If ("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer la Table FONCTION", "[CLASS:Button; INSTANCE:1]")
		MsgBox(4096, "mise a jour des Focntions", "Attente de  minute 1 min pour la mise à jour des fonctions ", 5)
		Sleep (30000)
					
	ElseIf $data = "Base de données" Then
		Send ("!mb")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour la Base de Donnees")
		If WinActive ("G-STOSK Server", "Voulez-Vous Mettre a jour la Base de Donnees") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour la Base de Donnees", "[CLASS:Button; INSTANCE:1]")
		Sleep (15000)
				
	ElseIf $data = "index" Then
		Send ("!mi")
		WinWaitActive ("G-STOSK Server", "Voulez-Vous Mettre a jour les index de Table")
		If WinActive("G-STOSK Server", "Voulez-Vous Mettre a jour les index de Table") Then ControlClick ("G-STOSK Server", "Voulez-Vous Mettre a jour les index de Table", "[CLASS:Button; INSTANCE:1]")
		WinWaitActive("G-STOSK Server", "Voulez-Vous Supprimer Les Index Existants") 
		If WinActive ("G-STOSK Server", "Voulez-Vous Supprimer Les Index Existants") Then ControlClick ("G-STOSK Server", "Voulez-Vous Supprimer Les Index Existants", "CLASS:Button; INSTANCE:1]") 
	EndIf
	
EndFunc
	
Func MAJ_client ($data)
	If $data =  "ConfEcran" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "ConfGrille" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "ConfLibelle" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "ConfListeType" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "ConfErreur" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "ConfPrint" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "ConfReport" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "TClient1" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "TClient2" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "TClient3" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "TClient4" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
	If $data =  "TClient5" Then ControlCommand ("Chargement Initial", "", "[CLASS:ThunderRT6CheckBox; INSTANCE:6]", "Check", "") 
EndFunc


func ERROR ($code, $erreur)
	FileWrite("c:\Temp\test\BD\CompteRendu.log", "Erreur")
	
	Exit
EndFunc