Commit: 70 - mlapplication (svn) - mlapplication

--- trunk/ML.Common.Function/Class/df6.vb (revision 69)

+++ trunk/ML.Common.Function/Class/df6.vb (revision 70)

		@@ -1,7 +1,7 @@
1	1
2	2	''' <summary>
3		-''' 【クラス名】NVL
4		-''' 【機能概要】ディレクトリ関連の共有メソッド
	3	+''' 【クラス名】df6
	4	+''' 【機能概要】共通メソッド
5	5	''' </summary>
6	6	''' <history>
7	7	''' +------------+-----------+-----+-------------------------------------------+

		@@ -11,7 +11,7 @@
11	11	''' </history>
12	12	Public Class df6
13	13
14		-#Region " NVL"
	14	+#Region " Nothing値変換"
15	15
16	16	''' <summary>
17	17	''' Nothing,DBNull変換(ゼロ値変換)

--- trunk/ML.Controls/uc6DateText.vb (revision 69)

+++ trunk/ML.Controls/uc6DateText.vb (revision 70)

		@@ -25,8 +25,31 @@
25	25	''' <summary>DataGridViewEditコントロールフラグ</summary>
26	26	Protected m_bDataGridViewEditing As Boolean = False
27	27
	28	+ ' ''' <summary>コントロールが保持している値が変更された事を示すフラグ</summary>
	29	+ 'Private m_Modified As Boolean = False
	30	+
	31	+ ' ''' <summary>変更前の値</summary>
	32	+ 'Private m_sOldData As String = ""
	33	+
	34	+ ' ''' <summary>デザインモード</summary>
	35	+ 'Private m_DesignMode As Boolean
	36	+
28	37	#End Region
29	38
	39	+#Region " コンストラクタ"
	40	+
	41	+ ''' <summary>コンストラクタ</summary>
	42	+ Public Sub New()
	43	+
	44	+ '' この呼び出しはデザイナーで必要です。
	45	+ InitializeComponent()
	46	+
	47	+ '' InitializeComponent() 呼び出しの後で初期化を追加します。
	48	+
	49	+ End Sub
	50	+
	51	+#End Region
	52	+
30	53	#Region " プロパティ"
31	54
32	55	''' <summary>Text</summary>

		@@ -258,9 +281,50 @@
258	281
259	282	#Region " イベント"
260	283
	284	+ ''' <summary>BeforeUpdate</summary>
	285	+ Public Event BeforeUpdate(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
	286	+
	287	+ ''' <summary>AfterUpdate</summary>
	288	+ Public Event AfterUpdate(ByVal sender As Object, ByVal e As System.EventArgs)
	289	+
261	290	''' <summary>ValueChangedイベント</summary>
262	291	Public Event ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
263	292
	293	+ ' ''' <summary>OnEnter</summary>
	294	+ 'Protected Overrides Sub OnEnter(e As System.EventArgs)
	295	+
	296	+ ' '' デザインモードの場合は処理を抜ける
	297	+ ' If Me.m_DesignMode = True Then Exit Sub
	298	+
	299	+ ' '' 値変更フラグ初期化
	300	+ ' Me.m_Modified = False
	301	+
	302	+ ' '' フォーカス取得時の値を退避
	303	+ ' If Me.Value Is Nothing Then
	304	+ ' Me.m_sOldData = String.Empty
	305	+ ' Else
	306	+ ' Me.m_sOldData = Me.Value.ToString
	307	+ ' End If
	308	+
	309	+ ' '' OnEnterイベントを発生させる
	310	+ ' MyBase.OnEnter(e)
	311	+
	312	+ 'End Sub
	313	+
	314	+ ' ''' <summary>OnLeave</summary>
	315	+ 'Protected Overrides Sub OnLeave(e As System.EventArgs)
	316	+
	317	+ ' '' デザインモードの場合は処理を抜ける
	318	+ ' If Me.m_DesignMode = True Then Exit Sub
	319	+
	320	+ ' '' 値変更フラグ初期化
	321	+ ' Me.m_Modified = False
	322	+
	323	+ ' '' OnLeaveイベントを発生させる
	324	+ ' MyBase.OnLeave(e)
	325	+
	326	+ 'End Sub
	327	+
