Visual Dataflex | VDF Anfänger | Rechnen mit Dataflex

Boardmenü

» Forum
» Portal

» Registrieren

» Suche
» Statistik
» Mitglieder
» Team
» Kalender
» Sponsoren
» Partner

» F.A.Q

Portalmenü

» Datenbank anlegen
» Datenbank Entwicklung
» Empfehlungen
» Portal
» Programm erstellen
» Über visual Dataflex

» Statistik

Dataflex Empfehlungen

Englisches Dataflex Forum

Anzeigen

Sponsoren

Kostenloser Linktausch

Antivirus Software

Foren Verzeichnis

HP Color Laserjet 1600

Windows 7 Forum

Social Bookmark Script

Social Bookmark Script

Visual Dataflex » VDF Anfänger » Rechnen mit Dataflex

» Hallo Gast [Anmelden|Registrieren]

Letzter Beitrag | Erster ungelesener Beitrag

Rechnen mit Dataflex

Autor

Beitrag

Lebowski
Mitglied

Dabei seit: 22.09.2010
Beiträge: 29
Einsatzart von VDF: privat
Anwenderstatus: Newbie
Herkunft: 27442
Betriebssystem: Win7 HP x64

Rechnen mit Dataflex

Zitatantwort auf diesen Beitrag erstellen

Hallo,

die Dataflex-Hilfe konnte mich leider nicht weiterbringen... Also muss ich schon wieder fragen: Ich habe ein Form das als Summenfeld dienen soll. Sobald man reinklickt, soll die Summe von 14 Preisfeldern mal das Mehrwertsteuerfeld berechnet werden.

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

    Object oRech_Summe1 is a dbForm
        Entry_Item Rech.Summe

        Set Server to oRech_DD
        Set Location to 333 223
        Set Size to 13 66
        Set Label to "Summe:"
        Set Label_Col_Offset to 31
        Set Label_FontWeight to 600

        Procedure Entering Returns Integer
            Integer iRetVal
            Forward Get msg_Entering to iRetVal
            
            Procedure_Return iRetVal
        End_Procedure

    End_Object

Habe schon diverse abenteuerliche Versuche gestartet mir Move (Rech.Preis1+Rech+Preis2 ....) to Rech.Summe

Aber ich musste einsehen dass das alles Quark ist.

Ich glaube mir fehlen bei dieser Sprache die Grundlagen wie ich was in Variablen richtig reinschreibe, und wie ich diese in Textfelder auslese. Ich weiß zum Bleistift auch immernoch nicht, wie jetzt die Textausgabe von zum Beispiel einer Form angesprochen wird.

12.10.2010 12:29

Nehmen Sie Lebowski in Ihre Freundesliste auf

GhostShotIV GhostShotIV ist männlich

Grünschnabel

Dabei seit: 25.09.2009
Beiträge: 9
Einsatzart von VDF: gewerblich
Anwenderstatus: VDF-Entwickler
Herkunft: Wiesbaden
Betriebssystem: Windows Vista

Hallo Lebowski,

wie du auf die Daten der Felder zugreifen kannst, hängt davon ab, was für Felder es sind und wie sie gefüllt wurden.

Wenn es sich um einfache Form Felder handelt, kannst du die Werte über "Get Value of oFeld to nWertFeld" bekommen. Sind es dbForms hängt es wieder von der Art ab, wie die Daten in das Feld gekommen sind.

Stammen die Daten schon aus einem fertigen Datensatz würde der Zugriff über "Rech.Preis1" funktionieren. Sind die Werte erst eingegeben worden und noch nicht gespeichert, muss man anders auf diese zugreifen.

"Get Field_Current_Value of oRech_Preis1 to nRechPreis1" würde z.B. den eingegebenen, aber noch nicht gespeicherten Wert von dem Feld "oRech_Preis1" in die Variable "nRechPreis1" schreiben.

