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 |