承志醫療管理系統技術解析住院發藥與退藥(七)

每天護士提交醫囑了以後纔可以對病人發藥。每天只對病人發藥一次,數據庫每天會自動更新作業。

如果病人吃了幾次藥後。醫生髮現病人已經好轉了,可以不用再吃藥的情況下,可以進行病人的退藥。退還相應的藥費:如下圖



數據庫表和關係

 住院發藥



住院退藥


表1發藥表

列名

數據類型

說明

SendOutMedicineID

int - Identity

發藥ID

MedicineName

nchar (20)

藥品名稱

Gross

decimal (18, 2)

總量

UserFrequency

nchar (20)

用藥頻率

UserMethod

nchar (30)

用法

Specification

nchar (50)

規格

Unit

nchar (10)

單位

UnitPrice

decimal (18, 2)

單價

Money

decimal (18, 2)

金額

ParturitionManufacturers

nchar (50)

生產廠家

OnceDose

nchar (30)

單劑量

Content

nchar (20)

含量

SendOutMedicineDate

date

發藥日期

SendOutMedicineNo

bit

發藥否

RegisterInhospitalID

int

住院登記ID

2:庫存表

dbo.KC_StockList

Primary Key(s):  StockID

列名

數據類型

說明

StockID

int - Identity

庫存ID

StoreroomID

int

(庫房表)庫房ID

MedicineID

int

(藥品表)藥品ID

StockNumber

decimal (18)

庫存數

StockUpperLimit

decimal (18)

庫存上限

StockLowerLimit

decimal (18)

庫存下限

表3:庫房表

dbo.KC_StoreroomList

Primary Key(s):  StoreroomID

列名

數據類型

說明

StoreroomID

int - Identity

庫房ID

StoreroomName

nchar (20)

庫房名稱

表4:藥品表

dbo.KC_MedicineList

Primary Key(s):  MedicineID

列名

數據類型

說明

MedicineID

int - Identity

藥品ID

MedicineName

nchar (50)

藥品名稱

CommonalityName

nchar (30)

通用名

SpellCode

nchar (20)

拼音碼

Specification

nchar (20)

規格

ParturitionManufacturers

nchar (50)

生產廠家

PackUnitID

int

包裝單位ID

DoseSortID

int

劑型類別ID

BatchNumber

nchar (50)

批號

EffectiveDate

nchar (10)

有效期

Encoding

nchar (20)

編碼

RetailPrice

decimal (18, 2)

零售價(包裝)

Content

nchar (20)

含量

MeteringUnitID

Int

計量單位ID

StopUseNo

bit

停用否

MedicinalTypeID

int

藥品類型ID

Dosage

nchar (50)

用量

BadnessReaction

nchar (300)

不良反應

AttentionItems

nchar (300)

注意事項

Performance

nchar (300)

性能

RetailPrice_J

decimal (18, 4)

零售價_j(單個)

ManageStockNo

bit

管庫存否

ProducingArea

nchar (10)

產地

RatifyNumber

nchar (30)

批准文號

IdentifyingSign

nchar (30)

標識符號

YiJiNo

bit

醫技否

ImportNo

bit

進口否

RecentlyEnterPrice

decimal (18, 4)

最近進價

StorageCondition

nchar (10)

存儲條件

QualityStandard

nchar (30)

質量標準

BarCode

nchar (30)

條形碼

Manufacturer

nchar (30)

廠商

Taboo

nchar (100)

禁忌

CheckoutMethod

nchar (200)

檢驗方法

RegisterIdNumber

nchar (30)

註冊證號

RightSymptom

nchar (200)

適應症

FinitudeMoney

decimal (18, 2)

限額

SpecificMedicinalID

Int

特殊藥品

UseMethod

nchar (200)

用法

UpperLimit

nchar (10)

上限

LowerLimit

nchar (10)

下限

BaoNeiFuo

bit

保內否



打開界面,顯示的是對應某個病人的藥品,實現的功能代碼;

數據庫存儲過程

  if @Type='Frm_ZhuYuanFaYao_SelectYaoPing'
   begin
