XProfan

Michael
Wodrich

Reading the row
worth detect
then
- delete (worth take away)
- move (here worth delete, there add)

Verständlich?

becomes one fine Tool.

Best wishes
Michael Wodrich

i don't know, whether You a Message over The Lösch- or Drag&Drop-occupation erhälst. If not the case is, then becomes under one Buttons Delete or move whom Process in ambulation settle.

Programmieren, das spannendste Detektivspiel der Welt.

12/30/07 ▲

@Michael
so far i was already - whom worth the erased (copied) row of last Gesamtwert take away and (if copies) in the new display zuzählen. so far, so well. The others Entries are but then not updated been.
If I z. B. 5 Entries Have and eachone is differently in the worth what about me lösche whom second entry, is correct the Rechnungsverlauf in the 3. and 4. entry not any more. The Endwert in the 5. entry would then again correctly. and there lying my trouble

12/30/07 ▲

Thomas
Freier

i'd The amounts as +999 or -999 insert and Save without Zwischenstand.
If the Istbetrag, the Yes tall displayed becomes, not reicht, The values the last slot at Show calculate let. at that date could you through Verify one Vordatieren prevent. becomes a booking changed, simply The latest slot new to charge let.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hello Horst,

I wuerde ueber a Loop The kompletten values new to charge.

greeting from Bangkok

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

@Dieter

I wuerde ueber a Loop The kompletten values new to charge.

whom thoughts I had already, but How ??? -

@Thomas
That the Datumsanzeige have You wrong understood. On wish one individual gentlemen have I the automatic date from the Version 1 (MoneyGuard) so remodels, that now each Datumseingabe either over the Kalendertool from windows, with own Inputs or automatically possible is. an Kontrollfunktion should then Appointments for Payments or Eingänge report. -

my trouble is as always The updating the Rechnungswege.

@Frank
can it his that You Listview_Funktionen.inc under XProfan-11 equal must or Have I a antiquated Version the Include-File ?

Frank
Abbing

can it his that You Listview_Funktionen.inc under XProfan-11 equal must or Have I a antiquated Version the Include-File ?

Inwiefern?

Thomas
Freier

only one quick gestricktes pattern a others application:
Compile Mark Separation

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Franks ListView
Declare lvdll&,bereich#,bytes&
Declare handle&,indexline&,status&,x&,xn1!,xn2!
vdll&=usedll(bvr/Listview.dll)
 $I Listview_Funktionen.inc
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Mein Konto ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc Rechne_MeinKonto

    DIM bereich#,1024
    Decimals 2
    GetItemText(listview_B&,bereich#,2,0)
    text$=String$(bereich#,0)
    SetItemText(listview_B&,addr(text$),3,0)

    WhileLoop GetLines(listview_B&)

        GetItemText(listview_B&,bereich#,3,(&Loop-1))
        xn1!=val(String$(bereich#,0))
        GetItemText(listview_B&,bereich#,2,&Loop)
        xn2!=val(String$(bereich#,0))
        text$= str$(xn1! + xn2!)
        SetItemText(listview_B&,addr(text$),3,&Loop)

    EndWhile

    AddItemValues(listview_B&,2,bereich#,2)
    SetText num33&,Kontostand:  + String$(bereich#,0)
    Dispose bereich#

EndProc

Proc Konto_Liste

    Def @Waitmessage(0) !USER32,WaitMessage
    Declare num33&,Boot_dlg&,listview_B&,BP_but1&,BP_but2&,BP_but3&,BP_but4&,BP_but5&,BP_but6&
    Boot_dlg& = @Create(Window,%hwnd,   Mein Konto ,50,24,896,680)
    Zeile neu
    BP_but1& = CreateButton(Boot_dlg&,Neu,40,620,80,25)
    Zeile löschen
    BP_but2& =  CreateButton(Boot_dlg&,Löschen,160,620,80,25)
    Liste speichern
    BP_but5& =  CreateButton(Boot_dlg&,Speichern,650,620,80,26)
    Ende Button
    BP_but4& =  CreateButton(Boot_dlg&,Ende,740,620,80,25)
    num33&=@Control(STATIC,,$50000080,350,624,160,13,Boot_dlg&,1,%hinstance,$1000)
    SetFont num33&,lfont&
    listview_B&=CreateListView(Boot_dlg&,%hinstance,Rgb(0,0,0),Rgb(250,250,250),-1,$21)
    InsertColumn listview_B&,Eingabe / Ausgabe,490,0
    InsertColumn listview_B&,Datum,100,1
    InsertColumn listview_B&,Betrag,100,1
    InsertColumn listview_B&,Stand,100,1
    text$=MeinKonto.csv
    bytes&=@FileSize(text$)

    If bytes&>0

        Dim bereich#,bytes&
        ReadFileQuick(addr(text$),bereich#,0,bytes&)
        CsvToListview(listview_B&,bereich#,bytes&,4)
        Dispose bereich#

    EndIf

    SetFont listview_B&,lfont&
    AutoSortListview listview_B&,1,1,1
    ShowListView(listview_B&,32,22,820,560)
    Rechne_MeinKonto
    InitMessages(Boot_dlg&)
    EnableEdits(listview_B&,1)
    @SetFocus(Boot_dlg&)
    Usecursor 0

    While %Menuitem<>-2

        @Waitmessage()
        x&=GetVar(0)

        IfNot x&

            Rechne_MeinKonto

        EndIf

        If GetFocus(BP_but2&)

            x&=GetSelectedLine(listview_B&)        Nummer der markierten Zeile abfragen
            case x& > 0 : Sendmessage(listview_B&,$1008,x&,0)    Zeile löschen

        ElseIf GetFocus(BP_but1&)                 Erzeugt eine neue Zeile, scrollt dort hin

            und selektiert sie (alle anderen werden deselektiert)
            SetItem listview_B&,,,
            x&=GetLines(listview_B&)
            SelectLine(listview_B&,(x&-1),1)

        ElseIf GetFocus(BP_but5&)

            text$=MeinKonto.csv
            x&=GetNeededMemory(listview_B&,1)
            Dim bereich#,x&
            x&=ListviewToCsv(listview_B&,bereich#,0,0)
            x&=WriteFileQuick(addr(text$),bereich#,0,x&)
            Dispose bereich#
            MessageBox  Liste gespeichert...,Information,$40040
            @SetFocus(Boot_dlg&)

        ElseIf GetFocus(BP_but4&)

            BREAK

        EndIf

        Usecursor 0

    Wend

    @DestroyWindow(Boot_dlg&)

Endproc

################################## H A U P T T E I L ####################################
WINDOWSTYLE 512+8+2
WINDOW 1,1-%maxx,710
SETTRUECOLOR 1
Cls RGB(230,230,200)
USEFONT Arial,16,0,0,0,0
SETDIALOGFONT 1
Declare text$
var  lfont& = @Create(Font,Arial,15,0,0,0,0)
Konto_Liste
freedll lvdll&
DeleteObject lfont&
 $I Listview_Dispose.inc
End

CSV-Anhänge likes it not. beget with the Content a : MeinKonto.csv
Compile Mark Separation

Einnahme ,2007-01-01,1000.00,1000.00

Gruß Thomas
Windows XP SP2, XProfan X2

@Frank

Inwiefern?

with the Version 11 bleats XProfan over The Sub... in your listview_funktionen.inc - Roland has moreover extra a Inc-File included for old programs profalt.inc for old Profan-programs, The no Operators using. therefore I thought, that You, the Sub in your INC too modernisieren müsstest

@Thomas
Compile Mark Separation

GetItemText(etatO&,bereich#,3,2)
teil$=String$(bereich#,0)
print teil$
GetItemText(etatO&,bereich#,4,(anzO%-1))
end$=String$(bereich#,0)
print end$
teil!=VAL(teil$)
end!=VAL(end$)
end!=(end!-teil!)
betragO$=STR$(end!)
print betragO$
Sendmessage(etatO&,$1008,2,0)
OBEN_AKTIV Hier wird die Anzeige in einer eigenen Procedur aktu

so sees my Probecode from what about me think, that under Strich the herauskommt, what me vorschwebt.
Printen does it already time the, I wants. now only still in The Loop and then new abspeichern.
(wonder you nocht over The grossen O - I with two Show work, Have I The variables with supra and under separated)

Frank
Abbing

therefore I thought, that You, the Sub in your INC too modernisieren müsstest

naturally, with the new Version there then a geänderte Inc. is anyhow vastly schlanker become, I six Procs and Defs now directly in The Dll integrate have.