Artikelverwaltung (Small Edition)

**BugFix**

Hi,
da ich mit meinem Warenwirtschaftsprogramm für unsere Außendienstler noch nicht fertig bin, mein Chef aber nach einer einheitlichen und regelmäßigen Inventur verlangt, habe ich mal schnell eine reine Artikelbestandsverwaltung zusammengezimmert.
Typische Datenbankfunktionalität fehlt natürlich.
Aber immerhin kann man hiermit:
- Artikel erfassen, getrennt nach Massen- und Seriennummer-Artikeln
- Massenartikel Bestand führen (absoluter Lagerwert)
- Seriennummer-Artikeln führen, bei Lagerausgang (z.B. kurzfristig wg. Leihgabe) wird per Checkbox (* s. Kommentar) Status "Out" gesetzt und für Inventurwert nicht berücksichtigt
- Lagerbestand ausdrucken oder
- Lagerbestand (Inventur) per Mail versenden (Konfiguration in INI-Datei)
Für kleine Anzahl von unterschiedlichen Artikeln ist das ganz praktikabel.

* - Kommentar zu Checkbox
Mir ist aufgefallen, dass die Checkboxen beim Sortieren ignoriert werden.
Darum mußte ich hier etwas umständlich erst für alle Einträge den Checkbox-Status prüfen. Falls markiert wird eine 1 in die Spalte geschrieben. Dann wird sortiert und anschließend der Checkbox-Status neu gesetzt und die 1 bzw. 0 aus der Spalte gelöscht.
Das dauert leider mit zunehmender Anzahl der Einträge.
Kennt hier vielleicht jemand einen Weg, die Checkboxen mit in die Sortierung einzubeziehen?

Und hier das Ergebnis meiner sonntäglichen "Erholung"
(zum Test braucht ihr die angehängten Dateien)

EDIT
Hab nun doch noch eine Suche eingebaut, war sonst zu spartanisch. Den Dateianhang habe ich aber NICHT geändert. Also wer mag, das Script per Copy & Paste holen.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <GuiListView.au3>
#include <GuiTab.au3>
#include <file.au3>
#include <GuiCombo.au3>
#Include <GuiStatusBar.au3>
Global $lvArtikel, $lvSerien
Global Const $WM_NOTIFY = 0x004E
Global Const $NM_FIRST = 0
Global Const $NM_LAST = (-99)
Global Const $NM_OUTOFMEMORY = ($NM_FIRST - 1)
Global Const $NM_CLICK = ($NM_FIRST - 2)
Global Const $NM_DBLCLK = ($NM_FIRST - 3)
Global $hWndGUI
Global $MsgID
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Dim $new = 0, $changed = 0, $inputA = 0, $inputS = 0, $CurrIndex = 0, $ArtUnit = "", $MengeNr = 0, $Comment, $iArtBez, $iArtNr, $mNotiz
Dim $Fehler = 0, $massArt, $serArt, $cbLoadedA = 0,$cbLoadedS = 0, $INIchangedA = 0, $INIchangedS = 0
Dim $text1_1 = " Artikelbezeichnung:", $text2_1 = " SN-Gerät:", $text1_2 = " Anzahl:", $text2_2 = " Seriennummer:"
Local $a_PartsRightEdge[4] = [186, 447, 648, -1]
Local $a_PartsText[4] = [$text1_1, "", $text1_2, ""]
Dim $Required_Files[3]
$Required_Files[0]= "VerwSmall.INI"
$Required_Files[1] = "ser_art.vwg"
$Required_Files[2] = "mass_art.vwg"
For $i = 0 To 2
If Not FileExists($Required_Files[$i]) Then
MsgBox(262160, 'Fehler',"Datei: " & $Required_Files[$i] & " nicht im Anwendungspfad!"& @LF & @LF & _
"Ohne diese Datei kann das Programm nicht ausgeführt werden!")
$Fehler = 1
EndIf
Next
If $Fehler = 1 Then Exit
$INImail = IniReadSection("VerwSmall.INI", "mail")
$INIgeraete = IniReadSection("VerwSmall.INI", "geraete")
$INIartikel = IniReadSection("VerwSmall.INI", "artikel")
Dim $smtpServer = $INImail[1][1], $AbsName = $INImail[2][1], $AbsAdress = $INImail[3][1], $ToAdress = $INImail[4][1]
Dim $Betreff = $INImail[5][1], $Body = "", $UserName = $INImail[6][1], $UserPW = $INImail[7][1], $Port = $INImail[8][1]