修改记录

20091213  out_invoice 中 加入病人类别

1.out_invoice 表中增加一字段 Brlb char（10）

2.pOut_Chg_RecipeSettl3
add 变量@brlb varchar(10)
out-iinvoice中插入值

3. Recipesettlfrm 中
  1. spRecipeSettl3 中 params 设置 （增加@brlb varchar(10 )）
   2.添加控件 panBrlb
   3.全局变量gBrlb

  GetPatientInfo 中读取

4.if SysDM.GetSysParam(pkOut_IsUniteRecipe)=2 then //多张处方合并成一张发票
赋值
ParamByName('@brlb').AsString:=panBrlb.Caption;

退票中的处理;
RetChargeFrm /GetInvoiceInfo
1.QryInvoice 的SQL 中加入 BRLB  150046983

2.panBrlb.Caption :=sysdm.GetBrlbMC(fieldbyname('brlb').asstring);

普通退费 pOut_Chg_RetCharge3

insert into Out_Invoice  中加入brlb

修改记录