Haegwang/Tongsin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

권한 기능 업데이트

Browse Source
This commit is contained in:
Chikyun
2019-05-05 22:25:33 +09:00
parent ca131efead
commit e82a1c6728
17 changed files with 869 additions and 821 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Epole/입력폼/AddEpole_LCable.vb
View File

@@ -441,12 +441,12 @@ Public Class AddEpole_LCable
MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인")
Return
End If
If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
End If
'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))
Dim Aa As New Cls_LCable.PrintForm(Me.DT, False, Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView), IIf(Admin, True, False))
Aa.Fixed = New String() {TB1.Text, TB2.Text, TB3.Text, TB4.Text, TB5.Text, TB6.Text, TB7.Text}
Aa.Show()

8
Epole/입력폼/AddEpole_Tongsin.vb
View File

@@ -442,10 +442,10 @@ Public Class AddEpole_Tongsin
MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인")
Return
End If
If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
End If
Dim Aa As New Cls_Tongshin.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))
'If UserInfo.Type = E_AuthType.Demo Then
' MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
'End If
Dim Aa As New Cls_Tongshin.PrintForm(Me.DT, False, Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView), IIf(Admin, True, False))
Aa.Fixed = New String() {TB1.Text, TB2.Text, TB3.Text, TB4.Text, TB5.Text, TB6.Text, TB7.Text}
Aa.Show()