KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
chi
2022-12-18 21:01:35 +09:00
parent 9e11b36bba
commit d313cafb38
9 changed files with 630 additions and 1170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ArinWarev1/Forms_Report/Frm_Upload.vb
View File

@@ -146,7 +146,7 @@
'//연간 CO2발생량
Dim StartCode As Integer = 76
Dim StartCode As Integer = 79 '//76
Dim CO2_1, CO2_2, CO2_3, CO2_4, CO2_5 As Decimal
CO2_1 = Math.Round(RData("410", StartCode + 0), 1)
CO2_2 = Math.Round(RData("410", StartCode + 7), 1)
@@ -1057,7 +1057,7 @@
End Sub
Private Function RData(grp As String, code As Integer) As Decimal
Dim filter As String = String.Format("GRP='{0}' and code={1}", grp, code.ToString("000"))
Dim filter As String = String.Format("GRP='{0}' and code='{1}'", grp, code.ToString("000"))
Dim DR() As DSR.TReqUseRow = DSETR1.TReqUse.Select(filter)
If DR.GetUpperBound(0) = -1 Then Return 0
Return DR(0).M00