Merge branch 'master' of https://gitlab.com/free-lancer/eco2-od

ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb

@@ -261,6 +261,11 @@
                     'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then
                     'If Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
                     'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
+
+                    'If i_count_month > 4 Then
+                    '    Console.WriteLine(String.Format("공조 {0}월 존이름={1},급기풍량={2},배기풍량={3}", i_count_month, Dr공조.code, Dr공조.급기풍량, Dr공조.배기풍량))
+                    'End If
+
                     If sum_kongjo = 0 Then
                         ea_kongjo = 0
                     Else
@@ -740,6 +745,10 @@
                     End If
                     Drow분석(0).공조요구량가습 = Q_vm_b '  Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = Q_vm_b
                     Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
+                    'Console.WriteLine(String.Format("환기요구량={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
+                    'If i_count_month > 4 Then
+                    '    Console.WriteLine(String.Format("문제의 {0}월", i_count_month))
+                    'End If
                     '==========================================================================================================================================
                     'End If
                     'End If
@@ -837,6 +846,7 @@
 
 
                         Result1o.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m
+                        'Console.WriteLine(String.Format("환기요구량2={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
                         'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
                     End If
                 Else

ArinWarev1/Calculator-OD/Cooling/CCooling.vb

@@ -84,6 +84,9 @@
         Dim Mon As String = "M" & Format(i_count_month, "00")
         For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code")
 
+            'log.debug(String.format("cool title=%s", drCooling.getCode()));
+            ' Console.WriteLine(String.Format("cool title={0}", dr냉방.code))
+
             '//이 냉방기가가 존에서 사용되었는지확인한다.
             Dim Drow존() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code <> '0'"), DS.tbl_zoneRow())
             If Drow존.GetUpperBound(0) <> -1 Then ' Worksheets("냉방기기").Range("냉방생산기기1").Offset(2, i_count_chiller - 1) = "0001" Then '2
@@ -97,6 +100,8 @@
 
 
                 For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'", "code")
+                    'Console.WriteLine(String.Format("냉방기기={0},존={1},mon={2}", dr냉방.설명, Dr존.code, i_count_month))
+
                     Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row())
                     ' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따.
                     ' If Dr존.열생산냉방생산기기 <> "" Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) <> "" Then
@@ -420,7 +425,8 @@
                 Q_c_f = Q_c_f + Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g
                 use_Elec = use_Elec + Q_c_f_elektr + Q_c_f_R_elektr
 
-
+                'Console.WriteLine(String.Format("=>coolin mon={0}, gcf={1}, elect={2}", i_count_month, Q_c_f, use_Elec))
+                'log.debug(String.format("=>coolin mon=%s, gcf=%s, elect=%s", i_count_month, Q_c_f,use_Elec));
 
                 '// 냉수, 냉각수 분배
                 Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30)
@@ -461,9 +467,10 @@
 
 
 
+                'Console.WriteLine("loop 2")
 
             End If '2
-
+            'Console.WriteLine("loop 1")
         Next '1
 
 

ArinWarev1/Calculator-OD/Heating/CHeating.vb

@@ -467,6 +467,9 @@
         Result1o.일차E소요량(i_count_month).급탕LPG = use_LPG
         Result1o.일차E소요량(i_count_month).급탕지역 = use_DH
         Result1o.일차E소요량(i_count_month).급탕전력 = use_Elec
+
+        'log.debug(String.format("####### => (i_count_month=%s,Q_w_f=%s,Q_w_aux=%s,use_Oil=%s,use_LNG=%s,use_LPG=%s,use_DH=%s,use_Elec=%s)",i_count_month,Q_w_f,Q_w_aux,use_Oil,use_LNG,use_LPG,use_DH,use_Elec));
+        ' Console.WriteLine(String.Format("####### => (i_count_month={0},Q_w_f={1},Q_w_aux={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
     End Sub
 
   
@@ -815,7 +818,7 @@
         Result1o.일차E소요량(i_count_month).난방전력 = use_Elec
 
         'pLog.Add(String.Format("q_h_aux={0},난방등유={1},LNG={2},LPG={3},지역={4},전력={5}", Q_h_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
