2024y .

ArinWarev1/Calculator/CShared.vb

@@ -175,6 +175,28 @@ Public Class CShared
         '    Next
         'Next
 
+
+        '=============================================================================2024.12.11 추가
+        '공동주택일때 입력존의 냉난방확인
+        Dim drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
+        Dim 주거형태 As String = drdesc.isjugo
+        If 주거형태 = "2" Then
+            Dim sb As New System.Text.StringBuilder()
+            For Each drzone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
+                If drzone.냉난방방식 <> "냉난방" Then
+                    sb.AppendLine("[공동주택]입력존(" + drzone.설명 + ")의 냉난방식을 확인하세요")
+
+                End If
+            Next
+            If sb.Length > 0 Then
+                'Dim dlg As DialogResult = MsgBox("오류가 발생했습니다 계산을 실행할까요?" + vbCrLf + sb.ToString(), MsgBoxStyle.Critical + MsgBoxStyle.YesNo, "CShared")
+                'If dlg <> DialogResult.Yes Then
+                '    Me.IsError = True
+                'End If
+            End If
+        End If
+
+
     End Sub