#AutoIt3Wrapper_UseUpx=n #include #include Opt("GUIOnEventMode", 1) $gui = GUICreate("Ethnel-SAV :: Voir/Imprimer", 801, 601, -1, -1,-1,0x00000080) GUISetOnEvent($GUI_EVENT_CLOSE, "close") $b1 = GUICtrlCreateButton("Ouvrir", 24, 24, 99, 33, 0) GUICtrlSetOnEvent(-1, "ouvrir") $b2 = GUICtrlCreateButton("Fermer", 128, 24, 99, 33, 0) GUICtrlSetOnEvent(-1, "close") $b3 = GUICtrlCreateButton("Imprimer", 72, 56, 107, 33, 0) GUICtrlSetOnEvent(-1, "imprimer") ControlDisable("Ethnel","",$b3) $g1 = GUICtrlCreateGroup("Menu", 8, 8, 233, 97) $g2 = GUICtrlCreateGroup("Fiche", 8, 112, 785, 481) _IEErrorHandlerRegister() $ie = _IECreateEmbedded() $ieobject = GUICtrlCreateObj($ie, 16, 128, 769, 457) GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func close() Exit EndFunc Func ouvrir() $ouvrirou = FileOpenDialog("Ouvrir ou :",@ScriptDir & "\data","Fiche SAV(*.fsav)") If not @error then $r1 = IniRead($ouvrirou,"Fiche SAV","id","") $r2 = IniRead($ouvrirou,"Fiche SAV","nom","") $r3 = IniRead($ouvrirou,"Fiche SAV","prenom","") $r4 = StringReplace(IniRead($ouvrirou,"Fiche SAV","adresse",""),"@CRLF","
") $r5 = IniRead($ouvrirou,"Fiche SAV","telephone","") $r6 = IniRead($ouvrirou,"Fiche SAV","fax","") $r7 = IniRead($ouvrirou,"Fiche SAV","codep","") $r8 = IniRead($ouvrirou,"Fiche SAV","ville","") $r9 = IniRead($ouvrirou,"Fiche SAV","lieu","") $r10 = IniRead($ouvrirou,"Fiche SAV","date","") $r11 = IniRead($ouvrirou,"Fiche SAV","technicien","") $r12 = IniRead($ouvrirou,"Fiche SAV","typepc","") $r13 = IniRead($ouvrirou,"Fiche SAV","typepanne","") $r14 = IniRead($ouvrirou,"Fiche SAV","marque","") $r15 = StringReplace(IniRead($ouvrirou,"Fiche SAV","panne",""),"@CRLF","
") $r16 = IniRead($ouvrirou,"Fiche SAV","modep","") $r17 = IniRead($ouvrirou,"Fiche SAV","prixdep","") $r18 = IniRead($ouvrirou,"Fiche SAV","prixint","") $r19 = IniRead($ouvrirou,"Fiche SAV","total","") ControlEnable("Ethnel","",$b3) FileDelete(@ScriptDir & "\temp\temp.html") sleep(1000) FileWrite(@ScriptDir & "\temp\temp.html","") sleep(1000) $fopen = FileOpen(@ScriptDir & "\temp\temp.html",1) FileWrite(@ScriptDir & "\temp\temp.html","" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","

" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","ID : " & $r1 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Nom : " & $r2 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Prénom : " & $r3 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Adresse : " & $r4 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Téléphone : " & $r5 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Fax : " & $r6 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Code poste : " & $r7 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Ville : " & $r8 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","	" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Lieu intervention : " & $r9 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Date intervention : " & $r10 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Heure intervention : " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Technicien : " & $r11 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Type de PC : " & $r12 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Type de panne : " & $r13 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Marque : " & $r14 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","
Description de la panne / Intervention : " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","
" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html",$r15 & " " & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","

" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","

Signature technicien :

Signature client :

Mode de paiment : " & $r16 & "
" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Prix déplacement : " & $r17 & " €
" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Prix intervention : " & $r18 & " €
" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","Total TTC : " & $r19 & "
" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","

" & @CRLF) FileWrite(@ScriptDir & "\temp\temp.html","" & @CRLF) sleep(1000) _IENavigate($ie, @ScriptDir & "\temp\temp.html", 0) EndIf EndFunc Func imprimer() _IEAction($ie, "print") EndFunc