-
+        'Console.WriteLine(String.Format("####### => (i_count_month={0},Q_h_aux={1},use_Elec={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_h_aux, use_Elec, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
     End Sub
 
     Private Sub Calc_난방_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal)
@@ -1812,7 +1815,7 @@
                     H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3))
                     Q_h_g = Q_h_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정
                     use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정
-                    Console.WriteLine("used=" + use_DH.ToString())
+                    'Console.WriteLine("used=" + use_DH.ToString())
                 End If
 
 

ArinWarev1/Calculator-OD/Result/C에너지분석.vb

@@ -334,6 +334,7 @@
             a10 = a10 + Dr.공조요구량냉방
             a11 = a11 + Dr.공조요구량가습
             a12 = a12 + Dr.환기요구량
+            ' Console.WriteLine(String.Format(">>>>>>>>> a2={0},a3={1},a4={2},a5={3},a6={4},a7={5},a8={6},a9={7},a10={8},a11={9},a12={10}", a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
         Next
 
         'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다.

ArinWarev1/Calculator-OD/Result/C에너지소요량.vb

@@ -53,6 +53,8 @@
             I6 += Result1o.일차E소요량(i).조명전력
             I7 += Result1o.일차E소요량(i).급탕전력
             I8 += Result1o.일차E소요량(i).환기전력
+
+            'Console.WriteLine(String.Format(">>C에너지소요량 IV={0},i={1}", IV, i))
         Next
 
         Me.난방 = I10
@@ -64,11 +66,12 @@
 
 
         If (I4 + I5 + I6 + I7 + I8 <> 0) Then
-            Me.난방S = IH - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4
+            Dim baseValue As Double = (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량)
-            Me.냉방S = IC - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5
+            Me.난방S = IH - baseValue / (I4 + I5 + I6 + I7 + I8) * I4
-            Me.조명S = IL - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6
+            Me.냉방S = IC - baseValue / (I4 + I5 + I6 + I7 + I8) * I5
-            Me.급탕S = IW - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7
+            Me.조명S = IL - baseValue / (I4 + I5 + I6 + I7 + I8) * I6
-            Me.환기S = IV - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8
+            Me.급탕S = IW - baseValue / (I4 + I5 + I6 + I7 + I8) * I7
+            Me.환기S = IV - baseValue / (I4 + I5 + I6 + I7 + I8) * I8
         Else
             Me.난방S = IH
             Me.냉방S = IC

ArinWarev1/Calculator-OD/Zone/CZone.vb

@@ -107,9 +107,9 @@
 
             For i_count_month As Short = 0 To 12 '(2)    --월전체의 루프?
 
-                If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
+                'If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
-                    Console.WriteLine("col")
+                '    Console.WriteLine("col")
-                End If
+                'End If
 
                 Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus()
                 Dim Mon As String = "M" & Format(i_count_month, "00")   '//저장소의 필드명이 M00 식으로되어있다.
@@ -733,6 +733,9 @@
                         Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
                     End If
 
+                    Console.WriteLine(String.Format("mon={0},Q_l_b ={1},Q_w_b ={2}", i_count_month, Q_l_b, Q_w_b))   '//191120
+
+
                     Dim Dr최대부하 As New C최대냉난방부하OD.Citem(DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row)
 
                     If i_count_HeatCool = 1 Then

ArinWarev1/ECO2OD.vbproj

@@ -152,6 +152,12 @@
     <Compile Include="DataSet\DS.vb">
       <DependentUpon>DS.xsd</DependentUpon>
     </Compile>
+    <Compile Include="FORM-BASIC\Frm_Buha.Designer.vb">
+      <DependentUpon>Frm_Buha.vb</DependentUpon>
+    </Compile>
+    <Compile Include="FORM-BASIC\Frm_Buha.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="FORM-BASIC\Frm_ExtReport.Designer.vb">
       <DependentUpon>Frm_ExtReport.vb</DependentUpon>
     </Compile>
