From 370a838f429b08b5c2f1d49b4dc62f457c9432e9 Mon Sep 17 00:00:00 2001 From: ykh Date: Mon, 29 Sep 2025 23:34:43 +0900 Subject: [PATCH] ... --- ArinWarev1/Calculator/CHeating.vb | 53 +- ArinWarev1/ECO2_2025V1.vbproj | 9 + .../Forms_Report/Frm_Macro2.Designer.vb | 220 +++++ ArinWarev1/Forms_Report/Frm_Macro2.resx | 123 +++ ArinWarev1/Forms_Report/Frm_Macro2.vb | 841 ++++++++++++++++++ ArinWarev1/MdiMain.Designer.vb | 24 +- ArinWarev1/MdiMain.resx | 132 +-- ArinWarev1/MdiMain.vb | 68 +- ArinWarev1/My Project/AssemblyInfo.vb | 4 +- Setup1/Setup1.vdproj | 312 +++---- 10 files changed, 1445 insertions(+), 341 deletions(-) create mode 100644 ArinWarev1/Forms_Report/Frm_Macro2.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Frm_Macro2.resx create mode 100644 ArinWarev1/Forms_Report/Frm_Macro2.vb 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"