|
|
@@ -1,7 +1,7 @@
|
|
1
|
1
|
Option Strict Off
|
|
2
|
2
|
Imports System.IO
|
|
3
|
3
|
Public Class 中文樣品單
|
|
4
|
|
- ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds11 As New DataSet
|
|
|
4
|
+ ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds11, ds12, ds13, ds14, ds15 As New DataSet
|
|
5
|
5
|
ReadOnly DTP(0), WW(14) As String
|
|
6
|
6
|
ReadOnly 控制表行數 As Integer
|
|
7
|
7
|
Dim 新增面料 As Integer = 0 : Dim 新增內裏 As Integer = 0 : Dim 新增底部 As Integer = 0 : Dim 新增飾物 As Integer = 0
|
|
|
@@ -190,152 +190,174 @@ Public Class 中文樣品單
|
|
190
|
190
|
Construc_Name_tb.Enabled = False : GroupBox6.Visible = False
|
|
191
|
191
|
End Sub
|
|
192
|
192
|
Private Sub Set_產地標圖片導入()
|
|
193
|
|
- Try
|
|
194
|
|
- SQL_產地標圖片導入()
|
|
195
|
|
- While dr.Read() = True
|
|
196
|
|
- Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
197
|
|
- Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
|
|
198
|
|
- End While
|
|
199
|
|
- conn.Close() : PictureBox1.SizeMode = 4
|
|
200
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
193
|
+ SQL_產地標圖片導入()
|
|
|
194
|
+ While dr.Read() = True
|
|
|
195
|
+ Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
|
196
|
+ Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
|
|
|
197
|
+ End While
|
|
|
198
|
+ conn.Close() : PictureBox1.SizeMode = 4
|
|
201
|
199
|
End Sub
|
|
202
|
200
|
Private Sub Set_設計圖圖片導入()
|
|
203
|
|
- Try
|
|
204
|
|
- SQL_設計圖圖片導入()
|
|
205
|
|
- While dr.Read() = True
|
|
|
201
|
+ SQL_設計圖圖片導入()
|
|
|
202
|
+ While dr.Read() = True
|
|
206
|
203
|
Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
207
|
204
|
Dim oStream As New MemoryStream(bytes) : PictureBox2.Image = Bitmap.FromStream(oStream)
|
|
208
|
|
- End While
|
|
209
|
|
- conn.Close() : PictureBox2.SizeMode = 4
|
|
210
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
205
|
+ End While
|
|
|
206
|
+ conn.Close() : PictureBox2.SizeMode = 4
|
|
211
|
207
|
End Sub
|
|
212
|
208
|
Private Sub Set_中底LOGO導入()
|
|
213
|
|
- Try
|
|
214
|
|
- SQL_中底LOGO導入()
|
|
215
|
|
- While dr.Read() = True
|
|
216
|
|
- Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
217
|
|
- Dim oStream As New MemoryStream(bytes) : PictureBox3.Image = Bitmap.FromStream(oStream)
|
|
218
|
|
- End While
|
|
219
|
|
- conn.Close() : PictureBox3.SizeMode = 4
|
|
220
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
209
|
+ SQL_中底LOGO導入()
|
|
|
210
|
+ While dr.Read() = True
|
|
|
211
|
+ Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
|
212
|
+ Dim oStream As New MemoryStream(bytes) : PictureBox3.Image = Bitmap.FromStream(oStream)
|
|
|
213
|
+ End While
|
|
|
214
|
+ conn.Close() : PictureBox3.SizeMode = 4
|
|
221
|
215
|
End Sub
|
|
222
|
216
|
Private Sub Set_其他LOGO導入()
|
|
223
|
|
- Try
|
|
224
|
|
- SQL_其他LOGO導入()
|
|
225
|
|
- While dr.Read() = True
|
|
226
|
|
- Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
227
|
|
- Dim oStream As New MemoryStream(bytes) : PictureBox4.Image = Bitmap.FromStream(oStream)
|
|
228
|
|
- End While
|
|
229
|
|
- conn.Close() : PictureBox4.SizeMode = 4
|
|
230
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
217
|
+ SQL_其他LOGO導入()
|
|
|
218
|
+ While dr.Read() = True
|
|
|
219
|
+ Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
|
|
|
220
|
+ Dim oStream As New MemoryStream(bytes) : PictureBox4.Image = Bitmap.FromStream(oStream)
|
|
|
221
|
+ End While
|
|
|
222
|
+ conn.Close() : PictureBox4.SizeMode = 4
|
|
231
|
223
|
End Sub
|
|
232
|
224
|
Private Sub Set_再次導入清單()
|
|
233
|
|
- Try
|
|
234
|
|
- Set_顏色清單()
|
|
235
|
|
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
236
|
|
- 面料_dgv.DataSource = Nothing : ds4.Clear()
|
|
237
|
|
- 面料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
238
|
|
- 面料_dgv.ColumnHeadersHeight = 25 : 面料_dgv.AllowUserToAddRows = False
|
|
239
|
|
- SQL_再次導入清單()
|
|
240
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 面料_dgv.DataSource = ds4.Tables(0) : conn.Close()
|
|
241
|
|
- If 面料_dgv.Columns.Count.ToString = 9 Then : 面料_dgv.Columns.Remove("Item_N") : 面料_dgv.Columns.Remove("Factory") : End If
|
|
|
225
|
+ Set_顏色清單()
|
|
|
226
|
+ '------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
227
|
+ 面料_dgv.DataSource = Nothing : ds4.Clear()
|
|
|
228
|
+ 面料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
229
|
+ 面料_dgv.ColumnHeadersHeight = 25 : 面料_dgv.AllowUserToAddRows = False
|
|
|
230
|
+ SQL_確認樣品單明細表0()
|
|
|
231
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 面料_dgv.DataSource = ds4.Tables(0) : conn.Close()
|
|
|
232
|
+ If 面料_dgv.Columns.Count.ToString = 9 Then : 面料_dgv.Columns.Remove("Item_N") : 面料_dgv.Columns.Remove("Factory") : End If
|
|
242
|
233
|
|
|
243
|
|
- Dim Col As New DataGridViewComboBoxColumn With {
|
|
|
234
|
+ Dim Col As New DataGridViewComboBoxColumn With {
|
|
244
|
235
|
.FillWeight = 200,
|
|
245
|
236
|
.DataPropertyName = "細項"
|
|
246
|
237
|
}
|
|
247
|
|
- SQL_訂單控制表材料細項清單() : Col.Items.Clear()
|
|
248
|
|
- While (dr.Read()) : Col.Items.Add(dr("細項")) : End While : Col.HeaderText = "Item_N" : Col.Name = "Item_N" : 面料_dgv.Columns.Insert(4, Col)
|
|
|
238
|
+ SQL_訂單控制表材料細項清單() : Col.Items.Clear()
|
|
|
239
|
+ While (dr.Read()) : Col.Items.Add(dr("細項")) : End While : Col.HeaderText = "Item_N" : Col.Name = "Item_N" : 面料_dgv.Columns.Insert(4, Col)
|
|
249
|
240
|
|
|
250
|
|
- Dim Col1 As New DataGridViewComboBoxColumn With {
|
|
|
241
|
+ Dim Col1 As New DataGridViewComboBoxColumn With {
|
|
251
|
242
|
.FillWeight = 200,
|
|
252
|
243
|
.DataPropertyName = "廠商"
|
|
253
|
244
|
}
|
|
254
|
|
- SQL_訂單控制表材料廠商清單() : Col1.Items.Clear()
|
|
255
|
|
- While (dr.Read()) : Col1.Items.Add(dr("Factory")) : End While : Col1.HeaderText = "Factory" : Col1.Name = "Factory" : 面料_dgv.Columns.Insert(6, Col1)
|
|
|
245
|
+ SQL_訂單控制表材料廠商清單() : Col1.Items.Clear()
|
|
|
246
|
+ While (dr.Read()) : Col1.Items.Add(dr("Factory")) : End While : Col1.HeaderText = "Factory" : Col1.Name = "Factory" : 面料_dgv.Columns.Insert(6, Col1)
|
|
256
|
247
|
|
|
257
|
|
- 面料_dgv.Columns(0).FillWeight = 150 : 面料_dgv.Columns(5).FillWeight = 934
|
|
258
|
|
- 面料_dgv.Columns(1).Visible = False : 面料_dgv.Columns(2).Visible = False : 面料_dgv.Columns(3).Visible = False : 面料_dgv.Columns(7).Visible = False
|
|
259
|
|
- 面料_dgv.Columns(8).Visible = False
|
|
260
|
|
- 面料_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
261
|
|
- '-------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
262
|
|
- 內裡_dgv.DataSource = Nothing : ds5.Clear()
|
|
263
|
|
- 內裡_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
264
|
|
- 內裡_dgv.ColumnHeadersHeight = 25 : 內裡_dgv.AllowUserToAddRows = False
|
|
265
|
|
- SQL_確認樣品單明細表()
|
|
266
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 內裡_dgv.DataSource = ds5.Tables(0) : conn.Close()
|
|
267
|
|
- If 內裡_dgv.Columns.Count.ToString = 9 Then : 內裡_dgv.Columns.Remove("Item_N") : 內裡_dgv.Columns.Remove("Factory") : End If
|
|
|
248
|
+ 面料_dgv.Columns(0).FillWeight = 150 : 面料_dgv.Columns(5).FillWeight = 934
|
|
|
249
|
+ 面料_dgv.Columns(1).Visible = False : 面料_dgv.Columns(2).Visible = False : 面料_dgv.Columns(3).Visible = False : 面料_dgv.Columns(7).Visible = False
|
|
|
250
|
+ 面料_dgv.Columns(8).Visible = False
|
|
|
251
|
+ 面料_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
268
|
252
|
|
|
269
|
|
- Dim Col2 As New DataGridViewComboBoxColumn With {
|
|
|
253
|
+ 面料1_dgv.DataSource = Nothing : ds12.Clear()
|
|
|
254
|
+ 面料1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
255
|
+ 面料1_dgv.ColumnHeadersHeight = 25 : 面料1_dgv.AllowUserToAddRows = False : 面料1_dgv.RowTemplate.Height = 45
|
|
|
256
|
+ PA31 = "1" : SQL_確認樣品單明細表_敘述攔()
|
|
|
257
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds12) : 面料1_dgv.DataSource = ds12.Tables(0) : conn.Close()
|
|
|
258
|
+ 面料1_dgv.Columns(0).FillWeight = 80 : 面料1_dgv.Columns(1).FillWeight = 200 : 面料1_dgv.Columns(0).ReadOnly = True
|
|
|
259
|
+ 面料1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
|
260
|
+ '-------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
261
|
+ 內裡_dgv.DataSource = Nothing : ds5.Clear()
|
|
|
262
|
+ 內裡_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
263
|
+ 內裡_dgv.ColumnHeadersHeight = 25 : 內裡_dgv.AllowUserToAddRows = False
|
|
|
264
|
+ SQL_確認樣品單明細表()
|
|
|
265
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 內裡_dgv.DataSource = ds5.Tables(0) : conn.Close()
|
|
|
266
|
+ If 內裡_dgv.Columns.Count.ToString = 9 Then : 內裡_dgv.Columns.Remove("Item_N") : 內裡_dgv.Columns.Remove("Factory") : End If
|
|
|
267
|
+
|
|
|
268
|
+ Dim Col2 As New DataGridViewComboBoxColumn With {
|
|
270
|
269
|
.FillWeight = 200,
|
|
271
|
270
|
.DataPropertyName = "細項"
|
|
272
|
271
|
}
|
|
273
|
|
- SQL_訂單控制表材料細項清單() : Col2.Items.Clear()
|
|
274
|
|
- While (dr.Read()) : Col2.Items.Add(dr("細項")) : End While : Col2.HeaderText = "Item_N" : Col2.Name = "Item_N" : 內裡_dgv.Columns.Insert(4, Col2)
|
|
|
272
|
+ SQL_訂單控制表材料細項清單() : Col2.Items.Clear()
|
|
|
273
|
+ While (dr.Read()) : Col2.Items.Add(dr("細項")) : End While : Col2.HeaderText = "Item_N" : Col2.Name = "Item_N" : 內裡_dgv.Columns.Insert(4, Col2)
|
|
275
|
274
|
|
|
276
|
|
- Dim Col3 As New DataGridViewComboBoxColumn With {
|
|
|
275
|
+ Dim Col3 As New DataGridViewComboBoxColumn With {
|
|
277
|
276
|
.FillWeight = 200,
|
|
278
|
277
|
.DataPropertyName = "廠商"
|
|
279
|
278
|
}
|
|
280
|
|
- SQL_訂單控制表材料廠商清單() : Col3.Items.Clear()
|
|
281
|
|
- While (dr.Read()) : Col3.Items.Add(dr("Factory")) : End While : Col3.HeaderText = "Factory" : Col3.Name = "Factory" : 內裡_dgv.Columns.Insert(6, Col3)
|
|
|
279
|
+ SQL_訂單控制表材料廠商清單() : Col3.Items.Clear()
|
|
|
280
|
+ While (dr.Read()) : Col3.Items.Add(dr("Factory")) : End While : Col3.HeaderText = "Factory" : Col3.Name = "Factory" : 內裡_dgv.Columns.Insert(6, Col3)
|
|
|
281
|
+
|
|
|
282
|
+ 內裡_dgv.Columns(0).FillWeight = 150 : 內裡_dgv.Columns(5).FillWeight = 934
|
|
|
283
|
+ 內裡_dgv.Columns(1).Visible = False : 內裡_dgv.Columns(2).Visible = False : 內裡_dgv.Columns(3).Visible = False : 內裡_dgv.Columns(7).Visible = False
|
|
|
284
|
+ 內裡_dgv.Columns(8).Visible = False
|
|
|
285
|
+ 內裡_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
282
|
286
|
|
|
283
|
|
- 內裡_dgv.Columns(0).FillWeight = 150 : 內裡_dgv.Columns(5).FillWeight = 934
|
|
284
|
|
- 內裡_dgv.Columns(1).Visible = False : 內裡_dgv.Columns(2).Visible = False : 內裡_dgv.Columns(3).Visible = False : 內裡_dgv.Columns(7).Visible = False
|
|
285
|
|
- 內裡_dgv.Columns(8).Visible = False
|
|
286
|
|
- 內裡_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
287
|
|
- '-------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
288
|
|
- 底部_dgv.DataSource = Nothing : ds6.Clear()
|
|
289
|
|
- 底部_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
290
|
|
- 底部_dgv.ColumnHeadersHeight = 25 : 底部_dgv.AllowUserToAddRows = False
|
|
291
|
|
- SQL_確認樣品單明細表1()
|
|
292
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : 底部_dgv.DataSource = ds6.Tables(0) : conn.Close()
|
|
293
|
|
- If 底部_dgv.Columns.Count.ToString = 9 Then : 底部_dgv.Columns.Remove("Item_N") : 底部_dgv.Columns.Remove("Factory") : End If
|
|
294
|
|
- Dim Col4 As New DataGridViewComboBoxColumn With {
|
|
|
287
|
+ 內裡1_dgv.DataSource = Nothing : ds13.Clear()
|
|
|
288
|
+ 內裡1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
289
|
+ 內裡1_dgv.ColumnHeadersHeight = 25 : 內裡1_dgv.AllowUserToAddRows = False : 內裡1_dgv.RowTemplate.Height = 45
|
|
|
290
|
+ PA31 = "2" : SQL_確認樣品單明細表_敘述攔()
|
|
|
291
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds13) : 內裡1_dgv.DataSource = ds13.Tables(0) : conn.Close()
|
|
|
292
|
+ 內裡1_dgv.Columns(0).FillWeight = 80 : 內裡1_dgv.Columns(1).FillWeight = 200 : 內裡1_dgv.Columns(0).ReadOnly = True
|
|
|
293
|
+ 內裡1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
|
294
|
+ '-------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
295
|
+ 底部_dgv.DataSource = Nothing : ds6.Clear()
|
|
|
296
|
+ 底部_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
297
|
+ 底部_dgv.ColumnHeadersHeight = 25 : 底部_dgv.AllowUserToAddRows = False
|
|
|
298
|
+ SQL_確認樣品單明細表1()
|
|
|
299
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : 底部_dgv.DataSource = ds6.Tables(0) : conn.Close()
|
|
|
300
|
+ If 底部_dgv.Columns.Count.ToString = 9 Then : 底部_dgv.Columns.Remove("Item_N") : 底部_dgv.Columns.Remove("Factory") : End If
|
|
|
301
|
+ Dim Col4 As New DataGridViewComboBoxColumn With {
|
|
295
|
302
|
.FillWeight = 200,
|
|
296
|
303
|
.DataPropertyName = "細項"
|
|
297
|
304
|
}
|
|
298
|
|
- SQL_訂單控制表材料細項清單() : Col4.Items.Clear()
|
|
299
|
|
- While (dr.Read()) : Col4.Items.Add(dr("細項")) : End While : Col4.HeaderText = "Item_N" : Col4.Name = "Item_N" : 底部_dgv.Columns.Insert(4, Col4)
|
|
|
305
|
+ SQL_訂單控制表材料細項清單() : Col4.Items.Clear()
|
|
|
306
|
+ While (dr.Read()) : Col4.Items.Add(dr("細項")) : End While : Col4.HeaderText = "Item_N" : Col4.Name = "Item_N" : 底部_dgv.Columns.Insert(4, Col4)
|
|
300
|
307
|
|
|
301
|
|
- Dim Col5 As New DataGridViewComboBoxColumn With {
|
|
|
308
|
+ Dim Col5 As New DataGridViewComboBoxColumn With {
|
|
302
|
309
|
.FillWeight = 200,
|
|
303
|
310
|
.DataPropertyName = "廠商"
|
|
304
|
311
|
}
|
|
305
|
|
- SQL_訂單控制表材料廠商清單() : Col5.Items.Clear()
|
|
306
|
|
- While (dr.Read()) : Col5.Items.Add(dr("Factory")) : End While : Col5.HeaderText = "Factory" : Col5.Name = "Factory" : 底部_dgv.Columns.Insert(6, Col5)
|
|
|
312
|
+ SQL_訂單控制表材料廠商清單() : Col5.Items.Clear()
|
|
|
313
|
+ While (dr.Read()) : Col5.Items.Add(dr("Factory")) : End While : Col5.HeaderText = "Factory" : Col5.Name = "Factory" : 底部_dgv.Columns.Insert(6, Col5)
|
|
307
|
314
|
|
|
308
|
|
- 底部_dgv.Columns(0).FillWeight = 150 : 底部_dgv.Columns(5).FillWeight = 934
|
|
309
|
|
- 底部_dgv.Columns(1).Visible = False : 底部_dgv.Columns(2).Visible = False : 底部_dgv.Columns(3).Visible = False : 底部_dgv.Columns(7).Visible = False
|
|
310
|
|
- 底部_dgv.Columns(8).Visible = False
|
|
311
|
|
- 底部_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
312
|
|
- '-------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
313
|
|
- 飾物_dgv.DataSource = Nothing : ds7.Clear()
|
|
314
|
|
- 飾物_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
315
|
|
- 飾物_dgv.ColumnHeadersHeight = 25 : 飾物_dgv.AllowUserToAddRows = False
|
|
316
|
|
- SQL_確認樣品單明細表2()
|
|
317
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : 飾物_dgv.DataSource = ds7.Tables(0) : conn.Close()
|
|
318
|
|
- If 飾物_dgv.Columns.Count.ToString = 9 Then : 飾物_dgv.Columns.Remove("Item_N") : 飾物_dgv.Columns.Remove("Factory") : End If
|
|
|
315
|
+ 底部_dgv.Columns(0).FillWeight = 150 : 底部_dgv.Columns(5).FillWeight = 934
|
|
|
316
|
+ 底部_dgv.Columns(1).Visible = False : 底部_dgv.Columns(2).Visible = False : 底部_dgv.Columns(3).Visible = False : 底部_dgv.Columns(7).Visible = False
|
|
|
317
|
+ 底部_dgv.Columns(8).Visible = False
|
|
|
318
|
+ 底部_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
319
|
319
|
|
|
320
|
|
- Dim Col6 As New DataGridViewComboBoxColumn With {
|
|
|
320
|
+ 底部1_dgv.DataSource = Nothing : ds14.Clear()
|
|
|
321
|
+ 底部1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
322
|
+ 底部1_dgv.ColumnHeadersHeight = 25 : 底部1_dgv.AllowUserToAddRows = False : 底部1_dgv.RowTemplate.Height = 45
|
|
|
323
|
+ PA31 = "3" : SQL_確認樣品單明細表_敘述攔()
|
|
|
324
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds14) : 底部1_dgv.DataSource = ds14.Tables(0) : conn.Close()
|
|
|
325
|
+ 底部1_dgv.Columns(0).FillWeight = 80 : 底部1_dgv.Columns(1).FillWeight = 200 : 底部1_dgv.Columns(0).ReadOnly = True
|
|
|
326
|
+ 底部1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
|
327
|
+ '-------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
328
|
+ 飾物_dgv.DataSource = Nothing : ds7.Clear()
|
|
|
329
|
+ 飾物_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
330
|
+ 飾物_dgv.ColumnHeadersHeight = 25 : 飾物_dgv.AllowUserToAddRows = False
|
|
|
331
|
+ SQL_確認樣品單明細表2()
|
|
|
332
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : 飾物_dgv.DataSource = ds7.Tables(0) : conn.Close()
|
|
|
333
|
+ If 飾物_dgv.Columns.Count.ToString = 9 Then : 飾物_dgv.Columns.Remove("Item_N") : 飾物_dgv.Columns.Remove("Factory") : End If
|
|
|
334
|
+
|
|
|
335
|
+ Dim Col6 As New DataGridViewComboBoxColumn With {
|
|
321
|
336
|
.FillWeight = 200,
|
|
322
|
337
|
.DataPropertyName = "細項"
|
|
323
|
338
|
}
|
|
324
|
|
- SQL_訂單控制表材料細項清單() : Col6.Items.Clear()
|
|
325
|
|
- While (dr.Read()) : Col6.Items.Add(dr("細項")) : End While : Col.HeaderText = "Item_N" : Col6.Name = "Item_N" : 飾物_dgv.Columns.Insert(4, Col6)
|
|
|
339
|
+ SQL_訂單控制表材料細項清單() : Col6.Items.Clear()
|
|
|
340
|
+ While (dr.Read()) : Col6.Items.Add(dr("細項")) : End While : Col.HeaderText = "Item_N" : Col6.Name = "Item_N" : 飾物_dgv.Columns.Insert(4, Col6)
|
|
326
|
341
|
|
|
327
|
|
- Dim Col7 As New DataGridViewComboBoxColumn With {
|
|
|
342
|
+ Dim Col7 As New DataGridViewComboBoxColumn With {
|
|
328
|
343
|
.FillWeight = 200,
|
|
329
|
344
|
.DataPropertyName = "廠商"
|
|
330
|
345
|
}
|
|
331
|
|
- SQL_訂單控制表材料廠商清單() : Col7.Items.Clear()
|
|
332
|
|
- While (dr.Read()) : Col7.Items.Add(dr("Factory")) : End While : Col7.HeaderText = "Factory" : Col7.Name = "Factory" : 飾物_dgv.Columns.Insert(6, Col7)
|
|
|
346
|
+ SQL_訂單控制表材料廠商清單() : Col7.Items.Clear()
|
|
|
347
|
+ While (dr.Read()) : Col7.Items.Add(dr("Factory")) : End While : Col7.HeaderText = "Factory" : Col7.Name = "Factory" : 飾物_dgv.Columns.Insert(6, Col7)
|
|
|
348
|
+
|
|
|
349
|
+ 飾物_dgv.Columns(0).FillWeight = 150 : 飾物_dgv.Columns(5).FillWeight = 934
|
|
|
350
|
+ 飾物_dgv.Columns(1).Visible = False : 飾物_dgv.Columns(2).Visible = False : 飾物_dgv.Columns(3).Visible = False : 飾物_dgv.Columns(7).Visible = False
|
|
|
351
|
+ 飾物_dgv.Columns(8).Visible = False
|
|
|
352
|
+ 飾物_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
333
|
353
|
|
|
334
|
|
- 飾物_dgv.Columns(0).FillWeight = 150 : 飾物_dgv.Columns(5).FillWeight = 934
|
|
335
|
|
- 飾物_dgv.Columns(1).Visible = False : 飾物_dgv.Columns(2).Visible = False : 飾物_dgv.Columns(3).Visible = False : 飾物_dgv.Columns(7).Visible = False
|
|
336
|
|
- 飾物_dgv.Columns(8).Visible = False
|
|
337
|
|
- 飾物_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
338
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
354
|
+ 飾物1_dgv.DataSource = Nothing : ds15.Clear()
|
|
|
355
|
+ 飾物1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
356
|
+ 飾物1_dgv.ColumnHeadersHeight = 25 : 飾物1_dgv.AllowUserToAddRows = False : 飾物1_dgv.RowTemplate.Height = 45
|
|
|
357
|
+ PA31 = "4" : SQL_確認樣品單明細表_敘述攔()
|
|
|
358
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds15) : 飾物1_dgv.DataSource = ds15.Tables(0) : conn.Close()
|
|
|
359
|
+ 飾物1_dgv.Columns(0).FillWeight = 80 : 飾物1_dgv.Columns(1).FillWeight = 200 : 飾物1_dgv.Columns(0).ReadOnly = True
|
|
|
360
|
+ 飾物1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
339
|
361
|
End Sub
|
|
340
|
362
|
Private Sub 中文樣品單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
341
|
363
|
TENDEN_MES_SYS.WindowState = 2
|
|
|
@@ -365,22 +387,20 @@ Public Class 中文樣品單
|
|
365
|
387
|
If Val(screenWidth.ToString()) <= 1366 And Val(screenHeight.ToString()) <= 768 Then : TENDEN_MES_SYS.WindowState = 2 : Else : TENDEN_MES_SYS.WindowState = 0 : End If
|
|
366
|
388
|
End Sub
|
|
367
|
389
|
Private Sub 顏色_dgv_CellEnter(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 顏色_dgv.CellEndEdit
|
|
368
|
|
- Try
|
|
369
|
|
- For I As Integer = 0 To 顏色_dgv.Rows.Count - 1
|
|
370
|
|
- If 顏色_dgv("ItemNumber", I).Value.ToString <> "" Then
|
|
371
|
|
- PA = 顏色_dgv("ItemNumber", I).Value.ToString : SQL_STYLELIST()
|
|
372
|
|
- If dr.Read() Then
|
|
373
|
|
- 顏色_dgv("T1", I).Value = dr("T1").ToString : 顏色_dgv("T2", I).Value = dr("T2").ToString : 顏色_dgv("T3", I).Value = dr("T3").ToString
|
|
374
|
|
- 顏色_dgv("T4", I).Value = dr("T4").ToString : 顏色_dgv("WEAR_TEST", I).Value = dr("WEAR_TEST").ToString
|
|
375
|
|
- Else
|
|
376
|
|
- 顏色_dgv("T1", I).Value = "" : 顏色_dgv("T2", I).Value = "" : 顏色_dgv("T3", I).Value = "" : 顏色_dgv("T4", I).Value = "" : 顏色_dgv("WEAR_TEST", I).Value = ""
|
|
377
|
|
- End If : conn.Close()
|
|
378
|
|
- End If
|
|
379
|
|
- Next
|
|
|
390
|
+ For I As Integer = 0 To 顏色_dgv.Rows.Count - 1
|
|
|
391
|
+ If 顏色_dgv("ItemNumber", I).Value.ToString <> "" Then
|
|
|
392
|
+ PA = 顏色_dgv("ItemNumber", I).Value.ToString : SQL_STYLELIST()
|
|
|
393
|
+ If dr.Read() Then
|
|
|
394
|
+ 顏色_dgv("T1", I).Value = dr("T1").ToString : 顏色_dgv("T2", I).Value = dr("T2").ToString : 顏色_dgv("T3", I).Value = dr("T3").ToString
|
|
|
395
|
+ 顏色_dgv("T4", I).Value = dr("T4").ToString : 顏色_dgv("WEAR_TEST", I).Value = dr("WEAR_TEST").ToString
|
|
|
396
|
+ Else
|
|
|
397
|
+ 顏色_dgv("T1", I).Value = "" : 顏色_dgv("T2", I).Value = "" : 顏色_dgv("T3", I).Value = "" : 顏色_dgv("T4", I).Value = "" : 顏色_dgv("WEAR_TEST", I).Value = ""
|
|
|
398
|
+ End If : conn.Close()
|
|
|
399
|
+ End If
|
|
|
400
|
+ Next
|
|
380
|
401
|
|
|
381
|
|
- Dim EU As String = 顏色_dgv("CFM", e.RowIndex).Value.ToString
|
|
382
|
|
- If EU = "" Then : Else : 日期1_dtp.Text = EU : 顏色_dgv.Rows(e.RowIndex).Cells("CFM").Value = Format(日期1_dtp.Value, "yyyy/MM/dd") : End If
|
|
383
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
402
|
+ Dim EU As String = 顏色_dgv("CFM", e.RowIndex).Value.ToString
|
|
|
403
|
+ If EU = "" Then : Else : 日期1_dtp.Text = EU : 顏色_dgv.Rows(e.RowIndex).Cells("CFM").Value = Format(日期1_dtp.Value, "yyyy/MM/dd") : End If
|
|
384
|
404
|
End Sub
|
|
385
|
405
|
Private Sub DataGridView5_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 面料_dgv.RowPostPaint
|
|
386
|
406
|
If 面料顏色排序_bt.Enabled = False And 面料項次排序_bt.Enabled = True Then
|
|
|
@@ -475,58 +495,56 @@ Public Class 中文樣品單
|
|
475
|
495
|
End If
|
|
476
|
496
|
End Sub
|
|
477
|
497
|
Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
|
|
478
|
|
- Try
|
|
479
|
|
- If e.RowIndex = -1 Then : Else
|
|
480
|
|
- If 編輯模式_bt.Enabled = True Then
|
|
481
|
|
- If 暫存模式 = False Then
|
|
482
|
|
- PictureBox1.Image = Nothing : PictureBox2.Image = Nothing : PictureBox3.Image = Nothing : PictureBox4.Image = Nothing
|
|
483
|
|
- 樣品單號_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 品牌_cb.Text = 清單_dgv(1, e.RowIndex).Value.ToString
|
|
484
|
|
- 季節_tb.Text = 清單_dgv(2, e.RowIndex).Value.ToString : 工廠_tb.Text = 清單_dgv(4, e.RowIndex).Value.ToString
|
|
485
|
|
- 楦頭_tb.Text = 清單_dgv(5, e.RowIndex).Value.ToString : Construc_tionName_cb.Text = 清單_dgv(6, e.RowIndex).Value.ToString
|
|
486
|
|
- 型體名字_tb.Text = 清單_dgv(7, e.RowIndex).Value.ToString : 型體號碼_tb.Text = 清單_dgv(8, e.RowIndex).Value.ToString
|
|
487
|
|
- 内里OR大底_tb.Text = 清單_dgv(9, e.RowIndex).Value.ToString : TextBox4.Text = 清單_dgv(10, e.RowIndex).Value.ToString
|
|
488
|
|
- TextBox5.Text = 清單_dgv(11, e.RowIndex).Value.ToString : 新型體_ch.Checked = 清單_dgv(12, e.RowIndex).Value.ToString
|
|
489
|
|
- 舊形體季別_tb.Text = 清單_dgv(13, e.RowIndex).Value.ToString : DTP(0) = 清單_dgv(14, e.RowIndex).Value.ToString
|
|
490
|
|
- TextBox10.Text = 清單_dgv(16, e.RowIndex).Value.ToString : TextBox17.Text = 清單_dgv(17, e.RowIndex).Value.ToString
|
|
491
|
|
- 開發人員_tb.Text = 清單_dgv(18, e.RowIndex).Value.ToString : 圖片資料庫指定 = 清單_dgv(19, e.RowIndex).Value.ToString
|
|
492
|
|
- If DTP(0) = "" Then : 建檔日期_dtp.Format = DateTimePickerFormat.Custom : 建檔日期_dtp.CustomFormat = " "
|
|
493
|
|
- Else : 建檔日期_dtp.Format = DateTimePickerFormat.Short : 建檔日期_dtp.Text = DTP(0) : End If
|
|
494
|
|
- If 新型體_ch.Checked = True Then : 新型體_ch.Checked = True : 舊型體_ch.Checked = False : Else : 新型體_ch.Checked = False : 舊型體_ch.Checked = True : End If
|
|
495
|
|
- Set_產地標圖片導入() : Set_設計圖圖片導入() : Set_中底LOGO導入() : Set_其他LOGO導入() : Set_再次導入清單()
|
|
496
|
|
- 列印用SQL = 樣品單號_tb.Text : QA = 清單_dgv(3, e.RowIndex).Value.ToString
|
|
497
|
|
- If 開發部門 = False And 確認部門 = True Then
|
|
498
|
|
- If QA = "CFM" Then : 樣品單列印_bt.Enabled = True : 樣品單存檔_bt.Enabled = True : 刷新資料_bt.Enabled = True : 刪除樣品單_bt.Enabled = True
|
|
499
|
|
- Else : 樣品單列印_bt.Enabled = False : 樣品單存檔_bt.Enabled = False : 刷新資料_bt.Enabled = False : 刪除樣品單_bt.Enabled = False : End If
|
|
500
|
|
- ElseIf 開發部門 = True And 確認部門 = False Then
|
|
501
|
|
- If QA = "ILR" Or QA = "FLR" Or QA = "SMS" Or QA = "SMU" Or QA = "Proto" Or QA = "Line" Or QA = "Canada" Then
|
|
502
|
|
- 樣品單列印_bt.Enabled = True : 樣品單存檔_bt.Enabled = True : 刷新資料_bt.Enabled = True : 刪除樣品單_bt.Enabled = True
|
|
503
|
|
- Else : 樣品單列印_bt.Enabled = False : 樣品單存檔_bt.Enabled = False : 刷新資料_bt.Enabled = False : 刪除樣品單_bt.Enabled = False : End If
|
|
504
|
|
- End If
|
|
505
|
|
- ComboBox8下拉表單資料載入()
|
|
506
|
|
- 階段_cb.Text = 清單_dgv(3, e.RowIndex).Value.ToString : VIONIC_tb.Text = 季節_tb.Text
|
|
507
|
|
- 月_tb.Text = Microsoft.VisualBasic.Left(顏色_dgv(32, 0).Value.ToString, 4) : 天_tb.Text = Mid(顏色_dgv(32, 0).Value.ToString, 6, 2)
|
|
508
|
|
- 年_tb.Text = Microsoft.VisualBasic.Right(顏色_dgv(32, 0).Value.ToString, 2)
|
|
509
|
|
- 樣式名稱_tb.Text = 型體名字_tb.Text : 型體號_tb.Text = 型體號碼_tb.Text : 工廠1_tb.Text = 工廠_tb.Text
|
|
510
|
|
- 顏色_tb.Text = 顏色_dgv(33, 0).Value.ToString : Material_Article_tb.Text = 顏色_dgv(34, 0).Value.ToString : 楦頭1_tb.Text = 楦頭_tb.Text
|
|
511
|
|
- Construc_Name_tb.Text = 顏色_dgv(35, 0).Value.ToString : 鞋墊_tb.Text = 顏色_dgv(36, 0).Value.ToString
|
|
512
|
|
- 鞋床_tb.Text = 顏色_dgv(37, 0).Value.ToString : 掛牌_tb.Text = 顏色_dgv(38, 0).Value.ToString & "/" & 顏色_dgv(39, 0).Value.ToString
|
|
513
|
|
- 備註_tb.Text = 顏色_dgv(43, 0).Value.ToString : 尺寸_cb.Text = 顏色_dgv(38, 0).Value.ToString
|
|
514
|
|
- Gender_cb.Text = 顏色_dgv(39, 0).Value.ToString : Wldth_cb.Text = 顏色_dgv(40, 0).Value.ToString
|
|
|
498
|
+ If e.RowIndex = -1 Then : Else
|
|
|
499
|
+ If 編輯模式_bt.Enabled = True Then
|
|
|
500
|
+ If 暫存模式 = False Then
|
|
|
501
|
+ PictureBox1.Image = Nothing : PictureBox2.Image = Nothing : PictureBox3.Image = Nothing : PictureBox4.Image = Nothing
|
|
|
502
|
+ 樣品單號_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 品牌_cb.Text = 清單_dgv(1, e.RowIndex).Value.ToString
|
|
|
503
|
+ 季節_tb.Text = 清單_dgv(2, e.RowIndex).Value.ToString : 工廠_tb.Text = 清單_dgv(4, e.RowIndex).Value.ToString
|
|
|
504
|
+ 楦頭_tb.Text = 清單_dgv(5, e.RowIndex).Value.ToString : Construc_tionName_cb.Text = 清單_dgv(6, e.RowIndex).Value.ToString
|
|
|
505
|
+ 型體名字_tb.Text = 清單_dgv(7, e.RowIndex).Value.ToString : 型體號碼_tb.Text = 清單_dgv(8, e.RowIndex).Value.ToString
|
|
|
506
|
+ 内里OR大底_tb.Text = 清單_dgv(9, e.RowIndex).Value.ToString : TextBox4.Text = 清單_dgv(10, e.RowIndex).Value.ToString
|
|
|
507
|
+ TextBox5.Text = 清單_dgv(11, e.RowIndex).Value.ToString : 新型體_ch.Checked = 清單_dgv(12, e.RowIndex).Value.ToString
|
|
|
508
|
+ 舊形體季別_tb.Text = 清單_dgv(13, e.RowIndex).Value.ToString : DTP(0) = 清單_dgv(14, e.RowIndex).Value.ToString
|
|
|
509
|
+ TextBox10.Text = 清單_dgv(16, e.RowIndex).Value.ToString : TextBox17.Text = 清單_dgv(17, e.RowIndex).Value.ToString
|
|
|
510
|
+ 開發人員_tb.Text = 清單_dgv(18, e.RowIndex).Value.ToString : 圖片資料庫指定 = 清單_dgv(19, e.RowIndex).Value.ToString
|
|
|
511
|
+ If DTP(0) = "" Then : 建檔日期_dtp.Format = DateTimePickerFormat.Custom : 建檔日期_dtp.CustomFormat = " "
|
|
|
512
|
+ Else : 建檔日期_dtp.Format = DateTimePickerFormat.Short : 建檔日期_dtp.Text = DTP(0) : End If
|
|
|
513
|
+ If 新型體_ch.Checked = True Then : 新型體_ch.Checked = True : 舊型體_ch.Checked = False : Else : 新型體_ch.Checked = False : 舊型體_ch.Checked = True : End If
|
|
|
514
|
+ Set_產地標圖片導入() : Set_設計圖圖片導入() : Set_中底LOGO導入() : Set_其他LOGO導入() : Set_再次導入清單()
|
|
|
515
|
+ 列印用SQL = 樣品單號_tb.Text : QA = 清單_dgv(3, e.RowIndex).Value.ToString
|
|
|
516
|
+ If 開發部門 = False And 確認部門 = True Then
|
|
|
517
|
+ If QA = "CFM" Then : 樣品單列印_bt.Enabled = True : 樣品單存檔_bt.Enabled = True : 刷新資料_bt.Enabled = True : 刪除樣品單_bt.Enabled = True
|
|
|
518
|
+ Else : 樣品單列印_bt.Enabled = False : 樣品單存檔_bt.Enabled = False : 刷新資料_bt.Enabled = False : 刪除樣品單_bt.Enabled = False : End If
|
|
|
519
|
+ ElseIf 開發部門 = True And 確認部門 = False Then
|
|
|
520
|
+ If QA = "ILR" Or QA = "FLR" Or QA = "SMS" Or QA = "SMU" Or QA = "Proto" Or QA = "Line" Or QA = "Canada" Then
|
|
|
521
|
+ 樣品單列印_bt.Enabled = True : 樣品單存檔_bt.Enabled = True : 刷新資料_bt.Enabled = True : 刪除樣品單_bt.Enabled = True
|
|
|
522
|
+ Else : 樣品單列印_bt.Enabled = False : 樣品單存檔_bt.Enabled = False : 刷新資料_bt.Enabled = False : 刪除樣品單_bt.Enabled = False : End If
|
|
515
|
523
|
End If
|
|
|
524
|
+ ComboBox8下拉表單資料載入()
|
|
|
525
|
+ 階段_cb.Text = 清單_dgv(3, e.RowIndex).Value.ToString : VIONIC_tb.Text = 季節_tb.Text
|
|
|
526
|
+ 月_tb.Text = Microsoft.VisualBasic.Left(顏色_dgv(32, 0).Value.ToString, 4) : 天_tb.Text = Mid(顏色_dgv(32, 0).Value.ToString, 6, 2)
|
|
|
527
|
+ 年_tb.Text = Microsoft.VisualBasic.Right(顏色_dgv(32, 0).Value.ToString, 2)
|
|
|
528
|
+ 樣式名稱_tb.Text = 型體名字_tb.Text : 型體號_tb.Text = 型體號碼_tb.Text : 工廠1_tb.Text = 工廠_tb.Text
|
|
|
529
|
+ 顏色_tb.Text = 顏色_dgv(33, 0).Value.ToString : Material_Article_tb.Text = 顏色_dgv(34, 0).Value.ToString : 楦頭1_tb.Text = 楦頭_tb.Text
|
|
|
530
|
+ Construc_Name_tb.Text = 顏色_dgv(35, 0).Value.ToString : 鞋墊_tb.Text = 顏色_dgv(36, 0).Value.ToString
|
|
|
531
|
+ 鞋床_tb.Text = 顏色_dgv(37, 0).Value.ToString : 掛牌_tb.Text = 顏色_dgv(38, 0).Value.ToString & "/" & 顏色_dgv(39, 0).Value.ToString
|
|
|
532
|
+ 備註_tb.Text = 顏色_dgv(43, 0).Value.ToString : 尺寸_cb.Text = 顏色_dgv(38, 0).Value.ToString
|
|
|
533
|
+ Gender_cb.Text = 顏色_dgv(39, 0).Value.ToString : Wldth_cb.Text = 顏色_dgv(40, 0).Value.ToString
|
|
516
|
534
|
End If
|
|
517
|
|
- VIONIC_tb.Text = 季節_tb.Text : 樣式名稱_tb.Text = 型體名字_tb.Text : 型體號_tb.Text = 型體號碼_tb.Text : 工廠1_tb.Text = 工廠_tb.Text : 楦頭1_tb.Text = 楦頭_tb.Text
|
|
518
|
|
- If 階段_cb.Text = "ILR" Then : Stage_cb.Text = "ILR" : ElseIf 階段_cb.Text = "FLR" Then : Stage_cb.Text = "FLR" : ElseIf 階段_cb.Text = "SMS" Then : Stage_cb.Text = "SS"
|
|
519
|
|
- ElseIf 階段_cb.Text = "SMU" Or 階段_cb.Text = "SMU" Then : Stage_cb.Text = "" : ElseIf 階段_cb.Text = "Proto" Then : Stage_cb.Text = "Proto"
|
|
520
|
|
- ElseIf 階段_cb.Text = "Line" Then : Stage_cb.Text = "Line" : ElseIf 階段_cb.Text = "Canada" Then : Stage_cb.Text = "Canada" : End If
|
|
521
|
|
- If 階段_cb.Text = "ILR" Or 階段_cb.Text = "FLR" Then : 發展_ch.Checked = True : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
522
|
|
- ElseIf 階段_cb.Text = "CFM" Then : 發展_ch.Checked = False : 確認_ch.Checked = True : 銷售樣本_ch.Checked = False
|
|
523
|
|
- ElseIf 階段_cb.Text = "SMS" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = True
|
|
524
|
|
- ElseIf 階段_cb.Text = "SMU" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
525
|
|
- ElseIf 階段_cb.Text = "Proto" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
526
|
|
- ElseIf 階段_cb.Text = "Line" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
527
|
|
- ElseIf 階段_cb.Text = "Canada" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False : End If
|
|
528
|
535
|
End If
|
|
529
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
536
|
+ VIONIC_tb.Text = 季節_tb.Text : 樣式名稱_tb.Text = 型體名字_tb.Text : 型體號_tb.Text = 型體號碼_tb.Text : 工廠1_tb.Text = 工廠_tb.Text : 楦頭1_tb.Text = 楦頭_tb.Text
|
|
|
537
|
+ If 階段_cb.Text = "ILR" Then : Stage_cb.Text = "ILR" : ElseIf 階段_cb.Text = "FLR" Then : Stage_cb.Text = "FLR" : ElseIf 階段_cb.Text = "SMS" Then : Stage_cb.Text = "SS"
|
|
|
538
|
+ ElseIf 階段_cb.Text = "SMU" Or 階段_cb.Text = "SMU" Then : Stage_cb.Text = "" : ElseIf 階段_cb.Text = "Proto" Then : Stage_cb.Text = "Proto"
|
|
|
539
|
+ ElseIf 階段_cb.Text = "Line" Then : Stage_cb.Text = "Line" : ElseIf 階段_cb.Text = "Canada" Then : Stage_cb.Text = "Canada" : End If
|
|
|
540
|
+ If 階段_cb.Text = "ILR" Or 階段_cb.Text = "FLR" Then : 發展_ch.Checked = True : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
541
|
+ ElseIf 階段_cb.Text = "CFM" Then : 發展_ch.Checked = False : 確認_ch.Checked = True : 銷售樣本_ch.Checked = False
|
|
|
542
|
+ ElseIf 階段_cb.Text = "SMS" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = True
|
|
|
543
|
+ ElseIf 階段_cb.Text = "SMU" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
544
|
+ ElseIf 階段_cb.Text = "Proto" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
545
|
+ ElseIf 階段_cb.Text = "Line" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
546
|
+ ElseIf 階段_cb.Text = "Canada" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False : End If
|
|
|
547
|
+ End If
|
|
530
|
548
|
End Sub
|
|
531
|
549
|
Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片1_dgv.CellClick
|
|
532
|
550
|
If e.RowIndex = -1 Then : Else : TextBox4.Text = 圖片1_dgv(4, e.RowIndex).Value.ToString : Set_產地標圖片導入() : End If
|
|
|
@@ -541,29 +559,27 @@ Public Class 中文樣品單
|
|
541
|
559
|
If e.RowIndex = -1 Then : Else : TextBox17.Text = 圖片3_dgv(4, e.RowIndex).Value.ToString : Set_其他LOGO導入() : End If
|
|
542
|
560
|
End Sub
|
|
543
|
561
|
Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 顏色_dgv.CellClick
|
|
544
|
|
- Try
|
|
545
|
|
- If e.RowIndex = -1 Then : Else
|
|
546
|
|
- 樣品單顏色_tb.Text = 顏色_dgv(2, e.RowIndex).Value.ToString : TextBox9.Text = 顏色_dgv(1, e.RowIndex).Value.ToString : VIONIC_tb.Text = 季節_tb.Text
|
|
547
|
|
- 月_tb.Text = Microsoft.VisualBasic.Left(顏色_dgv(32, e.RowIndex).Value.ToString, 4) : 天_tb.Text = Mid(顏色_dgv(32, e.RowIndex).Value.ToString, 6, 2)
|
|
548
|
|
- 年_tb.Text = Microsoft.VisualBasic.Right(顏色_dgv(32, e.RowIndex).Value.ToString, 2)
|
|
549
|
|
- 樣式名稱_tb.Text = 型體名字_tb.Text : 型體號_tb.Text = 型體號碼_tb.Text : 工廠1_tb.Text = 工廠_tb.Text
|
|
550
|
|
- 顏色_tb.Text = 顏色_dgv(33, e.RowIndex).Value.ToString : Material_Article_tb.Text = 顏色_dgv(34, e.RowIndex).Value.ToString : 楦頭1_tb.Text = 楦頭_tb.Text
|
|
551
|
|
- Construc_Name_tb.Text = 顏色_dgv(35, e.RowIndex).Value.ToString : 鞋墊_tb.Text = 顏色_dgv(36, e.RowIndex).Value.ToString
|
|
552
|
|
- 鞋床_tb.Text = 顏色_dgv(37, e.RowIndex).Value.ToString : 掛牌_tb.Text = 顏色_dgv(38, e.RowIndex).Value.ToString & "/" & 顏色_dgv(39, e.RowIndex).Value.ToString
|
|
553
|
|
- 備註_tb.Text = 顏色_dgv(43, e.RowIndex).Value.ToString : 尺寸_cb.Text = 顏色_dgv(38, e.RowIndex).Value.ToString
|
|
554
|
|
- Gender_cb.Text = 顏色_dgv(39, e.RowIndex).Value.ToString : Wldth_cb.Text = 顏色_dgv(40, e.RowIndex).Value.ToString
|
|
555
|
|
- If 階段_cb.Text = "ILR" Then : Stage_cb.Text = "ILR" : ElseIf 階段_cb.Text = "FLR" Then : Stage_cb.Text = "FLR" : ElseIf 階段_cb.Text = "SMS" Then : Stage_cb.Text = "SS"
|
|
556
|
|
- ElseIf 階段_cb.Text = "SMU" Or 階段_cb.Text = "SMU" Then : Stage_cb.Text = "" : ElseIf 階段_cb.Text = "Proto" Then : Stage_cb.Text = "Proto"
|
|
557
|
|
- ElseIf 階段_cb.Text = "Line" Then : Stage_cb.Text = "Line" : ElseIf 階段_cb.Text = "Canada" Then : Stage_cb.Text = "Canada" : End If
|
|
558
|
|
- If 階段_cb.Text = "ILR" Or 階段_cb.Text = "FLR" Then : 發展_ch.Checked = True : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
559
|
|
- ElseIf 階段_cb.Text = "CFM" Then : 發展_ch.Checked = False : 確認_ch.Checked = True : 銷售樣本_ch.Checked = False
|
|
560
|
|
- ElseIf 階段_cb.Text = "SMS" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = True
|
|
561
|
|
- ElseIf 階段_cb.Text = "SMU" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
562
|
|
- ElseIf 階段_cb.Text = "Proto" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
563
|
|
- ElseIf 階段_cb.Text = "Line" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
564
|
|
- ElseIf 階段_cb.Text = "Canada" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False : End If
|
|
565
|
|
- End If
|
|
566
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
562
|
+ If e.RowIndex = -1 Then : Else
|
|
|
563
|
+ 樣品單顏色_tb.Text = 顏色_dgv(2, e.RowIndex).Value.ToString : TextBox9.Text = 顏色_dgv(1, e.RowIndex).Value.ToString : VIONIC_tb.Text = 季節_tb.Text
|
|
|
564
|
+ 月_tb.Text = Microsoft.VisualBasic.Left(顏色_dgv(32, e.RowIndex).Value.ToString, 4) : 天_tb.Text = Mid(顏色_dgv(32, e.RowIndex).Value.ToString, 6, 2)
|
|
|
565
|
+ 年_tb.Text = Microsoft.VisualBasic.Right(顏色_dgv(32, e.RowIndex).Value.ToString, 2)
|
|
|
566
|
+ 樣式名稱_tb.Text = 型體名字_tb.Text : 型體號_tb.Text = 型體號碼_tb.Text : 工廠1_tb.Text = 工廠_tb.Text
|
|
|
567
|
+ 顏色_tb.Text = 顏色_dgv(33, e.RowIndex).Value.ToString : Material_Article_tb.Text = 顏色_dgv(34, e.RowIndex).Value.ToString : 楦頭1_tb.Text = 楦頭_tb.Text
|
|
|
568
|
+ Construc_Name_tb.Text = 顏色_dgv(35, e.RowIndex).Value.ToString : 鞋墊_tb.Text = 顏色_dgv(36, e.RowIndex).Value.ToString
|
|
|
569
|
+ 鞋床_tb.Text = 顏色_dgv(37, e.RowIndex).Value.ToString : 掛牌_tb.Text = 顏色_dgv(38, e.RowIndex).Value.ToString & "/" & 顏色_dgv(39, e.RowIndex).Value.ToString
|
|
|
570
|
+ 備註_tb.Text = 顏色_dgv(43, e.RowIndex).Value.ToString : 尺寸_cb.Text = 顏色_dgv(38, e.RowIndex).Value.ToString
|
|
|
571
|
+ Gender_cb.Text = 顏色_dgv(39, e.RowIndex).Value.ToString : Wldth_cb.Text = 顏色_dgv(40, e.RowIndex).Value.ToString
|
|
|
572
|
+ If 階段_cb.Text = "ILR" Then : Stage_cb.Text = "ILR" : ElseIf 階段_cb.Text = "FLR" Then : Stage_cb.Text = "FLR" : ElseIf 階段_cb.Text = "SMS" Then : Stage_cb.Text = "SS"
|
|
|
573
|
+ ElseIf 階段_cb.Text = "SMU" Or 階段_cb.Text = "SMU" Then : Stage_cb.Text = "" : ElseIf 階段_cb.Text = "Proto" Then : Stage_cb.Text = "Proto"
|
|
|
574
|
+ ElseIf 階段_cb.Text = "Line" Then : Stage_cb.Text = "Line" : ElseIf 階段_cb.Text = "Canada" Then : Stage_cb.Text = "Canada" : End If
|
|
|
575
|
+ If 階段_cb.Text = "ILR" Or 階段_cb.Text = "FLR" Then : 發展_ch.Checked = True : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
576
|
+ ElseIf 階段_cb.Text = "CFM" Then : 發展_ch.Checked = False : 確認_ch.Checked = True : 銷售樣本_ch.Checked = False
|
|
|
577
|
+ ElseIf 階段_cb.Text = "SMS" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = True
|
|
|
578
|
+ ElseIf 階段_cb.Text = "SMU" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
579
|
+ ElseIf 階段_cb.Text = "Proto" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
580
|
+ ElseIf 階段_cb.Text = "Line" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False
|
|
|
581
|
+ ElseIf 階段_cb.Text = "Canada" Then : 發展_ch.Checked = False : 確認_ch.Checked = False : 銷售樣本_ch.Checked = False : End If
|
|
|
582
|
+ End If
|
|
567
|
583
|
End Sub
|
|
568
|
584
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 品牌查詢_bt.Click
|
|
569
|
585
|
PP1 = InputBox("請輸入要查詢的資料") : ComboBox1下拉表單資料載入() : If (品牌_cb.Items.Count = 0) Then : Else : 品牌_cb.SelectedIndex = 0 : End If
|
|
|
@@ -697,14 +713,25 @@ Public Class 中文樣品單
|
|
697
|
713
|
If 複製樣品單_ch.Checked = True Then : 新增樣品單_ch.Checked = False : 複製樣品單_ch.Checked = True : Else : 新增樣品單_ch.Checked = True : 複製樣品單_ch.Checked = False : End If
|
|
698
|
714
|
End Sub
|
|
699
|
715
|
Private Sub Set_樣品單流水編號設定1()
|
|
700
|
|
- Try
|
|
701
|
|
- 新增樣品單_bt.Enabled = False : 樣品單存檔_bt.Enabled = False : 樣品單列印_bt.Enabled = False
|
|
702
|
|
- 新增顏色清單_bt.Enabled = True : 新增項目清單_bt.Enabled = True : 新增廠商清單_bt.Enabled = True : 新增面料_bt.Enabled = True
|
|
703
|
|
- 新增內裏_bt.Enabled = True : 新增底部_bt.Enabled = True : 新增飾物_bt.Enabled = True : 新增OR複製_bt.Enabled = True : 產地標清單_bt.Enabled = True : 設計圖清單_bt.Enabled = True
|
|
704
|
|
- 刪除面料_bt.Enabled = True : 刪除內裏_bt.Enabled = True : 刪除底部_bt.Enabled = True : 刪除飾物_bt.Enabled = True : 刪除顏色_bt.Enabled = True : 新增顏色_bt.Enabled = True
|
|
705
|
|
- SQL_最後一筆樣品流水號()
|
|
706
|
|
- If dr.Read() Then : 樣品單流水號變數1 = dr("樣品流水號").ToString : Else : 樣品單流水號變數1 = "" : End If : conn.Close()
|
|
707
|
|
- Dim NUM1 As Integer = Double.Parse(Strings.Right(樣品單流水號變數1, 8) + 1)
|
|
|
716
|
+ 新增樣品單_bt.Enabled = False : 樣品單存檔_bt.Enabled = False : 樣品單列印_bt.Enabled = False
|
|
|
717
|
+ 新增顏色清單_bt.Enabled = True : 新增項目清單_bt.Enabled = True : 新增廠商清單_bt.Enabled = True : 新增面料_bt.Enabled = True
|
|
|
718
|
+ 新增內裏_bt.Enabled = True : 新增底部_bt.Enabled = True : 新增飾物_bt.Enabled = True : 新增OR複製_bt.Enabled = True : 產地標清單_bt.Enabled = True : 設計圖清單_bt.Enabled = True
|
|
|
719
|
+ 刪除面料_bt.Enabled = True : 刪除內裏_bt.Enabled = True : 刪除底部_bt.Enabled = True : 刪除飾物_bt.Enabled = True : 刪除顏色_bt.Enabled = True : 新增顏色_bt.Enabled = True
|
|
|
720
|
+ SQL_最後一筆樣品流水號()
|
|
|
721
|
+ If dr.Read() Then : 樣品單流水號變數1 = dr("樣品流水號").ToString : Else : 樣品單流水號變數1 = "" : End If : conn.Close()
|
|
|
722
|
+ Dim NUM1 As Integer = Double.Parse(Strings.Right(樣品單流水號變數1, 8) + 1)
|
|
|
723
|
+ If NUM1 < 10 Then : 樣品單流水號變數1 = "SA" & "0000000" & NUM1
|
|
|
724
|
+ ElseIf NUM1 > 9 And NUM1 < 100 Then : 樣品單流水號變數1 = "SA" & "000000" & NUM1
|
|
|
725
|
+ ElseIf NUM1 > 99 And NUM1 < 1000 Then : 樣品單流水號變數1 = "SA" & "00000" & NUM1
|
|
|
726
|
+ ElseIf NUM1 > 999 And NUM1 < 10000 Then : 樣品單流水號變數1 = "SA" & "0000" & NUM1
|
|
|
727
|
+ ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 樣品單流水號變數1 = "SA" & "000" & NUM1
|
|
|
728
|
+ ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 樣品單流水號變數1 = "SA" & "00" & NUM1
|
|
|
729
|
+ ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 樣品單流水號變數1 = "SA" & "0" & NUM1
|
|
|
730
|
+ ElseIf NUM1 > 9999999 Then : 樣品單流水號變數1 = "SA" & NUM1 : End If
|
|
|
731
|
+ SQL_樣品流水號()
|
|
|
732
|
+ If dr.Read() Then
|
|
|
733
|
+ SQL_樣品流水號1() : If dr.Read() Then : 樣品單流水號變數1 = dr("樣品流水號").ToString : Else : 樣品單流水號變數1 = "" : End If : conn.Close()
|
|
|
734
|
+ NUM1 = Double.Parse(Strings.Right(樣品單流水號變數1, 8) + 1)
|
|
708
|
735
|
If NUM1 < 10 Then : 樣品單流水號變數1 = "SA" & "0000000" & NUM1
|
|
709
|
736
|
ElseIf NUM1 > 9 And NUM1 < 100 Then : 樣品單流水號變數1 = "SA" & "000000" & NUM1
|
|
710
|
737
|
ElseIf NUM1 > 99 And NUM1 < 1000 Then : 樣品單流水號變數1 = "SA" & "00000" & NUM1
|
|
|
@@ -712,22 +739,9 @@ Public Class 中文樣品單
|
|
712
|
739
|
ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 樣品單流水號變數1 = "SA" & "000" & NUM1
|
|
713
|
740
|
ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 樣品單流水號變數1 = "SA" & "00" & NUM1
|
|
714
|
741
|
ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 樣品單流水號變數1 = "SA" & "0" & NUM1
|
|
715
|
|
- ElseIf NUM1 > 9999999 Then : 樣品單流水號變數1 = "SA" & NUM1 : End If
|
|
716
|
|
- SQL_樣品流水號()
|
|
717
|
|
- If dr.Read() Then
|
|
718
|
|
- SQL_樣品流水號1() : If dr.Read() Then : 樣品單流水號變數1 = dr("樣品流水號").ToString : Else : 樣品單流水號變數1 = "" : End If : conn.Close()
|
|
719
|
|
- NUM1 = Double.Parse(Strings.Right(樣品單流水號變數1, 8) + 1)
|
|
720
|
|
- If NUM1 < 10 Then : 樣品單流水號變數1 = "SA" & "0000000" & NUM1
|
|
721
|
|
- ElseIf NUM1 > 9 And NUM1 < 100 Then : 樣品單流水號變數1 = "SA" & "000000" & NUM1
|
|
722
|
|
- ElseIf NUM1 > 99 And NUM1 < 1000 Then : 樣品單流水號變數1 = "SA" & "00000" & NUM1
|
|
723
|
|
- ElseIf NUM1 > 999 And NUM1 < 10000 Then : 樣品單流水號變數1 = "SA" & "0000" & NUM1
|
|
724
|
|
- ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 樣品單流水號變數1 = "SA" & "000" & NUM1
|
|
725
|
|
- ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 樣品單流水號變數1 = "SA" & "00" & NUM1
|
|
726
|
|
- ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 樣品單流水號變數1 = "SA" & "0" & NUM1
|
|
727
|
|
- ElseIf NUM1 > 9999999 Then : 樣品單流水號變數1 = "SA" & NUM1
|
|
728
|
|
- End If
|
|
729
|
|
- Else : End If : conn.Close()
|
|
730
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
742
|
+ ElseIf NUM1 > 9999999 Then : 樣品單流水號變數1 = "SA" & NUM1
|
|
|
743
|
+ End If
|
|
|
744
|
+ Else : End If : conn.Close()
|
|
731
|
745
|
End Sub
|
|
732
|
746
|
Private Sub Set_樣品單流水編號設定1_1()
|
|
733
|
747
|
SQL_樣品單流水編號設定1_1() : conn.Close()
|
|
|
@@ -736,8 +750,19 @@ Public Class 中文樣品單
|
|
736
|
750
|
SQL_樣品單流水編號設定2() : If dr.Read() Then : 樣品單流水號變數2 = dr("樣品流水號一").ToString : Else : 樣品單流水號變數2 = "" : End If : conn.Close()
|
|
737
|
751
|
End Sub
|
|
738
|
752
|
Private Sub Set_樣品單流水編號設定2_1()
|
|
739
|
|
- Try
|
|
740
|
|
- Dim NUM2 As Integer
|
|
|
753
|
+ Dim NUM2 As Integer
|
|
|
754
|
+ NUM2 = Double.Parse(Strings.Right(樣品單流水號變數2, 8) + 1)
|
|
|
755
|
+ If NUM2 < 10 Then : 樣品單流水號變數2 = "CO" & "0000000" & NUM2
|
|
|
756
|
+ ElseIf NUM2 > 9 And NUM2 < 100 Then : 樣品單流水號變數2 = "CO" & "000000" & NUM2
|
|
|
757
|
+ ElseIf NUM2 > 99 And NUM2 < 1000 Then : 樣品單流水號變數2 = "CO" & "00000" & NUM2
|
|
|
758
|
+ ElseIf NUM2 > 999 And NUM2 < 10000 Then : 樣品單流水號變數2 = "CO" & "0000" & NUM2
|
|
|
759
|
+ ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "000" & NUM2
|
|
|
760
|
+ ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "00" & NUM2
|
|
|
761
|
+ ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 樣品單流水號變數2 = "CO" & "0" & NUM2
|
|
|
762
|
+ ElseIf NUM2 > 9999999 Then : 樣品單流水號變數2 = "CO" & NUM2 : End If
|
|
|
763
|
+ SQL_樣品單流水編號設定2_1()
|
|
|
764
|
+ If dr.Read() Then
|
|
|
765
|
+ SQL_樣品流水號一() : If dr.Read() Then : 樣品單流水號變數2 = dr("樣品流水號一").ToString : Else : 樣品單流水號變數2 = "" : End If : conn.Close()
|
|
741
|
766
|
NUM2 = Double.Parse(Strings.Right(樣品單流水號變數2, 8) + 1)
|
|
742
|
767
|
If NUM2 < 10 Then : 樣品單流水號變數2 = "CO" & "0000000" & NUM2
|
|
743
|
768
|
ElseIf NUM2 > 9 And NUM2 < 100 Then : 樣品單流水號變數2 = "CO" & "000000" & NUM2
|
|
|
@@ -747,153 +772,134 @@ Public Class 中文樣品單
|
|
747
|
772
|
ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "00" & NUM2
|
|
748
|
773
|
ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 樣品單流水號變數2 = "CO" & "0" & NUM2
|
|
749
|
774
|
ElseIf NUM2 > 9999999 Then : 樣品單流水號變數2 = "CO" & NUM2 : End If
|
|
750
|
|
- SQL_樣品單流水編號設定2_1()
|
|
751
|
|
- If dr.Read() Then
|
|
752
|
|
- SQL_樣品流水號一() : If dr.Read() Then : 樣品單流水號變數2 = dr("樣品流水號一").ToString : Else : 樣品單流水號變數2 = "" : End If : conn.Close()
|
|
753
|
|
- NUM2 = Double.Parse(Strings.Right(樣品單流水號變數2, 8) + 1)
|
|
754
|
|
- If NUM2 < 10 Then : 樣品單流水號變數2 = "CO" & "0000000" & NUM2
|
|
755
|
|
- ElseIf NUM2 > 9 And NUM2 < 100 Then : 樣品單流水號變數2 = "CO" & "000000" & NUM2
|
|
756
|
|
- ElseIf NUM2 > 99 And NUM2 < 1000 Then : 樣品單流水號變數2 = "CO" & "00000" & NUM2
|
|
757
|
|
- ElseIf NUM2 > 999 And NUM2 < 10000 Then : 樣品單流水號變數2 = "CO" & "0000" & NUM2
|
|
758
|
|
- ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "000" & NUM2
|
|
759
|
|
- ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "00" & NUM2
|
|
760
|
|
- ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 樣品單流水號變數2 = "CO" & "0" & NUM2
|
|
761
|
|
- ElseIf NUM2 > 9999999 Then : 樣品單流水號變數2 = "CO" & NUM2 : End If
|
|
762
|
|
- Else : End If : conn.Close()
|
|
763
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
775
|
+ Else : End If : conn.Close()
|
|
764
|
776
|
End Sub
|
|
765
|
777
|
Private Sub Set_樣品單流水編號設定2_2()
|
|
766
|
|
- Try
|
|
767
|
|
- SQL_樣品單流水編號設定2() : If dr.Read() Then : 樣品單流水號變數2 = dr("樣品流水號一").ToString : Else : 樣品單流水號變數2 = "" : End If : conn.Close()
|
|
768
|
|
- Dim NUM2 As Integer = Double.Parse(Strings.Right(樣品單流水號變數2, 8) + 1)
|
|
769
|
|
- If NUM2 < 10 Then : 樣品單流水號變數2 = "CO" & "0000000" & NUM2
|
|
770
|
|
- ElseIf NUM2 > 9 And NUM2 < 100 Then : 樣品單流水號變數2 = "CO" & "000000" & NUM2
|
|
771
|
|
- ElseIf NUM2 > 99 And NUM2 < 1000 Then : 樣品單流水號變數2 = "CO" & "00000" & NUM2
|
|
772
|
|
- ElseIf NUM2 > 999 And NUM2 < 10000 Then : 樣品單流水號變數2 = "CO" & "0000" & NUM2
|
|
773
|
|
- ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "000" & NUM2
|
|
774
|
|
- ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "00" & NUM2
|
|
775
|
|
- ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 樣品單流水號變數2 = "CO" & "0" & NUM2
|
|
776
|
|
- ElseIf NUM2 > 9999999 Then : 樣品單流水號變數2 = "CO" & NUM2 : End If
|
|
777
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
778
|
+ SQL_樣品單流水編號設定2() : If dr.Read() Then : 樣品單流水號變數2 = dr("樣品流水號一").ToString : Else : 樣品單流水號變數2 = "" : End If : conn.Close()
|
|
|
779
|
+ Dim NUM2 As Integer = Double.Parse(Strings.Right(樣品單流水號變數2, 8) + 1)
|
|
|
780
|
+ If NUM2 < 10 Then : 樣品單流水號變數2 = "CO" & "0000000" & NUM2
|
|
|
781
|
+ ElseIf NUM2 > 9 And NUM2 < 100 Then : 樣品單流水號變數2 = "CO" & "000000" & NUM2
|
|
|
782
|
+ ElseIf NUM2 > 99 And NUM2 < 1000 Then : 樣品單流水號變數2 = "CO" & "00000" & NUM2
|
|
|
783
|
+ ElseIf NUM2 > 999 And NUM2 < 10000 Then : 樣品單流水號變數2 = "CO" & "0000" & NUM2
|
|
|
784
|
+ ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "000" & NUM2
|
|
|
785
|
+ ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 樣品單流水號變數2 = "CO" & "00" & NUM2
|
|
|
786
|
+ ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 樣品單流水號變數2 = "CO" & "0" & NUM2
|
|
|
787
|
+ ElseIf NUM2 > 9999999 Then : 樣品單流水號變數2 = "CO" & NUM2 : End If
|
|
778
|
788
|
End Sub
|
|
779
|
789
|
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 新增樣品單_bt.Click
|
|
780
|
|
- Try
|
|
781
|
|
- If 開發部門 = False And 確認部門 = True Then : ElseIf 開發部門 = True And 確認部門 = False Then : 中文樣品單階段.ShowDialog() : 階段_cb.Text = QA : End If
|
|
782
|
|
- 排序(0) = "ORDER BY 確認樣品單控制表.顏色, 確認樣品單明細表.細項" : 排序(1) = "ORDER BY 確認樣品單控制表暫存檔.顏色, 確認樣品單明細表暫存檔.細項"
|
|
783
|
|
- 面料顏色排序_bt.Enabled = False : 面料項次排序_bt.Enabled = True : 內裏顏色排序_tb.Enabled = False : 內裏項次排序_tb.Enabled = True
|
|
784
|
|
- 底部顏色排序_bt.Enabled = False : 底部項次排序_bt.Enabled = True : 飾物顏色排序_bt.Enabled = False : 飾物項次排序_bt.Enabled = True
|
|
785
|
|
- Set_再次導入清單()
|
|
786
|
|
- If 新增樣品單_ch.Checked = True Then
|
|
787
|
|
- PA = InputBox("請輸入需要新增的顏色數量") : DTP(0) = Today
|
|
788
|
|
- If DTP(0) = "" Then : 建檔日期_dtp.Format = DateTimePickerFormat.Custom : 建檔日期_dtp.CustomFormat = " "
|
|
789
|
|
- Else : 建檔日期_dtp.Format = DateTimePickerFormat.Short : 建檔日期_dtp.Text = DTP(0) : End If
|
|
790
|
|
- Set_樣品單流水編號設定1()
|
|
791
|
|
- 品牌_cb.Items.Clear() : 季節_tb.Items.Clear() : 工廠_tb.Items.Clear() : 楦頭_tb.Items.Clear() : Construc_tionName_cb.Items.Clear()
|
|
792
|
|
- 型體名字_tb.Items.Clear() : 型體號碼_tb.Items.Clear()
|
|
793
|
|
- ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入()
|
|
794
|
|
- ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入()
|
|
795
|
|
- 内里OR大底_tb.Text = "透明色底+" & "SAMPLE NOT FOR RESALE" & "字体(注：浅色内里印黑色/深色内里印白色)"
|
|
796
|
|
- TextBox4.Text = "" : TextBox5.Text = "" : 舊形體季別_tb.Text = "" : 新型體_ch.Checked = True : 建檔日期_dtp.Value = Today
|
|
797
|
|
- TextBox10.Text = "" : TextBox17.Text = "" : QA = ""
|
|
798
|
|
- PictureBox1.Image = Nothing : PictureBox2.Image = Nothing : PictureBox3.Image = Nothing : PictureBox4.Image = Nothing
|
|
799
|
|
- 樣品單號_tb.Text = 樣品單流水號變數1
|
|
800
|
|
- Set_樣品單流水編號設定1_1()
|
|
|
790
|
+ If 開發部門 = False And 確認部門 = True Then : ElseIf 開發部門 = True And 確認部門 = False Then : 中文樣品單階段.ShowDialog() : 階段_cb.Text = QA : End If
|
|
|
791
|
+ 排序(0) = "ORDER BY 確認樣品單控制表.顏色, 確認樣品單明細表.細項" : 排序(1) = "ORDER BY 確認樣品單控制表暫存檔.顏色, 確認樣品單明細表暫存檔.細項"
|
|
|
792
|
+ 面料顏色排序_bt.Enabled = False : 面料項次排序_bt.Enabled = True : 內裏顏色排序_tb.Enabled = False : 內裏項次排序_tb.Enabled = True
|
|
|
793
|
+ 底部顏色排序_bt.Enabled = False : 底部項次排序_bt.Enabled = True : 飾物顏色排序_bt.Enabled = False : 飾物項次排序_bt.Enabled = True
|
|
|
794
|
+ Set_再次導入清單()
|
|
|
795
|
+ If 新增樣品單_ch.Checked = True Then
|
|
|
796
|
+ PA = InputBox("請輸入需要新增的顏色數量") : DTP(0) = Today
|
|
|
797
|
+ If DTP(0) = "" Then : 建檔日期_dtp.Format = DateTimePickerFormat.Custom : 建檔日期_dtp.CustomFormat = " "
|
|
|
798
|
+ Else : 建檔日期_dtp.Format = DateTimePickerFormat.Short : 建檔日期_dtp.Text = DTP(0) : End If
|
|
|
799
|
+ Set_樣品單流水編號設定1()
|
|
|
800
|
+ 品牌_cb.Items.Clear() : 季節_tb.Items.Clear() : 工廠_tb.Items.Clear() : 楦頭_tb.Items.Clear() : Construc_tionName_cb.Items.Clear()
|
|
|
801
|
+ 型體名字_tb.Items.Clear() : 型體號碼_tb.Items.Clear()
|
|
|
802
|
+ ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入()
|
|
|
803
|
+ ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入()
|
|
|
804
|
+ 内里OR大底_tb.Text = "透明色底+" & "SAMPLE NOT FOR RESALE" & "字体(注：浅色内里印黑色/深色内里印白色)"
|
|
|
805
|
+ TextBox4.Text = "" : TextBox5.Text = "" : 舊形體季別_tb.Text = "" : 新型體_ch.Checked = True : 建檔日期_dtp.Value = Today
|
|
|
806
|
+ TextBox10.Text = "" : TextBox17.Text = "" : QA = ""
|
|
|
807
|
+ PictureBox1.Image = Nothing : PictureBox2.Image = Nothing : PictureBox3.Image = Nothing : PictureBox4.Image = Nothing
|
|
|
808
|
+ 樣品單號_tb.Text = 樣品單流水號變數1
|
|
|
809
|
+ Set_樣品單流水編號設定1_1()
|
|
|
810
|
+ '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
811
|
+ Set_樣品單流水編號設定2()
|
|
|
812
|
+ If 發展_ch.Checked = True Then : ASD = "D" : ElseIf 確認_ch.Checked = True Then : ASD = "C" : ElseIf 銷售樣本_ch.Checked = True Then : ASD = "S"
|
|
|
813
|
+ ElseIf 發展_ch.Checked = False And 確認_ch.Checked = False And 銷售樣本_ch.Checked = False Then : ASD = "" : End If
|
|
|
814
|
+ For i As Integer = 1 To PA : Set_樣品單流水編號設定2_1() : SQL_新增確認樣品單控制表暫存檔() : conn.Close() : Next
|
|
|
815
|
+ 暫存模式 = True
|
|
|
816
|
+ ElseIf 新增樣品單_ch.Checked = False Then
|
|
|
817
|
+ If 樣品單號_tb.Text = "" Then : MsgBox("沒有選擇要新增樣品單的範本，請重新選擇要新增的樣品單類型") : Else
|
|
|
818
|
+ Set_樣品單流水編號設定1() : Set_樣品單流水編號設定1_1()
|
|
801
|
819
|
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
802
|
820
|
Set_樣品單流水編號設定2()
|
|
803
|
|
- If 發展_ch.Checked = True Then : ASD = "D" : ElseIf 確認_ch.Checked = True Then : ASD = "C" : ElseIf 銷售樣本_ch.Checked = True Then : ASD = "S"
|
|
804
|
|
- ElseIf 發展_ch.Checked = False And 確認_ch.Checked = False And 銷售樣本_ch.Checked = False Then : ASD = "" : End If
|
|
805
|
|
- For i As Integer = 1 To PA : Set_樣品單流水編號設定2_1() : SQL_新增確認樣品單控制表暫存檔() : conn.Close() : Next
|
|
806
|
|
- 暫存模式 = True
|
|
807
|
|
- ElseIf 新增樣品單_ch.Checked = False Then
|
|
808
|
|
- If 樣品單號_tb.Text = "" Then : MsgBox("沒有選擇要新增樣品單的範本，請重新選擇要新增的樣品單類型") : Else
|
|
809
|
|
- Set_樣品單流水編號設定1() : Set_樣品單流水編號設定1_1()
|
|
|
821
|
+ For i As Integer = 0 To 顏色_dgv.Rows.Count - 1
|
|
|
822
|
+ Set_樣品單流水編號設定2_1()
|
|
|
823
|
+ PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("訂單顏色").Value.ToString
|
|
|
824
|
+ PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
|
|
|
825
|
+ PA4 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
|
|
|
826
|
+ PA6 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
|
|
|
827
|
+ PA8 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
|
|
|
828
|
+ PA10 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value.ToString
|
|
|
829
|
+ PA12 = 顏色_dgv.Rows(i).Cells("Gender").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Width").Value.ToString
|
|
|
830
|
+ PA14 = 顏色_dgv.Rows(i).Cells("D_C_S").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("Stage").Value.ToString
|
|
|
831
|
+ PA16 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString
|
|
|
832
|
+ PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString
|
|
|
833
|
+ SQL_新增確認樣品單控制表暫存檔1() : conn.Close()
|
|
810
|
834
|
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
811
|
|
- Set_樣品單流水編號設定2()
|
|
812
|
|
- For i As Integer = 0 To 顏色_dgv.Rows.Count - 1
|
|
813
|
|
- Set_樣品單流水編號設定2_1()
|
|
814
|
|
- PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("訂單顏色").Value.ToString
|
|
815
|
|
- PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
|
|
816
|
|
- PA4 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
|
|
817
|
|
- PA6 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
|
|
818
|
|
- PA8 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
|
|
819
|
|
- PA10 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value.ToString
|
|
820
|
|
- PA12 = 顏色_dgv.Rows(i).Cells("Gender").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Width").Value.ToString
|
|
821
|
|
- PA14 = 顏色_dgv.Rows(i).Cells("D_C_S").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("Stage").Value.ToString
|
|
822
|
|
- PA16 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString
|
|
823
|
|
- PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString
|
|
824
|
|
- SQL_新增確認樣品單控制表暫存檔1() : conn.Close()
|
|
825
|
|
- '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
826
|
|
- 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
827
|
|
- 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
828
|
|
- 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
829
|
|
- PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
830
|
|
- SQL_確認樣品單明細表清單1()
|
|
831
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
832
|
|
- For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
833
|
|
- If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & "0" & ii + 1
|
|
834
|
|
- ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & ii + 1 : End If
|
|
835
|
|
- PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
836
|
|
- PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
837
|
|
- SQL_新增確認樣品單控制表暫存檔2() : conn.Close()
|
|
838
|
|
- 新增面料 = ii + 1
|
|
839
|
|
- Next
|
|
|
835
|
+ 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
|
836
|
+ 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
837
|
+ 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
|
838
|
+ PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
|
839
|
+ SQL_確認樣品單明細表清單1()
|
|
|
840
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
|
841
|
+ For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
|
842
|
+ If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & "0" & ii + 1
|
|
|
843
|
+ ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & ii + 1 : End If
|
|
|
844
|
+ PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
|
845
|
+ PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
|
846
|
+ SQL_新增確認樣品單控制表暫存檔2() : conn.Close()
|
|
|
847
|
+ 新增面料 = ii + 1
|
|
|
848
|
+ Next
|
|
840
|
849
|
|
|
841
|
|
- 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
842
|
|
- 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
843
|
|
- 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
844
|
|
- PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
845
|
|
- SQL_確認樣品單明細表清單2()
|
|
846
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
847
|
|
- For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
848
|
|
- If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & "0" & ii + 1
|
|
849
|
|
- ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & ii + 1 : End If
|
|
850
|
|
- PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
851
|
|
- PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
852
|
|
- SQL_新增確認樣品單控制表暫存檔3() : conn.Close()
|
|
853
|
|
- 新增內裏 = ii + 1
|
|
854
|
|
- Next
|
|
|
850
|
+ 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
|
851
|
+ 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
852
|
+ 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
|
853
|
+ PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
|
854
|
+ SQL_確認樣品單明細表清單2()
|
|
|
855
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
|
856
|
+ For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
|
857
|
+ If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & "0" & ii + 1
|
|
|
858
|
+ ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & ii + 1 : End If
|
|
|
859
|
+ PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
|
860
|
+ PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
|
861
|
+ SQL_新增確認樣品單控制表暫存檔3() : conn.Close()
|
|
|
862
|
+ 新增內裏 = ii + 1
|
|
|
863
|
+ Next
|
|
855
|
864
|
|
|
856
|
|
- 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
857
|
|
- 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
858
|
|
- 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
859
|
|
- PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
860
|
|
- SQL_確認樣品單明細表清單3()
|
|
861
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
862
|
|
- For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
863
|
|
- If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & "0" & ii + 1
|
|
864
|
|
- ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & ii + 1 : End If
|
|
865
|
|
- PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
866
|
|
- PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
867
|
|
- SQL_新增確認樣品單明細表暫存檔() : conn.Close()
|
|
868
|
|
- 新增底部 = ii + 1
|
|
869
|
|
- Next
|
|
|
865
|
+ 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
|
866
|
+ 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
867
|
+ 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
|
868
|
+ PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
|
869
|
+ SQL_確認樣品單明細表清單3()
|
|
|
870
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
|
871
|
+ For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
|
872
|
+ If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & "0" & ii + 1
|
|
|
873
|
+ ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & ii + 1 : End If
|
|
|
874
|
+ PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
|
875
|
+ PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
|
876
|
+ SQL_新增確認樣品單明細表暫存檔() : conn.Close()
|
|
|
877
|
+ 新增底部 = ii + 1
|
|
|
878
|
+ Next
|
|
870
|
879
|
|
|
871
|
|
- 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
872
|
|
- 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
873
|
|
- 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
874
|
|
- PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
875
|
|
- SQL_確認樣品單明細表清單4()
|
|
876
|
|
- da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
877
|
|
- For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
878
|
|
- If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & "0" & ii + 1
|
|
879
|
|
- ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & ii + 1 : End If
|
|
880
|
|
- PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
881
|
|
- PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
882
|
|
- SQL_新增確認樣品單明細表暫存檔3() : conn.Close()
|
|
883
|
|
- 新增飾物 = ii + 1
|
|
884
|
|
- Next
|
|
|
880
|
+ 中繼_dgv.DataSource = Nothing : ds8.Clear()
|
|
|
881
|
+ 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
882
|
+ 中繼_dgv.ColumnHeadersHeight = 25 : 中繼_dgv.AllowUserToAddRows = False
|
|
|
883
|
+ PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
|
|
|
884
|
+ SQL_確認樣品單明細表清單4()
|
|
|
885
|
+ da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
|
|
|
886
|
+ For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
|
|
|
887
|
+ If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & "0" & ii + 1
|
|
|
888
|
+ ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & ii + 1 : End If
|
|
|
889
|
+ PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
|
|
|
890
|
+ PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
|
|
|
891
|
+ SQL_新增確認樣品單明細表暫存檔3() : conn.Close()
|
|
|
892
|
+ 新增飾物 = ii + 1
|
|
885
|
893
|
Next
|
|
886
|
|
- 樣品單號_tb.Text = 樣品單流水號變數1 : 暫存模式 = True
|
|
887
|
|
- End If
|
|
888
|
|
- End If : Set_再次導入清單() : MsgBox("新增準備完成")
|
|
889
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
894
|
+ Next
|
|
|
895
|
+ 樣品單號_tb.Text = 樣品單流水號變數1 : 暫存模式 = True
|
|
|
896
|
+ End If
|
|
|
897
|
+ End If : Set_再次導入清單() : MsgBox("新增準備完成")
|
|
890
|
898
|
End Sub
|
|
891
|
899
|
Private Sub 明細暫存檔寫入()
|
|
892
|
|
- Try
|
|
893
|
|
- Dim ii As Integer = 0
|
|
894
|
|
- If 暫存模式 = True Then : PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString : SQL_新增確認樣品單明細表暫存檔4() : conn.Close()
|
|
895
|
|
- ElseIf 暫存模式 = False Then : PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString : SQL_新增確認樣品單明細表暫存檔5() : conn.Close() : End If
|
|
896
|
|
- Catch ex As Exception : MsgBox(ex.Message) : End Try
|
|
|
900
|
+ Dim ii As Integer = 0
|
|
|
901
|
+ If 暫存模式 = True Then : PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString : SQL_新增確認樣品單明細表暫存檔4() : conn.Close()
|
|
|
902
|
+ ElseIf 暫存模式 = False Then : PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString : SQL_新增確認樣品單明細表暫存檔5() : conn.Close() : End If
|
|
897
|
903
|
End Sub
|
|
898
|
904
|
Private Sub 新增面料_bt_Click(sender As Object, e As EventArgs) Handles 新增面料_bt.Click
|
|
899
|
905
|
編輯模式存檔()
|
|
|
@@ -1261,6 +1267,13 @@ Public Class 中文樣品單
|
|
1261
|
1267
|
SQL_修改確認樣品單控制表1() : conn.Close()
|
|
1262
|
1268
|
Next i
|
|
1263
|
1269
|
End If
|
|
|
1270
|
+ If 面料1_dgv.Rows.Count > 0 Then
|
|
|
1271
|
+ For i = 0 To 面料1_dgv.Rows.Count - 1
|
|
|
1272
|
+ PA = 面料1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 面料1_dgv.Rows(i).Cells("內容").Value.ToString
|
|
|
1273
|
+ SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
|
|
|
1274
|
+ Next i
|
|
|
1275
|
+ End If
|
|
|
1276
|
+
|
|
1264
|
1277
|
If 內裡_dgv.Rows.Count > 0 Then
|
|
1265
|
1278
|
For i = 0 To 內裡_dgv.Rows.Count - 1
|
|
1266
|
1279
|
PA = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
|
|
|
@@ -1269,6 +1282,13 @@ Public Class 中文樣品單
|
|
1269
|
1282
|
SQL_修改確認樣品單明細表1() : conn.Close()
|
|
1270
|
1283
|
Next i
|
|
1271
|
1284
|
End If
|
|
|
1285
|
+ If 內裡1_dgv.Rows.Count > 0 Then
|
|
|
1286
|
+ For i = 0 To 內裡1_dgv.Rows.Count - 1
|
|
|
1287
|
+ PA = 內裡1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 內裡1_dgv.Rows(i).Cells("內容").Value.ToString
|
|
|
1288
|
+ SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
|
|
|
1289
|
+ Next i
|
|
|
1290
|
+ End If
|
|
|
1291
|
+
|
|
1272
|
1292
|
If 底部_dgv.Rows.Count > 0 Then
|
|
1273
|
1293
|
For i = 0 To 底部_dgv.Rows.Count - 1
|
|
1274
|
1294
|
PA = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
|
|
|
@@ -1277,15 +1297,29 @@ Public Class 中文樣品單
|
|
1277
|
1297
|
SQL_修改確認樣品單明細表2() : conn.Close()
|
|
1278
|
1298
|
Next i
|
|
1279
|
1299
|
End If
|
|
|
1300
|
+ If 底部1_dgv.Rows.Count > 0 Then
|
|
|
1301
|
+ For i = 0 To 底部1_dgv.Rows.Count - 1
|
|
|
1302
|
+ PA = 底部1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 底部1_dgv.Rows(i).Cells("內容").Value.ToString
|
|
|
1303
|
+ SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
|
|
|
1304
|
+ Next i
|
|
|
1305
|
+ End If
|
|
|
1306
|
+
|
|
1280
|
1307
|
If 飾物_dgv.Rows.Count > 0 Then
|
|
1281
|
1308
|
For i = 0 To 飾物_dgv.Rows.Count - 1
|
|
1282
|
1309
|
PA = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
|
|
1283
|
1310
|
PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
|
|
1284
|
1311
|
PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
|
|
1285
|
1312
|
PA6 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
|
|
1286
|
|
- SQL_修改確認樣品單明細表3() : conn.Close()
|
|
|
1313
|
+ SQL_修改確認樣品單明細表3() : conn.Close() : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
|
|
1287
|
1314
|
Next i
|
|
1288
|
1315
|
End If
|
|
|
1316
|
+ If 飾物1_dgv.Rows.Count > 0 Then
|
|
|
1317
|
+ For i = 0 To 飾物1_dgv.Rows.Count - 1
|
|
|
1318
|
+ PA = 飾物1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 飾物1_dgv.Rows(i).Cells("內容").Value.ToString
|
|
|
1319
|
+ SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
|
|
|
1320
|
+ Next i
|
|
|
1321
|
+ End If
|
|
|
1322
|
+
|
|
1289
|
1323
|
排序(0) = "ORDER BY 確認樣品單控制表.顏色, 確認樣品單明細表.細項" : 排序(1) = "ORDER BY 確認樣品單控制表暫存檔.顏色, 確認樣品單明細表暫存檔.細項"
|
|
1290
|
1324
|
面料顏色排序_bt.Enabled = False : 面料項次排序_bt.Enabled = True : 內裏顏色排序_tb.Enabled = False : 內裏項次排序_tb.Enabled = True
|
|
1291
|
1325
|
底部顏色排序_bt.Enabled = False : 底部項次排序_bt.Enabled = True : 飾物顏色排序_bt.Enabled = False : 飾物項次排序_bt.Enabled = True
|
