#include <GUIConstants.au3>

DirCreate(@ScriptDir & "\data")
DirCreate(@ScriptDir & "\data\En attente")
DirCreate(@ScriptDir & "\data\En cour")
DirCreate(@ScriptDir & "\data\Finis")



$gui = GUICreate("Service maintenance",800,600)
$guiTAB = GUICtrlCreateTab(5,5,790,590)
$tabINF = GUICtrlCreateTabItem("Infos")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$tabADD = GUICtrlCreateTabItem("Création")

$ADDnomL = GUICtrlCreateLabel("NOM :",50,55,80,25)
$ADDnom = GUICtrlCreateInput("",130,50,100,25)
$ADDadresseL = GUICtrlCreateLabel("ADRESSE :",280,55,80,25)
$ADDadresse = GUICtrlCreateEdit("",340,50,200,58)
$ADDprenomL = GUICtrlCreateLabel("PRENOM :",50,85,80,25)
$ADDprenom = GUICtrlCreateInput("",130,80,200,25)
$ADDcodepL = GUICtrlCreateLabel("CODE POSTE :",50,115,80,25)
$ADDcodep = GUICtrlCreateInput("",130,110,50,25)
$ADDtelL = GUICtrlCreateLabel("TEL :",50,145,80,25)
$ADDtel = GUICtrlCreateInput("",130,140,100,25)
$ADDdateL = GUICtrlCreateLabel("DATE :",50,175,80,25)
$ADDdate = GUICtrlCreateInput("",130,170,70,25)
$ADDvilleL = GUICtrlCreateLabel("VILLE :",280,115,50,25)
$ADDville = GUICtrlCreateInput("",330,110,200,25)
$ADDfaxL = GUICtrlCreateLabel("FAX :",280,145,50,25)
$ADDfax = GUICtrlCreateInput("",330,140,100,25)
$ADDheureL = GUICtrlCreateLabel("HEURE :",280,175,50,25)
$ADDheure = GUICtrlCreateInput("",330,170,50,25)
$ADDouL = GUICtrlCreateLabel("OU :",550,55,50,25)
$ADDou = GUICtrlCreateCombo(" ",625,50,100,25)
GUICtrlSetData(-1, "En atelier|Sur place")
$ADDtypeL = GUICtrlCreateLabel("TYPE :",550,85,50,25)
$ADDtype = GUICtrlCreateCombo(" ",625,80,100,25)
GUICtrlSetData(-1, "Réparation|Intal. mat|Instal. res|Livraison|Sauvegarde|Récup. don|Trans. don|M. a jour|Cablage|Supr. virus|Autres")
$ADDpanneL = GUICtrlCreateLabel("PANNE MAT. :",550,115,80,25)
$ADDpanne = GUICtrlCreateCombo(" ",625,110,100,25)
GUICtrlSetData(-1, "Ordinateur|Imprimante|Ecran|Onduleur|Scanner|Routeur|Switch|Hub|Autres")
$ADDpanneaccL = GUICtrlCreateLabel("PANNE ACC. :",550,145,80,25)
$ADDpanneacc = GUICtrlCreateCombo(" ",625,140,100,25)
GUICtrlSetData(-1, "Alim|Disque|Ventilo|Process|C. graphique|Modem|C. réseau|C. mère|Autres")
$ADDdescL = GUICtrlCreateLabel("DESCRIPTIF. :",550,175,80,25)
$ADDdesc = GUICtrlCreateCombo(" ",625,170,100,25)
GUICtrlSetData(-1, "Panne const.|Panne inter.|Panne -|Panne +|Autres")
$ADDcomsL = GUICtrlCreateLabel("~~~~~~~~~~~~~~~~~~~~ COMMENTAIRES ~~~~~~~~~~~~~~~~~~~~",110,260)
$ADDcoms = GUICtrlCreateEdit("",50,280,500,300)

$save = GUICtrlCreateButton("Enregistrer",570,470,200,50)
$effacer = GUICtrlCreateButton("Effacer",570,530,200,50)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$tabEDIT = GUICtrlCreateTabItem("Edition")