264	328	''' <summary>OnValueChangedメソッド</summary>
265	329	Protected Overridable Sub OnValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
266	330

		@@ -310,6 +374,22 @@
310	374
311	375	End Sub
312	376
	377	+ ''' <summary>txtUc6TextBox_BeforeUpdateイベント</summary>
	378	+ Private Sub txtUc6TextBox_BeforeUpdate(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtUc6TextBox.BeforeUpdate
	379	+
	380	+ '' BeforeUpdateイベントを発生させる
	381	+ RaiseEvent BeforeUpdate(Me, e)
	382	+
	383	+ End Sub
	384	+
	385	+ ''' <summary>txtUc6TextBox_AfterUpdateイベント</summary>
	386	+ Private Sub txtUc6TextBox_AfterUpdate(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.AfterUpdate
	387	+
	388	+ '' AfterUpdateイベントを発生させる
	389	+ RaiseEvent AfterUpdate(Me, e)
	390	+
	391	+ End Sub
	392	+
313	393	''' <summary>txtUc6TextBox_GotFocusイベント</summary>
314	394	Private Sub txtUc6TextBox_GotFocus(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.GotFocus
315	395

--- trunk/MLApp.TRN9000/TRN9150.Designer.vb (revision 0)

+++ trunk/MLApp.TRN9000/TRN9150.Designer.vb (revision 70)

		@@ -0,0 +1,254 @@
	1	+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
	2	+Partial Class TRN9150
	3	+ Inherits MLApp.Base.TRNBaseForm
	4	+
	5	+ 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
	6	+ <System.Diagnostics.DebuggerNonUserCode()> _
	7	+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
	8	+ Try
	9	+ If disposing AndAlso components IsNot Nothing Then
	10	+ components.Dispose()
	11	+ End If
	12	+ Finally
	13	+ MyBase.Dispose(disposing)
	14	+ End Try
	15	+ End Sub
	16	+
	17	+ 'Windows フォームデザイナーで必要です。
	18	+ Private components As System.ComponentModel.IContainer
	19	+
	20	+ 'メモ: 以下のプロシージャは Windows フォームデザイナーで必要です。
	21	+ 'Windows フォームデザイナーを使用して変更できます。
	22	+ 'コードエディターを使って変更しないでください。
	23	+ <System.Diagnostics.DebuggerStepThrough()> _
	24	+ Private Sub InitializeComponent()
	25	+ Me.dgvTRN9150S1 = New ML.Controls.uc6DataGridView()
	26	+ Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
	27	+ Me.lblDispMode = New ML.Controls.uc6Label()
	28	+ Me.C140_CP1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
	29	+ Me.C140_REPID = New ML.Controls.uc6DataGridViewTextBoxColumn()
	30	+ Me.C140_PRTNAME = New System.Windows.Forms.DataGridViewComboBoxColumn()
	31	+ Me.C140_TOPM = New ML.Controls.uc6DataGridViewNumColumn()
	32	+ Me.C140_BTMM = New ML.Controls.uc6DataGridViewNumColumn()
	33	+ Me.C140_LFTM = New ML.Controls.uc6DataGridViewNumColumn()
	34	+ Me.C140_RGHM = New ML.Controls.uc6DataGridViewNumColumn()
	35	+ Me.C140UPD1DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
	36	+ Me.MenuBtnPanel.SuspendLayout()
	37	+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
	38	+ CType(Me.dgvTRN9150S1, System.ComponentModel.ISupportInitialize).BeginInit()
	39	+ CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
	40	+ Me.SuspendLayout()
	41	+ '
	42	+ 'cmdF1
	43	+ '
	44	+ Me.cmdF1.Text = "登録"
	45	+ '
	46	+ 'cmdF11
	47	+ '
	48	+ Me.cmdF11.Text = ""
	49	+ '
	50	+ 'cmdF10
	51	+ '
	52	+ Me.cmdF10.Text = "Excel"
	53	+ '
	54	+ 'cmdF9
	55	+ '
	56	+ Me.cmdF9.Text = ""
	57	+ '
	58	+ 'cmdF8
	59	+ '
	60	+ Me.cmdF8.Text = ""
	61	+ '
	62	+ 'cmdF7
	63	+ '
	64	+ Me.cmdF7.Text = ""
	65	+ '
	66	+ 'cmdF6
	67	+ '
	68	+ Me.cmdF6.Text = ""
	69	+ '
	70	+ 'cmdF5
	71	+ '
	72	+ Me.cmdF5.Text = ""
	73	+ '
	74	+ 'cmdF4
	75	+ '
	76	+ Me.cmdF4.Text = ""
	77	+ '
	78	+ 'cmdF3
	79	+ '
	80	+ Me.cmdF3.Text = "元に戻す"
	81	+ '
	82	+ 'cmdF2
	83	+ '
	84	+ Me.cmdF2.Text = ""
	85	+ '
	86	+ 'cmdF12
	87	+ '
	88	+ Me.cmdF12.Text = "終了"
	89	+ '
	90	+ 'dgvTRN9150S1
	91	+ '
	92	+ Me.dgvTRN9150S1.AllowUserToAddRows = False
	93	+ Me.dgvTRN9150S1.AllowUserToDeleteRows = False
	94	+ Me.dgvTRN9150S1.AllowUserToResizeRows = False
	95	+ Me.dgvTRN9150S1.AutoGenerateColumns = False
	96	+ Me.dgvTRN9150S1.ColumnHeaderBorderStyle = ML.Controls.uc6DataGridViewBase.HeaderCellBorderStyle.SingleLine
	97	+ Me.dgvTRN9150S1.ColumnHeaderRowCount = 1
	98	+ Me.dgvTRN9150S1.ColumnHeaderRowHeight = 30
	99	+ Me.dgvTRN9150S1.ColumnHeadersHeight = 32
	100	+ Me.dgvTRN9150S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.C140_CP1, Me.C140_REPID, Me.C140_PRTNAME, Me.C140_TOPM, Me.C140_BTMM, Me.C140_LFTM, Me.C140_RGHM, Me.C140UPD1DataGridViewTextBoxColumn})
	101	+ Me.dgvTRN9150S1.DataMember = "C140_F"
	102	+ Me.dgvTRN9150S1.DataSource = Me.C1_TRNDataSet
	103	+ Me.dgvTRN9150S1.Location = New System.Drawing.Point(12, 58)
	104	+ Me.dgvTRN9150S1.MultiSelect = False
	105	+ Me.dgvTRN9150S1.Name = "dgvTRN9150S1"
	106	+ Me.dgvTRN9150S1.RowTemplate.Height = 21
	107	+ Me.dgvTRN9150S1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
	108	+ Me.dgvTRN9150S1.ShowLineNo = True
	109	+ Me.dgvTRN9150S1.Size = New System.Drawing.Size(770, 351)
	110	+ Me.dgvTRN9150S1.StandardTab = True
	111	+ Me.dgvTRN9150S1.TabIndex = 109
	112	+ Me.dgvTRN9150S1.TabStop = False
	113	+ '
	114	+ 'C1_TRNDataSet
	115	+ '
	116	+ Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
	117	+ Me.C1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
	118	+ '
	119	+ 'lblDispMode
	120	+ '
	121	+ Me.lblDispMode.BackColor = System.Drawing.Color.White
	122	+ Me.lblDispMode.ForeColor = System.Drawing.Color.Black
	123	+ Me.lblDispMode.Location = New System.Drawing.Point(788, 58)
	124	+ Me.lblDispMode.Name = "lblDispMode"
	125	+ Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
	126	+ Me.lblDispMode.TabIndex = 116
	127	+ Me.lblDispMode.Text = "画面ﾓｰﾄﾞ"
	128	+ Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
	129	+ '
	130	+ 'C140_CP1
	131	+ '
	132	+ Me.C140_CP1.DataPropertyName = "C140_CP1"
	133	+ Me.C140_CP1.HeaderText = "コンピュータ名"
	134	+ Me.C140_CP1.ImeMode = System.Windows.Forms.ImeMode.NoControl
	135	+ Me.C140_CP1.MaxLength = 0
	136	+ Me.C140_CP1.Name = "C140_CP1"
	137	+ Me.C140_CP1.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	138	+ Me.C140_CP1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	139	+ Me.C140_CP1.Visible = False
	140	+ '
	141	+ 'C140_REPID
	142	+ '
	143	+ Me.C140_REPID.DataPropertyName = "C140_REPID"
	144	+ Me.C140_REPID.HeaderText = "レポートID"
	145	+ Me.C140_REPID.ImeMode = System.Windows.Forms.ImeMode.NoControl
	146	+ Me.C140_REPID.MaxLength = 0
	147	+ Me.C140_REPID.Name = "C140_REPID"
	148	+ Me.C140_REPID.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	149	+ Me.C140_REPID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	150	+ '
	151	+ 'C140_PRTNAME
	152	+ '
	153	+ Me.C140_PRTNAME.DataPropertyName = "C140_PRTNAME"
	154	+ Me.C140_PRTNAME.HeaderText = "プリンタドライバ名"
	155	+ Me.C140_PRTNAME.Name = "C140_PRTNAME"
	156	+ Me.C140_PRTNAME.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	157	+ Me.C140_PRTNAME.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	158	+ Me.C140_PRTNAME.Width = 270
	159	+ '
	160	+ 'C140_TOPM
	161	+ '
	162	+ Me.C140_TOPM.AfterDecimalDigits = 1
	163	+ Me.C140_TOPM.AfterDecimalZeroPadding = False
	164	+ Me.C140_TOPM.CommaFormat = False
	165	+ Me.C140_TOPM.DataPropertyName = "C140_TOPM"
	166	+ Me.C140_TOPM.DecimalDigits = 3
	167	+ Me.C140_TOPM.HeaderText = "上余白"
	168	+ Me.C140_TOPM.Name = "C140_TOPM"
	169	+ Me.C140_TOPM.NegativeSignInput = False
	170	+ Me.C140_TOPM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	171	+ Me.C140_TOPM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	172	+ Me.C140_TOPM.Width = 60
	173	+ '
	174	+ 'C140_BTMM
	175	+ '
	176	+ Me.C140_BTMM.AfterDecimalDigits = 1
	177	+ Me.C140_BTMM.AfterDecimalZeroPadding = False
	178	+ Me.C140_BTMM.CommaFormat = False
	179	+ Me.C140_BTMM.DataPropertyName = "C140_BTMM"
	180	+ Me.C140_BTMM.DecimalDigits = 3
	181	+ Me.C140_BTMM.HeaderText = "下余白"
	182	+ Me.C140_BTMM.Name = "C140_BTMM"
	183	+ Me.C140_BTMM.NegativeSignInput = False
	184	+ Me.C140_BTMM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	185	+ Me.C140_BTMM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	186	+ Me.C140_BTMM.Width = 60
	187	+ '
	188	+ 'C140_LFTM
	189	+ '
	190	+ Me.C140_LFTM.AfterDecimalDigits = 1
	191	+ Me.C140_LFTM.AfterDecimalZeroPadding = False
	192	+ Me.C140_LFTM.CommaFormat = False
	193	+ Me.C140_LFTM.DataPropertyName = "C140_LFTM"
	194	+ Me.C140_LFTM.DecimalDigits = 3
	195	+ Me.C140_LFTM.HeaderText = "左余白"
	196	+ Me.C140_LFTM.Name = "C140_LFTM"
	197	+ Me.C140_LFTM.NegativeSignInput = False
	198	+ Me.C140_LFTM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	199	+ Me.C140_LFTM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	200	+ Me.C140_LFTM.Width = 60
	201	+ '
	202	+ 'C140_RGHM
	203	+ '
	204	+ Me.C140_RGHM.AfterDecimalDigits = 1
	205	+ Me.C140_RGHM.AfterDecimalZeroPadding = False
	206	+ Me.C140_RGHM.CommaFormat = False
	207	+ Me.C140_RGHM.DataPropertyName = "C140_RGHM"
	208	+ Me.C140_RGHM.DecimalDigits = 3
	209	+ Me.C140_RGHM.HeaderText = "右余白"
	210	+ Me.C140_RGHM.Name = "C140_RGHM"
	211	+ Me.C140_RGHM.NegativeSignInput = False
	212	+ Me.C140_RGHM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
	213	+ Me.C140_RGHM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
	214	+ Me.C140_RGHM.Width = 60
	215	+ '
	216	+ 'C140UPD1DataGridViewTextBoxColumn
	217	+ '
	218	+ Me.C140UPD1DataGridViewTextBoxColumn.DataPropertyName = "C140_UPD1"
	219	+ Me.C140UPD1DataGridViewTextBoxColumn.HeaderText = "C140_UPD1"
	220	+ Me.C140UPD1DataGridViewTextBoxColumn.Name = "C140UPD1DataGridViewTextBoxColumn"
	221	+ Me.C140UPD1DataGridViewTextBoxColumn.Visible = False
	222	+ '
	223	+ 'TRN9150
	224	+ '
	225	+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
	226	+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
	227	+ Me.ClientSize = New System.Drawing.Size(859, 434)
	228	+ Me.Controls.Add(Me.lblDispMode)
	229	+ Me.Controls.Add(Me.dgvTRN9150S1)
	230	+ Me.Name = "TRN9150"
	231	+ Me.Text = "TRN9150"
	232	+ Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
	233	+ Me.Controls.SetChildIndex(Me.dgvTRN9150S1, 0)
	234	+ Me.Controls.SetChildIndex(Me.lblDispMode, 0)
	235	+ Me.MenuBtnPanel.ResumeLayout(False)
	236	+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
	237	+ CType(Me.dgvTRN9150S1, System.ComponentModel.ISupportInitialize).EndInit()
	238	+ CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).EndInit()
	239	+ Me.ResumeLayout(False)
	240	+ Me.PerformLayout()
	241	+
	242	+ End Sub
	243	+ Friend WithEvents dgvTRN9150S1 As ML.Controls.uc6DataGridView
	244	+ Friend WithEvents C1_TRNDataSet As MLApp.DataModel.C1_TRNDataSet
	245	+ Friend WithEvents lblDispMode As ML.Controls.uc6Label
	246	+ Friend WithEvents C140_CP1 As ML.Controls.uc6DataGridViewTextBoxColumn
	247	+ Friend WithEvents C140_REPID As ML.Controls.uc6DataGridViewTextBoxColumn
	248	+ Friend WithEvents C140_PRTNAME As System.Windows.Forms.DataGridViewComboBoxColumn
	249	+ Friend WithEvents C140_TOPM As ML.Controls.uc6DataGridViewNumColumn
	250	+ Friend WithEvents C140_BTMM As ML.Controls.uc6DataGridViewNumColumn
	251	+ Friend WithEvents C140_LFTM As ML.Controls.uc6DataGridViewNumColumn
	252	+ Friend WithEvents C140_RGHM As ML.Controls.uc6DataGridViewNumColumn
	253	+ Friend WithEvents C140UPD1DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
	254	+End Class

--- trunk/MLApp.TRN9000/TRN9150.vb (revision 0)

