XProfan

PROC ...

    REM Artikeldaten in ListView2 einlesen
    text$="SQL.DAT" SQL.DAT enthält die Ergebnisse des SQL-Befehls
    bytes&=@FileSize(text$)  Speicherbereich festlegen

    If bytes&>0

        Dim bereich#,bytes&
        x&=MixRGBs(GetSysColor(15),$00ffffff)
        listview2&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31) ListView2 = Liste aller Artikel
        ReadFileQuick(addr(text$),bereich#,0,bytes&)
        Spalten&=SetColumnsFromMem(listview2&,bereich#,addr(y&))
        CsvToListview(listview2&,(bereich#+y&),(bytes&-y&),Spalten&)
        Dispose bereich#

    EndIf

    Spaltentitel umbenennen
    Dim Bereich#,256
    1. Spalte
    text$="Lief.-Nr"
    String Bereich#,0=text$
    x&=SetColumnName(listview2&,Bereich#,(0))
    2. Spalte
    text$="Lieferant"
    String Bereich#,0=text$
    x&=SetColumnName(listview2&,Bereich#,(1))
    Dispose Bereich#
    Spaltentitel umbenennen
    Die Breite der drei ersten Spalten korrigieren
    SetColumnWidth(listview2&,0,75)
    SetColumnWidth(listview2&,1,250)
    SetColumnWidth(listview2&,2,0) diese Spalte wird zuviel aus SQL.DAT geholt, daher auf Breite=0 gesetzt, damit sie nicht zu sehen ist
    Die Breite der drei ersten Spalten korregieren
    Spalten des Listviews sortierbar machen
    AutoSortListview listview2&,2,1 macht die Spalten sortierbar durch Klick auf den Spaltentitel
    Spalten des Listviews sortierbar machen
    REM Artikeldaten in ListView2 einlesen
    REM Das ListView für den Hauptbildschirm anzeigen (noch leer)
    rem x&=MixRGBs(GetSysColor(15),$00ffffff)
    listview1&=CreateListView(%hwnd,%hinstance,0,-1,-1,$25)
    ShowListView(listview1&,30,100,560,250) Anzeige des Listviews
    REM Das ListView für den Hauptbildschirm anzeigen (noch leer)

EndProc

Proc Button4_OnClick

    REM nach Artikelnummer in Listview2& suchen
    DECLARE such$
    Feld ist leer, dann sofort ListView2 aufrufen, um dort zu suchen
    print @GetText$(ArtNrSearch&)
    print LEN(TRIM$(@GetText$(ArtNrSearch&)))

    If @Equ(LEN(TRIM$(@GetText$(ArtNrSearch&))),0)  nichts eingegeben

        @Messagebox("Keine Artikel-Nr. eingegeben","nach Artikel-Nr. suchen",0)
        ELSE Feld ist gefüllt, dann per Suchfunktion SearchText in ListView2 nach dieser Nummer suchen
        such$=ArtNrSearch&
        y&=SearchText(listview2&,0,GetLines(listview&),0,addr(such$),10,addr(x&))
        Case (y&<>-1):Print "Gefunden, Zeile "+Str$(y&)+" / Spalte "+Str$(x&)

    ENDIF

    SetText ArtNrSearch&,""  Feldinhalt nach Rückkehr wieder löschen

ref='./../../references-fonction/XProfan/ENDPROC/'>ENDPROC