#include #include #include #include #include #include #include #include #include #include #include #include #include #NoTrayIcon Global $VERSION = "2.0.0 | Build: 20819" _TOP() Func _TOP() ;====================================================================================================================================================================== $INLOGGUI = GUICreate($VERSION & " - Inloggen", 332, 342, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LoginBG.BMP', 0, 0, 332, 342) $TITEL = GUICtrlCreateLabel("Inloggen", 0, 40, 332, 30, $ES_CENTER) GUICtrlSetFont(-1, 18, 800, 0, "Calibri") $LABELUSERNAME = GUICtrlCreateLabel("Gebruiker", 50, 150, 50, 17) $Combo1 = GUICtrlCreateCombo("Kies een medewerker...", 50, 167, 233, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $LABELPASSW = GUICtrlCreateLabel("Wachtwoord:", 50, 210, 77, 17, 0) $PasswordEdit = GUICtrlCreateInput("", 50, 227, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_PASSWORD)) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 8, 323) $hLabel = GUICtrlCreateLabel("", 0, 0, 332, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($BG, $GUI_DISABLE) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELUSERNAME, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELPASSW, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($Combo1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($PasswordEdit, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) Local $hDLL = DllOpen("user32.dll") Global $iIDPrev = 0 GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") GUISetState(@SW_SHOW) ; Get the sections of the ini file Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\medewerker.ini") ; If the IniReadSectionNames succeeded, convert the array to a string with each item separated by a | (pipe) and set the default selected item to $aSections[1] If (Not @error) Then _ArraySort($aSections) If (Not @Error) Then GUICtrlSetData($Combo1, _ArraytoString($aSections, "|", 1), $aSections[1]) _GUICtrlComboBox_SelectString($Combo1, "Kies een medewerker...") While 1 $Test = ControlGetFocus($VERSION & " - Inloggen") IF $Test = "Edit1" Then GUICtrlSetBkColor($Combo1, $COLOR_YELLOW) Else GUICtrlSetBkColor($Combo1, $COLOR_WHITE) EndIf If WinActive($VERSION & " - Inloggen", "") Then If _IsPressed("0D", $hDLL) Then Global $NAAMMEDEWERKER = GUICtrlRead($Combo1) $PASSINPUT = GUICtrlRead($PasswordEdit) $PASSINI = IniRead(@ScriptDir & "\DB\medewerker.ini", $NAAMMEDEWERKER, "Pass", "") If GUICtrlRead($Combo1) = "Kies een medewerker..." Then MsgBox(4096, "Let op!", "Kies een medewerker...") GUIDelete($INLOGGUI) _TOP() ExitLoop EndIf If $PASSINPUT = $PASSINI Then $VERSIONCHECK = IniRead(@ScriptDir & "\DB\medewerker.ini", $NAAMMEDEWERKER, "Versie", "") If $VERSIONCHECK <> $VERSION Then GUIDelete($INLOGGUI) MsgBox(4096, "Informatief", "Er is een nieuwe versie geïnstalleerd." & @CRLF & "De release notes zullen nu worden getoond.", 3) IniWrite(@ScriptDir & "\DB\medewerker.ini", $NAAMMEDEWERKER, "Versie", $VERSION) RELEASENOTES() Else GUIDelete($INLOGGUI) Local $hINI_FILENAME = @ScriptDir & "\DB\rma.ini" $READAANGEVRAAGDRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READAANGEVRAAGDRMACOUNT = _ArrayFindAll($READAANGEVRAAGDRMA, "Aangevraagd", Default, Default, Default, Default, 1) $READVERZONDENRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READVERZONDENRMACOUNT = _ArrayFindAll($READVERZONDENRMA, "Verzonden", Default, Default, Default, Default, 1) $READAFGEHANDELDRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READAFGEHANDELDRMACOUNT = _ArrayFindAll($READAFGEHANDELDRMA, "Afgehandeld", Default, Default, Default, Default, 1) $READAFGEKEURDDRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READAFGEKEURDRMACOUNT = _ArrayFindAll($READAFGEHANDELDRMA, "Afgekeurd", Default, Default, Default, Default, 1) If @HOUR < 12 Then $TIME = "Goedemorgen" Else $TIME = "Goedemiddag" EndIf MsgBox(4096,"", $TIME & " " & $NAAMMEDEWERKER & "." & @CRLF & @CRLF & @CRLF & "Dit zijn de huidige RMA aantallen:" & @CRLF & @CRLF & "Aantal Openstaand:" & @TAB & UBound($READAANGEVRAAGDRMACOUNT) & @CRLF & "Aantal Verzonden:" & @TAB & @TAB & UBound($READVERZONDENRMACOUNT) & @CRLF & "Aantal Afgehandeld:" & @TAB & UBound($READAFGEHANDELDRMACOUNT) & @CRLF & "Aantal Afgekeurd:" & @TAB & @TAB & UBound($READAFGEKEURDRMACOUNT), 5) MAINMENU() EndIf Else MsgBox(4096, "Let op!", "Het wachtwoord is onjuist.") EndIf EndIf EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func MAINMENU() Local $hINI_FILENAME = @ScriptDir & "\DB\rma.ini" Local $aINI_SECTIONS[13] = ['RMANR', 'RMANREXTERN', 'LEVERANCIER', 'DEBITNR', 'KLANT', 'STATUS', 'MODEL', 'SERIENR', 'AANGEMELDDOOR', 'AANMELDDATUM', 'VERZENDDATUM', 'RETOURDATUM', 'FILIAAL'] ;~ Sections that should be read from Ini and added to ListView, also used as ListView Header Local $aSTATUS_SECTION = IniReadSection($hINI_FILENAME, 'STATUS') Local $sSTATUS_SECTION = _ArrayUnique($aSTATUS_SECTION, 1) _ArrayDelete($sSTATUS_SECTION, '0') _ArraySort($sSTATUS_SECTION) $sSTATUS_SECTION = _ArrayToString($sSTATUS_SECTION, '|', 1, -1, '|', 1, 1) Local $aSTATUS_ITEMS[0] Local $aLEV_SECTION = IniReadSection($hINI_FILENAME, 'LEVERANCIER') Local $sLEV_SECTION = _ArrayUnique($aLEV_SECTION, 1) _ArrayDelete($sLEV_SECTION, '0') _ArraySort($sLEV_SECTION) $sLEV_SECTION = _ArrayToString($sLEV_SECTION, '|', 1, -1, '|', 1, 1) Local $aLEV_ITEMS[0] Local $aSN_SECTION = IniReadSection($hINI_FILENAME, 'SERIENR') Local $sSN_SECTION = _ArrayUnique($aSN_SECTION, 1) $sSN_SECTION = _ArrayToString($sSN_SECTION, '|', 1, -1, '|', 1, 1) Local $aSN_ITEMS[0] $MAINMENU = GUICreate($VERSION & " | RMA Overzicht", 1500, 920, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $NEWRMAMENU = GUICtrlCreateMenuItem("Nieuwe RMA", $FILE) $EDITRMAMENU = GUICtrlCreateMenuItem("Zoeken RMA", $FILE) $LOGOFFUSER = GUICtrlCreateMenuItem("Afmelden", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Sluiten", $FILE) $SETTINGS = GUICtrlCreateMenu("Bewerken") $CHANGEPASSW = GUICtrlCreateMenuItem("Mijn inlog wachtwoord wijzigen", $SETTINGS) $ADDUSER = GUICtrlCreateMenuItem("Gebruiker toevoegen", $SETTINGS) $RECHTEN = GUICtrlCreateMenuItem("Gebruiker rechten instellen", $SETTINGS) $DELUSER = GUICtrlCreateMenuItem("Gebruiker verwijderen", $SETTINGS) $EDITLEV = GUICtrlCreateMenuItem("Leveranciers bewerken", $SETTINGS) $RAPPORT = GUICtrlCreateMenu("Rapportage") $COUNTPERLEV = GUICtrlCreateMenuItem("Aantallen per leverancier", $RAPPORT) $VENSTER = GUICtrlCreateMenu("Venster") $MINIMIZE = GUICtrlCreateMenuItem("Minimaliseren", $VENSTER) $HELPMENU = GUICtrlCreateMenu("Help") $RELEASENOTES = GUICtrlCreateMenuItem("Release notes", $HELPMENU) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\MainBG.BMP', 0, 0, 1500, 900) GUICtrlSetState($BG, $GUI_DISABLE) $MEDEWERKERLABEL = GUICtrlCreateLabel("Ingelogd als: " & $NAAMMEDEWERKER, 12, 880) $STATUSLABEL = GUICtrlCreateLabel("Status:", 32, 120, 37, 17) $STATUS = GUICtrlCreateCombo("", 32, 140, 140, 25,BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) GUICtrlSetData($STATUS, $sSTATUS_SECTION, "") $LEVLABEL = GUICtrlCreateLabel("Leverancier:", 32, 50, 65, 17) $LEVSELECT = GUICtrlCreateCombo("", 32, 70, 140, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) GUICtrlSetData($LEVSELECT, $sLEV_SECTION, "") $FINDLABEL = GUICtrlCreateLabel("Serienummer:", 185, 50) $FINDINPUT = GUICtrlCreateInput("", 185, 70, 150, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) GUICtrlSetBkColor($FINDINPUT, $COLOR_YELLOW) $FINDBUTTON = GUICtrlCreateButton("Serienummer zoeken", 340, 70 , 150, 21) $OPENSELECTED = GUICtrlCreateButton("Open geselecteerde RMA", 185, 140, 150, 21) $NEWRMABUTTON = GUICtrlCreateButton("Nieuwe RMA", 340, 140, 150, 21) $FINDRMABUTTON = GUICtrlCreateButton("RMA zoeken", 495, 140, 150, 21) $hGUI_LISTVIEW = GUICtrlCreateListView("RMAnr.|RMAnr. Leverancier|Leverancier|Debiteurnr.|Debiteurnaam|Status|Model|Serienummer|Aangemeld door|Aanmeld datum|Verzend datum|Retour datum|Filiaal", 8, 220, 1485, 500) $READTOTALRMA = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $TOTALRMACOUNT = UBound($READTOTALRMA) - 1 $READAANGEVRAAGDRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READAANGEVRAAGDRMACOUNT = _ArrayFindAll($READAANGEVRAAGDRMA, "Aangevraagd", Default, Default, Default, Default, 1) $READVERZONDENRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READVERZONDENRMACOUNT = _ArrayFindAll($READVERZONDENRMA, "Verzonden", Default, Default, Default, Default, 1) $READAFGEHANDELDRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READAFGEHANDELDRMACOUNT = _ArrayFindAll($READAFGEHANDELDRMA, "Afgehandeld", Default, Default, Default, Default, 1) $READAFGEKEURDDRMA = IniReadSection($hINI_FILENAME, 'STATUS') $READAFGEKEURDRMACOUNT = _ArrayFindAll($READAFGEHANDELDRMA, "Afgekeurd", Default, Default, Default, Default, 1) $OPENSTAANDRMALABEL = GUICtrlCreateLabel("Aantal Aangevraagd:", 25, 735) $OPENSTAANDRMACOUNTLABEL = GUICtrlCreateLabel(UBound($READAANGEVRAAGDRMACOUNT), 175, 735) $VERZONDENRMALABEL = GUICtrlCreateLabel("Aantal Verzonden:", 25, 760) $VERZONDENRMACOUNTLABEL = GUICtrlCreateLabel(UBound($READVERZONDENRMACOUNT), 175, 760) $AFGEHANDELDLABEL = GUICtrlCreateLabel("Aantal Afgehandeld:", 25, 785) $AFGEHANDELDCOUNTLABEL = GUICtrlCreateLabel(UBound($READAFGEHANDELDRMACOUNT), 175, 785) $AFGEKEURDLABEL = GUICtrlCreateLabel("Aantal Afgekeurd:", 25, 810) $AFGEKEURDCOUNTLABEL = GUICtrlCreateLabel(UBound($READAFGEKEURDRMACOUNT), 175, 810) $TOTALRMALABEL = GUICtrlCreateLabel("Totaal RMA aanvragen:", 25, 835) $TOTALRMACOUNTLABEL = GUICtrlCreateLabel($TOTALRMACOUNT, 175, 835) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 1350, 880) $hLabel = GUICtrlCreateLabel("", 0, 0, 1500, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetBkColor($hGUI_LISTVIEW, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MEDEWERKERLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TOTALRMALABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TOTALRMACOUNTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($STATUSLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($FINDLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($OPENSTAANDRMALABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($OPENSTAANDRMACOUNTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERZONDENRMALABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERZONDENRMACOUNTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AFGEHANDELDLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AFGEHANDELDCOUNTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AFGEKEURDLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AFGEKEURDCOUNTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) HotKeySet("{ENTER}") GUISetState(@SW_SHOW) Local $hWnd = WinWait($MAINMENU, "", 10) ControlFocus($MAINMENU, "", $FINDINPUT) While 1 If WinActive($VERSION & " | RMA Overzicht", "") Then Sleep(25) Local $hDLL = DllOpen("user32.dll") If _IsPressed("0D",$hDLL) Then $STATE = GUICtrlRead($FINDINPUT) If $STATE = "" Then $GO = 0 MsgBox(4096, "Let op!", "Zoekveld is leeg, vul een serienummer in.") Else $GO = 1 EndIf $aSN_INDEX = _ArrayFindAll($aSN_SECTION, $STATE, 1, 0, 0, 0, 1) ReDim $aSN_ITEMS[UBound($aSN_INDEX)] For $i = 0 To UBound($aSN_INDEX) - 1 $aSN_ITEMS[$i] = $aSN_SECTION[$aSN_INDEX[$i]][0] Next If IsArray($aSN_ITEMS) Then _GUICtrlListView_DeleteAllItems($hGUI_LISTVIEW) ;~ Remove this if you just want to append the data to the ListView without removing all items For $i = 0 To UBound($aSN_ITEMS) - 1 $sListViewItem = '' For $j = 0 To UBound($aINI_SECTIONS) - 1 If $j = UBound($aINI_SECTIONS) - 1 Then $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aSN_ITEMS[$i], -1) ExitLoop EndIf $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aSN_ITEMS[$i], -1) & '|' Next GUICtrlCreateListViewItem($sListViewItem, $hGUI_LISTVIEW) Next EndIf EndIf Else Sleep(25) HotKeySet("{ENTER}") EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"Sluiten","Weet u zeker dat u wilt stoppen?") If $YesOrNo = 6 then GUIDelete($MAINMENU) Exit EndIf Case $LOGOFFUSER GUIDelete($MAINMENU) _TOP() ExitLoop Case $CHANGEPASSW GUIDelete($MAINMENU) CHECKPASS() ExitLoop Case $ADDUSER $VAR = IniRead(@ScriptDir & "\DB\rechten.ini", "ADDUSER", $NAAMMEDEWERKER, "") $GO = 1 If $VAR = 0 Then MsgBox(4096, "Let op!", "U bent niet gemachtigd voor deze functie.") $GO = 0 EndIf If $GO = 1 Then GUIDelete($MAINMENU) NEWUSER() ExitLoop EndIf Case $DELUSER $VAR = IniRead(@ScriptDir & "\DB\rechten.ini", "DELUSER", $NAAMMEDEWERKER, "") $GO = 1 If $VAR = 0 Then MsgBox(4096, "Let op!", "U bent niet gemachtigd voor deze functie.") $GO = 0 EndIf If $GO = 1 Then $YesOrNo = msgBox(4,"Let op!","Weet u zeker dat u door wilt gaan?" & @CRLF & "In het volgende menu kunt u gebruikers verwijderen.") If $YesOrNo = 6 then $GO = 1 Else $GO = 0 EndIf EndIf If $GO = 1 Then GUIDelete($MAINMENU) DELUSER() ExitLoop EndIf Case $EDITLEV $VAR = IniRead(@ScriptDir & "\DB\rechten.ini", "EDITSUPP", $NAAMMEDEWERKER, "") $GO = 1 If $VAR = 0 Then MsgBox(4096, "Let op!", "U bent niet gemachtigd voor deze functie.") $GO = 0 EndIf If $GO = 1 Then GUIDelete($MAINMENU) EDITLEV() ExitLoop EndIf Case $RECHTEN $VAR = IniRead(@ScriptDir & "\DB\rechten.ini", "EDITRECHTEN", $NAAMMEDEWERKER, "") $GO = 1 If $VAR = 0 Then MsgBox(4096, "Let op!", "U bent niet gemachtigd voor deze functie.") $GO = 0 EndIf If $GO = 1 Then GUIDelete($MAINMENU) RECHTEN() ExitLoop EndIf Case $COUNTPERLEV GUIDelete($MAINMENU) RAPPORTAANTALPERLEV() ExitLoop Case $RELEASENOTES GUIDelete($MAINMENU) RELEASENOTES() ExitLoop Case $OPENSELECTED $iIndex = _GUICtrlListView_GetSelectedIndices($hGUI_LISTVIEW) $GO = 1 If $iIndex = "" Then MsgBox(4096, "Let op!", "Kies eerst een status daarna een RMA uit de lijst.") $GO = 0 EndIf If $GO = 1 Then $indexSelected = ControlListView("", "", $hGUI_LISTVIEW, "GetSelected") $thisSelected = ControlListView("", "", $hGUI_LISTVIEW, "GetText", $indexSelected, 0) Local $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $VAR = _ArraySearch($aArray, $thisSelected) If $VAR <> -1 Then $VAR2 = $VAR + 1 EndIf If $VAR = 1 Then $VAR2 = 1 EndIf If $GO = 1 Then Global $FOUNDRMANR = $VAR2 GUIDelete($MAINMENU) EDITRMA() ExitLoop EndIf EndIf Case $NEWRMABUTTON GUIDelete($MAINMENU) NEWRMA() ExitLoop Case $NEWRMAMENU GUIDelete($MAINMENU) NEWRMA() ExitLoop Case $FINDRMABUTTON GUIDelete($MAINMENU) ZOEKENRMA() ExitLoop Case $EDITRMAMENU GUIDelete($MAINMENU) ZOEKENRMA() ExitLoop Case $MINIMIZE Sleep(50) GUISetState(@SW_MINIMIZE) Case $STATUS $STATE = GUICtrlRead($STATUS) $aSTATUS_INDEX = _ArrayFindAll($aSTATUS_SECTION, $STATE, 1, 0, 0, 0, 1) ReDim $aSTATUS_ITEMS[UBound($aSTATUS_INDEX)] For $i = 0 To UBound($aSTATUS_INDEX) - 1 $aSTATUS_ITEMS[$i] = $aSTATUS_SECTION[$aSTATUS_INDEX[$i]][0] Next If IsArray($aSTATUS_ITEMS) Then _GUICtrlListView_DeleteAllItems($hGUI_LISTVIEW) ;~ Remove this if you just want to append the data to the ListView without removing all items For $i = 0 To UBound($aSTATUS_ITEMS) - 1 $sListViewItem = '' For $j = 0 To UBound($aINI_SECTIONS) - 1 If $j = UBound($aINI_SECTIONS) - 1 Then $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aSTATUS_ITEMS[$i], -1) ExitLoop EndIf $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aSTATUS_ITEMS[$i], -1) & '|' Next GUICtrlCreateListViewItem($sListViewItem, $hGUI_LISTVIEW) Next EndIf Case $LEVSELECT $STATE = GUICtrlRead($LEVSELECT) $aLEVSELECT_INDEX = _ArrayFindAll($aLEV_SECTION, $STATE, 1, 0, 0, 0, 1) ReDim $aLEV_ITEMS[UBound($aLEVSELECT_INDEX)] For $i = 0 To UBound($aLEVSELECT_INDEX) - 1 $aLEV_ITEMS[$i] = $aLEV_SECTION[$aLEVSELECT_INDEX[$i]][0] Next If IsArray($aLEV_ITEMS) Then _GUICtrlListView_DeleteAllItems($hGUI_LISTVIEW) For $i = 0 To UBound($aLEV_ITEMS) - 1 $sListViewItem = '' For $j = 0 To UBound($aINI_SECTIONS) - 1 If $j = UBound($aINI_SECTIONS) - 1 Then $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aLEV_ITEMS[$i], -1) ExitLoop EndIf $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aLEV_ITEMS[$i], -1) & '|' Next GUICtrlCreateListViewItem($sListViewItem, $hGUI_LISTVIEW) Next EndIf Case $FINDBUTTON $STATE = GUICtrlRead($FINDINPUT) If $STATE = "" Then $GO = 0 MsgBox(4096, "Let op!", "Zoekveld is leeg, vul een serienummer in.") Else $GO = 1 EndIf $aSN_INDEX = _ArrayFindAll($aSN_SECTION, $STATE, 1, 0, 0, 0, 1) ReDim $aSN_ITEMS[UBound($aSN_INDEX)] For $i = 0 To UBound($aSN_INDEX) - 1 $aSN_ITEMS[$i] = $aSN_SECTION[$aSN_INDEX[$i]][0] Next If IsArray($aSN_ITEMS) Then _GUICtrlListView_DeleteAllItems($hGUI_LISTVIEW) ;~ Remove this if you just want to append the data to the ListView without removing all items For $i = 0 To UBound($aSN_ITEMS) - 1 $sListViewItem = '' For $j = 0 To UBound($aINI_SECTIONS) - 1 If $j = UBound($aINI_SECTIONS) - 1 Then $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aSN_ITEMS[$i], -1) ExitLoop EndIf $sListViewItem &= IniRead($hINI_FILENAME, $aINI_SECTIONS[$j], $aSN_ITEMS[$i], -1) & '|' Next GUICtrlCreateListViewItem($sListViewItem, $hGUI_LISTVIEW) Next EndIf EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func NEWRMA() $NEWRMA = GUICreate($VERSION & " - Nieuwe RMA aanvraag", 1500, 920, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $SAVEMENU = GUICtrlCreateMenuItem("Opslaan", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Terug naar Hoofdmenu", $FILE) $VENSTER = GUICtrlCreateMenu("Venster") $MINIMIZE = GUICtrlCreateMenuItem("Minimaliseren", $VENSTER) $SLUITEN = GUICtrlCreateMenuItem("Programma Sluiten", $VENSTER) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\MainBG.BMP', 0, 0, 1500, 900) GUICtrlSetState($BG, $GUI_DISABLE) $RMANRLABEL = GUICtrlCreateLabel("RMAnr.:", 48, 280, 40, 17) $RMANRINPUT = GUICtrlCreateInput("", 48, 304, 121, 21) $DEBITNRLABEL = GUICtrlCreateLabel("Debiteurnummer:", 48, 336, 81, 17) $DEBITNRINPUT = GUICtrlCreateInput("", 48, 360, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $KLANTNAAM = GUICtrlCreateLabel("Naam Debiteur:", 48, 392, 75, 17) $NAAMKLANT = GUICtrlCreateInput("", 48, 416, 257, 21) $RMANREXTERNLABEL = GUICtrlCreateLabel("RMAnr. Leverancier:", 184, 280, 99, 17) $RMANREXTERN = GUICtrlCreateInput("", 184, 304, 121, 21) $AANGEMELDDOORLABEL = GUICtrlCreateLabel("Aangemeld door:", 184, 336, 84, 17) $AANGEMELDDOOR = GUICtrlCreateInput("AANGEMELDDOOR", 184, 360, 121, 21) $MODELLABEL = GUICtrlCreateLabel("Apparaat / Model:", 320, 280, 90, 17) $MODEL = GUICtrlCreateInput("", 320, 304, 217, 21) $serienummerlabel = GUICtrlCreateLabel("Serienummer:", 320, 336, 68, 17) $SERIENRINPUT = GUICtrlCreateInput("", 320, 360, 217, 21) $STATUSLABEL = GUICtrlCreateLabel("Status:", 320, 392, 37, 17) $STATUS = GUICtrlCreateCombo("", 320, 416, 217, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) GUICtrlSetData($STATUS, "Aangevraagd|Afgehandeld|Afgekeurd|Verzonden", "Aangevraagd") $AANMELDDATUMLABEL = GUICtrlCreateLabel("Aanmeld datum:", 560, 280, 80, 17) $AANMELDDATUM = GUICtrlCreateInput("", 560, 304, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $VERZONDENDATUMLABEL= GUICtrlCreateLabel("Datum verzonden:", 712, 280, 88, 17) $VERZONDENDATUM = GUICtrlCreateInput("", 712, 304, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $RETOURDATUMLABEL = GUICtrlCreateLabel("Datum retour:", 560, 336, 65, 17) $RETOURDATUM = GUICtrlCreateInput("", 560, 360, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $TRACKENTRACELABEL = GUICtrlCreateLabel("Track en Trace:", 712, 336, 78, 17) $TRACKENTRACE = GUICtrlCreateInput("", 712, 360, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $FILIAALLABEL = GUICtrlCreateLabel("Filiaal:", 864, 280, 33, 17) $FILIAALINPUT = GUICtrlCreateInput("", 864, 304, 137, 21) $LASTEDITLABEL = GUICtrlCreateLabel("Laatst gewijzigd door:", 1024, 280, 106, 17) $LASTEDIT = GUICtrlCreateInput("", 1024, 304, 121, 21) GUICtrlSetState($LASTEDIT, $GUI_DISABLE) $FILES = GUICtrlCreateButton("Bestanden toevoegen", 560, 412, 129, 25) $VIEWFILES = GUICtrlCreateButton("Bestanden bekijken", 712, 412, 129, 25) $KLACHTLABEL = GUICtrlCreateLabel("Klacht omschrijving:", 48, 456, 98, 17) $KLACHT = GUICtrlCreateEdit("", 48, 480, 913, 225) $OPLOSSINGLABEL = GUICtrlCreateLabel("Oplossing:", 48, 712, 53, 17) $Oplossing = GUICtrlCreateEdit("", 48, 736, 913, 153) $LEVLABEL = GUICtrlCreateLabel("Leverancier:", 1024, 416, 63, 17) $LEVCOMBO = GUICtrlCreateCombo("Kies een leverancier...", 1024, 440, 217, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $LEVBUTTON = GUICtrlCreateButton("RMA Link", 1296, 432, 75, 25) $LEVINFO = GUICtrlCreateEdit("", 1024, 480, 409, 409, BitOR($WS_VSCROLL, $ES_AUTOVSCROLL,$ES_READONLY)) $SAVEBUTTON = GUICtrlCreateButton("Opslaan", 48, 225, 121, 33) GUICtrlSetFont(-1, 16, 800, 0, "Fixedsys") $CANCELBUTTON = GUICtrlCreateButton("Annuleren", 174, 225, 121, 33) GUICtrlSetFont(-1, 16, 800, 0, "Fixedsys") $hLabel = GUICtrlCreateLabel("", 0, 0, 1500, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($RMANRINPUT, $GUI_DISABLE) $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $count = UBound($aArray,1) $var = $count + 1 GUICtrlSetData($RMANRINPUT, "RMA" & $var) Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\leveranciers.ini") If (Not @error) Then _ArraySort($aSections) If (Not @Error) Then GUICtrlSetData($LEVCOMBO, _ArraytoString($aSections, "|", 1), $aSections[1]) _GUICtrlComboBox_SelectString($LEVCOMBO, "Kies een leverancier...") GUICtrlSetState($AANGEMELDDOOR, $GUI_DISABLE) GUICtrlSetData($AANGEMELDDOOR, $NAAMMEDEWERKER) GUICtrlSetData($LASTEDIT, $NAAMMEDEWERKER) GUICtrlSetData($AANMELDDATUM, @MDAY & "-" & @MON & "-" & @YEAR) GUICtrlSetState($TRACKENTRACE, $GUI_DISABLE) GUICtrlSetState($FILIAALINPUT, $GUI_DISABLE) GUICtrlSetState($OPLOSSING, $GUI_DISABLE) GUICtrlSetState($LEVBUTTON, $GUI_DISABLE) GUICtrlSetBkColor($RMANRLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANRINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($DEBITNRLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($DEBITNRINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($KLANTNAAM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NAAMKLANT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANREXTERNLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANREXTERN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANGEMELDDOORLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANGEMELDDOOR, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MODELLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MODEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($serienummerlabel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($SERIENRINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($STATUSLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($STATUS, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANMELDDATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANMELDDATUM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERZONDENDATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERZONDENDATUM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RETOURDATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RETOURDATUM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TRACKENTRACELABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TRACKENTRACE, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($FILIAALLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($FILIAALINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LASTEDITLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LASTEDIT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($KLACHTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($KLACHT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($OPLOSSINGLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($OPLOSSING, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVCOMBO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVBUTTON, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVINFO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 If WinActive($VERSION & " - Nieuwe RMA aanvraag", "") Then Sleep(25) HotKeySet("{ENTER}", "NoEnter") Else Sleep(25) HotKeySet("{ENTER}") EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($NEWRMA) MAINMENU() ExitLoop EndIf Case $MINIMIZE Sleep(50) GUISetState(@SW_MINIMIZE) Case $SLUITEN $YesOrNo = msgBox(4,"Sluiten","Weet u zeker dat u wilt stoppen?") If $YesOrNo = 6 then GUIDelete($NEWRMA) Exit EndIf Case $STATUS If GUICtrlRead($STATUS) = "Verzonden" Then GUICtrlSetState($TRACKENTRACE, $GUI_ENABLE) Else GUICtrlSetState($TRACKENTRACE, $GUI_DISABLE) EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then GUICtrlSetState($OPLOSSING, $GUI_ENABLE) GUICtrlSetState($TRACKENTRACE, $GUI_ENABLE) Else GUICtrlSetState($OPLOSSING, $GUI_DISABLE) EndIf Case $LEVCOMBO $LEV = GUICtrlRead($LEVCOMBO) $URL = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "URL", "") $INFO = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "INFO", "") If $URL <> "" Then GUICtrlSetState($LEVBUTTON, $GUI_ENABLE) Else GUICtrlSetState($LEVBUTTON, $GUI_DISABLE) EndIf GUICtrlSetData($LEVINFO, $INFO) If GUICtrlRead($LEVCOMBO) = "CCV" Then GUICtrlSetState($FILIAALINPUT, $GUI_ENABLE) Else GUICtrlSetState($FILIAALINPUT, $GUI_DISABLE) GUICtrlSetData($FILIAALINPUT, "") EndIf Case $LEVBUTTON ShellExecute($URL) Case $FILES $VAR = GUICtrlRead($RMANRINPUT) If Not FileExists(@ScriptDir & "\Files\" & $VAR) Then DirCreate(@ScriptDir & "\Files\" & $VAR) EndIf $SELECTEDFILE = FileOpenDialog("Bestand toevoegen...", "C:\", "Bestanden (*.*)", $FD_FILEMUSTEXIST + $FD_MULTISELECT) FileCopy($SELECTEDFILE, @ScriptDir & "\Files\" & $VAR, 1) MsgBox(4096, "Let op!", "Bestand toegevoegd aan RMA aanvraag.") Case $VIEWFILES $VAR = GUICtrlRead($RMANRINPUT) $GO = 1 If Not FileExists(@ScriptDir & "\Files\" & $VAR) Then MsgBox(4096, "Let op!", "Er zijn geen bestanden toegevoegd aan deze RMA aanvraag.") $GO = 0 EndIf If $GO = 1 Then ShellExecute(@ScriptDir & "\Files\" & $VAR) EndIf Case $CANCELBUTTON $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($NEWRMA) MAINMENU() ExitLoop EndIf Case $SAVEMENU $GO = 1 $savermanr = GUICtrlRead($RMANRINPUT) $savermanrsup = GUICtrlRead($RMANREXTERN) $debitnrread = GUICtrlRead($DEBITNRINPUT) $NAAMKLANTRead = GUICtrlRead($NAAMKLANT) $AANMELDDATUMREAD = GUICtrlRead($AANMELDDATUM) $VERZONDENDATUMREAD = GUICtrlRead($VERZONDENDATUM) $MODELREAD = GUICtrlRead($MODEL) $SERIENRINPUTREAD = GUICtrlRead($SERIENRINPUT) $STATUSREAD = GUICtrlRead($STATUS) $KLACHTOMSCHRIJVING = GUICtrlRead($KLACHT) $OPLOSSINGREAD = GUICtrlRead($OPLOSSING) $RETOURDATUMREAD = GUICtrlRead($RETOURDATUM) $TRACKENTRACEREAD = GUICtrlRead($TRACKENTRACE) $LEVREAD = GUICtrlRead($LEVCOMBO) $FILIAALREAD = GUICtrlRead($FILIAALINPUT) $LASTEDITREAD = GUICtrlRead($LASTEDIT) If $debitnrread = "" Then MsgBox(4096, "Let op!", "Debiteurnummer mag niet leeg zijn.") $GO = 0 EndIf If $NAAMKLANTRead = "" Then MsgBox(4096, "Let op!", "Debiteur naam mag niet leeg zijn.") $GO = 0 EndIf If $MODELREAD = "" Then MsgBox(4096, "Let op!", "Apparaat / Model mag niet leeg zijn.") $GO = 0 EndIf If $SERIENRINPUTREAD = "" Then MsgBox(4096, "Let op!", "Serienummer mag niet leeg zijn.") $GO = 0 EndIf If $LEVREAD = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier.") $GO = 0 EndIf If GUICtrlRead($LEVCOMBO) = "CCV" Then If $FILIAALREAD = "" Then MsgBox(4096, "Let op!", "Bij CCV dient een filiaal ingevoerd te zijn.") $GO = 0 EndIf EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then If GUICtrlRead($RETOURDATUM) = "" Then MsgBox(4096, "Let op!", "Datum retour is niet ingevuld.") $GO = 0 EndIf If GUICtrlRead($OPLOSSING) = "" Then MsgBox(4096, "Let op!", "Een afgehandelde RMA aanvraag heef altijd een Oplossing.") $GO = 0 EndIf EndIf If $GO = 1 Then $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $count = UBound($aArray,1) $RMANR = $count + 1 IniWrite(@scriptdir & "\DB\rma.ini", "RMANR", $RMANR, $savermanr) IniWrite(@ScriptDir & "\DB\rma.ini", "RMANREXTERN", $RMANR, $savermanrsup) IniWrite(@ScriptDir & "\DB\rma.ini", "DEBITNR", $RMANR, $debitnrread) IniWrite(@ScriptDir & "\DB\rma.ini", "KLANT", $RMANR, $NAAMKLANTRead) IniWrite(@ScriptDir & "\DB\rma.ini", "AANGEMELDDOOR", $RMANR, $NAAMMEDEWERKER) IniWrite(@ScriptDir & "\DB\rma.ini", "AANMELDDATUM", $RMANR, $AANMELDDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "VERZENDDATUM", $RMANR, $VERZONDENDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "MODEL", $RMANR, $MODELREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "SERIENR", $RMANR, $SERIENRINPUTREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "STATUS", $RMANR, $STATUSREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "KLACHT", $RMANR, $KLACHTOMSCHRIJVING) IniWrite(@ScriptDir & "\DB\rma.ini", "OPLOSSING", $RMANR, $OPLOSSINGREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "RETOURDATUM", $RMANR, $RETOURDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "TRACKENTRACE", $RMANR, $TRACKENTRACEREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LEVERANCIER", $RMANR, $LEVREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "FILIAAL", $RMANR, $FILIAALREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LASTEDIT", $RMANR, $LASTEDITREAD) If Not FileExists(@ScriptDir & "\Files\RMA" & $RMANR) Then DirCreate(@ScriptDir & "\Files\RMA" & $RMANR) EndIf $FILE = @ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-bon.txt" FileOpen(@ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-bon.txt", 1) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Intern RMAnr." & @TAB & @TAB & "RMA" & $RMANR & @CRLF) FileWrite($FILE, "Leverancier RMAnr." & @TAB & $savermanrsup & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Datum:" & @TAB & @TAB & @TAB & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF) FileWrite($FILE, "Tijd:" & @TAB & @TAB& @TAB & @HOUR & ":" & @MIN & @CRLF) FileWrite($FILE, "Aangemeld door:" & @TAB & @TAB & $NAAMMEDEWERKER & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Debiteurnummer:" & @TAB & @TAB & $debitnrread & @CRLF) FileWrite($FILE, "Debiteurnaam:" & @TAB & @TAB & $NAAMKLANTRead & @CRLF) FileWrite($FILE, "Aangemeld bij:" & @TAB & @TAB & $LEVREAD & @CRLF) FileWrite($FILE, "Model:" & @TAB & @TAB & @TAB & $MODELREAD & @CRLF) FileWrite($FILE, "Serienummer:" & @TAB & @TAB & $SERIENRINPUTREAD & @CRLF) If GUICtrlRead($LEVCOMBO) = "CCV" Then FileWrite($FILE, "Filiaal:" & @TAB & @TAB & $FILIAALREAD & @CRLF & @CRLF) EndIf FileWrite($FILE, "Klacht omschrijving:" & @CRLF & $KLACHTOMSCHRIJVING & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileClose(FileOpen(@ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-bon.txt", 1)) $PRINTORNOPRINT = MsgBox(4, "", "Wilt u een RMA bon printen?") If $PRINTORNOPRINT = 6 Then Local $iPrint = _FilePrint($FILE) If $iPrint Then MsgBox(4096, "", "RMA" & $RMANR & " RMA bon geprint en opgeslagen.", 2) Else MsgBox(4096, "Let op!", "Er is iets mis gegaan, rapport niet geprint." & @CRLF & "Foutcode: " & @error) EndIf Else MsgBox(4096, "", "RMA" & $RMANR & " opgeslagen.", 2) EndIf GUIDelete($NEWRMA) NEWRMA() ExitLoop EndIf Case $SAVEBUTTON $GO = 1 $savermanr = GUICtrlRead($RMANRINPUT) $savermanrsup = GUICtrlRead($RMANREXTERN) $debitnrread = GUICtrlRead($DEBITNRINPUT) $NAAMKLANTRead = GUICtrlRead($NAAMKLANT) $AANMELDDATUMREAD = GUICtrlRead($AANMELDDATUM) $VERZONDENDATUMREAD = GUICtrlRead($VERZONDENDATUM) $MODELREAD = GUICtrlRead($MODEL) $SERIENRINPUTREAD = GUICtrlRead($SERIENRINPUT) $STATUSREAD = GUICtrlRead($STATUS) $KLACHTOMSCHRIJVING = GUICtrlRead($KLACHT) $OPLOSSINGREAD = GUICtrlRead($OPLOSSING) $RETOURDATUMREAD = GUICtrlRead($RETOURDATUM) $TRACKENTRACEREAD = GUICtrlRead($TRACKENTRACE) $LEVREAD = GUICtrlRead($LEVCOMBO) $FILIAALREAD = GUICtrlRead($FILIAALINPUT) $LASTEDITREAD = GUICtrlRead($LASTEDIT) If $debitnrread = "" Then MsgBox(4096, "Let op!", "Debiteurnummer mag niet leeg zijn.") $GO = 0 EndIf If $NAAMKLANTRead = "" Then MsgBox(4096, "Let op!", "Debiteur naam mag niet leeg zijn.") $GO = 0 EndIf If $MODELREAD = "" Then MsgBox(4096, "Let op!", "Apparaat / Model mag niet leeg zijn.") $GO = 0 EndIf If $SERIENRINPUTREAD = "" Then MsgBox(4096, "Let op!", "Serienummer mag niet leeg zijn.") $GO = 0 EndIf If $LEVREAD = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier.") $GO = 0 EndIf If GUICtrlRead($LEVCOMBO) = "CCV" Then If $FILIAALREAD = "" Then MsgBox(4096, "Let op!", "Bij CCV dient een filiaal ingevoerd te zijn.") $GO = 0 EndIf EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then If GUICtrlRead($RETOURDATUM) = "" Then MsgBox(4096, "Let op!", "Datum retour is niet ingevuld.") $GO = 0 EndIf If GUICtrlRead($OPLOSSING) = "" Then MsgBox(4096, "Let op!", "Een afgehandelde RMA aanvraag heef altijd een Oplossing.") $GO = 0 EndIf EndIf If $GO = 1 Then $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $count = UBound($aArray,1) $RMANR = $count + 1 IniWrite(@scriptdir & "\DB\rma.ini", "RMANR", $RMANR, $savermanr) IniWrite(@ScriptDir & "\DB\rma.ini", "RMANREXTERN", $RMANR, $savermanrsup) IniWrite(@ScriptDir & "\DB\rma.ini", "DEBITNR", $RMANR, $debitnrread) IniWrite(@ScriptDir & "\DB\rma.ini", "KLANT", $RMANR, $NAAMKLANTRead) IniWrite(@ScriptDir & "\DB\rma.ini", "AANGEMELDDOOR", $RMANR, $NAAMMEDEWERKER) IniWrite(@ScriptDir & "\DB\rma.ini", "AANMELDDATUM", $RMANR, $AANMELDDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "VERZENDDATUM", $RMANR, $VERZONDENDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "MODEL", $RMANR, $MODELREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "SERIENR", $RMANR, $SERIENRINPUTREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "STATUS", $RMANR, $STATUSREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "KLACHT", $RMANR, $KLACHTOMSCHRIJVING) IniWrite(@ScriptDir & "\DB\rma.ini", "OPLOSSING", $RMANR, $OPLOSSINGREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "RETOURDATUM", $RMANR, $RETOURDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "TRACKENTRACE", $RMANR, $TRACKENTRACEREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LEVERANCIER", $RMANR, $LEVREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "FILIAAL", $RMANR, $FILIAALREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LASTEDIT", $RMANR, $LASTEDITREAD) If Not FileExists(@ScriptDir & "\Files\RMA" & $RMANR) Then DirCreate(@ScriptDir & "\Files\RMA" & $RMANR) EndIf $FILE = @ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-bon.txt" FileOpen(@ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-bon.txt", 1) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Intern RMAnr." & @TAB & @TAB & "RMA" & $RMANR & @CRLF) FileWrite($FILE, "Leverancier RMAnr." & @TAB & $savermanrsup & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Datum:" & @TAB & @TAB & @TAB & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF) FileWrite($FILE, "Tijd:" & @TAB & @TAB& @TAB & @HOUR & ":" & @MIN & @CRLF) FileWrite($FILE, "Aangemeld door:" & @TAB & @TAB & $NAAMMEDEWERKER & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Debiteurnummer:" & @TAB & @TAB & $debitnrread & @CRLF) FileWrite($FILE, "Debiteurnaam:" & @TAB & @TAB & $NAAMKLANTRead & @CRLF) FileWrite($FILE, "Aangemeld bij:" & @TAB & @TAB & $LEVREAD & @CRLF) FileWrite($FILE, "Model:" & @TAB & @TAB & @TAB & $MODELREAD & @CRLF) FileWrite($FILE, "Serienummer:" & @TAB & @TAB & $SERIENRINPUTREAD & @CRLF) If GUICtrlRead($LEVCOMBO) = "CCV" Then FileWrite($FILE, "Filiaal:" & @TAB & @TAB & $FILIAALREAD & @CRLF & @CRLF) EndIf FileWrite($FILE, "Klacht omschrijving:" & @CRLF & $KLACHTOMSCHRIJVING & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileClose(@ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-bon.txt") $PRINTORNOPRINT = MsgBox(4, "", "Wilt u een RMA bon printen?") If $PRINTORNOPRINT = 6 Then Local $iPrint = _FilePrint($FILE) If $iPrint Then MsgBox(4096, "", "RMA" & $RMANR & " RMA bon geprint en opgeslagen.", 2) Else MsgBox(4096, "Let op!", "Er is iets mis gegaan, rapport niet geprint." & @CRLF & "Foutcode: " & @error) EndIf Else MsgBox(4096, "", "RMA" & $RMANR & " opgeslagen.", 2) EndIf GUIDelete($NEWRMA) NEWRMA() ExitLoop EndIf EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func ZOEKENRMA() $ZOEKENGUI = GUICreate("", 332, 342, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LoginBG.BMP', 0, 0, 332, 342) $TITEL = GUICtrlCreateLabel("RMA Zoeken", 0, 40, 332, 30, $ES_CENTER) GUICtrlSetFont(-1, 18, 800, 0, "Calibri") $RMANRLABEL = GUICtrlCreateLabel("RMAnr.", 50, 125, 40, 17) $RMANRZOEKINPUT = GUICtrlCreateInput("", 50, 142, 233, 21) $RMANREXTERNLABEL = GUICtrlCreateLabel("RMAnr. Leverancier", 50, 185, 99, 17) $RMANRZOEKINPUTLEV = GUICtrlCreateInput("", 50, 202, 233, 21) $ZOEKEN = GUICtrlCreateButton("Zoeken", 160, 305, 75, 25) $BACK = GUICtrlCreateButton("Annuleer", 245, 305, 75, 25) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 8, 323) $hLabel = GUICtrlCreateLabel("", 0, 0, 332, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($BG, $GUI_DISABLE) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANRLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANRZOEKINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANREXTERNLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANRZOEKINPUTLEV, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ZOEKEN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($BACK, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $ZOEKEN $GO = 1 Global $FINDRMA = GUICtrlRead($RMANRZOEKINPUT) Global $FINDRMALEV = GUICtrlRead($RMANRZOEKINPUTLEV) If $FINDRMA <> "" And $FINDRMALEV <> "" Then MsgBox(4096, "Let op!", "Gebruik één zoekfunctie tegelijk.") $GO = 0 EndIf If $GO = 1 Then If $FINDRMA <> "" Then Local $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $VAR = _ArraySearch($aArray, $FINDRMA) If $var = -1 Then MsgBox(4096, "", "Het nummer is niet gevonden.") $GO = 0 EndIf If $VAR <> -1 Then $VAR2 = $VAR + 1 EndIf If $VAR = 1 Then $VAR2 = 1 EndIf If $GO = 1 Then Global $FOUNDRMANR = $VAR2 GUIDelete($ZOEKENGUI) EDITRMA() ExitLoop EndIf EndIf If $FINDRMALEV <> "" Then Local $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANREXTERN") $VAR = _ArraySearch($aArray, $FINDRMALEV) If $var = -1 Then MsgBox(4096, "", "Het nummer is niet gevonden.") $GO = 0 EndIf If $VAR <> -1 Then $VAR2 = $VAR + 1 EndIf If $VAR = 1 Then $VAR2 = 1 EndIf If $GO = 1 Then Global $FOUNDRMANR = $VAR2 GUIDelete($ZOEKENGUI) EDITRMA() ExitLoop EndIf EndIf EndIf Case $BACK GUIDelete($ZOEKENGUI) MAINMENU() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func EDITRMA() $EDITRMA = GUICreate($VERSION & " - RMA bewerken", 1500, 920, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $SAVEMENU = GUICtrlCreateMenuItem("Opslaan", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Terug naar Hoofdmenu", $FILE) $VENSTER = GUICtrlCreateMenu("Venster") $MINIMIZE = GUICtrlCreateMenuItem("Minimaliseren", $VENSTER) $SLUITEN = GUICtrlCreateMenuItem("Programma Sluiten", $VENSTER) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\MainBG.BMP', 0, 0, 1500, 900) GUICtrlSetState($BG, $GUI_DISABLE) $RMANRLABEL = GUICtrlCreateLabel("RMAnr.:", 48, 280, 40, 17) $RMANRINPUT = GUICtrlCreateInput("", 48, 304, 121, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "RMANR", $FOUNDRMANR, "") GUICtrlSetData($RMANRINPUT, $VAR) $DEBITNRLABEL = GUICtrlCreateLabel("Debiteurnummer:", 48, 336, 81, 17) $DEBITNRINPUT = GUICtrlCreateInput("", 48, 360, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "DEBITNR", $FOUNDRMANR, "") GUICtrlSetData($DEBITNRINPUT, $VAR) $KLANTNAAM = GUICtrlCreateLabel("Naam Debiteur:", 48, 392, 75, 17) $NAAMKLANT = GUICtrlCreateInput("", 48, 416, 257, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "KLANT", $FOUNDRMANR, "") GUICtrlSetData($NAAMKLANT, $VAR) $RMANREXTERNLABEL = GUICtrlCreateLabel("RMAnr. Leverancier:", 184, 280, 99, 17) $RMANREXTERN = GUICtrlCreateInput("", 184, 304, 121, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "RMANREXTERN", $FOUNDRMANR, "") GUICtrlSetData($RMANREXTERN, $VAR) $AANGEMELDDOORLABEL = GUICtrlCreateLabel("Aangemeld door:", 184, 336, 84, 17) $AANGEMELDDOOR = GUICtrlCreateInput("AANGEMELDDOOR", 184, 360, 121, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "AANGEMELDDOOR", $FOUNDRMANR, "") GUICtrlSetData($AANGEMELDDOOR, $VAR) $MODELLABEL = GUICtrlCreateLabel("Apparaat / Model:", 320, 280, 90, 17) $MODEL = GUICtrlCreateInput("", 320, 304, 217, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "MODEL", $FOUNDRMANR, "") GUICtrlSetData($MODEL, $VAR) $serienummerlabel = GUICtrlCreateLabel("Serienummer:", 320, 336, 68, 17) $SERIENRINPUT = GUICtrlCreateInput("", 320, 360, 217, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "SERIENR", $FOUNDRMANR, "") GUICtrlSetData($SERIENRINPUT, $VAR) $STATUSLABEL = GUICtrlCreateLabel("Status:", 320, 392, 37, 17) $STATUS = GUICtrlCreateCombo("", 320, 416, 217, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "STATUS", $FOUNDRMANR, "") GUICtrlSetData($STATUS, "Aangevraagd|Afgehandeld|Afgekeurd|Verzonden", $VAR) $AANMELDDATUMLABEL = GUICtrlCreateLabel("Aanmeld datum:", 560, 280, 80, 17) $AANMELDDATUM = GUICtrlCreateInput("", 560, 304, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "AANMELDDATUM", $FOUNDRMANR, "") GUICtrlSetData($AANMELDDATUM, $VAR) $VERZONDENDATUMLABEL= GUICtrlCreateLabel("Datum verzonden:", 712, 280, 88, 17) $VERZONDENDATUM = GUICtrlCreateInput("", 712, 304, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "VERZENDDATUM", $FOUNDRMANR, "") GUICtrlSetData($VERZONDENDATUM, $VAR) $RETOURDATUMLABEL = GUICtrlCreateLabel("Datum retour:", 560, 336, 65, 17) $RETOURDATUM = GUICtrlCreateInput("", 560, 360, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "RETOURDATUM", $FOUNDRMANR, "") GUICtrlSetData($RETOURDATUM, $VAR) $TRACKENTRACELABEL = GUICtrlCreateLabel("Track en Trace:", 712, 336, 78, 17) $TRACKENTRACE = GUICtrlCreateInput("", 712, 360, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "TRACKENTRACE", $FOUNDRMANR, "") GUICtrlSetData($TRACKENTRACE, $VAR) $FILIAALLABEL = GUICtrlCreateLabel("Filiaal:", 864, 280, 33, 17) $FILIAALINPUT = GUICtrlCreateInput("", 864, 304, 137, 21) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "FILIAAL", $FOUNDRMANR, "") GUICtrlSetData($FILIAALINPUT, $VAR) $LASTEDITLABEL = GUICtrlCreateLabel("Laatst gewijzigd door:", 1024, 280, 106, 17) $LASTEDIT = GUICtrlCreateInput("", 1024, 304, 121, 21) GUICtrlSetState($LASTEDIT, $GUI_DISABLE) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "LASTEDIT", $FOUNDRMANR, "") GUICtrlSetData($LASTEDIT, $VAR) $FILES = GUICtrlCreateButton("Bestanden toevoegen", 560, 412, 129, 25) $VIEWFILES = GUICtrlCreateButton("Bestanden bekijken", 712, 412, 129, 25) $KLACHTLABEL = GUICtrlCreateLabel("Klacht omschrijving:", 48, 456, 98, 17) $KLACHT = GUICtrlCreateEdit("", 48, 480, 913, 225) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "KLACHT", $FOUNDRMANR, "") GUICtrlSetData($KLACHT, $VAR) $OPLOSSINGLABEL = GUICtrlCreateLabel("Oplossing:", 48, 712, 53, 17) $Oplossing = GUICtrlCreateEdit("", 48, 736, 913, 153) $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "OPLOSSING", $FOUNDRMANR, "") GUICtrlSetData($OPLOSSING, $VAR) $LEVLABEL = GUICtrlCreateLabel("Leverancier:", 1024, 416, 63, 17) $LEVCOMBO = GUICtrlCreateCombo("", 1024, 440, 217, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $LEVBUTTON = GUICtrlCreateButton("RMA Link", 1296, 432, 75, 25) $LEVINFO = GUICtrlCreateEdit("", 1024, 480, 409, 409, BitOR($GUI_SS_DEFAULT_EDIT,$ES_READONLY)) $SAVEBUTTON = GUICtrlCreateButton("Opslaan", 48, 225, 121, 33) GUICtrlSetFont(-1, 16, 800, 0, "Fixedsys") $CANCELBUTTON = GUICtrlCreateButton("Annuleren", 174, 225, 121, 33) GUICtrlSetFont(-1, 16, 800, 0, "Fixedsys") $COPYPRINT = GUICtrlCreateButton("Kopie bon", 300, 225, 121, 33) GUICtrlSetFont(-1, 16, 800, 0, "Fixedsys") $hLabel = GUICtrlCreateLabel("", 0, 0, 1500, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($RMANRINPUT, $GUI_DISABLE) Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\leveranciers.ini") $VAR = IniRead(@ScriptDir & "\DB\rma.ini", "LEVERANCIER", $FOUNDRMANR, "") If (Not @Error) Then GUICtrlSetData($LEVCOMBO, _ArraytoString($aSections, "|", 1), $VAR) $LEV = GUICtrlRead($LEVCOMBO) $URL = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "URL", "") $INFO = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "INFO", "") If $URL <> "" Then GUICtrlSetState($LEVBUTTON, $GUI_ENABLE) Else GUICtrlSetState($LEVBUTTON, $GUI_DISABLE) EndIf GUICtrlSetData($LEVINFO, $INFO) GUICtrlSetState($AANGEMELDDOOR, $GUI_DISABLE) If GUICtrlRead($STATUS) = "Afgehandeld" Then GUICtrlSetState($OPLOSSING, $GUI_ENABLE) GUICtrlSetState($KLACHT, $GUI_DISABLE) EndIf GUICtrlSetBkColor($RMANRLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANRINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($DEBITNRLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($DEBITNRINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($KLANTNAAM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NAAMKLANT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANREXTERNLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RMANREXTERN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANGEMELDDOORLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANGEMELDDOOR, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MODELLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MODEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($serienummerlabel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($SERIENRINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($STATUSLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($STATUS, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANMELDDATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($AANMELDDATUM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERZONDENDATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERZONDENDATUM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RETOURDATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RETOURDATUM, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TRACKENTRACELABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TRACKENTRACE, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($FILIAALLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($FILIAALINPUT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LASTEDITLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LASTEDIT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($KLACHTLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($KLACHT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($OPLOSSINGLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($OPLOSSING, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVCOMBO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVBUTTON, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVINFO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 If WinActive($VERSION & " - RMA bewerken", "") Then Sleep(25) HotKeySet("{ENTER}", "NoEnter") Else Sleep(25) HotKeySet("{ENTER}") EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($EDITRMA) MAINMENU() ExitLoop EndIf Case $MINIMIZE Sleep(50) GUISetState(@SW_MINIMIZE) Case $SLUITEN $YesOrNo = msgBox(4,"Sluiten","Weet u zeker dat u wilt stoppen?") If $YesOrNo = 6 then GUIDelete($EDITRMA) Exit EndIf Case $STATUS If GUICtrlRead($STATUS) = "Verzonden" Then GUICtrlSetState($TRACKENTRACE, $GUI_ENABLE) Else GUICtrlSetState($TRACKENTRACE, $GUI_DISABLE) EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then GUICtrlSetState($OPLOSSING, $GUI_ENABLE) GUICtrlSetState($TRACKENTRACE, $GUI_ENABLE) Else GUICtrlSetState($OPLOSSING, $GUI_DISABLE) EndIf Case $LEVCOMBO $LEV = GUICtrlRead($LEVCOMBO) $URL = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "URL", "") $INFO = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "INFO", "") If $URL <> "" Then GUICtrlSetState($LEVBUTTON, $GUI_ENABLE) Else GUICtrlSetState($LEVBUTTON, $GUI_DISABLE) EndIf GUICtrlSetData($LEVINFO, $INFO) Case $LEVBUTTON ShellExecute($URL) Case $FILES $VAR = GUICtrlRead($RMANRINPUT) If Not FileExists(@ScriptDir & "\Files\" & $VAR) Then DirCreate(@ScriptDir & "\Files\" & $VAR) EndIf $SELECTEDFILE = FileOpenDialog("Bestand toevoegen...", "C:\", "Bestanden (*.*)", $FD_FILEMUSTEXIST + $FD_MULTISELECT) FileCopy($SELECTEDFILE, @ScriptDir & "\Files\" & $VAR, 1) MsgBox(4096, "Let op!", "Bestand toegevoegd aan RMA aanvraag.") Case $VIEWFILES $VAR = GUICtrlRead($RMANRINPUT) $GO = 1 If Not FileExists(@ScriptDir & "\Files\" & $VAR) Then MsgBox(4096, "Let op!", "Er zijn geen bestanden toegevoegd aan deze RMA aanvraag.") $GO = 0 EndIf If $GO = 1 Then ShellExecute(@ScriptDir & "\Files\" & $VAR) EndIf Case $CANCELBUTTON $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($EDITRMA) MAINMENU() ExitLoop EndIf Case $SAVEMENU $GO = 1 $savermanr = GUICtrlRead($RMANRINPUT) $savermanrsup = GUICtrlRead($RMANREXTERN) $debitnrread = GUICtrlRead($DEBITNRINPUT) $NAAMKLANTRead = GUICtrlRead($NAAMKLANT) $AANMELDDATUMREAD = GUICtrlRead($AANMELDDATUM) $VERZONDENDATUMREAD = GUICtrlRead($VERZONDENDATUM) $MODELREAD = GUICtrlRead($MODEL) $SERIENRINPUTREAD = GUICtrlRead($SERIENRINPUT) $STATUSREAD = GUICtrlRead($STATUS) $KLACHTOMSCHRIJVING = GUICtrlRead($KLACHT) $OPLOSSINGREAD = GUICtrlRead($OPLOSSING) $RETOURDATUMREAD = GUICtrlRead($RETOURDATUM) $TRACKENTRACEREAD = GUICtrlRead($TRACKENTRACE) $LEVREAD = GUICtrlRead($LEVCOMBO) $LASTEDITREAD = $NAAMMEDEWERKER If $debitnrread = "" Then MsgBox(4096, "Let op!", "Debiteurnummer mag niet leeg zijn.") $GO = 0 EndIf If $NAAMKLANTRead = "" Then MsgBox(4096, "Let op!", "Debiteur naam mag niet leeg zijn.") $GO = 0 EndIf If $MODELREAD = "" Then MsgBox(4096, "Let op!", "Apparaat / Model mag niet leeg zijn.") $GO = 0 EndIf If $SERIENRINPUTREAD = "" Then MsgBox(4096, "Let op!", "Serienummer mag niet leeg zijn.") $GO = 0 EndIf If $LEVREAD = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier.") $GO = 0 EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then If GUICtrlRead($RETOURDATUM) = "" Then MsgBox(4096, "Let op!", "Datum retour is niet ingevuld.") $GO = 0 EndIf If GUICtrlRead($OPLOSSING) = "" Then MsgBox(4096, "Let op!", "Een afgehandelde RMA aanvraag heef altijd een Oplossing.") $GO = 0 EndIf EndIf If $GO = 1 Then $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $RMANR = $FOUNDRMANR IniWrite(@scriptdir & "\DB\rma.ini", "RMANR", $RMANR, $savermanr) IniWrite(@ScriptDir & "\DB\rma.ini", "RMANREXTERN", $RMANR, $savermanrsup) IniWrite(@ScriptDir & "\DB\rma.ini", "DEBITNR", $RMANR, $debitnrread) IniWrite(@ScriptDir & "\DB\rma.ini", "KLANT", $RMANR, $NAAMKLANTRead) IniWrite(@ScriptDir & "\DB\rma.ini", "AANMELDDATUM", $RMANR, $AANMELDDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "VERZENDDATUM", $RMANR, $VERZONDENDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "MODEL", $RMANR, $MODELREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "SERIENR", $RMANR, $SERIENRINPUTREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "STATUS", $RMANR, $STATUSREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "KLACHT", $RMANR, $KLACHTOMSCHRIJVING) IniWrite(@ScriptDir & "\DB\rma.ini", "OPLOSSING", $RMANR, $OPLOSSINGREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "RETOURDATUM", $RMANR, $RETOURDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "TRACKENTRACE", $RMANR, $TRACKENTRACEREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LEVERANCIER", $RMANR, $LEVREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LASTEDIT", $RMANR, $LASTEDITREAD) MsgBox(4096, "Opgeslagen", "RMA opgeslagen onder nummer: RMA" & $RMANR & ".") GUIDelete($EDITRMA) MAINMENU() ExitLoop EndIf Case $SAVEBUTTON $GO = 1 $savermanr = GUICtrlRead($RMANRINPUT) $savermanrsup = GUICtrlRead($RMANREXTERN) $debitnrread = GUICtrlRead($DEBITNRINPUT) $NAAMKLANTRead = GUICtrlRead($NAAMKLANT) $AANMELDDATUMREAD = GUICtrlRead($AANMELDDATUM) $VERZONDENDATUMREAD = GUICtrlRead($VERZONDENDATUM) $MODELREAD = GUICtrlRead($MODEL) $SERIENRINPUTREAD = GUICtrlRead($SERIENRINPUT) $STATUSREAD = GUICtrlRead($STATUS) $KLACHTOMSCHRIJVING = GUICtrlRead($KLACHT) $OPLOSSINGREAD = GUICtrlRead($OPLOSSING) $RETOURDATUMREAD = GUICtrlRead($RETOURDATUM) $TRACKENTRACEREAD = GUICtrlRead($TRACKENTRACE) $LEVREAD = GUICtrlRead($LEVCOMBO) $LASTEDITREAD = $NAAMMEDEWERKER If $debitnrread = "" Then MsgBox(4096, "Let op!", "Debiteurnummer mag niet leeg zijn.") $GO = 0 EndIf If $NAAMKLANTRead = "" Then MsgBox(4096, "Let op!", "Debiteur naam mag niet leeg zijn.") $GO = 0 EndIf If $MODELREAD = "" Then MsgBox(4096, "Let op!", "Apparaat / Model mag niet leeg zijn.") $GO = 0 EndIf If $SERIENRINPUTREAD = "" Then MsgBox(4096, "Let op!", "Serienummer mag niet leeg zijn.") $GO = 0 EndIf If $LEVREAD = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier.") $GO = 0 EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then If GUICtrlRead($RETOURDATUM) = "" Then MsgBox(4096, "Let op!", "Datum retour is niet ingevuld.") $GO = 0 EndIf If GUICtrlRead($OPLOSSING) = "" Then MsgBox(4096, "Let op!", "Een afgehandelde RMA aanvraag heef altijd een Oplossing.") $GO = 0 EndIf EndIf If $GO = 1 Then $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $RMANR = $FOUNDRMANR IniWrite(@scriptdir & "\DB\rma.ini", "RMANR", $RMANR, $savermanr) IniWrite(@ScriptDir & "\DB\rma.ini", "RMANREXTERN", $RMANR, $savermanrsup) IniWrite(@ScriptDir & "\DB\rma.ini", "DEBITNR", $RMANR, $debitnrread) IniWrite(@ScriptDir & "\DB\rma.ini", "KLANT", $RMANR, $NAAMKLANTRead) IniWrite(@ScriptDir & "\DB\rma.ini", "AANMELDDATUM", $RMANR, $AANMELDDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "VERZENDDATUM", $RMANR, $VERZONDENDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "MODEL", $RMANR, $MODELREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "SERIENR", $RMANR, $SERIENRINPUTREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "STATUS", $RMANR, $STATUSREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "KLACHT", $RMANR, $KLACHTOMSCHRIJVING) IniWrite(@ScriptDir & "\DB\rma.ini", "OPLOSSING", $RMANR, $OPLOSSINGREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "RETOURDATUM", $RMANR, $RETOURDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "TRACKENTRACE", $RMANR, $TRACKENTRACEREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LEVERANCIER", $RMANR, $LEVREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LASTEDIT", $RMANR, $LASTEDITREAD) MsgBox(4096, "Opgeslagen", "RMA opgeslagen onder nummer: RMA" & $RMANR & ".") GUIDelete($EDITRMA) MAINMENU() ExitLoop EndIf Case $COPYPRINT $GO = 1 $savermanr = GUICtrlRead($RMANRINPUT) $savermanrsup = GUICtrlRead($RMANREXTERN) $debitnrread = GUICtrlRead($DEBITNRINPUT) $NAAMKLANTRead = GUICtrlRead($NAAMKLANT) $AANMELDDATUMREAD = GUICtrlRead($AANMELDDATUM) $VERZONDENDATUMREAD = GUICtrlRead($VERZONDENDATUM) $MODELREAD = GUICtrlRead($MODEL) $SERIENRINPUTREAD = GUICtrlRead($SERIENRINPUT) $STATUSREAD = GUICtrlRead($STATUS) $KLACHTOMSCHRIJVING = GUICtrlRead($KLACHT) $OPLOSSINGREAD = GUICtrlRead($OPLOSSING) $RETOURDATUMREAD = GUICtrlRead($RETOURDATUM) $TRACKENTRACEREAD = GUICtrlRead($TRACKENTRACE) $LEVREAD = GUICtrlRead($LEVCOMBO) $LASTEDITREAD = $NAAMMEDEWERKER $FILIAALREAD = GUICtrlRead($FILIAALINPUT) If $debitnrread = "" Then MsgBox(4096, "Let op!", "Debiteurnummer mag niet leeg zijn.") $GO = 0 EndIf If $NAAMKLANTRead = "" Then MsgBox(4096, "Let op!", "Debiteur naam mag niet leeg zijn.") $GO = 0 EndIf If $MODELREAD = "" Then MsgBox(4096, "Let op!", "Apparaat / Model mag niet leeg zijn.") $GO = 0 EndIf If $SERIENRINPUTREAD = "" Then MsgBox(4096, "Let op!", "Serienummer mag niet leeg zijn.") $GO = 0 EndIf If $LEVREAD = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier.") $GO = 0 EndIf If GUICtrlRead($STATUS) = "Afgehandeld" Then If GUICtrlRead($RETOURDATUM) = "" Then MsgBox(4096, "Let op!", "Datum retour is niet ingevuld.") $GO = 0 EndIf If GUICtrlRead($OPLOSSING) = "" Then MsgBox(4096, "Let op!", "Een afgehandelde RMA aanvraag heef altijd een Oplossing.") $GO = 0 EndIf EndIf If $GO = 1 Then $aArray = IniReadSection(@ScriptDir & "\DB\rma.ini", "RMANR") $RMANR = $FOUNDRMANR IniWrite(@scriptdir & "\DB\rma.ini", "RMANR", $RMANR, $savermanr) IniWrite(@ScriptDir & "\DB\rma.ini", "RMANREXTERN", $RMANR, $savermanrsup) IniWrite(@ScriptDir & "\DB\rma.ini", "DEBITNR", $RMANR, $debitnrread) IniWrite(@ScriptDir & "\DB\rma.ini", "KLANT", $RMANR, $NAAMKLANTRead) IniWrite(@ScriptDir & "\DB\rma.ini", "AANMELDDATUM", $RMANR, $AANMELDDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "VERZENDDATUM", $RMANR, $VERZONDENDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "MODEL", $RMANR, $MODELREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "SERIENR", $RMANR, $SERIENRINPUTREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "STATUS", $RMANR, $STATUSREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "KLACHT", $RMANR, $KLACHTOMSCHRIJVING) IniWrite(@ScriptDir & "\DB\rma.ini", "OPLOSSING", $RMANR, $OPLOSSINGREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "RETOURDATUM", $RMANR, $RETOURDATUMREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "TRACKENTRACE", $RMANR, $TRACKENTRACEREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LEVERANCIER", $RMANR, $LEVREAD) IniWrite(@ScriptDir & "\DB\rma.ini", "LASTEDIT", $RMANR, $LASTEDITREAD) If Not FileExists(@ScriptDir & "\Files\RMA" & $RMANR) Then DirCreate(@ScriptDir & "\Files\RMA" & $RMANR) EndIf $FILE = @ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & @MIN & "-kopiebon.txt" FileOpen(@ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & @MIN & "-kopiebon.txt", 1) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Intern RMAnr." & @TAB & @TAB & "RMA" & $RMANR & @CRLF) FileWrite($FILE, "Leverancier RMAnr." & @TAB & $savermanrsup & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Datum:" & @TAB & @TAB & @TAB & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF) FileWrite($FILE, "Tijd:" & @TAB & @TAB& @TAB & @HOUR & ":" & @MIN & @CRLF) FileWrite($FILE, "Aangemeld door:" & @TAB & @TAB & $NAAMMEDEWERKER & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileWrite($FILE, "Debiteurnummer:" & @TAB & @TAB & $debitnrread & @CRLF) FileWrite($FILE, "Debiteurnaam:" & @TAB & @TAB & $NAAMKLANTRead & @CRLF) FileWrite($FILE, "Aangemeld bij:" & @TAB & @TAB & $LEVREAD & @CRLF) FileWrite($FILE, "Model:" & @TAB & @TAB & @TAB & $MODELREAD & @CRLF) FileWrite($FILE, "Serienummer:" & @TAB & @TAB & $SERIENRINPUTREAD & @CRLF) If GUICtrlRead($LEVCOMBO) = "CCV" Then FileWrite($FILE, "Filiaal:" & @TAB & @TAB & $FILIAALREAD & @CRLF & @CRLF) EndIf FileWrite($FILE, "Klacht omschrijving:" & @CRLF & $KLACHTOMSCHRIJVING & @CRLF) FileWrite($FILE, "---------------------------------------" & @CRLF) FileClose(@ScriptDir & "\Files\RMA" & $RMANR & "\RMA" & $RMANR & "-" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & @MIN & "-kopiebon.txt") Local $iPrint = _FilePrint($FILE) If $iPrint Then MsgBox(4096, "", "RMA" & $RMANR & " Kopie RMA bon geprint en opgeslagen.", 2) Else MsgBox(4096, "Let op!", "Er is iets mis gegaan, rapport niet geprint." & @CRLF & "Foutcode: " & @error) EndIf EndIf EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func CHECKPASS() $CHECKPASSGUI = GUICreate($VERSION & " - Controle", 332, 342, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LoginBG.BMP', 0, 0, 332, 342) $TITEL = GUICtrlCreateLabel("Controle wachtwoord", 0, 40, 332, 30, $ES_CENTER) GUICtrlSetFont(-1, 18, 800, 0, "Calibri") $LABELUSERNAME = GUICtrlCreateLabel("Gebruiker", 50, 150, 50, 17) $LOGGEDIN = GUICtrlCreateInput($NAAMMEDEWERKER, 50, 167, 233, 21) $LABELPASSW = GUICtrlCreateLabel("Wachtwoord:", 50, 210, 77, 17, 0) $PasswordEdit = GUICtrlCreateInput("", 50, 227, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $ButtonCancel = GUICtrlCreateButton("Annuleer", 245, 305, 75, 25, $BS_NOTIFY) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 8, 323) $hLabel = GUICtrlCreateLabel("", 0, 0, 332, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($BG, $GUI_DISABLE) GUICtrlSetState($LOGGEDIN, $GUI_DISABLE) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELUSERNAME, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELPASSW, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LOGGEDIN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($PasswordEdit, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonCancel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) Local $hDLL = DllOpen("user32.dll") While 1 If WinActive($VERSION & " - Controle", "") Then If _IsPressed("0D", $hDLL) Then $PASSINPUT = GUICtrlRead($PasswordEdit) $PASSINI = IniRead(@ScriptDir & "\DB\medewerker.ini", $NAAMMEDEWERKER, "Pass", "") If $PASSINPUT = $PASSINI Then GUIDelete($CHECKPASSGUI) CHANGEPASS() Else MsgBox(4096, "Let op!", "Het wachtwoord is onjuist.") EndIf EndIf EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $ButtonCancel GUIDelete($CHECKPASSGUI) MAINMENU() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func CHANGEPASS() $CHANGEPASSGUI = GUICreate("", 332, 342, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LoginBG.BMP', 0, 0, 332, 342) $TITEL = GUICtrlCreateLabel("Wachtwoord", 0, 40, 332, 30, $ES_CENTER) GUICtrlSetFont(-1, 18, 800, 0, "Calibri") $LABELUSERNAME = GUICtrlCreateLabel("Gebruiker", 50, 125, 50, 17) $LOGGEDIN = GUICtrlCreateInput($NAAMMEDEWERKER, 50, 142, 233, 21) $NEWPASS1LABEL = GUICtrlCreateLabel("Nieuw wachtwoord", 50, 185) $NEWPASS1 = GUICtrlCreateInput("", 50, 202, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $NEWPASS2LABEL = GUICtrlCreateLabel("Herhaal nieuw wachtwoord", 50, 243) $NEWPASS2 = GUICtrlCreateInput("", 50, 262, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $ButtonOk = GUICtrlCreateButton("OK", 160, 305, 75, 25, $BS_NOTIFY) $ButtonCancel = GUICtrlCreateButton("Annuleer", 245, 305, 75, 25, $BS_NOTIFY) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 8, 323) $hLabel = GUICtrlCreateLabel("", 0, 0, 332, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($BG, $GUI_DISABLE) GUICtrlSetState($LOGGEDIN, $GUI_DISABLE) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELUSERNAME, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS1LABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS2LABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS2, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonOk, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonCancel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $ButtonOk $GO = 1 If GUICtrlRead($NEWPASS1) = "" And GUICtrlRead($NEWPASS2) = "" Then MsgBox(4096, "Let op!", "Vul een nieuw wachtwoord in") $GO = 0 EndIf If GUICtrlRead($NEWPASS1) = "12345" And GUICtrlRead($NEWPASS2) = "12345" Then MsgBox(4096, "Let op!", "Verander uw wachtwoord, deze mag niet de standaard code zijn") $GO = 0 EndIf If $GO = 1 Then If GUICtrlRead($NEWPASS1) = GUICtrlRead($NEWPASS2) Then $NEWPASS = GUICtrlRead($NEWPASS1) $aArray = IniWrite(@ScriptDir & "\DB\medewerker.ini", $NAAMMEDEWERKER, "Pass", $NEWPASS) MsgBox(4096, "Opgeslagen", "Nieuwe wachtwoord is opgeslagen.") GUIDelete($CHANGEPASSGUI) MAINMENU() ExitLoop Else MsgBox(4096, "Let op!", "Wachtwoorden zijn niet gelijk aan elkaar.") EndIf EndIf Case $ButtonCancel GUIDelete($CHANGEPASSGUI) MAINMENU() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func NEWUSER() $NEWUSERGUI = GUICreate("", 332, 342, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LoginBG.BMP', 0, 0, 332, 342) $TITEL = GUICtrlCreateLabel("Nieuwe gebruiker", 0, 40, 332, 30, $ES_CENTER) GUICtrlSetFont(-1, 18, 800, 0, "Calibri") $LABELUSERNAME = GUICtrlCreateLabel("Gebruiker", 50, 125, 50, 17) $NEWUSER = GUICtrlCreateInput("", 50, 142, 233, 21) $NEWPASS1LABEL = GUICtrlCreateLabel("Wachtwoord", 50, 185) $NEWPASS1 = GUICtrlCreateInput("", 50, 202, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $NEWPASS2LABEL = GUICtrlCreateLabel("Herhaal wachtwoord", 50, 243) $NEWPASS2 = GUICtrlCreateInput("", 50, 262, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $ButtonOk = GUICtrlCreateButton("OK", 160, 305, 75, 25, $BS_NOTIFY) $ButtonCancel = GUICtrlCreateButton("Annuleer", 245, 305, 75, 25, $BS_NOTIFY) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 8, 323) $hLabel = GUICtrlCreateLabel("", 0, 0, 332, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($BG, $GUI_DISABLE) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELUSERNAME, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS1LABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS2LABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($NEWPASS2, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonOk, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonCancel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $ButtonOk $GO = 1 If GUICtrlRead($NEWUSER) = "" Then MsgBox(4096, "Let op!", "Vul een gebruikersnaam in") $GO = 0 EndIf If GUICtrlRead($NEWPASS1) = "" And GUICtrlRead($NEWPASS2) = "" Then MsgBox(4096, "Let op!", "Vul een nieuw wachtwoord in") $GO = 0 EndIf If $GO = 1 Then If GUICtrlRead($NEWPASS1) = GUICtrlRead($NEWPASS2) Then IniWrite(@ScriptDir & "\DB\medewerker.ini", GUICtrlRead($NEWUSER), "Pass", GUICtrlRead($NEWPASS1)) IniWrite(@ScriptDir & "\DB\rechten.ini","ADDUSER", GUICtrlRead($NEWUSER), "0") IniWrite(@ScriptDir & "\DB\rechten.ini","DELUSER", GUICtrlRead($NEWUSER), "0") IniWrite(@ScriptDir & "\DB\rechten.ini","EDITSUPP", GUICtrlRead($NEWUSER), "0") IniWrite(@ScriptDir & "\DB\rechten.ini","EDITRECHTEN", GUICtrlRead($NEWUSER), "0") MsgBox(4096, "Opgeslagen", "Nieuwe gebruiker is toegevoegd." & @CRLF & @CRLF & "U wordt nu afgemeld.") GUIDelete($NEWUSERGUI) Sleep(500) _TOP() ExitLoop Else MsgBox(4096, "Let op!", "Wachtwoorden zijn niet gelijk aan elkaar.") EndIf EndIf Case $ButtonCancel GUIDelete($NEWUSERGUI) MAINMENU() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func DELUSER() $DELUSERGUI = GUICreate("", 332, 342, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LoginBG.BMP', 0, 0, 332, 342) $TITEL = GUICtrlCreateLabel("Verwijderen", 0, 40, 332, 30, $ES_CENTER) GUICtrlSetFont(-1, 18, 800, 0, "Calibri") $LABELUSERNAME = GUICtrlCreateLabel("Kies de gebruiker", 50, 125) $Combo1 = GUICtrlCreateCombo("Kies een medewerker...", 50, 142, 233, 21, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\medewerker.ini") If (Not @error) Then _ArraySort($aSections) If (Not @Error) Then GUICtrlSetData($Combo1, _ArraytoString($aSections, "|", 1), $aSections[1]) _GUICtrlComboBox_SelectString($Combo1, "Kies een medewerker...") $LABEL = GUICtrlCreateLabel("Vul uw wachtwoord in", 50, 207) $Password = GUICtrlCreateInput("", 50, 227, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_PASSWORD)) $ButtonOk = GUICtrlCreateButton("Verwijder", 160, 305, 75, 25, $BS_NOTIFY) $ButtonCancel = GUICtrlCreateButton("Annuleer", 245, 305, 75, 25, $BS_NOTIFY) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 8, 323) $hLabel = GUICtrlCreateLabel("", 0, 0, 332, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetState($BG, $GUI_DISABLE) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABELUSERNAME, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonOk, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ButtonCancel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $ButtonOk $GO = 1 $VAR = GUICtrlRead($Password) $VAR2 = IniRead(@ScriptDir & "\DB\medewerker.ini", $NAAMMEDEWERKER, "Pass", "") If $VAR = $VAR2 Then $GO = 1 Else MsgBox(4096, "Let op!", "Uw wachtwoord is onjuist.") $GO = 0 EndIf If $GO = 1 Then $VAR = GUICtrlRead($Combo1) If $VAR = $NAAMMEDEWERKER Then MsgBox(4096, "Let op!", "U kunt u zelf niet verwijderen.") $GO = 0 EndIf If $GO = 1 Then $YesOrNo = msgBox(4,"","Weet u zeker dat u " & $VAR & " wilt verwijderen?") If $YesOrNo = 6 then IniDelete(@ScriptDir & "\DB\medewerker.ini", $VAR) IniDelete(@ScriptDir & "\DB\rechten.ini", "ADDUSER", $VAR) IniDelete(@ScriptDir & "\DB\rechten.ini", "DELUSER", $VAR) IniDelete(@ScriptDir & "\DB\rechten.ini", "EDITSUPP", $VAR) IniDelete(@ScriptDir & "\DB\rechten.ini", "EDITRECHTEN", $VAR) MsgBox(4096, "", "Gebruiker: " & $VAR & " is verwijderd.") GUIDelete($DELUSERGUI) DELUSER() ExitLoop Else MsgBox(4096, "", "Verwijderen van gebruiker: " & $VAR & " is gestopt.") EndIf EndIf EndIf Case $ButtonCancel GUIDelete($DELUSERGUI) MAINMENU() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func EDITLEV() $EDITLEVGUI = GUICreate($VERSION, 520, 500, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $NEWMENU = GUICtrlCreateMenuItem("Nieuwe leverancier toevoegen", $FILE) $SAVEMENU = GUICtrlCreateMenuItem("Opslaan", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Terug naar Hoofdmenu", $FILE) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LeverancierBG.BMP', 0, 0, 520, 480) GUICtrlSetState($BG, $GUI_DISABLE) $Leverancier = GUICtrlCreateLabel("Leverancier:", 48, 86, 63, 17) $LEVCOMBO = GUICtrlCreateCombo("Kies een leverancier...", 48, 110, 145, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $LEVURLLABEL = GUICtrlCreateLabel("RMA Url:", 48, 192, 47, 17) $LEVURL = GUICtrlCreateInput("", 48, 216, 265, 21) $LEVINFOLABEL = GUICtrlCreateLabel("Informatie:", 48, 248, 53, 17) $LEVINFO = GUICtrlCreateEdit("", 48, 272, 433, 185) $hLabel = GUICtrlCreateLabel("", 0, 0, 520, 50, -1, $GUI_WS_EX_PARENTDRAG) Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\leveranciers.ini") If (Not @error) Then _ArraySort($aSections) If (Not @Error) Then GUICtrlSetData($LEVCOMBO, _ArraytoString($aSections, "|", 1), $aSections[1]) _GUICtrlComboBox_SelectString($LEVCOMBO, "Kies een leverancier...") GUICtrlSetState($LEVURL, $GUI_DISABLE) GUICtrlSetState($LEVINFO, $GUI_DISABLE) GUICtrlSetBkColor($Leverancier, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVCOMBO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVURLLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVURL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVINFOLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVINFO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 If WinActive($VERSION, "") Then Sleep(25) HotKeySet("{ENTER}", "NoEnter") Else Sleep(25) HotKeySet("{ENTER}") EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($EDITLEVGUI) MAINMENU() ExitLoop EndIf Case $LEVCOMBO $GO = 1 If GUICtrlRead($LEVCOMBO) = "Kies een leverancier..." Then GUICtrlSetState($LEVURL, $GUI_DISABLE) GUICtrlSetState($LEVINFO, $GUI_DISABLE) GUICtrlSetData($LEVURL, "") GUICtrlSetData($LEVINFO, "") $GO = 0 EndIf If $GO = 1 Then GUICtrlSetState($LEVURL, $GUI_ENABLE) GUICtrlSetState($LEVINFO, $GUI_ENABLE) $LEV = GUICtrlRead($LEVCOMBO) $URL = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "URL", "") $INFO = IniRead(@ScriptDir & "\DB\leveranciers.ini", $LEV, "INFO", "") GUICtrlSetData($LEVURL, $URL) GUICtrlSetData($LEVINFO, $INFO) EndIf Case $NEWMENU GUIDelete($EDITLEVGUI) NEWLEV() ExitLoop Case $SAVEMENU $LEV = GUICtrlRead($LEVCOMBO) $URL = GUICtrlRead($LEVURL) $INFO = GUICtrlRead($LEVINFO) IniWrite(@ScriptDir & "\DB\Leveranciers.ini",$LEV, "URL", $URL) IniWrite(@ScriptDir & "\DB\Leveranciers.ini", $LEV, "INFO", $INFO) MsgBox(4096, "Opgeslagen", "Leverancier informatie opgeslagen.") GUIDelete($EDITLEVGUI) EDITLEV() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func NEWLEV() $NEWLEVGUI = GUICreate($VERSION, 520, 500, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $SAVEMENU = GUICtrlCreateMenuItem("Opslaan", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Terug naar Hoofdmenu", $FILE) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LeverancierBG.BMP', 0, 0, 520, 480) GUICtrlSetState($BG, $GUI_DISABLE) $Leverancier = GUICtrlCreateLabel("Leverancier:", 48, 86, 63, 17) $LEVNAME = GUICtrlCreateInput("", 48, 110, 145, 21) $LEVURLLABEL = GUICtrlCreateLabel("RMA Url:", 48, 192, 47, 17) $LEVURL = GUICtrlCreateInput("", 48, 216, 265, 21) $LEVINFOLABEL = GUICtrlCreateLabel("Informatie:", 48, 248, 53, 17) $LEVINFO = GUICtrlCreateEdit("", 48, 272, 433, 185) $hLabel = GUICtrlCreateLabel("", 0, 0, 520, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetBkColor($Leverancier, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVNAME, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVURLLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVURL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVINFOLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVINFO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 If WinActive($VERSION, "") Then Sleep(25) HotKeySet("{ENTER}", "NoEnter") Else Sleep(25) HotKeySet("{ENTER}") EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($NEWLEVGUI) MAINMENU() ExitLoop EndIf Case $SAVEMENU $LEV = GUICtrlRead($LEVNAME) $URL = GUICtrlRead($LEVURL) $INFO = GUICtrlRead($LEVINFO) IniWrite(@ScriptDir & "\DB\Leveranciers.ini",$LEV, "URL", $URL) IniWrite(@ScriptDir & "\DB\Leveranciers.ini", $LEV, "INFO", $INFO) MsgBox(4096, "Opgeslagen", "Leverancier informatie opgeslagen.") GUIDelete($NEWLEVGUI) NEWLEV() ExitLoop EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func RECHTEN() $RECHTENGUI = GUICreate("", 520, 500, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $SAVEMENU = GUICtrlCreateMenuItem("Opslaan", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Terug naar Hoofdmenu", $FILE) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LeverancierBG.BMP', 0, 0, 520, 480) GUICtrlSetState($BG, $GUI_DISABLE) $MEDEWERKERLABEL = GUICtrlCreateLabel("Medewerker:", 48, 86, 63, 17) $MEDEWERKERCOMBO = GUICtrlCreateCombo("Kies een medewerker...", 48, 110, 145, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $ADDUSERRECHTEN = GUICtrlCreateCheckbox("Gebruikers toevoegen", 48, 175) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0) $DELUSERRECHTEN = GUICtrlCreateCheckbox("Gebruikers verwijderen", 48, 200) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0) $ADDSUPPRECHTEN = GUICtrlCreateCheckbox("Leveranciers bewerken", 48, 225) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0) $RECHTENINSTELLEN = GUICtrlCreateCheckbox("Rechten instellen", 48, 250) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0) Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\medewerker.ini") If (Not @error) Then _ArraySort($aSections) If (Not @Error) Then GUICtrlSetData($MEDEWERKERCOMBO, _ArraytoString($aSections, "|", 1), $aSections[1]) _GUICtrlComboBox_SelectString($MEDEWERKERCOMBO, "Kies een medewerker...") $hLabel = GUICtrlCreateLabel("", 0, 0, 520, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetBkColor($MEDEWERKERLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MEDEWERKERCOMBO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ADDUSERRECHTEN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($DELUSERRECHTEN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($ADDSUPPRECHTEN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($RECHTENINSTELLEN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($RECHTENGUI) MAINMENU() ExitLoop EndIf Case $MEDEWERKERCOMBO $GO = 1 If GUICtrlRead($MEDEWERKERCOMBO) = "Kies een medewerker..." Then MsgBox(4096, "Let op!", "Kies een medewerker...") $GO = 0 EndIf If $GO = 1 Then $NAME = GUICtrlRead($MEDEWERKERCOMBO) $ADDUSERRECHTENCHECK = IniRead(@ScriptDir & "\DB\rechten.ini", "ADDUSER", $NAME, "") $DELUSERRECHTENCHECK = IniRead(@ScriptDir & "\DB\rechten.ini", "DELUSER", $NAME, "") $ADDSUPPRECHTENCHECK = IniRead(@ScriptDir & "\DB\rechten.ini", "EDITSUPP", $NAME, "") $RECHTENINSTELLENCHECK = IniRead(@ScriptDir & "\DB\rechten.ini", "EDITRECHTEN", $NAME, "") If $ADDUSERRECHTENCHECK = "" Then MsgBox(4096, "Let op!", "Rechten zijn niet goed uitgelezen, controleer database.") EndIf If $ADDUSERRECHTENCHECK = 0 Then GUICtrlSetState($ADDUSERRECHTEN, $GUI_UNCHECKED) Else GUICtrlSetState($ADDUSERRECHTEN, $GUI_CHECKED) EndIf If $DELUSERRECHTENCHECK = "" Then MsgBox(4096, "Let op!", "Rechten zijn niet goed uitgelezen, controleer database.") EndIf If $DELUSERRECHTENCHECK = 0 Then GUICtrlSetState($DELUSERRECHTEN, $GUI_UNCHECKED) Else GUICtrlSetState($DELUSERRECHTEN, $GUI_CHECKED) EndIf If $ADDSUPPRECHTENCHECK = "" Then MsgBox(4096, "Let op!", "Rechten zijn niet goed uitgelezen, controleer database.") EndIf If $ADDSUPPRECHTENCHECK = 0 Then GUICtrlSetState($ADDSUPPRECHTEN, $GUI_UNCHECKED) Else GUICtrlSetState($ADDSUPPRECHTEN, $GUI_CHECKED) EndIf If $RECHTENINSTELLENCHECK = "" Then MsgBox(4096, "Let op!", "Rechten zijn niet goed uitgelezen, controleer database.") EndIf If $RECHTENINSTELLENCHECK = 0 Then GUICtrlSetState($RECHTENINSTELLEN, $GUI_UNCHECKED) Else GUICtrlSetState($RECHTENINSTELLEN, $GUI_CHECKED) EndIf EndIf Case $SAVEMENU $GO = 1 If GUICtrlRead($MEDEWERKERCOMBO) = "Kies een medewerker..." then MsgBox(4096, "Let op!", "Kies een medewerker...") $GO = 0 EndIf If $GO = 1 Then $NAME = GUICtrlRead($MEDEWERKERCOMBO) If GUICtrlRead($ADDUSERRECHTEN) = $GUI_CHECKED Then IniWrite(@ScriptDir & "\DB\rechten.ini","ADDUSER", $NAME, "1") Else IniWrite(@ScriptDir & "\DB\rechten.ini","ADDUSER", $NAME, "0") EndIf If GUICtrlRead($DELUSERRECHTEN) = $GUI_CHECKED Then IniWrite(@ScriptDir & "\DB\rechten.ini","DELUSER", $NAME, "1") Else IniWrite(@ScriptDir & "\DB\rechten.ini","DELUSER", $NAME, "0") EndIf If GUICtrlRead($ADDSUPPRECHTEN) = $GUI_CHECKED Then IniWrite(@ScriptDir & "\DB\rechten.ini","EDITSUPP", $NAME, "1") Else IniWrite(@ScriptDir & "\DB\rechten.ini","EDITSUPP", $NAME, "0") EndIf If GUICtrlRead($RECHTENINSTELLEN) = $GUI_CHECKED Then IniWrite(@ScriptDir & "\DB\rechten.ini","EDITRECHTEN", $NAME, "1") Else IniWrite(@ScriptDir & "\DB\rechten.ini","EDITRECHTEN", $NAME, "0") EndIf MsgBox(4096, "", "Rechten zijn aangepast.") Sleep(500) GUIDelete($RECHTENGUI) RECHTEN() ExitLoop EndIf EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func RELEASENOTES() $RELEASEGUI = GUICreate("ReleaseNotes", 1500, 920, -1, -1, $WS_POPUPWINDOW) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\MainBG.BMP', 0, 0, 1500, 900) GUICtrlSetState($BG, $GUI_DISABLE) $FILE = GUICtrlCreateMenu("Bestand") $CLOSE = GUICtrlCreateMenuItem("Naar hoofdmenu", $FILE) $TITEL = GUICtrlCreateLabel("Release notes", 0, 75, 1500, 70, $ES_CENTER) GUICtrlSetFont(-1, 32, 800, 0, "Calibri") $MEDEWERKERLABEL = GUICtrlCreateLabel("Ingelogd als: " & $NAAMMEDEWERKER, 12, 880) GUICtrlSetState(-1, $GUI_DISABLE) $NOTES = GUICtrlCreateEdit("", 8, 220, 1485, 500, BitOR($WS_VSCROLL, $ES_AUTOVSCROLL,$ES_READONLY)) $VAR = FileRead(@ScriptDir & "\release notes.txt") GUICtrlSetData($NOTES, $VAR) $VERSIONLABEL = GUICtrlCreateLabel("Versie: " & $VERSION, 1350, 880) $hLabel = GUICtrlCreateLabel("", 0, 0, 1500, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetBkColor($TITEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($CLOSE, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($MEDEWERKERLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($VERSIONLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) ControlFocus("ReleaseNotes", "", $NOTES) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSE $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($RELEASEGUI) MAINMENU() ExitLoop EndIf EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func RAPPORTAANTALPERLEV() $RAPPORTAANTALPERLEVGUI = GUICreate("", 520, 500, -1, -1, $WS_POPUPWINDOW) $FILE = GUICtrlCreateMenu("Bestand") $OPENFOLDER = GUICtrlCreateMenuItem("Rapportage map openen", $FILE) $GENERATE = GUICtrlCreateMenuItem("Rapport genereren en Opslaan", $FILE) $PRINT = GUICtrlCreateMenuItem("Rapport genereren en Printen", $FILE) $CLOSEMENU = GUICtrlCreateMenuItem("Terug naar Hoofdmenu", $FILE) $BG = GUICtrlCreatePic(@ScriptDir & '\Images\LeverancierBG.BMP', 0, 0, 520, 480) GUICtrlSetState($BG, $GUI_DISABLE) $Leverancier = GUICtrlCreateLabel("Leverancier:", 48, 86, 63, 17) $LEVCOMBO = GUICtrlCreateCombo("Kies een leverancier...", 48, 110, 145, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL)) $DATUMLABEL = GUICtrlCreateLabel("Vanaf datum:", 225,86, 63, 17) $DATUMINPUT = GUICtrlCreateInput("Nog niet mogelijk", 225, 110, 100, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) GUICtrlSetTip($DATUMINPUT, "Laat leeg om alle datums te gebruiken.") $LABEL = GUICtrlCreateLabel("Totaal aantal RMA aanvragen: ", 48, 200, 250, 21) $TOTALCOUNT = GUICtrlCreateLabel("", 200, 200, 100, 21) $LABEL2 = GUICtrlCreateLabel("Aantal aangevraagd: ", 48, 225, 250, 21) $TOTALAANGEVRAAGD = GUICtrlCreateLabel("", 200, 225, 100, 21) $LABEL3 = GUICtrlCreateLabel("Aantal verzonden: ", 48, 250, 250, 21) $TOTALVERZONDEN = GUICtrlCreateLabel("", 200, 250, 100, 21) $LABEL4 = GUICtrlCreateLabel("Aantal afgehandeld: ", 48, 275, 250, 21) $TOTALAFGEHANDELD = GUICtrlCreateLabel("", 200, 275, 100, 21) Global $aSections = IniReadSectionNames(@ScriptDir & "\DB\leveranciers.ini") If (Not @error) Then _ArraySort($aSections) If (Not @Error) Then GUICtrlSetData($LEVCOMBO, _ArraytoString($aSections, "|", 1), $aSections[1]) _GUICtrlComboBox_SelectString($LEVCOMBO, "Kies een leverancier...") $hLabel = GUICtrlCreateLabel("", 0, 0, 520, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetBkColor($Leverancier, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LEVCOMBO, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TOTALCOUNT, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($DATUMLABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABEL, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABEL2, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TOTALAANGEVRAAGD, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABEL3, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TOTALVERZONDEN, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($LABEL4, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($TOTALAFGEHANDELD, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor($hLabel, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetState($DATUMINPUT, $GUI_DISABLE) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $CLOSEMENU $YesOrNo = msgBox(4,"","Weet u zeker dat u terug naar het hoofdmenu wilt?") If $YesOrNo = 6 then GUIDelete($RAPPORTAANTALPERLEVGUI) MAINMENU() ExitLoop EndIf Case $OPENFOLDER ShellExecute(@ScriptDir & "\Rapportage") Case $LEVCOMBO Local $hINI_FILENAME = @ScriptDir & "\DB\rma.ini" $READAANGEVRAAGDRMA = IniReadSection($hINI_FILENAME, 'LEVERANCIER') $READSTATUS = IniReadSection($hINI_FILENAME, 'STATUS') $VAR = GUICtrlRead($LEVCOMBO) $READAANGEVRAAGDRMACOUNT = _ArrayFindAll($READAANGEVRAAGDRMA, $VAR, Default, Default, Default, Default, 1) ; Varibales to hold counts Local $TOTALAANGEVRAAGD_Sel = 0, $TOTALVERZONDEN_Sel = 0, $TOTALAFGEHANDELD_Sel = 0 ; For each found index For $i = 0 To UBound($READAANGEVRAAGDRMACOUNT) - 1 ; Check value of that index Switch $READSTATUS[$READAANGEVRAAGDRMACOUNT[$i]][1] Case "Aangevraagd" ; And adjust counts $TOTALAANGEVRAAGD_Sel += 1 Case "Verzonden" $TOTALVERZONDEN_Sel += 1 Case "Afgehandeld" $TOTALAFGEHANDELD_Sel += 1 EndSwitch Next ; Set data in the labels GUICtrlSetData($TOTALCOUNT, $i) GUICtrlSetData($TOTALAANGEVRAAGD, $TOTALAANGEVRAAGD_Sel) GUICtrlSetData($TOTALVERZONDEN, $TOTALVERZONDEN_Sel) GUICtrlSetData($TOTALAFGEHANDELD, $TOTALAFGEHANDELD_Sel) Case $GENERATE $GO = 1 $VAR = GUICtrlRead($LEVCOMBO) If $VAR = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier") $GO = 0 EndIf If $GO = 1 Then If not FileExists(@ScriptDir & "\Rapportage\" & $VAR) Then DirCreate(@ScriptDir & "\Rapportage\" & $VAR) EndIf $FILE = @ScriptDir & "\Rapportage\" & $VAR & "\" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & @MIN & @SEC & ".txt" FileDelete($FILE) $LINE = "--------------------------------------------------------------------------------" FileOpen($FILE, 1) FileWrite($FILE, @CRLF) FileWrite($FILE, $LINE & @CRLF) FileWrite($FILE, "Print datum: " & @TAB & @TAB & @MDAY & "-" & @MON & "-" & @YEAR & " | " & @HOUR & ":" & @MIN & @CRLF) FileWrite($FILE, "Medewerker: " & @TAB & @TAB & $NAAMMEDEWERKER & @CRLF) FileWrite($FILE, $LINE & @CRLF) ProgressOn("Printen", "Rapport voorbereiden", "Starten...", -1, -1) Sleep(750) ProgressSet(50, "Verzamelen...") $VAR = GUICtrlRead($LEVCOMBO) FileWrite($FILE, "Leverancier: " & @TAB & @TAB & $VAR & @CRLF) ;FileWrite($FILE, "Vanaf: " & @TAB & @TAB & @TAB & $VARDATE & @CRLF) FileWrite($FILE, $LINE & @CRLF) Sleep(750) FileWrite($FILE, "Totaal RMA: " & @TAB & @TAB & UBound($READAANGEVRAAGDRMACOUNT) & @CRLF) ProgressSet(75, "Aantallen uitlezen...") FileWrite($FILE, "Aantal Aangevraagd: " & @TAB & $TOTALAANGEVRAAGD_Sel & @CRLF) FileWrite($FILE, "Aantal Verzonden: " & @TAB & $TOTALVERZONDEN_Sel & @CRLF) FileWrite($FILE, "Aantal Afgehandeld: " & @TAB & $TOTALAFGEHANDELD_Sel & @CRLF) ProgressSet(75, "Opslaan...") Sleep(1000) ProgressSet(100, "Klaar...") Sleep(1000) ProgressOff() FileWrite($FILE, $LINE) FileClose($FILE) MsgBox(4096, "", "Klaar met opslaan...", 2) GUIDelete($RAPPORTAANTALPERLEVGUI) RAPPORTAANTALPERLEV() ExitLoop EndIf Case $PRINT $GO = 1 $VAR = GUICtrlRead($LEVCOMBO) If $VAR = "Kies een leverancier..." Then MsgBox(4096, "Let op!", "Kies een leverancier") $GO = 0 EndIf $VARDATE = GUICtrlRead($DATUMINPUT) If $VARDATE = "" Or $VARDATE = "Nog niet mogelijk" Then ;$YesOrNo = msgBox(4,"","Weet u zeker dat u het rapport wilt genereren op basis van alle RMA aanvragen?") ;If $YesOrNo = 6 then ; $GO = 1 $VARDATE = "Gehele RMA periode" ;Else ; $GO = 0 ;EndIf EndIf If $GO = 1 Then If not FileExists(@ScriptDir & "\Rapportage\" & $VAR) Then DirCreate(@ScriptDir & "\Rapportage\" & $VAR) EndIf $FILE = @ScriptDir & "\Rapportage\" & $VAR & "\" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & @MIN & @SEC & ".txt" FileDelete($FILE) $LINE = "--------------------------------------------------------------------------------" FileOpen($FILE, 1) FileWrite($FILE, @CRLF) FileWrite($FILE, $LINE & @CRLF) FileWrite($FILE, "Print datum: " & @TAB & @TAB & @MDAY & "-" & @MON & "-" & @YEAR & " | " & @HOUR & ":" & @MIN & @CRLF) FileWrite($FILE, "Medewerker: " & @TAB & @TAB & $NAAMMEDEWERKER & @CRLF) FileWrite($FILE, $LINE & @CRLF) ProgressOn("Printen", "Afdruktaak voorbereiden", "Starten...", -1, -1) Sleep(500) ProgressSet(50, "Versturen...") $VAR = GUICtrlRead($LEVCOMBO) FileWrite($FILE, "Leverancier: " & @TAB & @TAB & $VAR & @CRLF) FileWrite($FILE, "Vanaf: " & @TAB & @TAB & @TAB & $VARDATE & @CRLF) FileWrite($FILE, $LINE & @CRLF) Sleep(500) FileWrite($FILE, "Totaal RMA: " & @TAB & @TAB & UBound($READAANGEVRAAGDRMACOUNT) & @CRLF) ProgressSet(75, "Aantallen uitlezen...") FileWrite($FILE, "Aantal Aangevraagd: " & @TAB & $TOTALAANGEVRAAGD_Sel & @CRLF) FileWrite($FILE, "Aantal Verzonden: " & @TAB & $TOTALVERZONDEN_Sel & @CRLF) FileWrite($FILE, "Aantal Afgehandeld: " & @TAB & $TOTALAFGEHANDELD_Sel & @CRLF) ProgressSet(100, "Klaar") Sleep(1000) ProgressOff() FileWrite($FILE, $LINE) FileClose($FILE) Local $iPrint = _FilePrint($FILE) If $iPrint Then MsgBox(4096, "", "Klaar met printen...", 2) Else MsgBox(4096, "Let op!", "Er is iets mis gegaan, rapport niet geprint." & @CRLF & "Foutcode: " & @error) EndIf GUIDelete($RAPPORTAANTALPERLEVGUI) RAPPORTAANTALPERLEV() ExitLoop EndIf EndSwitch WEnd EndFunc ;====================================================================================================================================================================== Func NoEnter() MsgBox(4096, "Let op!", "Enter kan niet worden gebruikt.", 2) EndFunc ;====================================================================================================================================================================== Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) Local $hWndFrom, $iIDFrom, $iCode $hWndFrom = $lParam $iIDFrom = _WinAPI_LoWord($wParam) $iCode = _WinAPI_HiWord($wParam) If $iIDFrom <> $iIDPrev Then ; ConsoleWrite ($hWndFrom & "/" & $iIDFrom & "/" & $iCode & @CRLF) GUICtrlSetBkColor($iIDPrev, $COLOR_WHITE) GUICtrlSetBkColor($iIDFrom, $COLOR_YELLOW) _WinAPI_RedrawWindow($INLOGGUI) $iIDPrev = $iIDFrom EndIf Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND ;======================================================================================================================================================================