+++ trunk/MLApp.TRN9000/TRN9150.vb (revision 70)

		@@ -0,0 +1,217 @@
	1	+
	2	+Imports System.Text
	3	+Imports ML.Common.Extensions.StringExtension
	4	+
	5	+''' <summary>
	6	+''' 【クラス名】TRN9150
	7	+''' 【機能概要】プリンタ設定
	8	+''' </summary>
	9	+''' <history>
	10	+''' +------------+-----------+-----+-------------------------------------------+
	11	+''' \|更新者 \|日付 \|連番 \|変更内容 \|
	12	+''' +------------+-----------+-----+-------------------------------------------+
	13	+''' y.miura 2018.02.26 001 新規作成
	14	+''' </history>
	15	+Public Class TRN9150
	16	+
	17	+ ''' <summary>フォームロード時イベント</summary>
	18	+ Private Sub TRN9150_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
	19	+
	20	+ Try
	21	+ '' 元に戻すボタン押下処理
	22	+ Me.CancelProc()
	23	+
	24	+ '' 入力項目にイベントハンドラを追加する
	25	+ Me.AddHandlerInputControls()
	26	+
	27	+ Catch ex As Exception
	28	+
	29	+ '' エラーログを出力する
	30	+ Me.Logger.WriteErrorLog(ex.Message)
	31	+
	32	+ '' エラーメッセージを表示する
	33	+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
	34	+
	35	+ End Try
	36	+
	37	+ End Sub
	38	+
	39	+ ''' <summary>元に戻すボタンクリック時イベント</summary>
	40	+ Protected Overrides Sub cmdF3_Click(sender As Object, e As System.EventArgs)
	41	+ Try
	42	+ '' 「元に戻す」処理を実行する
	43	+ Me.CancelProc()
	44	+
	45	+ Catch ex As Exception
	46	+
	47	+ '' エラーログを出力する
	48	+ Me.Logger.WriteErrorLog(ex.Message)
	49	+
	50	+ '' エラーメッセージを表示する
	51	+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
	52	+
	53	+ End Try
	54	+ End Sub
	55	+
	56	+ ''' <summary>検索処理</summary>
	57	+ Private Sub SearchC140()
	58	+ Dim sbSQL As New StringBuilder
	59	+ Dim DB As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
	60	+
	61	+ Try
	62	+
	63	+ '' DB-Open
	64	+ DB.Open()
	65	+
	66	+ '' C140-抽出SQL
	67	+ sbSQL.Length = 0
	68	+ sbSQL.AppendLine("SELECT ")
	69	+ sbSQL.AppendLine(" C140.*")
	70	+ sbSQL.AppendLine(" FROM " & TRNLib.TRNConst.TableName.C.C140_F & " C140")
	71	+ sbSQL.AppendLine(" WHERE C140_CP1=" & System.Net.Dns.GetHostName().ToTextStr)
	72	+
	73	+ '' DataTable取得
	74	+ 'Dim dtRecS As DataTable
	75	+ 'dtRecS = DB.Fill(sbSQL.ToString)
	76	+ Me.C1_TRNDataSet.C140_F.Clear()
	77	+ DB.Fill(Me.C1_TRNDataSet.C140_F, sbSQL.ToString)
	78	+
	79	+ 'Dim drTRN9140S1 As MLApp.DataModel.C1_TRNDataSet.TRN9140S1Row
	80	+ 'Me.C1_TRNDataSet.TRN9140S1.Clear()
	81	+ 'For Each dr As DataRow In dtRecS.Rows
	82	+
	83	+ ' drTRN9140S1 = Me.C1_TRNDataSet.TRN9140S1.NewRow
	84	+ ' drTRN9140S1.C130_KEY1 = dr.Item("C130_KEY1")
	85	+ ' drTRN9140S1.C130_KEYNM1 = dr.Item("C130_KEYNM1").ToString
	86	+ ' drTRN9140S1.C130_DPNO1 = dr.Item("C130_DPNO1")
	87	+ ' drTRN9140S1.C130_DW1 = dr.Item("C130_DW1")
	88	+ ' drTRN9140S1.C130_UP1 = dr.Item("C130_UP1")
	89	+ ' drTRN9140S1.C130_UPD1 = dr.Item("C130_UPD1").ToString
	90	+ ' Me.C1_TRNDataSet.TRN9140S1.AddTRN9140S1Row(drTRN9140S1)
	91	+
	92	+ 'Next
	93	+
	94	+ sbSQL.Length = 0
	95	+ sbSQL.AppendLine("SELECT ")
	96	+ sbSQL.AppendLine(" C140.*")
	97	+ sbSQL.AppendLine(" FROM " & TRNLib.TRNConst.TableName.C.C140_F & " C140")
	98	+ sbSQL.AppendLine(" WHERE C140_CP1='*'")
	99	+ Dim dtC140Master As New DataModel.C1_TRNDataSet.C140_FDataTable
	100	+ DB.Fill(dtC140Master, sbSQL.ToString)
	101	+ For Each dr As DataModel.C1_TRNDataSet.C140_FRow In dtC140Master.Rows
	102	+
	103	+ If Me.C1_TRNDataSet.C140_F.Select("C140_REPID=" & dr.C140_REPID.ToString.ToTextStr).Length = 0 Then
	104	+
	105	+ Dim drC140NewRow = Me.C1_TRNDataSet.C140_F.NewC140_FRow
	106	+ drC140NewRow.C140_CP1 = System.Net.Dns.GetHostName()
	107	+ drC140NewRow.C140_REPID = dr.C140_REPID
	108	+ drC140NewRow.C140_REPNM = dr.C140_REPNM
	109	+ drC140NewRow.C140_PRTNAME = dr.C140_PRTNAME
	110	+ drC140NewRow.C140_TOPM = dr.C140_TOPM
	111	+ drC140NewRow.C140_BTMM = dr.C140_BTMM
	112	+ drC140NewRow.C140_LFTM = dr.C140_LFTM
	113	+ drC140NewRow.C140_RGHM = dr.C140_RGHM
	114	+ Me.C1_TRNDataSet.C140_F.AddC140_FRow(drC140NewRow)
	115	+
	116	+ End If
	117	+
	118	+ Next
	119	+
	120	+ Catch ex As Exception
	121	+
	122	+ Throw ex
	123	+
	124	+ Finally
	125	+
	126	+ '' DB-Close
	127	+ DB.Close()
	128	+
	129	+ End Try
	130	+
	131	+ End Sub
	132	+
	133	+ ''' <summary>キャンセル処理(元に戻す)</summary>
	134	+ Private Sub CancelProc()
	135	+ Try
	136	+ '' 画面初期化
	137	+ Me.InitDisp()
	138	+
	139	+ '' C140 - 検索処理
	140	+ Me.SearchC140()
	141	+
	142	+ Catch ex As Exception
	143	+
	144	+ Throw ex
	145	+
	146	+ End Try
	147	+
	148	+ End Sub
	149	+
	150	+ ''' <summary>画面初期化処理</summary>
	151	+ Private Sub InitDisp()
	152	+ Try
	153	+
	154	+ '' ボタンコントロールの使用可否設定
	155	+ Me.ChangeButtonEnabled_Init()
	156	+
	157	+ '' 画面モード初期化
	158	+ Me.lblDispMode.Text = stcDispMode.DispNone
	159	+
	160	+ Catch ex As Exception
	161	+
	162	+ Throw ex
	163	+
	164	+ End Try
	165	+ End Sub
	166	+
	167	+ ''' <summary>ボタンコントロール使用可否設定(初期化時)</summary>
	168	+ Private Sub ChangeButtonEnabled_Init()
	169	+
	170	+ Me.cmdF1.Enabled = False
	171	+ Me.cmdF3.Enabled = True
	172	+ Me.cmdF12.Enabled = True
	173	+
	174	+ End Sub
	175	+
	176	+ ''' <summary>入力コントロールイベントハンドラ追加処理</summary>
	177	+ Private Sub AddHandlerInputControls()
	178	+
	179	+ '' Changeイベント
	180	+ AddHandler Me.dgvTRN9150S1.AfterUpdate, AddressOf Me.ChangeField
	181	+
	182	+ '' Leaveイベント
	183	+ AddHandler Me.dgvTRN9150S1.Leave, AddressOf Me.LeaveField
	184	+
	185	+ End Sub
	186	+
	187	+ ''' <summary>入力コントロール値変更時処理</summary>
	188	+ Private Sub ChangeField()
	189	+
	190	+ With Me
	191	+
	192	+ '' 新規モードで無い場合は修正モードに変更
	193	+ If .lblDispMode.Text = stcDispMode.DispNone Then
	194	+ .lblDispMode.Text = stcDispMode.DispUpd
	195	+ End If
	196	+
	197	+ '' ボタン使用可否設定
	198	+ .cmdF1.Enabled = False
	199	+ .cmdF3.Enabled = False
	200	+ .cmdF12.Enabled = False
	201	+
	202	+ End With
	203	+
	204	+ End Sub
	205	+
	206	+ ''' <summary>入力コントロールフォーカス喪失時処理</summary>
	207	+ Private Sub LeaveField()
	208	+
	209	+ '' 画面モードが通常時以外の場合は登録、元に戻すボタンを活性化する
	210	+ If Me.lblDispMode.Text <> stcDispMode.DispNone Then
	211	+ Me.cmdF1.Enabled = True
	212	+ Me.cmdF3.Enabled = True
	213	+ End If
	214	+
	215	+ End Sub
	216	+
	217	+End Class
		\ No newline at end of file

--- trunk/MLApp.DataModel/C1_TRNDataSet.xsd (revision 69)

+++ trunk/MLApp.DataModel/C1_TRNDataSet.xsd (revision 70)

		@@ -4,7 +4,7 @@
4	4	<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
5	5	<DataSource DefaultConnectionIndex="1" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
6	6	<Connections>
7		- <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="TRNConnectionString" IsAppSettingsProperty="true" Modifier="Assembly" Name="TRNConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.WindowsApplication1.My.MySettings.GlobalReference.Default.TRNConnectionString" Provider="System.Data.SqlClient" />
	7	+ <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="TRNConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="TRNConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.WindowsApplication1.My.MySettings.GlobalReference.Default.TRNConnectionString" Provider="System.Data.SqlClient" />
8	8	<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="TRNConnectionString1" IsAppSettingsProperty="true" Modifier="Assembly" Name="TRNConnectionString1 (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.WindowsApplication1.My.MySettings.GlobalReference.Default.TRNConnectionString1" Provider="System.Data.SqlClient" />
9	9	</Connections>
10	10	<Tables />

		@@ -15,7 +15,7 @@
15	15	<xs:element name="C1_TRNDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="C1_TRNDataSet" msprop:Generator_UserDSName="C1_TRNDataSet">
16	16	<xs:complexType>
17	17	<xs:choice minOccurs="0" maxOccurs="unbounded">
18		- <xs:element name="C150_F" msprop:Generator_TableClassName="C150_FDataTable" msprop:Generator_TableVarName="tableC150_F" msprop:Generator_TablePropName="C150_F" msprop:Generator_RowDeletingName="C150_FRowDeleting" msprop:Generator_RowChangingName="C150_FRowChanging" msprop:Generator_RowEvHandlerName="C150_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C150_FRowDeleted" msprop:Generator_UserTableName="C150_F" msprop:Generator_RowChangedName="C150_FRowChanged" msprop:Generator_RowEvArgName="C150_FRowChangeEvent" msprop:Generator_RowClassName="C150_FRow">
	18	+ <xs:element name="C150_F" msprop:Generator_TableClassName="C150_FDataTable" msprop:Generator_TableVarName="tableC150_F" msprop:Generator_RowChangedName="C150_FRowChanged" msprop:Generator_TablePropName="C150_F" msprop:Generator_RowDeletingName="C150_FRowDeleting" msprop:Generator_RowChangingName="C150_FRowChanging" msprop:Generator_RowEvHandlerName="C150_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C150_FRowDeleted" msprop:Generator_RowClassName="C150_FRow" msprop:Generator_UserTableName="C150_F" msprop:Generator_RowEvArgName="C150_FRowChangeEvent">
19	19	<xs:complexType>
20	20	<xs:sequence>
21	21	<xs:element name="C150_CALNO" msprop:Generator_ColumnVarNameInTable="columnC150_CALNO" msprop:Generator_ColumnPropNameInRow="C150_CALNO" msprop:Generator_ColumnPropNameInTable="C150_CALNOColumn" msprop:Generator_UserColumnName="C150_CALNO" type="xs:string" />

		@@ -92,7 +92,7 @@
92	92	</xs:sequence>
93	93	</xs:complexType>
94	94	</xs:element>
95		- <xs:element name="C120_F" msprop:Generator_TableClassName="C120_FDataTable" msprop:Generator_TableVarName="tableC120_F" msprop:Generator_TablePropName="C120_F" msprop:Generator_RowDeletingName="C120_FRowDeleting" msprop:Generator_RowChangingName="C120_FRowChanging" msprop:Generator_RowEvHandlerName="C120_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C120_FRowDeleted" msprop:Generator_UserTableName="C120_F" msprop:Generator_RowChangedName="C120_FRowChanged" msprop:Generator_RowEvArgName="C120_FRowChangeEvent" msprop:Generator_RowClassName="C120_FRow">
	95	+ <xs:element name="C120_F" msprop:Generator_TableClassName="C120_FDataTable" msprop:Generator_TableVarName="tableC120_F" msprop:Generator_RowChangedName="C120_FRowChanged" msprop:Generator_TablePropName="C120_F" msprop:Generator_RowDeletingName="C120_FRowDeleting" msprop:Generator_RowChangingName="C120_FRowChanging" msprop:Generator_RowEvHandlerName="C120_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C120_FRowDeleted" msprop:Generator_RowClassName="C120_FRow" msprop:Generator_UserTableName="C120_F" msprop:Generator_RowEvArgName="C120_FRowChangeEvent">
96	96	<xs:complexType>
97	97	<xs:sequence>
98	98	<xs:element name="C120_DATE1" msprop:Generator_ColumnVarNameInTable="columnC120_DATE1" msprop:Generator_ColumnPropNameInRow="C120_DATE1" msprop:Generator_ColumnPropNameInTable="C120_DATE1Column" msprop:Generator_UserColumnName="C120_DATE1" type="xs:dateTime" />

		@@ -109,7 +109,7 @@
109	109	</xs:sequence>
110	110	</xs:complexType>
111	111	</xs:element>
112		- <xs:element name="C130_F" msprop:Generator_TableClassName="C130_FDataTable" msprop:Generator_TableVarName="tableC130_F" msprop:Generator_TablePropName="C130_F" msprop:Generator_RowDeletingName="C130_FRowDeleting" msprop:Generator_RowChangingName="C130_FRowChanging" msprop:Generator_RowEvHandlerName="C130_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C130_FRowDeleted" msprop:Generator_UserTableName="C130_F" msprop:Generator_RowChangedName="C130_FRowChanged" msprop:Generator_RowEvArgName="C130_FRowChangeEvent" msprop:Generator_RowClassName="C130_FRow">
	112	+ <xs:element name="C130_F" msprop:Generator_TableClassName="C130_FDataTable" msprop:Generator_TableVarName="tableC130_F" msprop:Generator_RowChangedName="C130_FRowChanged" msprop:Generator_TablePropName="C130_F" msprop:Generator_RowDeletingName="C130_FRowDeleting" msprop:Generator_RowChangingName="C130_FRowChanging" msprop:Generator_RowEvHandlerName="C130_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C130_FRowDeleted" msprop:Generator_RowClassName="C130_FRow" msprop:Generator_UserTableName="C130_F" msprop:Generator_RowEvArgName="C130_FRowChangeEvent">
113	113	<xs:complexType>
114	114	<xs:sequence>
115	115	<xs:element name="C130_KEY1" msprop:Generator_ColumnVarNameInTable="columnC130_KEY1" msprop:Generator_ColumnPropNameInRow="C130_KEY1" msprop:Generator_ColumnPropNameInTable="C130_KEY1Column" msprop:Generator_UserColumnName="C130_KEY1" type="xs:string" />

		@@ -116,7 +116,7 @@
116	116	<xs:element name="C130_DPNO1" msprop:Generator_ColumnVarNameInTable="columnC130_DPNO1" msprop:Generator_ColumnPropNameInRow="C130_DPNO1" msprop:Generator_ColumnPropNameInTable="C130_DPNO1Column" msprop:Generator_UserColumnName="C130_DPNO1" type="xs:decimal" />
117	117	<xs:element name="C130_DW1" msprop:Generator_ColumnVarNameInTable="columnC130_DW1" msprop:Generator_ColumnPropNameInRow="C130_DW1" msprop:Generator_ColumnPropNameInTable="C130_DW1Column" msprop:Generator_UserColumnName="C130_DW1" type="xs:decimal" minOccurs="0" />
118	118	<xs:element name="C130_UP1" msprop:Generator_ColumnVarNameInTable="columnC130_UP1" msprop:Generator_ColumnPropNameInRow="C130_UP1" msprop:Generator_ColumnPropNameInTable="C130_UP1Column" msprop:Generator_UserColumnName="C130_UP1" type="xs:decimal" minOccurs="0" />
119		- <xs:element name="C130_UPD1" msdata:Caption="C120_UPD1" msprop:Generator_ColumnVarNameInTable="columnC130_UPD1" msprop:Generator_ColumnPropNameInRow="C130_UPD1" msprop:Generator_ColumnPropNameInTable="C130_UPD1Column" msprop:Generator_UserColumnName="C130_UPD1" minOccurs="0">
	119	+ <xs:element name="C130_UPD1" msprop:Generator_ColumnVarNameInTable="columnC130_UPD1" msprop:Generator_ColumnPropNameInRow="C130_UPD1" msprop:Generator_ColumnPropNameInTable="C130_UPD1Column" msprop:Generator_UserColumnName="C130_UPD1" minOccurs="0">
120	120	<xs:simpleType>
121	121	<xs:restriction base="xs:string">
122	122	<xs:maxLength value="40" />

		@@ -126,7 +126,7 @@
126	126	</xs:sequence>
127	127	</xs:complexType>
128	128	</xs:element>
129		- <xs:element name="TRN9140S1" msprop:Generator_TableClassName="TRN9140S1DataTable" msprop:Generator_TableVarName="tableTRN9140S1" msprop:Generator_TablePropName="TRN9140S1" msprop:Generator_RowDeletingName="TRN9140S1RowDeleting" msprop:Generator_RowChangingName="TRN9140S1RowChanging" msprop:Generator_RowEvHandlerName="TRN9140S1RowChangeEventHandler" msprop:Generator_RowDeletedName="TRN9140S1RowDeleted" msprop:Generator_UserTableName="TRN9140S1" msprop:Generator_RowChangedName="TRN9140S1RowChanged" msprop:Generator_RowEvArgName="TRN9140S1RowChangeEvent" msprop:Generator_RowClassName="TRN9140S1Row">
	129	+ <xs:element name="TRN9140S1" msprop:Generator_TableClassName="TRN9140S1DataTable" msprop:Generator_TableVarName="tableTRN9140S1" msprop:Generator_RowChangedName="TRN9140S1RowChanged" msprop:Generator_TablePropName="TRN9140S1" msprop:Generator_RowDeletingName="TRN9140S1RowDeleting" msprop:Generator_RowChangingName="TRN9140S1RowChanging" msprop:Generator_RowEvHandlerName="TRN9140S1RowChangeEventHandler" msprop:Generator_RowDeletedName="TRN9140S1RowDeleted" msprop:Generator_RowClassName="TRN9140S1Row" msprop:Generator_UserTableName="TRN9140S1" msprop:Generator_RowEvArgName="TRN9140S1RowChangeEvent">
130	130	<xs:complexType>
131	131	<xs:sequence>
132	132	<xs:element name="C130_KEY1" msprop:Generator_ColumnVarNameInTable="columnC130_KEY1" msprop:Generator_ColumnPropNameInRow="C130_KEY1" msprop:Generator_ColumnPropNameInTable="C130_KEY1Column" msprop:Generator_UserColumnName="C130_KEY1" type="xs:string" />

		@@ -144,7 +144,7 @@
144	144	</xs:sequence>
145	145	</xs:complexType>
146	146	</xs:element>
147		- <xs:element name="C111_F" msprop:Generator_TableClassName="C111_FDataTable" msprop:Generator_TableVarName="tableC111_F" msprop:Generator_TablePropName="C111_F" msprop:Generator_RowDeletingName="C111_FRowDeleting" msprop:Generator_RowChangingName="C111_FRowChanging" msprop:Generator_RowEvHandlerName="C111_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C111_FRowDeleted" msprop:Generator_UserTableName="C111_F" msprop:Generator_RowChangedName="C111_FRowChanged" msprop:Generator_RowEvArgName="C111_FRowChangeEvent" msprop:Generator_RowClassName="C111_FRow">
	147	+ <xs:element name="C111_F" msprop:Generator_TableClassName="C111_FDataTable" msprop:Generator_TableVarName="tableC111_F" msprop:Generator_RowChangedName="C111_FRowChanged" msprop:Generator_TablePropName="C111_F" msprop:Generator_RowDeletingName="C111_FRowDeleting" msprop:Generator_RowChangingName="C111_FRowChanging" msprop:Generator_RowEvHandlerName="C111_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C111_FRowDeleted" msprop:Generator_RowClassName="C111_FRow" msprop:Generator_UserTableName="C111_F" msprop:Generator_RowEvArgName="C111_FRowChangeEvent">
148	148	<xs:complexType>
149	149	<xs:sequence>
150	150	<xs:element name="C111_NO1" msprop:Generator_ColumnVarNameInTable="columnC111_NO1" msprop:Generator_ColumnPropNameInRow="C111_NO1" msprop:Generator_ColumnPropNameInTable="C111_NO1Column" msprop:Generator_UserColumnName="C111_NO1" type="xs:decimal" />

		@@ -160,7 +160,7 @@
160	160	</xs:sequence>
161	161	</xs:complexType>
162	162	</xs:element>
163		- <xs:element name="C110_F" msprop:Generator_TableClassName="C110_FDataTable" msprop:Generator_TableVarName="tableC110_F" msprop:Generator_RowChangedName="C110_FRowChanged" msprop:Generator_TablePropName="C110_F" msprop:Generator_RowDeletingName="C110_FRowDeleting" msprop:Generator_RowChangingName="C110_FRowChanging" msprop:Generator_RowEvHandlerName="C110_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C110_FRowDeleted" msprop:Generator_RowClassName="C110_FRow" msprop:Generator_UserTableName="C110_F" msprop:Generator_RowEvArgName="C110_FRowChangeEvent">
	163	+ <xs:element name="C110_F" msprop:Generator_TableClassName="C110_FDataTable" msprop:Generator_TableVarName="tableC110_F" msprop:Generator_TablePropName="C110_F" msprop:Generator_RowDeletingName="C110_FRowDeleting" msprop:Generator_RowChangingName="C110_FRowChanging" msprop:Generator_RowEvHandlerName="C110_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C110_FRowDeleted" msprop:Generator_UserTableName="C110_F" msprop:Generator_RowChangedName="C110_FRowChanged" msprop:Generator_RowEvArgName="C110_FRowChangeEvent" msprop:Generator_RowClassName="C110_FRow">
164	164	<xs:complexType>
165	165	<xs:sequence>
166	166	<xs:element name="C110_KEY1" msdata:Caption="キー" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_KEY1" msprop:Generator_ColumnVarNameInTable="columnC110_KEY1" msprop:Generator_ColumnPropNameInTable="C110_KEY1Column" msprop:Generator_UserColumnName="C110_KEY1" type="xs:decimal" minOccurs="0" />

		@@ -188,6 +188,27 @@
188	188	</xs:sequence>
189	189	</xs:complexType>
190	190	</xs:element>
	191	+ <xs:element name="C140_F" msprop:Generator_TableClassName="C140_FDataTable" msprop:Generator_TableVarName="tableC140_F" msprop:Generator_TablePropName="C140_F" msprop:Generator_RowDeletingName="C140_FRowDeleting" msprop:Generator_RowChangingName="C140_FRowChanging" msprop:Generator_RowEvHandlerName="C140_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C140_FRowDeleted" msprop:Generator_UserTableName="C140_F" msprop:Generator_RowChangedName="C140_FRowChanged" msprop:Generator_RowEvArgName="C140_FRowChangeEvent" msprop:Generator_RowClassName="C140_FRow">
	192	+ <xs:complexType>
	193	+ <xs:sequence>
	194	+ <xs:element name="C140_CP1" msprop:Generator_ColumnVarNameInTable="columnC140_CP1" msprop:Generator_ColumnPropNameInRow="C140_CP1" msprop:Generator_ColumnPropNameInTable="C140_CP1Column" msprop:Generator_UserColumnName="C140_CP1" type="xs:string" />
	195	+ <xs:element name="C140_REPID" msprop:Generator_ColumnVarNameInTable="columnC140_REPID" msprop:Generator_ColumnPropNameInRow="C140_REPID" msprop:Generator_ColumnPropNameInTable="C140_REPIDColumn" msprop:Generator_UserColumnName="C140_REPID" type="xs:string" />
	196	+ <xs:element name="C140_REPNM" msprop:Generator_ColumnVarNameInTable="columnC140_REPNM" msprop:Generator_ColumnPropNameInRow="C140_REPNM" msprop:Generator_ColumnPropNameInTable="C140_REPNMColumn" msprop:Generator_UserColumnName="C140_REPNM" type="xs:string" minOccurs="0" />
	197	+ <xs:element name="C140_PRTNAME" msprop:Generator_ColumnVarNameInTable="columnC140_PRTNAME" msprop:Generator_ColumnPropNameInRow="C140_PRTNAME" msprop:Generator_ColumnPropNameInTable="C140_PRTNAMEColumn" msprop:Generator_UserColumnName="C140_PRTNAME" type="xs:string" minOccurs="0" />
	198	+ <xs:element name="C140_TOPM" msprop:Generator_ColumnVarNameInTable="columnC140_TOPM" msprop:Generator_ColumnPropNameInRow="C140_TOPM" msprop:Generator_ColumnPropNameInTable="C140_TOPMColumn" msprop:Generator_UserColumnName="C140_TOPM" type="xs:decimal" minOccurs="0" />
	199	+ <xs:element name="C140_BTMM" msprop:Generator_ColumnVarNameInTable="columnC140_BTMM" msprop:Generator_ColumnPropNameInRow="C140_BTMM" msprop:Generator_ColumnPropNameInTable="C140_BTMMColumn" msprop:Generator_UserColumnName="C140_BTMM" type="xs:decimal" minOccurs="0" />
	200	+ <xs:element name="C140_LFTM" msprop:Generator_ColumnVarNameInTable="columnC140_LFTM" msprop:Generator_ColumnPropNameInRow="C140_LFTM" msprop:Generator_ColumnPropNameInTable="C140_LFTMColumn" msprop:Generator_UserColumnName="C140_LFTM" type="xs:decimal" minOccurs="0" />
	201	+ <xs:element name="C140_RGHM" msprop:Generator_ColumnVarNameInTable="columnC140_RGHM" msprop:Generator_ColumnPropNameInRow="C140_RGHM" msprop:Generator_ColumnPropNameInTable="C140_RGHMColumn" msprop:Generator_UserColumnName="C140_RGHM" type="xs:decimal" minOccurs="0" />
	202	+ <xs:element name="C140_UPD1" msprop:Generator_ColumnVarNameInTable="columnC140_UPD1" msprop:Generator_ColumnPropNameInRow="C140_UPD1" msprop:Generator_ColumnPropNameInTable="C140_UPD1Column" msprop:Generator_UserColumnName="C140_UPD1" minOccurs="0">
	203	+ <xs:simpleType>
	204	+ <xs:restriction base="xs:string">
	205	+ <xs:maxLength value="40" />
	206	+ </xs:restriction>
	207	+ </xs:simpleType>
	208	+ </xs:element>
	209	+ </xs:sequence>
	210	+ </xs:complexType>
	211	+ </xs:element>
191	212	</xs:choice>
192	213	</xs:complexType>
193	214	<xs:unique name="Constraint1" msdata:PrimaryKey="true">

		@@ -212,5 +233,10 @@
212	233	<xs:selector xpath=".//mstns:C111_F" />
213	234	<xs:field xpath="mstns:C111_NO1" />
214	235	</xs:unique>
	236	+ <xs:unique name="C140_F_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
	237	+ <xs:selector xpath=".//mstns:C140_F" />
	238	+ <xs:field xpath="mstns:C140_CP1" />
	239	+ <xs:field xpath="mstns:C140_REPID" />
	240	+ </xs:unique>
215	241	</xs:element>
216	242	</xs:schema>
		\ No newline at end of file

--- trunk/MLApp.DataModel/C1_TRNDataSet.Designer.vb (revision 69)

+++ trunk/MLApp.DataModel/C1_TRNDataSet.Designer.vb (revision 70)

		@@ -37,6 +37,8 @@
37	37
38	38	Private tableC110_F As C110_FDataTable
39	39
	40	+ Private tableC140_F As C140_FDataTable
	41	+
40	42	Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
41	43
42	44	<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _

		@@ -84,6 +86,9 @@
84	86	If (Not (ds.Tables("C110_F")) Is Nothing) Then
85	87	MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
86	88	End If
	89	+ If (Not (ds.Tables("C140_F")) Is Nothing) Then
	90	+ MyBase.Tables.Add(New C140_FDataTable(ds.Tables("C140_F")))
	91	+ End If
87	92	Me.DataSetName = ds.DataSetName
88	93	Me.Prefix = ds.Prefix
89	94	Me.Namespace = ds.Namespace

		@@ -163,6 +168,16 @@
163	168
164	169	<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
165	170	Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
	171	+ Global.System.ComponentModel.Browsable(false), _
	172	+ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
	173	+ Public ReadOnly Property C140_F() As C140_FDataTable
	174	+ Get
	175	+ Return Me.tableC140_F
	176	+ End Get
	177	+ End Property
	178	+
	179	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	180	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
166	181	Global.System.ComponentModel.BrowsableAttribute(true), _
167	182	Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
168	183	Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode

		@@ -246,6 +261,9 @@
246	261	If (Not (ds.Tables("C110_F")) Is Nothing) Then
247	262	MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
248	263	End If
	264	+ If (Not (ds.Tables("C140_F")) Is Nothing) Then
	265	+ MyBase.Tables.Add(New C140_FDataTable(ds.Tables("C140_F")))
	266	+ End If
249	267	Me.DataSetName = ds.DataSetName
250	268	Me.Prefix = ds.Prefix
251	269	Me.Namespace = ds.Namespace

		@@ -314,6 +332,12 @@
314	332	Me.tableC110_F.InitVars
315	333	End If
316	334	End If
	335	+ Me.tableC140_F = CType(MyBase.Tables("C140_F"),C140_FDataTable)
	336	+ If (initTable = true) Then
	337	+ If (Not (Me.tableC140_F) Is Nothing) Then
	338	+ Me.tableC140_F.InitVars
	339	+ End If
	340	+ End If
317	341	End Sub
318	342
319	343	<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _

		@@ -336,6 +360,8 @@
336	360	MyBase.Tables.Add(Me.tableC111_F)
337	361	Me.tableC110_F = New C110_FDataTable()
338	362	MyBase.Tables.Add(Me.tableC110_F)
	363	+ Me.tableC140_F = New C140_FDataTable()
	364	+ MyBase.Tables.Add(Me.tableC140_F)
339	365	End Sub
340	366
341	367	<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _

		@@ -376,6 +402,12 @@
376	402
377	403	<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
378	404	Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	405	+ Private Function ShouldSerializeC140_F() As Boolean
	406	+ Return false
	407	+ End Function
	408	+
	409	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	410	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
379	411	Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
380	412	If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
381	413	Me.InitVars

		@@ -450,6 +482,9 @@
450	482	<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
451	483	Public Delegate Sub C110_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C110_FRowChangeEvent)
452	484
	485	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	486	+ Public Delegate Sub C140_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C140_FRowChangeEvent)
	487	+
453	488	'''<summary>
454	489	'''Represents the strongly named DataTable class.
455	490	'''</summary>

		@@ -2108,7 +2143,6 @@
