修改记录

2008/08/01
总部 医疗保险 中userdatamodal 中procedure TUserDM.SetYPAndFySql;
  IsNull(b.ZiFuBL,0)改成IsNull(b.ZiFuBL,1)

//20080803 WQS 修改默认病人类别是公费病人
procedure TGetPatientForm.BlhProc(var oKey: Char);
//20080803 WQS 修改默认病人类别是公费病人
        CBLB.ItemIndex :=1;

if Mainform.NCard.Enabled then exit; //当admi 退出程序时，不上传

上区医保的主要修改：substring(a.yibaokahao,1,6) like :fristKH

20080823：
限制负数的输入
procedure TMakePriceForm.DbgKeyPressProc(var okey: Char);
var
  vIsCancel: Boolean;
  vKeShiBM, vKeShiMC: string;
  vVariant: Variant;
begin
if okey = #45 then  okey:=#0;

增加刷新  暂不实行

userdatamodal中
procedure inistDiseaseSQL;移到public中
2.在mainfrm  的一个按扭中
userdm.InitDrugAndChargeSelect ;
userdm.inistDiseaseSQL ;

20080825

userDataModal :Vsql  IsUnll(b,zifubl,0 ) 改成 IsUnll(b,zifubl,1 )  TUserDM.SetYPAndFySql

sysDAtaModal  GetYBItemInfo   if isEmpty then result.ziFuBl:=0 改成