@@ -393,6 +399,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="FORM-BASIC\Frm_Buha.resx">
+      <DependentUpon>Frm_Buha.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="FORM-BASIC\Frm_DisplayGubun.resx">
       <DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
     </EmbeddedResource>

ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.Designer.vb

@@ -90,6 +90,18 @@ Partial Class Frm_RepResult_Admin
         Me.bs_면적 = New System.Windows.Forms.BindingSource(Me.components)
         Me.TabPage5 = New System.Windows.Forms.TabPage()
         Me.DataGridView5 = New Eco2OD.ArinDv()
+        Me.MonDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.난방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.난방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.냉방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.냉방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.급탕에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.급탕보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.난방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.냉방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.조명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.급탕 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.환기 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.bs_소요량 = New System.Windows.Forms.BindingSource(Me.components)
         Me.TabPage6 = New System.Windows.Forms.TabPage()
         Me.DataGridView6 = New Eco2OD.ArinDv()
@@ -147,18 +159,7 @@ Partial Class Frm_RepResult_Admin
         Me.면적당생산량태양열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.면적당생산량지열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.bs_생산E = New System.Windows.Forms.BindingSource(Me.components)
-        Me.MonDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
-        Me.난방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.난방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.냉방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.냉방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.급탕에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.급탕보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.난방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.냉방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.조명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.급탕 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.환기 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.bn_all.SuspendLayout()
@@ -300,7 +301,7 @@ Partial Class Frm_RepResult_Admin
         Me.bn_all.DeleteItem = Nothing
         Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51})
+        Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51, Me.ToolStripButton1})
         Me.bn_all.Location = New System.Drawing.Point(0, 446)
         Me.bn_all.MoveFirstItem = Me.ToolStripButton44
         Me.bn_all.MoveLastItem = Me.ToolStripButton47
@@ -795,6 +796,102 @@ Partial Class Frm_RepResult_Admin
         Me.DataGridView5.Size = New System.Drawing.Size(819, 420)
         Me.DataGridView5.TabIndex = 16
         '
+        'MonDataGridViewTextBoxColumn1
+        '
+        Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon"
+        Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon"
+        Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1"
+        Me.MonDataGridViewTextBoxColumn1.ReadOnly = True
+        Me.MonDataGridViewTextBoxColumn1.Width = 56
+        '
+        '난방에너지소요량DataGridViewTextBoxColumn
+        '
+        Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량"
+        Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량"
+        Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn"
+        Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
+        Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87
+        '
+        '난방보조에너지소요량DataGridViewTextBoxColumn
+        '
+        Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량"
+        Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량"
+        Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn"
+        Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
+        Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
+        '
+        '냉방에너지소요량DataGridViewTextBoxColumn
+        '
+        Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량"
+        Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량"
+        Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn"
+        Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
+        Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87
+        '
+        '냉방보조에너지소요량DataGridViewTextBoxColumn
+        '
+        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량"
+        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량"
+        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn"
+        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
+        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
+        '
+        '급탕에너지소요량DataGridViewTextBoxColumn
+        '
+        Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량"
+        Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량"
+        Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn"
+        Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
+        Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87
+        '
+        '급탕보조에너지소요량DataGridViewTextBoxColumn
+        '
+        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량"
+        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량"
+        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn"
+        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
+        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99
+        '
+        '난방
+        '
+        Me.난방.DataPropertyName = "난방"
+        Me.난방.HeaderText = "난방"
+        Me.난방.Name = "난방"
+        Me.난방.ReadOnly = True
+        Me.난방.Width = 52
+        '
+        '냉방
+        '
+        Me.냉방.DataPropertyName = "냉방"
+        Me.냉방.HeaderText = "냉방"
+        Me.냉방.Name = "냉방"
+        Me.냉방.ReadOnly = True
+        Me.냉방.Width = 52
+        '
+        '조명
+        '
+        Me.조명.DataPropertyName = "조명"
+        Me.조명.HeaderText = "조명"
+        Me.조명.Name = "조명"
+        Me.조명.ReadOnly = True
+        Me.조명.Width = 52
+        '
+        '급탕
+        '
+        Me.급탕.DataPropertyName = "급탕"
+        Me.급탕.HeaderText = "급탕"
+        Me.급탕.Name = "급탕"
+        Me.급탕.ReadOnly = True
+        Me.급탕.Width = 52
+        '
+        '환기
+        '
+        Me.환기.DataPropertyName = "환기"
+        Me.환기.HeaderText = "환기"
+        Me.환기.Name = "환기"
+        Me.환기.ReadOnly = True
+        Me.환기.Width = 52
+        '
         'bs_소요량
         '
         Me.bs_소요량.DataMember = "에너지소요량"
