• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision59 (tree)
Time2017-02-24 17:22:41
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/ML.Common.Base.Class/BaseFldClass.vb (revision 58)
+++ trunk/ML.Common.Base.Class/BaseFldClass.vb (revision 59)
@@ -109,7 +109,7 @@
109109 Me.m_drw(Me.m_sColName) = value
110110 Else
111111 '' データタイプが文字型か判定
112- If Me.m_drw(Me.m_sColName).GetType.ToString = ML.Common.Const.DataType.SYSTEM_STRING Then
112+ If Me.m_drw.Table.Columns(Me.m_sColName).DataType.FullName = ML.Common.Const.DataType.SYSTEM_STRING Then
113113 '' 文字型ならそのまま入れる
114114 Me.m_drw(Me.m_sColName) = value
115115 Else
@@ -125,7 +125,7 @@
125125 Me.m_drw(Me.m_iColIdx) = value
126126 Else
127127 '' データタイプが文字型か判定
128- If Me.m_drw(Me.m_iColIdx).GetType.ToString = ML.Common.Const.DataType.SYSTEM_STRING Then
128+ If Me.m_drw.Table.Columns(Me.m_iColIdx).DataType.FullName = ML.Common.Const.DataType.SYSTEM_STRING Then
129129 '' 文字型ならそのまま入れる
130130 Me.m_drw(Me.m_iColIdx) = value
131131 Else
--- trunk/MLApp.TRN9000/TRN9110.vb (revision 58)
+++ trunk/MLApp.TRN9000/TRN9110.vb (revision 59)
@@ -11,8 +11,8 @@
1111 ''' </history>
1212 Public Class TRN9110
1313
14- ''' <summary>ログオン情報クラス</summary>
15- Private m_LInfo As New MLApp.TRNLib.LoginInfo
14+ '' ''' <summary>ログオン情報クラス</summary>
15+ ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
1616
1717 ''' <summary>フォームロード時イベント</summary>
1818 Private Sub TRN9110_Load(sender As Object, e As System.EventArgs) Handles Me.Load
--- trunk/MLApp.TRN9000/TRN9120.vb (revision 58)
+++ trunk/MLApp.TRN9000/TRN9120.vb (revision 59)
@@ -39,8 +39,8 @@
3939 ''' <summary>処理中フラグ</summary>
4040 Private m_bProcessFlg As Boolean = False
4141
42- ''' <summary>ログオン情報クラス</summary>
43- Private m_LInfo As New MLApp.TRNLib.LoginInfo
42+ '' ''' <summary>ログオン情報クラス</summary>
43+ ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
4444
4545 ''' <summary>C150DataTableインスタンス</summary>
4646 Private m_dtC150 As New MLApp.DataModel.C1_TRNDataSet.C150_FDataTable
--- trunk/MLApp.TRN9000/TRN9130.vb (revision 58)
+++ trunk/MLApp.TRN9000/TRN9130.vb (revision 59)
@@ -16,8 +16,8 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
19+ '' ''' <summary>ログオン情報クラス</summary>
20+ ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
2121
2222 #End Region
2323
--- trunk/MLApp.TRN9000/TRN9140.vb (revision 58)
+++ trunk/MLApp.TRN9000/TRN9140.vb (revision 59)
@@ -14,8 +14,8 @@
1414 ''' </history>
1515 Public Class TRN9140
1616
17- ''' <summary>ログオン情報クラス</summary>
18- Private m_LInfo As New MLApp.TRNLib.LoginInfo
17+ '' ''' <summary>ログオン情報クラス</summary>
18+ ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
1919
2020 ''' <summary>フォームロード時イベント</summary>
2121 Private Sub TRN9140_Load(sender As Object, e As System.EventArgs) Handles Me.Load
--- trunk/MLApp.TRN0000/TRN0020.vb (revision 58)
+++ trunk/MLApp.TRN0000/TRN0020.vb (revision 59)
@@ -19,8 +19,8 @@
1919 ''' <summary>メニューボタンの数</summary>
2020 Protected Const BUTTON_COUNT As Integer = 14
2121
22- ''' <summary>ログオン情報クラス</summary>
23- Protected m_LInfo As MLApp.TRNLib.LoginInfo
22+ '' ''' <summary>ログオン情報クラス</summary>
23+ ''Protected m_LInfo As MLApp.TRNLib.LoginInfo
2424
2525 ''' <summary>フォームロード時</summary>
2626 Private Sub TRN0020_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
--- trunk/MLApp.Base/TRNBaseMenuForm.vb (revision 58)
+++ trunk/MLApp.Base/TRNBaseMenuForm.vb (revision 59)
@@ -16,8 +16,8 @@
1616 ''' </history>
1717 Public Class TRNBaseMenuForm
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Protected m_LInfo As MLApp.TRNLib.LoginInfo
19+ '' ''' <summary>ログオン情報クラス</summary>
20+ ''Protected m_LInfo As MLApp.TRNLib.LoginInfo
2121
2222 ''' <summary>サブシステムコード</summary>
2323 Protected m_SubSystemCode As String = String.Empty
--- trunk/MLApp.Base/TRNBaseForm.vb (revision 58)
+++ trunk/MLApp.Base/TRNBaseForm.vb (revision 59)
@@ -1,4 +1,7 @@
11 
2+Imports MLApp.Const
3+Imports MLApp.Const.DataTableExtension
4+
25 ''' <summary>
36 ''' 【クラス名】TRNBaseForm
47 ''' 【機能概要】基底フォームクラス
@@ -17,6 +20,15 @@
1720 ''' <summary>現在日付</summary>
1821 Protected m_NowDate As Date
1922
23+ ''' <summary>区分マスタDataTable</summary>
24+ Protected m_dtM9 As New MLApp.DataModel.M9_TRNDataSet.M921_FDataTable
25+
26+ ''' <summary>ログオン情報クラス</summary>
27+ Protected m_LInfo As MLApp.TRNLib.LoginInfo
28+
29+ ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
30+ Protected m_DataGridViewUnUseRowBackColor As Drawing.Color
31+
2032 ''' <summary>画面モード構造体</summary>
2133 Protected Structure stcDispMode
2234
@@ -93,6 +105,14 @@
93105
94106 If Me.DesignMode = True Then Exit Sub
95107
108+ '' ログイン情報クラスインスタンス生成
109+ Me.m_LInfo = New MLApp.TRNLib.LoginInfo
110+
111+ '' DataGridViewにおける未使用データ行の背景色取得
112+ Me.m_DataGridViewUnUseRowBackColor = Me.m_cbc.SetMemberVariable(
113+ Drawing.Color.LightGray,
114+ ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
115+
96116 '' ボタンキャプションを空白に初期化する
97117 For iFuncNo As Integer = 1 To 12
98118 If InStr(Me.MenuBtnPanel.Controls("cmdF" & iFuncNo.ToString).Text, "F") > 0 Then
@@ -114,6 +134,9 @@
114134 '' 現在日付をメンバ変数にセットする
115135 Me.m_NowDate = Me.GetNowDate
116136
137+ '' 区分マスタ取得
138+ Me.m_dtM9.GetData()
139+
117140 End Sub
118141
119142 ''' <summary>現在日付取得処理</summary>
@@ -231,4 +254,37 @@
231254 Return True
232255 End Function
233256
257+ ''' <summary>コードゼロサプレス処理</summary>
258+ ''' <param name="sMasterKey">マスタキー</param>
259+ ''' <param name="sCode">コード値</param>
260+ Protected Overridable Function CodeZeroSup(sMasterKey As String,
261+ sCode As String) As String
262+ Dim sRet As String = sCode
263+
264+ '' コードが数値でない場合は処理を抜ける
265+ If Not IsNumeric(sCode) Then
266+ Return sRet
267+ End If
268+
269+ Try
270+ '' コードゼロサプレス設定を取得する
271+ Dim sWHR = MLApp.Const.MLAppConst.TableName.GetKubnMTblWhereSQL( _
272+ KubunMGCode.CodeZeroSup.GroupCode, _
273+ sMasterKey)
274+ Dim sCodeFormat As String = Me.m_dtM9.DLookUp("M921_KBVAL2", sWHR)
275+
276+ '' コードゼロサプレス処理を行う
277+ sRet = CLng(sCode).ToString(sCodeFormat)
278+
279+ Catch ex As Exception
280+
281+ '' エラーログ出力
282+ Me.Logger.WriteErrorLog(ex.Message)
283+
284+ End Try
285+
286+ '' 戻り値を返す
287+ Return sRet
288+ End Function
289+
234290 End Class
\ No newline at end of file
--- trunk/MLApp.TRN8000/TRN8210.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8210.vb (revision 59)
@@ -17,12 +17,6 @@
1717
1818 #Region " メンバ変数"
1919
20- ''' <summary>ログオン情報クラス</summary>
21- Private m_LInfo As MLApp.TRNLib.LoginInfo
22-
23- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
24- Private m_DataGridViewUnUseRowBackColor As Drawing.Color
25-
2620 #End Region
2721
2822 #Region " イベント"
@@ -32,14 +26,6 @@
3226
3327 If Me.DesignMode = True Then Exit Sub
3428
35- '' ログイン情報クラスインスタンス生成
36- Me.m_LInfo = New MLApp.TRNLib.LoginInfo
37-
38- '' DataGridViewにおける未使用データ行の背景色取得
39- Me.m_DataGridViewUnUseRowBackColor = Me.m_cbc.SetMemberVariable(
40- Drawing.Color.LightGray,
41- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
42-
4329 '' 元に戻すボタン押下処理
4430 Me.CancelProc()
4531
@@ -411,7 +397,7 @@
411397
412398 ''' <summary>DataGridView選択時処理</summary>
413399 Protected Overridable Sub SelectedDataGridView(iRowIdx As Integer,
414- bFocused As Boolean)
400+ bFocused As Boolean)
415401
416402 If bFocused = False Then
417403
@@ -686,6 +672,10 @@
686672 Exit Sub
687673 End If
688674
675+ '' コードゼロサプレス処理
676+ Me.txtM130_CODE1.Text = Me.CodeZeroSup(MLApp.Const.KubunMGCode.CodeZeroSup.MasterKey.M130,
677+ Me.txtM130_CODE1.Text)
678+
689679 '' 既に登録済のコードの場合はエラーメッセージを表示して入力をキャンセルする
690680 Dim dtM130 As New MLApp.DataModel.M1_TRNDataSet.M130_FDataTable
691681 Dim sWHR As String = String.Empty
--- trunk/MLApp.TRN8000/TRN8220.Designer.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8220.Designer.vb (revision 59)
@@ -22,24 +22,7 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25- Me.dgvAMK8220S1 = New ML.Controls.uc6DataGridView()
26- Me.M1_TRNDataSet = New MLApp.DataModel.M1_TRNDataSet()
27- Me.Uc6Label1 = New ML.Controls.uc6Label()
28- Me.txtFurigana = New ML.Controls.uc6TextBox()
29- Me.Uc6GroupBox1 = New ML.Controls.uc6GroupBox()
30- Me.tbAMK8220S1 = New System.Windows.Forms.TabControl()
31- Me.TabPage1 = New System.Windows.Forms.TabPage()
32- Me.txtM140_BIKO1 = New ML.Controls.uc6TextBox()
33- Me.Uc6Label8 = New ML.Controls.uc6Label()
34- Me.txtM140_FURIGANA1 = New ML.Controls.uc6TextBox()
35- Me.Uc6Label2 = New ML.Controls.uc6Label()
36- Me.Uc6Label9 = New ML.Controls.uc6Label()
37- Me.txtM140_CODE1 = New ML.Controls.uc6TextBox()
38- Me.lblDispMode = New ML.Controls.uc6Label()
39- Me.Uc6Label4 = New ML.Controls.uc6Label()
40- Me.txtM140_NAME1 = New ML.Controls.uc6TextBox()
41- Me.Uc6GroupBox2 = New ML.Controls.uc6GroupBox()
42- Me.ckDelMaster = New ML.Controls.uc6CheckBox()
25+ Me.dgvTRN8220S1 = New ML.Controls.uc6DataGridView()
4326 Me.M140_CODE1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
4427 Me.M140_NAME1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
4528 Me.M140_FURIGANA1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -127,8 +110,26 @@
127110 Me.M140_BIKO1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
128111 Me.M140_ORDER1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
129112 Me.M140UPD1DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
113+ Me.M1_TRNDataSet = New MLApp.DataModel.M1_TRNDataSet()
114+ Me.Uc6Label1 = New ML.Controls.uc6Label()
115+ Me.txtFurigana = New ML.Controls.uc6TextBox()
116+ Me.Uc6GroupBox1 = New ML.Controls.uc6GroupBox()
117+ Me.tbAMK8220S1 = New System.Windows.Forms.TabControl()
118+ Me.TabPage1 = New System.Windows.Forms.TabPage()
119+ Me.txtM140_BIKO1 = New ML.Controls.uc6TextBox()
120+ Me.Uc6Label8 = New ML.Controls.uc6Label()
121+ Me.txtM140_FURIGANA1 = New ML.Controls.uc6TextBox()
122+ Me.Uc6Label2 = New ML.Controls.uc6Label()
123+ Me.Uc6Label9 = New ML.Controls.uc6Label()
124+ Me.txtM140_CODE1 = New ML.Controls.uc6TextBox()
125+ Me.lblDispMode = New ML.Controls.uc6Label()
126+ Me.Uc6Label4 = New ML.Controls.uc6Label()
127+ Me.txtM140_NAME1 = New ML.Controls.uc6TextBox()
128+ Me.Uc6GroupBox2 = New ML.Controls.uc6GroupBox()
129+ Me.ckDelMaster = New ML.Controls.uc6CheckBox()
130130 Me.MenuBtnPanel.SuspendLayout()
131- CType(Me.dgvAMK8220S1, System.ComponentModel.ISupportInitialize).BeginInit()
131+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
132+ CType(Me.dgvTRN8220S1, System.ComponentModel.ISupportInitialize).BeginInit()
132133 CType(Me.M1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
133134 Me.Uc6GroupBox1.SuspendLayout()
134135 Me.tbAMK8220S1.SuspendLayout()
@@ -191,230 +192,33 @@
191192 Me.cmdF12.Enabled = True
192193 Me.cmdF12.Text = "終了"
193194 '
194- 'dgvAMK8220S1
195+ 'dgvTRN8220S1
195196 '
196- Me.dgvAMK8220S1.AllowUserToAddRows = False
197- Me.dgvAMK8220S1.AllowUserToDeleteRows = False
198- Me.dgvAMK8220S1.AllowUserToResizeRows = False
199- Me.dgvAMK8220S1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
197+ Me.dgvTRN8220S1.AllowUserToAddRows = False
198+ Me.dgvTRN8220S1.AllowUserToDeleteRows = False
199+ Me.dgvTRN8220S1.AllowUserToResizeRows = False
200+ Me.dgvTRN8220S1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
200201 Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
201- Me.dgvAMK8220S1.AutoGenerateColumns = False
202- Me.dgvAMK8220S1.ColumnHeaderBorderStyle = ML.Controls.uc6DataGridViewBase.HeaderCellBorderStyle.SingleLine
203- Me.dgvAMK8220S1.ColumnHeaderRowCount = 1
204- Me.dgvAMK8220S1.ColumnHeaderRowHeight = 30
205- Me.dgvAMK8220S1.ColumnHeadersHeight = 32
206- Me.dgvAMK8220S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.M140_CODE1, Me.M140_NAME1, Me.M140_FURIGANA1, Me.M140CODE1DataGridViewTextBoxColumn, Me.M140CODE2DataGridViewTextBoxColumn, Me.M140M110CD1DataGridViewTextBoxColumn, Me.M140TANTOU1DataGridViewTextBoxColumn, Me.M140NAME1DataGridViewTextBoxColumn, Me.M140NAME2DataGridViewTextBoxColumn, Me.M140FURIGANA1DataGridViewTextBoxColumn, Me.M140UBIN1DataGridViewTextBoxColumn, Me.M140JUSHO1DataGridViewTextBoxColumn, Me.M140JUSHO2DataGridViewTextBoxColumn, Me.M140TEL1DataGridViewTextBoxColumn, Me.M140FAX1DataGridViewTextBoxColumn, Me.M140SIME11DataGridViewTextBoxColumn, Me.M140SIME12DataGridViewTextBoxColumn, Me.M140SIME13DataGridViewTextBoxColumn, Me.M140SMDT1DataGridViewTextBoxColumn, Me.M140SIME21DataGridViewTextBoxColumn, Me.M140SIME22DataGridViewTextBoxColumn, Me.M140SIME23DataGridViewTextBoxColumn, Me.M140SMDT2DataGridViewTextBoxColumn, Me.M140SIME31DataGridViewTextBoxColumn, Me.M140SIME32DataGridViewTextBoxColumn, Me.M140SIME33DataGridViewTextBoxColumn, Me.M140MM11DataGridViewTextBoxColumn, Me.M140MM12DataGridViewTextBoxColumn, Me.M140MM13DataGridViewTextBoxColumn, Me.M140MM21DataGridViewTextBoxColumn, Me.M140MM22DataGridViewTextBoxColumn, Me.M140MM23DataGridViewTextBoxColumn, Me.M140MM31DataGridViewTextBoxColumn, Me.M140MM32DataGridViewTextBoxColumn, Me.M140MM33DataGridViewTextBoxColumn, Me.M140DD11DataGridViewTextBoxColumn, Me.M140DD12DataGridViewTextBoxColumn, Me.M140DD13DataGridViewTextBoxColumn, Me.M140DD21DataGridViewTextBoxColumn, Me.M140DD22DataGridViewTextBoxColumn, Me.M140DD23DataGridViewTextBoxColumn, Me.M140DD31DataGridViewTextBoxColumn, Me.M140DD32DataGridViewTextBoxColumn, Me.M140DD33DataGridViewTextBoxColumn, Me.M140SBKB11DataGridViewTextBoxColumn, Me.M140SBKB12DataGridViewTextBoxColumn, Me.M140SBDD11DataGridViewTextBoxColumn, Me.M140SBDD12DataGridViewTextBoxColumn, Me.M140SBKG1DataGridViewTextBoxColumn, Me.M140KUBN11DataGridViewTextBoxColumn, Me.M140KUBN12DataGridViewTextBoxColumn, Me.M140KUBN13DataGridViewTextBoxColumn, Me.M140KUBN14DataGridViewTextBoxColumn, Me.M140KUBN15DataGridViewTextBoxColumn, Me.M140KUBN16DataGridViewTextBoxColumn, Me.M140KUBN17DataGridViewTextBoxColumn, Me.M140KUBN18DataGridViewTextBoxColumn, Me.M140KUBN19DataGridViewTextBoxColumn, Me.M140KUBN21DataGridViewTextBoxColumn, Me.M140KUBN31DataGridViewTextBoxColumn, Me.M140KUBN32DataGridViewTextBoxColumn, Me.M140KUBN33DataGridViewTextBoxColumn, Me.M140_KUBN91, Me.M140DNAME1DataGridViewTextBoxColumn, Me.M140DFURI1DataGridViewTextBoxColumn, Me.M140DYAKU1DataGridViewTextBoxColumn, Me.M140DBIRTH1DataGridViewTextBoxColumn, Me.M140DJUSHO1DataGridViewTextBoxColumn, Me.M140DJUSHO2DataGridViewTextBoxColumn, Me.M140RNAME1DataGridViewTextBoxColumn, Me.M140RFURI1DataGridViewTextBoxColumn, Me.M140RBIRTH1DataGridViewTextBoxColumn, Me.M140RJUSHO1DataGridViewTextBoxColumn, Me.M140RJUSHO2DataGridViewTextBoxColumn, Me.M140RZOKU1DataGridViewTextBoxColumn, Me.M140JSU1DataGridViewTextBoxColumn, Me.M140JSUM1DataGridViewTextBoxColumn, Me.M140JSUF1DataGridViewTextBoxColumn, Me.M140SHKING1DataGridViewTextBoxColumn, Me.M140MMKING1DataGridViewTextBoxColumn, Me.M140YYKING1DataGridViewTextBoxColumn, Me.M140YSKP1DataGridViewTextBoxColumn, Me.M140RBKG1DataGridViewTextBoxColumn, Me.M140RBRT1DataGridViewTextBoxColumn, Me.M140_BIKO1, Me.M140_ORDER1, Me.M140UPD1DataGridViewTextBoxColumn})
207- Me.dgvAMK8220S1.DataMember = "M140_F"
208- Me.dgvAMK8220S1.DataSource = Me.M1_TRNDataSet
209- Me.dgvAMK8220S1.Location = New System.Drawing.Point(12, 102)
210- Me.dgvAMK8220S1.MultiSelect = False
211- Me.dgvAMK8220S1.Name = "dgvAMK8220S1"
212- Me.dgvAMK8220S1.ReadOnly = True
213- Me.dgvAMK8220S1.RowTemplate.Height = 21
214- Me.dgvAMK8220S1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
215- Me.dgvAMK8220S1.ShowLineNo = True
216- Me.dgvAMK8220S1.Size = New System.Drawing.Size(845, 138)
217- Me.dgvAMK8220S1.StandardTab = True
218- Me.dgvAMK8220S1.TabIndex = 107
219- Me.dgvAMK8220S1.TabStop = False
202+ Me.dgvTRN8220S1.AutoGenerateColumns = False
203+ Me.dgvTRN8220S1.ColumnHeaderBorderStyle = ML.Controls.uc6DataGridViewBase.HeaderCellBorderStyle.SingleLine
204+ Me.dgvTRN8220S1.ColumnHeaderRowCount = 1
205+ Me.dgvTRN8220S1.ColumnHeaderRowHeight = 30
206+ Me.dgvTRN8220S1.ColumnHeadersHeight = 32
207+ Me.dgvTRN8220S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.M140_CODE1, Me.M140_NAME1, Me.M140_FURIGANA1, Me.M140CODE1DataGridViewTextBoxColumn, Me.M140CODE2DataGridViewTextBoxColumn, Me.M140M110CD1DataGridViewTextBoxColumn, Me.M140TANTOU1DataGridViewTextBoxColumn, Me.M140NAME1DataGridViewTextBoxColumn, Me.M140NAME2DataGridViewTextBoxColumn, Me.M140FURIGANA1DataGridViewTextBoxColumn, Me.M140UBIN1DataGridViewTextBoxColumn, Me.M140JUSHO1DataGridViewTextBoxColumn, Me.M140JUSHO2DataGridViewTextBoxColumn, Me.M140TEL1DataGridViewTextBoxColumn, Me.M140FAX1DataGridViewTextBoxColumn, Me.M140SIME11DataGridViewTextBoxColumn, Me.M140SIME12DataGridViewTextBoxColumn, Me.M140SIME13DataGridViewTextBoxColumn, Me.M140SMDT1DataGridViewTextBoxColumn, Me.M140SIME21DataGridViewTextBoxColumn, Me.M140SIME22DataGridViewTextBoxColumn, Me.M140SIME23DataGridViewTextBoxColumn, Me.M140SMDT2DataGridViewTextBoxColumn, Me.M140SIME31DataGridViewTextBoxColumn, Me.M140SIME32DataGridViewTextBoxColumn, Me.M140SIME33DataGridViewTextBoxColumn, Me.M140MM11DataGridViewTextBoxColumn, Me.M140MM12DataGridViewTextBoxColumn, Me.M140MM13DataGridViewTextBoxColumn, Me.M140MM21DataGridViewTextBoxColumn, Me.M140MM22DataGridViewTextBoxColumn, Me.M140MM23DataGridViewTextBoxColumn, Me.M140MM31DataGridViewTextBoxColumn, Me.M140MM32DataGridViewTextBoxColumn, Me.M140MM33DataGridViewTextBoxColumn, Me.M140DD11DataGridViewTextBoxColumn, Me.M140DD12DataGridViewTextBoxColumn, Me.M140DD13DataGridViewTextBoxColumn, Me.M140DD21DataGridViewTextBoxColumn, Me.M140DD22DataGridViewTextBoxColumn, Me.M140DD23DataGridViewTextBoxColumn, Me.M140DD31DataGridViewTextBoxColumn, Me.M140DD32DataGridViewTextBoxColumn, Me.M140DD33DataGridViewTextBoxColumn, Me.M140SBKB11DataGridViewTextBoxColumn, Me.M140SBKB12DataGridViewTextBoxColumn, Me.M140SBDD11DataGridViewTextBoxColumn, Me.M140SBDD12DataGridViewTextBoxColumn, Me.M140SBKG1DataGridViewTextBoxColumn, Me.M140KUBN11DataGridViewTextBoxColumn, Me.M140KUBN12DataGridViewTextBoxColumn, Me.M140KUBN13DataGridViewTextBoxColumn, Me.M140KUBN14DataGridViewTextBoxColumn, Me.M140KUBN15DataGridViewTextBoxColumn, Me.M140KUBN16DataGridViewTextBoxColumn, Me.M140KUBN17DataGridViewTextBoxColumn, Me.M140KUBN18DataGridViewTextBoxColumn, Me.M140KUBN19DataGridViewTextBoxColumn, Me.M140KUBN21DataGridViewTextBoxColumn, Me.M140KUBN31DataGridViewTextBoxColumn, Me.M140KUBN32DataGridViewTextBoxColumn, Me.M140KUBN33DataGridViewTextBoxColumn, Me.M140_KUBN91, Me.M140DNAME1DataGridViewTextBoxColumn, Me.M140DFURI1DataGridViewTextBoxColumn, Me.M140DYAKU1DataGridViewTextBoxColumn, Me.M140DBIRTH1DataGridViewTextBoxColumn, Me.M140DJUSHO1DataGridViewTextBoxColumn, Me.M140DJUSHO2DataGridViewTextBoxColumn, Me.M140RNAME1DataGridViewTextBoxColumn, Me.M140RFURI1DataGridViewTextBoxColumn, Me.M140RBIRTH1DataGridViewTextBoxColumn, Me.M140RJUSHO1DataGridViewTextBoxColumn, Me.M140RJUSHO2DataGridViewTextBoxColumn, Me.M140RZOKU1DataGridViewTextBoxColumn, Me.M140JSU1DataGridViewTextBoxColumn, Me.M140JSUM1DataGridViewTextBoxColumn, Me.M140JSUF1DataGridViewTextBoxColumn, Me.M140SHKING1DataGridViewTextBoxColumn, Me.M140MMKING1DataGridViewTextBoxColumn, Me.M140YYKING1DataGridViewTextBoxColumn, Me.M140YSKP1DataGridViewTextBoxColumn, Me.M140RBKG1DataGridViewTextBoxColumn, Me.M140RBRT1DataGridViewTextBoxColumn, Me.M140_BIKO1, Me.M140_ORDER1, Me.M140UPD1DataGridViewTextBoxColumn})
208+ Me.dgvTRN8220S1.DataMember = "M140_F"
209+ Me.dgvTRN8220S1.DataSource = Me.M1_TRNDataSet
210+ Me.dgvTRN8220S1.Location = New System.Drawing.Point(12, 102)
211+ Me.dgvTRN8220S1.MultiSelect = False
212+ Me.dgvTRN8220S1.Name = "dgvTRN8220S1"
213+ Me.dgvTRN8220S1.ReadOnly = True
214+ Me.dgvTRN8220S1.RowTemplate.Height = 21
215+ Me.dgvTRN8220S1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
216+ Me.dgvTRN8220S1.ShowLineNo = True
217+ Me.dgvTRN8220S1.Size = New System.Drawing.Size(845, 138)
218+ Me.dgvTRN8220S1.StandardTab = True
219+ Me.dgvTRN8220S1.TabIndex = 107
220+ Me.dgvTRN8220S1.TabStop = False
220221 '
221- 'M1_TRNDataSet
222- '
223- Me.M1_TRNDataSet.DataSetName = "M1_TRNDataSet"
224- Me.M1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
225- '
226- 'Uc6Label1
227- '
228- Me.Uc6Label1.BackColor = System.Drawing.Color.Navy
229- Me.Uc6Label1.ForeColor = System.Drawing.Color.White
230- Me.Uc6Label1.Location = New System.Drawing.Point(7, 18)
231- Me.Uc6Label1.Name = "Uc6Label1"
232- Me.Uc6Label1.Size = New System.Drawing.Size(94, 20)
233- Me.Uc6Label1.TabIndex = 110
234- Me.Uc6Label1.Text = "フリガナ"
235- Me.Uc6Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
236- '
237- 'txtFurigana
238- '
239- Me.txtFurigana.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
240- Me.txtFurigana.ImeMode = System.Windows.Forms.ImeMode.KatakanaHalf
241- Me.txtFurigana.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
242- Me.txtFurigana.Location = New System.Drawing.Point(104, 18)
243- Me.txtFurigana.MaxLength = 30
244- Me.txtFurigana.Name = "txtFurigana"
245- Me.txtFurigana.PermitChars = New Char(-1) {}
246- Me.txtFurigana.Size = New System.Drawing.Size(169, 20)
247- Me.txtFurigana.TabIndex = 10
248- '
249- 'Uc6GroupBox1
250- '
251- Me.Uc6GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
252- Me.Uc6GroupBox1.Controls.Add(Me.tbAMK8220S1)
253- Me.Uc6GroupBox1.Location = New System.Drawing.Point(12, 246)
254- Me.Uc6GroupBox1.Name = "Uc6GroupBox1"
255- Me.Uc6GroupBox1.SelectedValue = 0
256- Me.Uc6GroupBox1.Size = New System.Drawing.Size(845, 293)
257- Me.Uc6GroupBox1.TabIndex = 112
258- Me.Uc6GroupBox1.TabStop = False
259- Me.Uc6GroupBox1.Text = "入力"
260- '
261- 'tbAMK8220S1
262- '
263- Me.tbAMK8220S1.Controls.Add(Me.TabPage1)
264- Me.tbAMK8220S1.Location = New System.Drawing.Point(16, 18)
265- Me.tbAMK8220S1.Name = "tbAMK8220S1"
266- Me.tbAMK8220S1.SelectedIndex = 0
267- Me.tbAMK8220S1.Size = New System.Drawing.Size(819, 269)
268- Me.tbAMK8220S1.TabIndex = 114
269- '
270- 'TabPage1
271- '
272- Me.TabPage1.Controls.Add(Me.txtM140_BIKO1)
273- Me.TabPage1.Controls.Add(Me.Uc6Label8)
274- Me.TabPage1.Controls.Add(Me.txtM140_FURIGANA1)
275- Me.TabPage1.Controls.Add(Me.Uc6Label2)
276- Me.TabPage1.Controls.Add(Me.Uc6Label9)
277- Me.TabPage1.Controls.Add(Me.txtM140_CODE1)
278- Me.TabPage1.Controls.Add(Me.lblDispMode)
279- Me.TabPage1.Controls.Add(Me.Uc6Label4)
280- Me.TabPage1.Controls.Add(Me.txtM140_NAME1)
281- Me.TabPage1.Location = New System.Drawing.Point(4, 22)
282- Me.TabPage1.Name = "TabPage1"
283- Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
284- Me.TabPage1.Size = New System.Drawing.Size(811, 243)
285- Me.TabPage1.TabIndex = 0
286- Me.TabPage1.Text = "基本情報"
287- Me.TabPage1.UseVisualStyleBackColor = True
288- '
289- 'txtM140_BIKO1
290- '
291- Me.txtM140_BIKO1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
292- Me.txtM140_BIKO1.ImeMode = System.Windows.Forms.ImeMode.Hiragana
293- Me.txtM140_BIKO1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
294- Me.txtM140_BIKO1.Location = New System.Drawing.Point(106, 69)
295- Me.txtM140_BIKO1.MaxLength = 200
296- Me.txtM140_BIKO1.Multiline = True
297- Me.txtM140_BIKO1.Name = "txtM140_BIKO1"
298- Me.txtM140_BIKO1.PermitChars = New Char(-1) {}
299- Me.txtM140_BIKO1.Size = New System.Drawing.Size(363, 129)
300- Me.txtM140_BIKO1.TabIndex = 170
301- '
302- 'Uc6Label8
303- '
304- Me.Uc6Label8.BackColor = System.Drawing.Color.Navy
305- Me.Uc6Label8.ForeColor = System.Drawing.Color.White
306- Me.Uc6Label8.Location = New System.Drawing.Point(6, 69)
307- Me.Uc6Label8.Name = "Uc6Label8"
308- Me.Uc6Label8.Size = New System.Drawing.Size(94, 20)
309- Me.Uc6Label8.TabIndex = 120
310- Me.Uc6Label8.Text = "備考"
311- Me.Uc6Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
312- '
313- 'txtM140_FURIGANA1
314- '
315- Me.txtM140_FURIGANA1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
316- Me.txtM140_FURIGANA1.ImeMode = System.Windows.Forms.ImeMode.KatakanaHalf
317- Me.txtM140_FURIGANA1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
318- Me.txtM140_FURIGANA1.Location = New System.Drawing.Point(106, 47)
319- Me.txtM140_FURIGANA1.MaxLength = 32
320- Me.txtM140_FURIGANA1.Name = "txtM140_FURIGANA1"
321- Me.txtM140_FURIGANA1.PermitChars = New Char(-1) {}
322- Me.txtM140_FURIGANA1.Size = New System.Drawing.Size(363, 20)
323- Me.txtM140_FURIGANA1.TabIndex = 140
324- '
325- 'Uc6Label2
326- '
327- Me.Uc6Label2.BackColor = System.Drawing.Color.Blue
328- Me.Uc6Label2.ForeColor = System.Drawing.Color.White
329- Me.Uc6Label2.Location = New System.Drawing.Point(6, 3)
330- Me.Uc6Label2.Name = "Uc6Label2"
331- Me.Uc6Label2.Size = New System.Drawing.Size(94, 20)
332- Me.Uc6Label2.TabIndex = 7
333- Me.Uc6Label2.Text = "コード"
334- Me.Uc6Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
335- '
336- 'Uc6Label9
337- '
338- Me.Uc6Label9.BackColor = System.Drawing.Color.Navy
339- Me.Uc6Label9.ForeColor = System.Drawing.Color.SpringGreen
340- Me.Uc6Label9.Location = New System.Drawing.Point(6, 47)
341- Me.Uc6Label9.Name = "Uc6Label9"
342- Me.Uc6Label9.Size = New System.Drawing.Size(94, 20)
343- Me.Uc6Label9.TabIndex = 123
344- Me.Uc6Label9.Text = "フリガナ"
345- Me.Uc6Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
346- '
347- 'txtM140_CODE1
348- '
349- Me.txtM140_CODE1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
350- Me.txtM140_CODE1.ImeMode = System.Windows.Forms.ImeMode.Off
351- Me.txtM140_CODE1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
352- Me.txtM140_CODE1.Location = New System.Drawing.Point(106, 3)
353- Me.txtM140_CODE1.MaxLength = 5
354- Me.txtM140_CODE1.Name = "txtM140_CODE1"
355- Me.txtM140_CODE1.PermitChars = New Char(-1) {}
356- Me.txtM140_CODE1.Size = New System.Drawing.Size(65, 20)
357- Me.txtM140_CODE1.TabIndex = 110
358- Me.txtM140_CODE1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
359- '
360- 'lblDispMode
361- '
362- Me.lblDispMode.BackColor = System.Drawing.Color.White
363- Me.lblDispMode.ForeColor = System.Drawing.Color.Black
364- Me.lblDispMode.Location = New System.Drawing.Point(174, 3)
365- Me.lblDispMode.Name = "lblDispMode"
366- Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
367- Me.lblDispMode.TabIndex = 114
368- Me.lblDispMode.Text = "画面モード"
369- Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
370- '
371- 'Uc6Label4
372- '
373- Me.Uc6Label4.BackColor = System.Drawing.Color.Navy
374- Me.Uc6Label4.ForeColor = System.Drawing.Color.SpringGreen
375- Me.Uc6Label4.Location = New System.Drawing.Point(6, 25)
376- Me.Uc6Label4.Name = "Uc6Label4"
377- Me.Uc6Label4.Size = New System.Drawing.Size(94, 20)
378- Me.Uc6Label4.TabIndex = 114
379- Me.Uc6Label4.Text = "仕入先名"
380- Me.Uc6Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
381- '
382- 'txtM140_NAME1
383- '
384- Me.txtM140_NAME1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
385- Me.txtM140_NAME1.ImeMode = System.Windows.Forms.ImeMode.Hiragana
386- Me.txtM140_NAME1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
387- Me.txtM140_NAME1.Location = New System.Drawing.Point(106, 25)
388- Me.txtM140_NAME1.MaxLength = 32
389- Me.txtM140_NAME1.Name = "txtM140_NAME1"
390- Me.txtM140_NAME1.PermitChars = New Char(-1) {}
391- Me.txtM140_NAME1.Size = New System.Drawing.Size(363, 20)
392- Me.txtM140_NAME1.TabIndex = 130
393- '
394- 'Uc6GroupBox2
395- '
396- Me.Uc6GroupBox2.Controls.Add(Me.ckDelMaster)
397- Me.Uc6GroupBox2.Controls.Add(Me.txtFurigana)
398- Me.Uc6GroupBox2.Controls.Add(Me.Uc6Label1)
399- Me.Uc6GroupBox2.Location = New System.Drawing.Point(12, 49)
400- Me.Uc6GroupBox2.Name = "Uc6GroupBox2"
401- Me.Uc6GroupBox2.SelectedValue = 0
402- Me.Uc6GroupBox2.Size = New System.Drawing.Size(845, 47)
403- Me.Uc6GroupBox2.TabIndex = 113
404- Me.Uc6GroupBox2.TabStop = False
405- Me.Uc6GroupBox2.Text = "検索"
406- '
407- 'ckDelMaster
408- '
409- Me.ckDelMaster.AutoSize = True
410- Me.ckDelMaster.ForeColor = System.Drawing.Color.Black
411- Me.ckDelMaster.Location = New System.Drawing.Point(656, 21)
412- Me.ckDelMaster.Name = "ckDelMaster"
413- Me.ckDelMaster.Size = New System.Drawing.Size(183, 16)
414- Me.ckDelMaster.TabIndex = 12
415- Me.ckDelMaster.Text = "削除済マスタを検索対象に含める"
416- Me.ckDelMaster.UseVisualStyleBackColor = True
417- '
418222 'M140_CODE1
419223 '
420224 Me.M140_CODE1.DataPropertyName = "M140_CODE1"
@@ -1111,6 +915,203 @@
1111915 Me.M140UPD1DataGridViewTextBoxColumn.ReadOnly = True
1112916 Me.M140UPD1DataGridViewTextBoxColumn.Visible = False
1113917 '
918+ 'M1_TRNDataSet
919+ '
920+ Me.M1_TRNDataSet.DataSetName = "M1_TRNDataSet"
921+ Me.M1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
922+ '
923+ 'Uc6Label1
924+ '
925+ Me.Uc6Label1.BackColor = System.Drawing.Color.Navy
926+ Me.Uc6Label1.ForeColor = System.Drawing.Color.White
927+ Me.Uc6Label1.Location = New System.Drawing.Point(7, 18)
928+ Me.Uc6Label1.Name = "Uc6Label1"
929+ Me.Uc6Label1.Size = New System.Drawing.Size(94, 20)
930+ Me.Uc6Label1.TabIndex = 110
931+ Me.Uc6Label1.Text = "フリガナ"
932+ Me.Uc6Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
933+ '
934+ 'txtFurigana
935+ '
936+ Me.txtFurigana.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
937+ Me.txtFurigana.ImeMode = System.Windows.Forms.ImeMode.KatakanaHalf
938+ Me.txtFurigana.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
939+ Me.txtFurigana.Location = New System.Drawing.Point(104, 18)
940+ Me.txtFurigana.MaxLength = 30
941+ Me.txtFurigana.Name = "txtFurigana"
942+ Me.txtFurigana.PermitChars = New Char(-1) {}
943+ Me.txtFurigana.Size = New System.Drawing.Size(169, 20)
944+ Me.txtFurigana.TabIndex = 10
945+ '
946+ 'Uc6GroupBox1
947+ '
948+ Me.Uc6GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
949+ Me.Uc6GroupBox1.Controls.Add(Me.tbAMK8220S1)
950+ Me.Uc6GroupBox1.Location = New System.Drawing.Point(12, 246)
951+ Me.Uc6GroupBox1.Name = "Uc6GroupBox1"
952+ Me.Uc6GroupBox1.SelectedValue = 0
953+ Me.Uc6GroupBox1.Size = New System.Drawing.Size(845, 293)
954+ Me.Uc6GroupBox1.TabIndex = 112
955+ Me.Uc6GroupBox1.TabStop = False
956+ Me.Uc6GroupBox1.Text = "入力"
957+ '
958+ 'tbAMK8220S1
959+ '
960+ Me.tbAMK8220S1.Controls.Add(Me.TabPage1)
961+ Me.tbAMK8220S1.Location = New System.Drawing.Point(16, 18)
962+ Me.tbAMK8220S1.Name = "tbAMK8220S1"
963+ Me.tbAMK8220S1.SelectedIndex = 0
964+ Me.tbAMK8220S1.Size = New System.Drawing.Size(819, 269)
965+ Me.tbAMK8220S1.TabIndex = 114
966+ '
967+ 'TabPage1
968+ '
969+ Me.TabPage1.Controls.Add(Me.txtM140_BIKO1)
970+ Me.TabPage1.Controls.Add(Me.Uc6Label8)
971+ Me.TabPage1.Controls.Add(Me.txtM140_FURIGANA1)
972+ Me.TabPage1.Controls.Add(Me.Uc6Label2)
973+ Me.TabPage1.Controls.Add(Me.Uc6Label9)
974+ Me.TabPage1.Controls.Add(Me.txtM140_CODE1)
975+ Me.TabPage1.Controls.Add(Me.lblDispMode)
976+ Me.TabPage1.Controls.Add(Me.Uc6Label4)
977+ Me.TabPage1.Controls.Add(Me.txtM140_NAME1)
978+ Me.TabPage1.Location = New System.Drawing.Point(4, 22)
979+ Me.TabPage1.Name = "TabPage1"
980+ Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
981+ Me.TabPage1.Size = New System.Drawing.Size(811, 243)
982+ Me.TabPage1.TabIndex = 0
983+ Me.TabPage1.Text = "基本情報"
984+ Me.TabPage1.UseVisualStyleBackColor = True
985+ '
986+ 'txtM140_BIKO1
987+ '
988+ Me.txtM140_BIKO1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
989+ Me.txtM140_BIKO1.ImeMode = System.Windows.Forms.ImeMode.Hiragana
990+ Me.txtM140_BIKO1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
991+ Me.txtM140_BIKO1.Location = New System.Drawing.Point(106, 69)
992+ Me.txtM140_BIKO1.MaxLength = 200
993+ Me.txtM140_BIKO1.Multiline = True
994+ Me.txtM140_BIKO1.Name = "txtM140_BIKO1"
995+ Me.txtM140_BIKO1.PermitChars = New Char(-1) {}
996+ Me.txtM140_BIKO1.Size = New System.Drawing.Size(363, 129)
997+ Me.txtM140_BIKO1.TabIndex = 170
998+ '
999+ 'Uc6Label8
1000+ '
1001+ Me.Uc6Label8.BackColor = System.Drawing.Color.Navy
1002+ Me.Uc6Label8.ForeColor = System.Drawing.Color.White
1003+ Me.Uc6Label8.Location = New System.Drawing.Point(6, 69)
1004+ Me.Uc6Label8.Name = "Uc6Label8"
1005+ Me.Uc6Label8.Size = New System.Drawing.Size(94, 20)
1006+ Me.Uc6Label8.TabIndex = 120
1007+ Me.Uc6Label8.Text = "備考"
1008+ Me.Uc6Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
1009+ '
1010+ 'txtM140_FURIGANA1
1011+ '
1012+ Me.txtM140_FURIGANA1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
1013+ Me.txtM140_FURIGANA1.ImeMode = System.Windows.Forms.ImeMode.KatakanaHalf
1014+ Me.txtM140_FURIGANA1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
1015+ Me.txtM140_FURIGANA1.Location = New System.Drawing.Point(106, 47)
1016+ Me.txtM140_FURIGANA1.MaxLength = 32
1017+ Me.txtM140_FURIGANA1.Name = "txtM140_FURIGANA1"
1018+ Me.txtM140_FURIGANA1.PermitChars = New Char(-1) {}
1019+ Me.txtM140_FURIGANA1.Size = New System.Drawing.Size(363, 20)
1020+ Me.txtM140_FURIGANA1.TabIndex = 140
1021+ '
1022+ 'Uc6Label2
1023+ '
1024+ Me.Uc6Label2.BackColor = System.Drawing.Color.Blue
1025+ Me.Uc6Label2.ForeColor = System.Drawing.Color.White
1026+ Me.Uc6Label2.Location = New System.Drawing.Point(6, 3)
1027+ Me.Uc6Label2.Name = "Uc6Label2"
1028+ Me.Uc6Label2.Size = New System.Drawing.Size(94, 20)
1029+ Me.Uc6Label2.TabIndex = 7
1030+ Me.Uc6Label2.Text = "コード"
1031+ Me.Uc6Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
1032+ '
1033+ 'Uc6Label9
1034+ '
1035+ Me.Uc6Label9.BackColor = System.Drawing.Color.Navy
1036+ Me.Uc6Label9.ForeColor = System.Drawing.Color.SpringGreen
1037+ Me.Uc6Label9.Location = New System.Drawing.Point(6, 47)
1038+ Me.Uc6Label9.Name = "Uc6Label9"
1039+ Me.Uc6Label9.Size = New System.Drawing.Size(94, 20)
1040+ Me.Uc6Label9.TabIndex = 123
1041+ Me.Uc6Label9.Text = "フリガナ"
1042+ Me.Uc6Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
1043+ '
1044+ 'txtM140_CODE1
1045+ '
1046+ Me.txtM140_CODE1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
1047+ Me.txtM140_CODE1.ImeMode = System.Windows.Forms.ImeMode.Off
1048+ Me.txtM140_CODE1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
1049+ Me.txtM140_CODE1.Location = New System.Drawing.Point(106, 3)
1050+ Me.txtM140_CODE1.MaxLength = 5
1051+ Me.txtM140_CODE1.Name = "txtM140_CODE1"
1052+ Me.txtM140_CODE1.PermitChars = New Char(-1) {}
1053+ Me.txtM140_CODE1.Size = New System.Drawing.Size(65, 20)
1054+ Me.txtM140_CODE1.TabIndex = 110
1055+ Me.txtM140_CODE1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
1056+ '
1057+ 'lblDispMode
1058+ '
1059+ Me.lblDispMode.BackColor = System.Drawing.Color.White
1060+ Me.lblDispMode.ForeColor = System.Drawing.Color.Black
1061+ Me.lblDispMode.Location = New System.Drawing.Point(174, 3)
1062+ Me.lblDispMode.Name = "lblDispMode"
1063+ Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
1064+ Me.lblDispMode.TabIndex = 114
1065+ Me.lblDispMode.Text = "画面モード"
1066+ Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
1067+ '
1068+ 'Uc6Label4
1069+ '
1070+ Me.Uc6Label4.BackColor = System.Drawing.Color.Navy
1071+ Me.Uc6Label4.ForeColor = System.Drawing.Color.SpringGreen
1072+ Me.Uc6Label4.Location = New System.Drawing.Point(6, 25)
1073+ Me.Uc6Label4.Name = "Uc6Label4"
1074+ Me.Uc6Label4.Size = New System.Drawing.Size(94, 20)
1075+ Me.Uc6Label4.TabIndex = 114
1076+ Me.Uc6Label4.Text = "仕入先名"
1077+ Me.Uc6Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
1078+ '
1079+ 'txtM140_NAME1
1080+ '
1081+ Me.txtM140_NAME1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
1082+ Me.txtM140_NAME1.ImeMode = System.Windows.Forms.ImeMode.Hiragana
1083+ Me.txtM140_NAME1.LengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
1084+ Me.txtM140_NAME1.Location = New System.Drawing.Point(106, 25)
1085+ Me.txtM140_NAME1.MaxLength = 32
1086+ Me.txtM140_NAME1.Name = "txtM140_NAME1"
1087+ Me.txtM140_NAME1.PermitChars = New Char(-1) {}
1088+ Me.txtM140_NAME1.Size = New System.Drawing.Size(363, 20)
1089+ Me.txtM140_NAME1.TabIndex = 130
1090+ '
1091+ 'Uc6GroupBox2
1092+ '
1093+ Me.Uc6GroupBox2.Controls.Add(Me.ckDelMaster)
1094+ Me.Uc6GroupBox2.Controls.Add(Me.txtFurigana)
1095+ Me.Uc6GroupBox2.Controls.Add(Me.Uc6Label1)
1096+ Me.Uc6GroupBox2.Location = New System.Drawing.Point(12, 49)
1097+ Me.Uc6GroupBox2.Name = "Uc6GroupBox2"
1098+ Me.Uc6GroupBox2.SelectedValue = 0
1099+ Me.Uc6GroupBox2.Size = New System.Drawing.Size(845, 47)
1100+ Me.Uc6GroupBox2.TabIndex = 113
1101+ Me.Uc6GroupBox2.TabStop = False
1102+ Me.Uc6GroupBox2.Text = "検索"
1103+ '
1104+ 'ckDelMaster
1105+ '
1106+ Me.ckDelMaster.AutoSize = True
1107+ Me.ckDelMaster.ForeColor = System.Drawing.Color.Black
1108+ Me.ckDelMaster.Location = New System.Drawing.Point(656, 21)
1109+ Me.ckDelMaster.Name = "ckDelMaster"
1110+ Me.ckDelMaster.Size = New System.Drawing.Size(183, 16)
1111+ Me.ckDelMaster.TabIndex = 12
1112+ Me.ckDelMaster.Text = "削除済マスタを検索対象に含める"
1113+ Me.ckDelMaster.UseVisualStyleBackColor = True
1114+ '
11141115 'TRN8220
11151116 '
11161117 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -1119,15 +1120,16 @@
11191120 Me.ControlBox = True
11201121 Me.Controls.Add(Me.Uc6GroupBox2)
11211122 Me.Controls.Add(Me.Uc6GroupBox1)
1122- Me.Controls.Add(Me.dgvAMK8220S1)
1123+ Me.Controls.Add(Me.dgvTRN8220S1)
11231124 Me.Name = "TRN8220"
11241125 Me.Text = "TRN8220"
11251126 Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
1126- Me.Controls.SetChildIndex(Me.dgvAMK8220S1, 0)
1127+ Me.Controls.SetChildIndex(Me.dgvTRN8220S1, 0)
11271128 Me.Controls.SetChildIndex(Me.Uc6GroupBox1, 0)
11281129 Me.Controls.SetChildIndex(Me.Uc6GroupBox2, 0)
11291130 Me.MenuBtnPanel.ResumeLayout(False)
1130- CType(Me.dgvAMK8220S1, System.ComponentModel.ISupportInitialize).EndInit()
1131+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
1132+ CType(Me.dgvTRN8220S1, System.ComponentModel.ISupportInitialize).EndInit()
11311133 CType(Me.M1_TRNDataSet, System.ComponentModel.ISupportInitialize).EndInit()
11321134 Me.Uc6GroupBox1.ResumeLayout(False)
11331135 Me.tbAMK8220S1.ResumeLayout(False)
@@ -1151,7 +1153,7 @@
11511153 Friend WithEvents Uc6Label8 As ML.Controls.uc6Label
11521154 Friend WithEvents M1_TRNDataSet As MLApp.DataModel.M1_TRNDataSet
11531155 Friend WithEvents lblDispMode As ML.Controls.uc6Label
1154- Friend WithEvents dgvAMK8220S1 As ML.Controls.uc6DataGridView
1156+ Friend WithEvents dgvTRN8220S1 As ML.Controls.uc6DataGridView
11551157 Friend WithEvents txtM140_FURIGANA1 As ML.Controls.uc6TextBox
11561158 Friend WithEvents Uc6Label9 As ML.Controls.uc6Label
11571159 Friend WithEvents ckDelMaster As ML.Controls.uc6CheckBox
--- trunk/MLApp.TRN8000/TRN8220.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8220.vb (revision 59)
@@ -16,20 +16,12 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 #End Region
2820
2921 #Region " イベント"
3022
3123 ''' <summary>フォームロード時イベント</summary>
32- Private Sub AMK8220_Load(sender As Object, e As System.EventArgs) Handles Me.Load
24+ Private Sub TRN8220_Load(sender As Object, e As System.EventArgs) Handles Me.Load
3325
3426 '' 元に戻すボタン押下処理
3527 Me.CancelProc()
@@ -40,7 +32,7 @@
4032 End Sub
4133
4234 ''' <summary>フォーム表示時イベント</summary>
43- Private Sub AMK8220_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
35+ Private Sub TRN8220_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
4436
4537 '' 初期フォーカスのセット
4638 Me.txtFurigana.Focus()
@@ -183,7 +175,7 @@
183175 Me.txtM140_CODE1.Focus()
184176
185177 '' 検索結果DataGridViewを非活性とする
186- Me.dgvAMK8220S1.Enabled = False
178+ Me.dgvTRN8220S1.Enabled = False
187179
188180 '' ボタンコントロールの使用可否設定
189181 Me.ChangeButtonEnabled_NewMode()
@@ -199,7 +191,7 @@
199191 '' 外注先マスタ読込
200192 Me.SearchM140()
201193
202- If Me.dgvAMK8220S1.RowCount > 0 Then
194+ If Me.dgvTRN8220S1.RowCount > 0 Then
203195
204196 '' 選択行の内容を画面上に表示する
205197 Me.SelectedDataGridView(0, False)
@@ -212,21 +204,21 @@
212204 Protected Overrides Sub cmdF10_Click(sender As Object, e As System.EventArgs)
213205
214206 '' 検索結果が0件の場合は処理を抜ける
215- If Me.dgvAMK8220S1.Rows.Count = 0 Then Exit Sub
207+ If Me.dgvTRN8220S1.Rows.Count = 0 Then Exit Sub
216208
217209 '' 検索結果をExcel出力する
218- Me.dgvAMK8220S1.SaveExcel()
210+ Me.dgvTRN8220S1.SaveExcel()
219211
220212 End Sub
221213
222214 ''' <summary>検索結果:CellFormattingイベント</summary>
223- Private Sub dgvAMK8220S1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvAMK8220S1.CellFormatting
215+ Private Sub dgvNDK8220S1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvTRN8220S1.CellFormatting
224216
225217 '' 使用区分の値を取得
226- Dim dgvCellM140KB91 As DataGridViewCell = Me.dgvAMK8220S1.Rows(e.RowIndex).Cells("M140_KUBN91")
218+ Dim dgvCellM140KB91 As DataGridViewCell = Me.dgvTRN8220S1.Rows(e.RowIndex).Cells("M140_KUBN91")
227219
228220 '' 背景色を変更するセルを取得
229- Dim dgvCell As DataGridViewCell = Me.dgvAMK8220S1.Rows(e.RowIndex).Cells(e.ColumnIndex)
221+ Dim dgvCell As DataGridViewCell = Me.dgvTRN8220S1.Rows(e.RowIndex).Cells(e.ColumnIndex)
230222
231223 '' 使用区分判定
232224 If dgvCellM140KB91.Value = ML.Common.Const.En.enUseType.UnUse Then
@@ -239,12 +231,12 @@
239231 End Sub
240232
241233 ''' <summary>検索結果:行選択時イベント</summary>
242- Private Sub dgvAMK8220S1_RowEnter(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvAMK8220S1.RowEnter
234+ Private Sub dgvNDK8220S1_RowEnter(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvTRN8220S1.RowEnter
243235
244236 If e.RowIndex = -1 Then Exit Sub
245237
246238 '' DataGridView選択時処理
247- Me.SelectedDataGridView(e.RowIndex, Me.dgvAMK8220S1.Focused)
239+ Me.SelectedDataGridView(e.RowIndex, Me.dgvTRN8220S1.Focused)
248240
249241 End Sub
250242
@@ -305,7 +297,7 @@
305297 Me.ChangeButtonEnabled_Init()
306298
307299 '' 検索結果DataGridViewを活性化する
308- Me.dgvAMK8220S1.Enabled = True
300+ Me.dgvTRN8220S1.Enabled = True
309301
310302 '' 画面モード初期化
311303 Me.lblDispMode.Text = stcDispMode.DispNone
@@ -421,10 +413,10 @@
421413 Private Sub SetSelectedData(iRowIdx As Integer)
422414
423415 '' 選択行の値を画面上に表示する
424- Me.txtM140_CODE1.Text = Me.dgvAMK8220S1.GetCellValue(iRowIdx, "M140_CODE1")
425- Me.txtM140_NAME1.Text = Me.dgvAMK8220S1.GetCellValue(iRowIdx, "M140_NAME1")
426- Me.txtM140_FURIGANA1.Text = Me.dgvAMK8220S1.GetCellValue(iRowIdx, "M140_FURIGANA1").ToString
427- Me.txtM140_BIKO1.Text = Me.dgvAMK8220S1.GetCellValue(iRowIdx, "M140_BIKO1").ToString
416+ Me.txtM140_CODE1.Text = Me.dgvTRN8220S1.GetCellValue(iRowIdx, "M140_CODE1")
417+ Me.txtM140_NAME1.Text = Me.dgvTRN8220S1.GetCellValue(iRowIdx, "M140_NAME1")
418+ Me.txtM140_FURIGANA1.Text = Me.dgvTRN8220S1.GetCellValue(iRowIdx, "M140_FURIGANA1").ToString
419+ Me.txtM140_BIKO1.Text = Me.dgvTRN8220S1.GetCellValue(iRowIdx, "M140_BIKO1").ToString
428420
429421 End Sub
430422
@@ -462,7 +454,7 @@
462454 .cmdF12.Enabled = False
463455
464456 '' 検索結果を非活性にする
465- Me.dgvAMK8220S1.Enabled = False
457+ Me.dgvTRN8220S1.Enabled = False
466458
467459 End With
468460
--- trunk/MLApp.TRN8000/TRN8921.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8921.vb (revision 59)
@@ -16,14 +16,6 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 #End Region
2820
2921 #Region " イベント"
--- trunk/MLApp.TRN8000/TRN8931.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8931.vb (revision 59)
@@ -16,14 +16,6 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 #End Region
2820
2921 #Region " イベント"
--- trunk/MLApp.TRN8000/TRN8933.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8933.vb (revision 59)
@@ -17,14 +17,6 @@
1717
1818 #Region " メンバ変数"
1919
20- ''' <summary>ログオン情報クラス</summary>
21- Private m_LInfo As New MLApp.TRNLib.LoginInfo
22-
23- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
24- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
25- Drawing.Color.LightGray,
26- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
27-
2820 #End Region
2921
3022 #Region " イベント"
--- trunk/MLApp.TRN8000/TRN8210.Designer.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8210.Designer.vb (revision 59)
@@ -1258,8 +1258,6 @@
12581258 Me.PerformLayout()
12591259
12601260 End Sub
1261- Friend WithEvents M1_TRNDataSet As MLApp.DataModel.M1_TRNDataSet
1262- Friend WithEvents dgvTRN8210S1 As ML.Controls.uc6DataGridView
12631261 Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
12641262 Friend WithEvents M130_CODE1 As System.Windows.Forms.DataGridViewTextBoxColumn
12651263 Friend WithEvents M130_NAME1 As System.Windows.Forms.DataGridViewTextBoxColumn
@@ -1372,4 +1370,6 @@
13721370 Protected WithEvents tbAMK8210S1 As System.Windows.Forms.TabControl
13731371 Protected WithEvents Uc6Label5 As ML.Controls.uc6Label
13741372 Protected WithEvents cmbM130_M120CD2 As ML.Controls.uc6ComboBox
1373+ Protected WithEvents dgvTRN8210S1 As ML.Controls.uc6DataGridView
1374+ Protected WithEvents M1_TRNDataSet As MLApp.DataModel.M1_TRNDataSet
13751375 End Class
--- trunk/MLApp.TRN8000/TRN8110.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8110.vb (revision 59)
@@ -16,14 +16,6 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 #End Region
2820
2921 #Region " イベント"
@@ -33,6 +25,8 @@
3325
3426 Try
3527
28+ If Me.DesignMode = True Then Exit Sub
29+
3630 '' 元に戻すボタン押下処理
3731 Me.CancelProc()
3832
--- trunk/MLApp.TRN8000/TRN8910.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8910.vb (revision 59)
@@ -16,14 +16,6 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 #End Region
2820
2921 #Region " イベント"
@@ -31,6 +23,8 @@
3123 ''' <summary>フォームロード時イベント</summary>
3224 Private Sub TRN8910_Load(sender As Object, e As System.EventArgs) Handles Me.Load
3325
26+ If Me.DesignMode = True Then Exit Sub
27+
3428 '' 元に戻すボタン押下処理
3529 Me.CancelProc()
3630
--- trunk/MLApp.TRN8000/TRN8920.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8920.vb (revision 59)
@@ -16,18 +16,8 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 ''' <summary>DataGridViewにおけるシステム予約データ行の背景色</summary>
28- Private m_DataGridViewSystemReserveRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
29- Drawing.Color.Aqua,
30- ML.Controls.uc6.enSectionName.DataGridViewSystemReserveRowBackColor)
20+ Private m_DataGridViewSystemReserveRowBackColor As Drawing.Color
3121
3222 ''' <summary>区分値列名の既定値</summary>
3323 Private DEFAULT_KUBUNVAL_COLNAME As String = "区分値"
@@ -39,6 +29,12 @@
3929 ''' <summary>フォームロード時イベント</summary>
4030 Private Sub TRN8920_Load(sender As Object, e As System.EventArgs) Handles Me.Load
4131
32+ If Me.DesignMode = True Then Exit Sub
33+
34+ Me.m_DataGridViewSystemReserveRowBackColor = Me.m_cbc.SetMemberVariable(
35+ Drawing.Color.Aqua,
36+ ML.Controls.uc6.enSectionName.DataGridViewSystemReserveRowBackColor)
37+
4238 '' 元に戻すボタン押下処理
4339 Me.CancelProc()
4440
--- trunk/MLApp.TRN8000/TRN8930.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8930.vb (revision 59)
@@ -17,14 +17,6 @@
1717
1818 #Region " メンバ変数"
1919
20- ''' <summary>ログオン情報クラス</summary>
21- Private m_LInfo As New MLApp.TRNLib.LoginInfo
22-
23- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
24- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
25- Drawing.Color.LightGray,
26- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
27-
2820 #End Region
2921
3022 #Region " イベント"
--- trunk/MLApp.TRN8000/TRN8932.vb (revision 58)
+++ trunk/MLApp.TRN8000/TRN8932.vb (revision 59)
@@ -16,14 +16,6 @@
1616
1717 #Region " メンバ変数"
1818
19- ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
22- ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
26-
2719 #End Region
2820
2921 #Region " イベント"
--- trunk/MLApp.Const/KubunMGCode.vb (revision 58)
+++ trunk/MLApp.Const/KubunMGCode.vb (revision 59)
@@ -91,6 +91,141 @@
9191
9292 End Class
9393
94+ ''' <summary>(007)コードゼロサプレス</summary>
95+ Public Class CodeZeroSup
96+
97+ ''' <summary>グループコード</summary>
98+ Public Const GroupCode As String = "007"
99+
100+ ''' <summary>マスタキー</summary>
101+ Public Structure MasterKey
102+
103+ ''' <summary>ユーザー先コード</summary>
104+ Public Const M120 As String = "M120"
105+
106+ ''' <summary>得意先コード</summary>
107+ Public Const M130 As String = "M130"
108+
109+ ''' <summary>仕入先コード</summary>
110+ Public Const M140 As String = "M140"
111+
112+ End Structure
113+
114+ End Class
115+
116+ ''' <summary>(008)端数調整区分</summary>
117+ Public Class HasuTyouseiKbn
118+
119+ ''' <summary>グループコード</summary>
120+ Public Const GroupCode As String = "008"
121+
122+ ''' <summary>端数調整区分列挙体</summary>
123+ Public Enum enHasuTyouseiKbn
124+
125+ ''' <summary>切り捨て</summary>
126+ RoundDown = 0
127+
128+ ''' <summary>四捨五入</summary>
129+ Round = 1
130+
131+ ''' <summary>切り上げ</summary>
132+ RoundUp = 2
133+
134+ End Enum
135+
136+ End Class
137+
138+ ''' <summary>(009)税計算方法</summary>
139+ Public Class TaxComp
140+
141+ ''' <summary>グループコード</summary>
142+ Public Const GroupCode As String = "009"
143+
144+ ''' <summary>税計算方法区分列挙体</summary>
145+ Public Enum enHasuTyouseiKbn
146+
147+ ''' <summary>なし</summary>
148+ TaxFree = 0
149+
150+ ''' <summary>一括</summary>
151+ Sum = 1
152+
153+ ''' <summary>伝票</summary>
154+ Slip = 2
155+
156+ ''' <summary>明細</summary>
157+ Detail = 3
158+
159+ End Enum
160+
161+ End Class
162+
163+ ''' <summary>(010)税端数調整区分</summary>
164+ Public Class TaxHasuTyouseiKbn
165+
166+ ''' <summary>グループコード</summary>
167+ Public Const GroupCode As String = "010"
168+
169+ ''' <summary>端数調整区分列挙体</summary>
170+ Public Enum enZeiTyouseiKbn
171+
172+ ''' <summary>切り捨て</summary>
173+ RoundDown = 0
174+
175+ ''' <summary>四捨五入</summary>
176+ Round = 1
177+
178+ ''' <summary>切り上げ</summary>
179+ RoundUp = 2
180+
181+ End Enum
182+
183+ End Class
184+
185+ ''' <summary>(011)税処理区分</summary>
186+ Public Class TaxSyoriKbn
187+
188+ ''' <summary>グループコード</summary>
189+ Public Const GroupCode As String = "011"
190+
191+ ''' <summary>税処理区分列挙体</summary>
192+ Public Enum enZeiSyoriKbn
193+
194+ ''' <summary>商品準拠</summary>
195+ ItemCompliance = 0
196+
197+ ''' <summary>全て外税</summary>
198+ OutTax = 1
199+
200+ ''' <summary>全て内税</summary>
201+ InTax = 2
202+
203+ ''' <summary>非課税</summary>
204+ TaxFree = 3
205+
206+ End Enum
207+
208+ End Class
209+
210+ ''' <summary>(012)使用区分</summary>
211+ Public Class ShiyouKbn
212+
213+ ''' <summary>グループコード</summary>
214+ Public Const GroupCode As String = "012"
215+
216+ ''' <summary>使用区分列挙体</summary>
217+ Public Enum enShiyouKbn
218+
219+ ''' <summary>使用中</summary>
220+ Use = 0
221+
222+ ''' <summary>未使用</summary>
223+ Unuse = 1
224+
225+ End Enum
226+
227+ End Class
228+
94229 ''' <summary>(204)ユーザー区分</summary>
95230 Public Class UserKubun
96231
Show on old repository browser