SELECT     AttributeMingXiList.AttributeMingXiName AS Office, AttributeMingXiList_1.AttributeMingXiName AS Usage, AttributeMingXiList_2.AttributeMingXiName AS UseMedicineFrequency, 
                      AttributeMingXiList_3.AttributeMingXiName AS AtEverturnDse, MZ_PrescriptionBillsMingXiList.PrescriptionBillsMingXiID, MZ_PrescriptionBillsMingXiList.SendOutMedicineNo, 
                      MZ_PrescriptionBillsMingXiList.AtEveryTurnNumber, KC_MedicineList.Specification, AttributeMingXiList_4.AttributeMingXiName AS Unit, KC_MedicineList.RetailPrice_J, 
                      KC_MedicineList.ParturitionManufacturers, AttributeMingXiList_5.AttributeMingXiName AS SkinTest, KC_MedicineList.[Content], ISNULL(MZ_PrescriptionBillsMingXiList.RetreatMedicineNumber, 0) 
                      AS RetreatMedicineNumber, KC_MedicineList.MedicineName, MZ_PrescriptionBillsMingXiList.Number, MZ_PrescriptionBillsMingXiList.MedicineID
FROM         AttributeMingXiList AS AttributeMingXiList_5 INNER JOIN
                      MZ_PrescriptionBillsMingXiList INNER JOIN
                      AttributeMingXiList ON MZ_PrescriptionBillsMingXiList.OfficeID = AttributeMingXiList.AttributeMingXiID INNER JOIN
                      AttributeMingXiList AS AttributeMingXiList_1 ON MZ_PrescriptionBillsMingXiList.UsageID = AttributeMingXiList_1.AttributeMingXiID INNER JOIN
                      AttributeMingXiList AS AttributeMingXiList_2 ON MZ_PrescriptionBillsMingXiList.UseMedicineFrequencyID = AttributeMingXiList_2.AttributeMingXiID INNER JOIN
                      AttributeMingXiList AS AttributeMingXiList_3 ON MZ_PrescriptionBillsMingXiList.AtEveryTurnDoseID = AttributeMingXiList_3.AttributeMingXiID ON 
                      AttributeMingXiList_5.AttributeMingXiID = MZ_PrescriptionBillsMingXiList.SkinTestID INNER JOIN
                      AttributeMingXiList AS AttributeMingXiList_4 INNER JOIN
                      KC_MedicineList ON AttributeMingXiList_4.AttributeMingXiID = KC_MedicineList.MeteringUnitID ON MZ_PrescriptionBillsMingXiList.MedicineID = KC_MedicineList.MedicineID               where MZ_PrescriptionBillsMingXiList.InhospitalNo=1 and MZ_PrescriptionBillsMingXiList.PrescriptionBillsID=@PrescriptionBillsID and
                       MZ_PrescriptionBillsMingXiList.SendOutMedicineNo=@SendOutMedicineNo
   end
邏輯層代碼

  [OperationContract]
        public DataSet Frm_ZhuYuanFaYao_SelectYaoPing(int PrescriptionBillsID, bool SendOutMedicineNo)
        {
            SqlParameter[] mySqlParameters = {
                                               new SqlParameter ("@Type",SqlDbType .Char),
                                               new SqlParameter ("@PrescriptionBillsID",SqlDbType.Int),
                                                new SqlParameter ("@SendOutMedicineNo",SqlDbType.Bit),
                                                                                    
                                           };
            mySqlParameters[0].Value = "Frm_ZhuYuanFaYao_SelectYaoPing";
            mySqlParameters[1].Value = PrescriptionBillsID;
            mySqlParameters[2].Value = SendOutMedicineNo;
            DataTable dt = myDALMethod.QueryDataTable("住院登記_Frm_ZhuYuanFaYao", mySqlParameters);
            DataSet ds = new DataSet();
            ds.Tables.Add(dt);
            return ds;
        }

界面層

private void dgSickInformation_CellClick(object sender, DataGridViewCellEventArgs e)
        {
            try
            {  //表格單擊時獲取病人住院ID
                ZhuYuanID = Convert.ToInt32(dgSickInformation.CurrentRow.Cells["RegisterInhospitalID"].Value);
                //根據ID來綁定對應的藥品
                dgMedicinalInformation.DataSource = myFrm_ZhuYuanFaYaoClient.Frm_ZhuYuanFaYao_SelectYaoPing(ZhuYuanID, false).Tables[0];
                JiSuJinE();
            }
            catch { }
        }

住院發藥,針對每天提交醫囑的病人進行發藥,可以一鍵全選,可以取消一鍵全選,實現的功能和代碼如下;

一鍵全選的實現

private void btnSelecttAll_Click(object sender, EventArgs e)
        {    //遍歷每一行
            foreach (DataGridViewRow dgv in dgMedicinalInformation.Rows)
           {  //如果“確認”的單元格的值爲假
               if(Convert.ToBoolean( dgv.Cells["確認"].Value)==false)
               {   //就賦值爲ture
                    dgv.Cells["確認"].Value= true;
               }
           }
        }
