Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi MwSt-Berechnung mit ComboBox (https://www.delphipraxis.net/69747-mwst-berechnung-mit-combobox.html)

LOMBI 19. Mai 2006 14:07

Datenbank: Paradox • Version: 7 • Zugriff über: Query, DataSource

MwSt-Berechnung mit ComboBox
 
Hallo,

auf meiner Form befinden sich

ComboBox für die MwSt-Auswahl
EditVKnetto
EditVKbrutto

Nun würde ich gerne mit der ComboBox die Berechnung der MwSt. für Feld VKbrutto durchführen:

0= MwSt-Satz 0,00%
1= MwSt-Satz 7,00%
2= NwSt-Satz 16,00%

Im OnActivate der Form könnte auch schon "2" als Vorgabe in der CB stehen.

Wer hilft mir bitte, diese MwSt-Funktion zu realisieren?

Gruß
Lombi

mkinzler 19. Mai 2006 14:11

Re: MwSt-Berechnung mit ComboBox
 
im onChange der ComboBox

Delphi-Quellcode:
case ComboBox.ItemIndex of
0: faktor := 1;
1: faktor := 1.07;
2: faktor := 1.14;
end;
EditVKbrutto := ditVKnetto * faktor;

LOMBI 19. Mai 2006 15:46

Re: MwSt-Berechnung mit ComboBox
 
Danke mkinzler,

für Deine Hilfe!

LOMBI 19. Mai 2006 16:51

Re: MwSt-Berechnung mit ComboBox
 
Erhalte die Meldung: Undef. Bezeichner: 'faktor';
Was ist bitte zu tun?

mkinzler 19. Mai 2006 16:55

Re: MwSt-Berechnung mit ComboBox
 
Du mußt die Vraiable Netto als Real deklarieren.

Außerdem solltest du die eigentliche Berechnungszeile auf

Delphi-Quellcode:
EditVKbrutto.Text := ditVKnetto.Text * faktor;
ändern.

Habe beim schnellen Eintippen die .Text vergessen

LOMBI 20. Mai 2006 10:53

Re: MwSt-Berechnung mit ComboBox
 
Muß denn nicht "faktor" als var deklariert werden?
Wie bitte wird in diesem Zusammenhang Real benützt?
Habe mit so was noch nicht gearbeitet und mit der D3-Hilfe
komme ich nicht weiter.

marabu 20. Mai 2006 15:41

Re: MwSt-Berechnung mit ComboBox
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Lombi,

hier hast du ein wenig Code zum studieren.

Grüße vom marabu

Hansa 20. Mai 2006 16:43

Re: MwSt-Berechnung mit ComboBox
 
ähhm, *räusper*

Zitat:

Zitat von mkinzler
Delphi-Quellcode:
EditVKbrutto.Text := ditVKnetto.Text * faktor;

Ist das Dein Ernst ? Oder sind das etwa spezielle mkinzler-Texte mit Zahlen-features ? :mrgreen:

Herr Kinzler. Vorgestern war wohl nicht Ihr Tag, was ? :zwinker: Was sehe ich denn hier noch :
Zitat:

Zitat von mkinzler
2: faktor := 1.14;

Muß natürlich 1.16 heißen. Nicht so schlimm, aber es besteht immer eine potentielle C+P Gefahr und einen der noch dazu schlecht sieht. :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz