' źOóÔĚÇÁ
' (Čľ)
' R[h
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End Sub
http://dobon.net/vb/dotnet/control/buttonarray.html
'==============================================================================
'
' VXeźFł˘Üé\[gA
' [U[źFŽďĐCV_
'
'------------------------------------------------------------------------------
' t@CźFfrmSRT0050.FRM
'
' PDdŞŔŃCł
'
'------------------------------------------------------------------------------
' đF
'
' PDł˘Üé\[gApÉěŹ 2003/08/28(THU) TGL
'
'==============================================================================
Imports COMMONLIB
Imports COMMONLIB.CBusinessRule
Imports COMMONLIB.CGlobalUtility
Public Class FrmSRT0050
Inherits
System.Windows.Forms.Form
' ńÔ
Private Enum EnColList
EnCol_Col1 = 0
EnCol_Col2
EnCol_Col3
EnCol_Col4
EnCol_Col5
EnCol_Col6
EnCol_Col7
EnCol_Col8
EnCol_Col9
EnCol_Col10
EnCol_Col11
EnCol_Col12
End Enum
' ^uRg[Ě^uÔ
Private Enum EnTab
EnTab_Store = 0 ''XÜĘCł
EnTab_Merch ''¤iĘCł
End Enum
' PGóÔ
Private Enum EnPGState
Init = 0 'úóÔ
DspStore 'XÜĘCłĚőĘ\ŚóÔ
EditStore 'XÜĘCłĚŇWóÔ
DspMerch '¤iĘCłĚőĘ\ŚóÔ
EditMerch '¤iĘCłĚŇWóÔ
RetInpStore 'XÜĘCłmčăAőđüÍÉßÁ˝ĚóÔ
End Enum
''ěsÂĚwiFAOiF
Private DisableForeColor As
Integer = RGB(0, 0, 0)
Private DisableBackColor As
Integer = RGB(196, 255, 255)
' ObhĚń^Cg
''2010/09/08 iwai RR[h¨iR[hÉĎXAiAAjšR[hAjšđÇÁ@ST
'Private Const CsTitle1 As
String = "^XÜR[h|<XÜź|>|>dŞ|>Cł|^ÓCćŞ|^RR[h" ''XÜĘCłćĘ
''Private Const CsTitle2 As
String = "^JanR[h|<¤iź|>|>dŞ|>Cł|^ÓCćŞ|^RR[h" ''¤iĘCłćĘ
Private Const CsTitle1 As
String = "^XÜR[h|<XÜź|>|>dŞ|>Cł|^ÓCćŞ|^iR[h|^i|^jšR[h|^jš" ''XÜĘCłćĘ
Private Const CsTitle2 As
String = "^JanR[h|<¤iź|>|>dŞ|>Cł|^ÓCćŞ|^iR[h|^i|^jšR[h|^jš" ''¤iĘCłćĘ
'2010/09/08 iwai RR[h¨iR[hÉĎXAiAAjšR[hAjšđÇÁ@END
'2010/09/08 iwai RćŞÇÁ ST
Private Enum EnLostDiv
EnLostDiv_Lost = 0 ''i
EnLostDiv_Hason ''jš
End Enum
'2010/09/08 iwai RćŞÇÁ END
'Private UPD_MACHINE_NO As
Integer = 1 ''XV[No.idŞXVf[^ÇÁpj
Dim glEditRow As
Integer 'ŇWs
Dim glPGState As
EnPGState 'ťÝĚPGóÔ
Dim gsLastLkTime As
String 'ĹßĚrźÔ
Dim gPrevActivCtlNM As
String = "" 'źOÉANeBuÉČÁĢ˝Rg[ĚźĚ
#Region " Windows tH[ fUCiĹśŹłę˝R[h "
Public Sub New()
MyBase.New()
' ąĚÄŃoľÍ
Windows tH[ fUCiĹKvšB
InitializeComponent()
'
InitializeComponent() ÄŃoľĚăÉúťđÇÁľÜˇB
End Sub
' Form Í
dispose đI[o[ChľÄR|[lgęđÁľÜˇB
Protected Overloads
Overrides Sub Dispose(ByVal disposing As Boolean)
If
disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End
If
MyBase.Dispose(disposing)
End Sub
' Windows tH[ fUCiĹKvšB
Private components As
System.ComponentModel.IContainer
' : ČşĚvV[WÍAWindows
tH[ fUCiĹKvšB
' Windows tH[ fUCiđgÁÄĎXľÄžł˘B
' R[h GfB^ÍgpľČ˘Ĺžł˘B
Friend WithEvents
ClockStatusBar1 As UserControl.ClockStatusBar
Friend WithEvents Store
As System.Windows.Forms.TabPage
Friend WithEvents tpMerch
As System.Windows.Forms.TabPage
Friend WithEvents lblTDay_S
As System.Windows.Forms.Label
Friend WithEvents MailNo_S
As System.Windows.Forms.Label
Friend WithEvents lblJanCD
As System.Windows.Forms.Label
Friend WithEvents
lblChainCD_S As System.Windows.Forms.Label
Friend WithEvents
txtChainCD_S As System.Windows.Forms.TextBox
Friend WithEvents
txtMailNo_S As System.Windows.Forms.TextBox
Friend WithEvents txtJanCD
As System.Windows.Forms.TextBox
Friend WithEvents
lblMerchNM As System.Windows.Forms.Label
Friend WithEvents
lblStoreNM As System.Windows.Forms.Label
Friend WithEvents
txtStoreCD As System.Windows.Forms.TextBox
Friend WithEvents
txtMailNo_M As System.Windows.Forms.TextBox
Friend WithEvents
txtChainCD_M As System.Windows.Forms.TextBox
Friend WithEvents
lblChainCD_M As System.Windows.Forms.Label
Friend WithEvents
lblStoreCD As System.Windows.Forms.Label
Friend WithEvents
lblMailNo_M As System.Windows.Forms.Label
Friend WithEvents lblTDay_M
As System.Windows.Forms.Label
Friend WithEvents GrdList
As C1.Win.C1FlexGrid.C1FlexGrid
Friend WithEvents
TabDirectory As System.Windows.Forms.TabControl
Friend WithEvents
txtDelivDay_S As System.Windows.Forms.TextBox
Friend WithEvents
txtDelivDay_M As System.Windows.Forms.TextBox
Friend WithEvents FooterBtn
As UserControl.FooterButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim
resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(FrmSRT0050))
Me.ClockStatusBar1 = New UserControl.ClockStatusBar
Me.FooterBtn = New UserControl.FooterButton
Me.TabDirectory = New System.Windows.Forms.TabControl
Me.Store
= New System.Windows.Forms.TabPage
Me.lblMerchNM = New System.Windows.Forms.Label
Me.txtJanCD = New System.Windows.Forms.TextBox
Me.txtMailNo_S = New System.Windows.Forms.TextBox
Me.txtChainCD_S = New System.Windows.Forms.TextBox
Me.txtDelivDay_S = New System.Windows.Forms.TextBox
Me.lblChainCD_S = New System.Windows.Forms.Label
Me.lblJanCD = New System.Windows.Forms.Label
Me.MailNo_S
= New System.Windows.Forms.Label
Me.lblTDay_S = New System.Windows.Forms.Label
Me.tpMerch = New System.Windows.Forms.TabPage
Me.lblStoreNM = New System.Windows.Forms.Label
Me.txtStoreCD = New System.Windows.Forms.TextBox
Me.txtMailNo_M = New System.Windows.Forms.TextBox
Me.txtChainCD_M = New System.Windows.Forms.TextBox
Me.txtDelivDay_M = New System.Windows.Forms.TextBox
Me.lblChainCD_M = New System.Windows.Forms.Label
Me.lblStoreCD = New System.Windows.Forms.Label
Me.lblMailNo_M = New System.Windows.Forms.Label
Me.lblTDay_M = New System.Windows.Forms.Label
Me.GrdList = New C1.Win.C1FlexGrid.C1FlexGrid
Me.TabDirectory.SuspendLayout()
Me.Store.SuspendLayout()
Me.tpMerch.SuspendLayout()
CType(Me.GrdList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ClockStatusBar1
'
Me.ClockStatusBar1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.ClockStatusBar1.Font = New System.Drawing.Font("lr SVbN",
9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.ClockStatusBar1.Location = New System.Drawing.Point(0, 549)
Me.ClockStatusBar1.Name = "ClockStatusBar1"
Me.ClockStatusBar1.Size = New System.Drawing.Size(792, 24)
Me.ClockStatusBar1.SizePnlDate = 100
Me.ClockStatusBar1.SizePnlInfo = 592
Me.ClockStatusBar1.SizePnlTime = 100
Me.ClockStatusBar1.TabIndex = 0
Me.ClockStatusBar1.TextPnlInfo = ""
'
'FooterBtn
'
Me.FooterBtn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.FooterBtn.F1_Enable = True
Me.FooterBtn.F1_Text = "(F1)"
Me.FooterBtn.F10_Enable = True
Me.FooterBtn.F10_Text = "(F10)"
Me.FooterBtn.F11_Enable = True
Me.FooterBtn.F11_Text = "(F11)"
Me.FooterBtn.F12_Enable = True
Me.FooterBtn.F12_Text = "(F12)"
Me.FooterBtn.F2_Enable = True
Me.FooterBtn.F2_Text = "(F2)"
Me.FooterBtn.F3_Enable = True
Me.FooterBtn.F3_Text = "(F3)"
Me.FooterBtn.F4_Enable = True
Me.FooterBtn.F4_Text = "(F4)"
Me.FooterBtn.F5_Enable = True
Me.FooterBtn.F5_Text = "(F5)"
Me.FooterBtn.F6_Enable = True
Me.FooterBtn.F6_Text = "(F6)"
Me.FooterBtn.F7_Enable = True
Me.FooterBtn.F7_Text = "(F7)"
Me.FooterBtn.F8_Enable = True
Me.FooterBtn.F8_Text = "(F8)"
Me.FooterBtn.F9_Enable = True
Me.FooterBtn.F9_Text = "(F9)"
Me.FooterBtn.Location = New System.Drawing.Point(0, 484)
Me.FooterBtn.Name = "FooterBtn"
Me.FooterBtn.Size = New System.Drawing.Size(792, 65)
Me.FooterBtn.TabIndex = 1
Me.FooterBtn.TabStop = False
'
'TabDirectory
'
Me.TabDirectory.Controls.Add(Me.Store)
Me.TabDirectory.Controls.Add(Me.tpMerch)
Me.TabDirectory.Font = New System.Drawing.Font("lr SVbN",
12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.TabDirectory.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TabDirectory.ItemSize = New System.Drawing.Size(92, 20)
Me.TabDirectory.Location = New System.Drawing.Point(7, 12)
Me.TabDirectory.Name = "TabDirectory"
Me.TabDirectory.SelectedIndex = 0
Me.TabDirectory.Size = New System.Drawing.Size(774, 154)
Me.TabDirectory.TabIndex = 2
Me.TabDirectory.TabStop = False
'
'Store
'
Me.Store.Controls.Add(Me.lblMerchNM)
Me.Store.Controls.Add(Me.txtJanCD)
Me.Store.Controls.Add(Me.txtMailNo_S)
Me.Store.Controls.Add(Me.txtChainCD_S)
Me.Store.Controls.Add(Me.txtDelivDay_S)
Me.Store.Controls.Add(Me.lblChainCD_S)
Me.Store.Controls.Add(Me.lblJanCD)
Me.Store.Controls.Add(Me.MailNo_S)
Me.Store.Controls.Add(Me.lblTDay_S)
Me.Store.Location
= New System.Drawing.Point(4, 24)
Me.Store.Name
= "Store"
Me.Store.Size
= New System.Drawing.Size(766, 126)
Me.Store.TabIndex
= 0
Me.Store.Text
= "¤iĘXÜŔŃCł"
'
'lblMerchNM
'
Me.lblMerchNM.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblMerchNM.Location = New System.Drawing.Point(257, 87)
Me.lblMerchNM.Name = "lblMerchNM"
Me.lblMerchNM.Size = New System.Drawing.Size(502, 24)
Me.lblMerchNM.TabIndex = 8
Me.lblMerchNM.Text
= "XXXXXXXXX1XXXXXXXXX2XXXXXXXXX3XXXXXXXXX4XXXXXXXXX5XXXXXXXXX6"
Me.lblMerchNM.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'txtJanCD
'
Me.txtJanCD.Font = New System.Drawing.Font("lr SVbN", 14.25!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128,
Byte))
Me.txtJanCD.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtJanCD.Location = New System.Drawing.Point(112, 86)
Me.txtJanCD.MaxLength = 13
Me.txtJanCD.Name = "txtJanCD"
Me.txtJanCD.Size = New System.Drawing.Size(138, 26)
Me.txtJanCD.TabIndex = 7
Me.txtJanCD.Text = "9999999999999"
'
'txtMailNo_S
'
Me.txtMailNo_S.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtMailNo_S.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtMailNo_S.Location = New System.Drawing.Point(112, 48)
Me.txtMailNo_S.MaxLength = 2
Me.txtMailNo_S.Name = "txtMailNo_S"
Me.txtMailNo_S.Size = New System.Drawing.Size(28, 26)
Me.txtMailNo_S.TabIndex = 6
Me.txtMailNo_S.Text = "99"
'
'txtChainCD_S
'
Me.txtChainCD_S.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtChainCD_S.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtChainCD_S.Location = New System.Drawing.Point(344, 10)
Me.txtChainCD_S.MaxLength = 8
Me.txtChainCD_S.Name = "txtChainCD_S"
Me.txtChainCD_S.Size = New System.Drawing.Size(90, 26)
Me.txtChainCD_S.TabIndex = 5
Me.txtChainCD_S.Text = "99999999"
'
'txtDelivDay_S
'
Me.txtDelivDay_S.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtDelivDay_S.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtDelivDay_S.Location = New System.Drawing.Point(112, 10)
Me.txtDelivDay_S.MaxLength = 10
Me.txtDelivDay_S.Name = "txtDelivDay_S"
Me.txtDelivDay_S.Size = New System.Drawing.Size(110, 26)
Me.txtDelivDay_S.TabIndex = 4
Me.txtDelivDay_S.Text = "9999/99/99"
'
'lblChainCD_S
'
Me.lblChainCD_S.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblChainCD_S.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblChainCD_S.Location = New System.Drawing.Point(238, 8)
Me.lblChainCD_S.Name = "lblChainCD_S"
Me.lblChainCD_S.Size
= New System.Drawing.Size(96, 30)
Me.lblChainCD_S.TabIndex = 3
Me.lblChainCD_S.Text = "`F[R[h"
Me.lblChainCD_S.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblJanCD
'
Me.lblJanCD.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblJanCD.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblJanCD.Location = New System.Drawing.Point(6, 84)
Me.lblJanCD.Name = "lblJanCD"
Me.lblJanCD.Size = New System.Drawing.Size(96, 30)
Me.lblJanCD.TabIndex = 2
Me.lblJanCD.Text = "JANR[h"
Me.lblJanCD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'MailNo_S
'
Me.MailNo_S.BackColor
= System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(128,
Byte))
Me.MailNo_S.BorderStyle
= System.Windows.Forms.BorderStyle.Fixed3D
Me.MailNo_S.Location
= New System.Drawing.Point(6, 46)
Me.MailNo_S.Name
= "MailNo_S"
Me.MailNo_S.Size
= New System.Drawing.Size(96, 30)
Me.MailNo_S.TabIndex
= 1
Me.MailNo_S.Text
= "ÖNo."
Me.MailNo_S.TextAlign
= System.Drawing.ContentAlignment.MiddleCenter
'
'lblTDay_S
'
Me.lblTDay_S.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblTDay_S.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblTDay_S.Location = New System.Drawing.Point(6, 8)
Me.lblTDay_S.Name = "lblTDay_S"
Me.lblTDay_S.Size = New System.Drawing.Size(96, 30)
Me.lblTDay_S.TabIndex = 0
Me.lblTDay_S.Text = "út"
Me.lblTDay_S.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'tpMerch
'
Me.tpMerch.Controls.Add(Me.lblStoreNM)
Me.tpMerch.Controls.Add(Me.txtStoreCD)
Me.tpMerch.Controls.Add(Me.txtMailNo_M)
Me.tpMerch.Controls.Add(Me.txtChainCD_M)
Me.tpMerch.Controls.Add(Me.txtDelivDay_M)
Me.tpMerch.Controls.Add(Me.lblChainCD_M)
Me.tpMerch.Controls.Add(Me.lblStoreCD)
Me.tpMerch.Controls.Add(Me.lblMailNo_M)
Me.tpMerch.Controls.Add(Me.lblTDay_M)
Me.tpMerch.Location = New System.Drawing.Point(4, 24)
Me.tpMerch.Name = "tpMerch"
Me.tpMerch.Size = New System.Drawing.Size(766, 126)
Me.tpMerch.TabIndex = 1
Me.tpMerch.Text = "XÜʤiŔŃCł"
'
'lblStoreNM
'
Me.lblStoreNM.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblStoreNM.Location = New System.Drawing.Point(210, 87)
Me.lblStoreNM.Name = "lblStoreNM"
Me.lblStoreNM.Size = New System.Drawing.Size(258, 24)
Me.lblStoreNM.TabIndex = 17
Me.lblStoreNM.Text = "XXXXXXXXX1XXXXXXXXX2XXXXXXXXX3"
Me.lblStoreNM.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'txtStoreCD
'
Me.txtStoreCD.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtStoreCD.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtStoreCD.Location = New System.Drawing.Point(112, 86)
Me.txtStoreCD.MaxLength = 8
Me.txtStoreCD.Name = "txtStoreCD"
Me.txtStoreCD.Size = New System.Drawing.Size(90, 26)
Me.txtStoreCD.TabIndex = 16
Me.txtStoreCD.Text = "99999999"
'
'txtMailNo_M
'
Me.txtMailNo_M.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtMailNo_M.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtMailNo_M.Location = New System.Drawing.Point(112, 48)
Me.txtMailNo_M.MaxLength = 2
Me.txtMailNo_M.Name = "txtMailNo_M"
Me.txtMailNo_M.Size = New System.Drawing.Size(28, 26)
Me.txtMailNo_M.TabIndex = 15
Me.txtMailNo_M.Text = "99"
'
'txtChainCD_M
'
Me.txtChainCD_M.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtChainCD_M.ImeMode
= System.Windows.Forms.ImeMode.Disable
Me.txtChainCD_M.Location = New System.Drawing.Point(344, 10)
Me.txtChainCD_M.MaxLength = 8
Me.txtChainCD_M.Name = "txtChainCD_M"
Me.txtChainCD_M.Size = New System.Drawing.Size(90, 26)
Me.txtChainCD_M.TabIndex = 14
Me.txtChainCD_M.Text = "99999999"
'
'txtDelivDay_M
'
Me.txtDelivDay_M.Font = New System.Drawing.Font("lr SVbN",
14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(128, Byte))
Me.txtDelivDay_M.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txtDelivDay_M.Location = New System.Drawing.Point(112, 10)
Me.txtDelivDay_M.MaxLength = 10
Me.txtDelivDay_M.Name = "txtDelivDay_M"
Me.txtDelivDay_M.Size = New System.Drawing.Size(110, 26)
Me.txtDelivDay_M.TabIndex = 13
Me.txtDelivDay_M.Text = "9999/99/99"
'
'lblChainCD_M
'
Me.lblChainCD_M.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblChainCD_M.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblChainCD_M.Location = New System.Drawing.Point(238, 8)
Me.lblChainCD_M.Name = "lblChainCD_M"
Me.lblChainCD_M.Size = New System.Drawing.Size(96, 30)
Me.lblChainCD_M.TabIndex = 12
Me.lblChainCD_M.Text = "`F[R[h"
Me.lblChainCD_M.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblStoreCD
'
Me.lblStoreCD.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblStoreCD.BorderStyle =
System.Windows.Forms.BorderStyle.Fixed3D
Me.lblStoreCD.Location = New System.Drawing.Point(6, 84)
Me.lblStoreCD.Name = "lblStoreCD"
Me.lblStoreCD.Size = New System.Drawing.Size(96, 30)
Me.lblStoreCD.TabIndex = 11
Me.lblStoreCD.Text = "XÜR[h"
Me.lblStoreCD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblMailNo_M
'
Me.lblMailNo_M.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblMailNo_M.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblMailNo_M.Location = New System.Drawing.Point(6, 46)
Me.lblMailNo_M.Name = "lblMailNo_M"
Me.lblMailNo_M.Size = New System.Drawing.Size(96, 30)
Me.lblMailNo_M.TabIndex = 10
Me.lblMailNo_M.Text = "ÖNo."
Me.lblMailNo_M.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblTDay_M
'
Me.lblTDay_M.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(255, Byte), CType(128, Byte))
Me.lblTDay_M.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblTDay_M.Location = New System.Drawing.Point(6, 8)
Me.lblTDay_M.Name = "lblTDay_M"
Me.lblTDay_M.Size = New System.Drawing.Size(96, 30)
Me.lblTDay_M.TabIndex = 9
Me.lblTDay_M.Text = "út"
Me.lblTDay_M.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'GrdList
'
Me.GrdList.AllowDragging = C1.Win.C1FlexGrid.AllowDraggingEnum.None
Me.GrdList.AllowEditing = False
Me.GrdList.AllowResizing = C1.Win.C1FlexGrid.AllowResizingEnum.None
Me.GrdList.AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
Me.GrdList.BackColor = System.Drawing.SystemColors.Window
Me.GrdList.ColumnInfo = "7,0,0,0,0,80,Columns:"
Me.GrdList.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None
Me.GrdList.Font = New System.Drawing.Font("lr SVbN", 9.0!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.GrdList.ForeColor = System.Drawing.SystemColors.WindowText
Me.GrdList.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.GrdList.KeyActionEnter = C1.Win.C1FlexGrid.KeyActionEnum.None
Me.GrdList.Location = New System.Drawing.Point(8, 178)
Me.GrdList.Name = "GrdList"
Me.GrdList.Rows.Count = 1
Me.GrdList.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Row
Me.GrdList.Size = New System.Drawing.Size(772, 292)
Me.GrdList.Styles = New
C1.Win.C1FlexGrid.CellStyleCollection("Normal{Font:lr SVbN,
9pt;}" & Microsoft.VisualBasic.ChrW(9) &
"Fixed{BackColor:Control;ForeColor:ControlText;Border:F" & _
"lat,1,ControlDark,Both;}"
& Microsoft.VisualBasic.ChrW(9) &
"Highlight{BackColor:Highlight;ForeColor:HighlightText;}" & _
"" & Microsoft.VisualBasic.ChrW(9) &
"Search{BackColor:Highlight;ForeColor:HighlightText;}" &
Microsoft.VisualBasic.ChrW(9) & "Frozen{BackColor:Beige;}" &
Microsoft.VisualBasic.ChrW(9) & "E" & _
"mptyArea{BackColor:AppWorkspace;Border:Flat,1,ControlDarkDark,Both;}"
& Microsoft.VisualBasic.ChrW(9) & "GrandTotal{" & _
"BackColor:Black;ForeColor:White;}" & Microsoft.VisualBasic.ChrW(9)
& "Subtotal0{BackColor:ControlDarkDark;ForeColor:" & _
"White;}" & Microsoft.VisualBasic.ChrW(9) &
"Subtotal1{BackColor:ControlDarkDark;ForeColor:White;}" &
Microsoft.VisualBasic.ChrW(9) & "Subtotal2{BackColo" & _
"r:ControlDarkDark;ForeColor:White;}" &
Microsoft.VisualBasic.ChrW(9) &
"Subtotal3{BackColor:ControlDarkDark;ForeColo" & _
"r:White;}" & Microsoft.VisualBasic.ChrW(9) &
"Subtotal4{BackColor:ControlDarkDark;ForeColor:White;}" &
Microsoft.VisualBasic.ChrW(9) & "Subtotal5{BackCo" & _
"lor:ControlDarkDark;ForeColor:White;}" &
Microsoft.VisualBasic.ChrW(9))
Me.GrdList.TabIndex = 3
Me.GrdList.TabStop = False
'
'FrmSRT0050
'
Me.AutoScaleBaseSize = New System.Drawing.Size(7, 13)
Me.ClientSize = New System.Drawing.Size(792, 573)
Me.Controls.Add(Me.GrdList)
Me.Controls.Add(Me.TabDirectory)
Me.Controls.Add(Me.FooterBtn)
Me.Controls.Add(Me.ClockStatusBar1)
Me.Font = New System.Drawing.Font("lr SVbN", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128,
Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"),
System.Drawing.Icon)
Me.KeyPreview = True
Me.MaximizeBox = False
Me.Name = "FrmSRT0050"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "dŞŔŃCł"
Me.TabDirectory.ResumeLayout(False)
Me.Store.ResumeLayout(False)
Me.tpMerch.ResumeLayout(False)
CType(Me.GrdList, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
'------------------------------------------------------------------------------
' ÖźGForm_Load
' ř@FČľ
' ßčlFČľ
' ŕž@FtH[[hĚiúťj
'------------------------------------------------------------------------------
Private Sub FrmSRT0050_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
''Âśé{^łřť
CloseBtnDisabled(Me)
''üÍ{bNXĚúť
InitTxtInp()
''ObhĚÝč
InitGridTitle()
''{^Ěúť
InitCmdProc()
txtMailNo_S.Select()
End Sub
'------------------------------------------------------------------------------
' ÖźGFrmSRT0050_Closed
' ř@FČľ
' ßčlFČľ
' ŕž@FtH[N[YĚiDBđÂśéj
'------------------------------------------------------------------------------
Private Sub
FrmSRT0050_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles
MyBase.Closed
''DBN[Y
OracleDB.ORCL_Close()
End Sub
'------------------------------------------------------------------------------
' ÖźGInitGridTitle
' ř@FČľ
' ßčlFČľ
' ŕž@FObhĚÝčiťÝ\ŚłęĢé^uÔÉćčĎťj
'------------------------------------------------------------------------------
Private Sub InitGridTitle()
Dim
liCnt As Integer
Dim
lOrder As Long
With GrdList
.Col = 0
.Row = 0
.Cols.Count = 1
.Rows.Count = 1
.Cols.Count = 10
''ńĚTCYAńtH[}bgĚÝč
.Cols(EnColList.EnCol_Col3).Width = 55
.Cols(EnColList.EnCol_Col3).Format = "###,##0"
.Cols(EnColList.EnCol_Col3).DataType = GetType(Integer)
.Cols(EnColList.EnCol_Col4).Width = 55
.Cols(EnColList.EnCol_Col4).Format = "###,##0"
.Cols(EnColList.EnCol_Col4).DataType = GetType(Integer)
.Cols(EnColList.EnCol_Col5).Width = 55
.Cols(EnColList.EnCol_Col5).Format = "###,##0"
.Cols(EnColList.EnCol_Col5).DataType = GetType(Integer)
.Cols(EnColList.EnCol_Col6).Width = 55
.Cols(EnColList.EnCol_Col6).Format = ZeroFormat("", 1)
.Cols(EnColList.EnCol_Col6).DataType = GetType(Integer)
.Cols(EnColList.EnCol_Col7).Width = 55
.Cols(EnColList.EnCol_Col7).Format = ZeroFormat("", 6)
.Cols(EnColList.EnCol_Col7).DataType = GetType(Integer)
''2010/09/08 iwai iAjšR[hAjšpÉÇÁ ST
.Cols(EnColList.EnCol_Col8).Width = 55
.Cols(EnColList.EnCol_Col8).Format = ZeroFormat("", 5)
.Cols(EnColList.EnCol_Col8).DataType = GetType(Integer)
.Cols(EnColList.EnCol_Col9).Width = 55
.Cols(EnColList.EnCol_Col9).Format = ZeroFormat("", 6)
.Cols(EnColList.EnCol_Col9).DataType = GetType(Integer)
.Cols(EnColList.EnCol_Col10).Width = 55
.Cols(EnColList.EnCol_Col10).Format = ZeroFormat("", 5)
.Cols(EnColList.EnCol_Col10).DataType = GetType(Integer)
''2010/09/08 iwai iAjšR[hAjšpÉÇÁ END
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
SetFormatString(GrdList, CsTitle1)
.Cols(EnColList.EnCol_Col1).Width = 80
.Cols(EnColList.EnCol_Col1).Format = ZeroFormat("", 8)
.Cols(EnColList.EnCol_Col2).Width = 195
.Cols(EnColList.EnCol_Col2).Format = ""
Case EnTab.EnTab_Merch
SetFormatString(GrdList, CsTitle2)
.Cols(EnColList.EnCol_Col1).Width = 95
.Cols(EnColList.EnCol_Col1).Format = ZeroFormat("", 13)
''2010/09/08 iwai ęÉűÜéć¤ÉđCł ST
'.Cols(EnColList.EnCol_Col2).Width = 380
.Cols(EnColList.EnCol_Col2).Width = 230
''2010/09/08 iwai ęÉűÜéć¤ÉđCł END
.Cols(EnColList.EnCol_Col2).Format = ""
End Select
End
With
End Sub
'------------------------------------------------------------------------------
' ÖźGInitTxtInp
' ř@FČľ
' ßčlFČľ
' ŕž@FüÍ{bNXúť
'------------------------------------------------------------------------------
Private Sub InitTxtInp()
txtDelivDay_S.Text = OracleDB.GetDelivDate()
txtDelivDay_M.Text = OracleDB.GetDelivDate()
txtChainCD_S.Text = ZeroFormat(gIni.IniDefChainCD, 8)
txtChainCD_M.Text = ZeroFormat(gIni.IniDefChainCD, 8)
'2010/08/26 pt.ta-fujii ÖR[h`FbNÎ
'txtMailNo_S.Text = vbNullString
'txtMailNo_M.Text = vbNullString
txtMailNo_S.Text = "01"
txtMailNo_M.Text = "01"
txtJanCD.Text = vbNullString
txtStoreCD.Text = vbNullString
lblMerchNM.Text = vbNullString
lblStoreNM.Text = vbNullString
End Sub
'------------------------------------------------------------------------------
' ÖźFInitCmdProc
' ř@FČľ
' ßčlFČľ
' ŕž@F{^ĚúÝč
'------------------------------------------------------------------------------
Private Sub InitCmdProc()
FooterBtn.F1_Enable = False
FooterBtn.F2_Text = "XV" & vbCrLf & "(F2)"
FooterBtn.F3_Enable = False
FooterBtn.F4_Enable = False
FooterBtn.F5_Text = "ő" & vbCrLf & "(F5)"
FooterBtn.F6_Text = "R[h" & vbCrLf & "ę"
& vbCrLf & "(F6)"
FooterBtn.F7_Enable = False
FooterBtn.F8_Text = "mč" & vbCrLf & "(F8)"
FooterBtn.F9_Text = "ćÁ" & vbCrLf & "(F9)"
FooterBtn.F10_Enable = False
FooterBtn.F11_Enable = False
FooterBtn.F12_Text = "ú" & vbCrLf & "ćĘ"
& vbCrLf & "(F12)"
SetCmdProcState(EnPGState.Init)
End Sub
'------------------------------------------------------------------------------
' ÖźFSetCmdProcState
' ř@Fstate
- ĚóÔ
' ßčlFČľ
' ŕž@F{^ĚgpÂAsÂóÔĚÝč
'------------------------------------------------------------------------------
Private Sub
SetCmdProcState(
Case EnPGState.Init ''úóÔ
FooterBtn.F2_Enable = False
FooterBtn.F5_Enable = True
FooterBtn.F6_Enable = False
FooterBtn.F8_Enable = False
FooterBtn.F9_Enable = False
FooterBtn.F12_Enable = True
Case EnPGState.DspStore ''XÜĘCłAőĘ\Ś
If txtDelivDay_S.Text = OracleDB.GetDelivDate Then
FooterBtn.F2_Enable = True
Else
FooterBtn.F2_Enable = False
End If
FooterBtn.F5_Enable = False
FooterBtn.F6_Enable = False
FooterBtn.F8_Enable = False
FooterBtn.F9_Enable = True
FooterBtn.F12_Enable = False
Case EnPGState.EditStore ''XÜĘCłAf[^ŇW
FooterBtn.F2_Enable =
False
FooterBtn.F5_Enable = False
FooterBtn.F6_Enable = False
FooterBtn.F8_Enable = True
FooterBtn.F9_Enable = True
FooterBtn.F12_Enable = False
Case EnPGState.DspMerch ''¤iĘCłAőĘ\Ś
If txtDelivDay_M.Text = OracleDB.GetDelivDate Then
FooterBtn.F2_Enable = True
Else
FooterBtn.F2_Enable = False
End If
FooterBtn.F5_Enable = False
FooterBtn.F6_Enable = False
FooterBtn.F8_Enable = False
FooterBtn.F9_Enable = True
FooterBtn.F12_Enable = False
Case EnPGState.EditMerch ''¤iĘCłAf[^ŇW
FooterBtn.F2_Enable = False
FooterBtn.F5_Enable = False
FooterBtn.F6_Enable = False
FooterBtn.F8_Enable = True
FooterBtn.F9_Enable = True
FooterBtn.F12_Enable = False
Case EnPGState.RetInpStore ''XÜĘCłAf[^ŇWmčă
FooterBtn.F2_Enable = False
FooterBtn.F5_Enable = True
FooterBtn.F6_Enable = True
FooterBtn.F8_Enable = False
FooterBtn.F9_Enable = False
FooterBtn.F12_Enable = True
End
Select
End Sub
''YYYY/MM/DDútśńđYYYYMMDDút`ŽĚśńÉϡˇé
Private Function
GetDateString(ByVal aDate As String)
If
aDate.Length = 8 Then
Return aDate
Else
Return Mid(aDate, 1, 4) & Mid(aDate, 6, 2) & Mid(aDate, 9, 2)
End
If
End Function
'------------------------------------------------------------------------------
' ÖźGTabDirectory_Click
' ř@F
' ßčlFČľ
' ŕž@F^uNbNĚiObhđÝčj
'------------------------------------------------------------------------------
Private Sub
TabDirectory_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
TabDirectory.Click
InitGridTitle()
FooterBtn.F6_Enable = False
End Sub
'------------------------------------------------------------------------------
' ÖźGTxtInp_GotFocus
' ř@F
' ßčlFČľ
' ŕž@FüÍ{bNXŞtH[JXđž˝ĆŤĚiSIđAúttH[}bgđj
'------------------------------------------------------------------------------
Private Sub
TxtInp_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
txtDelivDay_S.Enter, txtDelivDay_M.Enter, txtChainCD_S.Enter,
txtChainCD_M.Enter, _
txtMailNo_S.Enter, txtMailNo_M.Enter, txtJanCD.Enter, txtStoreCD.Enter
Dim
TxtInp As TextBox
TxtInp = CType(sender, TextBox)
Select Case TxtInp.Name
Case "txtChainCD_S", "txtChainCD_M", "txtJanCD",
"txtStoreCD"
FooterBtn.F6_Enable = True
Case Else
FooterBtn.F6_Enable = False
End
Select
TxtInp.Text = Trim(TxtInp.Text)
TxtInp.SelectAll()
''ú
Select Case TxtInp.Name
Case "txtDelivDay_S", "txtDelivDay_M"
TxtInp.Text = FormatDateStr(TxtInp.Text, "yyyyMMdd")
TxtInp.MaxLength
= 8
TxtInp.SelectAll()
End
Select
End Sub
'------------------------------------------------------------------------------
' ÖźFTxtInp_LostFocus
' ř@F
' ßčlFČľ
' ŕž@FüÍ{bNXŞtH[JXđ¸Á˝ĆŤĚ
' @@@ iúttH[}bgAO[ŇWA¤iEXÜźĚćžj
'------------------------------------------------------------------------------
Private Sub
TxtInp_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
txtDelivDay_S.Leave, txtDelivDay_M.Leave, txtChainCD_S.Leave,
txtChainCD_M.Leave, _
txtMailNo_S.Leave, txtMailNo_M.Leave, txtJanCD.Leave, txtStoreCD.Leave
Dim
TxtInp As TextBox
TxtInp = CType(sender, TextBox)
gPrevActivCtlNM = TxtInp.Name
Select Case TxtInp.Name
Case "txtDelivDay_S", "txtDelivDay_M" '' út
TxtInp.MaxLength = 10
TxtInp.Text = FormatDateStr(TxtInp.Text, "yyyy/MM/dd")
Case "txtChainCD_S", "txtChainCD_M",
"txtMailNo_S", "txtMailNo_M" ''`F[R[hAÖNo.
If TxtInp.Text = vbNullString Then Exit Sub
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
Case "txtJanCD" ''JANR[h
If TxtInp.Text = vbNullString Then
lblMerchNM.Text = ""
Exit Sub
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
lblMerchNM.Text = OracleDB.GetJanNm(txtChainCD_S.Text, TxtInp.Text)
Case "txtStoreCD" ''XÜR[h
If TxtInp.Text = vbNullString Then
lblStoreNM.Text = ""
Exit Sub
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
lblStoreNM.Text = OracleDB.GetStoreNm(txtChainCD_M.Text, TxtInp.Text)
End
Select
End Sub
'------------------------------------------------------------------------------
' ÖźFTxtInp_MouseDown
' ř@F
' ßčlFČľ
' ŕž@FeLXg{bNX}EX_E
' @@@ iúttH[}bgAO[ŇWA¤iEXÜźĚćžj
'------------------------------------------------------------------------------
Private Sub
TxtInp_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles _
txtDelivDay_S.MouseDown, txtDelivDay_M.MouseDown, txtChainCD_S.MouseDown,
txtChainCD_M.MouseDown, _
txtMailNo_S.MouseDown,
txtMailNo_M.MouseDown, txtJanCD.MouseDown, txtStoreCD.MouseDown
sender.SelectAll()
End Sub
'------------------------------------------------------------------------------
' ÖźGTxtInp_KeyPress
' ř@FIndex
- eLXg{bNXĚCfbNXAKeyAscii - üͳ꽜ĚAXL[R[h
' ßčlFČľ
' ŕž@FüÍ{bNXĹĚL[şiABSČOüÍsÂơéj
'------------------------------------------------------------------------------
Private Sub
TxtInp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles _
txtDelivDay_S.KeyPress, txtDelivDay_M.KeyPress, txtChainCD_S.KeyPress,
txtChainCD_M.KeyPress, _
txtMailNo_S.KeyPress, txtMailNo_M.KeyPress, txtJanCD.KeyPress,
txtStoreCD.KeyPress
Select Case e.KeyChar
Case Chr(8) '' BackSpace
Case Chr(48) To Chr(57) '' O`X
Case Else
e.Handled = True
Exit Sub
End
Select
End Sub
'------------------------------------------------------------------------------
' ÖźGFrmSRT0050_KeyDown
' ř@F
' ßčlFČľ
' ŕž@FL[şĚ(tH[JXÚŽ§äAt@NVL[ş)
'------------------------------------------------------------------------------
Private Sub
FrmSRT0050_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Return, Keys.Tab
Select Case Me.ActiveControl.GetType.Name
Case "TextBox"
If Me.ActiveControl.Name = "txtJanCD" Then
txtDelivDay_S.Select()
ElseIf Me.ActiveControl.Name = "txtStoreCD" Then
txtDelivDay_M.Select()
Else
ReturnToTab(Me, e.KeyCode)
End If
End Select
Case Keys.F2
FooterBtn_F2_Click()
Case Keys.F5
FooterBtn_F5_Click()
Case Keys.F6
If FooterBtn.F6_Enable Then
ShowCodeViewForm(Me.ActiveControl().Name)
End If
Case Keys.F8
FooterBtn_F8_Click()
Case Keys.F9
FooterBtn.Select()
FooterBtn_F9_Click()
Case Keys.F12
FooterBtn.Select()
FooterBtn_F12_Click()
End
Select
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F2_Click
' ř@F
' ßčlFČľ
' ŕž@FR}h{^(F2:XV)şĚ
'------------------------------------------------------------------------------
Private Sub
FooterBtn_F2_Click() Handles FooterBtn.F2_Click
If
FooterBtn.F2_Enable = False Then Exit Sub
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
SetHourGlass()
''IđĚsđŰ
'glEditRow = GrdList.Row
'EditMask()
'SetDispState(EnPGState.EditStore)
Case EnTab.EnTab_Merch
SetHourGlass()
''IđĚsđŰ
glEditRow = GrdList.Row
''ܸ¤irźđŠŻć¤ĆÝé
If LockLKMerch_M() Then ''Ź÷
''dŞ[Ěrź`FbN
If ChkLKMerch_Merch() Then ''Y¤iŞdŞ[Ĺ
''uťÝAIđłę˝¤iÍrźĚ˝ßXVĹŤÜšńv
DspMsg("I", OracleDB.GetMSG("GARR0060001"), gSysTitle)
LockOffLkMerch_M()
''ŠŻ˝rźđđ
GoTo FooterBtn_F2_Click_End
End If
Else
''¸s
''uťÝAIđłę˝¤iÍrźĚ˝ßXVĹŤÜšńv
DspMsg("I", OracleDB.GetMSG("GARR0060001"), gSysTitle)
GoTo FooterBtn_F2_Click_End
End If
EditMask()
SetDispState(EnPGState.EditMerch)
End
Select
FooterBtn_F2_Click_End:
ResetHourGlass()
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F5_Click
' ř@F
' ßčlFČľ
' ŕž@FR}h{^(F5:ő)şĚ
'------------------------------------------------------------------------------
Private Sub
FooterBtn_F5_Click() Handles FooterBtn.F5_Click
If
FooterBtn.F5_Enable = False Then Exit Sub
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
SetHourGlass()
' üÍl`FbN
If Not ChkTxtInput() Then GoTo FooterBtn_F5_Click_End
' f[^ő
If Not Search_StoreSep() Then
txtMailNo_S.Select()
GoTo FooterBtn_F5_Click_End
End If
''ܸ¤irźđŠŻć¤ĆÝé
If LockLKMerch_S() Then ''Ź÷
''dŞ[Ěrź`FbN
If ChkLKMerch_Store() Then ''Y¤iŞdŞ[Ĺ
''uťÝAIđłę˝¤iÍrźĚ˝ßXVĹŤÜšńv
DspMsg("I", OracleDB.GetMSG("GARR0060001"), gSysTitle)
LockOffLkMerch_S() ''ŠŻ˝rźđđ
SetDispState(EnPGState.Init)
GoTo FooterBtn_F5_Click_End
End If
Else
''¸s
''uťÝAIđłę˝¤iÍrźĚ˝ßXVĹŤÜšńv
DspMsg("I", OracleDB.GetMSG("GARR0060001"), gSysTitle)
SetDispState(EnPGState.Init)
GoTo FooterBtn_F5_Click_End
End If
EditMask()
SetDispState(EnPGState.EditStore)
'SetDispState(EnPGState.DspStore)
'GrdList.Select()
GoTo FooterBtn_F5_Click_End
Case EnTab.EnTab_Merch
SetHourGlass()
' üÍl`FbN
If ChkTxtInput() = False Then GoTo FooterBtn_F5_Click_End
' f[^ő
If Search_MerchSep() = False Then GoTo FooterBtn_F5_Click_End
EditMask()
SetDispState(EnPGState.DspMerch)
GrdList.Select()
GoTo FooterBtn_F5_Click_End
End
Select
Exit Sub
FooterBtn_F5_Click_End:
ResetHourGlass()
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F8_Click
' ř@F
' ßčlFČľ
' ŕž@FR}h{^(F8:mč)şĚ
'------------------------------------------------------------------------------
Private Sub
FooterBtn_F8_Click() Handles FooterBtn.F8_Click
If
FooterBtn.F8_Enable = False Then Exit Sub
Dim
loDynaset As Object
If
Not InputGridCheck() Then GoTo FooterBtn_F8_Click_End
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store ''XÜĘ
Dim fCommon04 As New frmCommon04(OracleDB)
''SŇmF
If fCommon04.ShowWorkerDialog(loDynaset) <> EnRetCOMMFRM.EnRet_Sel Then
GoTo FooterBtn_F8_Click_End
fCommon04 = Nothing
SetHourGlass()
''f[^XV
If Not UpdateData_Store(loDynaset) Then GoTo FooterBtn_F8_Click_End
''őđüÍÖ
Search_StoreSep()
SetDispState(EnPGState.Init)
txtMailNo_S.Select()
Case EnTab.EnTab_Merch ''¤iĘ
Dim fCommon04 As New frmCommon04(OracleDB)
''SŇmF
If fCommon04.ShowWorkerDialog(loDynaset) <> EnRetCOMMFRM.EnRet_Sel Then
GoTo FooterBtn_F8_Click_End
fCommon04 = Nothing
SetHourGlass()
''f[^XV
If Not UpdateData_Merch(loDynaset) Then GoTo FooterBtn_F8_Click_End
''őđüÍÖ
REM
If Search_MerchSep() = False Then
SetDispState(EnPGState.Init)
txtMailNo_M.Select()
REM
Else
REM
SetDispState(EnPGState.DspMerch)
REM
End If
End
Select
FooterBtn_F8_Click_End:
ResetHourGlass()
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F9_Click
' ř@F
' ßčlFČľ
' ŕž@FR}h{^(F9:ćÁ)şĚ
'------------------------------------------------------------------------------
Private Sub
FooterBtn_F9_Click() Handles FooterBtn.F9_Click
If
FooterBtn.F9_Enable = False Then Exit Sub
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store ''XÜĘ
SetHourGlass()
'Select Case glPGState
'Case EnPGState.DspStore 'őf[^\ŚóÔ
''rźđ
LockOffLkMerch_S()
SetDispState(EnPGState.Init)
'InitTxtInp()
txtMailNo_S.Select()
'Case EnPGState.EditStore 'ŇWóÔ
''rź
'If LockOffLkMerch_S() = False Then GoTo FooterBtn_F9_Click_End
'Search_StoreSep()
'SetDispState(EnPGState.DspStore)
'End Select
Case EnTab.EnTab_Merch ''¤iĘ
SetHourGlass()
Select Case glPGState
Case EnPGState.DspMerch 'őf[^\ŚóÔ
SetDispState(EnPGState.Init)
'InitTxtInp()
txtMailNo_M.Select()
Case EnPGState.EditMerch 'ŇWóÔ
''rź
If LockOffLkMerch_M() = False Then GoTo FooterBtn_F9_Click_End
Search_MerchSep()
SetDispState(EnPGState.DspMerch)
End Select
End
Select
FooterBtn_F9_Click_End:
ResetHourGlass()
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F12_Click
' ř@F
' ßčlFČľ
' ŕž@FR}h{^(F12:Iš)şĚ
'------------------------------------------------------------------------------
Private Sub
FooterBtn_F12_Click() Handles FooterBtn.F12_Click
If
FooterBtn.F12_Enable = False Then Exit Sub
Me.Close()
End Sub
'------------------------------------------------------------------------------*
' @(f)
' ÖźGChkTxtInput
' ř@FČľ
' ßčlFČľ
' ŕž@FüÍlĚ`FbN
'------------------------------------------------------------------------------
Private Function
ChkTxtInput()
Dim
idx As Integer
Dim
loDelivDay As String
Dim
TxtInp As TextBox
ChkTxtInput = False
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store ''XÜĘ
TxtInp = txtDelivDay_S
Case EnTab.EnTab_Merch ''¤iĘ
TxtInp = txtDelivDay_M
End
Select
''ú
loDelivDay = FormatDateStr(TxtInp.Text, "yyyy/MM/dd")
'If
TxtInp.MaxLength = 10 Then ''YYYY/MM/DD
' loDelivDay = TxtInp.Text
'Else
''YYYYMMDD
' loDelivDay = Mid(TxtInp.Text, 1, 4) & "/"
& Mid(TxtInp.Text, 5, 2) & "/" & Mid(TxtInp.Text, 7, 2)
'End If
If
Len(loDelivDay) <> 10 _
Or Not IsDate(loDelivDay) _
Or Not StrCheck(loDelivDay) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End
If
TxtInp.Text = loDelivDay
TxtInp.Refresh()
Select Case TabDirectory.SelectedIndex
''XÜĘ
Case EnTab.EnTab_Store
TxtInp = txtChainCD_S
' `F[R[h
If Not StrCheck(TxtInp.Text) Or Not IsNumeric(TxtInp.Text) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
TxtInp = txtMailNo_S
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
'2010/08/26 pt.ta-fujii ÖR[h`FbNÎ start
If txtMailNo_S.Text > 9 Then
ErrorAway(txtMailNo_S, OracleDB.GetMSG("C9999999023"))
Exit Function
End If
'2010/08/26 pt.ta-fujii ÖR[h`FbNÎ end
' ÖNo
If Not StrCheck(TxtInp.Text) Or Not IsNumeric(TxtInp.Text) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
TxtInp = txtJanCD
' JanR[h
If Not StrCheck(TxtInp.Text) Or Not IsNumeric(TxtInp.Text) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
''¤iĘ
Case EnTab.EnTab_Merch
TxtInp = txtChainCD_M
' `F[R[h
If Not StrCheck(TxtInp.Text) Or Not IsNumeric(TxtInp.Text) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
TxtInp = txtMailNo_M
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
'2010/08/26 pt.ta-fujii ÖR[h`FbNÎ start
If txtMailNo_M.Text > 9 Then
ErrorAway(txtMailNo_M, OracleDB.GetMSG("C9999999023"))
Exit Function
End If
'2010/08/26 pt.ta-fujii ÖR[h`FbNÎ end
' ÖNo
If Not StrCheck(TxtInp.Text) Or Not IsNumeric(TxtInp.Text) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
TxtInp = txtStoreCD
' XÜR[hJ
If Not StrCheck(TxtInp.Text) Or Not IsNumeric(TxtInp.Text) Then
ErrorAway(TxtInp, OracleDB.GetMSG("C9999999003"))
Exit Function
End If
TxtInp.Text = ZeroFormat(TxtInp.Text, TxtInp.MaxLength)
TxtInp.Refresh()
End
Select
ChkTxtInput
= True 'łíl
End Function
'------------------------------------------------------------------------------
' ÖźFSearch_StoreSep
' ř@FČľ
' ßčlFTRUE
- Yf[^ čA FALSE - G[orYf[^Čľ
' ŕž@FXÜĘő
'------------------------------------------------------------------------------
Private Function
Search_StoreSep() As Boolean
On
Error GoTo Search_StoreSepErr
Dim
lsSQL As String
Dim
lsOrderTbl As String
Dim
lsLostTbl As New System.Text.StringBuilder
Dim
loDynaset As Object
Search_StoreSep = False
lsLostTbl.Length = 0
lsLostTbl.Append("(select * from D_LOSTMGR ")
lsLostTbl.AppendFormat("where MGR_DIV = 'S' ")
lsLostTbl.AppendFormat("and DELIV_DAY = '{0}' ",
OracleDB.GetDelivDate())
lsLostTbl.AppendFormat("and CHAIN_CD = {0} ", txtChainCD_S.Text)
lsLostTbl.AppendFormat("and MAIL_NO = {0} ", txtMailNo_S.Text)
lsLostTbl.AppendFormat("and JAN_CD = '{0}') LST ", txtJanCD.Text)
''--f[^ĆJANđŻśe[uÉBBB--
lsOrderTbl = ""
lsOrderTbl = lsOrderTbl & "(SELECT "
''2010/09/08 iwai iAjšRR[hAšÇÁ
lsOrderTbl = lsOrderTbl & " D_ORDER.*, M_STORE.STORE_NM,
LST.RSPNS_DIV, LST.LOST_CD, LST.LOST_NUM, LST.HASON_CD, LST.HASON_NUM"
lsOrderTbl = lsOrderTbl & " FROM D_ORDER, M_MERCHAN, M_STORE, "
& lsLostTbl.ToString
lsOrderTbl = lsOrderTbl & " WHERE D_ORDER.CHAIN_CD =
M_MERCHAN.CHAIN_CD"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.MERCH_CD =
M_MERCHAN.MERCH_CD"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.CHAIN_CD =
M_STORE.CHAIN_CD(+)"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.STORE_CD =
M_STORE.STORE_CD(+)"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.SORT_DAY =
LST.DELIV_DAY(+)"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.CHAIN_CD =
LST.CHAIN_CD(+)"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.MAIL_NO =
LST.MAIL_NO(+)"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.STORE_CD =
LST.STORE_CD(+)"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.SORT_DAY =
TO_DATE('" & txtDelivDay_S.Text & "','YYYY/MM/DD')"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.CHAIN_CD = "
& txtChainCD_S.Text
lsOrderTbl = lsOrderTbl & " AND
D_ORDER.MAIL_NO = " & txtMailNo_S.Text
lsOrderTbl = lsOrderTbl & " AND M_MERCHAN.JAN_CD = '"
& txtJanCD.Text & "'"
lsOrderTbl = lsOrderTbl & " ) O "
''--f[^ćčf[^ćž--
lsSQL = ""
lsSQL = lsSQL & " SELECT"
lsSQL = lsSQL & " O.SORT_DAY"
lsSQL = lsSQL & ",O.CHAIN_CD"
lsSQL = lsSQL & ",O.MAIL_NO"
lsSQL = lsSQL & ",O.JAN_CD"
lsSQL = lsSQL & ",O.STORE_CD"
lsSQL = lsSQL & ",O.STORE_NM"
lsSQL = lsSQL & ",SUM(O.ORDER_NUM) AS SUM_ORDER"
lsSQL = lsSQL & ",SUM(O.RES_SORT) AS SUM_SORT"
lsSQL = lsSQL & ",MIN(O.RSPNS_DIV) AS RSPNS_DIV"
lsSQL = lsSQL & ",MIN(O.LOST_CD) AS LOST_CD"
''2010/09/08 iwai iAjšR[hAjšÇÁ ST
lsSQL = lsSQL & ",MIN(O.LOST_NUM) AS LOST_NUM"
lsSQL = lsSQL & ",MIN(O.HASON_CD) AS HASON_CD"
lsSQL = lsSQL & ",MIN(O.HASON_NUM) AS HASON_NUM"
''2010/09/08 iwai iAjšR[hAjšÇÁ END
lsSQL = lsSQL & " FROM " & lsOrderTbl
lsSQL = lsSQL & " GROUP BY"
lsSQL = lsSQL & " O.SORT_DAY"
lsSQL = lsSQL & ",O.CHAIN_CD"
lsSQL = lsSQL & ",O.MAIL_NO"
lsSQL = lsSQL & ",O.JAN_CD"
lsSQL = lsSQL & ",O.STORE_CD"
lsSQL = lsSQL & ",O.STORE_NM"
lsSQL = lsSQL & " ORDER BY"
lsSQL = lsSQL & " O.SORT_DAY"
lsSQL = lsSQL & ",O.CHAIN_CD"
lsSQL = lsSQL & ",O.MAIL_NO"
lsSQL = lsSQL & ",O.JAN_CD"
lsSQL = lsSQL & ",O.STORE_CD"
OracleDB.ExecuteSQL(loDynaset, lsSQL, "Search_StoreSep")
If
loDynaset.EOF Then
''uYf[^Ş čÜšńv
DspMsg("I", OracleDB.GetMSG("C9999999004"), gSysTitle)
Exit Function
Else
'Xg\Ś
DispList_Store(loDynaset)
End
If
loDynaset.Close()
loDynaset = Nothing
Search_StoreSep = True
Exit Function
Search_StoreSepErr:
Search_StoreSep = False
loDynaset = Nothing
gErrLog.ClearSetLog()
gErrLog.SetLog("", "", "DispStore",
"SRT0050", Err)
''uf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060001") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------*
' @(f)
' ÖźGDispList_Store
' ř@FloDynaset-_CiZbgIuWFNg
' ßčlFČľ
' ŕž@FXÜĘő_CiZbgĚf[^đXgÉ\Ś
'------------------------------------------------------------------------------
Private Sub
DispList_Store(ByVal loDynaset As Object)
On
Error GoTo DispList_StoreErr
Dim
i As Integer
Dim
lsBuf As String
InitGridTitle()
With GrdList
i = 0
Do Until loDynaset.EOF
.Rows.Count = .Rows.Count + 1
i = i + 1
.SetData(i, EnColList.EnCol_Col1,
ZeroFormat(N2NSTR(loDynaset("STORE_CD").Value),
8)) ''XÜR[h
.SetData(i, EnColList.EnCol_Col2,
N2NSTR(loDynaset("STORE_NM").Value))
''XÜź
.SetData(i, EnColList.EnCol_Col3,
N2NSTR(loDynaset("SUM_ORDER").Value))
''
.SetData(i, EnColList.EnCol_Col4, N2NSTR(loDynaset("SUM_SORT").Value))
''ŔŃ
.SetData(i, EnColList.EnCol_Col6,
N2NSTR(loDynaset("RSPNS_DIV").value))
''ÓCćŞ
.SetData(i, EnColList.EnCol_Col7,
N2NSTR(loDynaset("LOST_CD").value))
''RR[h
''2010/09/08 iwai@iAjšR[hAjšđÇÁ ST
.SetData(i, EnColList.EnCol_Col8,
N2NSTR(loDynaset("LOST_NUM").value))
''i
.SetData(i, EnColList.EnCol_Col9,
N2NSTR(loDynaset("HASON_CD").value))
''jšR[h
.SetData(i, EnColList.EnCol_Col10,
N2NSTR(loDynaset("HASON_NUM").value))
''jš
'' iÍjšŞüÍłęĢéęACłđ\Śˇéć¤ÉCł
If StrCheck(.GetData(i, EnColList.EnCol_Col8)) = True Or _
StrCheck(.GetData(i, EnColList.EnCol_Col10)) = True Then
.SetData(i, EnColList.EnCol_Col5, .GetData(i, EnColList.EnCol_Col4))
''Cł
End If
''2010/09/08 iwai@iAjšR[hAjšđÇÁ END
loDynaset.MoveNext()
End
With
Exit Sub
DispList_StoreErr:
gErrLog.ClearSetLog()
gErrLog.SetLog("", "", "DispList_Store",
"SRT0050", Err)
End Sub
'------------------------------------------------------------------------------
' ÖźGEditMask
' ř@FČľ
' ßčlFČľ
' ŕž@FüÍńŽÝč
'------------------------------------------------------------------------------
Private Sub EditMask()
On
Error GoTo EditMaskErr
With GrdList
Select Case TabDirectory.SelectedIndex
'''XÜĘCł
Case EnTab.EnTab_Store
.Cols(EnColList.EnCol_Col5).EditMask = "99999999" ''Cł
.Cols(EnColList.EnCol_Col6).EditMask
= "9" ''ÓCćŞ
.Cols(EnColList.EnCol_Col7).EditMask =
"999999" ''iRR[h
'''¤iĘCł
Case EnTab.EnTab_Merch
.Cols(EnColList.EnCol_Col5).EditMask = "99999999" ''Cł
.Cols(EnColList.EnCol_Col6).EditMask =
"9" ''ÓCćŞ
.Cols(EnColList.EnCol_Col7).EditMask =
"999999" ''iRR[h
End Select
End
With
Exit Sub
EditMaskErr:
gErrLog.ClearSetLog()
gErrLog.SetLog("", "", "EditMask",
"SRT0050", Err)
End Sub
'------------------------------------------------------------------------------
' ÖźFSetDispState
' ř@FState
- óÔ
' ßčlFČľ
' ŕž@FeóÔÉÉΡé\ŚóÔɡé
'------------------------------------------------------------------------------
Private Sub SetDispState(
glPGState = State
Case EnPGState.Init ''úóÔ
TabDirectory.Enabled = True
GrdList.Enabled = False
' f[^ŞśÝˇéę
If GrdList.Rows.Count > 1 Then
GrdList.Row = 0
GrdList.Rows.Count =
1
'NA
End If
Case EnPGState.DspStore
TabDirectory.Enabled = False
GrdList.Enabled = True
''f[^ŞśÝľ˝ę
If GrdList.Rows.Count > 1 Then
GrdList.Row
=
1
'1sÚđIđ
End If
With GrdList
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Row
.Select(.Row,
EnColList.EnCol_Col5)
'CłÚIđ
End With
Case EnPGState.EditStore ''XÜĘCłóÔ
TabDirectory.Enabled = False
GrdList.Enabled = True
SetBackColor(Me)
'üÍ{bNXwiFÝč(StartEditingćčOÉÝčľČ˘ĆFŞcÁ˝ÜÜÉČé˝ßB)
With GrdList
'glEditRow = .Row
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell
.Select(.Row, EnColList.EnCol_Col5)
.StartEditing()
End With
Case EnPGState.DspMerch ''¤iĘőf[^\ŚóÔ
TabDirectory.Enabled = False
GrdList.Enabled = True
''f[^ŞśÝľ˝ę
If GrdList.Rows.Count > 1 Then
GrdList.Row =
1
'1sÚđIđ
End If
With GrdList
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Row
.Select(.Row,
EnColList.EnCol_Col5)
'CłÚIđ
End With
Case EnPGState.EditMerch ''¤iĘf[^CłóÔ
TabDirectory.Enabled = False
GrdList.Enabled = True
With GrdList
glEditRow = .Row
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell
.Select(.Row, EnColList.EnCol_Col5)
.StartEditing()
End With
Case EnPGState.RetInpStore ''XVmčăőđüÍÖßÁ˝ĆŤ(XÜĘCłĚÝ)
TabDirectory.Enabled = True
GrdList.Enabled = False
End
Select
SetCmdProcState(State)
'R}h{^Ýč
SetBackColor(Me)
'üÍ{bNXwiFÝč
End Sub
'------------------------------------------------------------------------------
' @\
: tH[ŕRg[ĚgpsÂFÝč
' Ôčl
:
' řŤ
: aoForm-tH[
' @\ŕž
: Imtxt,Imnum,Imdat,Imtim,CboĚwiFÝč
' @@
: Enabled.FalseĚęwiF
F
' @@
: IvVŞEnabled.FalseĚęśÂÝč
'------------------------------------------------------------------------------
Private Sub
SetBackColor(ByVal aoCtrl As Control)
''[éž]
Dim
loCtrl As Control ''Rg[
For
Each loCtrl In aoCtrl.Controls
If loCtrl.Controls.Count > 0 Then
SetBackColor(loCtrl)
End If
Select Case TypeName(loCtrl)
Case "TextBox",
"ComboBox", "C1FlexGrid"
If loCtrl.Enabled Then
loCtrl.BackColor = SystemColors.Window
Else
loCtrl.BackColor = ColorTranslator.FromOle(DisableBackColor)
End If
Case "RadioButton"
If loCtrl.Enabled Then
loCtrl.ForeColor = SystemColors.ControlText
Else
loCtrl.ForeColor = ColorTranslator.FromOle(DisableForeColor)
End If
End Select
Next loCtrl
End Sub
'------------------------------------------------------------------------------
' ÖźFSearch_MerchSep
' ř@FČľ
' ßčlFTRUE
- Yf[^ čA FALSE - G[orYf[^Čľ
' ŕž@F¤iĘő
'------------------------------------------------------------------------------
Private Function
Search_MerchSep() As Boolean
On
Error GoTo Search_MerchSepErr
Dim
lsSQL As String
Dim
lsOrderTbl As String
Dim
loDynaset As Object
Dim
lsLostTbl As New System.Text.StringBuilder
Dim
lsMainTbl As New System.Text.StringBuilder
Search_MerchSep
= False
''--f[^ĆJANđŻśe[uÉBBB--
lsOrderTbl = ""
lsOrderTbl = lsOrderTbl & "(SELECT "
lsOrderTbl = lsOrderTbl & " D_ORDER.*, M_MERCHAN.CHAIN_CD AS M_CHAINCD
"
lsOrderTbl = lsOrderTbl & " FROM D_ORDER, M_MERCHAN"
lsOrderTbl = lsOrderTbl & " WHERE D_ORDER.CHAIN_CD =
M_MERCHAN.CHAIN_CD"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.MERCH_CD =
M_MERCHAN.MERCH_CD"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.SORT_DAY =
TO_DATE('" & txtDelivDay_M.Text & "','YYYY/MM/DD')"
lsOrderTbl = lsOrderTbl & " AND D_ORDER.CHAIN_CD = "
& txtChainCD_M.Text
lsOrderTbl = lsOrderTbl & " AND D_ORDER.MAIL_NO = "
& txtMailNo_M.Text
lsOrderTbl = lsOrderTbl & " AND D_ORDER.STORE_CD = "
& txtStoreCD.Text
lsOrderTbl = lsOrderTbl & " ) O "
''--f[^ćčf[^ćž--
lsSQL = ""
lsSQL = lsSQL & " SELECT"
lsSQL = lsSQL & " O.SORT_DAY"
lsSQL = lsSQL & ", O.CHAIN_CD"
lsSQL = lsSQL & ", O.MAIL_NO"
lsSQL = lsSQL & ", O.STORE_CD"
lsSQL = lsSQL & ", O.JAN_CD"
lsSQL = lsSQL & ",SUM(O.ORDER_NUM) AS SUM_ORDER"
lsSQL = lsSQL & ",SUM(O.RES_SORT) AS SUM_SORT"
lsSQL = lsSQL & " FROM " & lsOrderTbl
lsSQL = lsSQL & " GROUP BY"
lsSQL = lsSQL & " O.SORT_DAY, O.CHAIN_CD, O.MAIL_NO, O.STORE_CD,
O.JAN_CD"
lsSQL = lsSQL & " ORDER BY"
lsSQL = lsSQL & " O.SORT_DAY, O.CHAIN_CD, O.MAIL_NO, O.STORE_CD,
O.JAN_CD"
'' iRf[^ćž
lsLostTbl.Length = 0
lsLostTbl.AppendFormat("(select * from D_LOSTMGR ")
lsLostTbl.AppendFormat("where MGR_DIV = 'S' ")
lsLostTbl.AppendFormat("and DELIV_DAY = '{0}' ",
OracleDB.GetDelivDate())
lsLostTbl.AppendFormat("and CHAIN_CD = {0} ", txtChainCD_M.Text)
lsLostTbl.AppendFormat("and MAIL_NO = {0} ", txtMailNo_M.Text)
lsLostTbl.AppendFormat("and STORE_CD = {0}) LST ", txtStoreCD.Text)
lsMainTbl.Length = 0
''2010/09/08 iwai iAjšRR[hAšÇÁ
lsMainTbl.Append("select O.*, LST.RSPNS_DIV AS RSPNS_DIV, LST.LOST_CD AS
LOST_CD, LST.LOST_NUM AS LOST_NUM, LST.HASON_CD AS HASON_CD, LST.HASON_NUM AS
HASON_NUM")
lsMainTbl.AppendFormat(" from ({0}) O, {1} ", lsSQL, lsLostTbl.ToString)
lsMainTbl.Append("where O.SORT_DAY = LST.DELIV_DAY(+) ")
lsMainTbl.Append("and O.CHAIN_CD = LST.CHAIN_CD(+) ")
lsMainTbl.Append("and O.MAIL_NO = LST.MAIL_NO(+) ")
lsMainTbl.Append("and O.STORE_CD = LST.STORE_CD(+) ")
lsMainTbl.Append("and O.JAN_CD = LST.JAN_CD(+) ")
OracleDB.ExecuteSQL(loDynaset, lsMainTbl.ToString, "Search_MerchSep")
If
loDynaset.EOF Then
''uYf[^Ş čÜšńv
DspMsg("I", OracleDB.GetMSG("C9999999004"), gSysTitle)
Exit Function
Else
'Xg\Ś
DispList_Merch(loDynaset)
End
If
loDynaset.Close()
loDynaset = Nothing
Search_MerchSep = True
Exit Function
Search_MerchSepErr:
Search_MerchSep = False
gErrLog.ClearSetLog()
gErrLog.SetLog("", "",
"Search_MerchSep", "SRT0050", Err)
''uf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060001") & vbCrLf
& Err.Description, gSysTitle)
loDynaset = Nothing
End Function
'------------------------------------------------------------------------------*
' @(f)
' ÖźGDispList_Merch
' ř@FloDynaset-_CiZbgIuWFNg
' ßčlFČľ
' ŕž@F¤iĘő_CiZbgĚf[^đXgÉ\Ś
'------------------------------------------------------------------------------
Private Sub
DispList_Merch(ByVal loDynaset As Object)
On
Error GoTo DispList_MerchErr
Dim
i As Integer
Dim
lsBuf As String
Call InitGridTitle()
With GrdList
i = 0
Do Until loDynaset.EOF
.Rows.Count = .Rows.Count + 1
i = i + 1
.SetData(i, EnColList.EnCol_Col1, N2NSTR(loDynaset("JAN_CD").Value))
''JANR[h
.SetData(i, EnColList.EnCol_Col2, OracleDB.GetJanNm(txtChainCD_M.Text,
ZeroFormat(N2E(loDynaset("JAN_CD").Value), 13))) ''¤iź
.SetData(i, EnColList.EnCol_Col3, N2NSTR(loDynaset("SUM_ORDER").Value))
''
.SetData(i, EnColList.EnCol_Col4,
N2NSTR(loDynaset("SUM_SORT").Value))
''ŔŃ
.SetData(i, EnColList.EnCol_Col6, N2NSTR(loDynaset("RSPNS_DIV").value))
''ÓCćŞ
.SetData(i, EnColList.EnCol_Col7,
N2NSTR(loDynaset("LOST_CD").value))
''RR[h
''2010/09/08 iwai@iAjšR[hAjšđÇÁ ST
.SetData(i, EnColList.EnCol_Col8,
N2NSTR(loDynaset("LOST_NUM").value))
''i
.SetData(i, EnColList.EnCol_Col9,
N2NSTR(loDynaset("HASON_CD").value))
''jšR[h
.SetData(i, EnColList.EnCol_Col10,
N2NSTR(loDynaset("HASON_NUM").value))
''jš
'' iÍjšŞüÍłęĢéęACłđ\Śˇéć¤ÉCł
If StrCheck(.GetData(i, EnColList.EnCol_Col8)) = True Or _
StrCheck(.GetData(i, EnColList.EnCol_Col10))
= True Then
.SetData(i, EnColList.EnCol_Col5, .GetData(i,
EnColList.EnCol_Col4))
''Cł
End If
''2010/09/08 iwai@iAjšR[hAjšđÇÁ END
loDynaset.MoveNext()
End
With
Exit Sub
DispList_MerchErr:
gErrLog.ClearSetLog()
gErrLog.SetLog("", "", "DispList_Merch",
"SRT0050", Err)
End Sub
'------------------------------------------------------------------------------
'@(f)
' ÖźFChkLKMerch_Store
' ř@FasMachineDiv
- [ćŞ
' ßčlFTRUE:Yf[^ čA@FALSEFYf[^Čľ
' ŕž@FXÜʤirźf[^ĚśÝmF(CŞOČOĚ)
'------------------------------------------------------------------------------
Private Function
ChkLKMerch_Store() As Boolean
On
Error GoTo ChkLKMerch_StoreErr
Dim
lsSQL As String
Dim
loDynaset As Object
Dim
lsLineNo As String
ChkLKMerch_Store = False
''CNo.ćž
'lsLineNo = GetLineNo(txtChainCD_S.Text, txtMailNo_S.Text,
GrdList.GetData(glEditRow, EnColList.EnCol_Col1))
''YˇéCNo.ŞśÝľČ˘
'If
lsLineNo = vbNullString Then Exit Function
lsSQL = ""
lsSQL = lsSQL & " SELECT"
lsSQL = lsSQL & " *"
lsSQL = lsSQL & " FROM"
lsSQL = lsSQL & " D_LKMERCH"
lsSQL = lsSQL & " WHERE"
lsSQL = lsSQL & " DELIV_DAY = TO_DATE('" &
txtDelivDay_S.Text & "', 'YYYY/MM/DD')
AND" 'út
lsSQL = lsSQL & " CHAIN_CD = " & txtChainCD_S.Text
& "
AND"
'`F[R[h
lsSQL = lsSQL & " MAIL_NO = " & txtMailNo_S.Text &
"
AND"
'ÖNo.
'lsSQL = lsSQL & " JAN_CD = '" & txtJanCD.Text &
"'
AND"
'JANR[h
lsSQL = lsSQL & " LINE_NO <> 0" & lsLineNo &
" AND" ''CNo
'CNo
lsSQL = lsSQL & " JAN_CD = '" & txtJanCD.Text &
"'"
'JANR[h
OracleDB.ExecuteSQL(loDynaset, lsSQL, "ChkLKMerch_Store")
If
loDynaset.EOF Then
ChkLKMerch_Store = False
Else
ChkLKMerch_Store = True
'''uťÝAIđłę˝¤iÍrźĚ˝ßXVĹŤÜšńv
'DspMsg("I", OracleDB.GetMSG("GARR0060001"), gSysTitle)
End
If
loDynaset.Close()
loDynaset = Nothing
Exit Function
ChkLKMerch_StoreErr:
ChkLKMerch_Store = False
gErrLog.SetLog("", "", "ChkLKMerch_Store",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
loDynaset = Nothing
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGGetLineNo
' ř@FasChainCd
- `F[R[hAasMailNo - ÖNo.AasStoreCD - XÜR[h
' ßčlFCNo
' ŕž@FCNoćž
'------------------------------------------------------------------------------
Private Function
GetLineNo(ByVal asChainCd As String, _
ByVal asMailNo As String, _
ByVal asStoreCd As String) As String
On
Error GoTo GetLineNoErr
Dim
lsSQL As String
Dim
loDynaset As Object
Dim
lsLocateSQL As String
Dim
lsDelivDay As String
GetLineNo = vbNullString
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
lsDelivDay = txtDelivDay_S.Text.Replace("/", "")
Case EnTab.EnTab_Merch
lsDelivDay = txtDelivDay_M.Text.Replace("/", "")
End
Select
lsSQL = ""
lsSQL = lsSQL & " SELECT LINE_NO"
lsSQL = lsSQL & " FROM " &
OracleDB.GetVLocateTable(lsDelivDay)
lsSQL = lsSQL & " WHERE CHAIN_CD = " &
asChainCd ''`F[R[h
lsSQL = lsSQL & " AND MAIL_NO = " &
asMailNo ''ÖNo.
lsSQL = lsSQL & " AND STORE_CD = " &
asStoreCd ''XÜR[h
OracleDB.ExecuteSQL(loDynaset, lsSQL, "GetLineNo")
If
Not loDynaset.EOF Then
GetLineNo = N2E(loDynaset("LINE_NO").Value)
Else
''YCNoŞśÝľČ˘
gErrLog.ClearSetLog()
gErrLog.OutDate = Format(Now, "yyyy/MM/dd HH:mm:ss")
gErrLog.OutWorker = ""
gErrLog.OutState = "GetLineNo"
gErrLog.OutPGID = "SRT0050"
gErrLog.OutInfo = "CNoŞćžĹŤÜšńĹľ˝"
gErrLog.OutLogFile()
GetLineNo = ""
End
If
loDynaset.Close()
loDynaset = Nothing
Exit Function
GetLineNoErr:
GetLineNo = vbNullString
loDynaset.Close()
loDynaset = Nothing
gErrLog.SetLog("", "", "GetLineNo",
"SRT0050", Err)
''uP[V}X^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0090001") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGLockLKMerch_S
' ř@FasLkTime-(out)rźJnÔ
' ßčlFTrue-łíIš
' ŕž@FXÜĘCłćĘ-\Ś¤if[^ÉrźđŠŻé
'------------------------------------------------------------------------------
Private Function
LockLKMerch_S() As Boolean
On
Error GoTo LockLKMerch_StoreErr
Dim
lsSQL As String
Dim
lsLineNo As String
LockLKMerch_S = False
gsLastLkTime = Format(Now,
"HHmmss") ''rźÔćž
'''CNo.ćž
'lsLineNo = GetLineNo(txtChainCD_S.Text, txtMailNo_S.Text,
GrdList.GetData(glEditRow, EnColList.EnCol_Col1))
''--¤irźf[^É\Śf[^đVKÇÁˇé
lsSQL = ""
lsSQL = lsSQL & " INSERT INTO D_LKMERCH"
lsSQL = lsSQL & " (DELIV_DAY, CHAIN_CD, MAIL_NO, VENDER_CD, SALE_DIV,
PRICE, JAN_CD, MACHINE_DIV, BLOCK_NO, MACHINE_NO, LINE_NO, LK_TIME)"
lsSQL = lsSQL & " VALUES ("
lsSQL = lsSQL & " TO_DATE('" & txtDelivDay_S.Text &
"','YYYY/MM/DD')" ''út
lsSQL = lsSQL & "," &
txtChainCD_S.Text
''`F[R[h
lsSQL = lsSQL & "," & txtMailNo_S.Text
''ÖNo
lsSQL = lsSQL & ",
0"
''x_[R[h
lsSQL = lsSQL &
",'0'"
''ĚćŞ
lsSQL = lsSQL & ",
0"
''ż
lsSQL = lsSQL & ",'" & txtJanCD.Text &
"'"
''JANR[h
lsSQL = lsSQL & ",'H'"
''[ćŞ
lsSQL = lsSQL & ", 0"
''ubNNO
lsSQL = lsSQL & ", " &
CIntEx(gIni.IniMachineNo)
''[NO
'lsSQL = lsSQL & "," & lsLineNo ''CNO
''CNO
lsSQL = lsSQL & ",
0"
''CNO
lsSQL = lsSQL & ",'" & gsLastLkTime &
"'"
''rźÔ
lsSQL = lsSQL & " ) "
If
Not OracleDB.ExecuteSQL_NOMSG(lsSQL, "LockLKMerch_S") Then
Return False
End
If
LockLKMerch_S = True
Exit Function
LockLKMerch_StoreErr:
LockLKMerch_S = False
''u¤irźf[^őÉG[ŞśľÜľ˝v
'DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
'@(f)
' ÖźFChkLKMerch_Merch
' ř@FČľ
' ßčlFTRUE
- rźĹȢA FALSE - rź
' ŕž@FLINE_NO
<> 0 ̤iʤirźf[^ĚrźóľmF
'------------------------------------------------------------------------------
Private Function
ChkLKMerch_Merch()
On
Error GoTo ChkLKMerch_MerchErr
Dim
lsSQL As String
Dim
loDynaset As Object
Dim
lsLineNo As String
ChkLKMerch_Merch = False
''CNo.ćž
'lsLineNo = GetLineNo(txtChainCD_M.Text, txtMailNo_M.Text, txtStoreCD.Text)
'If
lsLineNo = vbNullString Then Exit Function
lsSQL = ""
lsSQL = lsSQL & " SELECT"
lsSQL = lsSQL & " DELIV_DAY"
lsSQL = lsSQL & " FROM"
lsSQL = lsSQL & " D_LKMERCH"
lsSQL = lsSQL & " WHERE"
lsSQL = lsSQL & " DELIV_DAY = TO_DATE('" &
txtDelivDay_M.Text & "', 'YYYY/MM/DD')
AND"
'út
lsSQL = lsSQL & " CHAIN_CD = " & txtChainCD_M.Text
& "
AND"
'`F[R[h
lsSQL = lsSQL & " MAIL_NO = " & txtMailNo_M.Text &
"
AND"
'ÖNo.
lsSQL = lsSQL & " JAN_CD = '" &
GrdList.GetData(GrdList.Row, EnColList.EnCol_Col1) & "'
AND" 'JANR[h
'lsSQL = lsSQL & " LINE_NO = " &
lsLineNo
'CNo
lsSQL = lsSQL & " LINE_NO <> 0"
OracleDB.ExecuteSQL(loDynaset, lsSQL, "ChkLKMerch_Merch")
If
loDynaset.EOF Then
ChkLKMerch_Merch = False
Else
ChkLKMerch_Merch = True
''uťÝAIđłę˝¤iÍrźĚ˝ßXVĹŤÜšńv
'DspMsg("I", OracleDB.GetMSG("GARR0060001"), gSysTitle)
End
If
loDynaset.Close()
loDynaset = Nothing
Exit Function
ChkLKMerch_MerchErr:
ChkLKMerch_Merch = False
gErrLog.SetLog("", "", "ChkLKMerch_Merch",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
loDynaset = Nothing
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGLockLKMerch_M
' ř@FasLkTime-(out)rźJnÔ
' ßčlFTrue-łíIš
' ŕž@F¤iĘCłćĘ-\Ś¤if[^ÉrźđŠŻé
'------------------------------------------------------------------------------
Private Function
LockLKMerch_M() As Boolean
On
Error GoTo LockLKMerch_MerchErr
Dim
lsSQL As String
Dim
lsLineNo As String
LockLKMerch_M = False
gsLastLkTime = Format(Now,
"HHmmss") ''rźÔćž
''CNo.ćž
'lsLineNo = GetLineNo(txtChainCD_M.Text, txtMailNo_M.Text, txtStoreCD.Text)
''--¤irźf[^É\ŚIđf[^đVKÇÁˇé
lsSQL = ""
lsSQL = lsSQL & " INSERT INTO D_LKMERCH"
lsSQL = lsSQL & " (DELIV_DAY, CHAIN_CD, MAIL_NO, VENDER_CD, SALE_DIV,
PRICE, JAN_CD, MACHINE_DIV, BLOCK_NO, MACHINE_NO, LINE_NO, LK_TIME)"
lsSQL = lsSQL & " VALUES ("
lsSQL = lsSQL & " TO_DATE('" & txtDelivDay_M.Text &
"','YYYY/MM/DD')"
''út
lsSQL = lsSQL & "," &
txtChainCD_M.Text
''`F[R[h
lsSQL = lsSQL & "," &
txtMailNo_M.Text
''ÖNo
lsSQL = lsSQL & ",
0"
''x_[R[h
lsSQL = lsSQL &
",'0'"
''ĚćŞ
lsSQL = lsSQL & ",
0"
''ż
lsSQL = lsSQL & ",'" & GrdList.GetData(glEditRow,
EnColList.EnCol_Col1) &
"'" ''JANR[h
lsSQL = lsSQL &
",'H'"
''[ćŞ
lsSQL = lsSQL & ",
0"
''ubNNO
lsSQL = lsSQL & ", " &
CIntEx(gIni.IniMachineNo)
''[NO
lsSQL = lsSQL & ",
0"
''CNO
lsSQL = lsSQL & ",'" & gsLastLkTime &
"'"
''rźÔ
lsSQL = lsSQL & " ) "
If
Not OracleDB.ExecuteSQL_NOMSG(lsSQL, "LockLKMerch_M") Then
Return False
End
If
LockLKMerch_M = True
Exit Function
LockLKMerch_MerchErr:
LockLKMerch_M = False
'gErrLog.SetLog("", "", "LockLKMerch_M",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
'DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGUpdateData_Store
' ř@FaoDynaset-(in)ěĆŇćžp_CiZbg
' ßčlFČľ
' ŕž@FXÜĘCłćĘ-f[^đXVˇé
'------------------------------------------------------------------------------
Private Function
UpdateData_Store(ByVal aoDynaset As Object) As Boolean
On
Error Resume Next
Dim
llRowCnt As Integer ''ObhXgsJEg
Dim
lbSeqFlg As Boolean ''ÇSEQNoćžtO
Dim
llMgrSeq As Long ''ÇSEQNo
Dim
lsDelivDay As String
UpdateData_Store = False
lbSeqFlg = False
''gUNVJn
OracleDB.BeginTrans()
With GrdList
For llRowCnt = 1 To .Rows.Count - 1
''CłĚüÍłęĢéf[^žŻXVˇé
''˝žľCłĆdŞŞŻślĚęÍXVľČ˘
If StrCheck(.GetData(llRowCnt, EnColList.EnCol_Col5)) Then
If CInt(.GetData(glEditRow, EnColList.EnCol_Col5)) <>
CInt(.GetData(glEditRow, EnColList.EnCol_Col4)) Then
''ÇSEQNOćž
If Not OracleDB.GetMgrSeq(llMgrSeq, "S01", txtDelivDay_S.Text) Then
OracleDB.RollbackTrans()
Exit Function
End If
lbSeqFlg
= True
''dŞŔŃf[^XV
If Not UpdSort_Store(llRowCnt) Then
OracleDB.RollbackTrans()
Exit Function
End If
''dŞXVf[^ÇÁ
If Not InsSortupd_Store(aoDynaset, llMgrSeq, llRowCnt) Then
OracleDB.RollbackTrans()
Exit Function
End If
End If
End If
''ÓCćŞERR[hŞüÍłęĢéęAf[^đXVˇé
If StrCheck(.GetData(llRowCnt, EnColList.EnCol_Col6)) And _
(CNum(.GetData(llRowCnt, EnColList.EnCol_Col7) <> 0) Or
CNum(.GetData(llRowCnt, EnColList.EnCol_Col9)) <> 0) Then
''iRÇf[^XV
If Not UpdLostMgr("S", txtChainCD_S.Text, txtMailNo_S.Text, _
txtJanCD.Text, .GetData(llRowCnt, EnColList.EnCol_Col1), _
Trim(.GetData(llRowCnt, EnColList.EnCol_Col6)), _
Trim(.GetData(llRowCnt, EnColList.EnCol_Col7)), _
.GetData(llRowCnt, EnColList.EnCol_Col8), .GetData(llRowCnt,
EnColList.EnCol_Col9), _
.GetData(llRowCnt, EnColList.EnCol_Col10)) Then
OracleDB.RollbackTrans()
Exit Function
End If
End If
Next llRowCnt
End
With
If
Not lbSeqFlg Then
LockOffLkMerch_S()
End
If
''gUNVIš
OracleDB.CommitTrans()
UpdateData_Store = True
Exit Function
UpdateData_Store_NoData:
''CłÚČľ
OracleDB.RollbackTrans()
UpdateData_Store = False
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGInsSortupd_Store
' ř@FaoDynaset-(in)ěĆŇćžp_CiZbg,
' alMgrSeq-(in)ÇSEQNO,alRow-\Śs,
' ßčlFTrue-łíIš
' ŕž@FXÜĘCłćĘ-dŞXVf[^đVKÇÁˇé
'------------------------------------------------------------------------------
Private Function
InsSortupd_Store(ByVal aoDynaset As Object, _
ByVal
alMgrSeq As Integer, _
ByVal alRow As Integer) As Boolean
On
Error GoTo InsSortupd_StoreErr
Dim
lsSQL As String
Dim
lsTimeEd As String
Dim
sWkCd As String
Dim
sWkNm As String
Dim
sKey As String
Dim
lNowTime As String
Dim
lLineNo As String
Dim
lResSort As Integer
Dim
lCalcDiv As Integer
InsSortupd_Store = False
''ťÝćž
lNowTime = Format(Now, "HHmmss")
''CNoćž
'lLineNo = GetLineNo(txtChainCD_S.Text, txtMailNo_S.Text,
GrdList.GetData(alRow, EnColList.EnCol_Col1))
'If
lLineNo = vbNullString Then
' lLineNo = "0"
'End If
''vZćŞAŔŃĚvZ
lResSort = CInt(GrdList.GetData(alRow, EnColList.EnCol_Col5)) -
CInt(GrdList.GetData(alRow, EnColList.EnCol_Col4))
If
lResSort > 0 Then
'ÁZ
lCalcDiv = "0"
Else
'¸Z
lCalcDiv = "1"
lResSort = Math.Abs(lResSort)
End
If
''-dŞXVf[^đVKÇÁˇé
lsSQL = ""
lsSQL = lsSQL & " INSERT INTO D_SORTUPD"
lsSQL = lsSQL & "
(SORTUPD_DAY,MACHINE_NO,UPD_FLG,TIME_ST,TIME_ED,SYS_DATE,SORT_DAY,LINE_NO,CHAIN_CD"
lsSQL = lsSQL &
",MAIL_NO,VENDER_CD,BAR_KBN,BAR_SIZE,BAR_DATA,CLASS_CD,PRICE_DIV"
lsSQL = lsSQL &
",PRICE,WORKER_CD,UPD_DIV,CALC_DIV,STORE_CD,RES_SORT,UPD_SEQ)"
lsSQL = lsSQL & " VALUES (TO_DATE('" & txtDelivDay_S.Text
&
"','YYYY/MM/DD')"
''út
lsSQL = lsSQL &
",0"
''XV[NO
lsSQL = lsSQL &
",'0'"
''XVtO(0:˘XV 1:XV)
lsSQL = lsSQL & ",'" & gsLastLkTime &
"'"
''JnÔ
lsSQL = lsSQL & ",'" & lNowTime &
"'"
''IšÔ
lsSQL = lsSQL &
",SYSDATE"
''VXeút
lsSQL = lsSQL & ",TO_DATE('" & txtDelivDay_S.Text &
"','YYYY/MM/DD')"
''dŞ\čú
lsSQL = lsSQL & ",0" '&
lLineNo
''CNo.
lsSQL = lsSQL & "," &
txtChainCD_S.Text
''`F[R[h
lsSQL = lsSQL & "," &
txtMailNo_S.Text
''ÖNo
lsSQL = lsSQL & ",0"
''x_[R[h
lsSQL = lsSQL &
",'0'"
''o[íĘ(0:čüÍ)
lsSQL = lsSQL &
",'13'"
''o[TCY
lsSQL = lsSQL & ",'" & txtJanCD.Text &
"'"
''o[f[^
lsSQL = lsSQL & ",0"
''ĺR[h
lsSQL = lsSQL &
",'0'"
''ĚćŞ(0:čÔ 1:Á)
lsSQL = lsSQL &
",0"
''ż
lsSQL = lsSQL & "," &
N2E(aoDynaset("WORKER_CD").Value)
''ěĆŇR[h
lsSQL = lsSQL &
",'1'"
''XVćŞ(0:Ęí 1:XÜĘ 2:¤iĘ)
lsSQL = lsSQL & ",'" & lCalcDiv & "'"
''vZćŞ(0:ÁZ 1:¸Z)
lsSQL = lsSQL & "," & CInt(GrdList.GetData(alRow,
EnColList.EnCol_Col1))
''XÜR[h
lsSQL = lsSQL & "," &
lResSort
''ŔŃ
lsSQL = lsSQL & "," &
alMgrSeq
''XVSeq
lsSQL = lsSQL & " )"
If
Not OracleDB.ExecuteSQL(lsSQL, "InsSortupd_Store") Then
gErrLog.SetLog("", aoDynaset("WORKER_CD").Value &
":" & aoDynaset("WORKER_NM").Value,
"InsSortupd_Store", "SRT0050", Err)
''udŞXVf[^XVÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0050002") & vbCrLf
& Err.Description, gSysTitle)
Return False
End
If
InsSortupd_Store = True ''łíIš
sWkCd = aoDynaset("WORKER_CD").Value
sWkNm = aoDynaset("WORKER_NM").Value
sKey = ""
sKey = sKey & " útF" & txtDelivDay_S.Text
sKey = sKey & " `F[R[hF" & txtChainCD_S.Text
sKey = sKey & " ÖNoF" & txtMailNo_S.Text
sKey = sKey & " JanR[hF" & txtJanCD.Text
gAppLog.SetLog(Format(Now, "yyyy/MM/dd HH:mm:ss"), sWkCd &
":" & sWkNm, OracleDB.GetMSG("GSRT0050001"),
"SRT0050", sKey)
Exit Function
InsSortupd_StoreErr:
InsSortupd_Store = False
gErrLog.SetLog("", aoDynaset("WORKER_CD").Value &
":" & aoDynaset("WORKER_NM").Value,
"InsSortupd_Store", "SRT0050", Err)
''udŞXVf[^XVÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0050002") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGUpdSort_Store
' ř@FalRow-XVs
' ßčlFTrue-łíIš
' ŕž@FXÜĘCłćĘ-dŞŔŃf[^ĚIđR[hÉítOđ˝Äé
'------------------------------------------------------------------------------
Private Function
UpdSort_Store(ByVal alRow As Integer) As Boolean
On
Error GoTo UpdSort_StoreErr
Dim
lsSQL As String
Dim
lsSortTbl As String
UpdSort_Store = False
''--dŞŔŃf[^ĆJANđŻśe[uÉBBB--
lsSortTbl = ""
lsSortTbl = lsSortTbl & "(SELECT D_SORT.* , M_MERCHAN.JAN_CD"
lsSortTbl = lsSortTbl & " FROM D_SORT ,M_MERCHAN"
lsSortTbl = lsSortTbl & " WHERE D_SORT.CHAIN_CD =
M_MERCHAN.CHAIN_CD(+)"
lsSortTbl = lsSortTbl & " AND D_SORT.MERCH_CD =
M_MERCHAN.MERCH_CD(+)"
lsSortTbl = lsSortTbl & " AND D_SORT.DELIV_DAY = TO_DATE('" &
txtDelivDay_S.Text & "','YYYY/MM/DD')" ''út
lsSortTbl = lsSortTbl & " AND D_SORT.CHAIN_CD = " &
txtChainCD_S.Text
''`F[R[h
lsSortTbl = lsSortTbl & " AND D_SORT.MAIL_NO = " &
txtMailNo_S.Text
''ÖNO
lsSortTbl = lsSortTbl & " AND D_SORT.STORE_CD = " &
GrdList.GetData(alRow,
EnColList.EnCol_Col1)
''XÜR[h
lsSortTbl = lsSortTbl & ") S "
''--dŞŔŃf[^ÉítOđXV--
lsSQL = lsSQL & " UPDATE " & lsSortTbl
lsSQL = lsSQL & " SET S.DEL_FLG = '1'"
lsSQL = lsSQL & " WHERE S.JAN_CD = '" & txtJanCD.Text &
"'" ''JANR[h
If
Not OracleDB.ExecuteSQL(lsSQL, "UpdSort_Store") Then
gErrLog.SetLog("", "", "UpdSort_Store",
"SRT0050", Err)
''udŞŔŃf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0040001") & vbCrLf
& Err.Description, gSysTitle)
Return False
End
If
UpdSort_Store = True ''łíIš
Exit
Function
UpdSort_StoreErr:
UpdSort_Store = False
gErrLog.SetLog("", "", "UpdSort_Store",
"SRT0050", Err)
''udŞŔŃf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0040001") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGUpdLostMgr
' ř@FasMgrDiv-ÇćŞ(A:ü×S:dŞ),asChainCd-`F[R[h
' asMail-ÖNO,asJanCd-JanR[h,asStoreCd-XÜR[h
' asRspnsDiv-ÓCćŞ,asLostCd-iRR[h
' asLostNum - i,asHasonCd-jšR[h
' asHasonNum-jš
' ßčlFTrue-łíIš
' ŕž@FiRÇf[^đXVˇé
'------------------------------------------------------------------------------
'' 2010/09/08 iwai řÉiAjšR[hAjšRđÇÁ
Private Function
UpdLostMgr(ByVal asMgrDiv As String, _
ByVal asChainCd As String,
_
ByVal asMail As String, _
ByVal asJanCd As String, _
ByVal asStoreCd As String,
_
ByVal asRspnsDiv As String,
_
ByVal asLostCd As String, _
ByVal asLostNum As String,
_
ByVal asHasonCd As String,
_
ByVal asHasonNum As String)
As Boolean
On
Error GoTo UpdLostMgrErr
Dim
lsSQL As String
Dim
lsDelivDay As String
UpdLostMgr = False
If
StrCheck(asLostCd) = False Then
asLostCd = 0
End
If
If
StrCheck(asLostNum) = False Then
asLostNum = 0
End
If
If
StrCheck(asHasonCd) = False Then
asHasonCd = 0
End
If
If
StrCheck(asHasonNum) = False Then
asHasonNum = 0
End
If
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
lsDelivDay = txtDelivDay_S.Text
Case EnTab.EnTab_Merch
lsDelivDay = txtDelivDay_M.Text
End
Select
If
chkSameLostData(asMgrDiv, asChainCd, asMail, asJanCd, asStoreCd, lsDelivDay)
Then
''2010/09/09 iwai iR[hĆjšR[hޤÉ0ÉĎX
If CLng(asLostCd) = 0 And CLng(asHasonCd) = 0 Then
lsSQL = ""
lsSQL = lsSQL & " delete from D_LOSTMGR"
lsSQL = lsSQL & " where MGR_DIV = '" & asMgrDiv &
"'"
lsSQL = lsSQL & " and DELIV_DAY = '" & lsDelivDay &
"'"
lsSQL = lsSQL & " and CHAIN_CD = " & asChainCd
lsSQL = lsSQL & " and MAIL_NO = " & asMail
lsSQL = lsSQL & " and STORE_CD = " & asStoreCd
lsSQL = lsSQL & " and JAN_CD = '" & asJanCd &
"'"
Else
''-iRÇf[^đXV
lsSQL = ""
lsSQL = lsSQL & " UPDATE
D_LOSTMGR L"
lsSQL = lsSQL & " SET L.LOST_CD =" & asLostCd
lsSQL = lsSQL & " , L.RSPNS_DIV = " & asRspnsDiv
''2010/09/08 iwai ÇÁ ST
lsSQL = lsSQL & " , L.LOST_NUM = " & asLostNum
lsSQL = lsSQL & " , L.HASON_CD = " & asHasonCd
lsSQL = lsSQL & " , L.HASON_NUM = " & asHasonNum
''2010/09/08 iwai ÇÁ END
lsSQL = lsSQL & " WHERE L.MGR_DIV = '" & asMgrDiv &
"'"
''ÇćŞ
lsSQL = lsSQL & " AND L.DELIV_DAY = TO_DATE('" &
lsDelivDay & "',
'YYYY/MM/DD')" ''út
lsSQL = lsSQL & " AND L.CHAIN_CD = " &
asChainCd
''`F[R[h
lsSQL = lsSQL & " AND L.MAIL_NO = " &
asMail
''ÖNo
lsSQL = lsSQL & " AND L.STORE_CD = " &
asStoreCd
''XÜR[h
lsSQL = lsSQL & " AND L.JAN_CD = '" & asJanCd
&
"'"
''JANR[h
End If
Else
If CLng(asLostCd) = 0 And CLng(asHasonCd) = 0 Then Return True
''-iRÇf[^ÉÇÁ
lsSQL = ""
lsSQL = lsSQL & " INSERT INTO D_LOSTMGR"
lsSQL = lsSQL & " (MGR_DIV, DELIV_DAY, CHAIN_CD, MAIL_NO, JAN_CD,
STORE_CD, RSPNS_DIV, LOST_CD,LOST_NUM,HASON_CD,HASON_NUM)"
lsSQL = lsSQL & " VALUES ("
lsSQL = lsSQL & "'" & asMgrDiv & "'"
lsSQL = lsSQL & ",TO_DATE('" & lsDelivDay & "',
'YYYY/MM/DD')"
lsSQL = lsSQL & "," & asChainCd
lsSQL = lsSQL & "," & asMail
lsSQL = lsSQL & ",'" & asJanCd & "'"
lsSQL = lsSQL & "," & asStoreCd
lsSQL = lsSQL & "," & asRspnsDiv
lsSQL = lsSQL & "," & asLostCd
lsSQL = lsSQL & "," & asLostNum
lsSQL = lsSQL & "," & asHasonCd
lsSQL = lsSQL & "," & asHasonNum & ")"
End
If
If
Not OracleDB.ExecuteSQL(lsSQL, "UpdLostMgr") Then
''uiRÇf[^XVÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("C9999999018") & vbCrLf
& Err.Description, gSysTitle)
gErrLog.SetLog("", "", "UpdLostMgr",
"SRT0050", Err)
Return False
End
If
Return True ''łíIš
UpdLostMgrErr:
UpdLostMgr = False
gErrLog.SetLog("", "", "UpdLostMgr",
"SRT0050", Err)
''uiRÇf[^XVÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("C9999999018") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGchkSameLostData
' ř@FasMgrDiv-ÇćŞ(A:ü×S:dŞ),asChainCd-`F[R[h
' asMail-ÖNO,asJanCd-JanR[h,asStoreCd-XÜR[h,asDelivDay-út
' ßčlFf[^Čľ-FALSE, č-TRUE
' ŕž@FiRÇf[^ÉŻśf[^Ş éŠ`FbN
'------------------------------------------------------------------------------
Private Function
chkSameLostData(ByVal asMgrDiv As String, _
ByVal asChainCd As String,
_
ByVal asMail As String, _
ByVal asJanCd As String, _
ByVal asStoreCd As String,
_
ByVal asDelivDay As String)
As Boolean
On
Error GoTo chkSameLostDataErr
Dim
lsLostTbl As String
Dim
lsSQL As String
Dim
loDynaset As Object
chkSameLostData = False
''iRÇf[^ő
lsSQL = ""
lsSQL = lsSQL & "SELECT * FROM D_LOSTMGR L"
lsSQL = lsSQL & " WHERE L.MGR_DIV = '" & asMgrDiv &
"'"
''ÇćŞ
lsSQL = lsSQL & " AND L.DELIV_DAY = TO_DATE('" &
asDelivDay & "',
'YYYY/MM/DD')" ''út
lsSQL = lsSQL & " AND L.CHAIN_CD = " &
asChainCd
''`F[R[h
lsSQL = lsSQL & " AND L.MAIL_NO = " &
asMail
''ÖNo
lsSQL = lsSQL & " AND L.STORE_CD = " &
asStoreCd
''XÜR[h
lsSQL = lsSQL & " AND L.JAN_CD = '" & asJanCd
&
"'"
''JANR[h
OracleDB.ExecuteSQL(loDynaset, lsSQL, "chkSameLostData")
If
loDynaset.EOF Then
chkSameLostData = False
Else
chkSameLostData = True
End
If
loDynaset.Close()
loDynaset = Nothing
Exit Function
chkSameLostDataErr:
chkSameLostData = False
gErrLog.SetLog("",
"", "chkSameLostData", "SRT0050", Err)
''uiRÇf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("C9999999017") & vbCrLf
& Err.Description, gSysTitle)
loDynaset = Nothing
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGUpdateData_Merch
' ř@FaoDynaset-(in)ěĆŇćžp_CiZbgAasLkTime-(in)rźJnÔ
' ßčlFČľ
' ŕž@F¤iĘCłćĘ-f[^đXVˇé
'------------------------------------------------------------------------------
Private Function
UpdateData_Merch(ByVal aoDynaset As Object) As Boolean
On
Error Resume Next
Dim
llMgrSeq As Long ''ÇSEQNo
Dim
lbSeqFlg As Boolean ''ÇSEQNoćžtO
UpdateData_Merch = False
lbSeqFlg = False
''gUNVJn
OracleDB.BeginTrans()
With GrdList
''ÓCćŞERR[hŞüÍłęĢéęAf[^đXVˇé
If StrCheck(.GetData(glEditRow, EnColList.EnCol_Col6)) And _
(CNum(.GetData(glEditRow, EnColList.EnCol_Col7) <> 0) Or
CNum(.GetData(glEditRow, EnColList.EnCol_Col9)) <> 0) Then
''iRÇf[^XV
If Not UpdLostMgr("S", txtChainCD_M.Text, txtMailNo_M.Text, _
.GetData(glEditRow, EnColList.EnCol_Col1), txtStoreCD.Text, _
.GetData(glEditRow, EnColList.EnCol_Col6), .GetData(glEditRow,
EnColList.EnCol_Col7), _
.GetData(glEditRow, EnColList.EnCol_Col8),
.GetData(glEditRow, EnColList.EnCol_Col9), _
.GetData(glEditRow, EnColList.EnCol_Col10)) Then
OracleDB.RollbackTrans()
Exit Function
End If
End If
''CłŞüÍłęĢȢęľČ˘
If StrCheck(.GetData(glEditRow, EnColList.EnCol_Col5)) = False Then GoTo
UpdateData_Merch_NoData
''CłĆdŞŞľ˘ę
If CInt(.GetData(glEditRow, EnColList.EnCol_Col5)) = CInt(.GetData(glEditRow,
EnColList.EnCol_Col4)) Then GoTo UpdateData_Merch_NoData
lbSeqFlg = True
''ÇSEQNOćž
If Not OracleDB.GetMgrSeq(llMgrSeq, "S01", txtDelivDay_M.Text) Then
OracleDB.RollbackTrans()
Exit Function
End If
''dŞŔŃf[^XV
If Not UpdSort_Merch(glEditRow) Then
OracleDB.RollbackTrans()
Exit Function
End If
''dŞXVf[^ÇÁ
If Not InsSortupd_Merch(aoDynaset, llMgrSeq, glEditRow) Then
OracleDB.RollbackTrans()
Exit Function
End If
End
With
If
Not lbSeqFlg Then GoTo UpdateData_Merch_NoData
''gUNVIš
OracleDB.CommitTrans()
UpdateData_Merch = True
Exit Function
UpdateData_Merch_NoData:
''CłÚČľ
OracleDB.RollbackTrans()
UpdateData_Merch = False
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGInsSortupd_Merch
' ř@FaoDynaset-(in)ěĆŇćžp_CiZbg,
' alMgrSeq-(in)ÇSEQNO,alRow-XVs,
' ßčlFTrue-łíIš
' ŕž@F¤iĘCłćĘ-dŞXVf[^đVKÇÁˇé
'------------------------------------------------------------------------------
Private Function
InsSortupd_Merch(ByVal aoDynaset As Object, _
ByVal alMgrSeq As Integer, _
ByVal alRow As Integer) As Boolean
On
Error GoTo InsSortupd_MerchErr
Dim
lsSQL As String
Dim
lsTimeEd As String
Dim
sWkCd As String
Dim
sWkNm As String
Dim
sKey As String
Dim
lResSort As Integer
Dim
lNowTime As String
Dim
lLineNo As String
Dim
lCalcDiv As String
InsSortupd_Merch = False
''ťÝćž
lNowTime = Format(Now, "HHmmss")
''CNoćž
'lLineNo = GetLineNo(txtChainCD_M.Text, txtMailNo_M.Text,
CInt(txtStoreCD.Text))
'If
lLineNo = vbNullString Then
' lLineNo = "0"
'End If
''vZćŞAŔŃĚvZ
lResSort = CInt(GrdList.GetData(alRow, EnColList.EnCol_Col5)) -
CInt(GrdList.GetData(alRow, EnColList.EnCol_Col4))
If
lResSort > 0 Then
'ÁZ
lCalcDiv = "0"
Else
'¸Z
lCalcDiv = "1"
lResSort = Math.Abs(lResSort)
End
If
''-dŞXVf[^đVKÇÁˇé
lsSQL = ""
lsSQL = lsSQL & " INSERT INTO D_SORTUPD"
lsSQL = lsSQL & "
(SORTUPD_DAY,MACHINE_NO,UPD_FLG,TIME_ST,TIME_ED,SYS_DATE,SORT_DAY"
lsSQL = lsSQL &
",LINE_NO,CHAIN_CD,MAIL_NO,VENDER_CD,BAR_KBN,BAR_SIZE,BAR_DATA,CLASS_CD"
lsSQL = lsSQL & ",PRICE_DIV,PRICE,WORKER_CD,UPD_DIV,CALC_DIV,STORE_CD,RES_SORT,UPD_SEQ)"
lsSQL = lsSQL & " VALUES(TO_DATE('" & txtDelivDay_M.Text
&
"','YYYY/MM/DD')"
''út
lsSQL = lsSQL &
",0"
''XV[NO
lsSQL = lsSQL &
",'0'"
''XVtO(0:˘XV1:XV)
lsSQL = lsSQL & ",'" & gsLastLkTime &
"'"
''JnÔ
lsSQL = lsSQL & ",'" & lNowTime &
"'"
''IšÔ
lsSQL = lsSQL &
",SYSDATE"
''VXeút
lsSQL = lsSQL & ",TO_DATE('" & txtDelivDay_M.Text &
"','YYYY/MM/DD')"
''dŞ\čú
lsSQL = lsSQL & ",0" '&
lLineNo
''CNo.
lsSQL = lsSQL & "," &
txtChainCD_M.Text
''`F[R[h
lsSQL = lsSQL & "," & txtMailNo_M.Text
''ÖNo
lsSQL = lsSQL &
",0"
''x_[R[h
lsSQL = lsSQL & ",'0'"
''o[íĘ(0:čüÍ)
lsSQL = lsSQL &
",'13'"
''o[TCY
lsSQL = lsSQL & ",'" & GrdList.GetData(alRow, EnColList.EnCol_Col1)
&
"'"
''o[f[^
lsSQL = lsSQL &
",0"
''ĺR[h
lsSQL = lsSQL &
",'0'"
''ĚćŞ(0:čÔ1:Á)
lsSQL = lsSQL &
",0"
''ż
lsSQL = lsSQL & "," &
N2E(aoDynaset("WORKER_CD").Value)
''ěĆŇR[h
lsSQL = lsSQL & ",'2'"
''XVćŞ(0:Ęí 1:XÜĘ 2:¤iĘ)
lsSQL = lsSQL & ",'" & lCalcDiv &
"'"
''vZćŞ(0:ÁZ 1:¸Z)
lsSQL = lsSQL & "," & CInt(txtStoreCD.Text)
''XÜR[h
lsSQL = lsSQL & "," &
lResSort
''ŔŃ
lsSQL = lsSQL & "," &
alMgrSeq
''XVSeq
lsSQL = lsSQL & " )"
If
Not OracleDB.ExecuteSQL(lsSQL, "InsSortupd_Merch") Then
gErrLog.SetLog("", aoDynaset("WORKER_CD").Value &
":" & aoDynaset("WORKER_NM").Value,
"InsSortupd_Merch", "SRT0050", Err)
''udŞXVf[^XVÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0050002") & vbCrLf
& Err.Description, gSysTitle)
Return False
End
If
InsSortupd_Merch = True ''łíIš
sWkCd = aoDynaset("WORKER_CD").Value
sWkNm
= aoDynaset("WORKER_NM").Value
sKey = ""
sKey = sKey & " útF" & txtDelivDay_M.Text
sKey = sKey & " `F[R[hF" & txtChainCD_M.Text
sKey = sKey & " ÖNoF" & txtMailNo_M.Text
sKey = sKey & " JanR[hF" & GrdList.GetData(alRow,
EnColList.EnCol_Col1)
gAppLog.SetLog(Format(Now, "yyyy/MM/dd HH:mm:ss"), sWkCd & "F"
& sWkNm, OracleDB.GetMSG("GSRT0050001"), "SRT0050",
sKey)
Exit Function
InsSortupd_MerchErr:
InsSortupd_Merch = False
gErrLog.SetLog("", aoDynaset("WORKER_CD").Value &
":" & aoDynaset("WORKER_NM").Value,
"InsSortupd_Merch", "SRT0050", Err)
''udŞXVf[^XVÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0050002") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGUpdSort_Merch
' ř@FalRow-XVs
' ßčlFTrue-łíIš
' ŕž@F¤iĘCłćĘ-dŞŔŃf[^ĚIđR[hÉítOđ˝Äé
'------------------------------------------------------------------------------
Private Function
UpdSort_Merch(ByVal alRow As Integer) As Boolean
On
Error GoTo UpdSort_MerchErr
Dim
lsSQL As String
Dim
lsSortTbl As String
UpdSort_Merch = False
''--dŞŔŃf[^ĆJANđŻśe[uÉBBB--
lsSortTbl = ""
lsSortTbl = lsSortTbl & "(SELECT D_SORT.* , M_MERCHAN.JAN_CD"
lsSortTbl = lsSortTbl & " FROM D_SORT ,M_MERCHAN"
lsSortTbl = lsSortTbl & " WHERE D_SORT.CHAIN_CD = M_MERCHAN.CHAIN_CD(+)"
lsSortTbl = lsSortTbl & " AND D_SORT.MERCH_CD =
M_MERCHAN.MERCH_CD(+)"
lsSortTbl = lsSortTbl & " AND D_SORT.DELIV_DAY = TO_DATE('" &
txtDelivDay_M.Text & "','YYYY/MM/DD')" ''út
lsSortTbl = lsSortTbl & " AND D_SORT.CHAIN_CD = " &
txtChainCD_M.Text
''`F[R[h
lsSortTbl = lsSortTbl & " AND D_SORT.MAIL_NO = " &
txtMailNo_M.Text
''ÖNO
lsSortTbl = lsSortTbl & ") S "
''--dŞŔŃf[^ÉítOđXV--
lsSQL = lsSQL & " UPDATE " & lsSortTbl
lsSQL = lsSQL & " SET S.DEL_FLG = '1'"
lsSQL = lsSQL & " WHERE S.JAN_CD = '" &
GrdList.GetData(alRow, EnColList.EnCol_Col1) &
"'" ''JANR[h
If
Not OracleDB.ExecuteSQL(lsSQL, "UpdSort_Merch") Then
gErrLog.SetLog("", "", "UpdSort_Merch",
"SRT0050", Err)
''udŞŔŃf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0040001") & vbCrLf
& Err.Description, gSysTitle)
Return False
End
If
UpdSort_Merch = True ''łíIš
Exit Function
UpdSort_MerchErr:
UpdSort_Merch = False
gErrLog.SetLog("", "", "UpdSort_Merch",
"SRT0050", Err)
''udŞŔŃf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ESRT0040001") & vbCrLf
& Err.Description, gSysTitle)
End Function
Private Sub
GrdList_EnterCell(ByVal sender As Object, ByVal e As System.EventArgs) Handles
GrdList.EnterCell
' ŇWóÔĹȢęÍŇWsÂ
Select Case glPGState
Case EnPGState.EditStore, EnPGState.EditMerch
Case Else
Exit Sub
End
Select
Select Case TabDirectory.SelectedIndex
'''XÜĘCł
Case EnTab.EnTab_Store
''XÜĘCłĚXViP`SńÚÍL[ČĚĹüÍsÂj
'If GrdList.Row <> glEditRow Then Exit Sub
If GrdList.Col = EnColList.EnCol_Col1 Or _
GrdList.Col = EnColList.EnCol_Col2 Or _
GrdList.Col = EnColList.EnCol_Col3 Or _
GrdList.Col = EnColList.EnCol_Col4 Then
Exit Sub
End If
'''¤iĘCł
Case EnTab.EnTab_Merch
''¤iĘCłĚXViP`SńÚÍL[ČĚĹüÍsÂj
If GrdList.Row <> glEditRow Then Exit Sub
If GrdList.Col = EnColList.EnCol_Col1 Or _
GrdList.Col = EnColList.EnCol_Col2 Or _
GrdList.Col = EnColList.EnCol_Col3 Or _
GrdList.Col = EnColList.EnCol_Col4 Then
Exit Sub
End If
End
Select
''Xe[^Xo[ÖÓCćŞĚŕžđ\Ś
If
GrdList.Col = EnColList.EnCol_Col6 Then
ClockStatusBar1.TextPnlInfo = "P Z^[ÓCAR x_[ÓCAX {ÓC"
Else
ClockStatusBar1.TextPnlInfo = ""
End
If
GrdList.StartEditing()
End Sub
'------------------------------------------------------------------------------
' @(f)
' ÖźGLockOffLkMerch_S
' ř@FČľ
' ßčlFTrue-łíIš
' ŕž@FXÜĘCłćĘ-\Ś¤if[^Ěrźđđˇé
'------------------------------------------------------------------------------
Private Function
LockOffLkMerch_S() As Boolean
On
Error GoTo LockOffLkMerch_SErr
Dim
lsSQL As String
Dim
lsLineNo As String
LockOffLkMerch_S = False
''CNo.ćž
'lsLineNo = GetLineNo(txtChainCD_S.Text, txtMailNo_S.Text,
GrdList.GetData(glEditRow, EnColList.EnCol_Col1))
''--\Ś¤irźf[^đíˇé
lsSQL = ""
lsSQL = lsSQL & " DELETE FROM D_LKMERCH"
lsSQL = lsSQL & " WHERE DELIV_DAY = TO_DATE('" &
txtDelivDay_S.Text & "','YYYY/MM/DD')" ''út
lsSQL = lsSQL & " AND CHAIN_CD = " &
txtChainCD_S.Text
''`F[R[h
lsSQL = lsSQL & " AND MAIL_NO = " &
txtMailNo_S.Text
''ÖNO
lsSQL = lsSQL & " AND JAN_CD = '" & txtJanCD.Text
& "'"
'lsSQL = lsSQL & " AND MACHINE_DIV = 'H'"
lsSQL = lsSQL & " AND LINE_NO = 0"
'lsSQL = lsSQL & " AND LINE_NO = " &
lsLineNo
''CNo
If
Not OracleDB.ExecuteSQL(lsSQL, "LockOffLkMerch_S") Then
gErrLog.SetLog("", "", "LockOffLkMerch_S",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
Return False
End
If
LockOffLkMerch_S = True ''łíIš
Exit Function
LockOffLkMerch_SErr:
LockOffLkMerch_S = False
gErrLog.SetLog("", "", "LockOffLkMerch_S",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' @(f)
' ÖźGLockOffLkMerch_M
' ř@FČľ
' ßčlFTrue-łíIš
' ŕž@F¤iĘCłćĘ-ŇWĚs̤if[^Ěrźđđˇé
'------------------------------------------------------------------------------
Private Function
LockOffLkMerch_M() As Boolean
On
Error GoTo LockOffLkMerch_MErr
Dim
lsSQL As String
Dim
lsLineNo As String
LockOffLkMerch_M = False
''CNo.ćž
lsLineNo = GetLineNo(txtChainCD_M.Text, txtMailNo_M.Text, txtStoreCD.Text)
''--\Ś¤irźf[^đíˇé
lsSQL = ""
lsSQL = lsSQL & " DELETE FROM D_LKMERCH"
lsSQL = lsSQL & " WHERE DELIV_DAY = TO_DATE('" &
txtDelivDay_M.Text &
"','YYYY/MM/DD')"
''út
lsSQL = lsSQL & " AND CHAIN_CD = " &
txtChainCD_M.Text
''`F[R[h
lsSQL = lsSQL & " AND MAIL_NO = " &
txtMailNo_M.Text
''ÖNO
lsSQL = lsSQL & " AND JAN_CD = '" &
GrdList.GetData(glEditRow, EnColList.EnCol_Col1) &
"'"
''JANR[h
'lsSQL = lsSQL & " AND LINE_NO = " &
lsLineNo
''CNo
lsSQL = lsSQL & " AND LINE_NO = 0"
If
Not OracleDB.ExecuteSQL(lsSQL, "LockOffLkMerch_M") Then
gErrLog.SetLog("", "", "LockOffLkMerch_M",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
End
If
LockOffLkMerch_M = True ''łíIš
Exit Function
LockOffLkMerch_MErr:
LockOffLkMerch_M = False
gErrLog.SetLog("", "", "LockOffLkMerch_M",
"SRT0050", Err)
''u¤irźf[^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("EARR0060002") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
' ÖźGGrdList_ValidateEdit
' ř@F
' ßčlFČľ
' ŕž@FZŇWóÔđĚiüÍl`FbNj
'------------------------------------------------------------------------------
Private Function GrdList_ValidateEdit(ByVal
aiRow As Integer, ByVal aiCol As Integer) As Boolean
With GrdList
If Not IsNumeric(Trim(.Editor.Text.Trim("_"))) And
Trim(.Editor.Text.Trim("_")) <> "" Then
DspMsg("E", OracleDB.GetMSG("C9999999003"), gSysTitle)
Return False
End If
If Trim(.Editor.Text.Trim("_")) = "" Then
GrdList(aiRow, aiCol) = Nothing
Return True
End If
Select Case .Col
Case EnColList.EnCol_Col5
' CłĚ`FbN
If ChkInpResNum(aiRow, Trim(.Editor.Text.Trim("_"))) = False Then
.Editor.Text = ""
GrdList(aiRow, aiCol) = Nothing
Return False
End If
Case EnColList.EnCol_Col6
' ÓCćŞĚ`FbN
If ChkInpRspnsDiv(Trim(.Editor.Text.Trim("_"))) = False Then
.Editor.Text = ""
GrdList(aiRow, aiCol) = Nothing
Return False
End If
Case EnColList.EnCol_Col7
' RR[hĚ`FbN
If ChkExistLostCD(Trim(.Editor.Text.Trim("_")),
EnLostDiv.EnLostDiv_Lost) = False Then
.Editor.Text = ""
GrdList(aiRow, aiCol) = Nothing
Return False
End If
''2010/09/08 iwai iAjšR[hAjšĚ`FbNÇÁ ST
Case EnColList.EnCol_Col8
' iĚ`FbN
If ChkExistLostCD(GrdList.GetData(aiRow, EnColList.EnCol_Col7),
EnLostDiv.EnLostDiv_Hason) = False Then
.Editor.Text = ""
GrdList(aiRow, aiCol) = Nothing
Return False
End If
Case EnColList.EnCol_Col9
' RR[hĚ`FbN
If ChkExistLostCD(Trim(.Editor.Text.Trim("_")),
EnLostDiv.EnLostDiv_Hason) = False Then
.Editor.Text = ""
GrdList(aiRow, aiCol) = Nothing
Return False
End If
Case
EnColList.EnCol_Col10
' jšĚ`FbN
If ChkExistLostCD(GrdList.GetData(aiRow, EnColList.EnCol_Col9),
EnLostDiv.EnLostDiv_Hason) = False Then
.Editor.Text = ""
GrdList(aiRow, aiCol) = Nothing
Return False
End If
''2010/09/08 iwai iAjšR[hAjšĚ`FbNÇÁ END
End Select
End
With
Return True
End Function
'------------------------------------------------------------------------------
'@(f)
' ÖźFChkInpResNum
' ř@FInpNum
- üÍľ˝Cł
' ßčlFTRUE
- łílA FALSE - Ůíl
' ŕž@FCłĚ`FbN
'------------------------------------------------------------------------------
Private Function
ChkInpResNum(ByVal aiRow As Integer, ByVal InpNum As String)
ChkInpResNum = True
If
InpNum = vbNullString Then
Exit Function
End
If
If
CLng(InpNum) > CLng(GrdList.GetData(aiRow, EnColList.EnCol_Col4)) Then
DspMsg("E", "CłŞdŞđ´ŚÄ˘ÜˇB", gSysTitle)
ChkInpResNum = False
End
If
End Function
''2010/09/08 iwai ÇÁ ST
'------------------------------------------------------------------------------
'@(f)
' ÖźFChkInpLostNum
' ř@F
' ßčlFTRUE
- łílA FALSE - Ůíl
' ŕž@FCłĚ`FbN
'------------------------------------------------------------------------------
Private Function
ChkInpLostNum(ByVal aiRow As Integer)
ChkInpLostNum = True
If
(CNum(GrdList.GetData(aiRow, EnColList.EnCol_Col8)) +
CNum(GrdList.GetData(aiRow, EnColList.EnCol_Col10))) <> _
(CNum(GrdList.GetData(aiRow, EnColList.EnCol_Col3)) - CNum(GrdList.GetData(aiRow,
EnColList.EnCol_Col5))) Then
DspMsg("E", "-CłŞi+jšĆęvľÄ˘ÜšńB", gSysTitle)
ChkInpLostNum = False
End
If
End Function
''2010/09/08 iwai ÇÁ ED
'------------------------------------------------------------------------------
'@(f)
' ÖźFChkExistLostCD
' ř@FkeyLostCD
- üÍľ˝RR[h
' FkeyLostCD - RćŞ
' ßčlFTRUE
- }X^ɜݡélA FALSE - }X^ɜݾȢl
' ŕž@FiRR[hĚ`FbN
'------------------------------------------------------------------------------
'' 2010/09/08 iwai řÉRćŞđÇÁ
Private Function
ChkExistLostCD(ByVal keyLostCD As String, ByVal keyLostDiv As String)
On
Error GoTo ChkExistLostCDErr
Dim
lsSQL As String
Dim
loDynaset As Object
ChkExistLostCD = False
If
keyLostCD = vbNullString Then
ChkExistLostCD = True
Exit Function
End
If
If
CLng(keyLostCD) = 0 Then Return True
'
SQLś
lsSQL = ""
lsSQL = lsSQL & " SELECT"
lsSQL = lsSQL & " LOST_CD"
lsSQL = lsSQL & " FROM"
lsSQL = lsSQL & " M_LOST"
lsSQL = lsSQL & " WHERE"
lsSQL = lsSQL & " LOST_CD = " & keyLostCD
''
2010/09/08 iwai řÉRćŞđÇÁ
lsSQL = lsSQL & "AND LOST_DIV = " & keyLostDiv
OracleDB.ExecuteSQL(loDynaset, lsSQL, "ChkExistLostCD")
' śÝľČ˘
If
loDynaset.EOF Then
DspMsg("E", OracleDB.GetMSG("ESRT0050001"), gSysTitle)
Else
ChkExistLostCD = True
End
If
loDynaset.Close()
loDynaset = Nothing
Exit Function
ChkExistLostCDErr:
gErrLog.SetLog("", "", "ChkExistLostCDErr",
"SRT0050", Err)
loDynaset = Nothing
''uiR}X^őÉG[ŞśľÜľ˝v
DspMsg("E", OracleDB.GetMSG("ECTL0090001") & vbCrLf
& Err.Description, gSysTitle)
End Function
'------------------------------------------------------------------------------
'@(f)
' ÖźFChkInpRspnsDiv
' ř@FInpRspnsDiv
- üÍľ˝ÓCćŞ
' ßčlFTRUE
- śÝˇélA FALSE - śÝľČ˘l
' ŕž@FÓCćŞĚ`FbN
'------------------------------------------------------------------------------
Private Function ChkInpRspnsDiv(ByVal
InpRspnsDiv As String)
ChkInpRspnsDiv = True
If
InpRspnsDiv = vbNullString Then
Exit Function
End
If
If
InpRspnsDiv <> "1" And InpRspnsDiv <> "3" And
InpRspnsDiv <> "9" Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
ChkInpRspnsDiv = False
End
If
End Function
'------------------------------------------------------------------------------
' ÖźGGrdList_KeyDownEdit
' ř@FČľ
' ßčlFČľ
' ŕž@FObhGfBbgĚL[şiZÚŽ§äj
'------------------------------------------------------------------------------
Private Sub
GrdList_KeyDownEdit(ByVal sender As Object, ByVal e As
C1.Win.C1FlexGrid.KeyEditEventArgs) Handles GrdList.KeyDownEdit
Select Case e.KeyCode
Case Keys.Return
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
If Not GrdList_ValidateEdit(e.Row, e.Col) Then
e.Handled = True
Exit Sub
End If
If e.Col = EnColList.EnCol_Col10 Then
GrdList.Col = EnColList.EnCol_Col5
If GrdList.Row = GrdList.Rows.Count - 1 Then
GrdList.Row
= 1
Else
GrdList.Row += 1
End If
Else
GrdList.Col = e.Col + 1
End If
e.Handled = True
Case EnTab.EnTab_Merch
If Not GrdList_ValidateEdit(e.Row, e.Col) Then
e.Handled = True
Exit Sub
End
If
If e.Col = EnColList.EnCol_Col10 Then
GrdList.Col = EnColList.EnCol_Col5
Else
GrdList.Col = e.Col + 1
End If
e.Handled = True
End Select
Case Else
e.Handled = True
End
Select
End Sub
Private Sub FrmSRT0050_Resize(ByVal
sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
''Âśé{^łřť
CloseBtnDisabled(Me)
End Sub
'------------------------------------------------------------------------------
' ÖźGWndProc
' ř@Fm
>>> bZ[W
' ßčlFČľ
' ŕž@FbZ[WđóŻćéCxg
'------------------------------------------------------------------------------
Protected Overrides Sub
WndProc(ByRef m As System.Windows.Forms.Message)
If
m.Msg = WNDMSG_DOEND Then
' IšbZ[W
Me.Close()
End
If
MyBase.WndProc(m)
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F6_Click
' ř@F
' ßčlFČľ
' ŕž@Ftb^[{^F6NbNCxgiR[hętH[\Śj
'------------------------------------------------------------------------------
Private Sub
FooterBtn_F6_Click() Handles FooterBtn.F6_Click
If
FooterBtn.F6_Enable = False Then Exit Sub
''NbNÉtb^[{^ÉtH[JXÚŽľÄľÜ¤ĚĹA
''ťĚOÉANeBuĹ Á˝Rg[źđnˇ
ShowCodeViewForm(gPrevActivCtlNM)
End Sub
'------------------------------------------------------------------------------
' ÖźGFooterBtn_F6_Click
' ř@F
' ßčlFČľ
' ŕž@Ftb^[{^F6NbNCxgiR[hętH[\Śj
'------------------------------------------------------------------------------
Private Sub
ShowCodeViewForm(ByVal inCtlName As String)
Dim
CodeView As frmCommon06
Dim
retCode1 As String
Dim
retCode2 As String
Select Case inCtlName
Case "txtStoreCD"
CodeView = New frmCommon06(OracleDB, EnMasIndex.EnMas_Store)
If CodeView.ShowFormDialog(retCode1, retCode2, txtChainCD_M.Text,
txtStoreCD.Text, txtDelivDay_M.Text) = EnRetCOMMFRM.EnRet_Sel Then
If retCode1 <> "" Then
txtChainCD_M.Text = retCode1
End If
If retCode2 <> "" Then
txtStoreCD.Text = retCode2
lblStoreNM.Text = OracleDB.GetStoreNm(txtChainCD_M.Text, txtStoreCD.Text)
txtDelivDay_M.Select()
End If
Else
txtStoreCD.Select()
End If
Case "txtJanCD"
CodeView = New frmCommon06(OracleDB, EnMasIndex.EnMas_Merch)
If CodeView.ShowFormDialog(retCode1, retCode2, txtChainCD_S.Text,
txtJanCD.Text, txtDelivDay_S.Text) = EnRetCOMMFRM.EnRet_Sel Then
If retCode1 <> "" Then
txtChainCD_S.Text = retCode1
End If
If retCode2 <> "" Then
txtJanCD.Text = retCode2
lblMerchNM.Text = OracleDB.GetJanNm(txtChainCD_S.Text, txtJanCD.Text)
txtDelivDay_S.Select()
End If
Else
txtJanCD.Select()
End If
Case "txtChainCD_S"
CodeView = New frmCommon06(OracleDB, EnMasIndex.EnMas_Chain)
If CodeView.ShowFormDialog(retCode1, retCode2, txtChainCD_S.Text, "",
txtDelivDay_S.Text) = EnRetCOMMFRM.EnRet_Sel Then
If retCode1 <> "" Then
txtChainCD_S.Text = retCode1
txtMailNo_S.Select()
End If
Else
txtChainCD_S.Select()
End If
Case "txtChainCD_M"
CodeView = New frmCommon06(OracleDB, EnMasIndex.EnMas_Chain)
If CodeView.ShowFormDialog(retCode1, retCode2,
txtChainCD_M.Text, "", txtDelivDay_M.Text) = EnRetCOMMFRM.EnRet_Sel
Then
If retCode1 <> "" Then
txtChainCD_M.Text = retCode1
txtMailNo_M.Select()
End If
Else
txtChainCD_M.Select()
End If
Case "txtMailNo_S"
txtMailNo_S.Select()
Case "txtMailNo_M"
txtMailNo_M.Select()
Case "txtDelivDay_S"
txtDelivDay_S.Select()
Case "txtDelivDay_M"
txtDelivDay_M.Select()
End
Select
''CodeViewăn
If
Not IsNothing(CodeView) Then
CodeView = Nothing
End
If
End Sub
Private Function
InputGridCheck() As Boolean
Dim
iRowCnt As Integer
Dim
iStartCnt As Integer
Dim
iMaxCnt As Integer
Dim
iUpdCnt As Integer
InputGridCheck = False
GrdList.FinishEditing() ' ŇWóÔđmčłšé
iUpdCnt = 0
'''
XÜĘCłĚęÍA\ŚłęĢéXgˇ×ÄŞXVÎŰŠťĘˇé
'''
¤iĘCłĚęÍAIđłęĢé¤iđXVÎŰŠťĘˇé
Select Case TabDirectory.SelectedIndex
Case EnTab.EnTab_Store
iStartCnt = 1
iMaxCnt = GrdList.Rows.Count - 1
Case EnTab.EnTab_Merch
iStartCnt = glEditRow
iMaxCnt = glEditRow
End
Select
For
iRowCnt = iStartCnt To iMaxCnt
''2010/09/08 iwai
''' CłŞ˘üÍŠÂÓC檪˘üÍŠÂRR[hŞ˘üÍÂiŞ˘üÍÂ
''' jšR[hŞ˘üÍÂjšRŞ˘üÍĚęÍAXVÎŰĆÍÝȳȢ
If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)) Or _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) Or _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7)) Or _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col8)) Or _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9)) Or _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col10)) Then
'' CłŞ˘üÍĚęÍAG[ľ˘ĆľÄüÍđŁˇB
If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)) = False Then
DspMsg("E", OracleDB.GetMSG("C9999999003"), gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col5
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''' CłŞOČăĹÂÓC檪˘üÍ(OŕÜŢ)ĚęÍG[ơé
If CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)) <> 0 And
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) = 0 Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col6
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''2010/09/08 iwai
''' CłŞOČăĹÂRR[hŞ˘üÍ(OŕÜŢ)ÂiŞ˘üÍĚęÍG[ơé
'If CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)) <> 0 And
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7)) = 0 Then
If CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)) <> 0 And _
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7)) = 0 And
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col8)) <> 0 Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col7
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''2010/09/08 iwai ÇÁ ST
''' CłŞOČăĹÂjšR[hŞ˘üÍ(OŕÜŢ)ÂjšŞ˘üÍĚęÍG[ơé
If CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)) <> 0 And _
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9)) = 0 And
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col10)) <> 0 Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col9
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''2010/09/08 iwai ÇÁ END
' CłĚ`FbN
If ChkInpResNum(iRowCnt, CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col5)))
= False Then
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col5
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''2010/09/08 iwai ÇÁ ST
''ÓCćŞAiR[hAiAjšR[hAjšŞSĢüÍÍüÍ`FbNO
If Not (StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) = False And _
StrCheck(GrdList.GetData(iRowCnt,
EnColList.EnCol_Col7)) = False And _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col8)) = False And _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9)) = False And _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col10)) = False) Then
''ÓC檢üÍĚęAG[
If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) = False Then
DspMsg("E", "łľü;Ğł˘",
gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col6
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''iüÍÂiR[h˘üÍĚęAG[
If CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7)) = 0 And _
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col8)) <> 0 Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col7
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''jšüÍÂiR[h˘üÍĚęAG[
If CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9)) = 0 And _
CNum(GrdList.GetData(iRowCnt,
EnColList.EnCol_Col10)) <> 0 Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col9
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''iR[h˘üÍÂjšR[h˘üÍĚęAG[
If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7)) = False And _
StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9)) = False Then
DspMsg("E", "łľü;Ğł˘", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col7
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''i˘üÍÂiR[hüÍĚęAiR[hđ0ÉĎX
If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7)) = True And _
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col8)) = 0 Then
GrdList.SetData(iRowCnt, EnColList.EnCol_Col7, 0)
End
If
''jš˘üÍÂjšR[hüÍĚęAjšR[hđ0ÉĎX
If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9)) = True And _
CNum(GrdList.GetData(iRowCnt, EnColList.EnCol_Col10)) = 0 Then
GrdList.SetData(iRowCnt, EnColList.EnCol_Col9, 0)
End If
End If
'''' ÓC檪üÍłŠÂRR[hŞüÍLĚęÍG[ơé
'If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) = False And _
' StrCheck(GrdList.GetData(iRowCnt,
EnColList.EnCol_Col7)) = True Then
' DspMsg("E", "łľü;Ğł˘",
gSysTitle)
' GrdList.Focus()
' GrdList.Col = EnColList.EnCol_Col6
' GrdList.Row = iRowCnt
' GrdList.StartEditing()
' Exit Function
'End If
'''' ÓC檪üÍLŠÂRR[hŞüÍłĚęÍG[ơé
'If StrCheck(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) = True And _
' StrCheck(GrdList.GetData(iRowCnt,
EnColList.EnCol_Col7)) = False Then
' DspMsg("E", "łľü;Ğł˘",
gSysTitle)
' GrdList.Focus()
' GrdList.Col = EnColList.EnCol_Col7
' GrdList.Row = iRowCnt
' GrdList.StartEditing()
' Exit Function
'End If
''2010/09/08 iwai ÇÁ END
' üÍłę˝ÓCćŞR[hŞwčłę˝lČOĚęÍG[ơé
If ChkInpRspnsDiv(GrdList.GetData(iRowCnt, EnColList.EnCol_Col6)) = False Then
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col6
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
' üÍłę˝RR[hŞiR}X^ɜݾȢęÍG[ơé
If ChkExistLostCD(GrdList.GetData(iRowCnt, EnColList.EnCol_Col7),
EnLostDiv.EnLostDiv_Lost) = False Then
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col7
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''2010/09/08 iwai ÇÁ ST
' üÍłę˝jšR[hŞiR}X^ɜݾȢęÍG[ơé
If ChkExistLostCD(GrdList.GetData(iRowCnt, EnColList.EnCol_Col9),
EnLostDiv.EnLostDiv_Hason) = False Then
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col9
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''-Cł=i+jšČOĚęG[
If ChkInpLostNum(iRowCnt) = False Then
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col7
GrdList.Row = iRowCnt
GrdList.StartEditing()
Exit Function
End If
''2010/09/08 iwai ÇÁ END
'' dŞĆCłŞŻśęĹŕXVÎŰĆÝȡć¤ÉCł
iUpdCnt += 1
End If
Next
If
iUpdCnt <= 0 Then
DspMsg("E", "XVˇéf[^ŞPŕ čÜšńB", gSysTitle)
GrdList.Focus()
GrdList.Col = EnColList.EnCol_Col5
GrdList.Row = iStartCnt
GrdList.StartEditing()
Exit Function
End
If
InputGridCheck = True
End Function
Private Sub GrdList_BeforeMouseDown(ByVal
sender As Object, ByVal e As C1.Win.C1FlexGrid.BeforeMouseDownEventArgs)
Handles GrdList.BeforeMouseDown
''Xe[^Xo[ÖÓCćŞĚŕžđ\Ś
If
GrdList.MouseCol = EnColList.EnCol_Col6 Then
ClockStatusBar1.TextPnlInfo = "P Z^[ÓCAR x_[ÓCAX {ÓC"
Else
ClockStatusBar1.TextPnlInfo = ""
End
If
End Sub
Private Sub
FooterBtn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles FooterBtn.Load
End Sub
End Class
lsSQL = lsSQL & " FROM M_COURSE GROUP BY
CHAIN_CD,COURSE,ROAD,STORE_CD) sc,"
'PR[XĚĺAĺđćž
lsSQL = lsSQL & " ( SELECT "
lsSQL = lsSQL & "
LPAD(CHAIN_CD, 8, 0) AS C_CHAIN_CD,"
lsSQL = lsSQL & "
LPAD(COURSE, 4, 0) AS C_COURSE,"
lsSQL = lsSQL & "
LPAD(CLASS_CD, 6, 0) AS C_CLASS_CD,"
lsSQL = lsSQL & " count(*) over ( partition by CHAIN_CD,COURSE)
as CLASS_COUNT,"
lsSQL = lsSQL & " ROW_NUMBER() OVER (PARTITION BY
CHAIN_CD,COURSE ORDER BY CHAIN_CD,COURSE,CLASS_CD) CLASS_NUM"
lsSQL = lsSQL & " FROM M_COURSE GROUP BY
CHAIN_CD,COURSE,CLASS_CD ) cc"
'ee[uđ
lsSQL = lsSQL & " WHERE a.CHAIN_CD = c.CHAIN_CD(+) "
lsSQL = lsSQL & " AND a.CHAIN_CD = s.CHAIN_CD(+) "
lsSQL = lsSQL & " AND a.STORE_CD = s.STORE_CD(+) "
lsSQL = lsSQL & " AND a.CHAIN_CD = b.CHAIN_CD(+) "
lsSQL = lsSQL & " AND a.CLASS_CD = b.CLASS_CD(+) "
lsSQL = lsSQL & " AND a.CHAIN_CD = sc.S_CHAIN_CD(+) "
lsSQL = lsSQL & " AND a.COURSE = sc.S_COURSE(+)"
lsSQL = lsSQL & " AND a.ROAD = sc.S_ROAD(+)"
lsSQL = lsSQL & " AND a.STORE_CD = sc.S_STORE_CD(+)"
lsSQL = lsSQL & " AND a.CHAIN_CD = cc.C_CHAIN_CD(+)"
lsSQL = lsSQL & " AND a.COURSE = cc.C_COURSE(+)"
lsSQL = lsSQL & " AND a.CLASS_CD = cc.C_CLASS_CD(+)"
lsSQL = lsSQL & " ORDER BY a.DELIV_DAY, a.CHAIN_CD, a.COURSE,
a.ROAD, a.STORE_CD, a.CLASS_CD"
OraDB.ExecuteSQL(loDynaset, lsSQL, "Search_WK_SRT0540_TEMP")
If
loDynaset.EOF Then
''uYf[^Ş čÜšńv
DspMsg("I", OraDB.GetMSG("C9999999004"), gSysTitle)
Exit Function
Else
Do Until loDynaset.EOF
''-- [[NÉf[^đVKÇÁˇé
''üĹL[đXV
''dŞút`F[R[hR[XR[hO[vR[h
''O[vR[hŻęAdŞút`F[R[XR[h&H
XÜR[hĹA¤iĺŞQ²ĆÉJEgAbvłšé
If hikaku_key2 <> loDynaset("KEY2").Value Or _
hikaku_ROAD <> loDynaset("ROAD").Value Or _
hikaku_STORECD <> loDynaset("STORE_CD").Value Then
Kaipage_key_x = 1
Kaipage_key_y = 1
Class_cnt = 1
Bmon_cnt = 1
'R[hŢđ
If SW_01 <> 0 Then
If hikaku_key2 <> loDynaset("KEY2").Value Then
'ós}ü
Call CREATE_Karagyou(loDynaset_T, Store_cnt, X_MAX, Y_MAX, hikaku_key2)
ReDim Bumei(99)
Store_cnt = 1
Else
'e[uoÍ
Call Create_sql(loDynaset_T)
Store_cnt += 1
End If
End If
X_MAX = loDynaset("CLASS_COUNT").Value
Y_MAX = loDynaset("STORE_COUNT").Value
'y[W
X_COUNT = Math.Ceiling(loDynaset("STORE_COUNT").Value /
20)
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value
.SORT_DAY = loDynaset("DELIV_DAY").Value
.DELIV_DAY = loDynaset("DELIV_DAY").Value
.CHAIN_CD = loDynaset("CHAIN_CD").Value
.CHAIN_NM = loDynaset("CHAIN_NM").Value
.COURSE = StrNVS(loDynaset("COURSE").Value, "")
.COURSE_NM = loDynaset("COURSE_NM").Value
.CLASS_CD = loDynaset("CLASS_CD").Value
.CLASS_NM = loDynaset("CLASS_NM").Value
.ROAD = loDynaset("ROAD").Value
.STORE_CD
= loDynaset("STORE_CD").Value
.STORE_NM = StrNVS(loDynaset("STORE_NM").Value, "")
.END_PAGE = X_COUNT
End With
'óR[hěŹ@
If Bmon_cnt < X_MAX
Then
If Bmon_cnt < loDynaset("CLASS_NUM").Value Then
'óR[hěŹiÇÝńžĺŞĄy[WÉ
˝Č˘ęj
Do While Bmon_cnt = loDynaset("CLASS_NUM").Value
Kaipage_key_x
= Math.Ceiling(Bmon_cnt / 2)
Kaipage_key_y = Math.Ceiling(Store_cnt / 20)
If Class_cnt = 2 Then
'e[uoÍ
With
loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_2 = 0
If Bumei(Bmon_cnt) <> "" Then
.CLASS_NM_2 = Bumei(Bmon_cnt)
Else
.CLASS_NM_2 = ""
End If
.KGC_NO_2 = 0
.CASE_NO_2 = 0
.END_PAGE = X_COUNT
End With
Call Create_sql(loDynaset_T)
Class_cnt = 1
Else
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_1 = ""
If Bumei(Bmon_cnt) <> "" Then
.CLASS_NM_1 = Bumei(Bmon_cnt)
Else
.CLASS_NM_1 = ""
End If
.KGC_NO_1 = 0
.CASE_NO_1 = 0
.CLASS_CD_2
= 0
.CLASS_NM_2 = ""
.KGC_NO_2 = 0
.CASE_NO_2 = 0
.END_PAGE = X_COUNT
End With
End If
Class_cnt += 1 '+1ľÄ˘
Bmon_cnt += 1 '+1ľÄ˘
Loop
End If
End If
Kaipage_key_x = Math.Ceiling(Bmon_cnt / 2)
Kaipage_key_y = Math.Ceiling(Store_cnt / 20)
If Class_cnt = 2 Then
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_2 = loDynaset("CLASS_CD").Value
.CLASS_NM_2 = StrNVS(loDynaset("CLASS_NM").Value,
"")
.KGC_NO_2 =
StrNVL(loDynaset("KGC_NO_SUM").Value, 0)
.CASE_NO_2 = StrNVL(loDynaset("CASE_NO_SUM").Value, 0)
.END_PAGE = X_COUNT
End
With
Call Create_sql(loDynaset_T)
Class_cnt = 1
Bmon_cnt += 1 '+1ľÄ˘
Else
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_1 = loDynaset("CLASS_CD").Value
.CLASS_NM_1 = StrNVS(loDynaset("CLASS_NM").Value,
"")
.KGC_NO_1
=
StrNVL(loDynaset("KGC_NO_SUM").Value, 0)
.CASE_NO_1 = StrNVL(loDynaset("CASE_NO_SUM").Value, 0)
.CLASS_CD_2 = 0
.CLASS_NM_2 = ""
.KGC_NO_2 = 0
.CASE_NO_2 = 0
.END_PAGE = X_COUNT
End With
Class_cnt += 1 '+1ľÄ˘
'ąąĚ ˝č ⾢ĚĹĹmF
Bmon_cnt += 1 '+1ľÄ˘
End If
SW_01 = 1
Else
'ž×sŞĎíçȢę
'óR[hěŹ@
If Bmon_cnt < X_MAX Then
'ťÝĚĺńJEgĆÇÝńžĺĚJEgđä
rťč
If Bmon_cnt < loDynaset("CLASS_NUM").Value Then
'óR[hěŹiÇÝńžĺŞĄy[WÉ
˝Č˘ęj
Do While Bmon_cnt = loDynaset("CLASS_NUM").Value
Kaipage_key_x
= Math.Ceiling(Bmon_cnt / 2)
Kaipage_key_y = Math.Ceiling(Store_cnt / 20)
If Class_cnt = 2 Then
'e[uoÍ
With
loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_2 = 0
If Bumei(Bmon_cnt) <> "" Then
.CLASS_NM_2 = Bumei(Bmon_cnt)
Else
.CLASS_NM_2 = ""
End
If
.KGC_NO_2 = 0
.CASE_NO_2 = 0
.END_PAGE = X_COUNT
End With
Call Create_sql(loDynaset_T)
Class_cnt = 1
Else
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_1 = ""
.KGC_NO_1 = 0
.CASE_NO_1 = 0
.CLASS_CD_2
= 0
If Bumei(Bmon_cnt + 1) <> "" Then
.CLASS_NM_2 = Bumei(Bmon_cnt +
1)
Else
.CLASS_NM_2
= ""
End If
.KGC_NO_2 = 0
.CASE_NO_2 = 0
.END_PAGE = X_COUNT
End With
End If
Class_cnt += 1 '+1ľÄ˘
Bmon_cnt += 1 '+1ľÄ˘
Loop
End If
End If
Kaipage_key_x = Math.Ceiling(Bmon_cnt / 2)
Kaipage_key_y = Math.Ceiling(Store_cnt / 20)
If Class_cnt = 2 Then
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_2 = loDynaset("CLASS_CD").Value
.CLASS_NM_2 = StrNVS(loDynaset("CLASS_NM").Value,
"")
.KGC_NO_2 =
StrNVL(loDynaset("KGC_NO_SUM").Value, 0)
.CASE_NO_2 = StrNVL(loDynaset("CASE_NO_SUM").Value, 0)
.END_PAGE = X_COUNT
End
With
Call Create_sql(loDynaset_T)
Class_cnt = 1
Bmon_cnt += 1 '+1ľÄ˘
Else
With loDynaset_T
.KEY2 = loDynaset("KEY2").Value & Format(Kaipage_key_y,
"00") & Format(Kaipage_key_x, "00")
.CLASS_CD_1 = loDynaset("CLASS_CD").Value
.CLASS_NM_1 = StrNVS(loDynaset("CLASS_NM").Value,
"")
.KGC_NO_1 =
StrNVL(loDynaset("KGC_NO_SUM").Value, 0)
.CASE_NO_1 = StrNVL(loDynaset("CASE_NO_SUM").Value, 0)
.CLASS_CD_2 = 0
If StrNVS(Bumei(Bmon_cnt + 1), "") <> "" Then
.CLASS_NM_2 = Bumei(Bmon_cnt + 1)
Else
.CLASS_NM_2 = ""
End If
.KGC_NO_2 = 0
.CASE_NO_2
= 0
.END_PAGE = X_COUNT
End With
Class_cnt += 1 '+1ľÄ˘
'ąąĚ ˝č ⾢ĚĹĹmF
Bmon_cnt += 1 '+1ľÄ˘
End
If
End If
hikaku_key2 = loDynaset("KEY2").Value
hikaku_class = loDynaset("CLASS_CD").Value
hikaku_ROAD = loDynaset("ROAD").Value
hikaku_STORECD = loDynaset("STORE_CD").Value
If loDynaset("CLASS_NM").Value <> "" Then
Bumei(loDynaset("CLASS_NUM").Value) =
loDynaset("CLASS_NM").Value
End If
loDynaset.MoveNext()
Loop
End
If
'R[hŢđ
If
SW_01 <> 0 Then
'ĹIŢđŞe[uoÍ
Call Create_sql(loDynaset_T)
Call CREATE_Karagyou(loDynaset_T, Store_cnt, X_MAX, Y_MAX,
hikaku_key2)
Bumei = Nothing
Store_cnt = 1
End If
loDynaset.Close()
loDynaset = Nothing
CreateWork = True
Exit
Function
CreateWorkErr:
lsDesc = Err.Description
CreateWork = False
Call
LogErr.SetLog("", "", "Search_WK_SRT0540_TEMP",
"SRT0540", Err)
''uIN(`cn)ÚąÉG[ŞśľÜľ˝v
Call
DspMsg("S", OraDB.MSG("C9999999002") & vbCrLf &
Err.Description, gSysTitle)
OraDB.WriteSql(lsSQL, "Search_WK_SRT0540_TEMP", lsDesc)
End Function
'ós}üW
[
Private Function CREATE_Karagyou(ByVal loDynaset_T As Object, ByVal
STORE_CNT As Integer, _
ByVal X_MAX As Integer, ByVal Y_MAX As Integer, ByVal key2 As String) As
Boolean
On
Error GoTo CREATE_KaragyouErr
Dim
lsSQL As String
Dim
lsDesc As String
Dim
lsMainSQL As String
Dim
CREATE_GYOU As Integer
Dim
CREATE_RETU As Integer
Dim
GYO_CNT As Integer
Dim
RET_CNT As Integer
CREATE_Karagyou = False
CREATE_RETU = Math.Ceiling(X_MAX / 2) * 2
CREATE_GYOU = Math.Ceiling(Y_MAX / 20) * 20
GYO_CNT = STORE_CNT
RET_CNT = 1
Do
Until GYO_CNT = CREATE_GYOU
Do Until RET_CNT >= CREATE_RETU
With loDynaset_T
.KEY2 = key2 & Format(Math.Ceiling(GYO_CNT / 20), "00")
& Format(Math.Ceiling(RET_CNT / 2), "00")
.ROAD = 9999
.STORE_CD = 99999999
.CLASS_CD_1 = 0
.CLASS_NM_1 =
Bumei(RET_CNT)
.KGC_NO_1 = 0
.CASE_NO_1 = 0
RET_CNT = RET_CNT + 1
.CLASS_CD_2 = 0
.CLASS_NM_2 = Bumei(RET_CNT)
.KGC_NO_2 = 0
.CASE_NO_2 = 0
RET_CNT = RET_CNT + 1
End With
Call Create_sql(loDynaset_T)
Loop
RET_CNT = 1
GYO_CNT = GYO_CNT + 1
Loop
CREATE_Karagyou = True
Exit
Function
CREATE_KaragyouErr:
lsDesc = Err.Description
CREATE_Karagyou = False
Call
LogErr.SetLog("", "", "CREATE_Karagyou",
"SRT0540", Err)
End Function
@ [
System
Imports DataDynamics.ActiveReports
Imports DataDynamics.ActiveReports.Document
Imports COMMONLIB
Imports COMMONLIB.CGlobalUtility
Imports COMMONLIB.CBusinessRule
Public Class RptSRT0500
Inherits ActiveReport
#Region "***** RXgN^ *****"
Public Sub New()
MyBase.New()
InitializeReport()
End Sub
#End Region
#Region "ActiveReports Designer generated
code"
Private WithEvents PageHeader As DataDynamics.ActiveReports.PageHeader =
Nothing
Private WithEvents gHeader As DataDynamics.ActiveReports.GroupHeader =
Nothing
Private WithEvents Detail As DataDynamics.ActiveReports.Detail = Nothing
Private WithEvents gFooter As DataDynamics.ActiveReports.GroupFooter =
Nothing
Private WithEvents PageFooter As DataDynamics.ActiveReports.PageFooter =
Nothing
Private
LblPGID As DataDynamics.ActiveReports.Label = Nothing
Private
LblTitle As DataDynamics.ActiveReports.Label = Nothing
Private
LblSysDate As DataDynamics.ActiveReports.Label = Nothing
Private
TxtPage As DataDynamics.ActiveReports.TextBox = Nothing
Private
TxtTotalPage As DataDynamics.ActiveReports.TextBox = Nothing
Private
lblPage As DataDynamics.ActiveReports.Label = Nothing
Private
Labblack As DataDynamics.ActiveReports.Label = Nothing
Private
LblVender As DataDynamics.ActiveReports.Label = Nothing
Private
fldClassNm As DataDynamics.ActiveReports.TextBox = Nothing
Private
LblChain As DataDynamics.ActiveReports.Label = Nothing
Private
fldChainCd As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldChainNm As DataDynamics.ActiveReports.TextBox = Nothing
Private
LblContento As DataDynamics.ActiveReports.Label = Nothing
Private
LblMerchNm As DataDynamics.ActiveReports.Label = Nothing
Private
LblOrdNum As DataDynamics.ActiveReports.Label = Nothing
Private
LblCaseNum As DataDynamics.ActiveReports.Label = Nothing
Private
LblBaraNum As DataDynamics.ActiveReports.Label = Nothing
Private
fldDeriv As DataDynamics.ActiveReports.TextBox = Nothing
Private
LabelDeliv As DataDynamics.ActiveReports.Label = Nothing
Private
fldZaikodivnm As DataDynamics.ActiveReports.TextBox = Nothing
Private
LblZaikolbl As DataDynamics.ActiveReports.Label = Nothing
Private
Label1 As DataDynamics.ActiveReports.Label = Nothing
Private
Labbaranum As DataDynamics.ActiveReports.Label = Nothing
Private
Label2 As DataDynamics.ActiveReports.Label = Nothing
Private
Label3 As DataDynamics.ActiveReports.Label = Nothing
Private
Label4 As DataDynamics.ActiveReports.Label = Nothing
Private
fldzaiko_kbn As DataDynamics.ActiveReports.TextBox = Nothing
Private
Line14 As DataDynamics.ActiveReports.Line = Nothing
Private
Line As DataDynamics.ActiveReports.Line = Nothing
Private
Line1 As DataDynamics.ActiveReports.Line = Nothing
Private
Line2 As DataDynamics.ActiveReports.Line = Nothing
Private
Line3 As DataDynamics.ActiveReports.Line = Nothing
Private
Line4 As DataDynamics.ActiveReports.Line = Nothing
Private
Line5 As DataDynamics.ActiveReports.Line = Nothing
Private
Line6 As DataDynamics.ActiveReports.Line = Nothing
Private
Line7 As DataDynamics.ActiveReports.Line = Nothing
Private
Line19 As DataDynamics.ActiveReports.Line = Nothing
Private
fldLocate As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldMerchNm As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldMerchCd As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldContento As DataDynamics.ActiveReports.TextBox = Nothing
Private
SumMeisai As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldCase1 As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldCase2 As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldBara1 As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldBara2 As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldBarameisa1 As DataDynamics.ActiveReports.TextBox = Nothing
Private
fldBarameisa2 As DataDynamics.ActiveReports.TextBox = Nothing
Private
Fldgyou As DataDynamics.ActiveReports.TextBox = Nothing
Private
Line8 As DataDynamics.ActiveReports.Line = Nothing
Private
Line9 As DataDynamics.ActiveReports.Line = Nothing
Private
Line10 As DataDynamics.ActiveReports.Line = Nothing
Private
Line11 As DataDynamics.ActiveReports.Line = Nothing
Private
Line12 As DataDynamics.ActiveReports.Line = Nothing
Private
Line13 As DataDynamics.ActiveReports.Line = Nothing
Private
Line15 As DataDynamics.ActiveReports.Line = Nothing
Private
Line16 As DataDynamics.ActiveReports.Line = Nothing
Private
Line17 As DataDynamics.ActiveReports.Line = Nothing
Private
Line18 As DataDynamics.ActiveReports.Line = Nothing
Private
SumDeriv As DataDynamics.ActiveReports.TextBox = Nothing
Private
Line20 As DataDynamics.ActiveReports.Line = Nothing
Private
fldkey As DataDynamics.ActiveReports.TextBox = Nothing
Public
Sub InitializeReport()
Me.LoadLayout(Me.GetType,
"SRT0500.RptSRT0500.rpx")
Me.PageHeader
=
CType(Me.Sections("PageHeader"),DataDynamics.ActiveReports.PageHeader)
Me.gHeader
=
CType(Me.Sections("gHeader"),DataDynamics.ActiveReports.GroupHeader)
Me.Detail
=
CType(Me.Sections("Detail"),DataDynamics.ActiveReports.Detail)
Me.gFooter
=
CType(Me.Sections("gFooter"),DataDynamics.ActiveReports.GroupFooter)
Me.PageFooter
=
CType(Me.Sections("PageFooter"),DataDynamics.ActiveReports.PageFooter)
Me.LblPGID
=
CType(Me.PageHeader.Controls(0),DataDynamics.ActiveReports.Label)
Me.LblTitle
=
CType(Me.PageHeader.Controls(1),DataDynamics.ActiveReports.Label)
Me.LblSysDate
=
CType(Me.PageHeader.Controls(2),DataDynamics.ActiveReports.Label)
Me.TxtPage
=
CType(Me.PageHeader.Controls(3),DataDynamics.ActiveReports.TextBox)
Me.TxtTotalPage
=
CType(Me.PageHeader.Controls(4),DataDynamics.ActiveReports.TextBox)
Me.lblPage
=
CType(Me.PageHeader.Controls(5),DataDynamics.ActiveReports.Label)
Me.Labblack
=
CType(Me.gHeader.Controls(0),DataDynamics.ActiveReports.Label)
Me.LblVender
=
CType(Me.gHeader.Controls(1),DataDynamics.ActiveReports.Label)
Me.fldClassNm
=
CType(Me.gHeader.Controls(2),DataDynamics.ActiveReports.TextBox)
Me.LblChain
=
CType(Me.gHeader.Controls(3),DataDynamics.ActiveReports.Label)
Me.fldChainCd
=
CType(Me.gHeader.Controls(4),DataDynamics.ActiveReports.TextBox)
Me.fldChainNm
=
CType(Me.gHeader.Controls(5),DataDynamics.ActiveReports.TextBox)
Me.LblContento
=
CType(Me.gHeader.Controls(6),DataDynamics.ActiveReports.Label)
Me.LblMerchNm
=
CType(Me.gHeader.Controls(7),DataDynamics.ActiveReports.Label)
Me.LblOrdNum
=
CType(Me.gHeader.Controls(8),DataDynamics.ActiveReports.Label)
Me.LblCaseNum
=
CType(Me.gHeader.Controls(9),DataDynamics.ActiveReports.Label)
Me.LblBaraNum
=
CType(Me.gHeader.Controls(10),DataDynamics.ActiveReports.Label)
Me.fldDeriv
=
CType(Me.gHeader.Controls(11),DataDynamics.ActiveReports.TextBox)
Me.LabelDeliv
=
CType(Me.gHeader.Controls(12),DataDynamics.ActiveReports.Label)
Me.fldZaikodivnm
=
CType(Me.gHeader.Controls(13),DataDynamics.ActiveReports.TextBox)
Me.LblZaikolbl
= CType(Me.gHeader.Controls(14),DataDynamics.
ActiveReports.Label)
Me.Label1
=
CType(Me.gHeader.Controls(15),DataDynamics.ActiveReports.Label)
Me.Labbaranum
=
CType(Me.gHeader.Controls(16),DataDynamics.ActiveReports.Label)
Me.Label2
=
CType(Me.gHeader.Controls(17),DataDynamics.ActiveReports.Label)
Me.Label3
=
CType(Me.gHeader.Controls(18),DataDynamics.ActiveReports.Label)
Me.Label4
=
CType(Me.gHeader.Controls(19),DataDynamics.ActiveReports.Label)
Me.fldzaiko_kbn
=
CType(Me.gHeader.Controls(20),DataDynamics.ActiveReports.TextBox)
Me.Line14
=
CType(Me.gHeader.Controls(21),DataDynamics.ActiveReports.Line)
Me.Line
=
CType(Me.gHeader.Controls(22),DataDynamics.ActiveReports.Line)
Me.Line1
=
CType(Me.gHeader.Controls(23),DataDynamics.ActiveReports.Line)
Me.Line2
=
CType(Me.gHeader.Controls(24),DataDynamics.ActiveReports.Line)
Me.Line3
=
CType(Me.gHeader.Controls(25),DataDynamics.ActiveReports.Line)
Me.Line4
=
CType(Me.gHeader.Controls(26),DataDynamics.ActiveReports.Line)
Me.Line5
=
CType(Me.gHeader.Controls(27),DataDynamics.ActiveReports.Line)
Me.Line6
=
CType(Me.gHeader.Controls(28),DataDynamics.ActiveReports.Line)
Me.Line7
=
CType(Me.gHeader.Controls(29),DataDynamics.ActiveReports.Line)
Me.Line19
=
CType(Me.gHeader.Controls(30),DataDynamics.ActiveReports.Line)
Me.fldLocate
=
CType(Me.Detail.Controls(0),DataDynamics.ActiveReports.TextBox)
Me.fldMerchNm
=
CType(Me.Detail.Controls(1),DataDynamics.ActiveReports.TextBox)
Me.fldMerchCd
=
CType(Me.Detail.Controls(2),DataDynamics.ActiveReports.TextBox)
Me.fldContento
=
CType(Me.Detail.Controls(3),DataDynamics.ActiveReports.TextBox)
Me.SumMeisai
=
CType(Me.Detail.Controls(4),DataDynamics.ActiveReports.TextBox)
Me.fldCase1
=
CType(Me.Detail.Controls(5),DataDynamics.ActiveReports.TextBox)
Me.fldCase2
=
CType(Me.Detail.Controls(6),DataDynamics.ActiveReports.TextBox)
Me.fldBara1
=
CType(Me.Detail.Controls(7),DataDynamics.ActiveReports.TextBox)
Me.fldBara2
=
CType(Me.Detail.Controls(8),DataDynamics.ActiveReports.TextBox)
Me.fldBarameisa1
= CType(Me.Detail.Controls(9),DataDynamics.
ActiveReports.TextBox)
Me.fldBarameisa2
=
CType(Me.Detail.Controls(10),DataDynamics.ActiveReports.TextBox)
Me.Fldgyou
=
CType(Me.Detail.Controls(11),DataDynamics.ActiveReports.TextBox)
Me.Line8
=
CType(Me.Detail.Controls(12),DataDynamics.ActiveReports.Line)
Me.Line9
=
CType(Me.Detail.Controls(13),DataDynamics.ActiveReports.Line)
Me.Line10
=
CType(Me.Detail.Controls(14),DataDynamics.ActiveReports.Line)
Me.Line11
=
CType(Me.Detail.Controls(15),DataDynamics.ActiveReports.Line)
Me.Line12
=
CType(Me.Detail.Controls(16),DataDynamics.ActiveReports.Line)
Me.Line13
=
CType(Me.Detail.Controls(17),DataDynamics.ActiveReports.Line)
Me.Line15
=
CType(Me.Detail.Controls(18),DataDynamics.ActiveReports.Line)
Me.Line16
=
CType(Me.Detail.Controls(19),DataDynamics.ActiveReports.Line)
Me.Line17
=
CType(Me.Detail.Controls(20),DataDynamics.ActiveReports.Line)
Me.Line18
=
CType(Me.Detail.Controls(21),DataDynamics.ActiveReports.Line)
Me.SumDeriv
=
CType(Me.Detail.Controls(22),DataDynamics.ActiveReports.TextBox)
Me.Line20
=
CType(Me.Detail.Controls(23),DataDynamics.ActiveReports.Line)
Me.fldkey
=
CType(Me.Detail.Controls(24),DataDynamics.ActiveReports.TextBox)
End
Sub
#End Region
'Py[WÉ 20 s o;ܡB
Private Const PAGEROWS = 21
Dim iRow As Integer 'sÔ
Dim Taihi_key As String = ""
Dim SW01 As Integer = 0
Dim EOFSW As Integer = 0
Dim GroupCount As Integer 'O[vŕĚR[h
Dim myDataSet As DataSet = New DataSet
Public CHAIN_CD As String = ""
Public CHIAN_NM As String = ""
Public ZAIKO_DIV As String = ""
Public MERCH_NM As String = ""
Public MERCH_CD As String = ""
Public CONTENTO As String = ""
Public Z_LOCATE As String
Public CASE_NUM_1 As String
Public CASE_NUM_2 As String
Public BARA_NUM_1 As String
Public BARA_NUM_2 As String
#Region "***** Cxg *****"
Private Sub Rpt_ReportStart(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.ReportStart
''' pÝč
Me.PageSettings.PaperKind = Drawing.Printing.PaperKind.A4
Me.PageSettings.Orientation = PageOrientation.Portrait
Me.PageSettings.Margins.Top = 800 / 1440
Me.PageSettings.Margins.Bottom = 600 / 1440
Me.PageSettings.Margins.Left = 525 / 1440
Me.PageSettings.Margins.Right = 525 / 1440
'' O[vÝč
'
Me.gHeader.DataField = "GRPKEY"
Me.fldkey.DataField = "GRPKEY"
'' ú
Me.LblSysDate.Text = Format(Now, "yyyy/MM/dd HH:mm:ss")
'' ĹÔ
Me.TxtPage.SummaryRunning = SummaryRunning.All
Me.TxtPage.SummaryType = SummaryType.PageCount
Me.TxtTotalPage.SummaryRunning = SummaryRunning.None ''Ĺ
Me.TxtTotalPage.SummaryType = SummaryType.PageCount
' Me.gHeader.DataField =
"GRPKEY" ''O[vwb_[([iúE`F[R[
hEÖEJeSEÝÉćŞÉüĹ)
''[iú
Me.fldDeriv.DataField = "DELIV_DAY"
'' `F[
Me.fldChainCd.DataField = "CHAIN_CD"
Me.fldChainNm.DataField = "CHAIN_NM"
'' JeS
Me.fldClassNm.DataField = "CLASS_NM"
'' ÝÉćŞ
Me.fldzaiko_kbn.DataField = "ZAIKO_DIV"
'' P[V
Me.fldLocate.DataField = "Z_LOCATE"
'' ¤iR[h
Me.fldMerchCd.DataField = "MERCH_CD"
'' ¤iź
Me.fldMerchNm.DataField = "MERCH_NM"
'' ü
Me.fldContento.DataField = "CONTENTO"
Me.fldContento.OutputFormat = "###,##0"
'' 1ob`P[X
Me.fldCase1.DataField = "CASE_NUM_1"
Me.fldCase1.OutputFormat = "###,##0"
'' 2ob`P[X
Me.fldCase2.DataField = "CASE_NUM_2"
Me.fldCase2.OutputFormat = "###,##0"
'' 1o
Me.fldBara1.DataField = "BARA_NUM_1"
Me.fldBara1.OutputFormat = "###,##0"
'' 2o
Me.fldBara2.DataField = "BARA_NUM_2"
Me.fldBara2.OutputFormat = "###,##0"
End Sub
Private Sub gHeader_Format(ByVal sender As Object, ByVal e As
System.EventArgs) Handles gHeader.Format
'' ÝÉćŞ
Select Case Me.fldzaiko_kbn.Text
Case 1
Me.fldZaikodivnm.Text = "ÝÉ"
Case 2
Me.fldZaikodivnm.Text = "ŠŽqÉ"
Case 3
Me.fldZaikodivnm.Text = "X[i"
Case Else
Me.fldZaikodivnm.Text = ""
End
Select
End Sub
Private Sub Detail_Format(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Detail.Format
Dim
SUM_case As Integer = 0
Dim
SUM_bara As Integer = 0
Dim
BARA_case1 As Integer = 0
Dim
BARA_bara1 As Integer = 0
Dim
BARA_case2 As Integer = 0
Dim
BARA_bara2 As Integer = 0
Dim
BARA1 As String = ""
Dim
BARA2 As String = ""
Dim
hinmei As String
'sÔđCNgľÜˇB
iRow
+= 1
If
iRow > PAGEROWS Then iRow = 1 'üy[WÉZbg
''óAÔ
Me.Fldgyou.Value = iRow
If
SW01 = 0 Then
Taihi_key = Me.fldkey.Text
SW01 = 1
End
If
If
Taihi_key <> Me.fldkey.Text Then
CHAIN_CD = Me.Fields("CHAIN_CD").Value
ZAIKO_DIV = Me.Fields("ZAIKO_DIV").Value
MERCH_CD = Me.Fields("MERCH_CD").Value
MERCH_NM = Me.Fields("MERCH_NM").Value
CONTENTO =
Me.Fields("CONTENTO").Value
Z_LOCATE = Me.Fields("Z_LOCATE").Value
CASE_NUM_1 = Me.Fields("CASE_NUM_1").Value
CASE_NUM_2 = Me.Fields("CASE_NUM_2").Value
BARA_NUM_1 = Me.Fields("BARA_NUM_1").Value
BARA_NUM_2 = Me.Fields("BARA_NUM_2").Value
Me.fldMerchCd.Visible = False
Me.fldMerchNm.Visible = False
Me.fldLocate.Visible = False
Me.fldBarameisa1.Visible = False
Me.fldBarameisa2.Visible = False
Me.fldContento.Visible = False
Me.fldCase1.Visible = False
Me.fldCase2.Visible = False
Me.fldBara1.Visible = False
Me.fldBara2.Visible = False
Me.SumDeriv.Visible = False
Me.SumMeisai.Visible = False
Me.LayoutAction = LayoutAction.MoveLayout + LayoutAction.PrintSection
Taihi_key = ""
If iRow >= PAGEROWS Then
iRow = 1
Me.Fldgyou.Value = iRow
Me.LayoutAction = 7
Me.Detail.NewPage = NewPage.Before
Me.fldChainCd.Text = CHAIN_CD
Me.fldzaiko_kbn.Text = ZAIKO_DIV
Me.fldMerchCd.Text = MERCH_CD
Me.fldMerchNm.Text = MERCH_NM
Me.fldLocate.Text = Z_LOCATE
Me.fldContento.Text = CONTENTO
Me.Fields("CASE_NUM_1").Value = CASE_NUM_1
Me.Fields("CASE_NUM_2").Value = CASE_NUM_2
Me.Fields("BARA_NUM_1").Value = BARA_NUM_1
Me.Fields("BARA_NUM_2").Value = BARA_NUM_2
Taihi_key = Me.fldkey.Text
End If
End
If
If
Taihi_key <> "" Then
Me.fldMerchCd.Visible = True
Me.fldMerchNm.Visible = True
Me.fldLocate.Visible = True
Me.fldBarameisa1.Visible = True
Me.fldBarameisa2.Visible = True
Me.fldContento.Visible = True
Me.fldCase1.Visible
= True
Me.fldCase2.Visible = True
Me.fldBara1.Visible = True
Me.fldBara2.Visible = True
Me.SumDeriv.Visible = True
Me.SumMeisai.Visible = True
If IsNumeric(Me.fldContento.Text) And Me.fldContento.Text <> 0
Then
BARA_case1 = CNum(Me.fldBara1.Text) \
CNum(Me.fldContento.Text)
BARA_bara1 = CNum(Me.fldBara1.Text) Mod CNum(Me.fldContento.
Text)
BARA_case2 = CNum(Me.fldBara2.Text) \
CNum(Me.fldContento.Text)
BARA_bara2 = CNum(Me.fldBara2.Text) Mod CNum(Me.fldContento.
Text)
Else
BARA_case1 = 0
BARA_bara1 = 0
BARA_case2 = 0
BARA_bara2 = 0
End If
BARA1 = String.Format("{0, 3}", BARA_case1) & " -
" & String.Format("{0, 3}", BARA_bara1)
BARA2 = String.Format("{0, 3}", BARA_case2) & " -
" & String.Format("{0, 3}", BARA_bara2)
'o@ş
Me.fldBarameisa1.Text = "(" & String.Format("{0,
3}",
CNum(Me.fldBara1.Text)) & ")"
Me.fldBarameisa2.Text = "(" & String.Format("{0,
3}",
CNum(Me.fldBara2.Text)) & ")"
'o@ă
Me.fldBara1.Text = BARA1
Me.fldBara2.Text = BARA2
'vZ
SUM_case = BARA_case1 + BARA_case2 + CNum(Me.fldCase1.Text) +
CNum(Me.fldCase2.Text)
SUM_bara = BARA_bara1 + BARA_bara2
String.Format("{0, 3}", (SUM_case * CNum(Me.fldContento.Text)
+
SUM_bara))
'voÉZbg@ă
Me.SumDeriv.Text = String.Format("{0, 3}", SUM_case) &
"-" & String.Format("{0, 3}", SUM_bara)
'voÉZbg@ş
Me.SumMeisai.Text = "(" & String.Format("{0,
3}", (SUM_case *
CNum(Me.fldContento.Text) + SUM_bara)) &
")"
End
If
End Sub
Private Sub rptSeikyu_FetchData(ByVal sender As Object, ByVal eArgs As
DataDynamics.ActiveReports.ActiveReport.FetchEventArgs)
Handles MyBase.FetchData
Dim
WORK As String
Dim
GYO As String
WORK
= Me.Fields("MERCH_CD").Value
GYO
= iRow
' Ş10ɽȢęAüy[WÍsȢܚńB
Me.gHeader.NewPage = NewPage.None
Me.Detail.NewPage = NewPage.None
If
eArgs.EOF Then
GYO = iRow
If GYO < 20 Then
eArgs.EOF = False
Me.Fields("MERCH_CD").Value = ""
Me.Fields("MERCH_NM").Value = ""
Me.Fields("ZAIKO_DIV").Value = ""
Me.Fields("MERCH_CD").Value = ""
Me.Fields("MERCH_NM").Value = ""
Me.Fields("CONTENTO").Value = 0
Me.Fields("Z_LOCATE").Value = ""
Me.Fields("CASE_NUM_1").Value = 0
Me.fldContento.Visible
= False
Me.SumDeriv.Visible = False
Me.SumMeisai.Visible = False
Me.fldCase1.Visible = False
Me.fldCase2.Visible = False
Me.fldBara1.Visible = False
Me.fldBarameisa1.Visible = False
Me.fldBara2.Visible = False
Me.fldBarameisa2.Visible = False
Else
eArgs.EOF = True
End If
GYO += 1
End
If
End Sub
Private Sub Rpt_NoData(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.NoData
Call
DspMsg("I", OracleDB.GetMSG(MSG_C004) & vbCrLf &
Err.Description, gSysTitle)
Me.Stop()
End Sub
Private Sub Rpt_ReportEnd(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.ReportEnd
Err.Clear() : On Error Resume Next
End Sub
#End Region
End
Class"'"'"'"'"'"'"'"'"'"'"'"'"'"'"'"'"'