Announcement

**Gesine Kuhlmann** · 18.02.2002, 21:02

Hi,

Erweitere deine Tabelle LOHNARTEN um die Spalte Faktor, welche den entsprechenden Multiplikator enth�lt. Dann kannst Du mit folgenden Statement deine Auswertung bekommen:
<pre>
select personalnr, sum( preis * faktor ) from lohnarten group by personalnr;
</pre>

Gru�
Gesine

p.s:
Da Ding in einem View verpackt kann dann mit deiner PERSONAL-Tabelle 'gejoint' werden

**Sven Rehder** · 19.02.2002, 10:18

Hi Gesine,
erstmal: hab schon viel Gutes �ber Dich hier gelesen - kann man ja mal so sagen. Leider kann ich die Tabellen nicht ver�ndern, da es sich hier um eine Software f�r die Zeitarbeit handelt und ich au�er Generierung von eben solchen Listen keine anderen M�glichkeiten habe in den Datenbanken etwas zu ver�ndern. Vielleicht hilft es Dir weiter, da� es eine Interbase4-DB ist.
Sve

**Gesine Kuhlmann** · 19.02.2002, 12:16

Hi Sven,

Na dann hoffen wir, dass Du wenigstens einen View erzeugen darfst... ( Falls nicht, wirst Du wohl mit zwei Zeilen pro Mitarbeiter leben m�ssen )

1)
<pre>
CREATE VIEW LOHNARTSUMMEN (
PNR,
SUMME
) AS

select personalnr, sum( preis * 0.5 ) from lohnarten where ( lohnart=10 or lohnart=29 ) group by personalnr
union all
select personalnr, sum( preis * 1 ) from lohnarten where not ( lohnart=10 or lohnart=29 ) group by personalnr;
</pre>

2)
auf diesen View dann ein:

<pre>
select pnr, sum(SUMME) from LOHNARTSUMMEN group by pnr
</pre>

Gru�
Gesine

p.s.:
Danke f�r's Komplimen

**Sven Rehder** · 19.02.2002, 12:21

Hi Gesine,
ich hab leg jetzt mal den Code der Procedure mit bei(ich greife mit SELECT drauf zu). Das Ergebnis ist zwar inzwischen soweit, da� IB nicht mehr abst�rzt, ich aber zu jedem einzelnen Mitarbeiter viele S�tze angezeigt bekomme (will nur einen) und alle haben unter "Spanne" eine 0,00. Anhand zweier einzugebender Datumswerte soll ein bestimmter Schnitt aus verschiedenen Lohnarten berechnet werden. Hier der Code (lach nicht, ich fang grad an mit SQL)
(EDatum_von DATE, EDatum_bis DATE) 
RETURNS( 
Nr INTEGER, 
Name CHAR(30), 
Vorname CHAR(30), 
Spanne double precision 
) 
 
AS 
DECLARE VARIABLE XPNr INTEGER; 
DECLARE VARIABLE LART INTEGER; 
DECLARE VARIABLE LPREIS double precision; 
DECLARE VARIABLE XZwsum double precision; 
DECLARE VARIABLE XZwsum2 double precision; 
 
BEGIN 
 
FOR SELECT distinct personal.personalnr, personal.nachname, personal.vorname 
FROM personal, einspers, auftrloa 
WHERE einspers.datumvon>=:EDatum_von 
AND einspers.datumbis<=:EDatum_bis 
AND personal.personalnr=auftrloa.personalnr 
AND einspers.personalnr=auftrloa.personalnr 
AND auftrloa.auftragnr=einspers.auftragnr 

INTO :XPNr, Name, Vorname DO BEGIN 
Nr = :XPNr; 
Spanne=0; 
XZwsum=0; 
XZwsum2=0; 
FOR SELECT lohnart, preis from auftrloa 
WHERE Personalnr = :XPNr 
GROUP BY lohnart, preis 
INTO LART, LPREIS DO BEGIN 
IF (LART = 10) THEN 
XZwsum2 = XZwsum2 + LPREIS; 
suspend; 
IF (LART = 29) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 30) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 31) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 32) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 34) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 37) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 38) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 39) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
IF (LART = 40) THEN 
XZwsum2 = XZwsum2 + LPREIS; 
suspend; 
IF (LART = 48) THEN 
XZwsum = XZwsum + LPREIS; 
suspend; 
END 

XZwsum = (XZwsum / 8); 
Spanne = XZwsum + XZwsum2; 
END 
ENDMeine SELECT-Klausel lautet:
Select Nr{Personalnr}, Name{Nachname}, Vorname{Vorname}, Spanne{Spanne} 
From Temp([3Datum_von], [3Datum_bis])
Ich hoffe, Du kannst damit etwas anfangen.
Gru� Sve

**Sven Rehder** · 19.02.2002, 12:51

Hi nochmal,

