Delphi-Quellcode:
function LeseArtPg (ID_ART : integer;pg : integer;Datum : TDate): real;
begin
LeseArtPg := 0;
SpMod.LeseArtPgSP.ParamByName ('ID_ART').AsInteger := ID_ART;
SpMod.LeseArtPgSP.ParamByName ('PGNR').AsInteger := PG;
SpMod.LeseArtPgSP.ParamByName ('ABDATUM').AsDate := Datum;
Was soll das helfen ? Zuerst vermute ich immer einen Fehler im eigenen Programm. Aber da IBExpert denselben Fehler zeigt : da stimmt doch was nicht.