@@ -1336,101 +1433,13 @@ Partial Class Frm_RepResult_Admin
         Me.bs_생산E.DataMember = "생산에너지"
         Me.bs_생산E.DataSource = Me.DSR
         '
-        'MonDataGridViewTextBoxColumn1
+        'ToolStripButton1
         '
-        Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon"
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
-        Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon"
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1"
+        Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.MonDataGridViewTextBoxColumn1.ReadOnly = True
+        Me.ToolStripButton1.Size = New System.Drawing.Size(89, 22)
-        Me.MonDataGridViewTextBoxColumn1.Width = 56
+        Me.ToolStripButton1.Text = "Export CSV"
-        '
-        '난방에너지소요량DataGridViewTextBoxColumn
-        '
-        Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량"
-        Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량"
-        Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn"
-        Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
-        Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87
-        '
-        '난방보조에너지소요량DataGridViewTextBoxColumn
-        '
-        Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량"
-        Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량"
-        Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn"
-        Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
-        Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
-        '
-        '냉방에너지소요량DataGridViewTextBoxColumn
-        '
-        Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량"
-        Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량"
-        Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn"
-        Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
-        Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87
-        '
-        '냉방보조에너지소요량DataGridViewTextBoxColumn
-        '
-        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량"
-        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량"
-        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn"
-        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
-        Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
-        '
-        '급탕에너지소요량DataGridViewTextBoxColumn
-        '
-        Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량"
-        Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량"
-        Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn"
-        Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
-        Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87
-        '
-        '급탕보조에너지소요량DataGridViewTextBoxColumn
-        '
-        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량"
-        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량"
-        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn"
-        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
-        Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99
-        '
-        '난방
-        '
-        Me.난방.DataPropertyName = "난방"
-        Me.난방.HeaderText = "난방"
-        Me.난방.Name = "난방"
-        Me.난방.ReadOnly = True
-        Me.난방.Width = 52
-        '
-        '냉방
-        '
-        Me.냉방.DataPropertyName = "냉방"
-        Me.냉방.HeaderText = "냉방"
-        Me.냉방.Name = "냉방"
-        Me.냉방.ReadOnly = True
-        Me.냉방.Width = 52
-        '
-        '조명
-        '
-        Me.조명.DataPropertyName = "조명"
-        Me.조명.HeaderText = "조명"
-        Me.조명.Name = "조명"
-        Me.조명.ReadOnly = True
-        Me.조명.Width = 52
-        '
-        '급탕
-        '
-        Me.급탕.DataPropertyName = "급탕"
-        Me.급탕.HeaderText = "급탕"
-        Me.급탕.Name = "급탕"
-        Me.급탕.ReadOnly = True
-        Me.급탕.Width = 52
-        '
-        '환기
-        '
-        Me.환기.DataPropertyName = "환기"
-        Me.환기.HeaderText = "환기"
-        Me.환기.Name = "환기"
-        Me.환기.ReadOnly = True
-        Me.환기.Width = 52
         '
         'Frm_RepResult_Admin
         '
@@ -1654,4 +1663,5 @@ Partial Class Frm_RepResult_Admin
     Friend WithEvents 조명 As System.Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents 급탕 As System.Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents 환기 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
 End Class

ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.resx

@@ -224,6 +224,21 @@
         iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
         qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
         RlfZIFMAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
 </value>
   </data>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -238,9 +253,21 @@
   <metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="F.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>
   </metadata>
+  <metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
@@ -262,10 +289,34 @@
   <metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>111, 17</value>
   </metadata>
+  <metadata name="난방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="냉방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="조명.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="급탕.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="환기.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>111, 17</value>
+  </metadata>
+  <metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>218, 17</value>
+  </metadata>
   <metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>218, 17</value>
   </metadata>
   <metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>344, 17</value>
   </metadata>
+  <metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>344, 17</value>
+  </metadata>
 </root>

ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.vb

@@ -54,5 +54,46 @@
         ' Me.bs.DataSource = DSETR
     End Sub
 
+    Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
+        Dim sd As New SaveFileDialog()
+        sd.Filter = "csv|*.csv"
+        sd.FilterIndex = 0
+        If (sd.ShowDialog() <> Windows.Forms.DialogResult.OK) Then Return
+
+
+        Dim Fs As New System.IO.FileStream(sd.FileName, IO.FileMode.Create)
+        Dim SW As New System.IO.StreamWriter(Fs, System.Text.Encoding.Default)
+        Dim Strbuf As String = ""
+
+        Dim colList As New List(Of Integer)
+
+        SW.WriteLine(",Code,Total,M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12")
+        Strbuf = ""
+        For Each DR As Windows.Forms.DataGridViewRow In DataGridView1.Rows
+
+            Strbuf = Strbuf & "," & DR.Cells(0).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 0).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 1).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 2).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 3).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 4).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 5).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 6).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 7).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 8).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 9).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 10).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 11).Value.ToString
+            Strbuf = Strbuf & "," & DR.Cells(7 + 12).Value.ToString
+            SW.WriteLine(Strbuf)
+            Strbuf = ""
+        Next
+        SW.Dispose()
+        Fs.Dispose()
+        MsgBox("저장완료" & vbCrLf & sd.FileName, MsgBoxStyle.Information, "확인")
+        Shell("notepad " & sd.FileName, AppWinStyle.NormalFocus)
+
+
+    End Sub
 End Class
 

ArinWarev1/MdiMain.Designer.vb

@@ -591,7 +591,7 @@ Partial Class MdiMain
         '
         Me.RibbonButton23.Name = "RibbonButton23"
         Me.RibbonButton23.SmallImage = CType(resources.GetObject("RibbonButton23.SmallImage"), System.Drawing.Image)
-        Me.RibbonButton23.Text = "--"
+        Me.RibbonButton23.Text = "부분부하"
         '
         'RibbonButton22
         '

ArinWarev1/MdiMain.vb

@@ -436,8 +436,6 @@ Public Class MdiMain
                 Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
                 Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
 
-
-
                 If System.IO.File.Exists(fn0) Then
                     Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn0, ""))
                     If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
@@ -2404,8 +2402,10 @@ ENDSTAT:  '//
         '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _<>ҿ䷮
         P(92) = (-1 * (Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD>¾翭 + Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>1).ToString()
 
+        Console.WriteLine("exp report ==========")
         For i As Integer = 1 To 99
             NewDR("c" + i.ToString("000")) = P(i - 1)
+            Console.WriteLine("P[{0}]={1}", i, P(i - 1))
         Next
 
         DSETR1.ExtReport.AddExtReportRow(NewDR)
@@ -3073,20 +3073,13 @@ ENDSTAT:  '//
     End Sub
 
     Private Sub RibbonButton24_Click_1(sender As Object, e As EventArgs) Handles RibbonButton24.Click
+
         '//save file (weather, profile)
         Dim fn0 As String = AppDomain.CurrentDomain.BaseDirectory + "\common.dat"
         Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
         Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
 
-        'DSET1.tbl_common_od.WriteXml(String.Format(fn0, ""), True)
+        If MsgBox("<EFBFBD><EFBFBD>ȣȭ<EFBFBD><EFBFBD> <20>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.YesNo, "Ȯ<EFBFBD><EFBFBD>") = MsgBoxResult.Yes Then
-        'DSET1.tbl_profile_od.WriteXml(String.Format(fn1, ""), True)
-        'DSET1.tbl_weather_od.WriteXml(String.Format(fn2, ""), True)
-        'DSET1.weather_cha_od.WriteXml(String.Format(fn2, "_ch"), True)
-        'DSET1.weather_group.WriteXml(String.Format(fn2, "_gr"), True)
-        'DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is"), True)
-        'DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd"), True)
-        'DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp"), True)
-
             Dim ms0 As New System.IO.MemoryStream()
             Dim ms1 As New System.IO.MemoryStream()
             Dim ms2 As New System.IO.MemoryStream()
@@ -3128,6 +3121,16 @@ ENDSTAT:  '//
             DSET1.weather_temp_od.WriteXml(ms25)
             buffer0 = EnctryArea(ms25.GetBuffer())
             System.IO.File.WriteAllBytes(String.Format(fn2, "_tp"), buffer0)
+        Else
+            DSET1.tbl_common_od.WriteXml(String.Format(fn0, "") + ".xml", True)
+            DSET1.tbl_profile_od.WriteXml(String.Format(fn1, "") + ".xml", True)
+            DSET1.tbl_weather_od.WriteXml(String.Format(fn2, "") + ".xml", True)
+            DSET1.weather_cha_od.WriteXml(String.Format(fn2, "_ch") + ".xml", True)
+            DSET1.weather_group.WriteXml(String.Format(fn2, "_gr") + ".xml", True)
+            DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is") + ".xml", True)
+            DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd") + ".xml", True)
+            DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp") + ".xml", True)
+        End If
 
 
     End Sub
@@ -4252,7 +4255,12 @@ ENDSTAT:  '//
     End Sub
 
     Private Sub RibbonButton23_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton23.Click
-
+        If Not Prj.Opened Then
+            Work_msg_timer(CLang.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͼ<EFBFBD><EFBFBD><EFBFBD>)
+            Return
+        End If
+        Frm_Buha.ControlBox = True
+        Frm_Buha.Show()
     End Sub
 
     Private Sub ExportCSV()

ArinWarev1/REPORT-OD/Report_result.rdlc

@@ -798,6 +798,7 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                   <DataElementOutput>Output</DataElementOutput>
                 </TablixCell>
@@ -911,8 +912,8 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
         <DataSetName>DSR_Graph_ReqUse</DataSetName>
         <Top>19cm</Top>
         <Left>0.5cm</Left>
-        <Height>1.26984cm</Height>
+        <Height>1.26985cm</Height>
-        <Width>4.73968cm</Width>
+        <Width>4.73967cm</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -922,7 +923,7 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>20.26984cm</Height>
+    <Height>20.26985cm</Height>
     <Style />
   </Body>
   <Width>19cm</Width>

ArinWarev1/UserControls/ArinDv.vb

@@ -4,14 +4,14 @@
         Select Case e.KeyCode
             Case Keys.O
                 If e.Control Then
-                    ExportView("c:\ExportData.txt", Me)
+                    ExportView("c:\ExportData.txt")
                 End If
         End Select
     End Sub
 
     '//그리드뷰의 내용을 내보낸다(ArinDataView 의 일부)
-    Public Sub ExportView(ByVal Filename As String, ByVal Dv As DataGridView)
+    Public Sub ExportView(ByVal Filename As String)
-        If Dv.RowCount < 1 Then
+        If Me.RowCount < 1 Then
             MsgBox("저장가능한 목록이 없습니다", MsgBoxStyle.Information, "확인")
             Return
         End If
@@ -23,7 +23,7 @@
         SD.FilterIndex = 0
         SD.RestoreDirectory = True
         If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
-        SaveTextfile(Dv, SD.FileName, CChar(IIf(SD.FilterIndex = 2, ",", vbTab)))
+        SaveTextfile(Me, SD.FileName, CChar(IIf(SD.FilterIndex = 2, ",", vbTab)))
 
     End Sub