nur f�r Dich zur Info. Ich habe meine vorher beschriebene SELECT-Klausel insoweit abge�ndert, als da� ich jetzt wenigstens f�r jeden Mitarbeiter nur noch eine Zeile erhalte. Leider immer noch mit 0,00 in "Spanne".

Noch 'n Gru� von Sve

**Torsten Grundke** · 20.02.2002, 21:19

Hallo Sven,

ich w�rde entweder eine(n) View erzeugen (wie von Gesine gezeigt) + 1 StoredProc oder das Ganze auf 2 StoredProcs verteilen.

Hier die Variante mit 2 StoredProcs:
<pre>
create procedure subselect_lohnarten(von_datum date, bis_datum date)
returns
( nr integer,
spanne double precision)
as
begin
for select personalnr, sum( preis * 0.5 ) from lohnarten
where ( lohnart=10 or lohnart=29 ) and
einspers.datumvon>=:EDatum_von AND
einspers.datumbis<=:EDatum_bis AND
personal.personalnr=auftrloa.personalnr AND
einspers.personalnr=auftrloa.personalnr AND
auftrloa.auftragnr=einspers.auftragnr
group by personalnr
into :nr, :spanne
do suspend; 

for select personalnr, sum( preis * 1 ) from lohnarten
where ( lohnart<>10 and lohnart<>29 ) and
einspers.datumvon>=:EDatum_von AND
einspers.datumbis<=:EDatum_bis AND
personal.personalnr=auftrloa.personalnr AND
einspers.personalnr=auftrloa.personalnr AND
auftrloa.auftragnr=einspers.auftragnr
group by personalnr
into :nr, :spanne
do suspend;
end

create procedure select_lohnsumme(von_datum date, bis_datum date)
returns
( nr integer,
name varchar(30),
vorname varchar(30),
spanne double precision)
as
begin
select nr, personal.name, personal.vorname, sum(spanne) from subselect_lohnarten(:von_datum, :bis_datum)
join personal on (nr=personal.personalnr)
group by nr, personal.name, personal.vorname
into :nr, :name, :vorname, :spanne
do suspend;
end
</pre>

Das Select auf die StoredProc sieht dann nur noch so aus

select nr, name, vorname, spanne from select_lohnsumme(von_datum date, bis_datum date)
order by nr

Ich gehe mal davon aus das es so auch mit dem IB 4.x funktioniert.

Aus Performance-Gr�nden w�rde ich auch noch eine 3. StoredProc schreiben und damit die group-by-Klausel in der 2. StoredProc um Name + Vorname zu erleichtern.

Tsch��

Torste

**Sven Rehder** · 21.02.2002, 14:38

Hi Thorsten,
erstmal vielen Dank, da� sich noch jemand um mich bem�ht. In der bl�den Software, in der ich meine geringen SQL-Kenntnisse anwenden kann, habe ich nur die M�glichkeit, eine SELECT-Anw. und zwei StoredProc zu schreiben. Die beiden StoredProcs m�ssen temp und temp2 hei�en. Also hab ich anstelle "create procedure subselect_lohnarten" "create procedure temp" und anstelle "create procedure select_lohnsumme" "...temp2" geschrieben. In der proc. select-lohnsumme habe ich dann bei dem select anstelle "...from subselect_lohnarten" "...from temp2" geschrieben.Leider funzt das nicht, weil mir folgende Meldung ausgegeben wird

ie Procedure temp2 konnte nicht erzeugt werden. Ich wei� nur nicht wieso. Kannst Du mir noch weiterhelfen? Gru� Sve

**Torsten Grundke** · 21.02.2002, 14:50

Hallo Sven,

...Also hab ich anstelle "create procedure subselect_lohnarten" "create procedure temp" und anstelle "create procedure select_lohnsumme" "...temp2" geschrieben.
In der proc. select-lohnsumme habe ich dann bei dem select anstelle "...from subselect_lohnarten" "...from temp2" geschrieben...

Hast Du eventuell temp und temp 2 verwechselt?

Tsch��

Torste

**Sven Rehder** · 21.02.2002, 16:16

Ich wollt's eigentlich im letzten Beitrag schon schreiben. Ich hab's nat�rlich sicherheitshalber auch andersrum probiert. 
Gru� Sve

**Torsten Grundke** · 21.02.2002, 18:00

Hallo Sven,

wahrscheinlich unterst�tzt IB 4.x noch nicht den SQL 92-Standard.
Deshalb mu�t Du den Join in die where-Klausel verlagern.

<pre>
create procedure temp2(von_datum date, bis_datum date)
returns
( nr integer,
name varchar(30),
vorname varchar(30),
spanne double precision)
as
begin
select nr, personal.name, personal.vorname, sum(spanne) from temp(:von_datum, :bis_datum)
where nr=personal.personalnr
group by nr, personal.name, personal.vorname
into :nr, :name, :vorname, :spanne
do suspend;
end
</pre>

Wenn das alles nicht funktioniert werde ich wohl doch noch einmal den IB 4.x auf meinem Rechner installieren m�ssen. Derzeit habe ich nur den IB 6.0 sowie Firebird auf meinem anderen Computer installiert.

