参数中有这行:
pIsTW  IN   EMS_PACKAGE.TInt1 :=0我在Delphi的StoreProc中建立与使用的参数如下:CreateParam(ftBCD,'PISTW', ptInput);
if pISTW then ParamByName('PISTW').AsBCD :=1
else ParamByName('PISTW').asBCD :=0;
EDatabase error: BCD overflow用FtInteger也不行。