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

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

@@ -106,11 +106,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_Sknetworks.Rows.Clear() : Me.DT_Sknetworks.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다
@@ -190,11 +190,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_Karo.Rows.Clear() : Me.DT_Karo.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다
@@ -297,11 +297,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_Jdung.Rows.Clear() : Me.DT_Jdung.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다