Als Code-Beispiel:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Object oRech_Summe1 is a dbForm
	Entry_Item Rech.Summe

	Set Server to oRech_DD
	Set Location to 333 223
	Set Size to 13 66
	Set Label to "Summe:"
	Set Label_Col_Offset to 31
	Set Label_FontWeight to 600

	Procedure Entering Returns Integer
		Integer iRetVal
		Number nPreis1 nPreis2 nPreis3 nPreis4 nPreis5
		Forward Get msg_Entering to iRetVal
		
		Get Field_Current_Value of oRech_Preis1 to nPreis1
		Get Field_Current_Value of oRech_Preis2 to nPreis2
		Get Field_Current_Value of oRech_Preis3 to nPreis3
		Get Field_Current_Value of oRech_Preis4 to nPreis4
		Get Field_Current_Value of oRech_Preis5 to nPreis5
		
		//"Field_Changed_Value" wenn der Wert für die Datenbank/das DDO als geändert markiert
		//werden soll und gespeichert werden muss
		Set Field_Changed_Value of oRech_Summe1 to (nPreis1+nPreis2+nPreis3+nPreis4+nPreis5)
		//"Field_Current_Value" wenn der Wert für die Datenbank/das DDO als NICHT geändert markiert
		//werden soll und NICHT gespeichert werden muss
		//Set Field_Current_Value of oRech_Summe1 to (nPreis1+nPreis2+nPreis3+nPreis4+nPreis5)
		Procedure_Return iRetVal
	End_Procedure

End_Object

12.10.2010 16:17

Nehmen Sie GhostShotIV in Ihre Freundesliste auf

Lebowski
Mitglied

Dabei seit: 22.09.2010
Beiträge: 29
Einsatzart von VDF: privat
Anwenderstatus: Newbie
Herkunft: 27442
Betriebssystem: Win7 HP x64

Themenstarter Thema begonnen von Lebowski

Hm =/ Der Debugger sagt das hier

Mein Quellcode sieht so aus:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

    Object oRech_Summe1 is a dbForm
        Entry_Item Rech.Summe

        Set Server to oRech_DD
        Set Location to 333 223
        Set Size to 13 66
        Set Label to "Summe:"
        Set Label_Col_Offset to 31
        Set Label_FontWeight to 600

	Procedure Entering Returns Integer
		Integer iRetVal
		Number nPricecol1 nPricecol2 nPricecol3 nPricecol4 nPricecol5 nPricecol6 nPricecol7 nPricecol8 nPricecol9 nPricecol10 nPricecol11 nPricecol12 nPricecol13 nPricecol14 nMwSt
		Forward Get msg_Entering to iRetVal
		
		Get Field_Current_Value of oRech_Pricecol1 to nPricecol1
		Get Field_Current_Value of oRech_Pricecol2 to nPricecol2
		Get Field_Current_Value of oRech_Pricecol3 to nPricecol3
		Get Field_Current_Value of oRech_Pricecol4 to nPricecol4
		Get Field_Current_Value of oRech_Pricecol5 to nPricecol5
		Get Field_Current_Value of oRech_Pricecol6 to nPricecol6
		Get Field_Current_Value of oRech_Pricecol7 to nPricecol7
		Get Field_Current_Value of oRech_Pricecol8 to nPricecol8
		Get Field_Current_Value of oRech_Pricecol9 to nPricecol9
		Get Field_Current_Value of oRech_Pricecol10 to nPricecol10
		Get Field_Current_Value of oRech_Pricecol11 to nPricecol11
		Get Field_Current_Value of oRech_Pricecol12 to nPricecol12
		Get Field_Current_Value of oRech_Pricecol13 to nPricecol13
		Get Field_Current_Value of oRech_Pricecol14 to nPricecol14
        Get Field_Current_Value of oRech_MwSt to nMwSt
		//"Field_Changed_Value" wenn der Wert für die Datenbank/das DDO als geändert markiert
		//werden soll und gespeichert werden muss
		Set Field_Changed_Value of oRech_Summe1 to ((nPricecol1+nPricecol2+nPricecol3+nPricecol4+nPricecol5+nPricecol6+nPricecol7+nPricecol8+nPricecol9+nPricecol10+nPricecol11+nPricecol12+nPricecol13+nPricecol14)*nMwSt)
		//"Field_Current_Value" wenn der Wert für die Datenbank/das DDO als NICHT geändert markiert
		//werden soll und NICHT gespeichert werden muss
		//Set Field_Current_Value of oRech_Summe1 to (nPreis1+nPreis2+nPreis3+nPreis4+nPreis5)
		
		Procedure_Return iRetVal
	End_Procedure

Alle Bezeichner sind richtig.... =/ Irgendwas muss mit Field_Current_Value nicht stimmen.... sagt jedenfalls der Debugger

13.10.2010 08:47

Markus Markus ist männlich

Mitglied

Dabei seit: 04.09.2007
Beiträge: 46

Hey,

ich bin mir nicht sicher ob ich es richtig gelesen habe aber kann es sein, dass du mit oRech_Pricecol1 das Eingabefeld und nicht die Server_DD des Forms ansprichst?

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

    Object oRech_Summe1 is a dbForm
    Procedure Entering Returns Integer
        Integer iRetVal
        Number nPricecol1

        Forward Get msg_Entering to iRetVal
        
        // Aktuellen Wert auslesen
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol1 to nPricecol1
    End_Procedure

13.10.2010 09:27

Nehmen Sie Markus in Ihre Freundesliste auf

Lebowski
Mitglied

Dabei seit: 22.09.2010
Beiträge: 29
Einsatzart von VDF: privat
Anwenderstatus: Newbie
Herkunft: 27442
Betriebssystem: Win7 HP x64

Themenstarter Thema begonnen von Lebowski

Danke Markus!

Genau das wars... Bin irgendwie noch nicht so fit im DF Syntax...

27.10.2010 12:22

Lebowski
Mitglied

Dabei seit: 22.09.2010
Beiträge: 29
Einsatzart von VDF: privat
Anwenderstatus: Newbie
Herkunft: 27442
Betriebssystem: Win7 HP x64

Themenstarter Thema begonnen von Lebowski

Man könnte denken alles ist einfach... Aber leider ist es das nicht.

Ich möchte nämlich, dass wenn man in das Feld "Summe" klickt (was übrigens jetzt astrein funktioniert) nicht nur die selbige berechnet wird, sondern auch den Anteil an MwSt im Feld neben an. Das habe ich, wie unten zu sehen ist, einfach mit der gleichen Operation gemacht wie ich das mit der Summe gemacht hab:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

   
Object oRech_Summe1 is a dbForm
        Entry_Item Rech.Summe

        Set Server to oRech_DD
        Set Location to 333 223
        Set Size to 13 66
        Set Label to "Summe:"
        Set Label_Col_Offset to 38
        Set Label_FontWeight to 600

	Procedure Entering Returns Integer
		Integer iRetVal
		Forward Get msg_Entering to iRetVal
		
		Get Field_Current_Value of oRech_DD Field Rech.Pricecol1 to nPricecol1
		Get Field_Current_Value of oRech_DD Field Rech.Pricecol2 to nPricecol2
		Get Field_Current_Value of oRech_DD Field Rech.Pricecol3 to nPricecol3
		Get Field_Current_Value of oRech_DD Field Rech.Pricecol4 to nPricecol4
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol5 to nPricecol5
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol6 to nPricecol6
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol7 to nPricecol7
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol8 to nPricecol8
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol9 to nPricecol9
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol10 to nPricecol10
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol11 to nPricecol11
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol12 to nPricecol12
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol13 to nPricecol13
        Get Field_Current_Value of oRech_DD Field Rech.Pricecol14 to nPricecol14
        
        Get Field_Current_Value of oRech_DD Field Rech.MwSt to nMwSt

		Set Field_Changed_Value of oRech_DD Field Rech.Summe to ((nPricecol1+nPricecol2+nPricecol3+nPricecol4+nPricecol5+nPricecol6+nPricecol7+nPricecol8+nPricecol9+nPricecol10+nPricecol11+nPricecol12+nPricecol13+nPricecol14)*(1+(nMwSt/100)))
		Set Field_Changed_Value of oRech_DD Field Rech.MwSt_Anteil to ((nPricecol1+nPricecol2+nPricecol3+nPricecol4+nPricecol5+nPricecol6+nPricecol7+nPricecol8+nPricecol9+nPricecol10+nPricecol11+nPricecol12+nPricecol13+nPricecol14)*(nMwSt/100))
		Procedure_Return iRetVal
	End_Procedure
    End_Object

Jedoch wenn ich versuche dem Feld Rech.MwSt_Anteil ein Wert zu zuweisen passiert gar nichts.... wo liegt der Fehler?

28.10.2010 09:18

Lebowski
Mitglied

Dabei seit: 22.09.2010
Beiträge: 29
Einsatzart von VDF: privat
Anwenderstatus: Newbie
Herkunft: 27442
Betriebssystem: Win7 HP x64

Themenstarter Thema begonnen von Lebowski

Des Rätselslösung war mal wieder meine Unsauberkeit.

Habe schlichtweg vergessen der Column "MwSt_Anteil" eine Größe zuzuordnen. Mit der Größe 0 können schlecht Daten ins Feld....

29.10.2010 08:53

Visual Dataflex » VDF Anfänger » Rechnen mit Dataflex

Views heute: 1.583 | Views gestern: 2.645 | Views gesamt: 2.186.764

Impressum

Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH | SEO by seo-wbb.de - Sponsored by Rene

Urlaub und Reise Infos

Frankenthal