2108	2143	Me.columnC130_KEY1.AllowDBNull = false
2109	2144	Me.columnC130_KEY1.Unique = true
2110	2145	Me.columnC130_DPNO1.AllowDBNull = false
2111		- Me.columnC130_UPD1.Caption = "C120_UPD1"
2112	2146	Me.columnC130_UPD1.MaxLength = 40
2113	2147	End Sub
2114	2148

		@@ -3440,6 +3474,372 @@
3440	3474	End Class
3441	3475
3442	3476	'''<summary>
	3477	+ '''Represents the strongly named DataTable class.
	3478	+ '''</summary>
	3479	+ <Global.System.Serializable(), _
	3480	+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
	3481	+ Partial Public Class C140_FDataTable
	3482	+ Inherits Global.System.Data.TypedTableBase(Of C140_FRow)
	3483	+
	3484	+ Private columnC140_CP1 As Global.System.Data.DataColumn
	3485	+
	3486	+ Private columnC140_REPID As Global.System.Data.DataColumn
	3487	+
	3488	+ Private columnC140_REPNM As Global.System.Data.DataColumn
	3489	+
	3490	+ Private columnC140_PRTNAME As Global.System.Data.DataColumn
	3491	+
	3492	+ Private columnC140_TOPM As Global.System.Data.DataColumn
	3493	+
	3494	+ Private columnC140_BTMM As Global.System.Data.DataColumn
	3495	+
	3496	+ Private columnC140_LFTM As Global.System.Data.DataColumn
	3497	+
	3498	+ Private columnC140_RGHM As Global.System.Data.DataColumn
	3499	+
	3500	+ Private columnC140_UPD1 As Global.System.Data.DataColumn
	3501	+
	3502	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3503	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3504	+ Public Sub New()
	3505	+ MyBase.New
	3506	+ Me.TableName = "C140_F"
	3507	+ Me.BeginInit
	3508	+ Me.InitClass
	3509	+ Me.EndInit
	3510	+ End Sub
	3511	+
	3512	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3513	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3514	+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
	3515	+ MyBase.New
	3516	+ Me.TableName = table.TableName
	3517	+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
	3518	+ Me.CaseSensitive = table.CaseSensitive
	3519	+ End If
	3520	+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
	3521	+ Me.Locale = table.Locale
	3522	+ End If
	3523	+ If (table.Namespace <> table.DataSet.Namespace) Then
	3524	+ Me.Namespace = table.Namespace
	3525	+ End If
	3526	+ Me.Prefix = table.Prefix
	3527	+ Me.MinimumCapacity = table.MinimumCapacity
	3528	+ End Sub
	3529	+
	3530	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3531	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3532	+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
	3533	+ MyBase.New(info, context)
	3534	+ Me.InitVars
	3535	+ End Sub
	3536	+
	3537	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3538	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3539	+ Public ReadOnly Property C140_CP1Column() As Global.System.Data.DataColumn
	3540	+ Get
	3541	+ Return Me.columnC140_CP1
	3542	+ End Get
	3543	+ End Property
	3544	+
	3545	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3546	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3547	+ Public ReadOnly Property C140_REPIDColumn() As Global.System.Data.DataColumn
	3548	+ Get
	3549	+ Return Me.columnC140_REPID
	3550	+ End Get
	3551	+ End Property
	3552	+
	3553	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3554	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3555	+ Public ReadOnly Property C140_REPNMColumn() As Global.System.Data.DataColumn
	3556	+ Get
	3557	+ Return Me.columnC140_REPNM
	3558	+ End Get
	3559	+ End Property
	3560	+
	3561	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3562	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3563	+ Public ReadOnly Property C140_PRTNAMEColumn() As Global.System.Data.DataColumn
	3564	+ Get
	3565	+ Return Me.columnC140_PRTNAME
	3566	+ End Get
	3567	+ End Property
	3568	+
	3569	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3570	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3571	+ Public ReadOnly Property C140_TOPMColumn() As Global.System.Data.DataColumn
	3572	+ Get
	3573	+ Return Me.columnC140_TOPM
	3574	+ End Get
	3575	+ End Property
	3576	+
	3577	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3578	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3579	+ Public ReadOnly Property C140_BTMMColumn() As Global.System.Data.DataColumn
	3580	+ Get
	3581	+ Return Me.columnC140_BTMM
	3582	+ End Get
	3583	+ End Property
	3584	+
	3585	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3586	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3587	+ Public ReadOnly Property C140_LFTMColumn() As Global.System.Data.DataColumn
	3588	+ Get
	3589	+ Return Me.columnC140_LFTM
	3590	+ End Get
	3591	+ End Property
	3592	+
	3593	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3594	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3595	+ Public ReadOnly Property C140_RGHMColumn() As Global.System.Data.DataColumn
	3596	+ Get
	3597	+ Return Me.columnC140_RGHM
	3598	+ End Get
	3599	+ End Property
	3600	+
	3601	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3602	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3603	+ Public ReadOnly Property C140_UPD1Column() As Global.System.Data.DataColumn
	3604	+ Get
	3605	+ Return Me.columnC140_UPD1
	3606	+ End Get
	3607	+ End Property
	3608	+
	3609	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3610	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
	3611	+ Global.System.ComponentModel.Browsable(false)> _
	3612	+ Public ReadOnly Property Count() As Integer
	3613	+ Get
	3614	+ Return Me.Rows.Count
	3615	+ End Get
	3616	+ End Property
	3617	+
	3618	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3619	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3620	+ Public Default ReadOnly Property Item(ByVal index As Integer) As C140_FRow
	3621	+ Get
	3622	+ Return CType(Me.Rows(index),C140_FRow)
	3623	+ End Get
	3624	+ End Property
	3625	+
	3626	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3627	+ Public Event C140_FRowChanging As C140_FRowChangeEventHandler
	3628	+
	3629	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3630	+ Public Event C140_FRowChanged As C140_FRowChangeEventHandler
	3631	+
	3632	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3633	+ Public Event C140_FRowDeleting As C140_FRowChangeEventHandler
	3634	+
	3635	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3636	+ Public Event C140_FRowDeleted As C140_FRowChangeEventHandler
	3637	+
	3638	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3639	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3640	+ Public Overloads Sub AddC140_FRow(ByVal row As C140_FRow)
	3641	+ Me.Rows.Add(row)
	3642	+ End Sub
	3643	+
	3644	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3645	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3646	+ Public Overloads Function AddC140_FRow(ByVal C140_CP1 As String, ByVal C140_REPID As String, ByVal C140_REPNM As String, ByVal C140_PRTNAME As String, ByVal C140_TOPM As Decimal, ByVal C140_BTMM As Decimal, ByVal C140_LFTM As Decimal, ByVal C140_RGHM As Decimal, ByVal C140_UPD1 As String) As C140_FRow
	3647	+ Dim rowC140_FRow As C140_FRow = CType(Me.NewRow,C140_FRow)
	3648	+ Dim columnValuesArray() As Object = New Object() {C140_CP1, C140_REPID, C140_REPNM, C140_PRTNAME, C140_TOPM, C140_BTMM, C140_LFTM, C140_RGHM, C140_UPD1}
	3649	+ rowC140_FRow.ItemArray = columnValuesArray
	3650	+ Me.Rows.Add(rowC140_FRow)
	3651	+ Return rowC140_FRow
	3652	+ End Function
	3653	+
	3654	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3655	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3656	+ Public Function FindByC140_CP1C140_REPID(ByVal C140_CP1 As String, ByVal C140_REPID As String) As C140_FRow
	3657	+ Return CType(Me.Rows.Find(New Object() {C140_CP1, C140_REPID}),C140_FRow)
	3658	+ End Function
	3659	+
	3660	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3661	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3662	+ Public Overrides Function Clone() As Global.System.Data.DataTable
	3663	+ Dim cln As C140_FDataTable = CType(MyBase.Clone,C140_FDataTable)
	3664	+ cln.InitVars
	3665	+ Return cln
	3666	+ End Function
	3667	+
	3668	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3669	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3670	+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
	3671	+ Return New C140_FDataTable()
	3672	+ End Function
	3673	+
	3674	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3675	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3676	+ Friend Sub InitVars()
	3677	+ Me.columnC140_CP1 = MyBase.Columns("C140_CP1")
	3678	+ Me.columnC140_REPID = MyBase.Columns("C140_REPID")
	3679	+ Me.columnC140_REPNM = MyBase.Columns("C140_REPNM")
	3680	+ Me.columnC140_PRTNAME = MyBase.Columns("C140_PRTNAME")
	3681	+ Me.columnC140_TOPM = MyBase.Columns("C140_TOPM")
	3682	+ Me.columnC140_BTMM = MyBase.Columns("C140_BTMM")
	3683	+ Me.columnC140_LFTM = MyBase.Columns("C140_LFTM")
	3684	+ Me.columnC140_RGHM = MyBase.Columns("C140_RGHM")
	3685	+ Me.columnC140_UPD1 = MyBase.Columns("C140_UPD1")
	3686	+ End Sub
	3687	+
	3688	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3689	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3690	+ Private Sub InitClass()
	3691	+ Me.columnC140_CP1 = New Global.System.Data.DataColumn("C140_CP1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
	3692	+ MyBase.Columns.Add(Me.columnC140_CP1)
	3693	+ Me.columnC140_REPID = New Global.System.Data.DataColumn("C140_REPID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
	3694	+ MyBase.Columns.Add(Me.columnC140_REPID)
	3695	+ Me.columnC140_REPNM = New Global.System.Data.DataColumn("C140_REPNM", GetType(String), Nothing, Global.System.Data.MappingType.Element)
	3696	+ MyBase.Columns.Add(Me.columnC140_REPNM)
	3697	+ Me.columnC140_PRTNAME = New Global.System.Data.DataColumn("C140_PRTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
	3698	+ MyBase.Columns.Add(Me.columnC140_PRTNAME)
	3699	+ Me.columnC140_TOPM = New Global.System.Data.DataColumn("C140_TOPM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
	3700	+ MyBase.Columns.Add(Me.columnC140_TOPM)
	3701	+ Me.columnC140_BTMM = New Global.System.Data.DataColumn("C140_BTMM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
	3702	+ MyBase.Columns.Add(Me.columnC140_BTMM)
	3703	+ Me.columnC140_LFTM = New Global.System.Data.DataColumn("C140_LFTM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
	3704	+ MyBase.Columns.Add(Me.columnC140_LFTM)
	3705	+ Me.columnC140_RGHM = New Global.System.Data.DataColumn("C140_RGHM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
	3706	+ MyBase.Columns.Add(Me.columnC140_RGHM)
	3707	+ Me.columnC140_UPD1 = New Global.System.Data.DataColumn("C140_UPD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
	3708	+ MyBase.Columns.Add(Me.columnC140_UPD1)
	3709	+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnC140_CP1, Me.columnC140_REPID}, true))
	3710	+ Me.columnC140_CP1.AllowDBNull = false
	3711	+ Me.columnC140_REPID.AllowDBNull = false
	3712	+ Me.columnC140_UPD1.MaxLength = 40
	3713	+ End Sub
	3714	+
	3715	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3716	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3717	+ Public Function NewC140_FRow() As C140_FRow
	3718	+ Return CType(Me.NewRow,C140_FRow)
	3719	+ End Function
	3720	+
	3721	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3722	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3723	+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
	3724	+ Return New C140_FRow(builder)
	3725	+ End Function
	3726	+
	3727	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3728	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3729	+ Protected Overrides Function GetRowType() As Global.System.Type
	3730	+ Return GetType(C140_FRow)
	3731	+ End Function
	3732	+
	3733	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3734	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3735	+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
	3736	+ MyBase.OnRowChanged(e)
	3737	+ If (Not (Me.C140_FRowChangedEvent) Is Nothing) Then
	3738	+ RaiseEvent C140_FRowChanged(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
	3739	+ End If
	3740	+ End Sub
	3741	+
	3742	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3743	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3744	+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
	3745	+ MyBase.OnRowChanging(e)
	3746	+ If (Not (Me.C140_FRowChangingEvent) Is Nothing) Then
	3747	+ RaiseEvent C140_FRowChanging(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
	3748	+ End If
	3749	+ End Sub
	3750	+
	3751	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3752	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3753	+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
	3754	+ MyBase.OnRowDeleted(e)
	3755	+ If (Not (Me.C140_FRowDeletedEvent) Is Nothing) Then
	3756	+ RaiseEvent C140_FRowDeleted(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
	3757	+ End If
	3758	+ End Sub
	3759	+
	3760	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3761	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3762	+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
	3763	+ MyBase.OnRowDeleting(e)
	3764	+ If (Not (Me.C140_FRowDeletingEvent) Is Nothing) Then
	3765	+ RaiseEvent C140_FRowDeleting(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
	3766	+ End If
	3767	+ End Sub
	3768	+
	3769	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3770	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3771	+ Public Sub RemoveC140_FRow(ByVal row As C140_FRow)
	3772	+ Me.Rows.Remove(row)
	3773	+ End Sub
	3774	+
	3775	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	3776	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	3777	+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
	3778	+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
	3779	+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
	3780	+ Dim ds As C1_TRNDataSet = New C1_TRNDataSet()
	3781	+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
	3782	+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
	3783	+ any1.MinOccurs = New Decimal(0)
	3784	+ any1.MaxOccurs = Decimal.MaxValue
	3785	+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
	3786	+ sequence.Items.Add(any1)
	3787	+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
	3788	+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
	3789	+ any2.MinOccurs = New Decimal(1)
	3790	+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
	3791	+ sequence.Items.Add(any2)
	3792	+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
	3793	+ attribute1.Name = "namespace"
	3794	+ attribute1.FixedValue = ds.Namespace
	3795	+ type.Attributes.Add(attribute1)
	3796	+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
	3797	+ attribute2.Name = "tableTypeName"
	3798	+ attribute2.FixedValue = "C140_FDataTable"
	3799	+ type.Attributes.Add(attribute2)
	3800	+ type.Particle = sequence
	3801	+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
	3802	+ If xs.Contains(dsSchema.TargetNamespace) Then
	3803	+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
	3804	+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
	3805	+ Try
	3806	+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
	3807	+ dsSchema.Write(s1)
	3808	+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
	3809	+ Do While schemas.MoveNext
	3810	+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
	3811	+ s2.SetLength(0)
	3812	+ schema.Write(s2)
	3813	+ If (s1.Length = s2.Length) Then
	3814	+ s1.Position = 0
	3815	+ s2.Position = 0
	3816	+
	3817	+ Do While ((s1.Position <> s1.Length) _
	3818	+ AndAlso (s1.ReadByte = s2.ReadByte))
	3819	+
	3820	+
	3821	+ Loop
	3822	+ If (s1.Position = s1.Length) Then
	3823	+ Return type
	3824	+ End If
	3825	+ End If
	3826	+
	3827	+ Loop
	3828	+ Finally
	3829	+ If (Not (s1) Is Nothing) Then
	3830	+ s1.Close
	3831	+ End If
	3832	+ If (Not (s2) Is Nothing) Then
	3833	+ s2.Close
	3834	+ End If
	3835	+ End Try
	3836	+ End If
	3837	+ xs.Add(dsSchema)
	3838	+ Return type
	3839	+ End Function
	3840	+ End Class
	3841	+
	3842	+ '''<summary>
