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

20
Epole/업로드폼/XLSImport.vb
View File

@@ -101,11 +101,11 @@ Public Class XLSImport
Dim Nullcnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If
'If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
' MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
' "시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
' Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
'End If
Me.DT_tongsin.Rows.Clear() : Me.DT_tongsin.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다
@@ -203,11 +203,11 @@ Public Class XLSImport
Dim Nullcnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If
'If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
' MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
' "시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
' Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
'End If
Me.DT_LCable.Rows.Clear() : Me.DT_LCable.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다