一鍵取消的實現
        private void btnCancelAllSelect_Click(object sender, EventArgs e)
        { //遍歷每一行
            foreach (DataGridViewRow dgv in dgMedicinalInformation.Rows)
            {//如果“確認”的單元格的值爲真
                if (Convert.ToBoolean(dgv.Cells["確認"].Value) == true)
                { //就賦值爲fale
                    dgv.Cells["確認"].Value = false;
                }
            }

        }

選好了以後,點擊發藥處置。完成發藥。功能代碼實現;

數據庫存儲過程

 if @Type='Frm_ZhuYuanFaYao_InsertSendOutMedicineList'
   begin
    insert       ZY_SendOutMedicineList( MedicineName, Gross, UserFrequency,
                 UserMethod, Specification, Unit, UnitPrice, Money, 
                 ParturitionManufacturers, OnceDose, [Content], 
                 SendOutMedicineDate, SendOutMedicineNo, RegisterInhospitalID)
       values (@MedicineName, @Gross, @UserFrequency, @UserMethod,
               @Specification, @Unit, @UnitPrice, @Money, @ParturitionManufacturers,
               @OnceDose, @Content, @SendOutMedicineDate, @SendOutMedicineNo, @RegisterInhospitalID)
   end

邏輯層

 [OperationContract]
        public int Frm_ZhuYuanFaYao_InsertSendOutMedicineList(string MedicineName, decimal Gross,
              string UserFrequency, string UserMethod,string Specification,string Unit ,decimal  UnitPrice,
              decimal Money,string ParturitionManufacturers,string  OnceDose,string  Content,
              DateTime SendOutMedicineDate,bool SendOutMedicineNo,int RegisterInhospitalID)
        {
            SqlParameter[] mySqlParameters = {
                                                new SqlParameter ("@Type",SqlDbType .Char),
                                                new SqlParameter ("@MedicineName",SqlDbType.Char),
                                                new SqlParameter ("@Gross",SqlDbType.Decimal),
                                                new SqlParameter ("@UserFrequency",SqlDbType.Char),
                                                new SqlParameter ("@UserMethod",SqlDbType.Char),
                                                new SqlParameter ("@Specification",SqlDbType.Char),
                                                new SqlParameter ("@Unit",SqlDbType.Char),
                                                new SqlParameter ("@UnitPrice",SqlDbType.Decimal),
                                                new SqlParameter ("@Money",SqlDbType.Decimal),
                                                new SqlParameter ("@ParturitionManufacturers",SqlDbType.Char),
                                                new SqlParameter ("@OnceDose",SqlDbType.Char),
                                                new SqlParameter ("@Content",SqlDbType.Char),
                                                new SqlParameter ("@SendOutMedicineDate",SqlDbType.DateTime),
                                                new SqlParameter ("@SendOutMedicineNo",SqlDbType.Bit),
                                                new SqlParameter ("@RegisterInhospitalID",SqlDbType.Int),
                                                                                    
                                           };
            mySqlParameters[0].Value = "Frm_ZhuYuanFaYao_InsertSendOutMedicineList";
            mySqlParameters[1].Value = MedicineName;
            mySqlParameters[2].Value = Gross;
            mySqlParameters[3].Value = UserFrequency;
            mySqlParameters[4].Value = UserMethod;
            mySqlParameters[5].Value = Specification;
            mySqlParameters[6].Value = Unit;
            mySqlParameters[7].Value = UnitPrice;
            mySqlParameters[8].Value = Money;
            mySqlParameters[9].Value = ParturitionManufacturers;
            mySqlParameters[10].Value = OnceDose;
            mySqlParameters[11].Value = Content;
            mySqlParameters[12].Value = SendOutMedicineDate;
            mySqlParameters[13].Value = SendOutMedicineNo;
            mySqlParameters[14].Value = RegisterInhospitalID;
           
            return myDALMethod.UpdateData("住院登記_Frm_ZhuYuanFaYao", mySqlParameters);
         
        }

