English
Forum

Datenbank"einsteiger"probleme with Profan

 

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!

7 kB
Hochgeladen:12/18/07
Downloadcounter172
Download
 
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.
 
Website:  [...] 
Facebook:  [...] 
12/18/07  
 




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).

164 kB
Hochgeladen:12/18/07
Downloadcounter191
Download
 
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
@dbOpen(#2,Lieferanten.dbf)
@dbUse(#2)
String1$= @GetDir$(@) + \Ordner\IX
dbCreateIndex PRODUKT > String1$   warum sind hier keine Pfadangaben möglich?
@dbIndex(String1$)                   sind!
@dbUse(#2)
@dbgo(TOP)
declare x%

If &dbRecCount > 0

    Let string1$ = @trim$(@dbget$(Produkt))
    ADDchoice(produkt%,@dbget$(PRODUKT))
    @dbgo(NEXT)

    While x% <&dbRecCount

        IF string1$ <> @trim$(@dbget$(Produkt))

            Let string1$ = @trim$(@dbget$(Produkt))
            ADDchoice(produkt%,@dbget$(PRODUKT))

        EndIf

        inc x%
        @dbgo(NEXT)

    EndWhile

    @Sendmessage(produkt%,$14E,2,0) hier 3. Zeile  anzeigen (3-1=2)

EndIf

@dbclose(#2)                               bei Aktivieren kann nicht kompiliert go

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.
CompileMarkSeparation
cls
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  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.698 Views

Untitledvor 0 min.
Walter02/24/22
Christof Neuß07/15/21
Uwe Lang02/07/19
gerd08/25/13
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie