XProfan

SetStatusText StatusBar1&,1,Flop-/Top-Liste,0,0
u_case
Dim bereich#,768
GetColumnUpdate(listview&,bereich#)
WriteFileQuick(addr(text$),bereich#,0,768)
Dispose bereich#
u_disable
declare befehl$,Daten$,i%,Ztitel$,summe!,zeile%,Total$,summe1!
declare befehl$,Datum1$,Datum2$,Zdaten$
clearlistview(Listview&)
Declare tmptxt$
tmptxt$=Art.-Nr.
IColumn(ListView&,Addr(tmptxt$),320,0)
tmptxt$=Titel
IColumn(ListView&,Addr(tmptxt$),320,0)
tmptxt$=^ Stückzahl
IColumn(ListView&,Addr(tmptxt$),88,0)
tmptxt$=Preis
IColumn(ListView&,Addr(tmptxt$),92,0)
tmptxt$=Summe
IColumn(ListView&,Addr(tmptxt$),73,0)
AutoSortListview listview&,1,1,2
SetColumnAlignment(listview&,2,1)
SetColumnAlignment(listview&,3,1)
SetColumnAlignment(listview&,4,1)
Dim bereich#,768
text$=username$+Button4.fmt

if @filesize(text$)>0

    ReadFileQuick(addr(text$),bereich#,0,768)
    SetColumnUpdate(listview&,bereich#)

endif

Dispose bereich#
Datum1$=@Gettext$(DateTimePicker1&)
Datum2$=@Gettext$(DateTimePicker2&)
Befehl$=select artikel.NR_Neu, artikel.titel, Auf_nr.rech_dat, Auftrag.Anzahl,  artikel.Euro from artikel,auftrag,auf_nr where artikel.nr_neu=auftrag.Nr_neu and auftrag.auf_nr=auf_nr.auf_nr and auf_nr.Rech_dat>=+ctod$(Datum1$)+ and auf_nr.Rech_dat<=+ctod$(Datum2$)+ order by artikel.nr_neu
clearlist
sqlexec befehl$,1
i%=2
summe!=0
decimals 2

if %getcount>1

    Daten$=@ListBoxItem$(i%)
    Ztitel$=@trim$(@substr$(Daten$,1,|))

endif

while i%<=%getcount

    Daten$=@ListBoxItem$(i%)

    if Ztitel$<>@trim$(@substr$(Daten$,1,|))

        Ztitel$=@trim$(@substr$(Daten$,1,|))
        setitem listview&,@trim$(@substr$(zDaten$,1,|)),@trim$(@substr$(zDaten$,2,|)),Summe!,@trim$(@substr$(zDaten$,5,|)),Summe1!
        summe!=0
        summe1!=0

    endif

    Zdaten$=Daten$
    Summe!=summe!+@val(@trim$(@substr$(Daten$,4,|)))
    Summe1!=summe1!+@val(@trim$(@substr$(Daten$,4,|)))*@val(@trim$(@substr$(Daten$,5,|)))
    inc i%

wend

setitem listview&,@trim$(@substr$(zDaten$,1,|)),@trim$(@substr$(zDaten$,2,|)),@format$(###0.00,Summe!),@trim$(@substr$(zDaten$,5,|)),@format$(###0.00,Summe1!)
Ueberschrift$=Flop-/Topliste - Stand: +date$(0)
lastfocus&=6
<