20091213? out_invoice 中 加入病人類(lèi)別
1.out_invoice 表中增加一字段 Brlb char（10）
2.pOut_Chg_RecipeSettl3
add 變量@brlb varchar(10)
out-iinvoice中插入值
3. Recipesettlfrm 中
? 1. spRecipeSettl3 中 params 設(shè)置 （增加@brlb varchar(10 )）
?? 2.添加控件 panBrlb
?? 3.全局變量gBrlb
? GetPatientInfo 中讀取
4.if SysDM.GetSysParam(pkOut_IsUniteRecipe)=2 then //多張?zhí)幏胶喜⒊梢粡埌l(fā)票
賦值
ParamByName('@brlb').AsString:=panBrlb.Caption;
退票中的處理;
RetChargeFrm /GetInvoiceInfo
1.QryInvoice 的SQL 中加入 BRLB? 150046983
2.panBrlb.Caption :=sysdm.GetBrlbMC(fieldbyname('brlb').asstring);
普通退費(fèi) pOut_Chg_RetCharge3
insert into Out_Invoice? 中加入brlb
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號(hào)聯(lián)系： 360901061
您的支持是博主寫(xiě)作最大的動(dòng)力，如果您喜歡我的文章，感覺(jué)我的文章對(duì)您有幫助，請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長(zhǎng)非常感激您！手機(jī)微信長(zhǎng)按不能支付解決辦法：請(qǐng)將微信支付二維碼保存到相冊(cè)，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對(duì)您有幫助就好】元
