2024y .

ArinWarev1/Module/Pub.vb

@@ -24,6 +24,7 @@
         Dim UserIp As String
         Dim UserMac As String
         Dim UserAuthType As String
+        Dim UserAuthType_Real As String
     End Structure
 
     Public pLog As ArinLog.ArinLog
@@ -54,6 +55,48 @@
     Public EnDec As New ArinLogin.EnDec("tindevil.com")
 
     Public DSHistory As New DS2
+    Public Importsameaddress As Boolean = False
+
+    Public Function 프로필급탕요구량(면적별범위 As Char) As Decimal
+        'Drow프로필.일일급탕요구량()
+
+        If 면적별범위 = "A"c Then
+            Return 2333.2
+        ElseIf 면적별범위 = "B"c Then
+            Return 3051.2
+        ElseIf 면적별범위 = "C"c Then
+            Return 4307.5
+        ElseIf 면적별범위 = "D"c Then
+            Return 5025.4
+        ElseIf 면적별범위 = "E"c Then
+            Return 5743.4
+        ElseIf 면적별범위 = "F"c Then
+            Return 6281.8
+        Else
+            Return 8794.5
+        End If
+
+    End Function
+
+    Public Function 면적별범위값(면적 As Decimal) As Char
+        Select Case 면적
+            Case Is > 165
+                Return "G"c
+            Case Is > 130
+                Return "F"c
+            Case Is > 100
+                Return "E"c
+            Case Is > 60
+                Return "D"c
+            Case Is > 40
+                Return "C"c
+            Case Is > 20
+                Return "B"c
+            Case Else
+                Return "A"c
+        End Select
+
+    End Function
 
     Public Function CurrentUIVersion() As String
         Dim uiverstr As String = My.Application.Info.Version.Minor.ToString("0000") + _
@@ -840,6 +883,36 @@
 
     End Sub
 
+    Public Function 면적존수합() As Tuple(Of Decimal, Int32)
+
+        Dim 면적합 As Decimal = 0
+        Dim 존수합 As Integer = 0
+        Dim 면적 As Decimal = 0
+
+        For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
+            Dim 존수 As Integer = 0
+            If IsNumeric(dr존.입력존의수) Then
+                존수 = CInt(dr존.입력존의수)
+            Else
+                존수 = 1
+            End If
+
+            존수합 += 존수
+            If IsNumeric(dr존.면적) Then
+                면적 = dr존.면적 * 존수
+            Else
+                면적 = 0
+            End If
+
+            면적합 = 면적합 + 면적
+
+        Next
+
+        Return New Tuple(Of Decimal, Int32)(면적합, 존수합)
+
+    End Function
+
+
     ''' <summary>
     ''' 모든입력면의 창,문의 면적비를 계산하여 반환한다(frm_myoun의 Display_info 함수에서 가져옴)
     ''' </summary>
@@ -898,11 +971,18 @@
                     열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
                     창열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
                     '투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
-                    투과율합 += TOSG(Dryk(0).일사에너지투과율) * TOSG(Dr입력면.건축부위면적) * 존수
+                    If Not Dryk Is Nothing Then
+                        투과율합 += TOSG(Dryk(0).일사에너지투과율) * TOSG(Dr입력면.건축부위면적) * 존수
+                    End If
+
                 Case "내부창"
                     열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
                     창열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
-                    투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
+                    '투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
+                    If Not Dryk Is Nothing Then
+                        투과율합 += TOSG(Dryk(0).일사에너지투과율) * TOSG(Dr입력면.건축부위면적) * 존수
+                    End If
+
             End Select
 
             If Dryk Is Nothing Then
@@ -1192,7 +1272,7 @@
         End If
     End Function
 
-   
+
     Public Sub Read_CommonCode(Optional ByVal Version As String = "")
         Work_msg("공용코드 확인중")
         If Version = "" Then