| |
| |
|
Bernd
Haase | Moin ! I breh me straight The Haxen with list view. my 3. slot becomes always linksbündig displayed. I can make I wants, I war the thing not rechtsbündig supplied. Perhaps can me time someone help, sometimes sees one The own Error not. The code lying with.
thanks !!
CompileMarkSeparationSetStatusText 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
<s=s4 href='./../../Function-References/XProfan/uenable/'>u_enable
|
|
| |
| Mit freundlichem Gruß Bernd Sind schon viele erfroren, aber noch keiner ist erstunken !![...]  | 03/28/07 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | attempt still time one Update(listview&) incorporate. and Please editier your Text, circa code-Tags incorporate - its then leichter To reading. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 03/28/07 ▲ |
|
| |
|
|
 | means Bernd, Codes still Please with [CODE] mark, The Time ought to already his!  |
|
| |
| |
| |
|
|
Bernd
Haase | | Update List view already probiert. |
|
| |
| Mit freundlichem Gruß Bernd Sind schon viele erfroren, aber noch keiner ist erstunken !![...] | 03/28/07 ▲ |
|
| |
|
|
 | rather Bernd
to whom View source Please once # in the Symbolleiste You can and to the View source again once # You can - thanks 
has itself Done - now have You it grade made  |
|
| |
| |
| |
|
|
Frank
Abbing | man, is still no funktionierender code...
Why not as last Parameter by IColumn a 1?
otherwise functions Bugfix 02.01() by me without Problems with all Split. results it to ShowListview(), is a Update(listviewhandle) necessary.
P.s.: ex the next Version becomes The function UpdateListview() heissen, instead of Update(). |
|
| |
| |
| |
|
|
Bernd
Haase | Jau thanks first times for The hints. excuse for not vorhandenen Quotes.
unfortunately can the code not functions, there this code on a SQL-data base zugreift. leaves itself badly mitliefern.
nevertheless thanks first time. will be Franks items time try. |
|
| |
| Mit freundlichem Gruß Bernd Sind schon viele erfroren, aber noch keiner ist erstunken !![...] | 03/28/07 ▲ |
|
| |
|
|
Frank
Abbing |
unfortunately can the code not functions, there this code on a SQL-data base zugreift. leaves itself badly mitliefern.
this is me clear, that not always goes. therefore should You too one Minimalbeispiel create, which whom Error darstellt. Why? Lies the:
[tb]minimalbeispiel[/tb] |
|
| |
| |
| |
|
(2.379)
Deutsch
English
Français
Español
Italia