$EDITnomL = GUICtrlCreateLabel("NOM :",50,55,80,25)
$EDITnom = GUICtrlCreateInput("",130,50,100,25)
ControlDisable("Service","",$EDITnom)
$EDITadresseL = GUICtrlCreateLabel("ADRESSE :",280,55,80,25)
$EDITadresse = GUICtrlCreateEdit("",340,50,200,58)
ControlDisable("Service","",$EDITadresse)
$EDITprenomL = GUICtrlCreateLabel("PRENOM :",50,85,80,25)
$EDITprenom = GUICtrlCreateInput("",130,80,200,25)
ControlDisable("Service","",$EDITprenom)
$EDITcodepL = GUICtrlCreateLabel("CODE POSTE :",50,115,80,25)
$EDITcodep = GUICtrlCreateInput("",130,110,50,25)
ControlDisable("Service","",$EDITcodep)
$EDITtelL = GUICtrlCreateLabel("TEL :",50,145,80,25)
$EDITtel = GUICtrlCreateInput("",130,140,100,25)
ControlDisable("Service","",$EDITtel)
$EDITdateL = GUICtrlCreateLabel("DATE :",50,175,80,25)
$EDITdate = GUICtrlCreateInput("",130,170,70,25)
ControlDisable("Service","",$EDITdate)
$EDITvilleL = GUICtrlCreateLabel("VILLE :",280,115,50,25)
$EDITville = GUICtrlCreateInput("",330,110,200,25)
ControlDisable("Service","",$EDITville)
$EDITfaxL = GUICtrlCreateLabel("FAX :",280,145,50,25)
$EDITfax = GUICtrlCreateInput("",330,140,100,25)
ControlDisable("Service","",$EDITfax)
$EDITheureL = GUICtrlCreateLabel("HEURE :",280,175,50,25)
$EDITheure = GUICtrlCreateInput("",330,170,50,25)
ControlDisable("Service","",$EDITheure)
$EDITouL = GUICtrlCreateLabel("OU :",550,55,50,25)
$EDITou = GUICtrlCreateCombo(" ",625,50,100,25)
GUICtrlSetData(-1, "En atelier|Sur place")
ControlDisable("Service","",$EDITou)
$EDITtypeL = GUICtrlCreateLabel("TYPE :",550,85,50,25)
$EDITtype = GUICtrlCreateCombo(" ",625,80,100,25)
GUICtrlSetData(-1, "Réparation|Intal. mat|Instal. res|Livraison|Sauvegarde|Récup. don|Trans. don|M. a jour|Cablage|Supr. virus|Autres")
ControlDisable("Service","",$EDITtype)
$EDITpanneL = GUICtrlCreateLabel("PANNE MAT. :",550,115,80,25)
$EDITpanne = GUICtrlCreateCombo(" ",625,110,100,25)
GUICtrlSetData(-1, "Ordinateur|Imprimante|Ecran|Onduleur|Scanner|Routeur|Switch|Hub|Autres")
ControlDisable("Service","",$EDITpanne)
$EDITpanneaccL = GUICtrlCreateLabel("PANNE ACC. :",550,145,80,25)
$EDITpanneacc = GUICtrlCreateCombo(" ",625,140,100,25)
GUICtrlSetData(-1, "Alim|Disque|Ventilo|Process|C. graphique|Modem|C. réseau|C. mère|Autres")
ControlDisable("Service","",$EDITpanneacc)
$EDITdescL = GUICtrlCreateLabel("DESCRIPTIF. :",550,175,80,25)
$EDITdesc = GUICtrlCreateCombo(" ",625,170,100,25)
GUICtrlSetData(-1, "Panne const.|Panne inter.|Panne -|Panne +|Autres")
ControlDisable("Service","",$EDITdesc)
$EDITcomsL = GUICtrlCreateLabel("~~~~~~~~~~~~~~~~~~~~ COMMENTAIRES ~~~~~~~~~~~~~~~~~~~~",110,260)
$EDITcoms = GUICtrlCreateEdit("",50,280,500,300)
ControlDisable("Service","",$EDITcoms)
$EDITetatL = GUICtrlCreateLabel("~~~~~~~~~~ ETAT ~~~~~~~~~~",580,260)
$EDITetat = GUICtrlCreateCombo(" ",570,280,200,25)
GUICtrlSetData(-1, "En attente|En cour|Finis")
ControlDisable("Service","",$EDITetat)
$openE = GUICtrlCreateButton("Ouvrir",570,410,200,50)
$saveE = GUICtrlCreateButton("Enregistrer",570,470,200,50)
ControlDisable("Service","",$saveE)
$closeE = GUICtrlCreateButton("Fermer",570,530,200,50)
ControlDisable("Service","",$closeE)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GUICtrlCreateTabItem("")