3443	3843	'''Represents strongly named DataRow class.
3444	3844	'''</summary>
3445	3845	Partial Public Class C150_FRow

		@@ -6265,6 +6665,233 @@
6265	6665	End Class
6266	6666
6267	6667	'''<summary>
	6668	+ '''Represents strongly named DataRow class.
	6669	+ '''</summary>
	6670	+ Partial Public Class C140_FRow
	6671	+ Inherits Global.System.Data.DataRow
	6672	+
	6673	+ Private tableC140_F As C140_FDataTable
	6674	+
	6675	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6676	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6677	+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
	6678	+ MyBase.New(rb)
	6679	+ Me.tableC140_F = CType(Me.Table,C140_FDataTable)
	6680	+ End Sub
	6681	+
	6682	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6683	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6684	+ Public Property C140_CP1() As String
	6685	+ Get
	6686	+ Return CType(Me(Me.tableC140_F.C140_CP1Column),String)
	6687	+ End Get
	6688	+ Set
	6689	+ Me(Me.tableC140_F.C140_CP1Column) = value
	6690	+ End Set
	6691	+ End Property
	6692	+
	6693	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6694	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6695	+ Public Property C140_REPID() As String
	6696	+ Get
	6697	+ Return CType(Me(Me.tableC140_F.C140_REPIDColumn),String)
	6698	+ End Get
	6699	+ Set
	6700	+ Me(Me.tableC140_F.C140_REPIDColumn) = value
	6701	+ End Set
	6702	+ End Property
	6703	+
	6704	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6705	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6706	+ Public Property C140_REPNM() As String
	6707	+ Get
	6708	+ Try
	6709	+ Return CType(Me(Me.tableC140_F.C140_REPNMColumn),String)
	6710	+ Catch e As Global.System.InvalidCastException
	6711	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_REPNM' の値は DBNull です。", e)
	6712	+ End Try
	6713	+ End Get
	6714	+ Set
	6715	+ Me(Me.tableC140_F.C140_REPNMColumn) = value
	6716	+ End Set
	6717	+ End Property
	6718	+
	6719	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6720	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6721	+ Public Property C140_PRTNAME() As String
	6722	+ Get
	6723	+ Try
	6724	+ Return CType(Me(Me.tableC140_F.C140_PRTNAMEColumn),String)
	6725	+ Catch e As Global.System.InvalidCastException
	6726	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_PRTNAME' の値は DBNull です。", e)
	6727	+ End Try
	6728	+ End Get
	6729	+ Set
	6730	+ Me(Me.tableC140_F.C140_PRTNAMEColumn) = value
	6731	+ End Set
	6732	+ End Property
	6733	+
	6734	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6735	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6736	+ Public Property C140_TOPM() As Decimal
	6737	+ Get
	6738	+ Try
	6739	+ Return CType(Me(Me.tableC140_F.C140_TOPMColumn),Decimal)
	6740	+ Catch e As Global.System.InvalidCastException
	6741	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_TOPM' の値は DBNull です。", e)
	6742	+ End Try
	6743	+ End Get
	6744	+ Set
	6745	+ Me(Me.tableC140_F.C140_TOPMColumn) = value
	6746	+ End Set
	6747	+ End Property
	6748	+
	6749	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6750	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6751	+ Public Property C140_BTMM() As Decimal
	6752	+ Get
	6753	+ Try
	6754	+ Return CType(Me(Me.tableC140_F.C140_BTMMColumn),Decimal)
	6755	+ Catch e As Global.System.InvalidCastException
	6756	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_BTMM' の値は DBNull です。", e)
	6757	+ End Try
	6758	+ End Get
	6759	+ Set
	6760	+ Me(Me.tableC140_F.C140_BTMMColumn) = value
	6761	+ End Set
	6762	+ End Property
	6763	+
	6764	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6765	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6766	+ Public Property C140_LFTM() As Decimal
	6767	+ Get
	6768	+ Try
	6769	+ Return CType(Me(Me.tableC140_F.C140_LFTMColumn),Decimal)
	6770	+ Catch e As Global.System.InvalidCastException
	6771	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_LFTM' の値は DBNull です。", e)
	6772	+ End Try
	6773	+ End Get
	6774	+ Set
	6775	+ Me(Me.tableC140_F.C140_LFTMColumn) = value
	6776	+ End Set
	6777	+ End Property
	6778	+
	6779	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6780	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6781	+ Public Property C140_RGHM() As Decimal
	6782	+ Get
	6783	+ Try
	6784	+ Return CType(Me(Me.tableC140_F.C140_RGHMColumn),Decimal)
	6785	+ Catch e As Global.System.InvalidCastException
	6786	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_RGHM' の値は DBNull です。", e)
	6787	+ End Try
	6788	+ End Get
	6789	+ Set
	6790	+ Me(Me.tableC140_F.C140_RGHMColumn) = value
	6791	+ End Set
	6792	+ End Property
	6793	+
	6794	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6795	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6796	+ Public Property C140_UPD1() As String
	6797	+ Get
	6798	+ Try
	6799	+ Return CType(Me(Me.tableC140_F.C140_UPD1Column),String)
	6800	+ Catch e As Global.System.InvalidCastException
	6801	+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_UPD1' の値は DBNull です。", e)
	6802	+ End Try
	6803	+ End Get
	6804	+ Set
	6805	+ Me(Me.tableC140_F.C140_UPD1Column) = value
	6806	+ End Set
	6807	+ End Property
	6808	+
	6809	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6810	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6811	+ Public Function IsC140_REPNMNull() As Boolean
	6812	+ Return Me.IsNull(Me.tableC140_F.C140_REPNMColumn)
	6813	+ End Function
	6814	+
	6815	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6816	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6817	+ Public Sub SetC140_REPNMNull()
	6818	+ Me(Me.tableC140_F.C140_REPNMColumn) = Global.System.Convert.DBNull
	6819	+ End Sub
	6820	+
	6821	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6822	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6823	+ Public Function IsC140_PRTNAMENull() As Boolean
	6824	+ Return Me.IsNull(Me.tableC140_F.C140_PRTNAMEColumn)
	6825	+ End Function
	6826	+
	6827	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6828	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6829	+ Public Sub SetC140_PRTNAMENull()
	6830	+ Me(Me.tableC140_F.C140_PRTNAMEColumn) = Global.System.Convert.DBNull
	6831	+ End Sub
	6832	+
	6833	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6834	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6835	+ Public Function IsC140_TOPMNull() As Boolean
	6836	+ Return Me.IsNull(Me.tableC140_F.C140_TOPMColumn)
	6837	+ End Function
	6838	+
	6839	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6840	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6841	+ Public Sub SetC140_TOPMNull()
	6842	+ Me(Me.tableC140_F.C140_TOPMColumn) = Global.System.Convert.DBNull
	6843	+ End Sub
	6844	+
	6845	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6846	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6847	+ Public Function IsC140_BTMMNull() As Boolean
	6848	+ Return Me.IsNull(Me.tableC140_F.C140_BTMMColumn)
	6849	+ End Function
	6850	+
	6851	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6852	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6853	+ Public Sub SetC140_BTMMNull()
	6854	+ Me(Me.tableC140_F.C140_BTMMColumn) = Global.System.Convert.DBNull
	6855	+ End Sub
	6856	+
	6857	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6858	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6859	+ Public Function IsC140_LFTMNull() As Boolean
	6860	+ Return Me.IsNull(Me.tableC140_F.C140_LFTMColumn)
	6861	+ End Function
	6862	+
	6863	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6864	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6865	+ Public Sub SetC140_LFTMNull()
	6866	+ Me(Me.tableC140_F.C140_LFTMColumn) = Global.System.Convert.DBNull
	6867	+ End Sub
	6868	+
	6869	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6870	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6871	+ Public Function IsC140_RGHMNull() As Boolean
	6872	+ Return Me.IsNull(Me.tableC140_F.C140_RGHMColumn)
	6873	+ End Function
	6874	+
	6875	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6876	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6877	+ Public Sub SetC140_RGHMNull()
	6878	+ Me(Me.tableC140_F.C140_RGHMColumn) = Global.System.Convert.DBNull
	6879	+ End Sub
	6880	+
	6881	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6882	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6883	+ Public Function IsC140_UPD1Null() As Boolean
	6884	+ Return Me.IsNull(Me.tableC140_F.C140_UPD1Column)
	6885	+ End Function
	6886	+
	6887	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	6888	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	6889	+ Public Sub SetC140_UPD1Null()
	6890	+ Me(Me.tableC140_F.C140_UPD1Column) = Global.System.Convert.DBNull
	6891	+ End Sub
	6892	+ End Class
	6893	+
	6894	+ '''<summary>
6268	6895	'''Row event argument class
6269	6896	'''</summary>
6270	6897	<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _

		@@ -6479,4 +7106,40 @@
6479	7106	End Get
6480	7107	End Property
6481	7108	End Class
	7109	+
	7110	+ '''<summary>
	7111	+ '''Row event argument class
	7112	+ '''</summary>
	7113	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	7114	+ Public Class C140_FRowChangeEvent
	7115	+ Inherits Global.System.EventArgs
	7116	+
	7117	+ Private eventRow As C140_FRow
	7118	+
	7119	+ Private eventAction As Global.System.Data.DataRowAction
	7120	+
	7121	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	7122	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	7123	+ Public Sub New(ByVal row As C140_FRow, ByVal action As Global.System.Data.DataRowAction)
	7124	+ MyBase.New
	7125	+ Me.eventRow = row
	7126	+ Me.eventAction = action
	7127	+ End Sub
	7128	+
	7129	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	7130	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	7131	+ Public ReadOnly Property Row() As C140_FRow
	7132	+ Get
	7133	+ Return Me.eventRow
	7134	+ End Get
	7135	+ End Property
	7136	+
	7137	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
	7138	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
	7139	+ Public ReadOnly Property Action() As Global.System.Data.DataRowAction
	7140	+ Get
	7141	+ Return Me.eventAction
	7142	+ End Get
	7143	+ End Property
	7144	+ End Class
6482	7145	End Class

--- trunk/MLApp.TRNLib/Class/TRNConst.vb (revision 69)

+++ trunk/MLApp.TRNLib/Class/TRNConst.vb (revision 70)

		@@ -100,6 +100,9 @@
100	100	'''<Summary>伝票番号設定(C130_F)</Summary>
101	101	Public Const C130_F As String = "C130_F"
102	102
	103	+ '''<Summary>プリンタ設定(C140_F)</Summary>
	104	+ Public Const C140_F As String = "C140_F"
	105	+
103	106	End Class
104	107
105	108	End Class

--- trunk/MLApp.TRN0000/Form1.Designer.vb (revision 69)

+++ trunk/MLApp.TRN0000/Form1.Designer.vb (revision 70)

		@@ -218,6 +218,7 @@
218	218	Me.UcSearchBox2.CodeControlText = ""
219	219	Me.UcSearchBox2.CodeControlWidth = 120
220	220	Me.UcSearchBox2.CodeFieldName = "M110_CODE1"
	221	+ Me.UcSearchBox2.ConditionSQL = Nothing
221	222	Me.UcSearchBox2.FuriganaFieldName = Nothing
222	223	Me.UcSearchBox2.Location = New System.Drawing.Point(744, 90)
223	224	Me.UcSearchBox2.Name = "UcSearchBox2"

		@@ -351,7 +352,7 @@
351	352	Me.Uc6DatetimePicker1.Name = "Uc6DatetimePicker1"
352	353	Me.Uc6DatetimePicker1.Size = New System.Drawing.Size(150, 20)
353	354	Me.Uc6DatetimePicker1.TabIndex = 19
354		- Me.Uc6DatetimePicker1.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
	355	+ Me.Uc6DatetimePicker1.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
355	356	'
356	357	'Uc6Button4
357	358	'

		@@ -641,6 +642,7 @@
641	642	Me.UcSearchBox1.CodeControlText = ""
642	643	Me.UcSearchBox1.CodeControlWidth = 55
643	644	Me.UcSearchBox1.CodeFieldName = "M110_CODE1"
	645	+ Me.UcSearchBox1.ConditionSQL = Nothing
644	646	Me.UcSearchBox1.FuriganaFieldName = Nothing
645	647	Me.UcSearchBox1.Location = New System.Drawing.Point(12, 265)
646	648	Me.UcSearchBox1.Name = "UcSearchBox1"

		@@ -694,7 +696,7 @@
694	696	Me.Uc6Date2.Name = "Uc6Date2"
695	697	Me.Uc6Date2.Size = New System.Drawing.Size(159, 20)
696	698	Me.Uc6Date2.TabIndex = 36
697		- Me.Uc6Date2.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
	699	+ Me.Uc6Date2.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
698	700	'
699	701	'Uc6Date3
700	702	'

		@@ -706,7 +708,7 @@
706	708	Me.Uc6Date3.Name = "Uc6Date3"
707	709	Me.Uc6Date3.Size = New System.Drawing.Size(118, 20)
708	710	Me.Uc6Date3.TabIndex = 37
709		- Me.Uc6Date3.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
	711	+ Me.Uc6Date3.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
710	712	'
711	713	'Uc6Date1
712	714	'

		@@ -717,7 +719,7 @@
717	719	Me.Uc6Date1.Name = "Uc6Date1"
718	720	Me.Uc6Date1.Size = New System.Drawing.Size(134, 20)
719	721	Me.Uc6Date1.TabIndex = 38
720		- Me.Uc6Date1.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
	722	+ Me.Uc6Date1.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
721	723	'
722	724	'Uc6Button9
723	725	'

		@@ -791,6 +793,7 @@
791	793	Me.UcSearchBox2Line1.CodeControlText = ""
792	794	Me.UcSearchBox2Line1.CodeControlWidth = 100
793	795	Me.UcSearchBox2Line1.CodeFieldName = "M130_CODE1"
	796	+ Me.UcSearchBox2Line1.ConditionSQL = Nothing
794	797	Me.UcSearchBox2Line1.FuriganaFieldName = Nothing
795	798	Me.UcSearchBox2Line1.Location = New System.Drawing.Point(832, 135)
796	799	Me.UcSearchBox2Line1.Name = "UcSearchBox2Line1"

--- trunk/MLApp.TRN0000/Form1.vb (revision 69)

+++ trunk/MLApp.TRN0000/Form1.vb (revision 70)

		@@ -203,4 +203,8 @@
203	203	Me.Uc6DateText1.Value = Nothing
204	204	Me.Uc6DateText1.Value = CDate("2017/04/26")
205	205	End Sub
	206	+
	207	+ Private Sub Uc6DateText1_AfterUpdate(sender As System.Object, e As System.EventArgs) Handles Uc6DateText1.AfterUpdate
	208	+
	209	+ End Sub
206	210	End Class
		\ No newline at end of file

--- trunk/MLApp.TRN0000/Form2.Designer.vb (revision 69)

+++ trunk/MLApp.TRN0000/Form2.Designer.vb (revision 70)

		@@ -1,6 +1,6 @@
1	1	<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2	2	Partial Class Form2
3		- Inherits System.Windows.Forms.Form
	3	+ Inherits MLApp.Base.TRNBaseForm
4	4
5	5	'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6	6	<System.Diagnostics.DebuggerNonUserCode()> _

		@@ -26,11 +26,17 @@
26	26	Me.UcSearchBox1 = New MLApp.Base.ucSearchBox()
27	27	Me.Uc6Button14 = New ML.Controls.uc6Button()
28	28	Me.Uc6DateText1 = New ML.Controls.uc6DateText()
	29	+ Me.MenuBtnPanel.SuspendLayout()
	30	+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
29	31	Me.SuspendLayout()
30	32	'
	33	+ 'MenuBtnPanel
	34	+ '
	35	+ Me.MenuBtnPanel.Size = New System.Drawing.Size(547, 43)
	36	+ '
31	37	'Button1
32	38	'
33		- Me.Button1.Location = New System.Drawing.Point(50, 133)
	39	+ Me.Button1.Location = New System.Drawing.Point(50, 166)
34	40	Me.Button1.Name = "Button1"
35	41	Me.Button1.Size = New System.Drawing.Size(75, 23)
36	42	Me.Button1.TabIndex = 1

		@@ -45,8 +51,9 @@
45	51	Me.UcSearchBox1.CodeControlText = ""
46	52	Me.UcSearchBox1.CodeControlWidth = 55
47	53	Me.UcSearchBox1.CodeFieldName = Nothing
	54	+ Me.UcSearchBox1.ConditionSQL = Nothing
48	55	Me.UcSearchBox1.FuriganaFieldName = Nothing
49		- Me.UcSearchBox1.Location = New System.Drawing.Point(12, 28)
	56	+ Me.UcSearchBox1.Location = New System.Drawing.Point(12, 61)
50	57	Me.UcSearchBox1.Name = "UcSearchBox1"
51	58	Me.UcSearchBox1.NameControlEnabled = True
52	59	Me.UcSearchBox1.NameControlLengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode

		@@ -60,7 +67,7 @@
60	67	'
61	68	'Uc6Button14
62	69	'
63		- Me.Uc6Button14.Location = New System.Drawing.Point(116, 177)
	70	+ Me.Uc6Button14.Location = New System.Drawing.Point(116, 210)
64	71	Me.Uc6Button14.Name = "Uc6Button14"
65	72	Me.Uc6Button14.Size = New System.Drawing.Size(53, 23)
66	73	Me.Uc6Button14.TabIndex = 53

		@@ -72,7 +79,7 @@
72	79	Me.Uc6DateText1.BackColor = System.Drawing.SystemColors.Control
73	80	Me.Uc6DateText1.BackColorText = System.Drawing.SystemColors.Window
74	81	Me.Uc6DateText1.DateFormat = ""
75		- Me.Uc6DateText1.Location = New System.Drawing.Point(18, 178)
	82	+ Me.Uc6DateText1.Location = New System.Drawing.Point(18, 211)
76	83	Me.Uc6DateText1.Name = "Uc6DateText1"
77	84	Me.Uc6DateText1.Size = New System.Drawing.Size(97, 20)
78	85	Me.Uc6DateText1.TabIndex = 52

		@@ -83,7 +90,7 @@
83	90	'
84	91	Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
85	92	Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
86		- Me.ClientSize = New System.Drawing.Size(284, 261)
	93	+ Me.ClientSize = New System.Drawing.Size(547, 464)
87	94	Me.Controls.Add(Me.Uc6Button14)
88	95	Me.Controls.Add(Me.Uc6DateText1)
89	96	Me.Controls.Add(Me.Button1)

		@@ -90,7 +97,15 @@
90	97	Me.Controls.Add(Me.UcSearchBox1)
91	98	Me.Name = "Form2"
92	99	Me.Text = "Form2"
	100	+ Me.Controls.SetChildIndex(Me.UcSearchBox1, 0)
	101	+ Me.Controls.SetChildIndex(Me.Button1, 0)
	102	+ Me.Controls.SetChildIndex(Me.Uc6DateText1, 0)
	103	+ Me.Controls.SetChildIndex(Me.Uc6Button14, 0)
	104	+ Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
	105	+ Me.MenuBtnPanel.ResumeLayout(False)
	106	+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
93	107	Me.ResumeLayout(False)
	108	+ Me.PerformLayout()
94	109
95	110	End Sub
96	111	Friend WithEvents UcSearchBox1 As MLApp.Base.ucSearchBox

--- trunk/MLApp.TRN0000/Form2.vb (revision 69)

+++ trunk/MLApp.TRN0000/Form2.vb (revision 70)

		@@ -9,4 +9,16 @@
9	9	Me.Uc6DateText1.Value = Nothing
10	10	Me.Uc6DateText1.Value = CDate("2017/04/26")
11	11	End Sub
	12	+
	13	+ Private Sub Uc6DateText1_AfterUpdate(sender As System.Object, e As System.EventArgs) Handles Uc6DateText1.AfterUpdate
	14	+ Dim i As Integer = 1
	15	+ End Sub
	16	+
	17	+ Private Sub Uc6DateText1_BeforeUpdate(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles Uc6DateText1.BeforeUpdate
	18	+ If Me.Uc6DateText1.Text = "2018/02/25" Then
	19	+ MessageBox.Show("a")
	20	+ e.Cancel = True
	21	+ Exit Sub
	22	+ End If
	23	+ End Sub
12	24	End Class
		\ No newline at end of file

mlapplication

mlapplication: Commit

Commit MetaInfo

Log Message

Change Summary

Incremental Difference