界面層

    /// <summary>
        /// foreach遍歷獲取值,遍歷一行一行的新增
        /// </summary>
        int ChengGong;
        int i;
        private void btnFaYaoChuZhi_Click(object sender, EventArgs e)
        {
            foreach (DataGridViewRow dgv in dgMedicinalInformation.Rows)
            {
                if (Convert.ToBoolean(dgv.Cells["確認"].Value))
                {
                    string MedicineNam = Convert.ToString(dgv.Cells["MedicineName"].Value);
                    decimal Gross = Convert.ToDecimal(dgv.Cells["Number"].Value);
                    string UserFrequency = Convert.ToString(dgv.Cells["UseMedicineFrequency"].Value);
                    string UserMethod = Convert.ToString(dgv.Cells["Usage"].Value);
                    string Specification = Convert.ToString(dgv.Cells["Specification"].Value);
                    string Unit = Convert.ToString(dgv.Cells["Unit"].Value);
                    decimal UnitPrice = Convert.ToDecimal(dgv.Cells["RetailPrice_J"].Value);
                    decimal Money = Convert.ToDecimal(dgv.Cells["SumMoney"].Value);
                    string ParturitionManufacturers = Convert.ToString(dgv.Cells["ParturitionManufacturers"].Value);
                    string OnceDose = Convert.ToString(dgv.Cells["AtEverturnDse"].Value);
                    string Content = Convert.ToString(dgv.Cells["Content"].Value);
                    DateTime SendOutMedicineDate = DateTime.Now;
                    bool SendOutMedicineNo = true;
                    int RegisterInhospitalID = ZhuYuanID;
                    int FaYaoDanID = Convert.ToInt32(dgv.Cells["PrescriptionBillsMingXiID"].Value);
                    ChengGong = myFrm_ZhuYuanFaYaoClient.Frm_ZhuYuanFaYao_InsertSendOutMedicineList(MedicineNam, Gross, UserFrequency, UserMethod,
                     Specification, Unit, UnitPrice, Money, ParturitionManufacturers, OnceDose,
                     Content, SendOutMedicineDate, SendOutMedicineNo, RegisterInhospitalID);
                    i = myFrm_ZhuYuanFaYaoClient.Frm_ZhuYuanFaYao_UpdateSendOutMedicineNo(FaYaoDanID);
                }
            }
            if (ChengGong > 0 && i > 0)
            {
                MessageBox.Show("發藥成功");
                try
                {
                    //保存成功後刷新
                    ZhuYuanID = Convert.ToInt32(dgSickInformation.CurrentRow.Cells["RegisterInhospitalID"].Value);
                    dgMedicinalInformation.DataSource = myFrm_ZhuYuanFaYaoClient.Frm_ZhuYuanFaYao_SelectYaoPing(ZhuYuanID, false).Tables[0];
                    JiSuJinE();
                }
                catch { }
            }
        }

除了發藥還可以進行病人的退藥處理,退藥時會對病人開藥時的費用進行退還,填寫對應的退藥數量,根據病人的醫療性質,進行對應的費用合計,退還。

根據對應的退藥數量計算退款。功能實現

/// <summary>
        /// 單元格編輯事件,計算退款
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
         private void dgMedicinalInformation_CellEndEdit(object sender, DataGridViewCellEventArgs e)
         {
             JiSuJinE();//調用計算退款方法
             //遍歷每個輸入數量是否大於總數量
             foreach (DataGridViewRow dgv in dgMedicinalInformation.Rows)
             {
                 decimal ShuRuShuLiang = Convert.ToDecimal(dgv.Cells["TuYaoShuLiang"].Value);
                 if (ShuRuShuLiang >Convert.ToDecimal (dgv.Cells["Number"].Value))
               {
                   MessageBox.Show("輸入數量已經過總數量!請重新輸入退藥數量");
               }
             }
         }
         #region 計算退藥金額
         void JiSuJinE()
         {

             decimal DanJia = 0;
             decimal ShuLiang = 0;
             decimal TuYaoShuLiang = 0;

             decimal tuikuang = 0;
             for (int i = 0; i < dgMedicinalInformation.Rows.Count; i++)
             {
                 //獲取當前行單價
                 DanJia = Convert.ToDecimal(dgMedicinalInformation.Rows[i].Cells["RetailPrice_J"].Value);
                 //獲取數量
                 ShuLiang = Convert.ToDecimal(dgMedicinalInformation.Rows[i].Cells["Number"].Value);
                 // 獲取藥品ID
                 int YaoPingID = Convert.ToInt32(dgMedicinalInformation.Rows[i].Cells["MedicineID"].Value);
                 //獲取退藥數量
                 TuYaoShuLiang = Convert.ToDecimal(dgMedicinalInformation.Rows[i].Cells["TuYaoShuLiang"].Value);
                 //查詢折扣率
                 DataTable dtZheKouLv = myFrm_ZhuYuanJiZhangClient.
                     Frm_ZhuYuanJiZhang_SelectZheKouLi(PulicStatic.YiLiaoFangShi, YaoPingID).Tables[0];
                 // 如果該藥品對應查詢到折扣率
                 if (dtZheKouLv.Rows.Count > 0)
                 {
                     //則單元格退款金額=單價*退藥數量*折扣率
                     dgMedicinalInformation.Rows[i].Cells["退款金額"].Value =
                        (DanJia * TuYaoShuLiang * Convert.ToDecimal(dtZheKouLv.Rows[0][0])).ToString("0.00");
                 }
                 else
                 {//否則退款金額=單價*退款數量
                     dgMedicinalInformation.Rows[i].Cells["退款金額"].Value = (DanJia * TuYaoShuLiang).ToString("0.00");
                 }
                 dgMedicinalInformation.Rows[i].Cells["SumMoney"].Value = (DanJia * ShuLiang).ToString("0.00");
                 //計算總退款金額
                 tuikuang += Convert.ToDecimal(dgMedicinalInformation.Rows[i].Cells["退款金額"].Value);
             }
             //賦值文本
             lblTuiKuang.Text = "-" + tuikuang.ToString("0.00");
         }

         #endregion