Tsch��

Torste

**Sven Rehder** · 22.02.2002, 13:43

Hallo Torsten,
leider funzt das auch nicht. Ich habe (wohl zum 1.000sten Mal) die Schreibweise �berall verglichen - trotzdem klappt's nicht. Ich werde mal mit dem Software-Hersteller sprechen, ob es einen besonderen Trick bei der Erstellung zweier Proceduren gibt; denn egal was ich ausprobiere, immer kann temp2 nicht erstellt werden. Vielen Dank f�r Deine Hilfe. Ich wei� nicht, ob's Dich interessiert, aber ich werde Dir (wenn vorhanden) ein positives Resultat mitteilen.

Tsch��
Sve

**Torsten Grundke** · 22.02.2002, 19:04

Hallo Sven,

ich habe mir nochmal den IB-Server 4.1 installiert und die 2 StoredProc auch nicht zum laufen bekommen.

Deshalb lassen wir mal die 2 StoredProc weg und machen daf�r einen etwas umfangreichen Select von der Clienseite her.
<pre>

create procedure temp(von_datum date, bis_datum date)
returns
( nr integer,
spanne double precision)
as
begin
for select personalnr, sum( preis * 0.5 ) from lohnarten
where ( lohnart=10 or lohnart=29 ) and
einspers.datumvon>=:EDatum_von AND
einspers.datumbis<=:EDatum_bis AND
personal.personalnr=auftrloa.personalnr AND
einspers.personalnr=auftrloa.personalnr AND
auftrloa.auftragnr=einspers.auftragnr
group by personalnr
into :nr, :spanne
do suspend;
for select personalnr, sum( preis * 1 ) from lohnarten
where ( lohnart<>10 and lohnart<>29 ) and
einspers.datumvon>=:EDatum_von AND
einspers.datumbis<=:EDatum_bis AND
personal.personalnr=auftrloa.personalnr AND
einspers.personalnr=auftrloa.personalnr AND
auftrloa.auftragnr=einspers.auftragnr
group by personalnr
into :nr, :spanne
do suspend;
end

und hier das Select-Statement aus Deinem Programm heraus:
 
select nr, personal.name, personal.vorname, sum(spanne) from temp(:von_datum, :bis_datum)
join personal on (nr=personal.personalnr)
group by nr, personal.name, personal.vorname
</pre>

Tsch��

Torste

**Sven Rehder** · 25.02.2002, 11:28

Moin Torsten,
hab Deinen SELECT noch etwas abge�ndert, da die proc nicht erzeugt werden konnte. Jetzt wird sie erzeugt, ich gebe die beiden Daten ein, bekomme aber kein Ergebnis. Also keine Anzeige, einfach gar nichts. Meine Angaben �ber Tabellennamen und Spalten sind aber wirklich 100%-ig richtig. Noch 'ne Idee? Hier nochmal mein ge�nderter Code.
Mein select 
select nr, personal.name, personal.vorname, sum(spanne) from temp([3von_datum], [3bis_datum]) 
join personal on (nr=personal.personalnr) 
group by nr, personal.name, personal.vorname
Und hier die Procedure 
(Evon_datum date, Ebis_datum date) 
returns 
( 
nr integer, 
spanne double precision 
) 
as 
begin 
for select auftrloa.personalnr, sum(preis * 0.5) from auftrloa, einspers, personal 
where (lohnart=10 or lohnart=29) and 
einspers.datumvon >= :Evon_datum AND 
einspers.datumbis <= :Ebis_datum AND 
personal.personalnr = auftrloa.personalnr AND 
einspers.personalnr = personal.personalnr AND 
auftrloa.auftragnr = einspers.auftragnr 
group by auftrloa.personalnr 
into :nr, :spanne 
do suspend; 
for select auftrloa.personalnr, sum(preis * 1) from auftrloa, einspers, personal 
where (lohnart <> 10 and lohnart <> 29) and 
einspers.datumvon >= :Evon_datum AND 
einspers.datumbis <= :Ebis_datum AND 
personal.personalnr = auftrloa.personalnr AND 
einspers.personalnr = personal.personalnr AND 
auftrloa.auftragnr = einspers.auftragnr 
group by auftrloa.personalnr 
into :nr, :spanne 
do suspend; 
end 
Anmerkung: Die 3 im select ([3von_datum....) mu� ich so schreiben, damit das Programm die Eingabe als Datum annimmt und ebenso die erste Zeile in der Proc (Evon_datum date....)
Vielen Dank erstmal 
Tsch��Sve

**Torsten Grundke** · 25.02.2002, 20:23

Hallo Sven,

schick mir mal ein Backup Deiner DB mit ein paar Testdaten (klick mal auf meinen Namen). Ansonsten werden wir wohl nur sehr langsam zum Ziel kommen.

Tsch��

Torste

Announcement

Errechnung eines Summenproduktes

Errechnung eines Summenproduktes

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment