• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision81 (tree)
Time2018-07-18 17:43:17
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.TRN5000/TRN5710.Designer.vb (revision 80)
+++ trunk/MLApp.TRN5000/TRN5710.Designer.vb (revision 81)
@@ -24,6 +24,8 @@
2424 Private Sub InitializeComponent()
2525 Me.cmbInventoriesDate = New ML.Controls.uc6ComboBox()
2626 Me.Uc6Label1 = New ML.Controls.uc6Label()
27+ Me.txtLastInventoriesDate = New ML.Controls.uc6TextBox()
28+ Me.Uc6Label2 = New ML.Controls.uc6Label()
2729 Me.MenuBtnPanel.SuspendLayout()
2830 CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
2931 Me.SuspendLayout()
@@ -90,7 +92,7 @@
9092 Me.cmbInventoriesDate.ItemHeight = 14
9193 Me.cmbInventoriesDate.Location = New System.Drawing.Point(112, 55)
9294 Me.cmbInventoriesDate.Name = "cmbInventoriesDate"
93- Me.cmbInventoriesDate.Size = New System.Drawing.Size(116, 20)
95+ Me.cmbInventoriesDate.Size = New System.Drawing.Size(93, 20)
9496 Me.cmbInventoriesDate.TabIndex = 10
9597 Me.cmbInventoriesDate.ValueMember = "ROW_NUM"
9698 '
@@ -105,11 +107,37 @@
105107 Me.Uc6Label1.Text = "棚卸日付"
106108 Me.Uc6Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
107109 '
110+ 'txtLastInventoriesDate
111+ '
112+ Me.txtLastInventoriesDate.Enabled = False
113+ Me.txtLastInventoriesDate.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
114+ Me.txtLastInventoriesDate.ImeMode = System.Windows.Forms.ImeMode.Hiragana
115+ Me.txtLastInventoriesDate.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
116+ Me.txtLastInventoriesDate.Location = New System.Drawing.Point(349, 55)
117+ Me.txtLastInventoriesDate.Name = "txtLastInventoriesDate"
118+ Me.txtLastInventoriesDate.PermitChars = New Char(-1) {}
119+ Me.txtLastInventoriesDate.Size = New System.Drawing.Size(93, 20)
120+ Me.txtLastInventoriesDate.TabIndex = 154
121+ Me.txtLastInventoriesDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
122+ '
123+ 'Uc6Label2
124+ '
125+ Me.Uc6Label2.BackColor = System.Drawing.Color.Navy
126+ Me.Uc6Label2.ForeColor = System.Drawing.Color.White
127+ Me.Uc6Label2.Location = New System.Drawing.Point(249, 55)
128+ Me.Uc6Label2.Name = "Uc6Label2"
129+ Me.Uc6Label2.Size = New System.Drawing.Size(94, 20)
130+ Me.Uc6Label2.TabIndex = 155
131+ Me.Uc6Label2.Text = "最終棚卸日"
132+ Me.Uc6Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
133+ '
108134 'TRN5710
109135 '
110136 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
111137 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
112138 Me.ClientSize = New System.Drawing.Size(859, 330)
139+ Me.Controls.Add(Me.Uc6Label2)
140+ Me.Controls.Add(Me.txtLastInventoriesDate)
113141 Me.Controls.Add(Me.cmbInventoriesDate)
114142 Me.Controls.Add(Me.Uc6Label1)
115143 Me.Name = "TRN5710"
@@ -117,6 +145,8 @@
117145 Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
118146 Me.Controls.SetChildIndex(Me.Uc6Label1, 0)
119147 Me.Controls.SetChildIndex(Me.cmbInventoriesDate, 0)
148+ Me.Controls.SetChildIndex(Me.txtLastInventoriesDate, 0)
149+ Me.Controls.SetChildIndex(Me.Uc6Label2, 0)
120150 Me.MenuBtnPanel.ResumeLayout(False)
121151 CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
122152 Me.ResumeLayout(False)
@@ -125,4 +155,6 @@
125155 End Sub
126156 Friend WithEvents cmbInventoriesDate As ML.Controls.uc6ComboBox
127157 Friend WithEvents Uc6Label1 As ML.Controls.uc6Label
158+ Friend WithEvents txtLastInventoriesDate As ML.Controls.uc6TextBox
159+ Friend WithEvents Uc6Label2 As ML.Controls.uc6Label
128160 End Class
--- trunk/MLApp.TRN5000/TRN5710.vb (revision 80)
+++ trunk/MLApp.TRN5000/TRN5710.vb (revision 81)
@@ -43,7 +43,9 @@
4343
4444 If Not rD180.Fields("D180_DT1_MAX").Value Is DBNull.Value Then
4545
46- Me.cmbInventoriesDate.Text = rD180.Fields("D180_DT1_MAX").Value.ToString
46+ Dim sMaxInventoriesDate As String = String.Format(ML.Common.Const.Fmt.fmtDateYYYY_MM_DD, CDate(rD180.Fields("D180_DT1_MAX").Value))
47+ Me.cmbInventoriesDate.Text = sMaxInventoriesDate
48+ Me.txtLastInventoriesDate.Text = sMaxInventoriesDate
4749
4850 End If
4951
@@ -107,44 +109,32 @@
107109 Exit Sub
108110 End If
109111
110- ' '' M120-書込処理
111- 'If Me.UpdateM120 = False Then
112+ '' 確認
113+ If Me.Messenger.QuestionYesNoDef2.Show( _
114+ ML.Common.Message.Resource.Q.MSG_Q_0002,
115+ Me.Text,
116+ "棚卸計算") = Windows.Forms.DialogResult.No Then
117+ Exit Sub
118+ End If
112119
113- ' '' メッセージ表示
114- ' Me.Messenger.ErrorOKOnly.Show( _
115- ' ML.Common.Message.Resource.E.MSG_E_0006, _
116- ' "更新失敗", _
117- ' "ユーザーマスタ")
120+ '' 棚卸計算
121+ If Me.ExecProc = False Then
122+ '' 異常通知
123+ Me.Messenger.ErrorOKOnly.Show( _
124+ ML.Common.Message.Resource.E.MSG_E_0006, _
125+ "処理失敗", _
126+ "棚卸計算")
127+ Else
128+ '' 完了通知
129+ Me.Messenger.InfoOKOnly.Show( _
130+ ML.Common.Message.Resource.I.MSG_I_0001, _
131+ "処理完了", _
132+ "棚卸計算")
133+ '' 画面を終了する
134+ Me.cmdF12_Click(sender, e)
118135
119- ' Exit Sub
136+ End If
120137
121- 'Else
122-
123- ' '' メッセージ表示
124- ' Me.Messenger.InfoOKOnly.Show( _
125- ' ML.Common.Message.Resource.I.MSG_I_0001, _
126- ' "登録完了", _
127- ' "登録処理")
128-
129- 'End If
130-
131- ' '' ユーザーマスタ読込
132- 'Me.SearchM120()
133-
134- ' '' 画面モード判定
135- 'Select Case Me.lblDispMode.Text
136- ' Case stcDispMode.DispNew
137-
138- ' '' 新規ボタンクリック処理
139- ' Me.cmdF4_Click(sender, e)
140-
141- ' Case Else
142-
143- ' '' 元に戻す
144- ' Me.CancelProc()
145-
146- 'End Select
147-
148138 Catch ex As Exception
149139
150140 '' エラーログを出力する
@@ -156,9 +146,7 @@
156146 End Try
157147 End Sub
158148
159- ''' <summary>
160- ''' 棚卸日付更新後イベント
161- ''' </summary>
149+ ''' <summary>棚卸日付更新後イベント</summary>
162150 Private Sub cmbInventoriesDate_AfterUpdate(sender As System.Object, e As System.EventArgs) Handles cmbInventoriesDate.AfterUpdate
163151
164152 '' 実行ボタンの活性/非活性切り替え
@@ -174,537 +162,79 @@
174162
175163 #Region " メソッド"
176164
177- ' ''' <summary>キャンセル処理(元に戻す)</summary>
178- 'Private Sub CancelProc()
179- ' Try
180- ' '' 画面初期化
181- ' Me.InitDisp()
165+ ''' <summary>更新前チェック</summary>
166+ Private Function CheckBeforeProc() As Boolean
167+ Dim bRet As Boolean = False
182168
183- ' '' 検索ボタン押下処理
184- ' Me.cmdF5_Click(New Object, New EventArgs)
169+ Try
170+ '' 最新の棚卸日付かどうかチェック
171+ If Me.cmbInventoriesDate.Text <> Me.txtLastInventoriesDate.Text Then
185172
186- ' Catch ex As Exception
173+ '' 確認
174+ If Me.Messenger.QuestionYesNoDef2.Show( _
175+ ML.Common.Message.Resource.Q.MSG_Q_0005,
176+ Me.Text,
177+ "最新の棚卸日付") = Windows.Forms.DialogResult.No Then
187178
188- ' Throw ex
179+ Return bRet
180+ End If
189181
190- ' End Try
182+ End If
191183
192- 'End Sub
184+ bRet = True
193185
194- ' ''' <summary>画面初期化処理</summary>
195- 'Private Sub InitDisp()
196- ' Try
197- ' '' コンボボックス設定
198- ' Me.SetComboBox()
186+ Catch ex As Exception
199187
200- ' '' 入力フィールド初期化
201- ' Me.InitInputField()
188+ '' エラーログを出力する
189+ Me.Logger.WriteErrorLog(ex.Message)
202190
203- ' '' 入力フィールドの使用可否設定
204- ' Me.EnabledInputField(False)
191+ '' エラーメッセージを表示する
192+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
205193
206- ' '' 検索フィールドの使用可否設定
207- ' Me.EnalbedSearchField(True)
194+ End Try
208195
209- ' '' ボタンコントロールの使用可否設定
210- ' Me.ChangeButtonEnabled_Init()
196+ '' 戻り値を返す
197+ Return bRet
211198
212- ' '' 検索結果DataGridViewを活性化する
213- ' Me.dgvTRN8110S1.Enabled = True
199+ End Function
214200
215- ' '' 画面モード初期化
216- ' Me.lblDispMode.Text = stcDispMode.DispNone
201+ ''' <summary>棚卸計算</summary>
202+ Private Function ExecProc() As Boolean
203+ Dim bRet As Boolean = False
217204
218- ' '' 初期フォーカスをセットする
219- ' Me.txtFurigana.Focus()
205+ Try
206+ '' カーソルを待機状態にする
207+ Me.Cursor = Windows.Forms.Cursors.WaitCursor
220208
221- ' Catch ex As Exception
209+ '' 棚卸計算
210+ Dim cProc As New TRNLib.D180.ExecProc
211+ cProc.InventoriesDate = CDate(Me.cmbInventoriesDate.Text)
212+ If cProc.Recmp = False Then
213+ Return bRet
214+ End If
222215
223- ' Throw ex
216+ '' 処理結果をセットする
217+ bRet = True
224218
225- ' End Try
226- 'End Sub
219+ Catch ex As Exception
227220
228- ' ''' <summary>ボタンコントロール使用可否設定(初期化時)</summary>
229- 'Private Sub ChangeButtonEnabled_Init()
221+ '' エラーログを出力する
222+ Me.Logger.WriteErrorLog(ex.Message)
230223
231- ' Me.cmdF1.Enabled = False
232- ' Me.cmdF2.Enabled = False
233- ' Me.cmdF3.Enabled = True
234- ' Me.cmdF4.Enabled = True
235- ' Me.cmdF5.Enabled = True
236- ' Me.cmdF12.Enabled = True
224+ '' エラーメッセージを表示する
225+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
237226
238- 'End Sub
227+ Finally
239228
240- ' ''' <summary>ボタンコントロール使用可否設定(新規時)</summary>
241- 'Private Sub ChangeButtonEnabled_NewMode()
229+ '' カーソルを元に戻す
230+ Me.Cursor = Windows.Forms.Cursors.Default
242231
243- ' Me.cmdF1.Enabled = False
244- ' Me.cmdF2.Enabled = False
245- ' Me.cmdF3.Enabled = True
246- ' Me.cmdF4.Enabled = False
247- ' Me.cmdF5.Enabled = False
248- ' Me.cmdF12.Enabled = False
232+ End Try
249233
250- 'End Sub
234+ '' 戻り値を返す
235+ Return bRet
236+ End Function
251237
252- ' ''' <summary>コンボボックス設定処理</summary>
253- 'Private Sub SetComboBox()
254- ' Dim sWHR As String = String.Empty
255-
256- ' '' グループ(検索)
257- ' Me.cmbGroup.SetValueList( _
258- ' (New MLApp.DataModel.M1_TRNDataSet.M110_FDataTable).GetData(sWHR, "M110_ORDER1"))
259- ' Me.cmbM120_M110CD1.SetValueList( _
260- ' (New MLApp.DataModel.M1_TRNDataSet.M110_FDataTable).GetData(sWHR, "M110_ORDER1"))
261-
262- ' '' 権限
263- ' Me.cmbM120_M912CD1.SetValueList( _
264- ' (New MLApp.DataModel.M9_TRNDataSet.M912_FDataTable).GetData(sWHR, "M912_ORDER1"))
265-
266- 'End Sub
267-
268- ' ''' <summary>入力/検索フィールド初期化処理</summary>
269- 'Private Sub InitInputField()
270-
271- ' With Me
272- ' .txtFurigana.Text = String.Empty
273- ' .cmbGroup.SelectedValue = String.Empty
274- ' .txtM120_CODE1.Text = String.Empty
275- ' .cmbM120_M110CD1.SelectedValue = String.Empty
276- ' .txtM120_NAME1.Text = String.Empty
277- ' .txtM120_FURIGANA1.Text = String.Empty
278- ' .txtM120_PASS1.Text = String.Empty
279- ' .cmbM120_M912CD1.SelectedValue = String.Empty
280- ' .txtM120_BIKO1.Text = String.Empty
281- ' End With
282-
283- 'End Sub
284-
285- ' ''' <summary>入力フィールド使用可否設定処理</summary>
286- 'Private Sub EnabledInputField(bEnabled As Boolean)
287-
288- ' With Me
289- ' .txtM120_CODE1.Enabled = bEnabled
290- ' .cmbM120_M110CD1.Enabled = bEnabled
291- ' .txtM120_NAME1.Enabled = bEnabled
292- ' .txtM120_FURIGANA1.Enabled = bEnabled
293- ' .txtM120_PASS1.Enabled = bEnabled
294- ' .cmbM120_M912CD1.Enabled = bEnabled
295- ' .txtM120_BIKO1.Enabled = bEnabled
296- ' End With
297-
298- 'End Sub
299-
300- ' ''' <summary>検索フィールド使用可否設定処理</summary>
301- 'Private Sub EnalbedSearchField(bEnabled As Boolean)
302-
303- ' Me.txtFurigana.Enabled = bEnabled
304- ' Me.cmbGroup.Enabled = bEnabled
305-
306- 'End Sub
307-
308- ' ''' <summary>DataGridView選択時処理</summary>
309- 'Private Sub SelectedDataGridView(iRowIdx As Integer,
310- ' bFocused As Boolean)
311-
312- ' If bFocused = False Then
313-
314- ' '' 選択行の内容を画面上に表示する
315- ' Me.SetSelectedData(iRowIdx)
316-
317- ' '' 選択時初期フォーカスをセットする
318- ' Me.cmbM120_M110CD1.Focus()
319-
320- ' Exit Sub
321- ' End If
322-
323- ' '' 入力項目を活性化させる
324- ' Me.EnabledInputField(True)
325-
326- ' '' 主キー項目のみ非活性とする
327- ' Me.txtM120_CODE1.Enabled = False
328-
329- ' '' 削除ボタンを活性化する
330- ' Me.cmdF2.Enabled = True
331-
332- ' '' フォーカスを画面モードラベルに退避する
333- ' Me.lblDispMode.Focus()
334-
335- 'End Sub
336-
337- ' ''' <summary>選択行の内容を画面上に表示する</summary>
338- 'Private Sub SetSelectedData(iRowIdx As Integer)
339-
340- ' '' 選択行の値を画面上に表示する
341- ' Me.txtM120_CODE1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_CODE1")
342- ' Me.txtM120_NAME1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_NAME1")
343- ' Me.cmbM120_M110CD1.SelectedValue = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_M110CD1")
344- ' Me.txtM120_FURIGANA1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_FURIGANA1")
345- ' Me.txtM120_PASS1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_PASS1")
346- ' Me.cmbM120_M912CD1.SelectedValue = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_M912CD1")
347- ' Me.txtM120_BIKO1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_BIKO1").ToString
348-
349- 'End Sub
350-
351- ' ''' <summary>入力コントロールイベントハンドラ追加処理</summary>
352- 'Private Sub AddHandlerInputControls()
353-
354- ' '' Changeイベント
355- ' AddHandler Me.cmbM120_M110CD1.Change, AddressOf Me.ChangeField
356- ' AddHandler Me.txtM120_NAME1.Change, AddressOf Me.ChangeField
357- ' AddHandler Me.txtM120_FURIGANA1.Change, AddressOf Me.ChangeField
358- ' AddHandler Me.txtM120_PASS1.Change, AddressOf Me.ChangeField
359- ' AddHandler Me.cmbM120_M912CD1.Change, AddressOf Me.ChangeField
360- ' AddHandler Me.txtM120_BIKO1.Change, AddressOf Me.ChangeField
361-
362- ' '' Leaveイベント
363- ' AddHandler Me.cmbM120_M110CD1.Leave, AddressOf Me.LeaveField
364- ' AddHandler Me.txtM120_NAME1.Leave, AddressOf Me.LeaveField
365- ' AddHandler Me.txtM120_FURIGANA1.Leave, AddressOf Me.LeaveField
366- ' AddHandler Me.txtM120_PASS1.Leave, AddressOf Me.LeaveField
367- ' AddHandler Me.cmbM120_M912CD1.Leave, AddressOf Me.LeaveField
368- ' AddHandler Me.txtM120_BIKO1.Leave, AddressOf Me.LeaveField
369-
370- 'End Sub
371-
372- ' ''' <summary>入力コントロール値変更時処理</summary>
373- 'Private Sub ChangeField()
374-
375- ' With Me
376-
377- ' '' 新規モードで無い場合は修正モードに変更
378- ' If .lblDispMode.Text = stcDispMode.DispNone Then
379- ' .lblDispMode.Text = stcDispMode.DispUpd
380- ' End If
381-
382- ' '' ボタン使用可否設定
383- ' .cmdF1.Enabled = False
384- ' .cmdF2.Enabled = False
385- ' .cmdF3.Enabled = False
386- ' .cmdF4.Enabled = False
387- ' .cmdF5.Enabled = False
388- ' .cmdF12.Enabled = False
389-
390- ' '' 検索結果を非活性にする
391- ' Me.dgvTRN8110S1.Enabled = False
392-
393- ' End With
394-
395- 'End Sub
396-
397- ' ''' <summary>入力コントロールフォーカス喪失時処理</summary>
398- 'Private Sub LeaveField()
399-
400- ' '' 画面モードが通常時以外の場合は登録、元に戻すボタンを活性化する
401- ' If Me.lblDispMode.Text <> stcDispMode.DispNone Then
402- ' Me.cmdF1.Enabled = True
403- ' Me.cmdF3.Enabled = True
404- ' End If
405-
406- 'End Sub
407-
408- ' ''' <summary>更新前チェック</summary>
409- 'Private Function CheckBeforeProc() As Boolean
410- ' Dim bRet As Boolean = False
411-
412- ' Try
413- ' '' ユーザーコード
414- ' If Me.txtM120_CODE1.Text = String.Empty Then
415-
416- ' '' メッセージ表示
417- ' Me.Messenger.WarnOKOnly.Show( _
418- ' ML.Common.Message.Resource.W.MSG_W_0001, _
419- ' "入力エラー", _
420- ' "ユーザーコード")
421-
422- ' '' 未登録項目にフォーカスをセットする
423- ' Me.txtM120_CODE1.Focus()
424-
425- ' Exit Try
426- ' End If
427-
428- ' '' グループ
429- ' If Me.cmbM120_M110CD1.SelectedValue = String.Empty Then
430-
431- ' '' メッセージ表示
432- ' Me.Messenger.WarnOKOnly.Show( _
433- ' ML.Common.Message.Resource.W.MSG_W_0001, _
434- ' "入力エラー", _
435- ' "グループ")
436-
437- ' '' 未登録項目にフォーカスをセットする
438- ' Me.cmbM120_M110CD1.Focus()
439-
440- ' Exit Try
441- ' End If
442-
443- ' '' ユーザー名
444- ' If Me.txtM120_NAME1.Text = String.Empty Then
445-
446- ' '' メッセージ表示
447- ' Me.Messenger.WarnOKOnly.Show( _
448- ' ML.Common.Message.Resource.W.MSG_W_0001, _
449- ' "入力エラー", _
450- ' "ユーザー名")
451-
452- ' '' 未登録項目にフォーカスをセットする
453- ' Me.txtM120_NAME1.Focus()
454-
455- ' Exit Try
456- ' End If
457-
458- ' '' フリガナ
459- ' If Me.txtM120_FURIGANA1.Text = String.Empty Then
460-
461- ' '' メッセージ表示
462- ' Me.Messenger.WarnOKOnly.Show( _
463- ' ML.Common.Message.Resource.W.MSG_W_0001, _
464- ' "入力エラー", _
465- ' "フリガナ")
466-
467- ' '' 未登録項目にフォーカスをセットする
468- ' Me.txtM120_FURIGANA1.Focus()
469-
470- ' Exit Try
471- ' End If
472-
473- ' '' パスワード
474- ' If Me.txtM120_PASS1.Text = String.Empty Then
475-
476- ' '' メッセージ表示
477- ' Me.Messenger.WarnOKOnly.Show( _
478- ' ML.Common.Message.Resource.W.MSG_W_0001, _
479- ' "入力エラー", _
480- ' "パスワード")
481-
482- ' '' 未登録項目にフォーカスをセットする
483- ' Me.txtM120_PASS1.Focus()
484-
485- ' Exit Try
486- ' End If
487-
488- ' '' 権限
489- ' If Me.cmbM120_M912CD1.SelectedValue = String.Empty Then
490-
491- ' '' メッセージ表示
492- ' Me.Messenger.WarnOKOnly.Show( _
493- ' ML.Common.Message.Resource.W.MSG_W_0001, _
494- ' "入力エラー", _
495- ' "権限")
496-
497- ' '' 未登録項目にフォーカスをセットする
498- ' Me.cmbM120_M912CD1.Focus()
499-
500- ' Exit Try
501- ' End If
502-
503- ' bRet = True
504-
505- ' Catch ex As Exception
506-
507- ' '' エラーログを出力する
508- ' Me.Logger.WriteErrorLog(ex.Message)
509-
510- ' '' エラーメッセージを表示する
511- ' Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
512-
513- ' End Try
514-
515- ' '' 戻り値を返す
516- ' Return bRet
517-
518- 'End Function
519-
520- ' ''' <summary>ユーザーマスタ登録処理</summary>
521- 'Private Function UpdateM120() As Boolean
522- ' Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
523- ' Dim rM120 As ML.DBAccess.Base.Rs5
524- ' Dim sSQL As String
525- ' Dim bRet As Boolean = False
526-
527- ' Try
528- ' '' カーソルを待機状態にする
529- ' Me.Cursor = Windows.Forms.Cursors.WaitCursor
530-
531- ' '' DB-Open
532- ' db.Open()
533-
534- ' '' トランザクション開始
535- ' db.BeginTrans()
536-
537- ' '' 最大のオーダー№を取得
538- ' Dim iMaxOrderNo As Integer = ML.Common.Function.df6.NVL(Me.M1_TRNDataSet.M120_F.DMax("M120_ORDER1")) + 1
539-
540- ' '' M120-更新
541- ' sSQL = "SELECT * FROM " & MLApp.Const.MLAppConst.TableName.M120_F
542- ' sSQL &= " WHERE M120_CODE1=" & Me.txtM120_CODE1.Text.ToTextStr
543- ' rM120 = db.OpenRecordset(sSQL)
544- ' If rM120.EOF Then
545- ' rM120.AddNew()
546- ' rM120.Fields("M120_CODE1").Value = Me.txtM120_CODE1.Text
547- ' Else
548- ' rM120.Edit()
549- ' End If
550- ' With rM120
551-
552- ' .Fields("M120_M110CD1").Value = Me.cmbM120_M110CD1.SelectedValue
553- ' .Fields("M120_NAME1").Value = Me.txtM120_NAME1.Text
554- ' .Fields("M120_FURIGANA1").Value = Me.txtM120_FURIGANA1.Text
555- ' .Fields("M120_PASS1").Value = Me.txtM120_PASS1.Text
556- ' .Fields("M120_M912CD1").Value = Me.cmbM120_M912CD1.SelectedValue
557- ' .Fields("M120_BIKO1").Value = Me.txtM120_BIKO1.Text
558- ' If Me.lblDispMode.Text = stcDispMode.DispNew Then
559- ' .Fields("M120_ORDER1").Value = iMaxOrderNo
560- ' End If
561- ' If Me.lblDispMode.Text = stcDispMode.DispNew Then
562- ' .Fields("M120_KUBN12").Value = 0 '使用区分
563- ' .Fields("M120_KUBN13").Value = 0
564- ' .Fields("M120_KUBN14").Value = 0
565- ' .Fields("M120_KUBN15").Value = 0
566- ' End If
567- ' .Fields("M120_UPD1").Value = Me.m_LInfo.GetUpdInfo
568- ' .Update()
569-
570- ' End With
571- ' rM120.Close()
572-
573- ' '' コミット
574- ' db.CommitTrans()
575-
576- ' '' DB-Close
577- ' db.Close()
578-
579- ' '' 処理結果をセットする
580- ' bRet = True
581-
582- ' Catch ex As Exception
583-
584- ' '' ロールバック
585- ' db.RollBack()
586-
587- ' '' エラーログを出力する
588- ' Me.Logger.WriteErrorLog(ex.Message)
589-
590- ' Finally
591-
592- ' '' カーソルを元に戻す
593- ' Me.Cursor = Windows.Forms.Cursors.Default
594-
595- ' End Try
596-
597- ' '' 戻り値を返す
598- ' Return bRet
599- 'End Function
600-
601- ' ''' <summary>コードの更新前処理</summary>
602- 'Private Sub BeforeUpdate_MasterCode(ByRef bCancel As Boolean)
603-
604- ' '' コード未入力時は処理を抜ける
605- ' If Me.txtM120_CODE1.Text = String.Empty Then
606- ' Exit Sub
607- ' End If
608-
609- ' '' 既に登録済のコードの場合はエラーメッセージを表示して入力をキャンセルする
610- ' Dim dtM120 As New MLApp.DataModel.M1_TRNDataSet.M120_FDataTable
611- ' Dim sWHR As String = String.Empty
612- ' sWHR = "M120_CODE1=" & Me.txtM120_CODE1.Text.ToTextStr
613- ' If dtM120.GetData.DCount(sWHR) > 0 Then
614-
615- ' '' メッセージ表示
616- ' Me.Messenger.WarnOKOnly.Show( _
617- ' ML.Common.Message.Resource.W.MSG_W_0003, _
618- ' "入力エラー", _
619- ' "コード")
620-
621- ' '' 入力値をクリアする
622- ' Me.txtM120_CODE1.Text = String.Empty
623-
624- ' bCancel = True
625-
626- ' Exit Sub
627- ' End If
628-
629- 'End Sub
630-
631- ' ''' <summary>検索処理</summary>
632- 'Private Sub SearchM120()
633- ' Dim sWHR As String = String.Empty
634-
635- ' '' 検索条件
636- ' If Me.ckDelMaster.Checked = False Then
637- ' sWHR = "M120_KUBN12=0"
638- ' Else
639- ' sWHR = "1=1"
640- ' End If
641-
642- ' '' フリガナ
643- ' If Me.txtFurigana.Text <> String.Empty Then
644- ' sWHR &= " AND M120_FURIGANA1 LIKE('%" & Me.txtFurigana.Text & "%')"
645- ' End If
646-
647- ' '' グループ
648- ' If Me.cmbGroup.SelectedValue <> String.Empty Then
649- ' sWHR &= " AND M120_M110CD1=" & Me.cmbGroup.SelectedValue.ToString.ToTextStr
650- ' End If
651-
652- ' '' M120 - 読み込み
653- ' Me.M1_TRNDataSet.M120_F.Clear()
654- ' Me.M1_TRNDataSet.M120_F.GetData(sWHR)
655-
656- 'End Sub
657-
658- ' ''' <summary>ユーザーマスタ削除処理</summary>
659- 'Private Function DeleteM120() As Boolean
660- ' Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
661- ' Dim sSQL As String
662- ' Dim bRet As Boolean = False
663-
664- ' Try
665- ' '' カーソルを待機状態にする
666- ' Me.Cursor = Windows.Forms.Cursors.WaitCursor
667-
668- ' '' DB-Open
669- ' db.Open()
670-
671- ' '' トランザクション開始
672- ' db.BeginTrans()
673-
674- ' '' M120_F - 削除フラグ
675- ' sSQL = "UPDATE " & MLApp.Const.MLAppConst.TableName.M120_F
676- ' sSQL &= " SET M120_KUBN12=1"
677- ' sSQL &= " ,M120_UPD1=" & Me.m_LInfo.GetUpdInfo.ToTextStr
678- ' sSQL &= " WHERE M120_CODE1=" & Me.txtM120_CODE1.Text.ToTextStr
679- ' db.Execute(sSQL)
680-
681- ' '' コミット
682- ' db.CommitTrans()
683-
684- ' '' DB-Close
685- ' db.Close()
686-
687- ' '' 処理結果をセットする
688- ' bRet = True
689-
690- ' Catch ex As Exception
691-
692- ' '' ロールバック
693- ' db.RollBack()
694-
695- ' Throw ex
696-
697- ' Finally
698-
699- ' '' カーソルを元に戻す
700- ' Me.Cursor = Windows.Forms.Cursors.Default
701-
702- ' End Try
703-
704- ' '' 戻り値を返す
705- ' Return bRet
706- 'End Function
707-
708238 #End Region
709239
710240 End Class
\ No newline at end of file
Show on old repository browser