diff --git a/ArinWarev1/Calculator/CHeating.vb b/ArinWarev1/Calculator/CHeating.vb
index 981985c..82f2642 100644
--- a/ArinWarev1/Calculator/CHeating.vb
+++ b/ArinWarev1/Calculator/CHeating.vb
@@ -1451,11 +1451,11 @@
Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal)
pLog.Add(String.Format("Enter >> Calc_HeatingSystem i_count_month={0},theta_e={1}", i_count_month, theta_e))
-
+
d_op_max_mth = 0
'==================================2010.2.21 수정
-
+
'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname")
' priod_value = CSng(DRpriod.priod)
'Next
@@ -1535,7 +1535,7 @@
'//130822
Dim 보일러정격출력합 As Decimal = 0 '//acc
-
+
For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0' and 헤더적용=true", "code")
'=======================================================================================================2014.02.24 수정
@@ -2581,6 +2581,11 @@
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61)
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
+ If Q_dot_d_in <= 0 Then '2025.08.22 추가
+ t_w_100 = 0
+ Q_dot_d_in = 0
+ End If
+
End If
@@ -2701,6 +2706,14 @@
Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66)
Q_h_g_i = Q_h_g_v_i * d_h_rB
+ 'If Q_h_g_i < 0 Then
+ ' Console.WriteLine("minus")
+ 'End If
+
+
+
+
+
Else
If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then
@@ -2846,11 +2859,13 @@
If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)
t_w_100 = 0
Else
- t_w_100 = Q_w_outg / (Q_dot_N * d_Nutz_mth)
+ t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '2025.08.19 Q_w_outg 를 Q_w_outg_i 로 수정
End If
Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80)
-
+ 'If Q_h_g_aux < 0 Then
+ ' Console.WriteLine("minus")
+ 'End If
End If
@@ -3598,7 +3613,7 @@
End If '===========================================================2014.03.07 추가
-
+
'======================================================================================================================================================2010.04.23 추가
Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '===================================================2013.01.16 추가
@@ -3716,6 +3731,11 @@
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61)
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
+ If Q_dot_d_in <= 0 Then '2025.08.22 수정
+ t_w_100 = 0
+ Q_dot_d_in = 0
+ End If
+
End If
@@ -3836,6 +3856,14 @@
Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66)
Q_h_g_i = Q_h_g_v_i * d_h_rB
+ 'If Q_h_g_i < 0 Then
+ ' Console.WriteLine("minus")
+ 'End If
+
+
+
+
+
Else
If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then
@@ -3981,15 +4009,18 @@
If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)
t_w_100 = 0
Else
- If system_count = 0 Then
- t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth)
- Else
- t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정
- End If
+ 'If system_count = 0 Then
+ ' t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth)
+ 'Else
+ t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정
+ 'End If
End If
Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80)
+ 'If Q_h_g_aux < 0 Then
+ ' Console.WriteLine("minus")
+ 'End If
End If
diff --git a/ArinWarev1/ECO2_2025V1.vbproj b/ArinWarev1/ECO2_2025V1.vbproj
index 15f0892..47f846a 100644
--- a/ArinWarev1/ECO2_2025V1.vbproj
+++ b/ArinWarev1/ECO2_2025V1.vbproj
@@ -209,6 +209,12 @@
Form
+
+ Frm_Macro2.vb
+
+
+ Form
+
Frm_Upload.vb
@@ -515,6 +521,9 @@
Frm_Macro.vb
+
+ Frm_Macro2.vb
+
Frm_Upload.vb
diff --git a/ArinWarev1/Forms_Report/Frm_Macro2.Designer.vb b/ArinWarev1/Forms_Report/Frm_Macro2.Designer.vb
new file mode 100644
index 0000000..33c3a63
--- /dev/null
+++ b/ArinWarev1/Forms_Report/Frm_Macro2.Designer.vb
@@ -0,0 +1,220 @@
+ _
+Partial Class Frm_Macro2
+ Inherits System.Windows.Forms.Form
+
+ 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Windows Form 디자이너에 필요합니다.
+ Private components As System.ComponentModel.IContainer
+
+ '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
+ '수정하려면 Windows Form 디자이너를 사용하십시오.
+ '코드 편집기를 사용하여 수정하지 마십시오.
+ _
+ Private Sub InitializeComponent()
+ Dim DefaultFocusIndicatorRenderer1 As FarPoint.Win.Spread.DefaultFocusIndicatorRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer()
+ Dim DefaultScrollBarRenderer1 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
+ Dim DefaultScrollBarRenderer2 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
+ Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread()
+ Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView()
+ Me.Button2 = New System.Windows.Forms.Button()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.tbStart = New System.Windows.Forms.TextBox()
+ Me.Button3 = New System.Windows.Forms.Button()
+ Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.tbEnd = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label2 = New System.Windows.Forms.Label()
+ CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'FpSpread1
+ '
+ Me.FpSpread1.AccessibleDescription = ""
+ Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.FpSpread1.FocusRenderer = DefaultFocusIndicatorRenderer1
+ Me.FpSpread1.HorizontalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
+ Me.FpSpread1.HorizontalScrollBar.Name = ""
+ Me.FpSpread1.HorizontalScrollBar.Renderer = DefaultScrollBarRenderer1
+ Me.FpSpread1.HorizontalScrollBar.TabIndex = 2
+ Me.FpSpread1.Location = New System.Drawing.Point(0, 38)
+ Me.FpSpread1.Name = "FpSpread1"
+ Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
+ Me.FpSpread1.Size = New System.Drawing.Size(1019, 453)
+ Me.FpSpread1.Skin = FarPoint.Win.Spread.DefaultSpreadSkins.Classic
+ Me.FpSpread1.TabIndex = 0
+ Me.FpSpread1.VerticalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
+ Me.FpSpread1.VerticalScrollBar.Name = ""
+ Me.FpSpread1.VerticalScrollBar.Renderer = DefaultScrollBarRenderer2
+ Me.FpSpread1.VerticalScrollBar.TabIndex = 3
+ Me.FpSpread1.VisualStyles = FarPoint.Win.VisualStyles.Off
+ '
+ 'FpSpread1_Sheet1
+ '
+ Me.FpSpread1_Sheet1.Reset()
+ Me.FpSpread1_Sheet1.SheetName = "Sheet1"
+ 'Formulas and custom names must be loaded with R1C1 reference style
+ Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
+ FpSpread1_Sheet1.ColumnCount = 5
+ FpSpread1_Sheet1.RowCount = 1
+ Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
+ Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.Parent = "HeaderDefault"
+ Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
+ Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.Parent = "CornerDefault"
+ Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
+ Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault"
+ Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
+ Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.Parent = "RowHeaderDefault"
+ Me.FpSpread1_Sheet1.SheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
+ Me.FpSpread1_Sheet1.SheetCornerStyle.Parent = "CornerDefault"
+ Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
+ '
+ 'Button2
+ '
+ Me.Button2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Button2.Location = New System.Drawing.Point(673, 3)
+ Me.Button2.Name = "Button2"
+ Me.Button2.Size = New System.Drawing.Size(194, 32)
+ Me.Button2.TabIndex = 1
+ Me.Button2.Text = "결과저장하기"
+ Me.Button2.UseVisualStyleBackColor = True
+ '
+ 'Button1
+ '
+ Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Button1.Location = New System.Drawing.Point(3, 3)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(194, 32)
+ Me.Button1.TabIndex = 0
+ Me.Button1.Text = "목록불러오기"
+ Me.Button1.UseVisualStyleBackColor = True
+ '
+ 'tbStart
+ '
+ Me.tbStart.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.tbStart.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+ Me.tbStart.Location = New System.Drawing.Point(283, 3)
+ Me.tbStart.Name = "tbStart"
+ Me.tbStart.Size = New System.Drawing.Size(74, 33)
+ Me.tbStart.TabIndex = 2
+ Me.tbStart.Text = "6"
+ Me.tbStart.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
+ 'Button3
+ '
+ Me.Button3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Button3.Location = New System.Drawing.Point(523, 3)
+ Me.Button3.Name = "Button3"
+ Me.Button3.Size = New System.Drawing.Size(144, 32)
+ Me.Button3.TabIndex = 3
+ Me.Button3.Text = "실행"
+ Me.Button3.UseVisualStyleBackColor = True
+ '
+ 'ProgressBar1
+ '
+ Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.ProgressBar1.Location = New System.Drawing.Point(0, 491)
+ Me.ProgressBar1.Name = "ProgressBar1"
+ Me.ProgressBar1.Size = New System.Drawing.Size(1019, 23)
+ Me.ProgressBar1.TabIndex = 2
+ '
+ 'Label1
+ '
+ Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label1.Location = New System.Drawing.Point(363, 0)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(74, 38)
+ Me.Label1.TabIndex = 3
+ Me.Label1.Text = "~"
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'tbEnd
+ '
+ Me.tbEnd.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.tbEnd.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+ Me.tbEnd.Location = New System.Drawing.Point(443, 3)
+ Me.tbEnd.Name = "tbEnd"
+ Me.tbEnd.Size = New System.Drawing.Size(74, 33)
+ Me.tbEnd.TabIndex = 4
+ Me.tbEnd.Text = "0"
+ Me.tbEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.ColumnCount = 8
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.Button1, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Button3, 5, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Button2, 6, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.tbEnd, 4, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Label2, 1, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.tbStart, 2, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Label1, 3, 0)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(1019, 38)
+ Me.TableLayoutPanel1.TabIndex = 5
+ '
+ 'Label2
+ '
+ Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label2.Location = New System.Drawing.Point(203, 0)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(74, 38)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "실행범위"
+ Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Frm_Macro2
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(1019, 514)
+ Me.Controls.Add(Me.FpSpread1)
+ Me.Controls.Add(Me.TableLayoutPanel1)
+ Me.Controls.Add(Me.ProgressBar1)
+ Me.Name = "Frm_Macro2"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "일괄처리"
+ CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TableLayoutPanel1.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
+ Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
+ Friend WithEvents Button1 As System.Windows.Forms.Button
+ Friend WithEvents Button2 As System.Windows.Forms.Button
+ Friend WithEvents tbStart As System.Windows.Forms.TextBox
+ Friend WithEvents Button3 As System.Windows.Forms.Button
+ Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+ Friend WithEvents tbEnd As System.Windows.Forms.TextBox
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+End Class
diff --git a/ArinWarev1/Forms_Report/Frm_Macro2.resx b/ArinWarev1/Forms_Report/Frm_Macro2.resx
new file mode 100644
index 0000000..7277865
--- /dev/null
+++ b/ArinWarev1/Forms_Report/Frm_Macro2.resx
@@ -0,0 +1,123 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ 17, 17
+
+
\ No newline at end of file
diff --git a/ArinWarev1/Forms_Report/Frm_Macro2.vb b/ArinWarev1/Forms_Report/Frm_Macro2.vb
new file mode 100644
index 0000000..805f600
--- /dev/null
+++ b/ArinWarev1/Forms_Report/Frm_Macro2.vb
@@ -0,0 +1,841 @@
+Public Class Frm_Macro2
+
+ Dim fn As String = ""
+
+ Dim 단위면적당신재생1차에너지합 As Decimal = 0
+ Dim 단위면적당1차에너소비량합 As Decimal = 0
+ Dim 에너지자립률 As Double = 0
+
+ Public Sub New()
+
+ ' 이 호출은 디자이너에 필요합니다.
+ InitializeComponent()
+ fn = ""
+ ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
+
+ End Sub
+
+ Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
+ LoadFile()
+ End Sub
+
+ Private Sub LoadFile()
+
+ Dim od As New OpenFileDialog
+ od.Filter = "excel|*.xls|*.*|*.*"
+ od.FilterIndex = 1
+ If (od.ShowDialog() <> Windows.Forms.DialogResult.OK) Then Return
+ fn = od.FileName
+
+
+ If Not System.IO.File.Exists(fn) Then
+ MsgBox("업로드샘플파일(" + fn + ")가 존재하지 않습니다", MsgBoxStyle.Critical, "확인")
+ Return
+ End If
+
+ Try
+ If Me.FpSpread1.OpenExcel(fn) Then
+ '// MakeData()
+ '//첫줄에 열 번호를 넣는다.
+ For col As Integer = 1 To 108
+ Dim oldvalue As Object = FpSpread1_Sheet1.Cells(0, col - 1).Value
+ If oldvalue Is Nothing Then
+ FpSpread1_Sheet1.Cells(0, col - 1).Value = "(" + col.ToString() + ")"
+ Else
+ FpSpread1_Sheet1.Cells(0, col - 1).Value = oldvalue.ToString() + "(" + col.ToString() + ")"
+ End If
+ Next
+
+ '//0번째열에서 1의 값을 찾고 그 이후의 값을 찾아서 번호를 설정한다.
+ Dim StartIndex As Integer = 0
+ Dim EndIndex As Integer = 0
+ ProgressBar1.Minimum = 0
+ ProgressBar1.Maximum = 10000
+ ProgressBar1.Value = 0
+ For i As Integer = 0 To 65535
+ If i >= ProgressBar1.Maximum - 1 Then
+ ProgressBar1.Value = ProgressBar1.Maximum
+ Else
+ ProgressBar1.Value += 1
+ End If
+
+ Dim curval As Object = FpSpread1_Sheet1.Cells(i, 0).Value
+ If curval Is Nothing Then
+ If StartIndex <> 0 Then
+ EndIndex = i - 1
+ Exit For
+ Else
+ Continue For
+ End If
+ End If
+
+ If curval.ToString() = "1" Then
+ StartIndex = i
+ ElseIf StartIndex <> 0 Then
+ If curval.ToString() = "" Then
+ EndIndex = i - 1
+ Exit For
+ End If
+ End If
+ Next
+
+ tbStart.Text = (StartIndex + 1).ToString()
+ tbEnd.Text = (EndIndex + 1).ToString()
+ End If
+ Catch ex As Exception
+ MsgBox(ex.Message, MsgBoxStyle.Critical, "파일 불러오기 오류")
+ End Try
+ 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 DR() As DSR.TReqUseRow = DSETR1.TReqUse.Select(filter)
+ If DR.GetUpperBound(0) = -1 Then Return 0
+ Return DR(0).M00
+ End Function
+
+
+
+ Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+
+ End Sub
+
+ Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
+ Dim sd As New SaveFileDialog()
+ sd.Filter = "Excel(*.xls)|*.xls"
+ sd.FilterIndex = 0
+ If sd.ShowDialog = Windows.Forms.DialogResult.OK Then
+ Try
+ If FpSpread1.SaveExcel(sd.FileName, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then
+ MsgBox("저장완료", MsgBoxStyle.Information, "확인")
+ End If
+ Catch ex As Exception
+ MsgBox(ex.Message, MsgBoxStyle.Critical, "error")
+ End Try
+
+ End If
+ End Sub
+
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+ '//기본홤녀은 건물개요로
+ MdiMain.Menu_건물개요()
+
+
+
+ Dim StartNo As Integer = CInt(tbStart.Text)
+ Dim EndNo As Integer = CInt(tbEnd.Text)
+ Me.ProgressBar1.Value = 0
+ Me.ProgressBar1.Minimum = 0
+ Me.ProgressBar1.Maximum = EndNo - StartNo + 1
+
+ If MsgBox("전체 실행전에 1건에대해서 테스트실행을 하시겠습니까?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then
+ EndNo = StartNo
+ ElseIf MsgBox("전체 " + Me.ProgressBar1.Maximum.ToString() + "건의 자료를 실행하시겠습니까?" + vbCrLf + "이 작업은 중단할 수 없습니다", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") <> MsgBoxResult.Yes Then
+ Return
+ End If
+
+ For RowNum As Integer = StartNo To EndNo
+
+ Me.ProgressBar1.Value += 1
+
+ Dim Row = RowNum - 1
+ Dim ColIDX As Integer = 1
+
+ '//건물개요
+ '//DSET1.tbl_Desc.Clear()
+ Dim NewDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
+ NewDesc.cname = FpSpread1_Sheet1.Cells(Row, 1).Value.ToString()
+ NewDesc.buildname = NewDesc.cname
+ NewDesc.builds1 = 1 '//지하(층수)
+ NewDesc.builds2 = 1 '//지상(층수)
+
+ '//지역(해당하는이름의 코드를 가져와서 설정해야함)
+ Dim 지역명 As String = FpSpread1_Sheet1.Cells(Row, 5).Value
+ Dim 지역목록() As DataRow = DSET1.weather_group.Select(String.Format("name = '{0}'", 지역명))
+ If 지역목록.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 지역({1})에 해당하는 데이터가 {2}건 있습니다", Row, 지역명, 지역목록.Length))
+ Return
+ End If
+ NewDesc.buildarea = 지역목록(0)("code")
+ NewDesc.EndEdit()
+ 'DSET1.tbl_Desc.Addtbl_DescRow(NewDesc)
+
+ Dim Drows() As DataRow
+
+ '//건물용도
+ Dim 건물용도명 As String = FpSpread1_Sheet1.Cells(Row, 6).Value.ToString().Replace(vbLf, "").Replace(vbCr, "") '//건물용도
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1201' and name = '{0}'", 건물용도명))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 건물용도({1})에 해당하는 데이터가 {2}건 있습니다", Row, 건물용도명, Drows.Length))
+ Return
+ End If
+ NewDesc.isjugo = Drows(0)("valn1")
+ NewDesc.EndEdit()
+
+ '//입력존
+ DSET1.tbl_zone.Clear()
+
+ '/없음데이터도 생성해야한다.
+ Dim drZoneNull As DS.tbl_zoneRow = DSET1.tbl_zone.Newtbl_zoneRow
+ drZoneNull.code = "0"
+ drZoneNull.설명 = "(없음)"
+ DSET1.tbl_zone.Addtbl_zoneRow(drZoneNull)
+
+ Dim DrZone As DS.tbl_zoneRow = DSET1.tbl_zone.Newtbl_zoneRow
+ DrZone.code = "00001"
+ DrZone.조명부하산출방법 = "입력치"
+ DrZone.설명 = "입력존(매크로)"
+ DrZone.그룹 = "0"
+ DrZone.sortkey = DrZone.code
+
+ DrZone.열생산난방생산기기 = "00001" '//난방기기 임시로 적용처리함()
+ DrZone.열생산급탕생산기기 = "00001" '//급탕기기 임시로 적용처리함()
+ DrZone.냉난방열공급시스템 = "00001" '//열공급시스템연결
+ DrZone.냉난방열공급시스템수 = "1"
+ DrZone.냉난방공조처리시스템 = "00001"
+ DrZone.인공광원 = "(없음)"
+ DrZone.조명방식 = "(없음)"
+ DrZone.외기부하처리여부 = "아니오"
+
+ DrZone.설명 = FpSpread1_Sheet1.Cells(Row, 7).Value
+ Dim 사용프로필 As String = FpSpread1_Sheet1.Cells(Row, 8).Value
+ Drows = DSET1.tbl_profile.Select(String.Format("설명 like '%{0}'", 사용프로필))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 입력존-사용프로필({1})에 해당하는 데이터가 {2}건 있습니다", Row, 사용프로필, Drows.Length))
+ Return
+ End If
+ DrZone.프로필 = Drows(0)("code")
+ DrZone.면적 = FpSpread1_Sheet1.Cells(Row, 9).Value
+ DrZone.천장고p = FpSpread1_Sheet1.Cells(Row, 10).Value
+ DrZone.순실체적 = FpSpread1_Sheet1.Cells(Row, 11).Value
+
+ Dim 열저장능력 As String = FpSpread1_Sheet1.Cells(Row, 12).Value
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1023' and name = '{0}'", 열저장능력))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 입력존-열저장능력({1})에 해당하는 데이터가 {2}건 있습니다", Row, 열저장능력, Drows.Length))
+ Return
+ End If
+ DrZone.열저장능력 = Drows(0)("Name")
+
+ Dim 열교가산치 As String = FpSpread1_Sheet1.Cells(Row, 13).Value
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1022' and name = '{0}'", 열교가산치))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 입력존-열교가산치({1})에 해당하는 데이터가 {2}건 있습니다", Row, 열교가산치, Drows.Length))
+ Return
+ End If
+ DrZone.열교가산치 = Drows(0)("Name")
+ DrZone.침기율 = FpSpread1_Sheet1.Cells(Row, 14).Value
+
+ Dim 냉난방방식 As String = FpSpread1_Sheet1.Cells(Row, 15).Value
+ If 냉난방방식 = "없음" Then 냉난방방식 = "기능없음"
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1000' and name = '{0}'", 냉난방방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 입력존-냉난방방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 냉난방방식, Drows.Length))
+ Return
+ End If
+ DrZone.냉난방방식 = Drows(0)("name")
+
+ Dim 냉난방공조 As String = FpSpread1_Sheet1.Cells(Row, 16).Value
+ If 냉난방공조 = "없음" Then 냉난방공조 = "기능없음"
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1001' and name = '{0}'", 냉난방공조))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 입력존-냉난방공조({1})에 해당하는 데이터가 {2}건 있습니다", Row, 냉난방공조, Drows.Length))
+ Return
+ End If
+ DrZone.냉난방공조 = Drows(0)("name")
+
+ Dim 조명부하산출방법 As String = FpSpread1_Sheet1.Cells(Row, 17).Value
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1031' and name = '{0}'", 조명부하산출방법))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 입력존-조명부하산출방법({1})에 해당하는 데이터가 {2}건 있습니다", Row, 조명부하산출방법, Drows.Length))
+ Return
+ End If
+ DrZone.조명부하산출방법 = Drows(0)("name")
+ DrZone.조명에너지부하율입력치 = FpSpread1_Sheet1.Cells(Row, 18).Value
+ DSET1.tbl_zone.Addtbl_zoneRow(DrZone)
+
+
+ '//입력면
+ Dim 방위목록 As New List(Of String)
+ 방위목록.AddRange({"북서", "서", "남서", "남", "남동", "동", "북동", "북", "수평", "일사없음", "(없음)"})
+
+ Dim 제목1 As String = ""
+ Dim 제목2 As String = ""
+ DSET1.tbl_myoun.Clear()
+ For i As Integer = 0 To 12
+ Dim NewMyoun As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow
+ NewMyoun.존분류 = DrZone.code
+ NewMyoun.code = String.Format("{0:00000}", i + 1)
+ NewMyoun.sortkey = NewMyoun.code
+
+
+
+
+ Dim t1 As String = FpSpread1_Sheet1.Cells(2, 19 + (i * 2)).Value '//타이틀
+ Dim t2 As String = FpSpread1_Sheet1.Cells(3, 19 + (i * 2)).Value '//타이틀
+
+ If Not String.IsNullOrEmpty(t1) Then 제목1 = t1
+ If Not String.IsNullOrEmpty(t2) Then 제목2 = t2
+
+ NewMyoun.설명 = 제목1 + ":" + 제목2
+
+ '//공용코드 1067에서 name 이 일치하는 데이터가 있어야한다.
+ '//(없음),외벽,외부창,내벽,간벽,내부창
+ If i = 0 Then
+ NewMyoun.건축부위방식 = "외벽"
+ ElseIf i = 1 Then
+ NewMyoun.건축부위방식 = "외벽"
+ ElseIf i = 2 Then
+ NewMyoun.건축부위방식 = "내벽"
+ ElseIf i = 3 Then
+ NewMyoun.건축부위방식 = "내벽"
+ ElseIf i = 4 Then
+ NewMyoun.건축부위방식 = "외벽"
+ ElseIf i = 5 Then '//코어
+ NewMyoun.건축부위방식 = "내벽"
+ ElseIf i = 6 Then '//쎼떄깐뼊(쪠외)
+ NewMyoun.건축부위방식 = "간벽"
+ ElseIf i = 7 Or i = 8 Then
+ NewMyoun.건축부위방식 = "외부창"
+ ElseIf i = 9 Or i = 10 Or i = 11 Or i = 12 Then
+ NewMyoun.건축부위방식 = "내부창"
+ End If
+
+ Dim 방위1 As String = FpSpread1_Sheet1.Cells(Row, 19 + (i * 2)).Value '//타이틀
+ 방위1 = 방위1.ToString().Replace(vbLf, "").Replace(vbCr, "")
+ If 방위목록.IndexOf(방위1) = -1 Then
+ MsgBox(String.Format("{0}번줄 입력면-방위1({1})에 해당하는 데이터가 없습니다.", Row, 방위1))
+ Return
+ End If
+ NewMyoun.방위 = 방위1
+ NewMyoun.건축부위면적 = FpSpread1_Sheet1.Cells(Row, 20 + (i * 2)).Value
+ DSET1.tbl_myoun.Addtbl_myounRow(NewMyoun)
+ Next
+
+ '//지붕 (45)
+ Dim NewM지붕 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow
+ NewM지붕.존분류 = DrZone.code
+ NewM지붕.code = String.Format("{0:00000}", 14)
+ NewM지붕.sortkey = NewM지붕.code
+ NewM지붕.방위 = "수평"
+ NewM지붕.건축부위방식 = "외벽"
+ NewM지붕.건축부위면적 = FpSpread1_Sheet1.Cells(Row, 45).Value
+ DSET1.tbl_myoun.Addtbl_myounRow(NewM지붕)
+
+ '//바닥 (46)
+ Dim NewM바닥 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow
+ NewM바닥.존분류 = DrZone.code
+ NewM바닥.code = String.Format("{0:00000}", 15)
+ NewM바닥.sortkey = NewM지붕.code
+ NewM바닥.방위 = "일사없음"
+ NewM바닥.건축부위방식 = "외벽"
+ NewM바닥.건축부위면적 = FpSpread1_Sheet1.Cells(Row, 46).Value
+ DSET1.tbl_myoun.Addtbl_myounRow(NewM바닥)
+
+ '//공조처리
+ DSET1.tbl_kongjo.Clear()
+ Dim New공조 As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Newtbl_kongjoRow
+ New공조.code = "00001"
+ New공조.팬효율산출방식 = "계산치"
+ New공조.설명 = "공조기기"
+ New공조.설정치난방 = "0"
+ New공조.설정치냉방 = "0"
+ New공조.최대풍량 = "0"
+
+ New공조.리턴공기혼합여부 = "아니오"
+ New공조.가습기유형 = "(없음)"
+ New공조.외기냉방제어유무 = "무"
+ New공조.열교환기유형 = "(없음)"
+
+ New공조.열회수율 = "0"
+ New공조.열회수율냉 = "공조기기"
+ New공조.급기풍량 = "0"
+ New공조.배기풍량 = "0"
+ New공조.급기팬동력 = "0"
+ New공조.배기팬동력 = "0"
+ New공조.총압력손실급기팬 = "0"
+ New공조.총압력손실배기팬 = "0"
+ New공조.총효율급기팬 = "0"
+ New공조.총효율배기팬 = "0"
+
+
+ Dim 공조방식 As String = FpSpread1_Sheet1.Cells(Row, 47).Value
+ If 공조방식 = "없음" Then 공조방식 = "(없음)"
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1026' and name = '{0}'", 공조방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 공조처리-공조방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 공조방식, Drows.Length))
+ Return
+ End If
+ New공조.공조방식 = Drows(0)("name")
+ DSET1.tbl_kongjo.Addtbl_kongjoRow(New공조)
+
+ '//난방기기
+ DSET1.tbl_nanbangkiki.Clear()
+ ColIDX = 48
+
+
+ Dim New난방 As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Newtbl_nanbangkikiRow
+ New난방.code = "00001"
+ New난방.설명 = "보일러"
+ New난방.신재생연결여부 = "연결없음"
+ New난방.보일러대수 = "1"
+
+ Dim 난방_열생산기기방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1020' and name = '{0}'", 난방_열생산기기방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-열생산기기방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_열생산기기방식, Drows.Length))
+ Return
+ End If
+ New난방.열생산기기방식 = Drows(0)("name")
+
+ Dim 난방_사용연료 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1021' and name = '{0}'", 난방_사용연료))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-사용연료({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_사용연료, Drows.Length))
+ Return
+ End If
+ New난방.사용연료 = Drows(0)("name")
+
+ New난방.보일러정격출력 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ New난방.급수온도 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ New난방.환수온도 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+
+ Dim 난방생산기기운전방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1035' and name = '{0}'", 난방생산기기운전방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-난방생산기기운전방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방생산기기운전방식, Drows.Length))
+ Return
+ End If
+ New난방.운전방식 = Drows(0)("name")
+
+
+ Dim 난방_열원기기_보일러방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ If 난방_열원기기_보일러방식.IndexOf("보일러") = -1 Then 난방_열원기기_보일러방식 += "보일러"
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1036' and name = '{0}'", 난방_열원기기_보일러방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-열원기기_보일러방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_열원기기_보일러방식, Drows.Length))
+ Return
+ End If
+ New난방.보일러방식 = Drows(0)("name")
+ New난방.정격보일러효율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+
+ Dim 난방_축열탱크방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1039' and name = '{0}'", 난방_축열탱크방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-급탕축열탱크방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_축열탱크방식, Drows.Length))
+ Return
+ End If
+ New난방.축열탱크방식 = Drows(0)("name")
+
+
+ Dim 난방_급탕_시스템방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1042' and name = '{0}'", 난방_급탕_시스템방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-급탕_시스템방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_급탕_시스템방식, Drows.Length))
+ Return
+ End If
+ New난방.분배시스템방식 = Drows(0)("name")
+
+ '//입력존에서 열생산기기 급탕이 연결되지 않았다.
+ '//순환무우를 비롯 급탕기기를 사용하려면 급탕기기가 연결되어야한다.
+ Dim 난방_급탕_순환유무 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1032' and name = '{0}'", 난방_급탕_순환유무))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-급탕_순환유무({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_급탕_순환유무, Drows.Length))
+ Return
+ End If
+ New난방.순환유무 = Drows(0)("name")
+
+
+ Dim 난방_급탕_펌프제어 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1043' and name = '{0}'", 난방_급탕_펌프제어))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-급탕_펌프제어({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_급탕_펌프제어, Drows.Length))
+ Return
+ End If
+ New난방.펌프제어 = Drows(0)("name")
+ New난방.펌프동력급탕 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+
+ Dim 난방_배관망유형 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1040' and name = '{0}'", 난방_배관망유형))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-배관망유형({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_배관망유형, Drows.Length))
+ Return
+ End If
+ New난방.배관망유형 = Drows(0)("name")
+
+ Dim 난방_펌프감소계수 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1002' and name = '{0}'", 난방_펌프감소계수))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-펌프감소계수({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_펌프감소계수, Drows.Length))
+ Return
+ End If
+ New난방.펌프교정계수 = Drows(0)("name")
+
+
+ Dim 난방_펌프제어유형 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1041' and name = '{0}'", 난방_펌프제어유형))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방기기-펌프제어유형({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_펌프제어유형, Drows.Length))
+ Return
+ End If
+ New난방.펌프제어유형 = Drows(0)("name")
+ New난방.펌프동력급탕 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ DSET1.tbl_nanbangkiki.Addtbl_nanbangkikiRow(New난방)
+
+ '//난방공급시스템
+ DSET1.tbl_kongkub.Clear()
+ Dim New공급 As DS.tbl_kongkubRow = DSET1.tbl_kongkub.Newtbl_kongkubRow
+ New공급.code = "00001"
+ New공급.설명 = "난방공급"
+ New공급.제어기의정격전력 = "0"
+ New공급.팬송풍기정격전력 = "0"
+ New공급.펌프정격전력 = "0"
+ New공급.팬송풍기수 = "0"
+ New공급.추가펌프수 = "0"
+
+ Dim 난방공급시스템 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1045' and name = '{0}'", 난방공급시스템))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방공급-시스템({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방공급시스템, Drows.Length))
+ Return
+ End If
+ New공급.열공급시스템 = Drows(0)("name")
+
+ Dim 열공급생산기기 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_nanbangkiki.Select(String.Format("설명 = '{0}'", 열공급생산기기))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방공급-열공급생산시기({1})에 해당하는 데이터가 {2}건 있습니다", Row, 열공급생산기기, Drows.Length))
+ Return
+ End If
+ New공급.열공급생산기기 = Drows(0)("code")
+
+ Dim 바닥난방열제어 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1033' and name = '{0}'", 바닥난방열제어))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방공급-바닥난방열제어({1})에 해당하는 데이터가 {2}건 있습니다", Row, 바닥난방열제어, Drows.Length))
+ Return
+ End If
+ New공급.바닥난방열제어 = Drows(0)("name")
+
+ Dim 바닥난방열건축부위 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1034' and name = '{0}'", 바닥난방열건축부위))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 난방공급-바닥난방열건축부위({1})에 해당하는 데이터가 {2}건 있습니다", Row, 바닥난방열건축부위, Drows.Length))
+ Return
+ End If
+ New공급.바닥난방열건축부위 = Drows(0)("name")
+ DSET1.tbl_kongkub.Addtbl_kongkubRow(New공급)
+
+ '//냉방기기
+ DSET1.tbl_nangbangkiki.Clear()
+ Dim New냉방 As DS.tbl_nangbangkikiRow = DSET1.tbl_nangbangkiki.Newtbl_nangbangkikiRow
+ New냉방.code = "00001"
+ New냉방.설명 = "냉방기기"
+ New냉방.신재생연결여부 = "연결없음"
+
+ Dim 냉동기방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ If 냉동기방식 = "없음" Then 냉동기방식 = "(없음)"
+ Drows = DSET1.tbl_common.Select(String.Format("gubun='1046' and name = '{0}'", 냉동기방식))
+ If Drows.Length <> 1 Then
+ MsgBox(String.Format("{0}번줄 냉방기기-냉동기방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 냉동기방식, Drows.Length))
+ Return
+ End If
+ New냉방.냉동기방식 = Drows(0)("name")
+ New냉방.냉동기용량 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ New냉방.열성능비 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
+ If Not IsNumeric(New냉방.냉동기용량) Then New냉방.냉동기용량 = "0"
+ If Not IsNumeric(New냉방.열성능비) Then New냉방.열성능비 = "0"
+ DSET1.tbl_nangbangkiki.Addtbl_nangbangkikiRow(New냉방)
+
+ '//열관류율
+ '//면형태를 입력해야함 이것은 공용코드 1088에 들어있으며 코드형태로 들어간다
+ '//외벽(벽체),외벽(지붕),외벽(바닥),내벽(벽체),내벽(지붕),내벽(바닥),간벽,외부창,내부창,지중벽
+ DSET1.tbl_yk.Clear()
+
+ '//직접면하는
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외벽'")
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ Next : ColIDX += 1
+
+ '//간접면하는
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='내벽'")
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ Next : ColIDX += 1
+
+ '//바닥
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외벽' and 방위='일사없음'") '//2018.04.24 수정
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ Next : ColIDX += 1
+
+ '//지붕벽체
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외벽' and 방위='수평'") '//2018.04.24 수정
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ Next : ColIDX += 1
+
+ '//현관문
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='내부창' and 방위='일사없음'") '//2018.04.24 수정
+ dr면.투과율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX + 1).Value
+ Next : ColIDX += 2
+
+ '//확장창
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'")
+ dr면.투과율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX + 1).Value
+ Next : ColIDX += 2
+
+ '//세대창
+ For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='내부창' and 방위<>'일사없음'") '//2018.04.24 수정
+ dr면.투과율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
+ dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX + 1).Value
+ Next : ColIDX += 2
+
+ '//입력면의 자료를 업데이트해준다.
+
+
+ DSET1.AcceptChanges()
+
+ '//계산실행
+ Run_Calc(Row)
+ Next
+
+ If Not msgf Is Nothing Then
+ msgf.Close()
+ msgf.Dispose()
+ msgf = Nothing
+ End If
+
+ If StartNo = EndNo Then
+ Report_그래프.Visible = False
+ Report_그래프.Show()
+ End If
+
+ End Sub
+
+ Sub Run_Calc(Row As Integer)
+
+ '//현재데이터상태를 저장
+ DSET1.AcceptChanges()
+ DSETR1.AcceptChanges()
+
+ Dim Type As Calculator.ECalc = Calculator.ECalc.All '//요구량+소요량
+ Dim showmsg As String = "" '//추가표시메세지
+ Dim St As Date = Now '//계산시작
+
+ pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
+ pLog.Add(String.Format("계산실행({0})", Type.ToString()))
+ pLog.Add(String.Format("시작시간 : {0}", St.ToString()))
+ pLog.Add("----------------------------------")
+
+ Dim Result As Boolean = Calc.Start(showmsg, Type, LogSB, 0)
+ Dim Ts As TimeSpan = Now - St '//계산경과시간을 표시해준다.
+ Dim calc_ok As Integer = 0
+ If Result Then '//파라미터 True 라면 소요량이 추가로 게산된다.
+ Calc.Summary.All()
+ If LogSB.ToString <> "" Then
+ FpSpread1_Sheet1.Cells(Row, 97).Value = LogSB.ToString
+ Else
+ FpSpread1_Sheet1.Cells(Row, 97).Value = "시간:" + Ts.ToString()
+ calc_ok = 1 '================================2014.04.17 계산이 완료되면 그래프를 보여줌
+ End If
+ Else
+ FpSpread1_Sheet1.Cells(Row, 97).Value = LogSB.ToString
+ End If
+
+ '//상태메세지창이 열려있다면 제거해준다.
+
+ If calc_ok = 1 Then
+ '//해당값을 기록한다.
+ Extract_Data(Row)
+ Else
+ '//빈값으로 기록을 한다.
+ Dim StartIDX As Integer = 100
+ For idx As Integer = StartIDX To StartIDX + 13
+ FpSpread1_Sheet1.Cells(Row, idx).Value = "--"
+ Next
+ End If
+ End Sub
+
+ Sub Extract_Data(Row As Integer)
+ Dim 신재생에너지 As Decimal
+ Dim 난방에너지 As Decimal
+ Dim 냉방에너지 As Decimal
+ Dim 급탕에너지 As Decimal
+ Dim 조명에너지 As Decimal
+ Dim 환기에너지 As Decimal
+ 'Dim 합계 As Decimal
+
+ Dim BaseIndex As Integer = 90
+ Dim Dr2 As DSR.Graph_ReqUseRow
+ For Gubun As Short = 0 To 4
+ Select Case Gubun
+ Case 0 '//1차에너지소요량
+
+ Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
+
+ Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
+ Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
+ Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
+ Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
+ Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
+
+ Dim 난방면적 As Decimal = 0
+ Dim 냉방면적 As Decimal = 0
+ Dim 조명면적 As Decimal = 0
+ Dim 급탕면적 As Decimal = 0
+ Dim 환기면적 As Decimal = 0
+ If Result1.사용면적.H <> 0 Then
+ 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
+ End If
+ If Result1.사용면적.C <> 0 Then
+ 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
+ End If
+ If Result1.사용면적.L <> 0 Then
+ 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
+ End If
+ If Result1.사용면적.W <> 0 Then
+ 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
+ End If
+ If Result1.사용면적.V <> 0 Then
+ 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
+ End If
+
+ Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
+
+ '//열병합신재생에너지추가 130831 arin
+ 신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
+
+ '//1차에너지소요량
+ 난방에너지 = Result1.일차E소요량(0).난방면적
+ 냉방에너지 = Result1.일차E소요량(0).냉방면적
+ 급탕에너지 = Result1.일차E소요량(0).급탕면적
+ 조명에너지 = Result1.일차E소요량(0).조명면적
+ 환기에너지 = Result1.일차E소요량(0).환기면적
+ FpSpread1_Sheet1.Cells(Row, BaseIndex).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 8).Value = 난방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 9).Value = 냉방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 10).Value = 급탕에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 11).Value = 조명에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 12).Value = 환기에너지
+
+ Case 1 '//에너지소요량
+
+ Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
+
+ Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
+ Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
+ Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
+ Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
+ Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
+
+ Dim 난방면적 As Decimal = 0
+ Dim 냉방면적 As Decimal = 0
+ Dim 조명면적 As Decimal = 0
+ Dim 급탕면적 As Decimal = 0
+ Dim 환기면적 As Decimal = 0
+ If Result1.사용면적.H <> 0 Then
+ 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
+ End If
+ If Result1.사용면적.C <> 0 Then
+ 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
+ End If
+ If Result1.사용면적.L <> 0 Then
+ 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
+ End If
+ If Result1.사용면적.W <> 0 Then
+ 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
+ End If
+ If Result1.사용면적.V <> 0 Then
+ 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
+ End If
+
+ Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
+
+ '//열병합신재생에너지추가 130831 arin
+ 신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열) - 면적
+ 난방에너지 = Result1.E소요량(0).난방면적
+ 냉방에너지 = Result1.E소요량(0).냉방면적
+ 급탕에너지 = Result1.E소요량(0).급탕면적
+ 조명에너지 = Result1.E소요량(0).조명면적
+ 환기에너지 = Result1.E소요량(0).환기면적
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 1).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
+
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 8).Value = 난방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 7).Value = 냉방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 6).Value = 급탕에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 5).Value = 조명에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 4).Value = 환기에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 3).Value = 신재생에너지
+
+
+ Case 2 '//에너지요구량
+
+ 신재생에너지 = 0
+ 난방에너지 = Result1.E요구량(0).난방면적
+ 냉방에너지 = Result1.E요구량(0).냉방면적
+ 급탕에너지 = Result1.E요구량(0).급탕면적
+ 조명에너지 = Result1.E요구량(0).조명면적
+ 환기에너지 = 0
+ FpSpread1_Sheet1.Cells(Row, BaseIndex - 2).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 3).Value = 난방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 4).Value = 냉방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 5).Value = 급탕에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 6).Value = 조명에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 7).Value = 환기에너지
+
+ Case 3 '//co2발생량
+
+ 신재생에너지 = 0
+ 난방에너지 = Result1.Co2발생량(0).난방면적
+ 냉방에너지 = Result1.Co2발생량(0).냉방면적
+ 급탕에너지 = Result1.Co2발생량(0).급탕면적
+ 조명에너지 = Result1.Co2발생량(0).조명면적
+ 환기에너지 = Result1.Co2발생량(0).환기면적
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 1).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
+
+ Case 4 '//1차에너지소요량(+계수) + 131020
+
+ 신재생에너지 = 0
+ If (Result1.사용면적.H_WF = 0) Then
+ 난방에너지 = 0
+ Else
+ 난방에너지 = Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF
+ End If
+ If (Result1.사용면적.C_WF = 0) Then
+ 냉방에너지 = 0
+ Else
+ 냉방에너지 = TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF)
+ End If
+ If (Result1.사용면적.W_WF = 0) Then
+ 급탕에너지 = 0
+ Else
+ 급탕에너지 = Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF
+ End If
+ If (Result1.사용면적.L_WF = 0) Then
+ 조명에너지 = 0
+ Else
+ 조명에너지 = Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF
+ End If
+ If (Result1.사용면적.V_WF = 0) Then
+ 환기에너지 = 0
+ Else
+ 환기에너지 = Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF
+ End If
+
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 2).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
+
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 13).Value = 난방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 14).Value = 냉방에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 15).Value = 급탕에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 16).Value = 조명에너지
+ FpSpread1_Sheet1.Cells(Row, BaseIndex + 17).Value = 환기에너지
+
+
+ End Select
+ Next
+ End Sub
+End Class
\ No newline at end of file
diff --git a/ArinWarev1/MdiMain.Designer.vb b/ArinWarev1/MdiMain.Designer.vb
index 2e074e8..38710eb 100644
--- a/ArinWarev1/MdiMain.Designer.vb
+++ b/ArinWarev1/MdiMain.Designer.vb
@@ -37,7 +37,6 @@ Partial Class MdiMain
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btNew = New System.Windows.Forms.ToolStripMenuItem()
- Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator()
Me.btOpen = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_filesave = New System.Windows.Forms.ToolStripMenuItem()
@@ -58,6 +57,7 @@ Partial Class MdiMain
Me.환경설정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.실행ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btMacro = New System.Windows.Forms.ToolStripMenuItem()
+ Me.btMacro2 = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_계산결과 = New System.Windows.Forms.ToolStripMenuItem()
Me.계산결과ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_인증평가서 = New System.Windows.Forms.ToolStripMenuItem()
@@ -188,7 +188,7 @@ Partial Class MdiMain
'
'ReportToolStripMenuItem
'
- Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.신규코드업로드ToolStripMenuItem, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem})
+ Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem})
Me.ReportToolStripMenuItem.Image = CType(resources.GetObject("ReportToolStripMenuItem.Image"), System.Drawing.Image)
Me.ReportToolStripMenuItem.Name = "ReportToolStripMenuItem"
Me.ReportToolStripMenuItem.Size = New System.Drawing.Size(57, 20)
@@ -201,14 +201,6 @@ Partial Class MdiMain
Me.btNew.Size = New System.Drawing.Size(244, 22)
Me.btNew.Text = "신규"
'
- '신규코드업로드ToolStripMenuItem
- '
- Me.신규코드업로드ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
- Me.신규코드업로드ToolStripMenuItem.Name = "신규코드업로드ToolStripMenuItem"
- Me.신규코드업로드ToolStripMenuItem.Size = New System.Drawing.Size(244, 22)
- Me.신규코드업로드ToolStripMenuItem.Text = "신규코드 업로드"
- Me.신규코드업로드ToolStripMenuItem.Visible = False
- '
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
@@ -326,7 +318,7 @@ Partial Class MdiMain
'
'환경설정ToolStripMenuItem
'
- Me.환경설정ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.실행ToolStripMenuItem, Me.btMacro})
+ Me.환경설정ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.실행ToolStripMenuItem, Me.btMacro, Me.btMacro2})
Me.환경설정ToolStripMenuItem.Image = CType(resources.GetObject("환경설정ToolStripMenuItem.Image"), System.Drawing.Image)
Me.환경설정ToolStripMenuItem.Name = "환경설정ToolStripMenuItem"
Me.환경설정ToolStripMenuItem.Size = New System.Drawing.Size(57, 20)
@@ -346,6 +338,14 @@ Partial Class MdiMain
Me.btMacro.Text = "일괄실행"
Me.btMacro.Visible = False
'
+ 'btMacro2
+ '
+ Me.btMacro2.ForeColor = System.Drawing.Color.Blue
+ Me.btMacro2.Name = "btMacro2"
+ Me.btMacro2.Size = New System.Drawing.Size(124, 22)
+ Me.btMacro2.Text = "Macro II"
+ Me.btMacro2.Visible = False
+ '
'bt_계산결과
'
Me.bt_계산결과.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.계산결과ToolStripMenuItem, Me.bt_인증평가서, Me.업로드양식ToolStripMenuItem})
@@ -801,7 +801,6 @@ Partial Class MdiMain
Friend WithEvents 데이터비교ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 순실체적ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 업로드양식ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
- Friend WithEvents 신규코드업로드ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents WindowsMenu As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NewWindowToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CascadeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -821,5 +820,6 @@ Partial Class MdiMain
Friend WithEvents btMacro As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BatchUpdateProfileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btcustomprofile As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents btMacro2 As System.Windows.Forms.ToolStripMenuItem
End Class
diff --git a/ArinWarev1/MdiMain.resx b/ArinWarev1/MdiMain.resx
index 2a65a35..2b9a9b8 100644
--- a/ArinWarev1/MdiMain.resx
+++ b/ArinWarev1/MdiMain.resx
@@ -331,72 +331,72 @@
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA9cSURBVHhe7ZpZUFzZecd7ajyu2EmqkjhVeXCeUnn1Sx5T
- lXLlJVWpuJIXyx47tsf2ZEYSAoEkQEIsrWZH7JvYBBoksYhdSEJIIDXa2AQaLYxmBAgQElt3A80iQEvz
- T33fOefe0xewpLGnalzFV/Wvc/v25d77/fr/fef0bWy27diO7diO7diO7dgOm81mb574flrz4t8nNiz8
- gJTe6v27pPPevyVlNs7/zZuUemnqL63n/LOIoOz+/NDCByupZ77CH6vYvKEXITl3buyoqXnfep1vbezK
- ubU84H6NF6+Be1Ov0fTFy6+lsw9f4tLIa6TUO33B2f2R1ut8a+NQaffahYfLuDW4hqyLC0i78C5a5DGd
- tluETvc+R3DmndWg5O5/tF7rWxnBmZ+vlnR5RQIqsRaZlJak3/v6a3msefwC7Pa89f35/Tet1/pWhgLA
- SXBSi0hrIVkAcLL++9NbSArColDLAgqcS3Cc+OrV3qzekj25PT8IyHP+1TepT4v6PrDm9dZxsGRgpbhT
- JKUgUCLGpyyTFMmqbQlDsz+/p4C1LKDt0QvY7Znr1kb5TSkoq69nZ3rnD635vTEUAJG8lqD8RFVtKwCc
- tEpWukEc7//3ZdeWMLngg2cVuDm9/o2qywXY7bnrezJ7u6z5vTHCCMAtlZRua1EK/p+8AGK6QN+nlYM2
- mn+vSks7vyy3jeeSzjNgb/x7U4vIbVtEy9Ar7MnuW7Tbnd+x5rhl7NhR8z71gKKbXqRe8FpOrG5Iv6gO
- RAdkfc8Eop/LEM022rGbgd7wN2rfRev90L4FZF1eQvDRnqV96Z3fs+a5ZfzY7vwOASi86UVig1uzsVCG
- vFm6qLhxKXkj/kltcsxWiRjHvOFcbyO6P3mOPTn9i+8E4NNP+z4IK+5eK7jhRVztNBIaXCJp7SYy9JtR
- +9T2Rcv7hsyb4mP04+U2jfy3CpYORbuOOP+Ceaz1frTzfi0AocXda8eue+E4M4nYmikNgvnJiYsvaTes
- 7dcTkUCELMfrIHgU71tlPa95bsvx6hza9d8ZwEd2518QgILrXtirnsFRPYEjZyYRXzeD1PNec2q8uGQ0
- J7qYaGBemZRaB1APMT9N/5v3B+QPyj+pje8rkEt+H4K5zzz2nQH8dF/n9wLynC/yr3kRdXocMRXjiKl6
- hiMMYgrxdaIsEhpdSGpyI7HRg6SzHiSfnUUyjU1iO6lpFiln54SahVLPeXH0/DzSSPpUqpJoFc2LxK8V
- 4Fb5/ibOMo6xQpD7CIDNZnvPmueW8d9hTX9NAPKcczhUPoLD5aOIOv2EFV0xzq6wVwsgjjMTcFRPwlE7
- hdi6acTVTiGuRqp2mmGx6meQUD+DOIJXJ7bJUbyfXte5kFDvYrCJ9TNIrKdR29cwg0SCXif2J9a5kFTn
- RlK9G8kNLqF6N1J4242URhdSGj1IqXdj79GeJZsNCsB7cntrIApA7tVZhJUMIrxsGIc/e4zDJ0dx+OQY
- ok6PMYjoiqeIqRRiKMolpCo5VpuwBLBJAY16C21XTyC2mvqMFAGsnWZQuuJrJhB/ZhIJtVNIqJ1EYt0U
- K6l2Gol100iqn0Zy/RSS6mekppHSMI3khhnsyr61rHID/kDiKn5ib/5+qP3BS3JAWOkQDp0YRsRnI4go
- H0XEyVFEniIITxBdSaLykAAoQQMAAZkwwGwmKiuxTa4aZ1iOmgnE1k4glsY60iTi6icQ3zCFhMYpxDdO
- I4HEjpCiUmwUY2KjG0k8upDcOMMlarcPvI4uGVj5QwopeTgXmN370AJgHmGl5AABgcohgkri1CiiTpEL
- REnEVI5z7XaOvITr+ToGXD7cmxG6Oy30+bQPd6Z8uDPpQ9+kD7cnfeglTfjQPeFD1zMfOp/5cOupDzef
- +nBj3IfrT3y49sSHjic+XB3z4cqoD+2jPrSRRny4JNX6WOji11TLsA+1918hrtbpYwA77DXfDbXff5nX
- MY/Q4keiDI4P4SCDeCxBjCLy9Bi7gazb9PkafOvAl5OvkHlpGRmXlnnMvLyMrLbnyGx7zmM2je0ryG5/
- jmwehXKurCD3ygpyrq4iV1OecxW5zjUe83lcE2PHKvI71v6kij0x+ooB0Erwo8L7r6gE9hd9iQPFXyG0
- ZBChxwcRXkoghnHos2F2Q2T5KIo753C6ewWZl2T3pY5NEFolhEvPWVmXlwWIywJGFkFoW2EoBCCHQDCM
- VQHkKkGRICQMJT8IBGWThN5VO3O75mUXwHsKQHDBF9hX+FAD8QjhBEKWRUzVOEp75pF9aRGp/CVGzMtp
- CkSrAKEcwSOBUDAMCVcQAHaEdAVLOULBMEAIZ+R1SIf8Ea5IOetGUHa/U5TAjpr3D9jvv87rmMPe/AcI
- PjaAkIKHAoSEwCBKh5DX4UbBtQUkN9MXJ4KwhFT+QuQPIl2BkDAUEHYDlYlyRduKKJVNSoScoSCwO6Qz
- cgnCVVEeyh2cmCwXa7KbKaRoYG53eve/SwfYbAfs917ndcwiMPcegvLuM4iQYwPYR46QbqAGWdozh7QL
- 80g6SwscArCAowxCOWKRITAIJXaGdAfDoBJRMDRHMAjNERoIP2foPYMdYsIQztiYsK6M1gUEZfaMGckb
- AJweBGTfxZ6cewjMvY+gvAcIzic3DLAbUi9MovCaF/ENcwwg5dwCUs4t4ijpvAaiRbiCRnaGdMdGEKpx
- yp7RZjpDd0O2Kg3DFf4wuHFeXbOUiwBDCVPJ6ABCTwwtBaT3fOIH4MeFTh8B2JV5B7uzPsee7LsIzLmH
- oNz72Esgjg2gpGsW6RfmEN8wi6SzVAYLSD7nRUozgRBiEOcJiHKFgKBLwFhGxkVLmVCfIHcYrjBnEuUK
- /1lElYhsoMYsojtD9AzRL1aRfeU5gjJ65zZ8V1AAdqb3YVd6P4MI0EDEVI6g8MY8YmvcSGicQ2KTl11A
- YhDNNCpXLCBFQlAglDvSFBCjTJb9+4VqoOQK2TwNV7DMEjGcoUrl6qrhDO4VfmUi5MgbfxGYdTvTL3kD
- QIcHn6T24tO02wJERj92M4i7KLjhQdqFWTgYwDwDYAhN80hiGKIvCBAEwYtkBqE5gyAYzhAwVANVzqBv
- fWpaVdOpUSLKGQYQ6humI8zmqTlEgWBXrGBvVr93098qFICPU7rxf0d7JIg+7Ezvx77CL1B0cxb26mkc
- qfFwD0ggEQglAsGOkCAMGLJEZJmIEjFhCGcQCLNxGlOq7g6tX2SpfqEWWjyTbDKdtot+QbYnZ9DvFIGZ
- ty9ac+fYb7ev53d48LukLvw+uRsfp/RIELeR3T6N9AseRJ6aQFzdLOLqZxFfT72ANI8EJYZBziBXKCAE
- Y8HoGVweRs+QzdMAYTZONZuYM4mEoa04DSBazyBH8MpTrjNoyuWFV/sKQgp653an9f6rNXcOAkAO+G3C
- Lfw2sZNBfJzcjZ1pffzpO6qnEF1JX4FnBYS6OcQRBF0N84in/tAoYTQJIKJE9J4hy0RrnlwqEgTDkBBo
- NF2xzD1D9Qqx6jTFK08NCG3T8wKCkXp+DgHZtweteRshALjxm7ib+Cj+JoP4XWInEhvHkdnqxuGTEzhS
- 44ajdpYVS5IwYusJBjlDuUJIlYhRKtwzvEhUMJppNJ2hRj9X0JSqry+0UjFcwT1D9gvuGcIh1F/oPXLA
- obJHi7vTu39jzdsIBuB041eO6/h17A0J4hY3P/r0IwjAGQ8cNSRqhnKUMIQrpGSJKCBmeUgo3EDnkUj9
- okn2CzWbMAg5m6hZREkvEX4kt0mJyDKhHkIgCQgdG5jW59lhH/iuNW8jFID/PXINv3Jcw69jryOifBC5
- 7R6El40jutIFe7UH9jNuBmHCMKHE1nrgIEdIGa4gGEa/0IDIEhEw5IzC/YJmEOuUaukVNJ2q5qmDkFNr
- SvM8z0SZrcsIyBulqS/RmrNf7C+4y+v8X8Y48Ut7B4PIc87yk56DJ54iptrNsmtiEDVunhkMIHqJyDIR
- paKVSb2AwKVilIhXm01kA9XWFzylUnnIfqGAmCtPc0olSPENHvH64hKCsvq9e7O6/sGas18oAB9GX8Uv
- op38nSCnfQ7hZU8QeWoK0VUuxFS5Ddlp9IOhgAgQYqRSEUAYigFDgDBLRPUM/wa6afNUrtDdQY1TW1/E
- N84yAIJht2etB2X1Nlrz3RACgAs/j7yCD6OuIKOVVn2TCC2lp0AuoUqXAMGjCYNlwCA3mDCOGBDIHZ4N
- zoiVztCnVZpJ9MapesUGZ/hNqcIRZHtHzQwfS2USktE7tyej81+s+W4IApDf4cLPDrfj98ldyLq8iPCy
- MRz87BmiKlyIqnQhqmKGRwahxM5wIaaapIHgPkGjKBGH5g7DFZojRM/QplbVM6QjjJ5hmUXEMlw0T4IQ
- V0fXn2EY9BQ6KKtvwJrrpqEA7Iho42f+cbUuHCihx2AznHgkQWDRa7ltBWE4Q5aLtTyUDGeo5mlxxabr
- CwVClImxFNdL5KwXMVX0lNnNzggtvrcQkNHzM2uumwYBqL8zz1MgLSgOnXiCsNJxBqAURWOFC5EMQYhK
- g8dK6Q6Z/GY9Q5WIcIcVhioTguAxG6dccPEsonqGtrbQ+0VsrRtRFZP8mnrAztRu11v/TE4Arny1KB41
- N3gQXDC0AYAhSp63lSM0V6heId1glol0RjVNp6pMFBBzJjHKxLLYEjBkmajFVqNyhnAFJR9TOc0A6Nfu
- gIzb0dY8t4wDhXdx7otlTC34EF46guBjQwxhX9FjhB4fs+gJK6xUaRzhpeNiLCM9RfgJU9RHDpHKJ3Co
- /BkiyieETk7iMOnUlNDpKUSSKqYQVUFLb3IVjdOIqZxBTNWMAHhmRpaVi0fqL5GnJxFWNgZHrZubaGBW
- n5f+L8ma55YRWvyAHxjQD6EhBUMIPjaoiV5rovctor/xU+EwQgqGxSi1z6qix6z92ri/WGkEB0pGcIDH
- UbEtFXp81F+lowgrHUNE+TN2RqQ9bT0ws6/KmuOWUdSHDw4e/5IfGCQ1zPInSDf8LgCssiZvlQ7AAEGJ
- WyAwCCUNAkuDQOsVKh0qkWD73Zd70jt/ZM1zy8h1vvgwJO8uPyyMrJn7s1ZElQu7MszfBt8qDpf11R6p
- dvp2pXYjKPcB9hc+woGiwW9OxYMILRpEKI1K9EOMGkuGWGGsYYQd31zhx4dxsFTpMcKKBxFov/36Pz5K
- TrDZbP9ks9ne7t/lfvjPP/rpv/3PJzttNtt//gn1X5vs20rvcuzbiJLfju3Yju3Yju3Yju3YjjfF/wOY
- w1jCKMj0CgAAAABJRU5ErkJggg==
+ lXLlJVWpuJIXyx47tsf2ZEYSAoEkQEIsLXYQ+yY2gQZJLGIXkhASSI02NoFGC6MZAQKEBA3dDTSLAC3N
+ P/V955x7T1/AksaeqnEVX9W/zu3bl3vv9+v/953Tt7HZtmM7tmM7tmM7tmM7bDabvWXy++kti3+f1Ljw
+ A1JGm/fvks97/5aU1TT/N29S2iXnX1rP+WcRQTkDBaFFD1bSznyFP1Zx+cMvQnLv3NhRW/u+9Trf2tiV
+ e2t50P0aL14D95yv0fzFy6+lsw9f4tLoa6Q2OHzBOQOR1ut8a+NQWc/ahYfLuDW0huyLC0i/8C5a5DGD
+ tluFTvc9R3DWndWglJ5/tF7rWxnBWZ+vlnZ7RQIqsVaZlJak3/v6a3msefwC7Pa09f0FAzet1/pWhgLA
+ SXBSi0hvJVkAcLL++zNaSQrColDrAgodS4g98dWrvdl9pXvyen8QkO/4q29Snxb3f2DN663jYOngSkmX
+ SEpBoESMT1kmKZJV2xKGZn9+TwFrXUD7oxew25PWrY3ym1JQdn/vzoyuH1rze2MoACJ5LUH5iaraVgA4
+ aZWsdIM43v/vy68tYWrBB88qcHN6/RtVtwuw24+u78nq67bm98YIIwC3VFK6rUUp+H/yAojpAn2fVg7a
+ aP69Ki3t/LLcNp5LOs+AvfHvTS0ir30RrcOvsCenf9Fud3zHmuOWsWNH7fvUA4pvepF2wWs5sboh/aI6
+ EB2Q9T0TiH4uQzTbaMduBnrD36h9F633Q/sWkH15CcFHe5f2ZXR9z5rnlvFju+M7BKDophdJjW7NxkKZ
+ 8mbpouLGpeSN+Ce1yTFbJWIc84ZzvY3o/uQ59uQOLL4TgE8/7f8grKRnrfCGF/F100hsdImktZvI1G9G
+ 7VPbFy3vGzJvio/Rj5fbNPLfKlg6FO064vwL5rHW+9HO+7UAhJb0rB277kXsmSnE1To1COYnJy6+pN2w
+ tl9PRAIRshyvg+BRvG+V9bzmuS3Hq3No139nAB/ZHX9BAAqve2GvfobYmkkcOTOFhPoZpJ33mlPjxSWj
+ OdHFRAPzyqTUOoB6iPlp+t+8PyB/UP5JbXxfgVzy+xDMfeax7wzgp/u6vheQ73hRcM2LqNMTiKmcQEz1
+ MxxhEE4k1IuySGxyIbnZjaQmD5LPepBydhYpNDaL7eTmWaSenRNqEUo758XR8/NIJ+lTqUqiTTQvEr9W
+ gNvk+5s4yzjGCkHuIwA2m+09a55bxn+HNf81Ach3zOFQxSgOV4wh6vQTVnTlBLvCXiOAxJ6ZRGzNFGLr
+ nIirn0Z8nRPxtVJ10wyL1TCDxIYZxBO8erFNjuL99LrehcQGF4NNaphBUgON2r7GGSQR9HqxP6neheR6
+ N5Ib3EhpdAk1uJHK226kNrmQ2uRBaoMbe4/2LtlsUADek9tbA1EA8q7OIqx0COHlIzj82WMcPjmGwyfH
+ EXV6nEFEVz5FTJUQQ1EuIVXLscaEJYBNCWjUW2i7ZhJxNdRnpAhg3TSD0pVQO4mEM1NIrHMisW4KSfVO
+ VnLdNJLqp5HcMI2UBieSG2akppHaOI2Uxhnsyrm1rHID/kDiKn5ib/l+qP3BS3JAWNkwDp0YQcRno4io
+ GEPEyTFEniIITxBdRaLykAAoQQMAAZk0wGwmKiuxTa6aYFixtZOIq5tEHI31pCnEN0wiodGJxCYnEpqm
+ kUhiR0hRKTaJManJjWQeXUhpmuEStdsHX0eXDq78IYWUPpwLzOl7aAEwj7AycoCAQOUQQSVxagxRp8gF
+ oiRiqia4drtGX8L1fB2DLh/uzQjdnRb6fNqHO04f7kz50D/lw+0pH/pIkz70TPrQ/cyHrmc+3Hrqw82n
+ PtyY8OH6Ex+uPfGh84kPV8d9uDLmQ8eYD+2kUR8uSbU9Frr4NdU64kPd/VeIr3P4GMAOe+13Q+33X+Z3
+ ziO05JEog+PDOMggHksQY4g8Pc5uIOs2f74G3zrw5dQrZF1aRualZR6zLi8ju/05stqf85hDY8cKcjqe
+ I4dHodwrK8i7soLcq6vI05TvWEWeY43HAh7XxNi5ioLOtT+p4k6MvWIAtBL8qOj+KyqB/cVf4kDJVwgt
+ HULo8SGElxGIERz6bITdEFkxhpKuOZzuWUHWJdl9qWMThDYJ4dJzVvblZQHisoCRTRDaVxgKAcglEAxj
+ VQC5SlAkCAlDyQ8CQdkkoXfVzrzuedkF8J4CEFz4BfYVPdRAPEI4gZBlEVM9gbLeeeRcWkQaf4kR83K6
+ AtEmQChH8EggFAxDwhUEgB0hXcFSjlAwDBDCGfmd0iF/hCtSz7oRlDPgECWwo/b9A/b7r/M757C34AGC
+ jw0ipPChACEhMIiyYeR3ulF4bQEpLfTFiSAsIY2/EPmDyFAgJAwFhN1AZaJc0b4iSmWTEiFnKAjsDumM
+ PIJwVZSHcgcnJsvFmuxmCikenNud0fPv0gE22wH7vdf5nbMIzLuHoPz7DCLk2CD2kSOkG6hBlvXOIf3C
+ PJLP0gKHACzgKINQjlhkCAxCiZ0h3cEwqEQUDM0RDEJzhAbCzxl6z2CHmDCEMzYmrCuzbQFBWb3jRvIG
+ AIcHATl3sSf3HgLz7iMo/wGCC8gNg+yGtAtTKLrmRULjHANIPbeA1HOLOEo6r4FoFa6gkZ0h3bERhGqc
+ sme0m87Q3ZCjSsNwhT8MbpxX1yzlIsBQwlQyOoDQE8NLARm9n/gB+HGRw0cAdmXdwe7sz7En5y4Cc+8h
+ KO8+9hKIY4Mo7Z5FxoU5JDTOIvkslcECUs55kdpCIIQYxHkColwhIOgSMJaRedFSJtQnyB2GK8yZRLnC
+ fxZRJSIbqDGL6M4QPUP0i1XkXHmOoMy+uQ3fFRSAnRn92JUxwCACNBAxVaMoujGPuFo3EpvmkNTsZReQ
+ GEQLjcoVC0iVEBQI5Y50BcQok2X/fqEaKLlCNk/DFSyzRAxnqFK5umo4g3uFX5kIxeZPvAjMvp3ll7wB
+ oNODT9L68Gn6bQEicwC7GcRdFN7wIP3CLGIZwDwDYAjN80hmGKIvCBAEwYsUBqE5gyAYzhAwVANVzqBv
+ fWpaVdOpUSLKGQYQ6humI8zmqTlEgWBXrGBv9oB3098qFICPU3vwf0d7JYh+7MwYwL6iL1B8cxb2mmkc
+ qfVwD0gkEQglAsGOkCAMGLJEZJmIEjFhCGcQCLNxGlOq7g6tX2SrfqEWWjyTbDKddoh+QbYnZ9DvFIFZ
+ ty9ac+fYb7evF3R68Lvkbvw+pQcfp/ZKELeR0zGNjAseRJ6aRHz9LOIbZpHQQL2ANI9EJYZBziBXKCAE
+ Y8HoGVweRs+QzdMAYTZONZuYM4mEoa04DSBazyBH8MpTrjNoyuWFV8cKQgr75nan9/2rNXcOAkAO+G3i
+ Lfw2qYtBfJzSg53p/fzpx9Y4EV1FX4FnBYT6OcQTBF2N80ig/tAkYTQLIKJE9J4hy0RrnlwqEgTDkBBo
+ NF2xzD1D9Qqx6jTFK08NCG3T8wKCkXZ+DgE5t4eseRshALjxm/ib+CjhJoP4XVIXkpomkNXmxuGTkzhS
+ 60Zs3SwrjiRhxDUQDHKGcoWQKhGjVLhneJGkYLTQaDpDjX6uoClVX19opWK4gnuG7BfcM4RDqL/Qe+SA
+ Q+WPFndn9PzGmrcRDMDhxq9ir+PXcTckiFvc/OjTjyAAZzyIrSVRM5SjhCFcISVLRAExy0NC4QY6jyTq
+ F82yX6jZhEHI2UTNIkp6ifAjuU1KRJYJ9RACSUDo2MD0fs8O++B3rXkboQD875Fr+FXsNfw67joiKoaQ
+ 1+FBePkEoqtcsNd4YD/jZhAmDBNKXJ0HseQIKcMVBMPoFxoQWSIChpxRuF/QDGKdUi29gqZT1Tx1EHJq
+ TW2Z55koq20ZAfljNPUlWXP2i/2Fd3md/8sYB35p72QQ+Y5ZftJz8MRTxNS4WXZNDKLWzTODAUQvEVkm
+ olS0MmkQELhUjBLxarOJbKDa+oKnVCoP2S8UEHPlaU6pBCmh0SNeX1xCUPaAd2929z9Yc/YLBeDD6Kv4
+ RbSDvxPkdswhvPwJIk85EV3tQky125CdRj8YCogAIUYqFQGEoRgwBAizRFTP8G+gmzZP5QrdHdQ4tfVF
+ QtMsAyAYdnvyelB2X5M13w0hALjw88gr+DDqCjLbaNU3hdAyegrkEqpyCRA8mjBYBgxygwnjiAGB3OHZ
+ 4Iw46Qx9WqWZRG+cqldscIbflCocQbaPrZ3hY6lMQjL75vZkdv2LNd8NQQAKOl342eEO/D6lG9mXFxFe
+ Po6Dnz1DVKULUVUuRFXO8MgglNgZLsTUkDQQ3CdoFCUSq7nDcIXmCNEztKlV9QzpCKNnWGYRsQwXzZMg
+ xNfT9WcYBj2FDsruH7TmumkoADsi2vmZf3ydCwdK6THYDCceSRBY9FpuW0EYzpDlYi0PJcMZqnlaXLHp
+ +kKBEGViLMX1EjnrRUw1PWV2szNCS+4tBGT2/sya66ZBABruzPMUSAuKQyeeIKxsggEoRdFY6UIkQxCi
+ 0uCxSrpDJr9Zz1AlItxhhaHKhCB4zMYpF1w8i6ieoa0t9H4RV+dGVOUUv6YesDOtx/XWP5MTgCtfLYpH
+ zY0eBBcObwBgiJLnbeUIzRWqV0g3mGUinVFD06kqEwXEnEmMMrEstgQMWSZqsdWknCFcQcnHVE0zAPq1
+ OyDzdrQ1zy3jQNFdnPtiGc4FH8LLRhF8bJgh7Ct+jNDj4xY9YYWVKU0gvGxCjOWkpwg/YYr6yCFSxSQO
+ VTxDRMWk0MkpHCadcgqddiKSVOlEVCUtvclVNE4jpmoGMdUzAuCZGVlWLh6pv0SenkJY+Thi69zcRAOz
+ +730f0nWPLeM0JIH/MCAfggNKRxG8LEhTfRaE71vEf2Nn4pGEFI4IkapfVYVP2bt18b9JUqjOFA6igM8
+ joltqdDjY/4qG0NY2TgiKp6xMyLt8euBWf3V1hy3jOJ+fHDw+Jf8wCC5cZY/QbrhdwFglTV5q3QABghK
+ 3AKBQShpEFgaBFqvUOlQiQTb777ck9H1I2ueW0ae48WHIfl3+WFhZO3cn7Uiql3YlWn+NvhWcbi8v+5I
+ jcO3K60HQXkPsL/oEQ4UD31zKhlCaPEQQmlUoh9i1Fg6zApjjSDs+OYKPz6Cg2VKjxFWMoRA++3X//FR
+ SqLNZvsnm832dv8u98N//tFP/+1/Ptlps9n+80+o/9pk31Z6l2PfRpT8dmzHdmzHdmzHdmzHdrwp/h8w
+ TliMzfocqQAAAABJRU5ErkJggg==
diff --git a/ArinWarev1/MdiMain.vb b/ArinWarev1/MdiMain.vb
index d0051b6..b903605 100644
--- a/ArinWarev1/MdiMain.vb
+++ b/ArinWarev1/MdiMain.vb
@@ -124,6 +124,7 @@ Public Class MdiMain
bt_계산결과.Visible = False
bt_인증평가서.Visible = False
btImport.Visible = False
+ btMacro.Visible = False
'//서버로부터 사용여부 체크
'If L.Check_guest <> "OK" Then
' MsgBox("일반사용자에게는 아직 오픈되지 않았습니다.", MsgBoxStyle.Information, "확인")
@@ -138,6 +139,7 @@ Public Class MdiMain
'bt_계산결과그래프q.Visible = True
bt_인증평가서.Visible = True
btImport.Visible = True
+ btMacro.Visible = False
Case "BOTH1"
bt_데이터관리.Visible = True
Me.bt_etc.Visible = False
@@ -147,6 +149,7 @@ Public Class MdiMain
'bt_계산결과그래프q.Visible = True
bt_인증평가서.Visible = True
btImport.Visible = True
+ btMacro.Visible = False
Case "BOTH2"
bt_데이터관리.Visible = False
Me.bt_etc.Visible = False
@@ -156,6 +159,7 @@ Public Class MdiMain
'bt_계산결과그래프q.Visible = False
bt_인증평가서.Visible = False
btImport.Visible = False
+ btMacro.Visible = False
Case Else
bt_데이터관리.Visible = False
bt_계산결과그래프.Visible = False
@@ -164,8 +168,11 @@ Public Class MdiMain
bt_계산결과.Visible = False
bt_인증평가서.Visible = False
btImport.Visible = False
+ btMacro.Visible = False
End Select
+ btMacro2.Visible = btMacro.Visible
+
If Prj.UserAuthType_Real.StartsWith("BOTH_C_") Then
btcustomprofile.Visible = True
End If
@@ -3470,61 +3477,6 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
End Sub
- Private Sub 신규코드업로드ToolStripMenuItem_Click(sender As Object, e As EventArgs)
-
- If Prj.Opened Then
- Work_msg_timer("열려있는 파일을 닫아야 사용 가능합니다", 10)
- Return
- End If
-
- If MsgBox("신규파일의 코드를 갱신하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then
-
- '물어야하니 if
- Dim new_string As String
- If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 추가
- new_string = "\new"
- Else
- new_string = "\new1"
- End If
- Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string)
- Me.Open_File(Srcfile.FullName, True)
- End If
- End Sub
-
- Private Sub 신규코드업로드ToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles 신규코드업로드ToolStripMenuItem.Click
-
- If Prj.Opened Then
- Work_msg_timer("열려있는 파일을 닫아주세요", 10)
- Return
- End If
-
-
-
- '물어야하니 if
- If MsgBox("새파일소스를 업데이트 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return '//ok 안하면 빠져나가기
- Dim new_string As String
- If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 추가
- new_string = "\new"
- Else
- new_string = "\new1"
- End If
- Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string)
- If Srcfile.Exists = False Then
- MsgBox("원본샘플파일이 존재하지않습니다", MsgBoxStyle.Critical, "확인")
- Return '//복사할원본이 없으면 빠져나가기
- End If
-
- '/////////////////////////////////////////////////////////////////////////////////////////////////////////////저장파일 변조2011.03.16추가
- 'If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.09 추가
- ' Dim Desbuf() As Byte = {}
- ' Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(SD.FileName)
- ' Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
- ' My.Computer.FileSystem.WriteAllBytes(SD.FileName, Desbuf, False)
- 'End If
- '/////////////////////////////////////////////////////////////////////////////////////////////////////////////저장파일 변조2011.03.16추가
- Me.Open_File(Srcfile.FullName, True)
- End Sub
-
Private Sub CascadeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
@@ -4003,4 +3955,10 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
f.ControlBox = True
f.ShowDialog()
End Sub
+
+ Private Sub MacroIIToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btMacro2.Click
+ Menu_건물개요()
+ Dim f As New Frm_Macro2
+ f.Show()
+ End Sub
End Class
\ No newline at end of file
diff --git a/ArinWarev1/My Project/AssemblyInfo.vb b/ArinWarev1/My Project/AssemblyInfo.vb
index 3d30d80..98856fe 100644
--- a/ArinWarev1/My Project/AssemblyInfo.vb
+++ b/ArinWarev1/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' 지정되도록 할 수 있습니다.
'
-
-
+
+
diff --git a/Setup1/Setup1.vdproj b/Setup1/Setup1.vdproj
index fb7d356..80e7aa0 100644
--- a/Setup1/Setup1.vdproj
+++ b/Setup1/Setup1.vdproj
@@ -22,13 +22,7 @@
"Entry"
{
"MsmKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_2D348C4D6D7B458BA9A2FB1B0DAA93B4"
- "OwnerKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -39,12 +33,6 @@
}
"Entry"
{
- "MsmKey" = "8:_337AEEB2D0B04E4F93037792EAD5F9C9"
- "OwnerKey" = "8:_UNDEFINED"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
"MsmKey" = "8:_3553677EF48046758F4A80B5C3FC17B4"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
@@ -70,7 +58,7 @@
"Entry"
{
"MsmKey" = "8:_4608D921DC658CD173C039AF16C5E283"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -82,13 +70,7 @@
"Entry"
{
"MsmKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
- "OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -99,6 +81,12 @@
}
"Entry"
{
+ "MsmKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
+ "OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
"MsmKey" = "8:_59B3512FD7C9D2430BF7B3C6379B9C9D"
"OwnerKey" = "8:_4608D921DC658CD173C039AF16C5E283"
"MsmSig" = "8:_UNDEFINED"
@@ -130,7 +118,7 @@
"Entry"
{
"MsmKey" = "8:_6BB2F49C9D04D801E8DE021D6CE20C22"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -141,12 +129,6 @@
}
"Entry"
{
- "MsmKey" = "8:_84A91CFD1A7C40E59B60E61C8A498EF0"
- "OwnerKey" = "8:_UNDEFINED"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
"MsmKey" = "8:_88E9E9750BBC8DE9EFD32EE0994A73F2"
"OwnerKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
"MsmSig" = "8:_UNDEFINED"
@@ -154,13 +136,13 @@
"Entry"
{
"MsmKey" = "8:_8BDE3E37C576268C85BFD64B9B0E7E24"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_8EC9C4E69441F73892A4C676310B7ABE"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -184,7 +166,7 @@
"Entry"
{
"MsmKey" = "8:_ADE6E41741BD7CD14907A44E54816E0D"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -202,7 +184,7 @@
"Entry"
{
"MsmKey" = "8:_CE47408D9D1AC3C1A1C987DBD7CA7F43"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -213,8 +195,14 @@
}
"Entry"
{
+ "MsmKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
"MsmKey" = "8:_E5FD918B4BE4C70000A151506717226F"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -237,8 +225,68 @@
}
"Entry"
{
- "MsmKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
- "OwnerKey" = "8:_UNDEFINED"
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_4608D921DC658CD173C039AF16C5E283"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_59B3512FD7C9D2430BF7B3C6379B9C9D"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_36E293D174759AFAAD42CF70AA63402C"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_ECC375834F59CEFC1D106FE35A78C9C5"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_691C9DA50302E0464D0E64E97C1242A2"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_88E9E9750BBC8DE9EFD32EE0994A73F2"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_BFCB09EF0CA43B0269B207A4DB42D1BF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -250,12 +298,6 @@
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_6BB2F49C9D04D801E8DE021D6CE20C22"
"MsmSig" = "8:_UNDEFINED"
}
@@ -283,66 +325,6 @@
"OwnerKey" = "8:_CE47408D9D1AC3C1A1C987DBD7CA7F43"
"MsmSig" = "8:_UNDEFINED"
}
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_ECC375834F59CEFC1D106FE35A78C9C5"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_BFCB09EF0CA43B0269B207A4DB42D1BF"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_88E9E9750BBC8DE9EFD32EE0994A73F2"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_691C9DA50302E0464D0E64E97C1242A2"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_59B3512FD7C9D2430BF7B3C6379B9C9D"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_4608D921DC658CD173C039AF16C5E283"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_36E293D174759AFAAD42CF70AA63402C"
- "MsmSig" = "8:_UNDEFINED"
- }
- "Entry"
- {
- "MsmKey" = "8:_UNDEFINED"
- "OwnerKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
- "MsmSig" = "8:_UNDEFINED"
- }
}
"Configurations"
{
@@ -509,26 +491,6 @@
"IsDependency" = "11:TRUE"
"IsolateTo" = "8:"
}
- "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_2D348C4D6D7B458BA9A2FB1B0DAA93B4"
- {
- "SourcePath" = "8:C:\\ECO2\\debug_2016\\new1"
- "TargetName" = "8:new1"
- "Tag" = "8:"
- "Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
- "Condition" = "8:"
- "Transitive" = "11:FALSE"
- "Vital" = "11:TRUE"
- "ReadOnly" = "11:FALSE"
- "Hidden" = "11:FALSE"
- "System" = "11:FALSE"
- "Permanent" = "11:FALSE"
- "SharedLegacy" = "11:FALSE"
- "PackageAs" = "3:1"
- "Register" = "3:1"
- "Exclude" = "11:FALSE"
- "IsDependency" = "11:FALSE"
- "IsolateTo" = "8:"
- }
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_3273FC8CB0914298B621226C45585341"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\Data\\tbl_weather.dat"
@@ -549,26 +511,6 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
- "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_337AEEB2D0B04E4F93037792EAD5F9C9"
- {
- "SourcePath" = "8:C:\\ECO2\\debug_2016\\new"
- "TargetName" = "8:new"
- "Tag" = "8:"
- "Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
- "Condition" = "8:"
- "Transitive" = "11:FALSE"
- "Vital" = "11:TRUE"
- "ReadOnly" = "11:FALSE"
- "Hidden" = "11:FALSE"
- "System" = "11:FALSE"
- "Permanent" = "11:FALSE"
- "SharedLegacy" = "11:FALSE"
- "PackageAs" = "3:1"
- "Register" = "3:1"
- "Exclude" = "11:FALSE"
- "IsDependency" = "11:FALSE"
- "IsolateTo" = "8:"
- }
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_3553677EF48046758F4A80B5C3FC17B4"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\Data\\weather_temp.dat"
@@ -895,26 +837,6 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
- "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_84A91CFD1A7C40E59B60E61C8A498EF0"
- {
- "SourcePath" = "8:C:\\ECO2\\debug_2016\\newx1.ecox"
- "TargetName" = "8:newx1.ecox"
- "Tag" = "8:"
- "Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
- "Condition" = "8:"
- "Transitive" = "11:FALSE"
- "Vital" = "11:TRUE"
- "ReadOnly" = "11:FALSE"
- "Hidden" = "11:FALSE"
- "System" = "11:FALSE"
- "Permanent" = "11:FALSE"
- "SharedLegacy" = "11:FALSE"
- "PackageAs" = "3:1"
- "Register" = "3:1"
- "Exclude" = "11:FALSE"
- "IsDependency" = "11:FALSE"
- "IsolateTo" = "8:"
- }
"{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_88E9E9750BBC8DE9EFD32EE0994A73F2"
{
"AssemblyRegister" = "3:1"
@@ -1201,6 +1123,37 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
+ "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_DF16200C7C9B40998C022F2E37D1E143"
+ {
+ "AssemblyRegister" = "3:1"
+ "AssemblyIsInGAC" = "11:FALSE"
+ "AssemblyAsmDisplayName" = "8:Eco2Ar, Version=1.2017.122.1014, Culture=neutral, processorArchitecture=x86"
+ "ScatterAssemblies"
+ {
+ "_DF16200C7C9B40998C022F2E37D1E143"
+ {
+ "Name" = "8:Eco2Ar.exe"
+ "Attributes" = "3:512"
+ }
+ }
+ "SourcePath" = "8:C:\\ECO2\\dotfus_2016\\Eco2Ar.exe"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ }
"{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_E5FD918B4BE4C70000A151506717226F"
{
"AssemblyRegister" = "3:1"
@@ -1294,37 +1247,6 @@
"IsDependency" = "11:TRUE"
"IsolateTo" = "8:"
}
- "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_FF450D40DC624BBDB22749D13FD2AC4C"
- {
- "AssemblyRegister" = "3:1"
- "AssemblyIsInGAC" = "11:FALSE"
- "AssemblyAsmDisplayName" = "8:Eco2Ar, Version=1.2017.122.1010, Culture=neutral, processorArchitecture=x86"
- "ScatterAssemblies"
- {
- "_FF450D40DC624BBDB22749D13FD2AC4C"
- {
- "Name" = "8:Eco2Ar.exe"
- "Attributes" = "3:512"
- }
- }
- "SourcePath" = "8:C:\\ECO2\\dotfus_2016\\Eco2Ar.exe"
- "TargetName" = "8:"
- "Tag" = "8:"
- "Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
- "Condition" = "8:"
- "Transitive" = "11:FALSE"
- "Vital" = "11:TRUE"
- "ReadOnly" = "11:FALSE"
- "Hidden" = "11:FALSE"
- "System" = "11:FALSE"
- "Permanent" = "11:FALSE"
- "SharedLegacy" = "11:FALSE"
- "PackageAs" = "3:1"
- "Register" = "3:1"
- "Exclude" = "11:FALSE"
- "IsDependency" = "11:FALSE"
- "IsolateTo" = "8:"
- }
}
"FileType"
{
@@ -1404,7 +1326,7 @@
"Name" = "8:Microsoft Visual Studio"
"ProductName" = "8:ECO2_2025V1"
"ProductCode" = "8:{1C694875-DBD9-43E7-A9DC-0EEE63429810}"
- "PackageCode" = "8:{EAB0A25E-C4D2-4C79-9BF0-E9F5728A8E5F}"
+ "PackageCode" = "8:{172D8716-29F9-4949-8F2B-52F268078F21}"
"UpgradeCode" = "8:{650A91F6-635B-4C09-8A64-C123C180E487}"
"AspNetVersion" = "8:2.0.50727.0"
"RestartWWWService" = "11:FALSE"
@@ -1532,7 +1454,7 @@
"ShowCmd" = "3:1"
"IconIndex" = "3:0"
"Transitive" = "11:FALSE"
- "Target" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "Target" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"Folder" = "8:_89D815457C274E5890E728BDBFF2EA16"
"WorkingFolder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Icon" = "8:_5D29234F4F444C9AAE7845416706303D"
@@ -1546,7 +1468,7 @@
"ShowCmd" = "3:1"
"IconIndex" = "3:0"
"Transitive" = "11:FALSE"
- "Target" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
+ "Target" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"Folder" = "8:_8ACC8683286847D288C7D970B3389046"
"WorkingFolder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Icon" = "8:_5D29234F4F444C9AAE7845416706303D"