輸入好退藥數量無誤後,進行退藥保存

數據存儲過程

if @Type='Frm_ZhuYuanTuiYao_TuiYaoUpDateKuFangSHuLiang'--退藥修改庫房數量
begin 
update   KC_StockList 
Set        StockNumber=StockNumber+@StockNumber
where   KC_StockList.StoreroomID=@StoreroomID and KC_StockList.MedicineID=@MedicineID
end
if @Type='Frm_ZhuYuanTuiYao_InsertKuCun'--如果沒有就新增庫房數據
begin 
insert     KC_StockList(  StockNumber,StoreroomID, MedicineID, StockUpperLimit, StockLowerLimit)
values      ( @StockNumber,@StoreroomID, @MedicineID, @StockUpperLimit, @StockLowerLimit)   
end

邏輯層代碼

[OperationContract]
        public int Frm_ZhuYuanTuiYao_TuiYaoUpDateKuFangSHuLiang(decimal StockNumber, int StoreroomID, int MedicineID)
        {
            SqlParameter[] mySqlParameters = {
                                               new SqlParameter ("@Type",SqlDbType .Char),
                                               new SqlParameter ("@StockNumber",SqlDbType.Decimal ),
                                               new SqlParameter ("@StoreroomID",SqlDbType.Int),
                                               new SqlParameter ("@MedicineID",SqlDbType.Int),
                                           };
            mySqlParameters[0].Value = "Frm_ZhuYuanTuiYao_TuiYaoUpDateKuFangSHuLiang";
            mySqlParameters[1].Value = StockNumber;
            mySqlParameters[2].Value = StoreroomID;
            mySqlParameters[3].Value = MedicineID;
            return myDALMethod.UpdateData("住院登記_Frm_ZhuYuanTuiYao", mySqlParameters);

        }

 [OperationContract]
        public int Frm_ZhuYuanTuiYao_InsertKuCun(decimal StockNumber, int StoreroomID, int MedicineID,
            decimal StockUpperLimit,decimal StockLowerLimit
           )
        {
            SqlParameter[] mySqlParameters = {
                                               new SqlParameter ("@Type",SqlDbType .Char),
                                               new SqlParameter ("@StockNumber",SqlDbType.Decimal ),
                                               new SqlParameter ("@StoreroomID",SqlDbType.Int),
                                               new SqlParameter ("@MedicineID",SqlDbType.Int),
                                               new SqlParameter ("@StockUpperLimit",SqlDbType.Decimal),
                                               new SqlParameter ("@StockLowerLimit",SqlDbType.Decimal),
                                           };
            mySqlParameters[0].Value = "Frm_ZhuYuanTuiYao_InsertKuCun";
            mySqlParameters[1].Value = StockNumber;
            mySqlParameters[2].Value = StoreroomID;
            mySqlParameters[3].Value = MedicineID;
            mySqlParameters[4].Value = StockUpperLimit;
            mySqlParameters[5].Value = StockLowerLimit;
            return myDALMethod.UpdateData("住院登記_Frm_ZhuYuanTuiYao", mySqlParameters);

        }

界面層代碼

