• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision63 (tree)
Time2017-04-03 11:55:37
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.TRNLib/Class/CmnEnum.vb (revision 62)
+++ trunk/MLApp.TRNLib/Class/CmnEnum.vb (revision 63)
@@ -10,15 +10,24 @@
1010 ''' y.miura 2016.03.31 001 新規作成
1111 ''' </history>
1212 Public Class CmnEnum
13- 'Inherits Numbering
1413
15- 'Public Sub New(_db As ML.DBAccess.Base.Db5)
16- ' MyBase.New(_db)
17- 'End Sub
14+ ''' <summary>
15+ ''' 税計算区分
16+ ''' </summary>
17+ Public Enum TaxCompKbn
1818
19- 'Public Shadows Class NumberKey
20- ' Inherits Numbering.NumberKey
19+ ''' <summary>なし</summary>
20+ None = 0
2121
22- 'End Class
22+ ''' <summary>一括</summary>
23+ Sum
2324
25+ ''' <summary>伝票</summary>
26+ Receipt
27+
28+ ''' <summary>明細</summary>
29+ Detail
30+
31+ End Enum
32+
2433 End Class
--- trunk/MLApp.TRNLib/Class/TRNConst.vb (revision 62)
+++ trunk/MLApp.TRNLib/Class/TRNConst.vb (revision 63)
@@ -38,6 +38,15 @@
3838 ''' </summary>
3939 Public Class M
4040
41+ '''<Summary>ユーザーマスタ(M120_F)</Summary>
42+ Public Const M120_F As String = "M120_F"
43+
44+ '''<Summary>得意先マスタ(M130_F)</Summary>
45+ Public Const M130_F As String = "M130_F"
46+
47+ '''<Summary>仕入先マスタ(M140_F)</Summary>
48+ Public Const M140_F As String = "M140_F"
49+
4150 '''<Summary>サブシステムマスタ(M910_F)</Summary>
4251 Public Const M910_F As String = "M910_F"
4352
--- trunk/MLApp.TRNLib/Class/dba/Cutoff.vb (revision 62)
+++ trunk/MLApp.TRNLib/Class/dba/Cutoff.vb (revision 63)
@@ -470,13 +470,18 @@
470470 sSQL = "SELECT * FROM " & TRNConst.TableName.C.C120_F
471471 rC120S1 = db.OpenRecordset(sSQL)
472472 Do Until rC120S1.EOF
473- drC120 = dtC120.NewC120_FRow
474- drC120.C120_DATE1 = rC120.Fields("C120_DATE1").Value
475- drC120.C120_KUBN1 = rC120.Fields("C120_KUBN1").Value
476- drC120.C120_DATE2 = rC120.Fields("C120_DATE2").Value
477- drC120.C120_KUBN2 = rC120.Fields("C120_KUBN2").Value
478- drC120.C120_UPD1 = "D"
479- dtC120.Rows.Add(drC120)
473+ Dim sC120WHR As String = "1=1"
474+ sC120WHR &= " AND C120_DATE1=" & rC120S1.Fields("C120_DATE1").Value.ToString.ToDateStr
475+ sC120WHR &= " AND C120_KUBN1=" & rC120S1.Fields("C120_KUBN1").Value
476+ If dtC120.Select(sC120WHR).Length = 0 Then
477+ drC120 = dtC120.NewC120_FRow
478+ drC120.C120_DATE1 = rC120S1.Fields("C120_DATE1").Value
479+ drC120.C120_KUBN1 = rC120S1.Fields("C120_KUBN1").Value
480+ drC120.C120_DATE2 = rC120S1.Fields("C120_DATE2").Value
481+ drC120.C120_KUBN2 = rC120S1.Fields("C120_KUBN2").Value
482+ drC120.C120_UPD1 = "D"
483+ dtC120.Rows.Add(drC120)
484+ End If
480485 Loop
481486 rC120S1.Close()
482487
@@ -542,7 +547,7 @@
542547 '' ***
543548
544549 '' Z130 - RECMP
545- Dim execProcZ130 As New TRNLib.Z130.ExecProc
550+ Dim execProcZ130 As New TRNLib.Z130.ExecProc(db)
546551 execProcZ130.M150CD1s = String.Empty
547552 execProcZ130.M150CD1e = String.Empty
548553 execProcZ130.StartDate = dr.C120_DATE2
--- trunk/MLApp.TRNLib/Class/dba/ExecProc.vb (revision 62)
+++ trunk/MLApp.TRNLib/Class/dba/ExecProc.vb (revision 63)
@@ -50,6 +50,9 @@
5050 ''' <summary>終了集計日</summary>
5151 Private m_EndDate As Date
5252
53+ ''' <summary>トランザクション開始フラグ</summary>
54+ Private m_bTranFlg As Boolean = False
55+
5356 ''' <summary>開始商品コード</summary>
5457 Public WriteOnly Property M150CD1s As String
5558 Set(value As String)
@@ -78,6 +81,22 @@
7881 End Set
7982 End Property
8083
84+ ''' <summary>コンストラクタ</summary>
85+ Public Sub New(_db As ML.DBAccess.Base.Db5)
86+
87+ Me.m_db = _db
88+
89+ Me.m_bTranFlg = True
90+
91+ End Sub
92+
93+ ''' <summary>コンストラクタ</summary>
94+ Public Sub New()
95+
96+ Me.m_bTranFlg = False
97+
98+ End Sub
99+
81100 ''' <summary>[Z130_CMP_RECMP]ストアドプロシージャ実行処理</summary>
82101 Public Overrides Function Recmp() As Boolean
83102 Dim bRet As Boolean = False
@@ -84,12 +103,16 @@
84103
85104 Try
86105
87- '' DB-Open
88- Me.m_db.Open()
106+ If Me.m_bTranFlg = False Then
89107
90- '' トランザクションの開始
91- Me.m_db.BeginTrans()
108+ '' DB-Open
109+ Me.m_db.Open()
92110
111+ '' トランザクションの開始
112+ Me.m_db.BeginTrans()
113+
114+ End If
115+
93116 '' Z130_CMP_RECMP実行
94117 Dim sParam As String = Me.m_M150CD1s.ToTextStr & "," &
95118 Me.m_M150CD1e.ToTextStr & "," &
@@ -98,9 +121,13 @@
98121 Dim sSQL As String = String.Format(TRNConst.ProcudureName.Z130_CMP_RECMP, Me.m_db.DataBaseName, Me.m_db.OwnerName) & sParam
99122 Me.m_db.Execute(sSQL)
100123
101- '' コミット
102- Me.m_db.CommitTrans()
124+ If Me.m_bTranFlg = False Then
103125
126+ '' コミット
127+ Me.m_db.CommitTrans()
128+
129+ End If
130+
104131 '' 処理結果をセットする
105132 bRet = True
106133
@@ -110,9 +137,13 @@
110137
111138 Finally
112139
113- '' DB-Close
114- Me.m_db.Close()
140+ If Me.m_bTranFlg = False Then
115141
142+ '' DB-Close
143+ Me.m_db.Close()
144+
145+ End If
146+
116147 End Try
117148
118149 '' 戻り値を返す
--- trunk/ML.Controls/uc6DateText.Designer.vb (revision 62)
+++ trunk/ML.Controls/uc6DateText.Designer.vb (revision 63)
@@ -51,7 +51,7 @@
5151 Me.txtUc6TextBox.MaxLength = 8
5252 Me.txtUc6TextBox.Name = "txtUc6TextBox"
5353 Me.txtUc6TextBox.PermitChars = New Char(-1) {}
54- Me.txtUc6TextBox.Size = New System.Drawing.Size(73, 20)
54+ Me.txtUc6TextBox.Size = New System.Drawing.Size(74, 20)
5555 Me.txtUc6TextBox.TabIndex = 4
5656 Me.txtUc6TextBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
5757 '
--- trunk/ML.Controls/uc6DateText.vb (revision 62)
+++ trunk/ML.Controls/uc6DateText.vb (revision 63)
@@ -79,10 +79,10 @@
7979
8080 ''' <summary>Value</summary>
8181 ''' <remarks>Date型の値を格納する</remarks>
82- Public Property Value As System.Nullable(Of Date)
82+ Public Property Value As Object
8383 Get
84- '' TscTextBox内の文字列が日付型ならDate型にキャストして返す
85- '' TscTextBox内の文字列が日付型で無い場合はDateEditerの結果をDate型にキャストして返す。
84+ '' uc6DateText内の文字列が日付型ならDate型にキャストして返す
85+ '' uc6DateText内の文字列が日付型で無い場合はDateEditerの結果をDate型にキャストして返す。
8686 '' 結果も日付型でなければNothingを返す
8787 If IsDate(Me.txtUc6TextBox.Text) Then
8888 Return CDate(Me.txtUc6TextBox.Text)
@@ -96,10 +96,10 @@
9696 End If
9797 End If
9898 End Get
99- Set(value As System.Nullable(Of Date))
99+ Set(value As Object)
100100 '' セットされた値がNothingで無ければDateTimePicker.Valueにセットする
101- '' セットされた値がNothingの場合は""をTscTextBoxにセットする
102- If Not value Is Nothing Then
101+ '' セットされた値がNothingの場合は""をuc6DateTextにセットする
102+ If Not value Is Nothing AndAlso Not value Is DBNull.Value Then
103103 Me.DateTimePicker.Value = value
104104 Else
105105 Me.m_bCalcFlg = True
@@ -416,7 +416,7 @@
416416 End Sub
417417
418418 ''' <summary>TextChangedイベント</summary>
419- Private Sub TscTextBox1_TextChanged(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.TextChanged
419+ Private Sub uc6DateTextBox_TextChanged(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.TextChanged
420420
421421 '' 表示処理実行中フラグが立っている、またテキスト桁数が0の場合は処理を終了する
422422 If Me.m_bCalcFlg = True Then
--- trunk/MLApp.TRN9000/TRN9110.vb (revision 62)
+++ trunk/MLApp.TRN9000/TRN9110.vb (revision 63)
@@ -584,13 +584,13 @@
584584 End With
585585 rC110.Close()
586586
587+ '' コミット
588+ db.CommitTrans()
589+
587590 '' C120 - 更新処理
588591 Dim cutOff As New TRNLib.C120.Cutoff
589592 cutOff.UpdateC120()
590593
591- '' コミット
592- db.CommitTrans()
593-
594594 '' DB-Close
595595 db.Close()
596596
--- trunk/MLApp.DataModel/C1_TRNDataSet.xsd (revision 62)
+++ trunk/MLApp.DataModel/C1_TRNDataSet.xsd (revision 63)
@@ -160,6 +160,34 @@
160160 </xs:sequence>
161161 </xs:complexType>
162162 </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">
164+ <xs:complexType>
165+ <xs:sequence>
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" />
167+ <xs:element name="C110_YYMM1" msdata:Caption="当月" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_YYMM1" msprop:Generator_ColumnVarNameInTable="columnC110_YYMM1" msprop:Generator_ColumnPropNameInTable="C110_YYMM1Column" msprop:Generator_UserColumnName="C110_YYMM1" type="xs:dateTime" minOccurs="0" />
168+ <xs:element name="C110_YY1" msdata:Caption="年度" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_YY1" msprop:Generator_ColumnVarNameInTable="columnC110_YY1" msprop:Generator_ColumnPropNameInTable="C110_YY1Column" msprop:Generator_UserColumnName="C110_YY1" type="xs:decimal" minOccurs="0" />
169+ <xs:element name="C110_KADT1" msdata:Caption="期首月" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_KADT1" msprop:Generator_ColumnVarNameInTable="columnC110_KADT1" msprop:Generator_ColumnPropNameInTable="C110_KADT1Column" msprop:Generator_UserColumnName="C110_KADT1" type="xs:dateTime" minOccurs="0" />
170+ <xs:element name="C110_OWDT1" msdata:Caption="期末月" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_OWDT1" msprop:Generator_ColumnVarNameInTable="columnC110_OWDT1" msprop:Generator_ColumnPropNameInTable="C110_OWDT1Column" msprop:Generator_UserColumnName="C110_OWDT1" type="xs:dateTime" minOccurs="0" />
171+ <xs:element name="C110_NAME1" msdata:Caption="自社名" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_NAME1" msprop:Generator_ColumnVarNameInTable="columnC110_NAME1" msprop:Generator_ColumnPropNameInTable="C110_NAME1Column" msprop:Generator_UserColumnName="C110_NAME1" type="xs:string" minOccurs="0" />
172+ <xs:element name="C110_NAME2" msdata:Caption="略称" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_NAME2" msprop:Generator_ColumnVarNameInTable="columnC110_NAME2" msprop:Generator_ColumnPropNameInTable="C110_NAME2Column" msprop:Generator_UserColumnName="C110_NAME2" type="xs:string" minOccurs="0" />
173+ <xs:element name="C110_UBIN1" msdata:Caption="郵便番号" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_UBIN1" msprop:Generator_ColumnVarNameInTable="columnC110_UBIN1" msprop:Generator_ColumnPropNameInTable="C110_UBIN1Column" msprop:Generator_UserColumnName="C110_UBIN1" type="xs:string" minOccurs="0" />
174+ <xs:element name="C110_JUSHO1" msdata:Caption="住所1" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_JUSHO1" msprop:Generator_ColumnVarNameInTable="columnC110_JUSHO1" msprop:Generator_ColumnPropNameInTable="C110_JUSHO1Column" msprop:Generator_UserColumnName="C110_JUSHO1" type="xs:string" minOccurs="0" />
175+ <xs:element name="C110_JUSHO2" msdata:Caption="住所2" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_JUSHO2" msprop:Generator_ColumnVarNameInTable="columnC110_JUSHO2" msprop:Generator_ColumnPropNameInTable="C110_JUSHO2Column" msprop:Generator_UserColumnName="C110_JUSHO2" type="xs:string" minOccurs="0" />
176+ <xs:element name="C110_TEL1" msdata:Caption="TEL" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_TEL1" msprop:Generator_ColumnVarNameInTable="columnC110_TEL1" msprop:Generator_ColumnPropNameInTable="C110_TEL1Column" msprop:Generator_UserColumnName="C110_TEL1" type="xs:string" minOccurs="0" />
177+ <xs:element name="C110_FAX1" msdata:Caption="FAX" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_FAX1" msprop:Generator_ColumnVarNameInTable="columnC110_FAX1" msprop:Generator_ColumnPropNameInTable="C110_FAX1Column" msprop:Generator_UserColumnName="C110_FAX1" type="xs:string" minOccurs="0" />
178+ <xs:element name="C110_SIME1" msdata:Caption="締日1" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_SIME1" msprop:Generator_ColumnVarNameInTable="columnC110_SIME1" msprop:Generator_ColumnPropNameInTable="C110_SIME1Column" msprop:Generator_UserColumnName="C110_SIME1" type="xs:decimal" minOccurs="0" />
179+ <xs:element name="C110_SMDT1" msdata:Caption="変更日1" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_SMDT1" msprop:Generator_ColumnVarNameInTable="columnC110_SMDT1" msprop:Generator_ColumnPropNameInTable="C110_SMDT1Column" msprop:Generator_UserColumnName="C110_SMDT1" type="xs:dateTime" minOccurs="0" />
180+ <xs:element name="C110_SIME2" msdata:Caption="締日2" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_SIME2" msprop:Generator_ColumnVarNameInTable="columnC110_SIME2" msprop:Generator_ColumnPropNameInTable="C110_SIME2Column" msprop:Generator_UserColumnName="C110_SIME2" type="xs:decimal" minOccurs="0" />
181+ <xs:element name="C110_SMDT2" msdata:Caption="変更日2" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_SMDT2" msprop:Generator_ColumnVarNameInTable="columnC110_SMDT2" msprop:Generator_ColumnPropNameInTable="C110_SMDT2Column" msprop:Generator_UserColumnName="C110_SMDT2" type="xs:dateTime" minOccurs="0" />
182+ <xs:element name="C110_SIME3" msdata:Caption="締日3" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_SIME3" msprop:Generator_ColumnVarNameInTable="columnC110_SIME3" msprop:Generator_ColumnPropNameInTable="C110_SIME3Column" msprop:Generator_UserColumnName="C110_SIME3" type="xs:decimal" minOccurs="0" />
183+ <xs:element name="C110_STARTDT1" msdata:Caption="共通" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_STARTDT1" msprop:Generator_ColumnVarNameInTable="columnC110_STARTDT1" msprop:Generator_ColumnPropNameInTable="C110_STARTDT1Column" msprop:Generator_UserColumnName="C110_STARTDT1" type="xs:dateTime" minOccurs="0" />
184+ <xs:element name="C110_STARTDT2" msdata:Caption="売掛・請求" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_STARTDT2" msprop:Generator_ColumnVarNameInTable="columnC110_STARTDT2" msprop:Generator_ColumnPropNameInTable="C110_STARTDT2Column" msprop:Generator_UserColumnName="C110_STARTDT2" type="xs:dateTime" minOccurs="0" />
185+ <xs:element name="C110_STARTDT3" msdata:Caption="買掛・支払" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_STARTDT3" msprop:Generator_ColumnVarNameInTable="columnC110_STARTDT3" msprop:Generator_ColumnPropNameInTable="C110_STARTDT3Column" msprop:Generator_UserColumnName="C110_STARTDT3" type="xs:dateTime" minOccurs="0" />
186+ <xs:element name="C110_STARTDT4" msdata:Caption="在庫" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_STARTDT4" msprop:Generator_ColumnVarNameInTable="columnC110_STARTDT4" msprop:Generator_ColumnPropNameInTable="C110_STARTDT4Column" msprop:Generator_UserColumnName="C110_STARTDT4" type="xs:dateTime" minOccurs="0" />
187+ <xs:element name="C110_UPD1" msdata:Caption="更新情報" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="C110_UPD1" msprop:Generator_ColumnVarNameInTable="columnC110_UPD1" msprop:Generator_ColumnPropNameInTable="C110_UPD1Column" msprop:Generator_UserColumnName="C110_UPD1" type="xs:string" minOccurs="0" />
188+ </xs:sequence>
189+ </xs:complexType>
190+ </xs:element>
163191 </xs:choice>
164192 </xs:complexType>
165193 <xs:unique name="Constraint1" msdata:PrimaryKey="true">
--- trunk/MLApp.DataModel/C1_TRNDataSet.Designer.vb (revision 62)
+++ trunk/MLApp.DataModel/C1_TRNDataSet.Designer.vb (revision 63)
@@ -35,6 +35,8 @@
3535
3636 Private tableC111_F As C111_FDataTable
3737
38+ Private tableC110_F As C110_FDataTable
39+
3840 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
3941
4042 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -79,6 +81,9 @@
7981 If (Not (ds.Tables("C111_F")) Is Nothing) Then
8082 MyBase.Tables.Add(New C111_FDataTable(ds.Tables("C111_F")))
8183 End If
84+ If (Not (ds.Tables("C110_F")) Is Nothing) Then
85+ MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
86+ End If
8287 Me.DataSetName = ds.DataSetName
8388 Me.Prefix = ds.Prefix
8489 Me.Namespace = ds.Namespace
@@ -148,6 +153,16 @@
148153
149154 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
150155 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
156+ Global.System.ComponentModel.Browsable(false), _
157+ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
158+ Public ReadOnly Property C110_F() As C110_FDataTable
159+ Get
160+ Return Me.tableC110_F
161+ End Get
162+ End Property
163+
164+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
165+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
151166 Global.System.ComponentModel.BrowsableAttribute(true), _
152167 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
153168 Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -228,6 +243,9 @@
228243 If (Not (ds.Tables("C111_F")) Is Nothing) Then
229244 MyBase.Tables.Add(New C111_FDataTable(ds.Tables("C111_F")))
230245 End If
246+ If (Not (ds.Tables("C110_F")) Is Nothing) Then
247+ MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
248+ End If
231249 Me.DataSetName = ds.DataSetName
232250 Me.Prefix = ds.Prefix
233251 Me.Namespace = ds.Namespace
@@ -290,6 +308,12 @@
290308 Me.tableC111_F.InitVars
291309 End If
292310 End If
311+ Me.tableC110_F = CType(MyBase.Tables("C110_F"),C110_FDataTable)
312+ If (initTable = true) Then
313+ If (Not (Me.tableC110_F) Is Nothing) Then
314+ Me.tableC110_F.InitVars
315+ End If
316+ End If
293317 End Sub
294318
295319 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -310,6 +334,8 @@
310334 MyBase.Tables.Add(Me.tableTRN9140S1)
311335 Me.tableC111_F = New C111_FDataTable()
312336 MyBase.Tables.Add(Me.tableC111_F)
337+ Me.tableC110_F = New C110_FDataTable()
338+ MyBase.Tables.Add(Me.tableC110_F)
313339 End Sub
314340
315341 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -344,6 +370,12 @@
344370
345371 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
346372 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
373+ Private Function ShouldSerializeC110_F() As Boolean
374+ Return false
375+ End Function
376+
377+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
378+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
347379 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
348380 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
349381 Me.InitVars
@@ -415,6 +447,9 @@
415447 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
416448 Public Delegate Sub C111_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C111_FRowChangeEvent)
417449
450+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
451+ Public Delegate Sub C110_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C110_FRowChangeEvent)
452+
418453 '''<summary>
419454 '''Represents the strongly named DataTable class.
420455 '''</summary>
@@ -2836,6 +2871,575 @@
28362871 End Class
28372872
28382873 '''<summary>
2874+ '''Represents the strongly named DataTable class.
2875+ '''</summary>
2876+ <Global.System.Serializable(), _
2877+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2878+ Partial Public Class C110_FDataTable
2879+ Inherits Global.System.Data.TypedTableBase(Of C110_FRow)
2880+
2881+ Private columnC110_KEY1 As Global.System.Data.DataColumn
2882+
2883+ Private columnC110_YYMM1 As Global.System.Data.DataColumn
2884+
2885+ Private columnC110_YY1 As Global.System.Data.DataColumn
2886+
2887+ Private columnC110_KADT1 As Global.System.Data.DataColumn
2888+
2889+ Private columnC110_OWDT1 As Global.System.Data.DataColumn
2890+
2891+ Private columnC110_NAME1 As Global.System.Data.DataColumn
2892+
2893+ Private columnC110_NAME2 As Global.System.Data.DataColumn
2894+
2895+ Private columnC110_UBIN1 As Global.System.Data.DataColumn
2896+
2897+ Private columnC110_JUSHO1 As Global.System.Data.DataColumn
2898+
2899+ Private columnC110_JUSHO2 As Global.System.Data.DataColumn
2900+
2901+ Private columnC110_TEL1 As Global.System.Data.DataColumn
2902+
2903+ Private columnC110_FAX1 As Global.System.Data.DataColumn
2904+
2905+ Private columnC110_SIME1 As Global.System.Data.DataColumn
2906+
2907+ Private columnC110_SMDT1 As Global.System.Data.DataColumn
2908+
2909+ Private columnC110_SIME2 As Global.System.Data.DataColumn
2910+
2911+ Private columnC110_SMDT2 As Global.System.Data.DataColumn
2912+
2913+ Private columnC110_SIME3 As Global.System.Data.DataColumn
2914+
2915+ Private columnC110_STARTDT1 As Global.System.Data.DataColumn
2916+
2917+ Private columnC110_STARTDT2 As Global.System.Data.DataColumn
2918+
2919+ Private columnC110_STARTDT3 As Global.System.Data.DataColumn
2920+
2921+ Private columnC110_STARTDT4 As Global.System.Data.DataColumn
2922+
2923+ Private columnC110_UPD1 As Global.System.Data.DataColumn
2924+
2925+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2926+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2927+ Public Sub New()
2928+ MyBase.New
2929+ Me.TableName = "C110_F"
2930+ Me.BeginInit
2931+ Me.InitClass
2932+ Me.EndInit
2933+ End Sub
2934+
2935+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2936+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2937+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
2938+ MyBase.New
2939+ Me.TableName = table.TableName
2940+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2941+ Me.CaseSensitive = table.CaseSensitive
2942+ End If
2943+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2944+ Me.Locale = table.Locale
2945+ End If
2946+ If (table.Namespace <> table.DataSet.Namespace) Then
2947+ Me.Namespace = table.Namespace
2948+ End If
2949+ Me.Prefix = table.Prefix
2950+ Me.MinimumCapacity = table.MinimumCapacity
2951+ End Sub
2952+
2953+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2954+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2955+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2956+ MyBase.New(info, context)
2957+ Me.InitVars
2958+ End Sub
2959+
2960+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2961+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2962+ Public ReadOnly Property C110_KEY1Column() As Global.System.Data.DataColumn
2963+ Get
2964+ Return Me.columnC110_KEY1
2965+ End Get
2966+ End Property
2967+
2968+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2969+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2970+ Public ReadOnly Property C110_YYMM1Column() As Global.System.Data.DataColumn
2971+ Get
2972+ Return Me.columnC110_YYMM1
2973+ End Get
2974+ End Property
2975+
2976+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2977+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2978+ Public ReadOnly Property C110_YY1Column() As Global.System.Data.DataColumn
2979+ Get
2980+ Return Me.columnC110_YY1
2981+ End Get
2982+ End Property
2983+
2984+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2985+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2986+ Public ReadOnly Property C110_KADT1Column() As Global.System.Data.DataColumn
2987+ Get
2988+ Return Me.columnC110_KADT1
2989+ End Get
2990+ End Property
2991+
2992+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2993+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2994+ Public ReadOnly Property C110_OWDT1Column() As Global.System.Data.DataColumn
2995+ Get
2996+ Return Me.columnC110_OWDT1
2997+ End Get
2998+ End Property
2999+
3000+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3001+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3002+ Public ReadOnly Property C110_NAME1Column() As Global.System.Data.DataColumn
3003+ Get
3004+ Return Me.columnC110_NAME1
3005+ End Get
3006+ End Property
3007+
3008+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3009+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3010+ Public ReadOnly Property C110_NAME2Column() As Global.System.Data.DataColumn
3011+ Get
3012+ Return Me.columnC110_NAME2
3013+ End Get
3014+ End Property
3015+
3016+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3017+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3018+ Public ReadOnly Property C110_UBIN1Column() As Global.System.Data.DataColumn
3019+ Get
3020+ Return Me.columnC110_UBIN1
3021+ End Get
3022+ End Property
3023+
3024+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3025+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3026+ Public ReadOnly Property C110_JUSHO1Column() As Global.System.Data.DataColumn
3027+ Get
3028+ Return Me.columnC110_JUSHO1
3029+ End Get
3030+ End Property
3031+
3032+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3033+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3034+ Public ReadOnly Property C110_JUSHO2Column() As Global.System.Data.DataColumn
3035+ Get
3036+ Return Me.columnC110_JUSHO2
3037+ End Get
3038+ End Property
3039+
3040+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3041+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3042+ Public ReadOnly Property C110_TEL1Column() As Global.System.Data.DataColumn
3043+ Get
3044+ Return Me.columnC110_TEL1
3045+ End Get
3046+ End Property
3047+
3048+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3049+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3050+ Public ReadOnly Property C110_FAX1Column() As Global.System.Data.DataColumn
3051+ Get
3052+ Return Me.columnC110_FAX1
3053+ End Get
3054+ End Property
3055+
3056+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3057+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3058+ Public ReadOnly Property C110_SIME1Column() As Global.System.Data.DataColumn
3059+ Get
3060+ Return Me.columnC110_SIME1
3061+ End Get
3062+ End Property
3063+
3064+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3065+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3066+ Public ReadOnly Property C110_SMDT1Column() As Global.System.Data.DataColumn
3067+ Get
3068+ Return Me.columnC110_SMDT1
3069+ End Get
3070+ End Property
3071+
3072+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3073+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3074+ Public ReadOnly Property C110_SIME2Column() As Global.System.Data.DataColumn
3075+ Get
3076+ Return Me.columnC110_SIME2
3077+ End Get
3078+ End Property
3079+
3080+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3081+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3082+ Public ReadOnly Property C110_SMDT2Column() As Global.System.Data.DataColumn
3083+ Get
3084+ Return Me.columnC110_SMDT2
3085+ End Get
3086+ End Property
3087+
3088+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3089+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3090+ Public ReadOnly Property C110_SIME3Column() As Global.System.Data.DataColumn
3091+ Get
3092+ Return Me.columnC110_SIME3
3093+ End Get
3094+ End Property
3095+
3096+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3097+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3098+ Public ReadOnly Property C110_STARTDT1Column() As Global.System.Data.DataColumn
3099+ Get
3100+ Return Me.columnC110_STARTDT1
3101+ End Get
3102+ End Property
3103+
3104+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3105+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3106+ Public ReadOnly Property C110_STARTDT2Column() As Global.System.Data.DataColumn
3107+ Get
3108+ Return Me.columnC110_STARTDT2
3109+ End Get
3110+ End Property
3111+
3112+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3113+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3114+ Public ReadOnly Property C110_STARTDT3Column() As Global.System.Data.DataColumn
3115+ Get
3116+ Return Me.columnC110_STARTDT3
3117+ End Get
3118+ End Property
3119+
3120+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3121+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3122+ Public ReadOnly Property C110_STARTDT4Column() As Global.System.Data.DataColumn
3123+ Get
3124+ Return Me.columnC110_STARTDT4
3125+ End Get
3126+ End Property
3127+
3128+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3129+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3130+ Public ReadOnly Property C110_UPD1Column() As Global.System.Data.DataColumn
3131+ Get
3132+ Return Me.columnC110_UPD1
3133+ End Get
3134+ End Property
3135+
3136+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3137+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3138+ Global.System.ComponentModel.Browsable(false)> _
3139+ Public ReadOnly Property Count() As Integer
3140+ Get
3141+ Return Me.Rows.Count
3142+ End Get
3143+ End Property
3144+
3145+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3146+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3147+ Public Default ReadOnly Property Item(ByVal index As Integer) As C110_FRow
3148+ Get
3149+ Return CType(Me.Rows(index),C110_FRow)
3150+ End Get
3151+ End Property
3152+
3153+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3154+ Public Event C110_FRowChanging As C110_FRowChangeEventHandler
3155+
3156+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3157+ Public Event C110_FRowChanged As C110_FRowChangeEventHandler
3158+
3159+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3160+ Public Event C110_FRowDeleting As C110_FRowChangeEventHandler
3161+
3162+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3163+ Public Event C110_FRowDeleted As C110_FRowChangeEventHandler
3164+
3165+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3166+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3167+ Public Overloads Sub AddC110_FRow(ByVal row As C110_FRow)
3168+ Me.Rows.Add(row)
3169+ End Sub
3170+
3171+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3172+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3173+ Public Overloads Function AddC110_FRow( _
3174+ ByVal C110_KEY1 As Decimal, _
3175+ ByVal C110_YYMM1 As Date, _
3176+ ByVal C110_YY1 As Decimal, _
3177+ ByVal C110_KADT1 As Date, _
3178+ ByVal C110_OWDT1 As Date, _
3179+ ByVal C110_NAME1 As String, _
3180+ ByVal C110_NAME2 As String, _
3181+ ByVal C110_UBIN1 As String, _
3182+ ByVal C110_JUSHO1 As String, _
3183+ ByVal C110_JUSHO2 As String, _
3184+ ByVal C110_TEL1 As String, _
3185+ ByVal C110_FAX1 As String, _
3186+ ByVal C110_SIME1 As Decimal, _
3187+ ByVal C110_SMDT1 As Date, _
3188+ ByVal C110_SIME2 As Decimal, _
3189+ ByVal C110_SMDT2 As Date, _
3190+ ByVal C110_SIME3 As Decimal, _
3191+ ByVal C110_STARTDT1 As Date, _
3192+ ByVal C110_STARTDT2 As Date, _
3193+ ByVal C110_STARTDT3 As Date, _
3194+ ByVal C110_STARTDT4 As Date, _
3195+ ByVal C110_UPD1 As String) As C110_FRow
3196+ Dim rowC110_FRow As C110_FRow = CType(Me.NewRow,C110_FRow)
3197+ Dim columnValuesArray() As Object = New Object() {C110_KEY1, C110_YYMM1, C110_YY1, C110_KADT1, C110_OWDT1, C110_NAME1, C110_NAME2, C110_UBIN1, C110_JUSHO1, C110_JUSHO2, C110_TEL1, C110_FAX1, C110_SIME1, C110_SMDT1, C110_SIME2, C110_SMDT2, C110_SIME3, C110_STARTDT1, C110_STARTDT2, C110_STARTDT3, C110_STARTDT4, C110_UPD1}
3198+ rowC110_FRow.ItemArray = columnValuesArray
3199+ Me.Rows.Add(rowC110_FRow)
3200+ Return rowC110_FRow
3201+ End Function
3202+
3203+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3204+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3205+ Public Overrides Function Clone() As Global.System.Data.DataTable
3206+ Dim cln As C110_FDataTable = CType(MyBase.Clone,C110_FDataTable)
3207+ cln.InitVars
3208+ Return cln
3209+ End Function
3210+
3211+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3212+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3213+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3214+ Return New C110_FDataTable()
3215+ End Function
3216+
3217+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3218+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3219+ Friend Sub InitVars()
3220+ Me.columnC110_KEY1 = MyBase.Columns("C110_KEY1")
3221+ Me.columnC110_YYMM1 = MyBase.Columns("C110_YYMM1")
3222+ Me.columnC110_YY1 = MyBase.Columns("C110_YY1")
3223+ Me.columnC110_KADT1 = MyBase.Columns("C110_KADT1")
3224+ Me.columnC110_OWDT1 = MyBase.Columns("C110_OWDT1")
3225+ Me.columnC110_NAME1 = MyBase.Columns("C110_NAME1")
3226+ Me.columnC110_NAME2 = MyBase.Columns("C110_NAME2")
3227+ Me.columnC110_UBIN1 = MyBase.Columns("C110_UBIN1")
3228+ Me.columnC110_JUSHO1 = MyBase.Columns("C110_JUSHO1")
3229+ Me.columnC110_JUSHO2 = MyBase.Columns("C110_JUSHO2")
3230+ Me.columnC110_TEL1 = MyBase.Columns("C110_TEL1")
3231+ Me.columnC110_FAX1 = MyBase.Columns("C110_FAX1")
3232+ Me.columnC110_SIME1 = MyBase.Columns("C110_SIME1")
3233+ Me.columnC110_SMDT1 = MyBase.Columns("C110_SMDT1")
3234+ Me.columnC110_SIME2 = MyBase.Columns("C110_SIME2")
3235+ Me.columnC110_SMDT2 = MyBase.Columns("C110_SMDT2")
3236+ Me.columnC110_SIME3 = MyBase.Columns("C110_SIME3")
3237+ Me.columnC110_STARTDT1 = MyBase.Columns("C110_STARTDT1")
3238+ Me.columnC110_STARTDT2 = MyBase.Columns("C110_STARTDT2")
3239+ Me.columnC110_STARTDT3 = MyBase.Columns("C110_STARTDT3")
3240+ Me.columnC110_STARTDT4 = MyBase.Columns("C110_STARTDT4")
3241+ Me.columnC110_UPD1 = MyBase.Columns("C110_UPD1")
3242+ End Sub
3243+
3244+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3245+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3246+ Private Sub InitClass()
3247+ Me.columnC110_KEY1 = New Global.System.Data.DataColumn("C110_KEY1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3248+ MyBase.Columns.Add(Me.columnC110_KEY1)
3249+ Me.columnC110_YYMM1 = New Global.System.Data.DataColumn("C110_YYMM1", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3250+ MyBase.Columns.Add(Me.columnC110_YYMM1)
3251+ Me.columnC110_YY1 = New Global.System.Data.DataColumn("C110_YY1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3252+ MyBase.Columns.Add(Me.columnC110_YY1)
3253+ Me.columnC110_KADT1 = New Global.System.Data.DataColumn("C110_KADT1", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3254+ MyBase.Columns.Add(Me.columnC110_KADT1)
3255+ Me.columnC110_OWDT1 = New Global.System.Data.DataColumn("C110_OWDT1", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3256+ MyBase.Columns.Add(Me.columnC110_OWDT1)
3257+ Me.columnC110_NAME1 = New Global.System.Data.DataColumn("C110_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3258+ MyBase.Columns.Add(Me.columnC110_NAME1)
3259+ Me.columnC110_NAME2 = New Global.System.Data.DataColumn("C110_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3260+ MyBase.Columns.Add(Me.columnC110_NAME2)
3261+ Me.columnC110_UBIN1 = New Global.System.Data.DataColumn("C110_UBIN1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3262+ MyBase.Columns.Add(Me.columnC110_UBIN1)
3263+ Me.columnC110_JUSHO1 = New Global.System.Data.DataColumn("C110_JUSHO1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3264+ MyBase.Columns.Add(Me.columnC110_JUSHO1)
3265+ Me.columnC110_JUSHO2 = New Global.System.Data.DataColumn("C110_JUSHO2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3266+ MyBase.Columns.Add(Me.columnC110_JUSHO2)
3267+ Me.columnC110_TEL1 = New Global.System.Data.DataColumn("C110_TEL1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3268+ MyBase.Columns.Add(Me.columnC110_TEL1)
3269+ Me.columnC110_FAX1 = New Global.System.Data.DataColumn("C110_FAX1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3270+ MyBase.Columns.Add(Me.columnC110_FAX1)
3271+ Me.columnC110_SIME1 = New Global.System.Data.DataColumn("C110_SIME1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3272+ MyBase.Columns.Add(Me.columnC110_SIME1)
3273+ Me.columnC110_SMDT1 = New Global.System.Data.DataColumn("C110_SMDT1", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3274+ MyBase.Columns.Add(Me.columnC110_SMDT1)
3275+ Me.columnC110_SIME2 = New Global.System.Data.DataColumn("C110_SIME2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3276+ MyBase.Columns.Add(Me.columnC110_SIME2)
3277+ Me.columnC110_SMDT2 = New Global.System.Data.DataColumn("C110_SMDT2", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3278+ MyBase.Columns.Add(Me.columnC110_SMDT2)
3279+ Me.columnC110_SIME3 = New Global.System.Data.DataColumn("C110_SIME3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3280+ MyBase.Columns.Add(Me.columnC110_SIME3)
3281+ Me.columnC110_STARTDT1 = New Global.System.Data.DataColumn("C110_STARTDT1", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3282+ MyBase.Columns.Add(Me.columnC110_STARTDT1)
3283+ Me.columnC110_STARTDT2 = New Global.System.Data.DataColumn("C110_STARTDT2", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3284+ MyBase.Columns.Add(Me.columnC110_STARTDT2)
3285+ Me.columnC110_STARTDT3 = New Global.System.Data.DataColumn("C110_STARTDT3", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3286+ MyBase.Columns.Add(Me.columnC110_STARTDT3)
3287+ Me.columnC110_STARTDT4 = New Global.System.Data.DataColumn("C110_STARTDT4", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3288+ MyBase.Columns.Add(Me.columnC110_STARTDT4)
3289+ Me.columnC110_UPD1 = New Global.System.Data.DataColumn("C110_UPD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3290+ MyBase.Columns.Add(Me.columnC110_UPD1)
3291+ Me.columnC110_KEY1.Caption = "キー"
3292+ Me.columnC110_YYMM1.Caption = "当月"
3293+ Me.columnC110_YY1.Caption = "年度"
3294+ Me.columnC110_KADT1.Caption = "期首月"
3295+ Me.columnC110_OWDT1.Caption = "期末月"
3296+ Me.columnC110_NAME1.Caption = "自社名"
3297+ Me.columnC110_NAME2.Caption = "略称"
3298+ Me.columnC110_UBIN1.Caption = "郵便番号"
3299+ Me.columnC110_JUSHO1.Caption = "住所1"
3300+ Me.columnC110_JUSHO2.Caption = "住所2"
3301+ Me.columnC110_TEL1.Caption = "TEL"
3302+ Me.columnC110_FAX1.Caption = "FAX"
3303+ Me.columnC110_SIME1.Caption = "締日1"
3304+ Me.columnC110_SMDT1.Caption = "変更日1"
3305+ Me.columnC110_SIME2.Caption = "締日2"
3306+ Me.columnC110_SMDT2.Caption = "変更日2"
3307+ Me.columnC110_SIME3.Caption = "締日3"
3308+ Me.columnC110_STARTDT1.Caption = "共通"
3309+ Me.columnC110_STARTDT2.Caption = "売掛・請求"
3310+ Me.columnC110_STARTDT3.Caption = "買掛・支払"
3311+ Me.columnC110_STARTDT4.Caption = "在庫"
3312+ Me.columnC110_UPD1.Caption = "更新情報"
3313+ End Sub
3314+
3315+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3316+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3317+ Public Function NewC110_FRow() As C110_FRow
3318+ Return CType(Me.NewRow,C110_FRow)
3319+ End Function
3320+
3321+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3322+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3323+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3324+ Return New C110_FRow(builder)
3325+ End Function
3326+
3327+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3328+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3329+ Protected Overrides Function GetRowType() As Global.System.Type
3330+ Return GetType(C110_FRow)
3331+ End Function
3332+
3333+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3334+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3335+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3336+ MyBase.OnRowChanged(e)
3337+ If (Not (Me.C110_FRowChangedEvent) Is Nothing) Then
3338+ RaiseEvent C110_FRowChanged(Me, New C110_FRowChangeEvent(CType(e.Row,C110_FRow), e.Action))
3339+ End If
3340+ End Sub
3341+
3342+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3343+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3344+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3345+ MyBase.OnRowChanging(e)
3346+ If (Not (Me.C110_FRowChangingEvent) Is Nothing) Then
3347+ RaiseEvent C110_FRowChanging(Me, New C110_FRowChangeEvent(CType(e.Row,C110_FRow), e.Action))
3348+ End If
3349+ End Sub
3350+
3351+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3352+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3353+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3354+ MyBase.OnRowDeleted(e)
3355+ If (Not (Me.C110_FRowDeletedEvent) Is Nothing) Then
3356+ RaiseEvent C110_FRowDeleted(Me, New C110_FRowChangeEvent(CType(e.Row,C110_FRow), e.Action))
3357+ End If
3358+ End Sub
3359+
3360+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3361+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3362+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3363+ MyBase.OnRowDeleting(e)
3364+ If (Not (Me.C110_FRowDeletingEvent) Is Nothing) Then
3365+ RaiseEvent C110_FRowDeleting(Me, New C110_FRowChangeEvent(CType(e.Row,C110_FRow), e.Action))
3366+ End If
3367+ End Sub
3368+
3369+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3370+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3371+ Public Sub RemoveC110_FRow(ByVal row As C110_FRow)
3372+ Me.Rows.Remove(row)
3373+ End Sub
3374+
3375+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3376+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3377+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3378+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3379+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3380+ Dim ds As C1_TRNDataSet = New C1_TRNDataSet()
3381+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3382+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3383+ any1.MinOccurs = New Decimal(0)
3384+ any1.MaxOccurs = Decimal.MaxValue
3385+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3386+ sequence.Items.Add(any1)
3387+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3388+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3389+ any2.MinOccurs = New Decimal(1)
3390+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3391+ sequence.Items.Add(any2)
3392+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3393+ attribute1.Name = "namespace"
3394+ attribute1.FixedValue = ds.Namespace
3395+ type.Attributes.Add(attribute1)
3396+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3397+ attribute2.Name = "tableTypeName"
3398+ attribute2.FixedValue = "C110_FDataTable"
3399+ type.Attributes.Add(attribute2)
3400+ type.Particle = sequence
3401+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3402+ If xs.Contains(dsSchema.TargetNamespace) Then
3403+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3404+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3405+ Try
3406+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3407+ dsSchema.Write(s1)
3408+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3409+ Do While schemas.MoveNext
3410+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3411+ s2.SetLength(0)
3412+ schema.Write(s2)
3413+ If (s1.Length = s2.Length) Then
3414+ s1.Position = 0
3415+ s2.Position = 0
3416+
3417+ Do While ((s1.Position <> s1.Length) _
3418+ AndAlso (s1.ReadByte = s2.ReadByte))
3419+
3420+
3421+ Loop
3422+ If (s1.Position = s1.Length) Then
3423+ Return type
3424+ End If
3425+ End If
3426+
3427+ Loop
3428+ Finally
3429+ If (Not (s1) Is Nothing) Then
3430+ s1.Close
3431+ End If
3432+ If (Not (s2) Is Nothing) Then
3433+ s2.Close
3434+ End If
3435+ End Try
3436+ End If
3437+ xs.Add(dsSchema)
3438+ Return type
3439+ End Function
3440+ End Class
3441+
3442+ '''<summary>
28393443 '''Represents strongly named DataRow class.
28403444 '''</summary>
28413445 Partial Public Class C150_FRow
@@ -5051,6 +5655,616 @@
50515655 End Class
50525656
50535657 '''<summary>
5658+ '''Represents strongly named DataRow class.
5659+ '''</summary>
5660+ Partial Public Class C110_FRow
5661+ Inherits Global.System.Data.DataRow
5662+
5663+ Private tableC110_F As C110_FDataTable
5664+
5665+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5666+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5667+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5668+ MyBase.New(rb)
5669+ Me.tableC110_F = CType(Me.Table,C110_FDataTable)
5670+ End Sub
5671+
5672+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5673+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5674+ Public Property C110_KEY1() As Decimal
5675+ Get
5676+ Try
5677+ Return CType(Me(Me.tableC110_F.C110_KEY1Column),Decimal)
5678+ Catch e As Global.System.InvalidCastException
5679+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_KEY1' の値は DBNull です。", e)
5680+ End Try
5681+ End Get
5682+ Set
5683+ Me(Me.tableC110_F.C110_KEY1Column) = value
5684+ End Set
5685+ End Property
5686+
5687+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5688+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5689+ Public Property C110_YYMM1() As Date
5690+ Get
5691+ Try
5692+ Return CType(Me(Me.tableC110_F.C110_YYMM1Column),Date)
5693+ Catch e As Global.System.InvalidCastException
5694+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_YYMM1' の値は DBNull です。", e)
5695+ End Try
5696+ End Get
5697+ Set
5698+ Me(Me.tableC110_F.C110_YYMM1Column) = value
5699+ End Set
5700+ End Property
5701+
5702+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5703+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5704+ Public Property C110_YY1() As Decimal
5705+ Get
5706+ Try
5707+ Return CType(Me(Me.tableC110_F.C110_YY1Column),Decimal)
5708+ Catch e As Global.System.InvalidCastException
5709+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_YY1' の値は DBNull です。", e)
5710+ End Try
5711+ End Get
5712+ Set
5713+ Me(Me.tableC110_F.C110_YY1Column) = value
5714+ End Set
5715+ End Property
5716+
5717+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5718+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5719+ Public Property C110_KADT1() As Date
5720+ Get
5721+ Try
5722+ Return CType(Me(Me.tableC110_F.C110_KADT1Column),Date)
5723+ Catch e As Global.System.InvalidCastException
5724+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_KADT1' の値は DBNull です。", e)
5725+ End Try
5726+ End Get
5727+ Set
5728+ Me(Me.tableC110_F.C110_KADT1Column) = value
5729+ End Set
5730+ End Property
5731+
5732+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5733+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5734+ Public Property C110_OWDT1() As Date
5735+ Get
5736+ Try
5737+ Return CType(Me(Me.tableC110_F.C110_OWDT1Column),Date)
5738+ Catch e As Global.System.InvalidCastException
5739+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_OWDT1' の値は DBNull です。", e)
5740+ End Try
5741+ End Get
5742+ Set
5743+ Me(Me.tableC110_F.C110_OWDT1Column) = value
5744+ End Set
5745+ End Property
5746+
5747+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5748+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5749+ Public Property C110_NAME1() As String
5750+ Get
5751+ If Me.IsC110_NAME1Null Then
5752+ Return String.Empty
5753+ Else
5754+ Return CType(Me(Me.tableC110_F.C110_NAME1Column),String)
5755+ End If
5756+ End Get
5757+ Set
5758+ Me(Me.tableC110_F.C110_NAME1Column) = value
5759+ End Set
5760+ End Property
5761+
5762+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5763+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5764+ Public Property C110_NAME2() As String
5765+ Get
5766+ If Me.IsC110_NAME2Null Then
5767+ Return String.Empty
5768+ Else
5769+ Return CType(Me(Me.tableC110_F.C110_NAME2Column),String)
5770+ End If
5771+ End Get
5772+ Set
5773+ Me(Me.tableC110_F.C110_NAME2Column) = value
5774+ End Set
5775+ End Property
5776+
5777+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5778+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5779+ Public Property C110_UBIN1() As String
5780+ Get
5781+ If Me.IsC110_UBIN1Null Then
5782+ Return String.Empty
5783+ Else
5784+ Return CType(Me(Me.tableC110_F.C110_UBIN1Column),String)
5785+ End If
5786+ End Get
5787+ Set
5788+ Me(Me.tableC110_F.C110_UBIN1Column) = value
5789+ End Set
5790+ End Property
5791+
5792+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5793+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5794+ Public Property C110_JUSHO1() As String
5795+ Get
5796+ If Me.IsC110_JUSHO1Null Then
5797+ Return String.Empty
5798+ Else
5799+ Return CType(Me(Me.tableC110_F.C110_JUSHO1Column),String)
5800+ End If
5801+ End Get
5802+ Set
5803+ Me(Me.tableC110_F.C110_JUSHO1Column) = value
5804+ End Set
5805+ End Property
5806+
5807+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5808+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5809+ Public Property C110_JUSHO2() As String
5810+ Get
5811+ If Me.IsC110_JUSHO2Null Then
5812+ Return String.Empty
5813+ Else
5814+ Return CType(Me(Me.tableC110_F.C110_JUSHO2Column),String)
5815+ End If
5816+ End Get
5817+ Set
5818+ Me(Me.tableC110_F.C110_JUSHO2Column) = value
5819+ End Set
5820+ End Property
5821+
5822+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5823+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5824+ Public Property C110_TEL1() As String
5825+ Get
5826+ If Me.IsC110_TEL1Null Then
5827+ Return String.Empty
5828+ Else
5829+ Return CType(Me(Me.tableC110_F.C110_TEL1Column),String)
5830+ End If
5831+ End Get
5832+ Set
5833+ Me(Me.tableC110_F.C110_TEL1Column) = value
5834+ End Set
5835+ End Property
5836+
5837+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5838+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5839+ Public Property C110_FAX1() As String
5840+ Get
5841+ If Me.IsC110_FAX1Null Then
5842+ Return String.Empty
5843+ Else
5844+ Return CType(Me(Me.tableC110_F.C110_FAX1Column),String)
5845+ End If
5846+ End Get
5847+ Set
5848+ Me(Me.tableC110_F.C110_FAX1Column) = value
5849+ End Set
5850+ End Property
5851+
5852+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5853+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5854+ Public Property C110_SIME1() As Decimal
5855+ Get
5856+ Try
5857+ Return CType(Me(Me.tableC110_F.C110_SIME1Column),Decimal)
5858+ Catch e As Global.System.InvalidCastException
5859+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_SIME1' の値は DBNull です。", e)
5860+ End Try
5861+ End Get
5862+ Set
5863+ Me(Me.tableC110_F.C110_SIME1Column) = value
5864+ End Set
5865+ End Property
5866+
5867+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5868+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5869+ Public Property C110_SMDT1() As Date
5870+ Get
5871+ Try
5872+ Return CType(Me(Me.tableC110_F.C110_SMDT1Column),Date)
5873+ Catch e As Global.System.InvalidCastException
5874+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_SMDT1' の値は DBNull です。", e)
5875+ End Try
5876+ End Get
5877+ Set
5878+ Me(Me.tableC110_F.C110_SMDT1Column) = value
5879+ End Set
5880+ End Property
5881+
5882+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5883+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5884+ Public Property C110_SIME2() As Decimal
5885+ Get
5886+ Try
5887+ Return CType(Me(Me.tableC110_F.C110_SIME2Column),Decimal)
5888+ Catch e As Global.System.InvalidCastException
5889+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_SIME2' の値は DBNull です。", e)
5890+ End Try
5891+ End Get
5892+ Set
5893+ Me(Me.tableC110_F.C110_SIME2Column) = value
5894+ End Set
5895+ End Property
5896+
5897+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5898+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5899+ Public Property C110_SMDT2() As Date
5900+ Get
5901+ Try
5902+ Return CType(Me(Me.tableC110_F.C110_SMDT2Column),Date)
5903+ Catch e As Global.System.InvalidCastException
5904+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_SMDT2' の値は DBNull です。", e)
5905+ End Try
5906+ End Get
5907+ Set
5908+ Me(Me.tableC110_F.C110_SMDT2Column) = value
5909+ End Set
5910+ End Property
5911+
5912+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5913+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5914+ Public Property C110_SIME3() As Decimal
5915+ Get
5916+ Try
5917+ Return CType(Me(Me.tableC110_F.C110_SIME3Column),Decimal)
5918+ Catch e As Global.System.InvalidCastException
5919+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_SIME3' の値は DBNull です。", e)
5920+ End Try
5921+ End Get
5922+ Set
5923+ Me(Me.tableC110_F.C110_SIME3Column) = value
5924+ End Set
5925+ End Property
5926+
5927+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5928+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5929+ Public Property C110_STARTDT1() As Date
5930+ Get
5931+ Try
5932+ Return CType(Me(Me.tableC110_F.C110_STARTDT1Column),Date)
5933+ Catch e As Global.System.InvalidCastException
5934+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_STARTDT1' の値は DBNull です。", e)
5935+ End Try
5936+ End Get
5937+ Set
5938+ Me(Me.tableC110_F.C110_STARTDT1Column) = value
5939+ End Set
5940+ End Property
5941+
5942+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5943+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5944+ Public Property C110_STARTDT2() As Date
5945+ Get
5946+ Try
5947+ Return CType(Me(Me.tableC110_F.C110_STARTDT2Column),Date)
5948+ Catch e As Global.System.InvalidCastException
5949+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_STARTDT2' の値は DBNull です。", e)
5950+ End Try
5951+ End Get
5952+ Set
5953+ Me(Me.tableC110_F.C110_STARTDT2Column) = value
5954+ End Set
5955+ End Property
5956+
5957+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5958+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5959+ Public Property C110_STARTDT3() As Date
5960+ Get
5961+ Try
5962+ Return CType(Me(Me.tableC110_F.C110_STARTDT3Column),Date)
5963+ Catch e As Global.System.InvalidCastException
5964+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_STARTDT3' の値は DBNull です。", e)
5965+ End Try
5966+ End Get
5967+ Set
5968+ Me(Me.tableC110_F.C110_STARTDT3Column) = value
5969+ End Set
5970+ End Property
5971+
5972+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5973+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5974+ Public Property C110_STARTDT4() As Date
5975+ Get
5976+ Try
5977+ Return CType(Me(Me.tableC110_F.C110_STARTDT4Column),Date)
5978+ Catch e As Global.System.InvalidCastException
5979+ Throw New Global.System.Data.StrongTypingException("テーブル 'C110_F' にある列 'C110_STARTDT4' の値は DBNull です。", e)
5980+ End Try
5981+ End Get
5982+ Set
5983+ Me(Me.tableC110_F.C110_STARTDT4Column) = value
5984+ End Set
5985+ End Property
5986+
5987+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5988+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5989+ Public Property C110_UPD1() As String
5990+ Get
5991+ If Me.IsC110_UPD1Null Then
5992+ Return String.Empty
5993+ Else
5994+ Return CType(Me(Me.tableC110_F.C110_UPD1Column),String)
5995+ End If
5996+ End Get
5997+ Set
5998+ Me(Me.tableC110_F.C110_UPD1Column) = value
5999+ End Set
6000+ End Property
6001+
6002+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6003+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6004+ Public Function IsC110_KEY1Null() As Boolean
6005+ Return Me.IsNull(Me.tableC110_F.C110_KEY1Column)
6006+ End Function
6007+
6008+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6009+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6010+ Public Sub SetC110_KEY1Null()
6011+ Me(Me.tableC110_F.C110_KEY1Column) = Global.System.Convert.DBNull
6012+ End Sub
6013+
6014+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6015+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6016+ Public Function IsC110_YYMM1Null() As Boolean
6017+ Return Me.IsNull(Me.tableC110_F.C110_YYMM1Column)
6018+ End Function
6019+
6020+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6021+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6022+ Public Sub SetC110_YYMM1Null()
6023+ Me(Me.tableC110_F.C110_YYMM1Column) = Global.System.Convert.DBNull
6024+ End Sub
6025+
6026+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6027+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6028+ Public Function IsC110_YY1Null() As Boolean
6029+ Return Me.IsNull(Me.tableC110_F.C110_YY1Column)
6030+ End Function
6031+
6032+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6033+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6034+ Public Sub SetC110_YY1Null()
6035+ Me(Me.tableC110_F.C110_YY1Column) = Global.System.Convert.DBNull
6036+ End Sub
6037+
6038+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6039+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6040+ Public Function IsC110_KADT1Null() As Boolean
6041+ Return Me.IsNull(Me.tableC110_F.C110_KADT1Column)
6042+ End Function
6043+
6044+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6045+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6046+ Public Sub SetC110_KADT1Null()
6047+ Me(Me.tableC110_F.C110_KADT1Column) = Global.System.Convert.DBNull
6048+ End Sub
6049+
6050+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6051+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6052+ Public Function IsC110_OWDT1Null() As Boolean
6053+ Return Me.IsNull(Me.tableC110_F.C110_OWDT1Column)
6054+ End Function
6055+
6056+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6057+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6058+ Public Sub SetC110_OWDT1Null()
6059+ Me(Me.tableC110_F.C110_OWDT1Column) = Global.System.Convert.DBNull
6060+ End Sub
6061+
6062+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6063+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6064+ Public Function IsC110_NAME1Null() As Boolean
6065+ Return Me.IsNull(Me.tableC110_F.C110_NAME1Column)
6066+ End Function
6067+
6068+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6069+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6070+ Public Sub SetC110_NAME1Null()
6071+ Me(Me.tableC110_F.C110_NAME1Column) = Global.System.Convert.DBNull
6072+ End Sub
6073+
6074+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6075+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6076+ Public Function IsC110_NAME2Null() As Boolean
6077+ Return Me.IsNull(Me.tableC110_F.C110_NAME2Column)
6078+ End Function
6079+
6080+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6081+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6082+ Public Sub SetC110_NAME2Null()
6083+ Me(Me.tableC110_F.C110_NAME2Column) = Global.System.Convert.DBNull
6084+ End Sub
6085+
6086+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6087+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6088+ Public Function IsC110_UBIN1Null() As Boolean
6089+ Return Me.IsNull(Me.tableC110_F.C110_UBIN1Column)
6090+ End Function
6091+
6092+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6093+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6094+ Public Sub SetC110_UBIN1Null()
6095+ Me(Me.tableC110_F.C110_UBIN1Column) = Global.System.Convert.DBNull
6096+ End Sub
6097+
6098+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6099+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6100+ Public Function IsC110_JUSHO1Null() As Boolean
6101+ Return Me.IsNull(Me.tableC110_F.C110_JUSHO1Column)
6102+ End Function
6103+
6104+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6105+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6106+ Public Sub SetC110_JUSHO1Null()
6107+ Me(Me.tableC110_F.C110_JUSHO1Column) = Global.System.Convert.DBNull
6108+ End Sub
6109+
6110+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6111+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6112+ Public Function IsC110_JUSHO2Null() As Boolean
6113+ Return Me.IsNull(Me.tableC110_F.C110_JUSHO2Column)
6114+ End Function
6115+
6116+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6117+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6118+ Public Sub SetC110_JUSHO2Null()
6119+ Me(Me.tableC110_F.C110_JUSHO2Column) = Global.System.Convert.DBNull
6120+ End Sub
6121+
6122+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6123+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6124+ Public Function IsC110_TEL1Null() As Boolean
6125+ Return Me.IsNull(Me.tableC110_F.C110_TEL1Column)
6126+ End Function
6127+
6128+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6129+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6130+ Public Sub SetC110_TEL1Null()
6131+ Me(Me.tableC110_F.C110_TEL1Column) = Global.System.Convert.DBNull
6132+ End Sub
6133+
6134+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6135+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6136+ Public Function IsC110_FAX1Null() As Boolean
6137+ Return Me.IsNull(Me.tableC110_F.C110_FAX1Column)
6138+ End Function
6139+
6140+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6141+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6142+ Public Sub SetC110_FAX1Null()
6143+ Me(Me.tableC110_F.C110_FAX1Column) = Global.System.Convert.DBNull
6144+ End Sub
6145+
6146+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6147+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6148+ Public Function IsC110_SIME1Null() As Boolean
6149+ Return Me.IsNull(Me.tableC110_F.C110_SIME1Column)
6150+ End Function
6151+
6152+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6153+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6154+ Public Sub SetC110_SIME1Null()
6155+ Me(Me.tableC110_F.C110_SIME1Column) = Global.System.Convert.DBNull
6156+ End Sub
6157+
6158+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6159+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6160+ Public Function IsC110_SMDT1Null() As Boolean
6161+ Return Me.IsNull(Me.tableC110_F.C110_SMDT1Column)
6162+ End Function
6163+
6164+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6165+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6166+ Public Sub SetC110_SMDT1Null()
6167+ Me(Me.tableC110_F.C110_SMDT1Column) = Global.System.Convert.DBNull
6168+ End Sub
6169+
6170+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6171+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6172+ Public Function IsC110_SIME2Null() As Boolean
6173+ Return Me.IsNull(Me.tableC110_F.C110_SIME2Column)
6174+ End Function
6175+
6176+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6177+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6178+ Public Sub SetC110_SIME2Null()
6179+ Me(Me.tableC110_F.C110_SIME2Column) = Global.System.Convert.DBNull
6180+ End Sub
6181+
6182+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6183+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6184+ Public Function IsC110_SMDT2Null() As Boolean
6185+ Return Me.IsNull(Me.tableC110_F.C110_SMDT2Column)
6186+ End Function
6187+
6188+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6189+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6190+ Public Sub SetC110_SMDT2Null()
6191+ Me(Me.tableC110_F.C110_SMDT2Column) = Global.System.Convert.DBNull
6192+ End Sub
6193+
6194+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6195+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6196+ Public Function IsC110_SIME3Null() As Boolean
6197+ Return Me.IsNull(Me.tableC110_F.C110_SIME3Column)
6198+ End Function
6199+
6200+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6201+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6202+ Public Sub SetC110_SIME3Null()
6203+ Me(Me.tableC110_F.C110_SIME3Column) = Global.System.Convert.DBNull
6204+ End Sub
6205+
6206+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6207+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6208+ Public Function IsC110_STARTDT1Null() As Boolean
6209+ Return Me.IsNull(Me.tableC110_F.C110_STARTDT1Column)
6210+ End Function
6211+
6212+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6213+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6214+ Public Sub SetC110_STARTDT1Null()
6215+ Me(Me.tableC110_F.C110_STARTDT1Column) = Global.System.Convert.DBNull
6216+ End Sub
6217+
6218+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6219+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6220+ Public Function IsC110_STARTDT2Null() As Boolean
6221+ Return Me.IsNull(Me.tableC110_F.C110_STARTDT2Column)
6222+ End Function
6223+
6224+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6225+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6226+ Public Sub SetC110_STARTDT2Null()
6227+ Me(Me.tableC110_F.C110_STARTDT2Column) = Global.System.Convert.DBNull
6228+ End Sub
6229+
6230+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6231+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6232+ Public Function IsC110_STARTDT3Null() As Boolean
6233+ Return Me.IsNull(Me.tableC110_F.C110_STARTDT3Column)
6234+ End Function
6235+
6236+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6237+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6238+ Public Sub SetC110_STARTDT3Null()
6239+ Me(Me.tableC110_F.C110_STARTDT3Column) = Global.System.Convert.DBNull
6240+ End Sub
6241+
6242+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6243+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6244+ Public Function IsC110_STARTDT4Null() As Boolean
6245+ Return Me.IsNull(Me.tableC110_F.C110_STARTDT4Column)
6246+ End Function
6247+
6248+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6249+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6250+ Public Sub SetC110_STARTDT4Null()
6251+ Me(Me.tableC110_F.C110_STARTDT4Column) = Global.System.Convert.DBNull
6252+ End Sub
6253+
6254+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6255+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6256+ Public Function IsC110_UPD1Null() As Boolean
6257+ Return Me.IsNull(Me.tableC110_F.C110_UPD1Column)
6258+ End Function
6259+
6260+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6261+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6262+ Public Sub SetC110_UPD1Null()
6263+ Me(Me.tableC110_F.C110_UPD1Column) = Global.System.Convert.DBNull
6264+ End Sub
6265+ End Class
6266+
6267+ '''<summary>
50546268 '''Row event argument class
50556269 '''</summary>
50566270 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
@@ -5229,4 +6443,40 @@
52296443 End Get
52306444 End Property
52316445 End Class
6446+
6447+ '''<summary>
6448+ '''Row event argument class
6449+ '''</summary>
6450+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6451+ Public Class C110_FRowChangeEvent
6452+ Inherits Global.System.EventArgs
6453+
6454+ Private eventRow As C110_FRow
6455+
6456+ Private eventAction As Global.System.Data.DataRowAction
6457+
6458+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6459+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6460+ Public Sub New(ByVal row As C110_FRow, ByVal action As Global.System.Data.DataRowAction)
6461+ MyBase.New
6462+ Me.eventRow = row
6463+ Me.eventAction = action
6464+ End Sub
6465+
6466+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6467+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6468+ Public ReadOnly Property Row() As C110_FRow
6469+ Get
6470+ Return Me.eventRow
6471+ End Get
6472+ End Property
6473+
6474+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6475+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6476+ Public ReadOnly Property Action() As Global.System.Data.DataRowAction
6477+ Get
6478+ Return Me.eventAction
6479+ End Get
6480+ End Property
6481+ End Class
52326482 End Class
--- trunk/MLApp.TRN0000/Form1.Designer.vb (revision 62)
+++ trunk/MLApp.TRN0000/Form1.Designer.vb (revision 63)
@@ -22,7 +22,7 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25- Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
2626 Me.Uc6Button8 = New ML.Controls.uc6Button()
2727 Me.Uc6FolderBrowserDialog1 = New ML.Controls.uc6FolderBrowserDialog()
2828 Me.DataGridView1 = New System.Windows.Forms.DataGridView()
@@ -85,7 +85,9 @@
8585 Me.Uc6Button12 = New ML.Controls.uc6Button()
8686 Me.Uc6Button13 = New ML.Controls.uc6Button()
8787 Me.Button3 = New System.Windows.Forms.Button()
88+ Me.Uc6DateText1 = New ML.Controls.uc6DateText()
8889 Me.MenuBtnPanel.SuspendLayout()
90+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
8991 CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
9092 Me.Uc6GroupBox1.SuspendLayout()
9193 CType(Me.Uc6DatetimePicker1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -171,14 +173,14 @@
171173 '
172174 'DataGridView1
173175 '
174- DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
175- DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
176- DataGridViewCellStyle2.Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
177- DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
178- DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
179- DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
180- DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
181- Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
176+ DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
177+ DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
178+ DataGridViewCellStyle1.Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
179+ DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
180+ DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
181+ DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
182+ DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
183+ Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
182184 Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column4, Me.Column5})
183185 Me.DataGridView1.Location = New System.Drawing.Point(18, 400)
184186 Me.DataGridView1.Name = "DataGridView1"
@@ -348,7 +350,7 @@
348350 Me.Uc6DatetimePicker1.Name = "Uc6DatetimePicker1"
349351 Me.Uc6DatetimePicker1.Size = New System.Drawing.Size(150, 20)
350352 Me.Uc6DatetimePicker1.TabIndex = 19
351- Me.Uc6DatetimePicker1.Value = New Date(2017, 1, 12, 0, 0, 0, 0)
353+ Me.Uc6DatetimePicker1.Value = New Date(2017, 3, 28, 0, 0, 0, 0)
352354 '
353355 'Uc6Button4
354356 '
@@ -691,7 +693,7 @@
691693 Me.Uc6Date2.Name = "Uc6Date2"
692694 Me.Uc6Date2.Size = New System.Drawing.Size(159, 20)
693695 Me.Uc6Date2.TabIndex = 36
694- Me.Uc6Date2.Value = New Date(2017, 1, 12, 0, 0, 0, 0)
696+ Me.Uc6Date2.Value = New Date(2017, 3, 28, 0, 0, 0, 0)
695697 '
696698 'Uc6Date3
697699 '
@@ -703,7 +705,7 @@
703705 Me.Uc6Date3.Name = "Uc6Date3"
704706 Me.Uc6Date3.Size = New System.Drawing.Size(118, 20)
705707 Me.Uc6Date3.TabIndex = 37
706- Me.Uc6Date3.Value = New Date(2017, 1, 12, 0, 0, 0, 0)
708+ Me.Uc6Date3.Value = New Date(2017, 3, 28, 0, 0, 0, 0)
707709 '
708710 'Uc6Date1
709711 '
@@ -714,7 +716,7 @@
714716 Me.Uc6Date1.Name = "Uc6Date1"
715717 Me.Uc6Date1.Size = New System.Drawing.Size(134, 20)
716718 Me.Uc6Date1.TabIndex = 38
717- Me.Uc6Date1.Value = New Date(2017, 1, 12, 0, 0, 0, 0)
719+ Me.Uc6Date1.Value = New Date(2017, 3, 28, 0, 0, 0, 0)
718720 '
719721 'Uc6Button9
720722 '
@@ -839,11 +841,24 @@
839841 Me.Button3.Text = "現在日付取得"
840842 Me.Button3.UseVisualStyleBackColor = True
841843 '
844+ 'Uc6DateText1
845+ '
846+ Me.Uc6DateText1.BackColor = System.Drawing.SystemColors.Control
847+ Me.Uc6DateText1.BackColorText = System.Drawing.SystemColors.Window
848+ Me.Uc6DateText1.DateFormat = ""
849+ Me.Uc6DateText1.Location = New System.Drawing.Point(975, 295)
850+ Me.Uc6DateText1.Name = "Uc6DateText1"
851+ Me.Uc6DateText1.Size = New System.Drawing.Size(87, 20)
852+ Me.Uc6DateText1.TabIndex = 50
853+ Me.Uc6DateText1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
854+ Me.Uc6DateText1.Value = Nothing
855+ '
842856 'Form1
843857 '
844858 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
845859 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
846860 Me.ClientSize = New System.Drawing.Size(1207, 486)
861+ Me.Controls.Add(Me.Uc6DateText1)
847862 Me.Controls.Add(Me.Button3)
848863 Me.Controls.Add(Me.Uc6Button13)
849864 Me.Controls.Add(Me.Uc6Button12)
@@ -939,7 +954,9 @@
939954 Me.Controls.SetChildIndex(Me.Uc6Button12, 0)
940955 Me.Controls.SetChildIndex(Me.Uc6Button13, 0)
941956 Me.Controls.SetChildIndex(Me.Button3, 0)
957+ Me.Controls.SetChildIndex(Me.Uc6DateText1, 0)
942958 Me.MenuBtnPanel.ResumeLayout(False)
959+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
943960 CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
944961 Me.Uc6GroupBox1.ResumeLayout(False)
945962 Me.Uc6GroupBox1.PerformLayout()
@@ -1020,4 +1037,5 @@
10201037 Friend WithEvents Uc6Button12 As ML.Controls.uc6Button
10211038 Friend WithEvents Uc6Button13 As ML.Controls.uc6Button
10221039 Friend WithEvents Button3 As System.Windows.Forms.Button
1040+ Friend WithEvents Uc6DateText1 As ML.Controls.uc6DateText
10231041 End Class
--- trunk/MLApp.TRN0000/Form1.vb (revision 62)
+++ trunk/MLApp.TRN0000/Form1.vb (revision 63)
@@ -17,6 +17,8 @@
1717
1818 Me.Uc6Date1.Value = Nothing
1919
20+ Me.Uc6DateText1.Value = DBNull.Value
21+
2022 End Sub
2123
2224 Private Sub Uc6TextBox1_BeforeUpdate(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Uc6TextBox1.BeforeUpdate
Show on old repository browser