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:

begin
 /*Kostenstelle auslesen*/
 for select distinct kostenstelle From t_lieferscheine where lieferscheinnr=:KOSTENSTELLE into :kst
   do kostenstelle=kst;

 /*Prüfung der Lieferscheinnummer*/
 SELECT COUNT(*) FROM T_lieferscheine WHERE lieferscheinnr=:LIEFERSCHEINNR
   INTO :COUNTER;

 IF (counter=0) THEN BEGIN
   /*Datensatz einfügen*/
   INSERT INTO T_Lieferscheine (Storno, LieferscheinNr,
       Lieferscheindatum, TransporteurNr, Transporteurname, KundenNr,
       Kundenname1, Kundenname2, Kundenname3, PLZ, Ort, KFZ, Sorte, BaustellenNr,
       Kostenstelle, Baustellenstrasse, BaustellenPLZ, Baustellenort, LieferartNr,
       Waeger, Taragewicht, Bruttogewicht, Nettogewicht, Einwiegedatum,
       Einwiegezeit)
   Values (:Storno,:LieferscheinNr,:Lieferscheindatum,:TransporteurNr,:Transporteurname,
       :KundenNr,:Kundenname1,:Kundenname2,:Kundenname3,:PLZ,:Ort,:KFZ,:Sorte,:BaustellenNr,
       :Kostenstelle,:Baustellenstrasse,:BaustellenPLZ,:Baustellenort,:LieferartNr,
       :Waeger,:Taragewicht,:Bruttogewicht,:Nettogewicht,:Einwiegedatum,:Einwiegezeit);
   ERRORCODE=0;
   suspend;
   END
 ELSE BEGIN
   ERRORCODE=-1;
   SUSPEND;
 END
end