Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
Delphi 8 Professional
|
Re: aktuelles Mwst.-Problem [SQL]
7. Sep 2005, 16:08
SQL-Code:
CREATE PROCEDURE KUARTSTATSP (
ID_KUNDE INTEGER,
ID_ART INTEGER,
MONAT SMALLINT,
JAHR SMALLINT,
MWSTSATZ SMALLINT,
UMSATZ DECIMAL(15,2)
AS
DECLARE VARIABLE VAR_MWSTWERT DECIMAL(15,2);
DECLARE VARIABLE VAR_UMSATZBRUTTO DECIMAL(15,2);
begin
SELECT MWSTWERT FROM MWSTWERTSP8 (:MWSTSATZ,:MONAT,:JAHR) INTO :VAR_MWSTWERT;
VAR_UMSATZBRUTTO = :UMSATZ * (1 + VAR_MWSTWERT / 100);
insert into KUARTSTAT8 (MONAT,JAHR,MWSTSATZ,ID_KUNDE,ID_ART,UMSATZ,UMSATZBRUTTO)
values (:MONAT,:JAHR,:MWSTSATZ,:ID_KUNDE,:ID_ART,:UMSATZ,:VAR_UMSATZBRUTTO);
end
suspend;
end
Das ist jetzt stark verkürzt, aber der Hund ist da begraben. 8) Seltsamerweise ist noch folgender Effekt zu bemerken, wenn ich das Insert durch ein Update ersetze :
SQL-Code:
update KUARTSTAT set UMSATZ=UMSATZ+ :UMSATZ,
UMSATZBRUTTO=UMSATZBRUTTO + :VAR_UMSATZBRUTTO,
where (MONAT= :MONAT) and
(JAHR= :JAHR) and
(ID_ART= :ID_ART) and
(ID_KUNDE= :ID_KUNDE);
Sofern ich im Insert einen festen Wert einsetze, dann steht der drin. Nach dem Update ist er aber trotz BI-Trigger NULL. An dem Wert ist trotz (zwar vorhandenem) AU-Trigger nichts geändert worden.
Gruß
Hansa
|
|
Zitat
|