| |
|
|
Ulrich Bednarz | Hi, Soory, I must me first once here zurechtfinden! In of my Review have I already over some my difficulty in things DB-Programming with Profan report. Thomas was so nice and has already on a part answered (thanks!). here's the Quellode with my Notes (The first question - index with Pfadangabe - and the Schleifenteil are already Done)! Perhaps has of a or others a idea I rather can make! |
|
|
| UlrichB Windows XP Profan-Version 8.0 | 12/18/07 ▲ |
|
|
|
|
ByteAttack | time so on The speedy: i'd on your place any absoluten way generally rausnehmen. g:XProfanUmsatzUmsatz.dbf and the through $PROGDIR+turnover.dbf supplant. |
|
|
| |
|
|
|
Thomas Freier | in this week is sure with many The Time concise. the target your application is slight To discern. I suspect it should The sold item, turnover and profit slight discernible his. on this place would I with XProfan 8 Franks List view bring into action. two Tabs: 1. with own data and 2. with Lieferanten and Artikeln. there can The data, complement with Verkaufsort and date, loosly a scheduler into others copy. as Why stay one Image settled. The Lieferanten.dbf would I sure undo in Lieferanten.dbf (L-number, address, (turnover?)) and item.dbf (L-number and Artikeldaten). |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 12/18/07 ▲ |
|
|
|
|
Thomas Freier | here yet something to the others Problemen: with this structure: CompileMarkSeparation show You to each leave the WaitInput whom middle-aged Datensatz on. Changes go weggebügelt. means GetUSatz Remove and erstmals to WhileNot E% bring into action. new Satzdaten Show : CompileMarkSeparation GetUSatz had You already drin, power but only sense, if the Satzzeiger itself changed has. the the Datumsfeld no D-area in the data base is has well its Reasons. well too the search to firm , there here otherwise the concept Verkaufsstelle is used. Ergebnisfelder ( z.B. : turnover, profit) as Edit-boxes ? Changes without Button Save? And then with %Key(13) ??? heavy nachvollziehbar too data Save and reading. less boxes go stored as read? now well, first once To here. under XProfan 8.0 there otherwise too: @Create(DateEdit,n,s,X1,Y1,X2,Y2) for Datumseingaben and here under Includes Help (z.B.: date.inc) for investigation the KW to that date. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 12/19/07 ▲ |
|
|
|
|
Thomas Freier | set here once more whom 1. part changed one, there stümperhaft and Fehlern. CompileMarkSeparation have I with Profan 6.6 tested and and no Problem Compilieren. WhileLoop changed, there not yet in Profan 6.6 present. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 12/19/07 ▲ |
|
|
|
|
Ulrich Bednarz | Hello Thomas, The Ungereimtheiten, on The You punched are, lying on it, that I the Prog yet herumfeile. there but some Basics not at me funktionierten, have I circa Help gebeten. Vielen Thanks for your trouble! your Proposals have I ausprobiert. tappt im dunkeln functions (what too To expect was). yet Support need I in the drop, where I in SubProg one Window with a designed lever open, but at Closing the entire Prog terminates, what really so not virtual was. nevertheless right cordial Thanks for your Help! One Merry Weihnachtsfest and a successful New year 2008 wish you UlrichB |
|
|
| UlrichB Windows XP Profan-Version 8.0 | 12/22/07 ▲ |
|
|
|
|
Thomas Freier | Hello Ulrich, without code is there hardly one hint To give. here an example and possible find You The Solution for your trouble. CompileMarkSeparationcls
declare a%,b%,d1%,d2%,d3%,dlg%, End1%,End2%
usefont ms sans serif,15,7,0,0,0
setdialogfont 1
print Unterschiedliche Reaktionen beim Klick ins Fenster-Kreuz
print zum Schließen eines Dialog-Fensters.
let a%=createbutton(%hwnd,Ende,50,150,50,20)
let d1%=createbutton(%hwnd,Dialog 1,150,150,50,20)
let d2%=createbutton(%hwnd,Dialog 2,250,150,50,20)
let d3%=createbutton(%hwnd,Dialog 3,350,150,50,20)
whilenot End1%
WaitInput
If %key=2
BREAK
ElseIf getfocus(a%)
let End1%=1
ElseIf getfocus(d1%) Dialog wird durch Klick im Fenster-Kreuz beendet
let dlg%=Createdialog(%hwnd,Dialog 1,300,250,200,200)
let b%=createbutton(dlg%,Ende,50,150,50,20)
let End2%=0
print
print Nur das Dialog-Fenster wird durch Klick ins Fenster-Kreuz beendet!
whilenot End2%
WaitInput
If %key=2
BREAK
ElseIf getfocus(b%)
let End2%=1
EndIf
EndWhile
@DestroyWindow(dlg%)
ElseIf getfocus(d2%) Dialog wird durch Klick im Fenster-Kreuz beendet aber nicht zerstört
ein zweiter Klick schließt das Hauptfenster
let dlg%=Createdialog(%hwnd,Dialog 2,300,250,200,200)
let b%=createbutton(dlg%,Ende,50,150,50,20)
let End2%=0
whilenot End2%
WaitInput
If %key=2
print
print Beim nächsten Klick schließt auch das Hauptfenster!
BREAK
ElseIf getfocus(b%)
@DestroyWindow(dlg%)
let End2%=1
EndIf
EndWhile
ElseIf getfocus(d3%) Dialog wird durch Klick im Fenster-Kreuz beendet und
das Hauptfenster wird beendet da auch hier die If %key=2 Abfrage
eingebaut ist
print
print Beim nächsten Klick schließt auch das Hauptfenster!
let dlg%=Createdialog(%hwnd,Dialog 3,300,250,200,200)
endif
end
and furthermore frohes solid, one good new year and frohes works with XProfan. One Verwaltungsbeispiel (Profan 6.6) with Listendarstellung from my Profananfängen find You under [web]https:///www.pliete.de/left/links_02.html[/web] |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 12/22/07 ▲ |
|
|
|