워터마크 관련 오류 수정

스타일 숨김/표시 기능 추가

Cls_LCable/PrintForm.vb

@@ -39,11 +39,11 @@ Public Class PrintForm
     Public Sub New()
         InitializeComponent()
     End Sub
-    Public Sub New(ByRef Src As DataTable, ByVal vAdmin As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing, Optional DisWaterMK As Boolean = False)
+    Public Sub New(ByRef Src As DataTable, vdev As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing, Optional DisWaterMK As Boolean = False)
         InitializeComponent()
         SrcTable = Src  '//가져온 테이블을 임시테이블에 저장을 해두고 사용한다.
         Srcrow = IRow  '//이것은 클릭된 행의 데이터이다.
-        Me.Admin = vAdmin
+        Me.Admin = vdev
         Me.DefStyleIndex = vDefStyleIndex
         DisableWaterMark = DisWaterMK '//190208
     End Sub

Cls_Tongshin/PrintForm.vb

@@ -49,11 +49,11 @@ Public Class PrintForm
     Public Sub New()
         InitializeComponent()
     End Sub
-    Public Sub New(ByRef Src As DataTable, ByVal vAdmin As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing, Optional DisWaterMK As Boolean = False)
+    Public Sub New(ByRef Src As DataTable, vdev As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing, Optional DisWaterMK As Boolean = False)
         InitializeComponent()
         SrcTable = Src  '//가져온 테이블을 임시테이블에 저장을 해두고 사용한다.
         Srcrow = IRow  '//이것은 클릭된 행의 데이터이다.
-        Me.Admin = vAdmin
+        Me.Admin = vdev
         Me.DefStyleIndex = vDefStyleIndex
         DisableWaterMark = DisWaterMK '//190208
     End Sub

Epole/History.txt

@@ -1 +1,2 @@
-180117	chi	*cls_tonshin 에서 간선과 전주번호 길이 최대값을 10에서 20으로 수정
+190223	chi	스타일목록에서 마우스 우클릭으로 숨김/표시 처리가 가능함(단 관리자 로그인 시)
+180117	chi	*cls_tonshin 에서 간선과 전주번호 길이 최대값을 10에서 20으로 수정

Epole/KT번호찰.vbproj.user

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <EnableUnmanagedDebugging>true</EnableUnmanagedDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
     <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
     <StartArguments>ARIN250</StartArguments>
   </PropertyGroup>

Epole/MakeList.vb

@@ -37,6 +37,22 @@ Public Class MakeList
             If msg = "ARIN2506" Then
                 UserInfo.Type = E_AuthType.Demo
                 MessageBox.Show("개발자 로그인 성공", "확인", MessageBoxButtons.OK, MessageBoxIcon.Information)
+
+                Select Case UserInfo.Type
+                    Case E_AuthType.Dev
+                        Me.lb_auth.Text = "[개발자]"
+                        Me.lb_auth.ForeColor = Color.Green
+                    Case E_AuthType.adm
+                        Me.lb_auth.Text = "[관리자]"
+                        Me.lb_auth.ForeColor = Color.Blue
+                    Case E_AuthType.Demo
+                        Me.lb_auth.Text = "[임시사용자]"
+                        Me.lb_auth.ForeColor = Color.Blue
+                    Case E_AuthType.Normal
+                        Me.lb_auth.Text = "[정상사용자]"
+                        Me.lb_auth.ForeColor = Color.Black
+                End Select
+
             End If
 
         ElseIf e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F12 Then
@@ -46,6 +62,22 @@ Public Class MakeList
             If msg = "해광" + Now.ToString("yyyyMMdd") Then
                 UserInfo.Type = E_AuthType.adm
                 MessageBox.Show("관리자 로그인 성공", "확인", MessageBoxButtons.OK, MessageBoxIcon.Information)
+
+                Select Case UserInfo.Type
+                    Case E_AuthType.Dev
+                        Me.lb_auth.Text = "[개발자]"
+                        Me.lb_auth.ForeColor = Color.Green
+                    Case E_AuthType.adm
+                        Me.lb_auth.Text = "[관리자]"
+                        Me.lb_auth.ForeColor = Color.Blue
+                    Case E_AuthType.Demo
+                        Me.lb_auth.Text = "[임시사용자]"
+                        Me.lb_auth.ForeColor = Color.Blue
+                    Case E_AuthType.Normal
+                        Me.lb_auth.Text = "[정상사용자]"
+                        Me.lb_auth.ForeColor = Color.Black
+                End Select
+
             End If
 
         End If

Epole/입력폼/AddEpole_LCable.vb

@@ -444,6 +444,8 @@ Public Class AddEpole_LCable
         If UserInfo.Type = E_AuthType.Demo Then
             MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
         End If
+        '    Public Sub New(ByRef Src As DataTable, vdev As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing, Optional DisWaterMK As Boolean = False, Optional vAdmin As Boolean = False)
+
         Dim Aa As New Cls_LCable.PrintForm(Me.DT, IIf(UserInfo.Type = E_AuthType.Dev, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView), IIf(UserInfo.Type = E_AuthType.adm, True, False))
         Aa.Fixed = New String() {TB1.Text, TB2.Text, TB3.Text, TB4.Text, TB5.Text, TB6.Text, TB7.Text}
         Aa.Show()