Haegwang/Karodeung
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:20 +09:00
parent 750cdf9fd0
commit 3d7b335a06
14 changed files with 206 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -409,10 +409,10 @@ Public Class AddEpole_SKNetworks
MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인")
Return
End If
If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
End If
Dim Aa As New Cls_SkNetworks.PrintForm(Me.DT, IIf(UserInfo.Type = E_AuthType.Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView))
'If UserInfo.Type = E_AuthType.Demo Then
' MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
'End If
Dim Aa As New Cls_SkNetworks.PrintForm(Me.DT, IIf(Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView))
Aa.Show()
End Sub