Revision | 63 (tree) |
---|---|
Time | 2017-04-03 11:55:37 |
Author | yukio_miura |
(empty log message)
@@ -51,7 +51,7 @@ | ||
51 | 51 | Me.txtUc6TextBox.MaxLength = 8 |
52 | 52 | Me.txtUc6TextBox.Name = "txtUc6TextBox" |
53 | 53 | 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) | |
55 | 55 | Me.txtUc6TextBox.TabIndex = 4 |
56 | 56 | Me.txtUc6TextBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center |
57 | 57 | ' |
@@ -79,10 +79,10 @@ | ||
79 | 79 | |
80 | 80 | ''' <summary>Value</summary> |
81 | 81 | ''' <remarks>Date型の値を格納する</remarks> |
82 | - Public Property Value As System.Nullable(Of Date) | |
82 | + Public Property Value As Object | |
83 | 83 | Get |
84 | - '' TscTextBox内の文字列が日付型ならDate型にキャストして返す | |
85 | - '' TscTextBox内の文字列が日付型で無い場合はDateEditerの結果をDate型にキャストして返す。 | |
84 | + '' uc6DateText内の文字列が日付型ならDate型にキャストして返す | |
85 | + '' uc6DateText内の文字列が日付型で無い場合はDateEditerの結果をDate型にキャストして返す。 | |
86 | 86 | '' 結果も日付型でなければNothingを返す |
87 | 87 | If IsDate(Me.txtUc6TextBox.Text) Then |
88 | 88 | Return CDate(Me.txtUc6TextBox.Text) |
@@ -96,10 +96,10 @@ | ||
96 | 96 | End If |
97 | 97 | End If |
98 | 98 | End Get |
99 | - Set(value As System.Nullable(Of Date)) | |
99 | + Set(value As Object) | |
100 | 100 | '' セットされた値が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 | |
103 | 103 | Me.DateTimePicker.Value = value |
104 | 104 | Else |
105 | 105 | Me.m_bCalcFlg = True |
@@ -416,7 +416,7 @@ | ||
416 | 416 | End Sub |
417 | 417 | |
418 | 418 | ''' <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 | |
420 | 420 | |
421 | 421 | '' 表示処理実行中フラグが立っている、またテキスト桁数が0の場合は処理を終了する |
422 | 422 | If Me.m_bCalcFlg = True Then |
@@ -35,6 +35,8 @@ | ||
35 | 35 | |
36 | 36 | Private tableC111_F As C111_FDataTable |
37 | 37 | |
38 | + Private tableC110_F As C110_FDataTable | |
39 | + | |
38 | 40 | Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema |
39 | 41 | |
40 | 42 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ |
@@ -79,6 +81,9 @@ | ||
79 | 81 | If (Not (ds.Tables("C111_F")) Is Nothing) Then |
80 | 82 | MyBase.Tables.Add(New C111_FDataTable(ds.Tables("C111_F"))) |
81 | 83 | 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 | |
82 | 87 | Me.DataSetName = ds.DataSetName |
83 | 88 | Me.Prefix = ds.Prefix |
84 | 89 | Me.Namespace = ds.Namespace |
@@ -148,6 +153,16 @@ | ||
148 | 153 | |
149 | 154 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ |
150 | 155 | 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"), _ | |
151 | 166 | Global.System.ComponentModel.BrowsableAttribute(true), _ |
152 | 167 | Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _ |
153 | 168 | Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode |
@@ -228,6 +243,9 @@ | ||
228 | 243 | If (Not (ds.Tables("C111_F")) Is Nothing) Then |
229 | 244 | MyBase.Tables.Add(New C111_FDataTable(ds.Tables("C111_F"))) |
230 | 245 | 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 | |
231 | 249 | Me.DataSetName = ds.DataSetName |
232 | 250 | Me.Prefix = ds.Prefix |
233 | 251 | Me.Namespace = ds.Namespace |
@@ -290,6 +308,12 @@ | ||
290 | 308 | Me.tableC111_F.InitVars |
291 | 309 | End If |
292 | 310 | 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 | |
293 | 317 | End Sub |
294 | 318 | |
295 | 319 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ |
@@ -310,6 +334,8 @@ | ||
310 | 334 | MyBase.Tables.Add(Me.tableTRN9140S1) |
311 | 335 | Me.tableC111_F = New C111_FDataTable() |
312 | 336 | MyBase.Tables.Add(Me.tableC111_F) |
337 | + Me.tableC110_F = New C110_FDataTable() | |
338 | + MyBase.Tables.Add(Me.tableC110_F) | |
313 | 339 | End Sub |
314 | 340 | |
315 | 341 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ |
@@ -344,6 +370,12 @@ | ||
344 | 370 | |
345 | 371 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ |
346 | 372 | 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")> _ | |
347 | 379 | Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) |
348 | 380 | If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then |
349 | 381 | Me.InitVars |
@@ -415,6 +447,9 @@ | ||
415 | 447 | <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ |
416 | 448 | Public Delegate Sub C111_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C111_FRowChangeEvent) |
417 | 449 | |
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 | + | |
418 | 453 | '''<summary> |
419 | 454 | '''Represents the strongly named DataTable class. |
420 | 455 | '''</summary> |
@@ -2836,6 +2871,575 @@ | ||
2836 | 2871 | End Class |
2837 | 2872 | |
2838 | 2873 | '''<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> | |
2839 | 3443 | '''Represents strongly named DataRow class. |
2840 | 3444 | '''</summary> |
2841 | 3445 | Partial Public Class C150_FRow |
@@ -5051,6 +5655,616 @@ | ||
5051 | 5655 | End Class |
5052 | 5656 | |
5053 | 5657 | '''<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> | |
5054 | 6268 | '''Row event argument class |
5055 | 6269 | '''</summary> |
5056 | 6270 | <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ |
@@ -5229,4 +6443,40 @@ | ||
5229 | 6443 | End Get |
5230 | 6444 | End Property |
5231 | 6445 | 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 | |
5232 | 6482 | End Class |
@@ -160,6 +160,34 @@ | ||
160 | 160 | </xs:sequence> |
161 | 161 | </xs:complexType> |
162 | 162 | </xs:element> |
163 | + <xs:element name="C110_F" msprop:Generator_TableClassName="C110_FDataTable" msprop:Generator_TableVarName="tableC110_F" msprop:Generator_RowChangedName="C110_FRowChanged" msprop:Generator_TablePropName="C110_F" msprop:Generator_RowDeletingName="C110_FRowDeleting" msprop:Generator_RowChangingName="C110_FRowChanging" msprop:Generator_RowEvHandlerName="C110_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C110_FRowDeleted" msprop:Generator_RowClassName="C110_FRow" msprop:Generator_UserTableName="C110_F" msprop:Generator_RowEvArgName="C110_FRowChangeEvent"> | |
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> | |
163 | 191 | </xs:choice> |
164 | 192 | </xs:complexType> |
165 | 193 | <xs:unique name="Constraint1" msdata:PrimaryKey="true"> |
@@ -22,7 +22,7 @@ | ||
22 | 22 | 'コード エディターを使って変更しないでください。 |
23 | 23 | <System.Diagnostics.DebuggerStepThrough()> _ |
24 | 24 | 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() | |
26 | 26 | Me.Uc6Button8 = New ML.Controls.uc6Button() |
27 | 27 | Me.Uc6FolderBrowserDialog1 = New ML.Controls.uc6FolderBrowserDialog() |
28 | 28 | Me.DataGridView1 = New System.Windows.Forms.DataGridView() |
@@ -85,7 +85,9 @@ | ||
85 | 85 | Me.Uc6Button12 = New ML.Controls.uc6Button() |
86 | 86 | Me.Uc6Button13 = New ML.Controls.uc6Button() |
87 | 87 | Me.Button3 = New System.Windows.Forms.Button() |
88 | + Me.Uc6DateText1 = New ML.Controls.uc6DateText() | |
88 | 89 | Me.MenuBtnPanel.SuspendLayout() |
90 | + CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit() | |
89 | 91 | CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() |
90 | 92 | Me.Uc6GroupBox1.SuspendLayout() |
91 | 93 | CType(Me.Uc6DatetimePicker1, System.ComponentModel.ISupportInitialize).BeginInit() |
@@ -171,14 +173,14 @@ | ||
171 | 173 | ' |
172 | 174 | 'DataGridView1 |
173 | 175 | ' |
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 | |
182 | 184 | Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column4, Me.Column5}) |
183 | 185 | Me.DataGridView1.Location = New System.Drawing.Point(18, 400) |
184 | 186 | Me.DataGridView1.Name = "DataGridView1" |
@@ -348,7 +350,7 @@ | ||
348 | 350 | Me.Uc6DatetimePicker1.Name = "Uc6DatetimePicker1" |
349 | 351 | Me.Uc6DatetimePicker1.Size = New System.Drawing.Size(150, 20) |
350 | 352 | 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) | |
352 | 354 | ' |
353 | 355 | 'Uc6Button4 |
354 | 356 | ' |
@@ -691,7 +693,7 @@ | ||
691 | 693 | Me.Uc6Date2.Name = "Uc6Date2" |
692 | 694 | Me.Uc6Date2.Size = New System.Drawing.Size(159, 20) |
693 | 695 | 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) | |
695 | 697 | ' |
696 | 698 | 'Uc6Date3 |
697 | 699 | ' |
@@ -703,7 +705,7 @@ | ||
703 | 705 | Me.Uc6Date3.Name = "Uc6Date3" |
704 | 706 | Me.Uc6Date3.Size = New System.Drawing.Size(118, 20) |
705 | 707 | 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) | |
707 | 709 | ' |
708 | 710 | 'Uc6Date1 |
709 | 711 | ' |
@@ -714,7 +716,7 @@ | ||
714 | 716 | Me.Uc6Date1.Name = "Uc6Date1" |
715 | 717 | Me.Uc6Date1.Size = New System.Drawing.Size(134, 20) |
716 | 718 | 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) | |
718 | 720 | ' |
719 | 721 | 'Uc6Button9 |
720 | 722 | ' |
@@ -839,11 +841,24 @@ | ||
839 | 841 | Me.Button3.Text = "現在日付取得" |
840 | 842 | Me.Button3.UseVisualStyleBackColor = True |
841 | 843 | ' |
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 | + ' | |
842 | 856 | 'Form1 |
843 | 857 | ' |
844 | 858 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) |
845 | 859 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font |
846 | 860 | Me.ClientSize = New System.Drawing.Size(1207, 486) |
861 | + Me.Controls.Add(Me.Uc6DateText1) | |
847 | 862 | Me.Controls.Add(Me.Button3) |
848 | 863 | Me.Controls.Add(Me.Uc6Button13) |
849 | 864 | Me.Controls.Add(Me.Uc6Button12) |
@@ -939,7 +954,9 @@ | ||
939 | 954 | Me.Controls.SetChildIndex(Me.Uc6Button12, 0) |
940 | 955 | Me.Controls.SetChildIndex(Me.Uc6Button13, 0) |
941 | 956 | Me.Controls.SetChildIndex(Me.Button3, 0) |
957 | + Me.Controls.SetChildIndex(Me.Uc6DateText1, 0) | |
942 | 958 | Me.MenuBtnPanel.ResumeLayout(False) |
959 | + CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit() | |
943 | 960 | CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() |
944 | 961 | Me.Uc6GroupBox1.ResumeLayout(False) |
945 | 962 | Me.Uc6GroupBox1.PerformLayout() |
@@ -1020,4 +1037,5 @@ | ||
1020 | 1037 | Friend WithEvents Uc6Button12 As ML.Controls.uc6Button |
1021 | 1038 | Friend WithEvents Uc6Button13 As ML.Controls.uc6Button |
1022 | 1039 | Friend WithEvents Button3 As System.Windows.Forms.Button |
1040 | + Friend WithEvents Uc6DateText1 As ML.Controls.uc6DateText | |
1023 | 1041 | End Class |
@@ -17,6 +17,8 @@ | ||
17 | 17 | |
18 | 18 | Me.Uc6Date1.Value = Nothing |
19 | 19 | |
20 | + Me.Uc6DateText1.Value = DBNull.Value | |
21 | + | |
20 | 22 | End Sub |
21 | 23 | |
22 | 24 | Private Sub Uc6TextBox1_BeforeUpdate(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Uc6TextBox1.BeforeUpdate |
@@ -584,13 +584,13 @@ | ||
584 | 584 | End With |
585 | 585 | rC110.Close() |
586 | 586 | |
587 | + '' コミット | |
588 | + db.CommitTrans() | |
589 | + | |
587 | 590 | '' C120 - 更新処理 |
588 | 591 | Dim cutOff As New TRNLib.C120.Cutoff |
589 | 592 | cutOff.UpdateC120() |
590 | 593 | |
591 | - '' コミット | |
592 | - db.CommitTrans() | |
593 | - | |
594 | 594 | '' DB-Close |
595 | 595 | db.Close() |
596 | 596 |
@@ -10,15 +10,24 @@ | ||
10 | 10 | ''' y.miura 2016.03.31 001 新規作成 |
11 | 11 | ''' </history> |
12 | 12 | Public Class CmnEnum |
13 | - 'Inherits Numbering | |
14 | 13 | |
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 | |
18 | 18 | |
19 | - 'Public Shadows Class NumberKey | |
20 | - ' Inherits Numbering.NumberKey | |
19 | + ''' <summary>なし</summary> | |
20 | + None = 0 | |
21 | 21 | |
22 | - 'End Class | |
22 | + ''' <summary>一括</summary> | |
23 | + Sum | |
23 | 24 | |
25 | + ''' <summary>伝票</summary> | |
26 | + Receipt | |
27 | + | |
28 | + ''' <summary>明細</summary> | |
29 | + Detail | |
30 | + | |
31 | + End Enum | |
32 | + | |
24 | 33 | End Class |
@@ -38,6 +38,15 @@ | ||
38 | 38 | ''' </summary> |
39 | 39 | Public Class M |
40 | 40 | |
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 | + | |
41 | 50 | '''<Summary>サブシステムマスタ(M910_F)</Summary> |
42 | 51 | Public Const M910_F As String = "M910_F" |
43 | 52 |
@@ -470,13 +470,18 @@ | ||
470 | 470 | sSQL = "SELECT * FROM " & TRNConst.TableName.C.C120_F |
471 | 471 | rC120S1 = db.OpenRecordset(sSQL) |
472 | 472 | 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 | |
480 | 485 | Loop |
481 | 486 | rC120S1.Close() |
482 | 487 |
@@ -542,7 +547,7 @@ | ||
542 | 547 | '' *** |
543 | 548 | |
544 | 549 | '' Z130 - RECMP |
545 | - Dim execProcZ130 As New TRNLib.Z130.ExecProc | |
550 | + Dim execProcZ130 As New TRNLib.Z130.ExecProc(db) | |
546 | 551 | execProcZ130.M150CD1s = String.Empty |
547 | 552 | execProcZ130.M150CD1e = String.Empty |
548 | 553 | execProcZ130.StartDate = dr.C120_DATE2 |
@@ -50,6 +50,9 @@ | ||
50 | 50 | ''' <summary>終了集計日</summary> |
51 | 51 | Private m_EndDate As Date |
52 | 52 | |
53 | + ''' <summary>トランザクション開始フラグ</summary> | |
54 | + Private m_bTranFlg As Boolean = False | |
55 | + | |
53 | 56 | ''' <summary>開始商品コード</summary> |
54 | 57 | Public WriteOnly Property M150CD1s As String |
55 | 58 | Set(value As String) |
@@ -78,6 +81,22 @@ | ||
78 | 81 | End Set |
79 | 82 | End Property |
80 | 83 | |
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 | + | |
81 | 100 | ''' <summary>[Z130_CMP_RECMP]ストアドプロシージャ実行処理</summary> |
82 | 101 | Public Overrides Function Recmp() As Boolean |
83 | 102 | Dim bRet As Boolean = False |
@@ -84,12 +103,16 @@ | ||
84 | 103 | |
85 | 104 | Try |
86 | 105 | |
87 | - '' DB-Open | |
88 | - Me.m_db.Open() | |
106 | + If Me.m_bTranFlg = False Then | |
89 | 107 | |
90 | - '' トランザクションの開始 | |
91 | - Me.m_db.BeginTrans() | |
108 | + '' DB-Open | |
109 | + Me.m_db.Open() | |
92 | 110 | |
111 | + '' トランザクションの開始 | |
112 | + Me.m_db.BeginTrans() | |
113 | + | |
114 | + End If | |
115 | + | |
93 | 116 | '' Z130_CMP_RECMP実行 |
94 | 117 | Dim sParam As String = Me.m_M150CD1s.ToTextStr & "," & |
95 | 118 | Me.m_M150CD1e.ToTextStr & "," & |
@@ -98,9 +121,13 @@ | ||
98 | 121 | Dim sSQL As String = String.Format(TRNConst.ProcudureName.Z130_CMP_RECMP, Me.m_db.DataBaseName, Me.m_db.OwnerName) & sParam |
99 | 122 | Me.m_db.Execute(sSQL) |
100 | 123 | |
101 | - '' コミット | |
102 | - Me.m_db.CommitTrans() | |
124 | + If Me.m_bTranFlg = False Then | |
103 | 125 | |
126 | + '' コミット | |
127 | + Me.m_db.CommitTrans() | |
128 | + | |
129 | + End If | |
130 | + | |
104 | 131 | '' 処理結果をセットする |
105 | 132 | bRet = True |
106 | 133 |
@@ -110,9 +137,13 @@ | ||
110 | 137 | |
111 | 138 | Finally |
112 | 139 | |
113 | - '' DB-Close | |
114 | - Me.m_db.Close() | |
140 | + If Me.m_bTranFlg = False Then | |
115 | 141 | |
142 | + '' DB-Close | |
143 | + Me.m_db.Close() | |
144 | + | |
145 | + End If | |
146 | + | |
116 | 147 | End Try |
117 | 148 | |
118 | 149 | '' 戻り値を返す |