修改质量问题

This commit is contained in:
2023-05-13 14:38:09 +08:00
parent ef05e5be29
commit 1099969de5
9 changed files with 135 additions and 49 deletions
@@ -24,7 +24,6 @@ namespace FineUIPro.Web.JDGL.CostAnalysis
private void SetEmpty()
{
this.SimpleForm1.Title = string.Empty;
txt2.Text = string.Empty;
txt3.Text = string.Empty;
txt4.Text = string.Empty;
txt5.Text = string.Empty;
@@ -156,15 +155,39 @@ namespace FineUIPro.Web.JDGL.CostAnalysis
decimal BCWP = Funs.GetNewDecimalOrZero(dt.Rows[dt.Rows.Count - 1]["累计已完工作预算费用-BCWP"].ToString());
decimal BCWS = Funs.GetNewDecimalOrZero(dt.Rows[dt.Rows.Count - 1]["累计计划工作预算费用-BCWS"].ToString());
decimal ACWP = Funs.GetNewDecimalOrZero(dt.Rows[dt.Rows.Count - 1]["累计已完工作实际费用-ACWP"].ToString());
decimal mBCWP = Funs.GetNewDecimalOrZero(dt.Rows[dt.Rows.Count - 1]["本月已完工作预算费用-BCWP"].ToString());
decimal mBCWS = Funs.GetNewDecimalOrZero(dt.Rows[dt.Rows.Count - 1]["本月计划工作预算费用-BCWS"].ToString());
decimal mACWP = Funs.GetNewDecimalOrZero(dt.Rows[dt.Rows.Count - 1]["本月已完工作实际费用-ACWP"].ToString());
decimal CV = BCWP - ACWP;
decimal SV = BCWP - BCWS;
decimal CPI = BCWP / ACWP;
decimal SPI = BCWP / BCWS;
this.txt2.Text = "总体施工进度赢得值参数:\r\nBCWP:" + BCWP.ToString("0.####") + "\r\nBCWS:" + BCWS.ToString("0.####") + "\r\nACWP:" + ACWP.ToString("0.####") + "\r\nCV:" + CV.ToString("0.####") + "\r\nSV:" + SV.ToString("0.####") + "\r\nCPI:" + CPI.ToString("0.####") + "\r\nSPI:" + SPI.ToString("0.####");
decimal CPI = 0;
if (ACWP > 0)
{
CPI = BCWP / ACWP;
}
decimal SPI = 0;
if (BCWS > 0)
{
SPI = BCWP / BCWS;
}
decimal mCV = mBCWP - mACWP;
decimal mSV = mBCWP - mBCWS;
decimal mCPI = 0;
if (mACWP > 0)
{
mCPI = mBCWP / mACWP;
}
decimal mSPI = 0;
if (mBCWS > 0)
{
mSPI = mBCWP / mBCWS;
}
DataTable table2 = new DataTable();
//this.txt2.Text = "总体施工进度赢得值参数 BCWP" + BCWP.ToString("0.####") + " BCWS" + BCWS.ToString("0.####") + " ACWP" + ACWP.ToString("0.####") + "\r\n赢得值四个评价指标 CV" + CV.ToString("0.####") + " SV" + SV.ToString("0.####") + " CPI" + CPI.ToString("0.####") + " SPI" + SPI.ToString("0.####");
this.txt3.Text = "施工进度赢得值参数 BCWP" + mBCWP.ToString("0.####") + " BCWS" + mBCWS.ToString("0.####") + " ACWP" + mACWP.ToString("0.####") + "\r\n赢得值四个评价指标 CV" + mCV.ToString("0.####") + " SV" + mSV.ToString("0.####") + " CPI" + mCPI.ToString("0.####") + " SPI" + mSPI.ToString("0.####");
//BCWP、BCWS、ACWP
}
}
#endregion