#region 退藥
        int intStoreroomIDMingXi;
        int inCount = 0;
        private void btnQuitMedicine_Click(object sender, EventArgs e)
        {
            int ChengGong = 0;
            int j = 0;
            intStoreroomIDMingXi = Convert.ToInt32(cboPharmacy.SelectedValue);
            DataTable dt = myFrm__ZhuYuanTuiYaoClient.Frm_ZhuYuanTuiYao_SelectKuFangID().Tables[0];

                foreach (DataGridViewRow dgv in dgMedicinalInformation.Rows)
                {
                    decimal TuiYaoShuLiang = Convert.ToDecimal(dgv.Cells["TuYaoShuLiang"].Value);
                    decimal ZongShu = Convert.ToDecimal(dgv.Cells["Number"].Value);
                    if (TuiYaoShuLiang > ZongShu)
                    {
                        MessageBox.Show("請注意當前有退要數比總數大,請檢查後再退藥!");
                        return;
                    }
                }
                for (int i = 0; i < dgMedicinalInformation.Rows.Count; i++)
                {
                    if (Convert.ToBoolean(dgMedicinalInformation.Rows[i].Cells["確認"].Value))
                    {  //對應獲取
                        decimal TuiYaoShuLiang = Convert.ToDecimal(dgMedicinalInformation.Rows[i].Cells["TuYaoShuLiang"].Value);
                        decimal YiTuiShuLiang = Convert.ToDecimal(dgMedicinalInformation.Rows[i].Cells["RetreatMedicineNumber"].Value);
                        int ChuFangDanID = Convert.ToInt32(dgMedicinalInformation.Rows[i].Cells["PrescriptionBillsMingXiID"].Value);
                        int YaoPingID = Convert.ToInt32(dgMedicinalInformation.Rows[i].Cells["MedicineID"].Value);
                        for (int k = 0; k < dt.Rows.Count; k++)
                        {
                            //獲取藥品Id
                            int intMedicineID = Convert.ToInt32(dt.Rows[k]["MedicineID"]);
                            //獲取庫房ID
                            int intStoreroomID = Convert.ToInt32(dt.Rows[k]["StoreroomID"]);
                            //如果庫房藥品ID=退藥藥品ID並且庫房的庫房ID=獲取的庫房ID
                            if (intMedicineID == YaoPingID && intStoreroomID == intStoreroomIDMingXi)
                            {//證明庫房表裏有該藥品記錄好
                                inCount++;
                            }
                        }
                        //記錄>0
                        if (inCount > 0)
                        {
                            //如果存在則修改
                            myFrm__ZhuYuanTuiYaoClient.Frm_ZhuYuanTuiYao_TuiYaoUpDateKuFangSHuLiang(TuiYaoShuLiang, intStoreroomIDMingXi, YaoPingID);
                        }
                        else
                        {
                            //如果不存在則新增退藥
                            myFrm__ZhuYuanTuiYaoClient.Frm_ZhuYuanTuiYao_InsertKuCun(TuiYaoShuLiang, intStoreroomIDMingXi, YaoPingID, 100000, 111);

                        }
                        ChengGong = myFrm__ZhuYuanTuiYaoClient.Frm_ZhuYuanTuiYao_UpdatePrescriptionBillsMingXiNumnber(TuiYaoShuLiang, ChuFangDanID);
                        j = myFrm__ZhuYuanTuiYaoClient.Frm_ZhuYuanTuiYao_UpdatePrescriptionBillsMingXiRetreatMedicineNumber(YiTuiShuLiang + TuiYaoShuLiang, ChuFangDanID);

                    }

                }

                if (ChengGong > 0 && j > 0)
                {
                    DataTable dtJIZhang = myFrm_ZhuYuanJiZhangClient.Frm_ZhuYuanJiZhang_insertJiZhangDan
                       (ZhuYuanID, 0, DateTime.Now).Tables[0];
                    //記錄一條退藥費用
                    int k = myFrm_ZhuYuanJiZhangClient.Frm_ZhuYuanJiZhang_insertJiZhangDanMingXi(0, Convert.ToInt32(dtJIZhang.Rows[0][0]),
                          0, 0, 0, Convert.ToDecimal(lblTuiKuang.Text), "退藥費");
                    if (k > 0)
                    {
                        MessageBox.Show("退藥成功!");
                        dgMedicinalInformation.DataSource = myFrm_ZhuYuanFaYaoClient.Frm_ZhuYuanFaYao_SelectYaoPing(ZhuYuanID, true).Tables[0];
                        JiSuJinE();
                    }

                }

            }
        
        #endregion
        


僅供學習,禁止商業用途






 








發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章