GUISetState()

while 1
$msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $effacer
            GUICtrlSetData($ADDnom,"")
            GUICtrlSetData($ADDadresse,"")
            GUICtrlSetData($ADDprenom,"")
            GUICtrlSetData($ADDcodep,"")
            GUICtrlSetData($ADDtel,"")
            GUICtrlSetData($ADDdate,"")
            GUICtrlSetData($ADDville,"")
            GUICtrlSetData($ADDfax,"")
            GUICtrlSetData($ADDheure,"")
            GUICtrlSetData($ADDou,"")          
            GUICtrlSetData($ADDou," |En atelier|Sur place")
            GUICtrlSetData($ADDtype,"")        
            GUICtrlSetData($ADDtype," |Réparation|Intal. mat|Instal. res|Livraison|Sauvegarde|Récup. don|Trans. don|M. a jour|Cablage|Supr. virus|Autres")
            GUICtrlSetData($ADDpanne,"")           
            GUICtrlSetData($ADDpanne," |Ordinateur|Imprimante|Ecran|Onduleur|Scanner|Routeur|Switch|Hub|Autres")
            GUICtrlSetData($ADDpanneacc,"")        
            GUICtrlSetData($ADDpanneacc," |Alim|Disque|Ventilo|Process|C. graphique|Modem|C. réseau|C. mère|Autres")
            GUICtrlSetData($ADDdesc,"")        
            GUICtrlSetData($ADDdesc," |Panne const.|Panne inter.|Panne -|Panne +|Autres")
            GUICtrlSetData($ADDcoms,"")
        case $msg = $save
            $saveou = FileSaveDialog("Sauvegarder ou :",@ScriptDir & "\data\En attente","DataSAV(*.dsav)")
            IniWrite($saveou & ".dsav","system","nom",GUICtrlRead($ADDnom))
            IniWrite($saveou & ".dsav","system","adresse",StringReplace(GUICtrlRead($ADDadresse),@CRLF,"@CRLF"))
            IniWrite($saveou & ".dsav","system","prenom",GUICtrlRead($ADDprenom))
            IniWrite($saveou & ".dsav","system","codep",GUICtrlRead($ADDcodep))
            IniWrite($saveou & ".dsav","system","tel",GUICtrlRead($ADDtel))
            IniWrite($saveou & ".dsav","system","date",GUICtrlRead($ADDdate))
            IniWrite($saveou & ".dsav","system","ville",GUICtrlRead($ADDville))
            IniWrite($saveou & ".dsav","system","fax",GUICtrlRead($ADDfax))
            IniWrite($saveou & ".dsav","system","heure",GUICtrlRead($ADDheure))
            IniWrite($saveou & ".dsav","system","ou",GUICtrlRead($ADDou))
            IniWrite($saveou & ".dsav","system","type",GUICtrlRead($ADDtype))
            IniWrite($saveou & ".dsav","system","panne",GUICtrlRead($ADDpanne))
            IniWrite($saveou & ".dsav","system","panneacc",GUICtrlRead($ADDpanneacc))
            IniWrite($saveou & ".dsav","system","desc",GUICtrlRead($ADDdesc))
            IniWrite($saveou & ".dsav","system","coms",StringReplace(GUICtrlRead($ADDcoms),@CRLF,"@CRLF"))
            IniWrite($saveou & ".dsav","system","etat","En attente")           
            GUICtrlSetData($ADDnom,"")
            GUICtrlSetData($ADDadresse,"")
            GUICtrlSetData($ADDprenom,"")
            GUICtrlSetData($ADDcodep,"")
            GUICtrlSetData($ADDtel,"")
            GUICtrlSetData($ADDdate,"")
            GUICtrlSetData($ADDville,"")
            GUICtrlSetData($ADDfax,"")
            GUICtrlSetData($ADDheure,"")
            GUICtrlSetData($ADDou,"")          
            GUICtrlSetData($ADDou," |En atelier|Sur place")
            GUICtrlSetData($ADDtype,"")        
            GUICtrlSetData($ADDtype," |Réparation|Intal. mat|Instal. res|Livraison|Sauvegarde|Récup. don|Trans. don|M. a jour|Cablage|Supr. virus|Autres")
            GUICtrlSetData($ADDpanne,"")           
            GUICtrlSetData($ADDpanne," |Ordinateur|Imprimante|Ecran|Onduleur|Scanner|Routeur|Switch|Hub|Autres")
            GUICtrlSetData($ADDpanneacc,"")        
            GUICtrlSetData($ADDpanneacc," |Alim|Disque|Ventilo|Process|C. graphique|Modem|C. réseau|C. mère|Autres")
            GUICtrlSetData($ADDdesc,"")        
            GUICtrlSetData($ADDdesc," |Panne const.|Panne inter.|Panne -|Panne +|Autres")
            GUICtrlSetData($ADDcoms,"")

        case $msg = $openE
            $ouvrirou = FileOpenDialog("Ouvrir ou :",@ScriptDir & "\data","DataSAV(*.dsav)")
            If not @error then
                ControlEnable("Service","",$EDITnom)
                ControlEnable("Service","",$EDITadresse)
                ControlEnable("Service","",$EDITprenom)
                ControlEnable("Service","",$EDITcodep)
                ControlEnable("Service","",$EDITtel)
                ControlEnable("Service","",$EDITdate)
                ControlEnable("Service","",$EDITville)
                ControlEnable("Service","",$EDITfax)
                ControlEnable("Service","",$EDITheure)
                ControlEnable("Service","",$EDITou)
                ControlEnable("Service","",$EDITtype)
                ControlEnable("Service","",$EDITpanne)
                ControlEnable("Service","",$EDITpanneacc)
                ControlEnable("Service","",$EDITdesc)
                ControlEnable("Service","",$EDITcoms)
                ControlEnable("Service","",$EDITetat)
                ControlDisable("Service","",$openE)
                ControlEnable("Service","",$saveE)
                ControlEnable("Service","",$closeE)
                GUICtrlSetData($EDITnom,IniRead($ouvrirou,"system","nom",""))
                GUICtrlSetData($EDITadresse,StringReplace(IniRead($ouvrirou,"system","adresse",""),"@CRLF",@CRLF))
                GUICtrlSetData($EDITprenom,IniRead($ouvrirou,"system","prenom",""))
                GUICtrlSetData($EDITcodep,IniRead($ouvrirou,"system","codep",""))
                GUICtrlSetData($EDITtel,IniRead($ouvrirou,"system","tel",""))
                GUICtrlSetData($EDITdate,IniRead($ouvrirou,"system","date",""))
                GUICtrlSetData($EDITville,IniRead($ouvrirou,"system","ville",""))
                GUICtrlSetData($EDITfax,IniRead($ouvrirou,"system","fax",""))
                GUICtrlSetData($EDITheure,IniRead($ouvrirou,"system","heure",""))
                GUICtrlSetData($EDITcoms,StringReplace(IniRead($ouvrirou,"system","coms",""),"@CRLF",@CRLF))
            EndIf
        case $msg = $saveE
            IniWrite($ouvrirou,"system","nom",GUICtrlRead($EDITnom))
            IniWrite($ouvrirou,"system","adresse",StringReplace(GUICtrlRead($EDITadresse),@CRLF,"@CRLF"))
            IniWrite($ouvrirou,"system","prenom",GUICtrlRead($EDITprenom))
            IniWrite($ouvrirou,"system","codep",GUICtrlRead($EDITcodep))
            IniWrite($ouvrirou,"system","tel",GUICtrlRead($EDITtel))
            IniWrite($ouvrirou,"system","date",GUICtrlRead($EDITdate))
            IniWrite($ouvrirou,"system","ville",GUICtrlRead($EDITville))
            IniWrite($ouvrirou,"system","fax",GUICtrlRead($EDITfax))
            IniWrite($ouvrirou,"system","heure",GUICtrlRead($ADDheure))
            IniWrite($ouvrirou,"system","ou",GUICtrlRead($EDITou))
            IniWrite($ouvrirou,"system","type",GUICtrlRead($EDITtype))
            IniWrite($ouvrirou,"system","panne",GUICtrlRead($EDITpanne))
            IniWrite($ouvrirou,"system","panneacc",GUICtrlRead($EDITpanneacc))
            IniWrite($ouvrirou,"system","desc",GUICtrlRead($EDITdesc))
            IniWrite($ouvrirou,"system","coms",StringReplace(GUICtrlRead($EDITcoms),@CRLF,"@CRLF"))
            IniWrite($ouvrirou,"system","etat",GUICtrlRead($EDITetat))
            sleep(100)
            If GUICtrlRead($EDITetat) == "En attente" Then
                FileMove($ouvrirou,@ScriptDir & "\data\En attente")
            EndIf
            If GUICtrlRead($EDITetat) == "En cour" Then
                FileMove($ouvrirou,@ScriptDir & "\data\En cour")
            EndIf
            If GUICtrlRead($EDITetat) == "Finis" Then
                FileMove($ouvrirou,@ScriptDir & "\data\Finis")
            EndIf
            sleep(100)
                        GUICtrlSetData($EDITnom,"")
            GUICtrlSetData($EDITadresse,"")
            GUICtrlSetData($EDITprenom,"")
            GUICtrlSetData($EDITcodep,"")
            GUICtrlSetData($EDITtel,"")
            GUICtrlSetData($EDITdate,"")
            GUICtrlSetData($EDITville,"")
            GUICtrlSetData($EDITfax,"")
            GUICtrlSetData($EDITheure,"")
            GUICtrlSetData($EDITou,"")         
            GUICtrlSetData($EDITdesc," ")
            GUICtrlSetData($EDITcoms,"")
            GUICtrlSetData($EDITetat,"")
            ControlDisable("Service","",$EDITnom)
            ControlDisable("Service","",$EDITadresse)
            ControlDisable("Service","",$EDITprenom)
            ControlDisable("Service","",$EDITcodep)
            ControlDisable("Service","",$EDITtel)
            ControlDisable("Service","",$EDITdate)
            ControlDisable("Service","",$EDITville)
            ControlDisable("Service","",$EDITfax)
            ControlDisable("Service","",$EDITheure)
            ControlDisable("Service","",$EDITou)
            ControlDisable("Service","",$EDITtype)
            ControlDisable("Service","",$EDITpanne)
            ControlDisable("Service","",$EDITpanneacc)
            ControlDisable("Service","",$EDITdesc)
            ControlDisable("Service","",$EDITcoms)
            ControlEnable("Service","",$openE)
            ControlDisable("Service","",$saveE)
            ControlDisable("Service","",$closeE)       
            ControlDisable("Service","",$EDITetat)     

        case $msg = $closeE
            GUICtrlSetData($EDITnom,"")
            GUICtrlSetData($EDITadresse,"")
            GUICtrlSetData($EDITprenom,"")
            GUICtrlSetData($EDITcodep,"")
            GUICtrlSetData($EDITtel,"")
            GUICtrlSetData($EDITdate,"")
            GUICtrlSetData($EDITville,"")
            GUICtrlSetData($EDITfax,"")
            GUICtrlSetData($EDITheure,"")
            GUICtrlSetData($EDITou,"")         
            GUICtrlSetData($EDITdesc," ")
            GUICtrlSetData($EDITcoms,"")
            ControlDisable("Service","",$EDITnom)
            ControlDisable("Service","",$EDITadresse)
            ControlDisable("Service","",$EDITprenom)
            ControlDisable("Service","",$EDITcodep)
            ControlDisable("Service","",$EDITtel)
            ControlDisable("Service","",$EDITdate)
            ControlDisable("Service","",$EDITville)
            ControlDisable("Service","",$EDITfax)
            ControlDisable("Service","",$EDITheure)
            ControlDisable("Service","",$EDITou)
            ControlDisable("Service","",$EDITtype)
            ControlDisable("Service","",$EDITpanne)
            ControlDisable("Service","",$EDITpanneacc)
            ControlDisable("Service","",$EDITdesc)
            ControlDisable("Service","",$EDITcoms)
            ControlEnable("Service","",$openE)
            ControlDisable("Service","",$saveE)
            ControlDisable("Service","",$closeE)       
            ControlDisable("Service","",$EDITetat)     

    EndSelect
wend