#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <ButtonConstants.au3>
#Include <GuiTab.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <GuiTab.au3>


#Region ### START Koda GUI section ### Form=C:\LOC\Form1.kxf
Global $Form1_1 = GUICreate("LOGICIEL DE LOCATION NEIGE ET SOLEIL SPORTS", 857, 630, 212, 129)
Global $MenuItem1 = GUICtrlCreateMenu("&FICHE LOC")
Global $MenuItem2 = GUICtrlCreateMenuItem("CREATION", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenuItem("RECHERCHE", $MenuItem1)
Global $MenuItem10 = GUICtrlCreateMenuItem("REGLEMENT", $MenuItem1)
Global $MenuItem4 = GUICtrlCreateMenu("&CLIENTS")
Global $MenuItem5 = GUICtrlCreateMenuItem("CREATION", $MenuItem4)
Global $MenuItem6 = GUICtrlCreateMenuItem("MODIFICATION", $MenuItem4)
Global $MenuItem18 = GUICtrlCreateMenuItem("RECHERCHE", $MenuItem4)
Global $MenuItem7 = GUICtrlCreateMenu("&MATERIEL")
Global $MenuItem8 = GUICtrlCreateMenuItem("RECHERCHER", $MenuItem7)
Global $MenuItem9 = GUICtrlCreateMenuItem("MODIFIER", $MenuItem7)
Global $MenuItem12 = GUICtrlCreateMenuItem("CREATION", $MenuItem7)
Global $MenuItem11 = GUICtrlCreateMenu("&STAT")
Global $MenuItem13 = GUICtrlCreateMenuItem("CUMUL DE LOC", $MenuItem11)
Global $MenuItem15 = GUICtrlCreateMenu("&ADMIN")
Global $MenuItem16 = GUICtrlCreateMenuItem("TARIF", $MenuItem15)
Global $MenuItem17 = GUICtrlCreateMenuItem("SKIMEN", $MenuItem15)
Global $MenuItem19 = GUICtrlCreateMenuItem("APPORTEURS", $MenuItem15)
Global $MenuItem20 = GUICtrlCreateMenuItem("QUITTER", $MenuItem15)
Global $Tab = GUICtrlCreateTab(8, 72, 897, 553)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
;                                                     				                       ___________FEUILLE FICHE LOC___________
Global $TabSheet1 = GUICtrlCreateTabItem("FICHE LOC CREATION")
GUICtrlSetState(-1,$GUI_SHOW)
;~ if MsgBox(64,"tabsheet 1", $TabSheet1) = 1 then GUICtrlSetState(23,$gui_show)
;~ MsgBox(64,"tabsheet 1", $TabSheet1)
Global $CB = GUICtrlCreateInput("", 200, 352, 465, 21)
Global $TitreFiche = GUICtrlCreateInput("TitreFiche", 128, 392, 57, 21)
Global $NomFiche = GUICtrlCreateInput("NomFiche", 128, 424, 169, 21)
Global $PrenomFiche = GUICtrlCreateInput("PrenomFiche", 128, 456, 169, 21)
Global $NumCBs = GUICtrlCreatelabel("NumCBs", 424, 424, 201, 21)
Global $DateCB = GUICtrlCreateInput("DateCB", 424, 456, 137, 21)
Global $Button1 = GUICtrlCreateButton("Création du client", 680, 424, 100, 49, $WS_GROUP)

;~ Global $INPUTCB = GUICtrlCreateInput("", 280, 160, 457, 28)
;~ GUICtrlSetLimit(-1, 55)
;~ GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
;~ Global $Label1 = GUICtrlCreateLabel("Label1", 24, 120, 51, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Global $Label2 = GUICtrlCreateLabel("DateOuvertureFiche", 576, 112, 100, 17)
;~ Global $Label3 = GUICtrlCreateLabel("HeureOuvertureFiche", 824, 112, 106, 17)
;~ Global $NomSkimanOuverture = GUICtrlCreateLabel("NomSkimanOuverture", 168, 120, 154, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Global $NumClientFiche = GUICtrlCreateLabel("NumClientFiche", 24, 176, 112, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Global $Input1 = GUICtrlCreateInput("Input1", 208, 232, 345, 21)
;~ Global $Input2 = GUICtrlCreateInput("Input2", 208, 256, 353, 21)
;~ Global $Input3 = GUICtrlCreateInput("Input3", 208, 208, 97, 21)
;~ Global $Label4 = GUICtrlCreateLabel("Titre", 144, 208, 36, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Global $Label5 = GUICtrlCreateLabel("Nom", 144, 232, 36, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ Global $Label6 = GUICtrlCreateLabel("Prénom", 144, 256, 57, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;                                                     				                       ___________FEUILLE CLIENT___________
Global $TabSheet2 = GUICtrlCreateTabItem("CLIENTS CREATION")
;~ GUICtrlSetState(-1,$GUI_SHOW)
Global $NomClient = GUICtrlCreateInput("NomClient", 72, 128, 305, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
Global $PrenomClient = GUICtrlCreateInput("PrenomClient", 72, 168, 305, 21)
Global $Adresse01 = GUICtrlCreateInput("Adresse01", 72, 200, 305, 21)
Global $Adresse02 = GUICtrlCreateInput("Adresse02", 72, 232, 305, 21)
Global $CodePostal = GUICtrlCreateInput("CodePostal", 72, 264, 305, 21)
Global $Ville = GUICtrlCreateInput("Ville", 72, 296, 305, 21)
Global $Pays = GUICtrlCreateInput("Pays", 72, 328, 305, 21)
Global $Email = GUICtrlCreateInput("Email", 72, 424, 305, 21)
Global $TelFixe = GUICtrlCreateInput("TelFixe", 72, 360, 305, 21)
Global $Portable = GUICtrlCreateInput("Portable", 72, 392, 305, 21)
Global $NumCB = GUICtrlCreateInput("NumCB", 72, 456, 305, 21)
Global $Expir = GUICtrlCreateInput("Expir", 72, 488, 73, 21)
Global $Code3 = GUICtrlCreateInput("Code3", 72, 520, 73, 21)
Global $VALIDER = GUICtrlCreateButton("VALIDER", 104, 568, 97, 25, $WS_GROUP)
Global $ANNULER = GUICtrlCreateButton("ANNULER", 248, 568, 97, 25, $WS_GROUP)
Global $ComboNom = GUICtrlCreateCombo("ComboNom", 424, 128, 441, 25)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
Global $RECHERCHE = GUICtrlCreateButton("MODE RECHERCHE", 400, 560, 161, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $CREATION = GUICtrlCreateButton("MODE CREATION", 592, 560, 161, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF00FF)
Global $NumClient = GUICtrlCreateLabel("", 16, 96, 68, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)

;																					  ___________FEUILLE MATERIEL____________
Global $TabSheet3 = GUICtrlCreateTabItem("MATERIEL")
Global $Categorie = GUICtrlCreateCombo("Categorie", 80, 200, 289, 25)
Global $Combo2 = GUICtrlCreateCombo("Combo2", 80, 248, 289, 25)
Global $Combo3 = GUICtrlCreateCombo("Combo3", 80, 304, 289, 25)
Global $Combo4 = GUICtrlCreateCombo("Combo4", 80, 352, 289, 25)
Global $TabSheet4 = GUICtrlCreateTabItem("CLIENT MODIFICATION")
Global $TabSheet5 = GUICtrlCreateTabItem("REGLEMENT")
Global $TabSheet7 = GUICtrlCreateTabItem("FICHE LOC RECHERCHE")
GUICtrlCreateTabItem("")
Global $ENTREE = GUICtrlCreateInput("", 232, 8, 401, 37)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Global $sFilePath1 = @ScriptDir & "\LOC.xls" ;This file should already exist
Global $Excel = _ExcelBookOpen($sFilePath1)

While 1
	global $nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $MenuItem1

		Case $MenuItem2			; CREATION FICHE LOC
			_GUICtrlTab_SetCurSel($Tab, 0)

		Case $MenuItem1
		Case $MenuItem2
		Case $MenuItem3
		Case $MenuItem10
		Case $MenuItem4
		Case $MenuItem5
		Case $MenuItem6
		Case $MenuItem18
		Case $MenuItem7
		Case $MenuItem8
		Case $MenuItem9
		Case $MenuItem12
		Case $MenuItem11
		Case $MenuItem13
		Case $MenuItem15
		Case $MenuItem16
		Case $MenuItem17
		Case $MenuItem19
		Case $MenuItem20		; QUITTER
			if MsgBox(1,"QUITTER ?", "Voulez vous quitter le programme ?",4) = 1 then
				_ExcelBookClose($Excel)
				exit
			EndIf
		Case $Form1_1
		Case $Form1_1
		Case $Form1_1
		Case $Form1_1
		Case $CB

			global $MN = GUICtrlRead($CB)
			Global $var = StringMid($MN, 3, 16) ; on extrait le num cb
			$NumCBs = $var
			GUICtrlSetData(28, $var) ; on attribue à $NumCBs la valeur de $var
			$mn = StringTrimLeft($mn, 19) ; on retire de la chaine complête le num de cb
			global $result = StringInStr($mn, "/") ; on recherche la première occurence de "/" dans la chaine
			global $len = StringLen($mn)
			$var = StringMid($MN, 1,$result-1)
			$nomfiche = $var
			GUICtrlSetData(26, $var) ; on attribue à $NomFiche la valeur de $var
			$mn = StringTrimLeft($mn, $result) ; on retire de la chaine complête le nom du client
			$result = StringInStr($mn, ".") ; on recherche la première occurence de "." dans la chaine
			$len = StringLen($mn)
			$var = StringMid($MN, 1,$result-1 )
			$PrenomFiche = $var
			GUICtrlSetData(27, $var) ; on attribue à $prenomFiche la valeur de $var
			$mn = StringTrimLeft($mn, $result) ; on retire de la chaine complête le nom du client
			$result = StringInStr($mn, " ") ; on recherche la première occurence de " " dans la chaine
			$len = StringLen($mn)
			$var = StringMid($MN, 1,$result-1 )
			$TitreFiche = $var
			GUICtrlSetData(25, $var) ; on attribue à $prenomFiche la valeur de $var
			$mn = StringTrimLeft($mn, $result) ; on retire de la chaine complête le prénom du client
			$mn = StringStripWS($mn, 1)
			$mn = StringTrimLeft($mn, 1) ; on retire de la chaine complête le "^"
			global $annee =  StringMid($MN, 1,2 )
			global $mois =  StringMid($MN, 3,2 )
			$DateCB = $mois & "/" & $annee
			GUICtrlSetData(29, $DateCB)
			GUICtrlSetData(24, "")
		Case $TitreFiche
		Case $NomFiche
		Case $PrenomFiche
		Case $NumCBs

		Case $DateCB
		Case $Button1
			if $NumCBs <> "" then 
				$NomClient = $NomFiche
				GUICtrlSetData(44, $Nomclient)	;on attribue à $NomClient la valeur de $NomFiche de la page creation de fiche
				$PrenomClient = $prenomFiche
				GUICtrlSetData(45, $PrenomClient)	;on attribue à $prenomClient la valeur de $prenomFiche de la page creation de fiche
				_GUICtrlTab_ClickTab($Tab, 1, "left", False, 1)
			endif	
;~ 				MsgBox(0,"titre", $NomClient)
		Case $NomClient
		Case $PrenomClient
		Case $Adresse01
		Case $Adresse02
		Case $CodePostal
		Case $Ville
		Case $Pays
		Case $Email
		Case $TelFixe
		Case $Portable
		Case $NumCB
		Case $Expir
		Case $Code3
		Case $VALIDER
		Case $ANNULER
		Case $ComboNom
		Case $RECHERCHE
		Case $CREATION
		Case $NumClient
		Case $Categorie
		Case $Combo2
		Case $Combo3
		Case $Combo4
		Case $Tab
		Case $ENTREE

	EndSwitch
WEnd