B70340 vor 2 Jahren
Ursprung
Commit
cd11f9a94c
24 geänderte Dateien mit 1177 neuen und 696 gelöschten Zeilen
  1. BIN
      .vs/YD-ERP-SYS/FileContentIndex/61dc1272-349a-4c57-a7a6-15124789fd3f.vsidx
  2. BIN
      .vs/YD-ERP-SYS/FileContentIndex/c77b1ff5-1e1c-4447-b37b-c66a3899faaf.vsidx
  3. BIN
      .vs/YD-ERP-SYS/v17/.suo
  4. 1
    1
      YD-ERP-SYS/Module/SQL_採購系統管理.vb
  5. 11
    0
      YD-ERP-SYS/Module/SQL_業務系統管理.vb
  6. 1
    1
      YD-ERP-SYS/Module/全域變數.vb
  7. 3
    0
      YD-ERP-SYS/YD-ERP-SYS.vbproj
  8. BIN
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe
  9. BIN
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.pdb
  10. BIN
      YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  11. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.exe
  12. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.pdb
  13. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.AssemblyReference.cache
  14. 1
    1
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache
  15. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.GenerateResource.cache
  16. 33
    19
      YD-ERP-SYS/倉儲系統管理/單據狀態查詢.Designer.vb
  17. 52
    40
      YD-ERP-SYS/採購系統管理/供應商資料表.Designer.vb
  18. 2
    2
      YD-ERP-SYS/採購系統管理/供應商資料表.vb
  19. 48
    48
      YD-ERP-SYS/採購系統管理/採購應付帳款.Designer.vb
  20. 55
    27
      YD-ERP-SYS/採購系統管理/採購應付帳款.vb
  21. 66
    66
      YD-ERP-SYS/業務系統管理/應收帳款已收.Designer.vb
  22. 3
    4
      YD-ERP-SYS/業務系統管理/應收帳款已收.vb
  23. 728
    465
      YD-ERP-SYS/業務系統管理/銷售單申請.Designer.vb
  24. 173
    22
      YD-ERP-SYS/業務系統管理/銷售單申請.vb

BIN
.vs/YD-ERP-SYS/FileContentIndex/61dc1272-349a-4c57-a7a6-15124789fd3f.vsidx Datei anzeigen


BIN
.vs/YD-ERP-SYS/FileContentIndex/c77b1ff5-1e1c-4447-b37b-c66a3899faaf.vsidx Datei anzeigen


BIN
.vs/YD-ERP-SYS/v17/.suo Datei anzeigen


+ 1
- 1
YD-ERP-SYS/Module/SQL_採購系統管理.vb Datei anzeigen

79
                                         備註1 = N'" & 供應商資料表.備註1_tb.Text & "', 備註2 = N'" & 供應商資料表.備註2_tb.Text & "', 登入日期 = N'" & 供應商資料表.登入日期_dtp.Value & "', 
79
                                         備註1 = N'" & 供應商資料表.備註1_tb.Text & "', 備註2 = N'" & 供應商資料表.備註2_tb.Text & "', 登入日期 = N'" & 供應商資料表.登入日期_dtp.Value & "', 
80
                                         結算日 = N'" & 供應商資料表.結算日_nud.Value & "', KR1 = N'" & 供應商資料表.KR1_nud.Value & "', KR2 = N'" & 供應商資料表.KR2_nud.Value & "', 
80
                                         結算日 = N'" & 供應商資料表.結算日_nud.Value & "', KR1 = N'" & 供應商資料表.KR1_nud.Value & "', KR2 = N'" & 供應商資料表.KR2_nud.Value & "', 
81
                                         KR3 = N'" & 供應商資料表.KR3_nud.Value & "', PEC = N'" & 供應商資料表.PEC_cb.Text & "', 停用 = N'" & 供應商資料表.停用_ch.Checked & "', 
81
                                         KR3 = N'" & 供應商資料表.KR3_nud.Value & "', PEC = N'" & 供應商資料表.PEC_cb.Text & "', 停用 = N'" & 供應商資料表.停用_ch.Checked & "', 
82
-                                        票期 = N'" & 供應商資料表.票期_nud.Value & "', 支票_私人 = N'" & 供應商資料表.私人支票_tb.Text & "', 支票_公司 = N'" & 供應商資料表.公司支票_tb.Text & "', 
82
+                                        票期 = N'" & 供應商資料表.票期_cb.Text & "', 支票_私人 = N'" & 供應商資料表.私人支票_tb.Text & "', 支票_公司 = N'" & 供應商資料表.公司支票_tb.Text & "', 
83
                                         稅金倍率 = N'" & 供應商資料表.稅金倍率_tb.Text & "', 廣告費倍率 = N'" & 供應商資料表.廣告費倍率_tb.Text & "' 
83
                                         稅金倍率 = N'" & 供應商資料表.稅金倍率_tb.Text & "', 廣告費倍率 = N'" & 供應商資料表.廣告費倍率_tb.Text & "' 
84
                 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')"
84
                 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')"
85
         CmdSet_For_dr()
85
         CmdSet_For_dr()

+ 11
- 0
YD-ERP-SYS/Module/SQL_業務系統管理.vb Datei anzeigen

493
                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
493
                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
494
         CmdSet_For_dr()
494
         CmdSet_For_dr()
495
     End Sub
495
     End Sub
496
+    Friend Sub SQL_應收帳款已收_查詢最左邊公帳控制表會計科目1()
497
+        ConnOpen()
498
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 銷售單申請.會科碼1_ch.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
499
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
500
+        CmdSet_For_dr()
501
+    End Sub
496
     Friend Sub SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目()
502
     Friend Sub SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目()
497
         ConnOpen()
503
         ConnOpen()
498
         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
504
         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
503
         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 應收帳款已收.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
509
         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 應收帳款已收.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
504
         CmdSet_For_dr()
510
         CmdSet_For_dr()
505
     End Sub
511
     End Sub
512
+    Friend Sub SQL_應收帳款已收_查詢公帳控制表會計科目1()
513
+        ConnOpen()
514
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 銷售單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
515
+        CmdSet_For_dr()
516
+    End Sub
506
 End Module
517
 End Module

+ 1
- 1
YD-ERP-SYS/Module/全域變數.vb Datei anzeigen

3
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
3
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
4
     Public BB(99), CC(99), 登入判斷 As Boolean
4
     Public BB(99), CC(99), 登入判斷 As Boolean
5
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
5
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
6
-    Public 版本 As String = "2022081001"
6
+    Public 版本 As String = "2022100401"
7
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
7
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
8
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
8
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
9
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
9
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

+ 3
- 0
YD-ERP-SYS/YD-ERP-SYS.vbproj Datei anzeigen

80
       <EmbedInteropTypes>True</EmbedInteropTypes>
80
       <EmbedInteropTypes>True</EmbedInteropTypes>
81
       <HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath>
81
       <HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath>
82
     </Reference>
82
     </Reference>
83
+    <Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
84
+      <EmbedInteropTypes>True</EmbedInteropTypes>
85
+    </Reference>
83
     <Reference Include="OFFICE, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
86
     <Reference Include="OFFICE, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
84
       <SpecificVersion>False</SpecificVersion>
87
       <SpecificVersion>False</SpecificVersion>
85
       <EmbedInteropTypes>True</EmbedInteropTypes>
88
       <EmbedInteropTypes>True</EmbedInteropTypes>

BIN
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe Datei anzeigen


BIN
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.pdb Datei anzeigen


BIN
YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Datei anzeigen


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.exe Datei anzeigen


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.pdb Datei anzeigen


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.AssemblyReference.cache Datei anzeigen


+ 1
- 1
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache Datei anzeigen

1
-6fb3fca42b6bd1f05d37328ddc7b52edd1ee8f66
1
+21ef17a105a508ce8a3a3be640e5be9a4573ffdb

BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.GenerateResource.cache Datei anzeigen


+ 33
- 19
YD-ERP-SYS/倉儲系統管理/單據狀態查詢.Designer.vb Datei anzeigen

88
         Me.已入庫_ch = New System.Windows.Forms.CheckBox()
88
         Me.已入庫_ch = New System.Windows.Forms.CheckBox()
89
         Me.已出貨_ch = New System.Windows.Forms.CheckBox()
89
         Me.已出貨_ch = New System.Windows.Forms.CheckBox()
90
         Me.銷售單進出庫狀態_bt = New System.Windows.Forms.Button()
90
         Me.銷售單進出庫狀態_bt = New System.Windows.Forms.Button()
91
+        Me.Button1 = New System.Windows.Forms.Button()
91
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
92
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
92
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
93
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
93
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
94
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
134
         Me.未審核_lb.AutoSize = True
135
         Me.未審核_lb.AutoSize = True
135
         Me.未審核_lb.Location = New System.Drawing.Point(13, 10)
136
         Me.未審核_lb.Location = New System.Drawing.Point(13, 10)
136
         Me.未審核_lb.Name = "未審核_lb"
137
         Me.未審核_lb.Name = "未審核_lb"
137
-        Me.未審核_lb.Size = New System.Drawing.Size(32, 16)
138
+        Me.未審核_lb.Size = New System.Drawing.Size(31, 16)
138
         Me.未審核_lb.TabIndex = 1256
139
         Me.未審核_lb.TabIndex = 1256
139
         Me.未審核_lb.Text = "業務"
140
         Me.未審核_lb.Text = "業務"
140
         '
141
         '
162
         Me.大間距_ch.AutoSize = True
163
         Me.大間距_ch.AutoSize = True
163
         Me.大間距_ch.Location = New System.Drawing.Point(1021, 6)
164
         Me.大間距_ch.Location = New System.Drawing.Point(1021, 6)
164
         Me.大間距_ch.Name = "大間距_ch"
165
         Me.大間距_ch.Name = "大間距_ch"
165
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
166
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
166
         Me.大間距_ch.TabIndex = 1340
167
         Me.大間距_ch.TabIndex = 1340
167
         Me.大間距_ch.Text = "大間距"
168
         Me.大間距_ch.Text = "大間距"
168
         Me.大間距_ch.UseVisualStyleBackColor = True
169
         Me.大間距_ch.UseVisualStyleBackColor = True
172
         Me.中間距_ch.AutoSize = True
173
         Me.中間距_ch.AutoSize = True
173
         Me.中間距_ch.Location = New System.Drawing.Point(952, 6)
174
         Me.中間距_ch.Location = New System.Drawing.Point(952, 6)
174
         Me.中間距_ch.Name = "中間距_ch"
175
         Me.中間距_ch.Name = "中間距_ch"
175
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
176
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
176
         Me.中間距_ch.TabIndex = 1339
177
         Me.中間距_ch.TabIndex = 1339
177
         Me.中間距_ch.Text = "中間距"
178
         Me.中間距_ch.Text = "中間距"
178
         Me.中間距_ch.UseVisualStyleBackColor = True
179
         Me.中間距_ch.UseVisualStyleBackColor = True
182
         Me.小間距_ch.AutoSize = True
183
         Me.小間距_ch.AutoSize = True
183
         Me.小間距_ch.Location = New System.Drawing.Point(883, 6)
184
         Me.小間距_ch.Location = New System.Drawing.Point(883, 6)
184
         Me.小間距_ch.Name = "小間距_ch"
185
         Me.小間距_ch.Name = "小間距_ch"
185
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
186
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
186
         Me.小間距_ch.TabIndex = 1338
187
         Me.小間距_ch.TabIndex = 1338
187
         Me.小間距_ch.Text = "小間距"
188
         Me.小間距_ch.Text = "小間距"
188
         Me.小間距_ch.UseVisualStyleBackColor = True
189
         Me.小間距_ch.UseVisualStyleBackColor = True
200
         Me.Label1.AutoSize = True
201
         Me.Label1.AutoSize = True
201
         Me.Label1.Location = New System.Drawing.Point(3, 5)
202
         Me.Label1.Location = New System.Drawing.Point(3, 5)
202
         Me.Label1.Name = "Label1"
203
         Me.Label1.Name = "Label1"
203
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
204
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
204
         Me.Label1.TabIndex = 1342
205
         Me.Label1.TabIndex = 1342
205
         Me.Label1.Text = "銷售單"
206
         Me.Label1.Text = "銷售單"
206
         '
207
         '
273
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
274
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
274
         Me.Label13.Location = New System.Drawing.Point(556, 5)
275
         Me.Label13.Location = New System.Drawing.Point(556, 5)
275
         Me.Label13.Name = "Label13"
276
         Me.Label13.Name = "Label13"
276
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
277
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
277
         Me.Label13.TabIndex = 1360
278
         Me.Label13.TabIndex = 1360
278
         Me.Label13.Text = "工廠品共"
279
         Me.Label13.Text = "工廠品共"
279
         '
280
         '
284
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
285
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
285
         Me.Label4.Location = New System.Drawing.Point(764, 5)
286
         Me.Label4.Location = New System.Drawing.Point(764, 5)
286
         Me.Label4.Name = "Label4"
287
         Me.Label4.Name = "Label4"
287
-        Me.Label4.Size = New System.Drawing.Size(44, 16)
288
+        Me.Label4.Size = New System.Drawing.Size(43, 16)
288
         Me.Label4.TabIndex = 1359
289
         Me.Label4.TabIndex = 1359
289
         Me.Label4.Text = "筆資料"
290
         Me.Label4.Text = "筆資料"
290
         '
291
         '
316
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
317
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
317
         Me.Label12.Location = New System.Drawing.Point(655, 5)
318
         Me.Label12.Location = New System.Drawing.Point(655, 5)
318
         Me.Label12.Name = "Label12"
319
         Me.Label12.Name = "Label12"
319
-        Me.Label12.Size = New System.Drawing.Size(68, 16)
320
+        Me.Label12.Size = New System.Drawing.Size(67, 16)
320
         Me.Label12.TabIndex = 1362
321
         Me.Label12.TabIndex = 1362
321
         Me.Label12.Text = "筆資料,共"
322
         Me.Label12.Text = "筆資料,共"
322
         '
323
         '
382
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
383
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
383
         Me.Label9.Location = New System.Drawing.Point(762, 5)
384
         Me.Label9.Location = New System.Drawing.Point(762, 5)
384
         Me.Label9.Name = "Label9"
385
         Me.Label9.Name = "Label9"
385
-        Me.Label9.Size = New System.Drawing.Size(44, 16)
386
+        Me.Label9.Size = New System.Drawing.Size(43, 16)
386
         Me.Label9.TabIndex = 1356
387
         Me.Label9.TabIndex = 1356
387
         Me.Label9.Text = "筆資料"
388
         Me.Label9.Text = "筆資料"
388
         '
389
         '
403
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
404
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
404
         Me.Label10.Location = New System.Drawing.Point(698, 5)
405
         Me.Label10.Location = New System.Drawing.Point(698, 5)
405
         Me.Label10.Name = "Label10"
406
         Me.Label10.Name = "Label10"
406
-        Me.Label10.Size = New System.Drawing.Size(20, 16)
407
+        Me.Label10.Size = New System.Drawing.Size(19, 16)
407
         Me.Label10.TabIndex = 1354
408
         Me.Label10.TabIndex = 1354
408
         Me.Label10.Text = "共"
409
         Me.Label10.Text = "共"
409
         '
410
         '
412
         Me.Label2.AutoSize = True
413
         Me.Label2.AutoSize = True
413
         Me.Label2.Location = New System.Drawing.Point(3, 5)
414
         Me.Label2.Location = New System.Drawing.Point(3, 5)
414
         Me.Label2.Name = "Label2"
415
         Me.Label2.Name = "Label2"
415
-        Me.Label2.Size = New System.Drawing.Size(44, 16)
416
+        Me.Label2.Size = New System.Drawing.Size(43, 16)
416
         Me.Label2.TabIndex = 1343
417
         Me.Label2.TabIndex = 1343
417
         Me.Label2.Text = "採購單"
418
         Me.Label2.Text = "採購單"
418
         '
419
         '
464
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
465
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
465
         Me.Label6.Location = New System.Drawing.Point(762, 4)
466
         Me.Label6.Location = New System.Drawing.Point(762, 4)
466
         Me.Label6.Name = "Label6"
467
         Me.Label6.Name = "Label6"
467
-        Me.Label6.Size = New System.Drawing.Size(44, 16)
468
+        Me.Label6.Size = New System.Drawing.Size(43, 16)
468
         Me.Label6.TabIndex = 1359
469
         Me.Label6.TabIndex = 1359
469
         Me.Label6.Text = "筆資料"
470
         Me.Label6.Text = "筆資料"
470
         '
471
         '
473
         Me.Label3.AutoSize = True
474
         Me.Label3.AutoSize = True
474
         Me.Label3.Location = New System.Drawing.Point(1, 4)
475
         Me.Label3.Location = New System.Drawing.Point(1, 4)
475
         Me.Label3.Name = "Label3"
476
         Me.Label3.Name = "Label3"
476
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
477
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
477
         Me.Label3.TabIndex = 1344
478
         Me.Label3.TabIndex = 1344
478
         Me.Label3.Text = "出庫單"
479
         Me.Label3.Text = "出庫單"
479
         '
480
         '
494
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
495
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
495
         Me.Label7.Location = New System.Drawing.Point(698, 4)
496
         Me.Label7.Location = New System.Drawing.Point(698, 4)
496
         Me.Label7.Name = "Label7"
497
         Me.Label7.Name = "Label7"
497
-        Me.Label7.Size = New System.Drawing.Size(20, 16)
498
+        Me.Label7.Size = New System.Drawing.Size(19, 16)
498
         Me.Label7.TabIndex = 1357
499
         Me.Label7.TabIndex = 1357
499
         Me.Label7.Text = "共"
500
         Me.Label7.Text = "共"
500
         '
501
         '
556
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
557
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
557
         Me.Label8.Location = New System.Drawing.Point(472, 36)
558
         Me.Label8.Location = New System.Drawing.Point(472, 36)
558
         Me.Label8.Name = "Label8"
559
         Me.Label8.Name = "Label8"
559
-        Me.Label8.Size = New System.Drawing.Size(44, 16)
560
+        Me.Label8.Size = New System.Drawing.Size(43, 16)
560
         Me.Label8.TabIndex = 1362
561
         Me.Label8.TabIndex = 1362
561
         Me.Label8.Text = "筆資料"
562
         Me.Label8.Text = "筆資料"
562
         '
563
         '
575
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
576
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
576
         Me.Label11.Location = New System.Drawing.Point(408, 36)
577
         Me.Label11.Location = New System.Drawing.Point(408, 36)
577
         Me.Label11.Name = "Label11"
578
         Me.Label11.Name = "Label11"
578
-        Me.Label11.Size = New System.Drawing.Size(20, 16)
579
+        Me.Label11.Size = New System.Drawing.Size(19, 16)
579
         Me.Label11.TabIndex = 1360
580
         Me.Label11.TabIndex = 1360
580
         Me.Label11.Text = "共"
581
         Me.Label11.Text = "共"
581
         '
582
         '
738
         Me.轉採購_ch.AutoSize = True
739
         Me.轉採購_ch.AutoSize = True
739
         Me.轉採購_ch.Location = New System.Drawing.Point(185, 240)
740
         Me.轉採購_ch.Location = New System.Drawing.Point(185, 240)
740
         Me.轉採購_ch.Name = "轉採購_ch"
741
         Me.轉採購_ch.Name = "轉採購_ch"
741
-        Me.轉採購_ch.Size = New System.Drawing.Size(63, 20)
742
+        Me.轉採購_ch.Size = New System.Drawing.Size(62, 20)
742
         Me.轉採購_ch.TabIndex = 1507
743
         Me.轉採購_ch.TabIndex = 1507
743
         Me.轉採購_ch.Text = "轉採購"
744
         Me.轉採購_ch.Text = "轉採購"
744
         Me.轉採購_ch.UseVisualStyleBackColor = True
745
         Me.轉採購_ch.UseVisualStyleBackColor = True
749
         Me.已入庫_ch.AutoSize = True
750
         Me.已入庫_ch.AutoSize = True
750
         Me.已入庫_ch.Location = New System.Drawing.Point(185, 214)
751
         Me.已入庫_ch.Location = New System.Drawing.Point(185, 214)
751
         Me.已入庫_ch.Name = "已入庫_ch"
752
         Me.已入庫_ch.Name = "已入庫_ch"
752
-        Me.已入庫_ch.Size = New System.Drawing.Size(63, 20)
753
+        Me.已入庫_ch.Size = New System.Drawing.Size(62, 20)
753
         Me.已入庫_ch.TabIndex = 1508
754
         Me.已入庫_ch.TabIndex = 1508
754
         Me.已入庫_ch.Text = "已入庫"
755
         Me.已入庫_ch.Text = "已入庫"
755
         Me.已入庫_ch.UseVisualStyleBackColor = True
756
         Me.已入庫_ch.UseVisualStyleBackColor = True
760
         Me.已出貨_ch.AutoSize = True
761
         Me.已出貨_ch.AutoSize = True
761
         Me.已出貨_ch.Location = New System.Drawing.Point(185, 188)
762
         Me.已出貨_ch.Location = New System.Drawing.Point(185, 188)
762
         Me.已出貨_ch.Name = "已出貨_ch"
763
         Me.已出貨_ch.Name = "已出貨_ch"
763
-        Me.已出貨_ch.Size = New System.Drawing.Size(63, 20)
764
+        Me.已出貨_ch.Size = New System.Drawing.Size(62, 20)
764
         Me.已出貨_ch.TabIndex = 1509
765
         Me.已出貨_ch.TabIndex = 1509
765
         Me.已出貨_ch.Text = "已出貨"
766
         Me.已出貨_ch.Text = "已出貨"
766
         Me.已出貨_ch.UseVisualStyleBackColor = True
767
         Me.已出貨_ch.UseVisualStyleBackColor = True
777
         Me.銷售單進出庫狀態_bt.Text = "銷售單進出庫狀態"
778
         Me.銷售單進出庫狀態_bt.Text = "銷售單進出庫狀態"
778
         Me.銷售單進出庫狀態_bt.UseVisualStyleBackColor = True
779
         Me.銷售單進出庫狀態_bt.UseVisualStyleBackColor = True
779
         '
780
         '
781
+        'Button1
782
+        '
783
+        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
784
+        Me.Button1.ForeColor = System.Drawing.Color.Purple
785
+        Me.Button1.Location = New System.Drawing.Point(1117, 3)
786
+        Me.Button1.Name = "Button1"
787
+        Me.Button1.Size = New System.Drawing.Size(103, 25)
788
+        Me.Button1.TabIndex = 1511
789
+        Me.Button1.Text = "銷售單強制結單"
790
+        Me.Button1.UseVisualStyleBackColor = True
791
+        '
780
         '單據狀態查詢
792
         '單據狀態查詢
781
         '
793
         '
782
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
794
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
783
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
795
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
784
         Me.ClientSize = New System.Drawing.Size(1344, 681)
796
         Me.ClientSize = New System.Drawing.Size(1344, 681)
797
+        Me.Controls.Add(Me.Button1)
785
         Me.Controls.Add(Me.銷售單進出庫狀態_bt)
798
         Me.Controls.Add(Me.銷售單進出庫狀態_bt)
786
         Me.Controls.Add(Me.已出貨_ch)
799
         Me.Controls.Add(Me.已出貨_ch)
787
         Me.Controls.Add(Me.已入庫_ch)
800
         Me.Controls.Add(Me.已入庫_ch)
900
     Friend WithEvents 出庫單退回_批量_bt As Button
913
     Friend WithEvents 出庫單退回_批量_bt As Button
901
     Friend WithEvents 採購單退回_批量_bt As Button
914
     Friend WithEvents 採購單退回_批量_bt As Button
902
     Friend WithEvents 驗證計算_bt As Button
915
     Friend WithEvents 驗證計算_bt As Button
916
+    Friend WithEvents Button1 As Button
903
 End Class
917
 End Class

+ 52
- 40
YD-ERP-SYS/採購系統管理/供應商資料表.Designer.vb Datei anzeigen

23
     <System.Diagnostics.DebuggerStepThrough()>
23
     <System.Diagnostics.DebuggerStepThrough()>
24
     Private Sub InitializeComponent()
24
     Private Sub InitializeComponent()
25
         Me.components = New System.ComponentModel.Container()
25
         Me.components = New System.ComponentModel.Container()
26
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
         Me.供應商_dgv = New System.Windows.Forms.DataGridView()
27
         Me.供應商_dgv = New System.Windows.Forms.DataGridView()
28
         Me.地區編碼_cb = New System.Windows.Forms.ComboBox()
28
         Me.地區編碼_cb = New System.Windows.Forms.ComboBox()
29
         Me.Label1 = New System.Windows.Forms.Label()
29
         Me.Label1 = New System.Windows.Forms.Label()
108
         Me.批量存檔_bt = New System.Windows.Forms.Button()
108
         Me.批量存檔_bt = New System.Windows.Forms.Button()
109
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
109
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
110
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
110
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
111
+        Me.票期_cb = New System.Windows.Forms.ComboBox()
111
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
112
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
112
         CType(Me.結算日_nud, System.ComponentModel.ISupportInitialize).BeginInit()
113
         CType(Me.結算日_nud, System.ComponentModel.ISupportInitialize).BeginInit()
113
         CType(Me.KR1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
114
         CType(Me.KR1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
120
         '
121
         '
121
         '供應商_dgv
122
         '供應商_dgv
122
         '
123
         '
123
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
124
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
124
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
125
+        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
125
         Me.供應商_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
126
         Me.供應商_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
126
             Or System.Windows.Forms.AnchorStyles.Left) _
127
             Or System.Windows.Forms.AnchorStyles.Left) _
127
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
128
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
149
         Me.Label1.AutoSize = True
150
         Me.Label1.AutoSize = True
150
         Me.Label1.Location = New System.Drawing.Point(6, 33)
151
         Me.Label1.Location = New System.Drawing.Point(6, 33)
151
         Me.Label1.Name = "Label1"
152
         Me.Label1.Name = "Label1"
152
-        Me.Label1.Size = New System.Drawing.Size(50, 16)
153
+        Me.Label1.Size = New System.Drawing.Size(49, 16)
153
         Me.Label1.TabIndex = 1008
154
         Me.Label1.TabIndex = 1008
154
         Me.Label1.Text = "編      碼"
155
         Me.Label1.Text = "編      碼"
155
         '
156
         '
159
         Me.Label2.ForeColor = System.Drawing.Color.Red
160
         Me.Label2.ForeColor = System.Drawing.Color.Red
160
         Me.Label2.Location = New System.Drawing.Point(6, 7)
161
         Me.Label2.Location = New System.Drawing.Point(6, 7)
161
         Me.Label2.Name = "Label2"
162
         Me.Label2.Name = "Label2"
162
-        Me.Label2.Size = New System.Drawing.Size(50, 16)
163
+        Me.Label2.Size = New System.Drawing.Size(49, 16)
163
         Me.Label2.TabIndex = 1007
164
         Me.Label2.TabIndex = 1007
164
         Me.Label2.Text = "地      區"
165
         Me.Label2.Text = "地      區"
165
         '
166
         '
180
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
181
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
181
         Me.Label3.Location = New System.Drawing.Point(1198, 158)
182
         Me.Label3.Location = New System.Drawing.Point(1198, 158)
182
         Me.Label3.Name = "Label3"
183
         Me.Label3.Name = "Label3"
183
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
184
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
184
         Me.Label3.TabIndex = 1014
185
         Me.Label3.TabIndex = 1014
185
         Me.Label3.Text = "筆資料"
186
         Me.Label3.Text = "筆資料"
186
         '
187
         '
200
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
201
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
201
         Me.Label4.Location = New System.Drawing.Point(1111, 158)
202
         Me.Label4.Location = New System.Drawing.Point(1111, 158)
202
         Me.Label4.Name = "Label4"
203
         Me.Label4.Name = "Label4"
203
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
204
+        Me.Label4.Size = New System.Drawing.Size(19, 16)
204
         Me.Label4.TabIndex = 1012
205
         Me.Label4.TabIndex = 1012
205
         Me.Label4.Text = "共"
206
         Me.Label4.Text = "共"
206
         '
207
         '
217
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
218
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
218
         Me.Label5.Location = New System.Drawing.Point(5, 58)
219
         Me.Label5.Location = New System.Drawing.Point(5, 58)
219
         Me.Label5.Name = "Label5"
220
         Me.Label5.Name = "Label5"
220
-        Me.Label5.Size = New System.Drawing.Size(50, 16)
221
+        Me.Label5.Size = New System.Drawing.Size(49, 16)
221
         Me.Label5.TabIndex = 1023
222
         Me.Label5.TabIndex = 1023
222
         Me.Label5.Text = "編      號"
223
         Me.Label5.Text = "編      號"
223
         '
224
         '
235
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
236
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
236
         Me.Label6.Location = New System.Drawing.Point(5, 108)
237
         Me.Label6.Location = New System.Drawing.Point(5, 108)
237
         Me.Label6.Name = "Label6"
238
         Me.Label6.Name = "Label6"
238
-        Me.Label6.Size = New System.Drawing.Size(50, 16)
239
+        Me.Label6.Size = New System.Drawing.Size(49, 16)
239
         Me.Label6.TabIndex = 1025
240
         Me.Label6.TabIndex = 1025
240
         Me.Label6.Text = "供 應 商"
241
         Me.Label6.Text = "供 應 商"
241
         '
242
         '
253
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
254
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
254
         Me.Label7.Location = New System.Drawing.Point(185, 7)
255
         Me.Label7.Location = New System.Drawing.Point(185, 7)
255
         Me.Label7.Name = "Label7"
256
         Me.Label7.Name = "Label7"
256
-        Me.Label7.Size = New System.Drawing.Size(56, 16)
257
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
257
         Me.Label7.TabIndex = 1027
258
         Me.Label7.TabIndex = 1027
258
         Me.Label7.Text = "公司地址"
259
         Me.Label7.Text = "公司地址"
259
         '
260
         '
271
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
272
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
272
         Me.Label8.Location = New System.Drawing.Point(185, 33)
273
         Me.Label8.Location = New System.Drawing.Point(185, 33)
273
         Me.Label8.Name = "Label8"
274
         Me.Label8.Name = "Label8"
274
-        Me.Label8.Size = New System.Drawing.Size(63, 16)
275
+        Me.Label8.Size = New System.Drawing.Size(62, 16)
275
         Me.Label8.TabIndex = 1029
276
         Me.Label8.TabIndex = 1029
276
         Me.Label8.Text = "公司電話1"
277
         Me.Label8.Text = "公司電話1"
277
         '
278
         '
288
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
289
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
289
         Me.Label9.Location = New System.Drawing.Point(185, 58)
290
         Me.Label9.Location = New System.Drawing.Point(185, 58)
290
         Me.Label9.Name = "Label9"
291
         Me.Label9.Name = "Label9"
291
-        Me.Label9.Size = New System.Drawing.Size(63, 16)
292
+        Me.Label9.Size = New System.Drawing.Size(62, 16)
292
         Me.Label9.TabIndex = 1031
293
         Me.Label9.TabIndex = 1031
293
         Me.Label9.Text = "公司電話2"
294
         Me.Label9.Text = "公司電話2"
294
         '
295
         '
305
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
306
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
306
         Me.Label10.Location = New System.Drawing.Point(376, 33)
307
         Me.Label10.Location = New System.Drawing.Point(376, 33)
307
         Me.Label10.Name = "Label10"
308
         Me.Label10.Name = "Label10"
308
-        Me.Label10.Size = New System.Drawing.Size(63, 16)
309
+        Me.Label10.Size = New System.Drawing.Size(62, 16)
309
         Me.Label10.TabIndex = 1033
310
         Me.Label10.TabIndex = 1033
310
         Me.Label10.Text = "公司電話3"
311
         Me.Label10.Text = "公司電話3"
311
         '
312
         '
322
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
323
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
323
         Me.Label11.Location = New System.Drawing.Point(376, 58)
324
         Me.Label11.Location = New System.Drawing.Point(376, 58)
324
         Me.Label11.Name = "Label11"
325
         Me.Label11.Name = "Label11"
325
-        Me.Label11.Size = New System.Drawing.Size(63, 16)
326
+        Me.Label11.Size = New System.Drawing.Size(62, 16)
326
         Me.Label11.TabIndex = 1035
327
         Me.Label11.TabIndex = 1035
327
         Me.Label11.Text = "公司電話4"
328
         Me.Label11.Text = "公司電話4"
328
         '
329
         '
339
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
340
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
340
         Me.Label12.Location = New System.Drawing.Point(569, 8)
341
         Me.Label12.Location = New System.Drawing.Point(569, 8)
341
         Me.Label12.Name = "Label12"
342
         Me.Label12.Name = "Label12"
342
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
343
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
343
         Me.Label12.TabIndex = 1037
344
         Me.Label12.TabIndex = 1037
344
         Me.Label12.Text = "店面地址"
345
         Me.Label12.Text = "店面地址"
345
         '
346
         '
356
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
357
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
357
         Me.Label13.Location = New System.Drawing.Point(186, 108)
358
         Me.Label13.Location = New System.Drawing.Point(186, 108)
358
         Me.Label13.Name = "Label13"
359
         Me.Label13.Name = "Label13"
359
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
360
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
360
         Me.Label13.TabIndex = 1039
361
         Me.Label13.TabIndex = 1039
361
         Me.Label13.Text = "店面電話"
362
         Me.Label13.Text = "店面電話"
362
         '
363
         '
374
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
375
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
375
         Me.Label14.Location = New System.Drawing.Point(4, 83)
376
         Me.Label14.Location = New System.Drawing.Point(4, 83)
376
         Me.Label14.Name = "Label14"
377
         Me.Label14.Name = "Label14"
377
-        Me.Label14.Size = New System.Drawing.Size(50, 16)
378
+        Me.Label14.Size = New System.Drawing.Size(49, 16)
378
         Me.Label14.TabIndex = 1041
379
         Me.Label14.TabIndex = 1041
379
         Me.Label14.Text = "簡      稱"
380
         Me.Label14.Text = "簡      稱"
380
         '
381
         '
391
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
392
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
392
         Me.Label15.Location = New System.Drawing.Point(569, 33)
393
         Me.Label15.Location = New System.Drawing.Point(569, 33)
393
         Me.Label15.Name = "Label15"
394
         Me.Label15.Name = "Label15"
394
-        Me.Label15.Size = New System.Drawing.Size(56, 16)
395
+        Me.Label15.Size = New System.Drawing.Size(55, 16)
395
         Me.Label15.TabIndex = 1043
396
         Me.Label15.TabIndex = 1043
396
         Me.Label15.Text = "工廠地址"
397
         Me.Label15.Text = "工廠地址"
397
         '
398
         '
409
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
410
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
410
         Me.Label16.Location = New System.Drawing.Point(4, 133)
411
         Me.Label16.Location = New System.Drawing.Point(4, 133)
411
         Me.Label16.Name = "Label16"
412
         Me.Label16.Name = "Label16"
412
-        Me.Label16.Size = New System.Drawing.Size(51, 16)
413
+        Me.Label16.Size = New System.Drawing.Size(50, 16)
413
         Me.Label16.TabIndex = 1045
414
         Me.Label16.TabIndex = 1045
414
         Me.Label16.Text = "聯繫人1"
415
         Me.Label16.Text = "聯繫人1"
415
         '
416
         '
426
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
427
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
427
         Me.Label17.Location = New System.Drawing.Point(3, 158)
428
         Me.Label17.Location = New System.Drawing.Point(3, 158)
428
         Me.Label17.Name = "Label17"
429
         Me.Label17.Name = "Label17"
429
-        Me.Label17.Size = New System.Drawing.Size(51, 16)
430
+        Me.Label17.Size = New System.Drawing.Size(50, 16)
430
         Me.Label17.TabIndex = 1047
431
         Me.Label17.TabIndex = 1047
431
         Me.Label17.Text = "聯繫人2"
432
         Me.Label17.Text = "聯繫人2"
432
         '
433
         '
443
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
444
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
444
         Me.Label18.Location = New System.Drawing.Point(376, 83)
445
         Me.Label18.Location = New System.Drawing.Point(376, 83)
445
         Me.Label18.Name = "Label18"
446
         Me.Label18.Name = "Label18"
446
-        Me.Label18.Size = New System.Drawing.Size(62, 16)
447
+        Me.Label18.Size = New System.Drawing.Size(61, 16)
447
         Me.Label18.TabIndex = 1049
448
         Me.Label18.TabIndex = 1049
448
         Me.Label18.Text = "傳          真"
449
         Me.Label18.Text = "傳          真"
449
         '
450
         '
460
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
461
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
461
         Me.Label19.Location = New System.Drawing.Point(185, 82)
462
         Me.Label19.Location = New System.Drawing.Point(185, 82)
462
         Me.Label19.Name = "Label19"
463
         Me.Label19.Name = "Label19"
463
-        Me.Label19.Size = New System.Drawing.Size(62, 16)
464
+        Me.Label19.Size = New System.Drawing.Size(61, 16)
464
         Me.Label19.TabIndex = 1051
465
         Me.Label19.TabIndex = 1051
465
         Me.Label19.Text = "手          機"
466
         Me.Label19.Text = "手          機"
466
         '
467
         '
477
         Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl
478
         Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl
478
         Me.Label20.Location = New System.Drawing.Point(876, 133)
479
         Me.Label20.Location = New System.Drawing.Point(876, 133)
479
         Me.Label20.Name = "Label20"
480
         Me.Label20.Name = "Label20"
480
-        Me.Label20.Size = New System.Drawing.Size(32, 16)
481
+        Me.Label20.Size = New System.Drawing.Size(31, 16)
481
         Me.Label20.TabIndex = 1053
482
         Me.Label20.TabIndex = 1053
482
         Me.Label20.Text = "POS"
483
         Me.Label20.Text = "POS"
483
         '
484
         '
494
         Me.Label21.ImeMode = System.Windows.Forms.ImeMode.NoControl
495
         Me.Label21.ImeMode = System.Windows.Forms.ImeMode.NoControl
495
         Me.Label21.Location = New System.Drawing.Point(569, 58)
496
         Me.Label21.Location = New System.Drawing.Point(569, 58)
496
         Me.Label21.Name = "Label21"
497
         Me.Label21.Name = "Label21"
497
-        Me.Label21.Size = New System.Drawing.Size(60, 16)
498
+        Me.Label21.Size = New System.Drawing.Size(59, 16)
498
         Me.Label21.TabIndex = 1055
499
         Me.Label21.TabIndex = 1055
499
         Me.Label21.Text = "備       註1"
500
         Me.Label21.Text = "備       註1"
500
         '
501
         '
511
         Me.Label22.ImeMode = System.Windows.Forms.ImeMode.NoControl
512
         Me.Label22.ImeMode = System.Windows.Forms.ImeMode.NoControl
512
         Me.Label22.Location = New System.Drawing.Point(569, 83)
513
         Me.Label22.Location = New System.Drawing.Point(569, 83)
513
         Me.Label22.Name = "Label22"
514
         Me.Label22.Name = "Label22"
514
-        Me.Label22.Size = New System.Drawing.Size(60, 16)
515
+        Me.Label22.Size = New System.Drawing.Size(59, 16)
515
         Me.Label22.TabIndex = 1057
516
         Me.Label22.TabIndex = 1057
516
         Me.Label22.Text = "備       註2"
517
         Me.Label22.Text = "備       註2"
517
         '
518
         '
528
         Me.Label23.AutoSize = True
529
         Me.Label23.AutoSize = True
529
         Me.Label23.Location = New System.Drawing.Point(379, 108)
530
         Me.Label23.Location = New System.Drawing.Point(379, 108)
530
         Me.Label23.Name = "Label23"
531
         Me.Label23.Name = "Label23"
531
-        Me.Label23.Size = New System.Drawing.Size(56, 16)
532
+        Me.Label23.Size = New System.Drawing.Size(55, 16)
532
         Me.Label23.TabIndex = 1059
533
         Me.Label23.TabIndex = 1059
533
         Me.Label23.Text = "登入日期"
534
         Me.Label23.Text = "登入日期"
534
         '
535
         '
546
         Me.Label24.AutoSize = True
547
         Me.Label24.AutoSize = True
547
         Me.Label24.Location = New System.Drawing.Point(867, 108)
548
         Me.Label24.Location = New System.Drawing.Point(867, 108)
548
         Me.Label24.Name = "Label24"
549
         Me.Label24.Name = "Label24"
549
-        Me.Label24.Size = New System.Drawing.Size(44, 16)
550
+        Me.Label24.Size = New System.Drawing.Size(43, 16)
550
         Me.Label24.TabIndex = 1062
551
         Me.Label24.TabIndex = 1062
551
         Me.Label24.Text = "結算日"
552
         Me.Label24.Text = "結算日"
552
         '
553
         '
555
         Me.Label25.AutoSize = True
556
         Me.Label25.AutoSize = True
556
         Me.Label25.Location = New System.Drawing.Point(569, 108)
557
         Me.Label25.Location = New System.Drawing.Point(569, 108)
557
         Me.Label25.Name = "Label25"
558
         Me.Label25.Name = "Label25"
558
-        Me.Label25.Size = New System.Drawing.Size(30, 16)
559
+        Me.Label25.Size = New System.Drawing.Size(29, 16)
559
         Me.Label25.TabIndex = 1064
560
         Me.Label25.TabIndex = 1064
560
         Me.Label25.Text = "KR1"
561
         Me.Label25.Text = "KR1"
561
         '
562
         '
574
         Me.Label26.AutoSize = True
575
         Me.Label26.AutoSize = True
575
         Me.Label26.Location = New System.Drawing.Point(668, 108)
576
         Me.Label26.Location = New System.Drawing.Point(668, 108)
576
         Me.Label26.Name = "Label26"
577
         Me.Label26.Name = "Label26"
577
-        Me.Label26.Size = New System.Drawing.Size(30, 16)
578
+        Me.Label26.Size = New System.Drawing.Size(29, 16)
578
         Me.Label26.TabIndex = 1066
579
         Me.Label26.TabIndex = 1066
579
         Me.Label26.Text = "KR2"
580
         Me.Label26.Text = "KR2"
580
         '
581
         '
593
         Me.Label27.AutoSize = True
594
         Me.Label27.AutoSize = True
594
         Me.Label27.Location = New System.Drawing.Point(768, 108)
595
         Me.Label27.Location = New System.Drawing.Point(768, 108)
595
         Me.Label27.Name = "Label27"
596
         Me.Label27.Name = "Label27"
596
-        Me.Label27.Size = New System.Drawing.Size(30, 16)
597
+        Me.Label27.Size = New System.Drawing.Size(29, 16)
597
         Me.Label27.TabIndex = 1068
598
         Me.Label27.TabIndex = 1068
598
         Me.Label27.Text = "KR3"
599
         Me.Label27.Text = "KR3"
599
         '
600
         '
697
         Me.停用_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
698
         Me.停用_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
698
         Me.停用_ch.Location = New System.Drawing.Point(875, 157)
699
         Me.停用_ch.Location = New System.Drawing.Point(875, 157)
699
         Me.停用_ch.Name = "停用_ch"
700
         Me.停用_ch.Name = "停用_ch"
700
-        Me.停用_ch.Size = New System.Drawing.Size(75, 20)
701
+        Me.停用_ch.Size = New System.Drawing.Size(74, 20)
701
         Me.停用_ch.TabIndex = 1073
702
         Me.停用_ch.TabIndex = 1073
702
         Me.停用_ch.Text = "停        用"
703
         Me.停用_ch.Text = "停        用"
703
         Me.停用_ch.UseVisualStyleBackColor = True
704
         Me.停用_ch.UseVisualStyleBackColor = True
717
         Me.Label28.AutoSize = True
718
         Me.Label28.AutoSize = True
718
         Me.Label28.Location = New System.Drawing.Point(768, 159)
719
         Me.Label28.Location = New System.Drawing.Point(768, 159)
719
         Me.Label28.Name = "Label28"
720
         Me.Label28.Name = "Label28"
720
-        Me.Label28.Size = New System.Drawing.Size(30, 16)
721
+        Me.Label28.Size = New System.Drawing.Size(29, 16)
721
         Me.Label28.TabIndex = 1074
722
         Me.Label28.TabIndex = 1074
722
         Me.Label28.Text = "PEC"
723
         Me.Label28.Text = "PEC"
723
         '
724
         '
727
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
728
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
728
         Me.Label29.Location = New System.Drawing.Point(952, 159)
729
         Me.Label29.Location = New System.Drawing.Point(952, 159)
729
         Me.Label29.Name = "Label29"
730
         Me.Label29.Name = "Label29"
730
-        Me.Label29.Size = New System.Drawing.Size(68, 16)
731
+        Me.Label29.Size = New System.Drawing.Size(67, 16)
731
         Me.Label29.TabIndex = 1077
732
         Me.Label29.TabIndex = 1077
732
         Me.Label29.Text = "關鍵字查詢"
733
         Me.Label29.Text = "關鍵字查詢"
733
         '
734
         '
757
         Me.精準查詢_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
758
         Me.精準查詢_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
758
         Me.精準查詢_ch.Location = New System.Drawing.Point(114, 4)
759
         Me.精準查詢_ch.Location = New System.Drawing.Point(114, 4)
759
         Me.精準查詢_ch.Name = "精準查詢_ch"
760
         Me.精準查詢_ch.Name = "精準查詢_ch"
760
-        Me.精準查詢_ch.Size = New System.Drawing.Size(75, 20)
761
+        Me.精準查詢_ch.Size = New System.Drawing.Size(74, 20)
761
         Me.精準查詢_ch.TabIndex = 1134
762
         Me.精準查詢_ch.TabIndex = 1134
762
         Me.精準查詢_ch.Text = "精準查詢"
763
         Me.精準查詢_ch.Text = "精準查詢"
763
         Me.精準查詢_ch.UseVisualStyleBackColor = True
764
         Me.精準查詢_ch.UseVisualStyleBackColor = True
767
         Me.Label30.AutoSize = True
768
         Me.Label30.AutoSize = True
768
         Me.Label30.Location = New System.Drawing.Point(767, 133)
769
         Me.Label30.Location = New System.Drawing.Point(767, 133)
769
         Me.Label30.Name = "Label30"
770
         Me.Label30.Name = "Label30"
770
-        Me.Label30.Size = New System.Drawing.Size(32, 16)
771
+        Me.Label30.Size = New System.Drawing.Size(31, 16)
771
         Me.Label30.TabIndex = 1135
772
         Me.Label30.TabIndex = 1135
772
         Me.Label30.Text = "票期"
773
         Me.Label30.Text = "票期"
773
         '
774
         '
774
         '票期_nud
775
         '票期_nud
775
         '
776
         '
776
-        Me.票期_nud.Location = New System.Drawing.Point(797, 130)
777
+        Me.票期_nud.Location = New System.Drawing.Point(1174, 4)
777
         Me.票期_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
778
         Me.票期_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
778
         Me.票期_nud.Name = "票期_nud"
779
         Me.票期_nud.Name = "票期_nud"
779
         Me.票期_nud.Size = New System.Drawing.Size(68, 23)
780
         Me.票期_nud.Size = New System.Drawing.Size(68, 23)
786
         Me.Label31.ImeMode = System.Windows.Forms.ImeMode.NoControl
787
         Me.Label31.ImeMode = System.Windows.Forms.ImeMode.NoControl
787
         Me.Label31.Location = New System.Drawing.Point(190, 134)
788
         Me.Label31.Location = New System.Drawing.Point(190, 134)
788
         Me.Label31.Name = "Label31"
789
         Me.Label31.Name = "Label31"
789
-        Me.Label31.Size = New System.Drawing.Size(56, 16)
790
+        Me.Label31.Size = New System.Drawing.Size(55, 16)
790
         Me.Label31.TabIndex = 1137
791
         Me.Label31.TabIndex = 1137
791
         Me.Label31.Text = "私人支票"
792
         Me.Label31.Text = "私人支票"
792
         '
793
         '
810
         Me.Label32.ImeMode = System.Windows.Forms.ImeMode.NoControl
811
         Me.Label32.ImeMode = System.Windows.Forms.ImeMode.NoControl
811
         Me.Label32.Location = New System.Drawing.Point(190, 161)
812
         Me.Label32.Location = New System.Drawing.Point(190, 161)
812
         Me.Label32.Name = "Label32"
813
         Me.Label32.Name = "Label32"
813
-        Me.Label32.Size = New System.Drawing.Size(56, 16)
814
+        Me.Label32.Size = New System.Drawing.Size(55, 16)
814
         Me.Label32.TabIndex = 1139
815
         Me.Label32.TabIndex = 1139
815
         Me.Label32.Text = "公司支票"
816
         Me.Label32.Text = "公司支票"
816
         '
817
         '
827
         Me.Label33.ImeMode = System.Windows.Forms.ImeMode.NoControl
828
         Me.Label33.ImeMode = System.Windows.Forms.ImeMode.NoControl
828
         Me.Label33.Location = New System.Drawing.Point(569, 133)
829
         Me.Label33.Location = New System.Drawing.Point(569, 133)
829
         Me.Label33.Name = "Label33"
830
         Me.Label33.Name = "Label33"
830
-        Me.Label33.Size = New System.Drawing.Size(56, 16)
831
+        Me.Label33.Size = New System.Drawing.Size(55, 16)
831
         Me.Label33.TabIndex = 1142
832
         Me.Label33.TabIndex = 1142
832
         Me.Label33.Text = "稅金倍率"
833
         Me.Label33.Text = "稅金倍率"
833
         '
834
         '
844
         Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
845
         Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
845
         Me.Label34.Location = New System.Drawing.Point(569, 158)
846
         Me.Label34.Location = New System.Drawing.Point(569, 158)
846
         Me.Label34.Name = "Label34"
847
         Me.Label34.Name = "Label34"
847
-        Me.Label34.Size = New System.Drawing.Size(56, 16)
848
+        Me.Label34.Size = New System.Drawing.Size(55, 16)
848
         Me.Label34.TabIndex = 1144
849
         Me.Label34.TabIndex = 1144
849
         Me.Label34.Text = "廣告倍率"
850
         Me.Label34.Text = "廣告倍率"
850
         '
851
         '
886
         Me.字體_NUD.TabIndex = 1345
887
         Me.字體_NUD.TabIndex = 1345
887
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
888
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
888
         '
889
         '
890
+        '票期_cb
891
+        '
892
+        Me.票期_cb.FormattingEnabled = True
893
+        Me.票期_cb.Items.AddRange(New Object() {"0", "1", "5", "15", "30", "31", "35", "45", "60", "61", "65", "75", "90"})
894
+        Me.票期_cb.Location = New System.Drawing.Point(797, 129)
895
+        Me.票期_cb.Name = "票期_cb"
896
+        Me.票期_cb.Size = New System.Drawing.Size(68, 24)
897
+        Me.票期_cb.TabIndex = 1347
898
+        '
889
         '供應商資料表
899
         '供應商資料表
890
         '
900
         '
891
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
901
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
892
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
902
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
893
         Me.ClientSize = New System.Drawing.Size(1248, 691)
903
         Me.ClientSize = New System.Drawing.Size(1248, 691)
894
         Me.ContextMenuStrip = Me.ContextMenuStrip1
904
         Me.ContextMenuStrip = Me.ContextMenuStrip1
905
+        Me.Controls.Add(Me.票期_cb)
895
         Me.Controls.Add(Me.查詢_tb)
906
         Me.Controls.Add(Me.查詢_tb)
896
         Me.Controls.Add(Me.批量存檔_bt)
907
         Me.Controls.Add(Me.批量存檔_bt)
897
         Me.Controls.Add(Me.廣告費倍率_tb)
908
         Me.Controls.Add(Me.廣告費倍率_tb)
1071
     Friend WithEvents 批量存檔_bt As Button
1082
     Friend WithEvents 批量存檔_bt As Button
1072
     Friend WithEvents 字體大小調整_lb As Label
1083
     Friend WithEvents 字體大小調整_lb As Label
1073
     Friend WithEvents 字體_NUD As NumericUpDown
1084
     Friend WithEvents 字體_NUD As NumericUpDown
1085
+    Friend WithEvents 票期_cb As ComboBox
1074
 End Class
1086
 End Class

+ 2
- 2
YD-ERP-SYS/採購系統管理/供應商資料表.vb Datei anzeigen

88
                     登入日期_dtp.Value = 供應商_dgv("登入日期", e.RowIndex).Value : 結算日_nud.Value = 供應商_dgv("結算日", e.RowIndex).Value
88
                     登入日期_dtp.Value = 供應商_dgv("登入日期", e.RowIndex).Value : 結算日_nud.Value = 供應商_dgv("結算日", e.RowIndex).Value
89
                     KR1_nud.Value = 供應商_dgv("KR1", e.RowIndex).Value : KR2_nud.Value = 供應商_dgv("KR2", e.RowIndex).Value
89
                     KR1_nud.Value = 供應商_dgv("KR1", e.RowIndex).Value : KR2_nud.Value = 供應商_dgv("KR2", e.RowIndex).Value
90
                     KR3_nud.Value = 供應商_dgv("KR3", e.RowIndex).Value : PEC_cb.Text = 供應商_dgv("PEC", e.RowIndex).Value.ToString
90
                     KR3_nud.Value = 供應商_dgv("KR3", e.RowIndex).Value : PEC_cb.Text = 供應商_dgv("PEC", e.RowIndex).Value.ToString
91
-                    停用_ch.Checked = 供應商_dgv("停用", e.RowIndex).Value : 票期_nud.Value = 供應商_dgv("票期", e.RowIndex).Value
91
+                    停用_ch.Checked = 供應商_dgv("停用", e.RowIndex).Value : 票期_cb.Text = 供應商_dgv("票期", e.RowIndex).Value
92
                     私人支票_tb.Text = 供應商_dgv("支票_私人", e.RowIndex).Value.ToString : 公司支票_tb.Text = 供應商_dgv("支票_公司", e.RowIndex).Value.ToString
92
                     私人支票_tb.Text = 供應商_dgv("支票_私人", e.RowIndex).Value.ToString : 公司支票_tb.Text = 供應商_dgv("支票_公司", e.RowIndex).Value.ToString
93
                     稅金倍率_tb.Text = 供應商_dgv("稅金倍率", e.RowIndex).Value.ToString : 廣告費倍率_tb.Text = 供應商_dgv("廣告費倍率", e.RowIndex).Value.ToString
93
                     稅金倍率_tb.Text = 供應商_dgv("稅金倍率", e.RowIndex).Value.ToString : 廣告費倍率_tb.Text = 供應商_dgv("廣告費倍率", e.RowIndex).Value.ToString
94
                 End If
94
                 End If
127
                 工廠地址_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 手機_tb.Text = "" : 傳真_tb.Text = ""
127
                 工廠地址_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 手機_tb.Text = "" : 傳真_tb.Text = ""
128
                 POS_tb.Text = "" : 備註1_tb.Text = "" : 備註2_tb.Text = "" : 登入日期_dtp.Value = Today() : 結算日_nud.Value = 25
128
                 POS_tb.Text = "" : 備註1_tb.Text = "" : 備註2_tb.Text = "" : 登入日期_dtp.Value = Today() : 結算日_nud.Value = 25
129
                 KR1_nud.Value = 0 : KR2_nud.Value = 0 : KR3_nud.Value = 0 : PEC_cb.Text = "0" : 停用_ch.Checked = False
129
                 KR1_nud.Value = 0 : KR2_nud.Value = 0 : KR3_nud.Value = 0 : PEC_cb.Text = "0" : 停用_ch.Checked = False
130
-                查詢_tb.Text = "" : 票期_nud.Value = 15 : 私人支票_tb.Text = "" : 公司支票_tb.Text = "" : 稅金倍率_tb.Text = "" : 廣告費倍率_tb.Text = ""
130
+                查詢_tb.Text = "" : 票期_cb.Text = "45" : 私人支票_tb.Text = "" : 公司支票_tb.Text = "" : 稅金倍率_tb.Text = "" : 廣告費倍率_tb.Text = ""
131
                 資料新增判斷 = True '--------------------目前的編輯狀態
131
                 資料新增判斷 = True '--------------------目前的編輯狀態
132
                 狀態_lb.Text = "編輯狀態"
132
                 狀態_lb.Text = "編輯狀態"
133
                 供應商_dgv.Enabled = False : 查詢_tb.Enabled = False '--------------------關閉DGV與關鍵字查詢控件的點選控制功能
133
                 供應商_dgv.Enabled = False : 查詢_tb.Enabled = False '--------------------關閉DGV與關鍵字查詢控件的點選控制功能

+ 48
- 48
YD-ERP-SYS/採購系統管理/採購應付帳款.Designer.vb Datei anzeigen

22
     '請勿使用程式碼編輯器進行修改。
22
     '請勿使用程式碼編輯器進行修改。
23
     <System.Diagnostics.DebuggerStepThrough()>
23
     <System.Diagnostics.DebuggerStepThrough()>
24
     Private Sub InitializeComponent()
24
     Private Sub InitializeComponent()
25
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
31
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
32
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
32
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
33
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
33
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
130
         Me.一般月_ch.Cursor = System.Windows.Forms.Cursors.Default
130
         Me.一般月_ch.Cursor = System.Windows.Forms.Cursors.Default
131
         Me.一般月_ch.Location = New System.Drawing.Point(67, 31)
131
         Me.一般月_ch.Location = New System.Drawing.Point(67, 31)
132
         Me.一般月_ch.Name = "一般月_ch"
132
         Me.一般月_ch.Name = "一般月_ch"
133
-        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
133
+        Me.一般月_ch.Size = New System.Drawing.Size(62, 20)
134
         Me.一般月_ch.TabIndex = 1174
134
         Me.一般月_ch.TabIndex = 1174
135
         Me.一般月_ch.Text = "一般月"
135
         Me.一般月_ch.Text = "一般月"
136
         Me.一般月_ch.UseVisualStyleBackColor = True
136
         Me.一般月_ch.UseVisualStyleBackColor = True
143
         Me.會計月_ch.Cursor = System.Windows.Forms.Cursors.Default
143
         Me.會計月_ch.Cursor = System.Windows.Forms.Cursors.Default
144
         Me.會計月_ch.Location = New System.Drawing.Point(8, 31)
144
         Me.會計月_ch.Location = New System.Drawing.Point(8, 31)
145
         Me.會計月_ch.Name = "會計月_ch"
145
         Me.會計月_ch.Name = "會計月_ch"
146
-        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
146
+        Me.會計月_ch.Size = New System.Drawing.Size(62, 20)
147
         Me.會計月_ch.TabIndex = 1173
147
         Me.會計月_ch.TabIndex = 1173
148
         Me.會計月_ch.Text = "會計月"
148
         Me.會計月_ch.Text = "會計月"
149
         Me.會計月_ch.UseVisualStyleBackColor = True
149
         Me.會計月_ch.UseVisualStyleBackColor = True
178
         Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
178
         Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
179
         Me.Label4.Location = New System.Drawing.Point(114, 8)
179
         Me.Label4.Location = New System.Drawing.Point(114, 8)
180
         Me.Label4.Name = "Label4"
180
         Me.Label4.Name = "Label4"
181
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
181
+        Me.Label4.Size = New System.Drawing.Size(19, 16)
182
         Me.Label4.TabIndex = 1170
182
         Me.Label4.TabIndex = 1170
183
         Me.Label4.Text = "到"
183
         Me.Label4.Text = "到"
184
         '
184
         '
205
         '
205
         '
206
         '供應商_dgv
206
         '供應商_dgv
207
         '
207
         '
208
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Lavender
209
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
208
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Lavender
209
+        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
210
         Me.供應商_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
210
         Me.供應商_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
211
             Or System.Windows.Forms.AnchorStyles.Left) _
211
             Or System.Windows.Forms.AnchorStyles.Left) _
212
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
212
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
216
         Me.供應商_dgv.Location = New System.Drawing.Point(247, 81)
216
         Me.供應商_dgv.Location = New System.Drawing.Point(247, 81)
217
         Me.供應商_dgv.Name = "供應商_dgv"
217
         Me.供應商_dgv.Name = "供應商_dgv"
218
         Me.供應商_dgv.RowHeadersWidth = 5
218
         Me.供應商_dgv.RowHeadersWidth = 5
219
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
220
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
221
-        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
219
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
220
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
221
+        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
222
         Me.供應商_dgv.RowTemplate.Height = 24
222
         Me.供應商_dgv.RowTemplate.Height = 24
223
         Me.供應商_dgv.Size = New System.Drawing.Size(1092, 607)
223
         Me.供應商_dgv.Size = New System.Drawing.Size(1092, 607)
224
         Me.供應商_dgv.TabIndex = 1439
224
         Me.供應商_dgv.TabIndex = 1439
230
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
230
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
231
         Me.Label9.Location = New System.Drawing.Point(197, 404)
231
         Me.Label9.Location = New System.Drawing.Point(197, 404)
232
         Me.Label9.Name = "Label9"
232
         Me.Label9.Name = "Label9"
233
-        Me.Label9.Size = New System.Drawing.Size(44, 16)
233
+        Me.Label9.Size = New System.Drawing.Size(43, 16)
234
         Me.Label9.TabIndex = 1442
234
         Me.Label9.TabIndex = 1442
235
         Me.Label9.Text = "筆資料"
235
         Me.Label9.Text = "筆資料"
236
         '
236
         '
250
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
250
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
251
         Me.Label10.Location = New System.Drawing.Point(6, 404)
251
         Me.Label10.Location = New System.Drawing.Point(6, 404)
252
         Me.Label10.Name = "Label10"
252
         Me.Label10.Name = "Label10"
253
-        Me.Label10.Size = New System.Drawing.Size(80, 16)
253
+        Me.Label10.Size = New System.Drawing.Size(79, 16)
254
         Me.Label10.TabIndex = 1440
254
         Me.Label10.TabIndex = 1440
255
         Me.Label10.Text = "應付賬款,共"
255
         Me.Label10.Text = "應付賬款,共"
256
         '
256
         '
257
         '採購清單_dgv
257
         '採購清單_dgv
258
         '
258
         '
259
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
260
-        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
259
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
260
+        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
261
         Me.採購清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
261
         Me.採購清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
262
             Or System.Windows.Forms.AnchorStyles.Left) _
262
             Or System.Windows.Forms.AnchorStyles.Left) _
263
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
263
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
267
         Me.採購清單_dgv.Location = New System.Drawing.Point(247, 81)
267
         Me.採購清單_dgv.Location = New System.Drawing.Point(247, 81)
268
         Me.採購清單_dgv.Name = "採購清單_dgv"
268
         Me.採購清單_dgv.Name = "採購清單_dgv"
269
         Me.採購清單_dgv.RowHeadersWidth = 5
269
         Me.採購清單_dgv.RowHeadersWidth = 5
270
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
271
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
272
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
270
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
271
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
272
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
273
         Me.採購清單_dgv.RowTemplate.Height = 24
273
         Me.採購清單_dgv.RowTemplate.Height = 24
274
         Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 607)
274
         Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 607)
275
         Me.採購清單_dgv.TabIndex = 1443
275
         Me.採購清單_dgv.TabIndex = 1443
282
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
282
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
283
         Me.Label1.Location = New System.Drawing.Point(197, 380)
283
         Me.Label1.Location = New System.Drawing.Point(197, 380)
284
         Me.Label1.Name = "Label1"
284
         Me.Label1.Name = "Label1"
285
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
285
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
286
         Me.Label1.TabIndex = 1446
286
         Me.Label1.TabIndex = 1446
287
         Me.Label1.Text = "筆資料"
287
         Me.Label1.Text = "筆資料"
288
         '
288
         '
302
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
302
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
303
         Me.Label2.Location = New System.Drawing.Point(5, 380)
303
         Me.Label2.Location = New System.Drawing.Point(5, 380)
304
         Me.Label2.Name = "Label2"
304
         Me.Label2.Name = "Label2"
305
-        Me.Label2.Size = New System.Drawing.Size(80, 16)
305
+        Me.Label2.Size = New System.Drawing.Size(79, 16)
306
         Me.Label2.TabIndex = 1444
306
         Me.Label2.TabIndex = 1444
307
         Me.Label2.Text = "採購明細,共"
307
         Me.Label2.Text = "採購明細,共"
308
         '
308
         '
312
         Me.大間距_ch.Cursor = System.Windows.Forms.Cursors.Default
312
         Me.大間距_ch.Cursor = System.Windows.Forms.Cursors.Default
313
         Me.大間距_ch.Location = New System.Drawing.Point(389, 32)
313
         Me.大間距_ch.Location = New System.Drawing.Point(389, 32)
314
         Me.大間距_ch.Name = "大間距_ch"
314
         Me.大間距_ch.Name = "大間距_ch"
315
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
315
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
316
         Me.大間距_ch.TabIndex = 1449
316
         Me.大間距_ch.TabIndex = 1449
317
         Me.大間距_ch.Text = "大間距"
317
         Me.大間距_ch.Text = "大間距"
318
         Me.大間距_ch.UseVisualStyleBackColor = True
318
         Me.大間距_ch.UseVisualStyleBackColor = True
323
         Me.中間距_ch.Cursor = System.Windows.Forms.Cursors.Default
323
         Me.中間距_ch.Cursor = System.Windows.Forms.Cursors.Default
324
         Me.中間距_ch.Location = New System.Drawing.Point(320, 32)
324
         Me.中間距_ch.Location = New System.Drawing.Point(320, 32)
325
         Me.中間距_ch.Name = "中間距_ch"
325
         Me.中間距_ch.Name = "中間距_ch"
326
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
326
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
327
         Me.中間距_ch.TabIndex = 1448
327
         Me.中間距_ch.TabIndex = 1448
328
         Me.中間距_ch.Text = "中間距"
328
         Me.中間距_ch.Text = "中間距"
329
         Me.中間距_ch.UseVisualStyleBackColor = True
329
         Me.中間距_ch.UseVisualStyleBackColor = True
334
         Me.小間距_ch.Cursor = System.Windows.Forms.Cursors.Default
334
         Me.小間距_ch.Cursor = System.Windows.Forms.Cursors.Default
335
         Me.小間距_ch.Location = New System.Drawing.Point(251, 32)
335
         Me.小間距_ch.Location = New System.Drawing.Point(251, 32)
336
         Me.小間距_ch.Name = "小間距_ch"
336
         Me.小間距_ch.Name = "小間距_ch"
337
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
337
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
338
         Me.小間距_ch.TabIndex = 1447
338
         Me.小間距_ch.TabIndex = 1447
339
         Me.小間距_ch.Text = "小間距"
339
         Me.小間距_ch.Text = "小間距"
340
         Me.小間距_ch.UseVisualStyleBackColor = True
340
         Me.小間距_ch.UseVisualStyleBackColor = True
356
         Me.Label6.ForeColor = System.Drawing.Color.Green
356
         Me.Label6.ForeColor = System.Drawing.Color.Green
357
         Me.Label6.Location = New System.Drawing.Point(624, 33)
357
         Me.Label6.Location = New System.Drawing.Point(624, 33)
358
         Me.Label6.Name = "Label6"
358
         Me.Label6.Name = "Label6"
359
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
359
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
360
         Me.Label6.TabIndex = 1455
360
         Me.Label6.TabIndex = 1455
361
         Me.Label6.Text = "採購金額"
361
         Me.Label6.Text = "採購金額"
362
         '
362
         '
377
         Me.Label3.ForeColor = System.Drawing.Color.Green
377
         Me.Label3.ForeColor = System.Drawing.Color.Green
378
         Me.Label3.Location = New System.Drawing.Point(458, 32)
378
         Me.Label3.Location = New System.Drawing.Point(458, 32)
379
         Me.Label3.Name = "Label3"
379
         Me.Label3.Name = "Label3"
380
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
380
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
381
         Me.Label3.TabIndex = 1453
381
         Me.Label3.TabIndex = 1453
382
         Me.Label3.Text = "供應商"
382
         Me.Label3.Text = "供應商"
383
         '
383
         '
398
         Me.Label16.ForeColor = System.Drawing.Color.Blue
398
         Me.Label16.ForeColor = System.Drawing.Color.Blue
399
         Me.Label16.Location = New System.Drawing.Point(8, 211)
399
         Me.Label16.Location = New System.Drawing.Point(8, 211)
400
         Me.Label16.Name = "Label16"
400
         Me.Label16.Name = "Label16"
401
-        Me.Label16.Size = New System.Drawing.Size(56, 16)
401
+        Me.Label16.Size = New System.Drawing.Size(55, 16)
402
         Me.Label16.TabIndex = 1451
402
         Me.Label16.TabIndex = 1451
403
         Me.Label16.Text = "當月貨款"
403
         Me.Label16.Text = "當月貨款"
404
         '
404
         '
549
         Me.Label5.ForeColor = System.Drawing.Color.Blue
549
         Me.Label5.ForeColor = System.Drawing.Color.Blue
550
         Me.Label5.Location = New System.Drawing.Point(8, 355)
550
         Me.Label5.Location = New System.Drawing.Point(8, 355)
551
         Me.Label5.Name = "Label5"
551
         Me.Label5.Name = "Label5"
552
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
552
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
553
         Me.Label5.TabIndex = 1467
553
         Me.Label5.TabIndex = 1467
554
         Me.Label5.Text = "個人實付"
554
         Me.Label5.Text = "個人實付"
555
         '
555
         '
570
         Me.Label7.ForeColor = System.Drawing.Color.Blue
570
         Me.Label7.ForeColor = System.Drawing.Color.Blue
571
         Me.Label7.Location = New System.Drawing.Point(8, 331)
571
         Me.Label7.Location = New System.Drawing.Point(8, 331)
572
         Me.Label7.Name = "Label7"
572
         Me.Label7.Name = "Label7"
573
-        Me.Label7.Size = New System.Drawing.Size(56, 16)
573
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
574
         Me.Label7.TabIndex = 1469
574
         Me.Label7.TabIndex = 1469
575
         Me.Label7.Text = "公司實付"
575
         Me.Label7.Text = "公司實付"
576
         '
576
         '
591
         Me.Label8.ForeColor = System.Drawing.Color.Blue
591
         Me.Label8.ForeColor = System.Drawing.Color.Blue
592
         Me.Label8.Location = New System.Drawing.Point(8, 307)
592
         Me.Label8.Location = New System.Drawing.Point(8, 307)
593
         Me.Label8.Name = "Label8"
593
         Me.Label8.Name = "Label8"
594
-        Me.Label8.Size = New System.Drawing.Size(56, 16)
594
+        Me.Label8.Size = New System.Drawing.Size(55, 16)
595
         Me.Label8.TabIndex = 1471
595
         Me.Label8.TabIndex = 1471
596
         Me.Label8.Text = "實付金額"
596
         Me.Label8.Text = "實付金額"
597
         '
597
         '
612
         Me.Label11.ForeColor = System.Drawing.Color.Blue
612
         Me.Label11.ForeColor = System.Drawing.Color.Blue
613
         Me.Label11.Location = New System.Drawing.Point(8, 283)
613
         Me.Label11.Location = New System.Drawing.Point(8, 283)
614
         Me.Label11.Name = "Label11"
614
         Me.Label11.Name = "Label11"
615
-        Me.Label11.Size = New System.Drawing.Size(56, 16)
615
+        Me.Label11.Size = New System.Drawing.Size(55, 16)
616
         Me.Label11.TabIndex = 1473
616
         Me.Label11.TabIndex = 1473
617
         Me.Label11.Text = "其他扣款"
617
         Me.Label11.Text = "其他扣款"
618
         '
618
         '
633
         Me.Label12.ForeColor = System.Drawing.Color.Blue
633
         Me.Label12.ForeColor = System.Drawing.Color.Blue
634
         Me.Label12.Location = New System.Drawing.Point(8, 259)
634
         Me.Label12.Location = New System.Drawing.Point(8, 259)
635
         Me.Label12.Name = "Label12"
635
         Me.Label12.Name = "Label12"
636
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
636
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
637
         Me.Label12.TabIndex = 1475
637
         Me.Label12.TabIndex = 1475
638
         Me.Label12.Text = "廣  告  費"
638
         Me.Label12.Text = "廣  告  費"
639
         '
639
         '
654
         Me.Label13.ForeColor = System.Drawing.Color.Blue
654
         Me.Label13.ForeColor = System.Drawing.Color.Blue
655
         Me.Label13.Location = New System.Drawing.Point(8, 235)
655
         Me.Label13.Location = New System.Drawing.Point(8, 235)
656
         Me.Label13.Name = "Label13"
656
         Me.Label13.Name = "Label13"
657
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
657
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
658
         Me.Label13.TabIndex = 1477
658
         Me.Label13.TabIndex = 1477
659
         Me.Label13.Text = "稅        金"
659
         Me.Label13.Text = "稅        金"
660
         '
660
         '
661
         '合計_dgv
661
         '合計_dgv
662
         '
662
         '
663
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
664
-        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
663
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
664
+        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
665
         Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
665
         Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
666
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
666
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
667
         Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
667
         Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
670
         Me.合計_dgv.Location = New System.Drawing.Point(4, 428)
670
         Me.合計_dgv.Location = New System.Drawing.Point(4, 428)
671
         Me.合計_dgv.Name = "合計_dgv"
671
         Me.合計_dgv.Name = "合計_dgv"
672
         Me.合計_dgv.RowHeadersWidth = 5
672
         Me.合計_dgv.RowHeadersWidth = 5
673
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
674
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
675
-        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
673
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
674
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
675
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
676
         Me.合計_dgv.RowTemplate.Height = 24
676
         Me.合計_dgv.RowTemplate.Height = 24
677
         Me.合計_dgv.Size = New System.Drawing.Size(237, 153)
677
         Me.合計_dgv.Size = New System.Drawing.Size(237, 153)
678
         Me.合計_dgv.TabIndex = 1479
678
         Me.合計_dgv.TabIndex = 1479
769
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
769
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
770
         Me.Label14.Location = New System.Drawing.Point(247, 59)
770
         Me.Label14.Location = New System.Drawing.Point(247, 59)
771
         Me.Label14.Name = "Label14"
771
         Me.Label14.Name = "Label14"
772
-        Me.Label14.Size = New System.Drawing.Size(56, 16)
772
+        Me.Label14.Size = New System.Drawing.Size(55, 16)
773
         Me.Label14.TabIndex = 1496
773
         Me.Label14.TabIndex = 1496
774
         Me.Label14.Text = "會計科目"
774
         Me.Label14.Text = "會計科目"
775
         '
775
         '
855
         Me.Label15.AutoSize = True
855
         Me.Label15.AutoSize = True
856
         Me.Label15.Location = New System.Drawing.Point(827, 359)
856
         Me.Label15.Location = New System.Drawing.Point(827, 359)
857
         Me.Label15.Name = "Label15"
857
         Me.Label15.Name = "Label15"
858
-        Me.Label15.Size = New System.Drawing.Size(104, 16)
858
+        Me.Label15.Size = New System.Drawing.Size(103, 16)
859
         Me.Label15.TabIndex = 1510
859
         Me.Label15.TabIndex = 1510
860
         Me.Label15.Text = "營運成本收支單號"
860
         Me.Label15.Text = "營運成本收支單號"
861
         Me.Label15.Visible = False
861
         Me.Label15.Visible = False
875
         Me.Label17.AutoSize = True
875
         Me.Label17.AutoSize = True
876
         Me.Label17.Location = New System.Drawing.Point(887, 389)
876
         Me.Label17.Location = New System.Drawing.Point(887, 389)
877
         Me.Label17.Name = "Label17"
877
         Me.Label17.Name = "Label17"
878
-        Me.Label17.Size = New System.Drawing.Size(44, 16)
878
+        Me.Label17.Size = New System.Drawing.Size(43, 16)
879
         Me.Label17.TabIndex = 1512
879
         Me.Label17.TabIndex = 1512
880
         Me.Label17.Text = "申請人"
880
         Me.Label17.Text = "申請人"
881
         Me.Label17.Visible = False
881
         Me.Label17.Visible = False
895
         Me.備註_ch.Cursor = System.Windows.Forms.Cursors.Default
895
         Me.備註_ch.Cursor = System.Windows.Forms.Cursors.Default
896
         Me.備註_ch.Location = New System.Drawing.Point(1023, 30)
896
         Me.備註_ch.Location = New System.Drawing.Point(1023, 30)
897
         Me.備註_ch.Name = "備註_ch"
897
         Me.備註_ch.Name = "備註_ch"
898
-        Me.備註_ch.Size = New System.Drawing.Size(87, 20)
898
+        Me.備註_ch.Size = New System.Drawing.Size(86, 20)
899
         Me.備註_ch.TabIndex = 1514
899
         Me.備註_ch.TabIndex = 1514
900
         Me.備註_ch.Text = "狀態與備註"
900
         Me.備註_ch.Text = "狀態與備註"
901
         Me.備註_ch.UseVisualStyleBackColor = True
901
         Me.備註_ch.UseVisualStyleBackColor = True
906
         Me.申請與採購日期_ch.Cursor = System.Windows.Forms.Cursors.Default
906
         Me.申請與採購日期_ch.Cursor = System.Windows.Forms.Cursors.Default
907
         Me.申請與採購日期_ch.Location = New System.Drawing.Point(1112, 30)
907
         Me.申請與採購日期_ch.Location = New System.Drawing.Point(1112, 30)
908
         Me.申請與採購日期_ch.Name = "申請與採購日期_ch"
908
         Me.申請與採購日期_ch.Name = "申請與採購日期_ch"
909
-        Me.申請與採購日期_ch.Size = New System.Drawing.Size(111, 20)
909
+        Me.申請與採購日期_ch.Size = New System.Drawing.Size(110, 20)
910
         Me.申請與採購日期_ch.TabIndex = 1515
910
         Me.申請與採購日期_ch.TabIndex = 1515
911
         Me.申請與採購日期_ch.Text = "申請與採購日期"
911
         Me.申請與採購日期_ch.Text = "申請與採購日期"
912
         Me.申請與採購日期_ch.UseVisualStyleBackColor = True
912
         Me.申請與採購日期_ch.UseVisualStyleBackColor = True
916
         Me.Label18.AutoSize = True
916
         Me.Label18.AutoSize = True
917
         Me.Label18.Location = New System.Drawing.Point(1007, 59)
917
         Me.Label18.Location = New System.Drawing.Point(1007, 59)
918
         Me.Label18.Name = "Label18"
918
         Me.Label18.Name = "Label18"
919
-        Me.Label18.Size = New System.Drawing.Size(80, 16)
919
+        Me.Label18.Size = New System.Drawing.Size(79, 16)
920
         Me.Label18.TabIndex = 1516
920
         Me.Label18.TabIndex = 1516
921
         Me.Label18.Text = "財務單據日期"
921
         Me.Label18.Text = "財務單據日期"
922
         '
922
         '
948
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
948
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
949
         Me.Label19.Location = New System.Drawing.Point(1059, 8)
949
         Me.Label19.Location = New System.Drawing.Point(1059, 8)
950
         Me.Label19.Name = "Label19"
950
         Me.Label19.Name = "Label19"
951
-        Me.Label19.Size = New System.Drawing.Size(56, 16)
951
+        Me.Label19.Size = New System.Drawing.Size(55, 16)
952
         Me.Label19.TabIndex = 1520
952
         Me.Label19.TabIndex = 1520
953
         Me.Label19.Text = "過帳日期"
953
         Me.Label19.Text = "過帳日期"
954
         '
954
         '
1050
         Me.Controls.Add(Me.Label4)
1050
         Me.Controls.Add(Me.Label4)
1051
         Me.Controls.Add(Me.結束日期_dtp)
1051
         Me.Controls.Add(Me.結束日期_dtp)
1052
         Me.Controls.Add(Me.開始日期_dtp)
1052
         Me.Controls.Add(Me.開始日期_dtp)
1053
-        Me.Controls.Add(Me.採購清單_dgv)
1054
         Me.Controls.Add(Me.供應商_dgv)
1053
         Me.Controls.Add(Me.供應商_dgv)
1055
         Me.Controls.Add(Me.字體大小調整_lb)
1054
         Me.Controls.Add(Me.字體大小調整_lb)
1056
         Me.Controls.Add(Me.提示_lb)
1055
         Me.Controls.Add(Me.提示_lb)
1056
+        Me.Controls.Add(Me.採購清單_dgv)
1057
         Me.Cursor = System.Windows.Forms.Cursors.Default
1057
         Me.Cursor = System.Windows.Forms.Cursors.Default
1058
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1058
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1059
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1059
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)

+ 55
- 27
YD-ERP-SYS/採購系統管理/採購應付帳款.vb Datei anzeigen

7
 Imports Microsoft.Office.Interop.Excel.XlThemeFont
7
 Imports Microsoft.Office.Interop.Excel.XlThemeFont
8
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
8
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
9
 Imports Microsoft.Office.Interop.Excel.XlWindowState
9
 Imports Microsoft.Office.Interop.Excel.XlWindowState
10
-Imports System.Data.SqlClient
10
+Imports Microsoft.Office.Interop.Excel
11
 Public Class 採購應付帳款
11
 Public Class 採購應付帳款
12
     ReadOnly ds, ds1, da2 As New DataSet
12
     ReadOnly ds, ds1, da2 As New DataSet
13
-    Dim xlApp As Microsoft.Office.Interop.Excel.Application
14
-    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
15
-    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
13
+    Dim xlApp As Application
14
+    Dim xlBook As Workbook
15
+    Dim xlSheet As Worksheet
16
     Dim 新流水1 As String : Dim 新項次 As String : Dim 新支付單號 As String
16
     Dim 新流水1 As String : Dim 新項次 As String : Dim 新支付單號 As String
17
     Dim NUM1, N1, N2 As Integer : Dim 匯率1 As Double : Dim 狀態 As String
17
     Dim NUM1, N1, N2 As Integer : Dim 匯率1 As Double : Dim 狀態 As String
18
     Dim 首次開啟 As Boolean = False : Dim 首次 As Boolean = False
18
     Dim 首次開啟 As Boolean = False : Dim 首次 As Boolean = False
38
             供應商_dgv.Columns(16).ReadOnly = True
38
             供應商_dgv.Columns(16).ReadOnly = True
39
 
39
 
40
             資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
40
             資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
41
-            供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose
42
-            供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
43
-            供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
44
-            供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
41
+            供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose : 供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
42
+            供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose : 供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
45
             供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
43
             供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
46
 
44
 
47
             稅金_tb.Text = "0" : 廣告費_tb.Text = "0" : 其他扣款_tb.Text = "0" : 實付金額_tb.Text = "0" : 公司實付_tb.Text = "0" : 個人實付_tb.Text = "0"
45
             稅金_tb.Text = "0" : 廣告費_tb.Text = "0" : 其他扣款_tb.Text = "0" : 實付金額_tb.Text = "0" : 公司實付_tb.Text = "0" : 個人實付_tb.Text = "0"
66
                 公司實付_tb.Text = Val(公司實付_tb.Text) + 供應商_dgv("公司", i).Value
64
                 公司實付_tb.Text = Val(公司實付_tb.Text) + 供應商_dgv("公司", i).Value
67
                 個人實付_tb.Text = Val(個人實付_tb.Text) + 供應商_dgv("個人", i).Value
65
                 個人實付_tb.Text = Val(個人實付_tb.Text) + 供應商_dgv("個人", i).Value
68
 
66
 
69
-                If 供應商_dgv("票期1", i).Value = "0" Then
70
-                    供應商_dgv("票期1", i).Value = "1"
71
-                End If
72
-
67
+                PA21 = 供應商_dgv("票期1", i).Value.ToString : Set_票期計算()
73
                 If 供應商_dgv("票期", i).Value.ToString = "" Then
68
                 If 供應商_dgv("票期", i).Value.ToString = "" Then
74
-                    If Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
75
-                        If 供應商_dgv("票期1", i).Value.ToString = "30" Then
76
-                            供應商_dgv("票期1", i).Value = "28"
77
-                        End If
78
-                    End If
79
-                    DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
80
-                    If 供應商_dgv("票期1", i).Value < 10 Then
81
-                        PA16 = "0" & 供應商_dgv("票期1", i).Value.ToString
82
-                    Else
83
-                        PA16 = 供應商_dgv("票期1", i).Value.ToString
84
-                    End If
85
-                    供應商_dgv("票期", i).Value = Strings.Left(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA16
69
+                    供應商_dgv("票期", i).Value = Strings.Left(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA22
86
                 End If
70
                 End If
87
             Next
71
             Next
88
 
72
 
130
             MsgBox(ex.Message)
114
             MsgBox(ex.Message)
131
         End Try
115
         End Try
132
     End Sub
116
     End Sub
117
+    Private Sub Set_票期計算()
118
+        If PA21 = "0" Then : DTP1.Value = 結束日期_dtp.Value
119
+            If Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
120
+               Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
121
+               Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
122
+               Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
123
+            ElseIf Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
124
+                   Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
125
+            ElseIf Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
126
+        ElseIf PA21 = "1" Then : PA22 = "01" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
127
+        ElseIf PA21 = "5" Then : PA22 = "05" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
128
+        ElseIf PA21 = "15" Then : PA22 = "15" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
129
+        ElseIf PA21 = "30" Then : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
130
+            If Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
131
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
132
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
133
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
134
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
135
+                   Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
136
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
137
+        ElseIf PA21 = "31" Then : PA22 = "01" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
138
+        ElseIf PA21 = "35" Then : PA22 = "05" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
139
+        ElseIf PA21 = "45" Then : PA22 = "15" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
140
+        ElseIf PA21 = "60" Then : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
141
+            If Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
142
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
143
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
144
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
145
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
146
+                   Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
147
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
148
+        ElseIf PA21 = "61" Then : PA22 = "01" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
149
+        ElseIf PA21 = "65" Then : PA22 = "05" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
150
+        ElseIf PA21 = "75" Then : PA22 = "15" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
151
+        ElseIf PA21 = "90" Then : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
152
+            If Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
153
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
154
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
155
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
156
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
157
+                   Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
158
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
159
+        End If
160
+    End Sub
133
     Private Sub Set_清單2()
161
     Private Sub Set_清單2()
134
         Try
162
         Try
135
             採購清單_dgv.DataSource = Nothing : ds.Clear()
163
             採購清單_dgv.DataSource = Nothing : ds.Clear()
776
         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
804
         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
777
     End Sub
805
     End Sub
778
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
806
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
779
-        供應商_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
780
-        合計_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
781
-        採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
807
+        供應商_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
808
+        合計_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
809
+        採購清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
782
     End Sub
810
     End Sub
783
     Private Sub 應負帳款退回_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款退回_bt.Click
811
     Private Sub 應負帳款退回_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款退回_bt.Click
784
         Try
812
         Try

+ 66
- 66
YD-ERP-SYS/業務系統管理/應收帳款已收.Designer.vb Datei anzeigen

23
     <System.Diagnostics.DebuggerStepThrough()>
23
     <System.Diagnostics.DebuggerStepThrough()>
24
     Private Sub InitializeComponent()
24
     Private Sub InitializeComponent()
25
         Me.components = New System.ComponentModel.Container()
25
         Me.components = New System.ComponentModel.Container()
26
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33
         Me.Panel1 = New System.Windows.Forms.Panel()
33
         Me.Panel1 = New System.Windows.Forms.Panel()
34
+        Me.流水號2_bt = New System.Windows.Forms.TextBox()
34
         Me.財務單據退回_bt = New System.Windows.Forms.Button()
35
         Me.財務單據退回_bt = New System.Windows.Forms.Button()
35
         Me.衍生運費_dgv = New System.Windows.Forms.DataGridView()
36
         Me.衍生運費_dgv = New System.Windows.Forms.DataGridView()
36
         Me.其他費用_dgv = New System.Windows.Forms.DataGridView()
37
         Me.其他費用_dgv = New System.Windows.Forms.DataGridView()
105
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
106
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
106
         Me.項次3_tb = New System.Windows.Forms.TextBox()
107
         Me.項次3_tb = New System.Windows.Forms.TextBox()
107
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
108
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
108
-        Me.流水號2_bt = New System.Windows.Forms.TextBox()
109
         Me.Panel1.SuspendLayout()
109
         Me.Panel1.SuspendLayout()
110
         CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
110
         CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
111
         CType(Me.其他費用_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
111
         CType(Me.其他費用_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
122
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
122
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
123
         Me.Panel1.Controls.Add(Me.流水號2_bt)
123
         Me.Panel1.Controls.Add(Me.流水號2_bt)
124
         Me.Panel1.Controls.Add(Me.財務單據退回_bt)
124
         Me.Panel1.Controls.Add(Me.財務單據退回_bt)
125
-        Me.Panel1.Controls.Add(Me.衍生運費_dgv)
126
-        Me.Panel1.Controls.Add(Me.其他費用_dgv)
127
         Me.Panel1.Controls.Add(Me.其他費用_bt)
125
         Me.Panel1.Controls.Add(Me.其他費用_bt)
128
         Me.Panel1.Controls.Add(Me.衍生運費_bt)
126
         Me.Panel1.Controls.Add(Me.衍生運費_bt)
129
         Me.Panel1.Controls.Add(Me.銷售收款_bt)
127
         Me.Panel1.Controls.Add(Me.銷售收款_bt)
175
         Me.Panel1.Controls.Add(Me.Label12)
173
         Me.Panel1.Controls.Add(Me.Label12)
176
         Me.Panel1.Controls.Add(Me.業務_cb)
174
         Me.Panel1.Controls.Add(Me.業務_cb)
177
         Me.Panel1.Controls.Add(Me.Label13)
175
         Me.Panel1.Controls.Add(Me.Label13)
178
-        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
179
         Me.Panel1.Controls.Add(Me.項次2_tb)
176
         Me.Panel1.Controls.Add(Me.項次2_tb)
180
         Me.Panel1.Controls.Add(Me.收款事項_dgv)
177
         Me.Panel1.Controls.Add(Me.收款事項_dgv)
181
         Me.Panel1.Controls.Add(Me.Label14)
178
         Me.Panel1.Controls.Add(Me.Label14)
182
         Me.Panel1.Controls.Add(Me.Label10)
179
         Me.Panel1.Controls.Add(Me.Label10)
183
         Me.Panel1.Controls.Add(Me.Panel2)
180
         Me.Panel1.Controls.Add(Me.Panel2)
181
+        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
182
+        Me.Panel1.Controls.Add(Me.衍生運費_dgv)
183
+        Me.Panel1.Controls.Add(Me.其他費用_dgv)
184
         Me.Panel1.Location = New System.Drawing.Point(2, 2)
184
         Me.Panel1.Location = New System.Drawing.Point(2, 2)
185
         Me.Panel1.Name = "Panel1"
185
         Me.Panel1.Name = "Panel1"
186
         Me.Panel1.Size = New System.Drawing.Size(1236, 624)
186
         Me.Panel1.Size = New System.Drawing.Size(1236, 624)
187
         Me.Panel1.TabIndex = 1
187
         Me.Panel1.TabIndex = 1
188
         '
188
         '
189
+        '流水號2_bt
190
+        '
191
+        Me.流水號2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
192
+        Me.流水號2_bt.Enabled = False
193
+        Me.流水號2_bt.Location = New System.Drawing.Point(967, 425)
194
+        Me.流水號2_bt.Name = "流水號2_bt"
195
+        Me.流水號2_bt.Size = New System.Drawing.Size(120, 23)
196
+        Me.流水號2_bt.TabIndex = 1556
197
+        '
189
         '財務單據退回_bt
198
         '財務單據退回_bt
190
         '
199
         '
191
         Me.財務單據退回_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
200
         Me.財務單據退回_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
201
         '
210
         '
202
         '衍生運費_dgv
211
         '衍生運費_dgv
203
         '
212
         '
204
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
205
-        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
213
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
214
+        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
206
         Me.衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
215
         Me.衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
207
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
216
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
208
         Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
217
         Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
210
         Me.衍生運費_dgv.Location = New System.Drawing.Point(6, 451)
219
         Me.衍生運費_dgv.Location = New System.Drawing.Point(6, 451)
211
         Me.衍生運費_dgv.Name = "衍生運費_dgv"
220
         Me.衍生運費_dgv.Name = "衍生運費_dgv"
212
         Me.衍生運費_dgv.RowHeadersWidth = 5
221
         Me.衍生運費_dgv.RowHeadersWidth = 5
213
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
214
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
215
-        Me.衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
222
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
223
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
224
+        Me.衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
216
         Me.衍生運費_dgv.RowTemplate.Height = 24
225
         Me.衍生運費_dgv.RowTemplate.Height = 24
217
         Me.衍生運費_dgv.Size = New System.Drawing.Size(1224, 170)
226
         Me.衍生運費_dgv.Size = New System.Drawing.Size(1224, 170)
218
         Me.衍生運費_dgv.TabIndex = 1554
227
         Me.衍生運費_dgv.TabIndex = 1554
219
         '
228
         '
220
         '其他費用_dgv
229
         '其他費用_dgv
221
         '
230
         '
222
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
223
-        Me.其他費用_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
231
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
232
+        Me.其他費用_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
224
         Me.其他費用_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
233
         Me.其他費用_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
225
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
234
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
226
         Me.其他費用_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
235
         Me.其他費用_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
228
         Me.其他費用_dgv.Location = New System.Drawing.Point(6, 451)
237
         Me.其他費用_dgv.Location = New System.Drawing.Point(6, 451)
229
         Me.其他費用_dgv.Name = "其他費用_dgv"
238
         Me.其他費用_dgv.Name = "其他費用_dgv"
230
         Me.其他費用_dgv.RowHeadersWidth = 5
239
         Me.其他費用_dgv.RowHeadersWidth = 5
231
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
232
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
233
-        Me.其他費用_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
240
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
241
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
242
+        Me.其他費用_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
234
         Me.其他費用_dgv.RowTemplate.Height = 24
243
         Me.其他費用_dgv.RowTemplate.Height = 24
235
         Me.其他費用_dgv.Size = New System.Drawing.Size(1224, 170)
244
         Me.其他費用_dgv.Size = New System.Drawing.Size(1224, 170)
236
         Me.其他費用_dgv.TabIndex = 1553
245
         Me.其他費用_dgv.TabIndex = 1553
317
         '
326
         '
318
         Me.RadioButton3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
327
         Me.RadioButton3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
319
         Me.RadioButton3.AutoSize = True
328
         Me.RadioButton3.AutoSize = True
320
-        Me.RadioButton3.Location = New System.Drawing.Point(1120, 5)
329
+        Me.RadioButton3.Location = New System.Drawing.Point(1121, 5)
321
         Me.RadioButton3.Name = "RadioButton3"
330
         Me.RadioButton3.Name = "RadioButton3"
322
-        Me.RadioButton3.Size = New System.Drawing.Size(110, 20)
331
+        Me.RadioButton3.Size = New System.Drawing.Size(109, 20)
323
         Me.RadioButton3.TabIndex = 1537
332
         Me.RadioButton3.TabIndex = 1537
324
         Me.RadioButton3.Text = "未有資料轉財務"
333
         Me.RadioButton3.Text = "未有資料轉財務"
325
         Me.RadioButton3.UseVisualStyleBackColor = True
334
         Me.RadioButton3.UseVisualStyleBackColor = True
328
         '
337
         '
329
         Me.RadioButton2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
338
         Me.RadioButton2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
330
         Me.RadioButton2.AutoSize = True
339
         Me.RadioButton2.AutoSize = True
331
-        Me.RadioButton2.Location = New System.Drawing.Point(996, 5)
340
+        Me.RadioButton2.Location = New System.Drawing.Point(997, 5)
332
         Me.RadioButton2.Name = "RadioButton2"
341
         Me.RadioButton2.Name = "RadioButton2"
333
-        Me.RadioButton2.Size = New System.Drawing.Size(110, 20)
342
+        Me.RadioButton2.Size = New System.Drawing.Size(109, 20)
334
         Me.RadioButton2.TabIndex = 1536
343
         Me.RadioButton2.TabIndex = 1536
335
         Me.RadioButton2.Text = "已有資料轉財務"
344
         Me.RadioButton2.Text = "已有資料轉財務"
336
         Me.RadioButton2.UseVisualStyleBackColor = True
345
         Me.RadioButton2.UseVisualStyleBackColor = True
340
         Me.RadioButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
349
         Me.RadioButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
341
         Me.RadioButton1.AutoSize = True
350
         Me.RadioButton1.AutoSize = True
342
         Me.RadioButton1.Checked = True
351
         Me.RadioButton1.Checked = True
343
-        Me.RadioButton1.Location = New System.Drawing.Point(906, 5)
352
+        Me.RadioButton1.Location = New System.Drawing.Point(907, 5)
344
         Me.RadioButton1.Name = "RadioButton1"
353
         Me.RadioButton1.Name = "RadioButton1"
345
-        Me.RadioButton1.Size = New System.Drawing.Size(74, 20)
354
+        Me.RadioButton1.Size = New System.Drawing.Size(73, 20)
346
         Me.RadioButton1.TabIndex = 1535
355
         Me.RadioButton1.TabIndex = 1535
347
         Me.RadioButton1.TabStop = True
356
         Me.RadioButton1.TabStop = True
348
         Me.RadioButton1.Text = "全部資料"
357
         Me.RadioButton1.Text = "全部資料"
382
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
391
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
383
         Me.Label16.Location = New System.Drawing.Point(305, 377)
392
         Me.Label16.Location = New System.Drawing.Point(305, 377)
384
         Me.Label16.Name = "Label16"
393
         Me.Label16.Name = "Label16"
385
-        Me.Label16.Size = New System.Drawing.Size(44, 16)
394
+        Me.Label16.Size = New System.Drawing.Size(43, 16)
386
         Me.Label16.TabIndex = 1521
395
         Me.Label16.TabIndex = 1521
387
         Me.Label16.Text = "申請人"
396
         Me.Label16.Text = "申請人"
388
         '
397
         '
411
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
420
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
412
         Me.Label18.Location = New System.Drawing.Point(294, 402)
421
         Me.Label18.Location = New System.Drawing.Point(294, 402)
413
         Me.Label18.Name = "Label18"
422
         Me.Label18.Name = "Label18"
414
-        Me.Label18.Size = New System.Drawing.Size(56, 16)
423
+        Me.Label18.Size = New System.Drawing.Size(55, 16)
415
         Me.Label18.TabIndex = 1518
424
         Me.Label18.TabIndex = 1518
416
         Me.Label18.Text = "財務單號"
425
         Me.Label18.Text = "財務單號"
417
         '
426
         '
496
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
505
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
497
         Me.Label6.Location = New System.Drawing.Point(4, 351)
506
         Me.Label6.Location = New System.Drawing.Point(4, 351)
498
         Me.Label6.Name = "Label6"
507
         Me.Label6.Name = "Label6"
499
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
508
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
500
         Me.Label6.TabIndex = 1519
509
         Me.Label6.TabIndex = 1519
501
         Me.Label6.Text = "會計科目"
510
         Me.Label6.Text = "會計科目"
502
         '
511
         '
508
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
517
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
509
         Me.Label17.Location = New System.Drawing.Point(58, 402)
518
         Me.Label17.Location = New System.Drawing.Point(58, 402)
510
         Me.Label17.Name = "Label17"
519
         Me.Label17.Name = "Label17"
511
-        Me.Label17.Size = New System.Drawing.Size(80, 16)
520
+        Me.Label17.Size = New System.Drawing.Size(79, 16)
512
         Me.Label17.TabIndex = 1517
521
         Me.Label17.TabIndex = 1517
513
         Me.Label17.Text = "財務單據日期"
522
         Me.Label17.Text = "財務單據日期"
514
         '
523
         '
541
         Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
550
         Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
542
         Me.Label34.Location = New System.Drawing.Point(1149, 376)
551
         Me.Label34.Location = New System.Drawing.Point(1149, 376)
543
         Me.Label34.Name = "Label34"
552
         Me.Label34.Name = "Label34"
544
-        Me.Label34.Size = New System.Drawing.Size(86, 16)
553
+        Me.Label34.Size = New System.Drawing.Size(85, 16)
545
         Me.Label34.TabIndex = 1505
554
         Me.Label34.TabIndex = 1505
546
         Me.Label34.Text = "銷    售   合   計"
555
         Me.Label34.Text = "銷    售   合   計"
547
         '
556
         '
553
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
562
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
554
         Me.Label2.Location = New System.Drawing.Point(470, 376)
563
         Me.Label2.Location = New System.Drawing.Point(470, 376)
555
         Me.Label2.Name = "Label2"
564
         Me.Label2.Name = "Label2"
556
-        Me.Label2.Size = New System.Drawing.Size(32, 16)
565
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
557
         Me.Label2.TabIndex = 1489
566
         Me.Label2.TabIndex = 1489
558
         Me.Label2.Text = "單號"
567
         Me.Label2.Text = "單號"
559
         '
568
         '
565
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
574
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
566
         Me.Label4.Location = New System.Drawing.Point(470, 403)
575
         Me.Label4.Location = New System.Drawing.Point(470, 403)
567
         Me.Label4.Name = "Label4"
576
         Me.Label4.Name = "Label4"
568
-        Me.Label4.Size = New System.Drawing.Size(32, 16)
577
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
569
         Me.Label4.TabIndex = 1490
578
         Me.Label4.TabIndex = 1490
570
         Me.Label4.Text = "客戶"
579
         Me.Label4.Text = "客戶"
571
         '
580
         '
576
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
585
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
577
         Me.Label8.Location = New System.Drawing.Point(775, 403)
586
         Me.Label8.Location = New System.Drawing.Point(775, 403)
578
         Me.Label8.Name = "Label8"
587
         Me.Label8.Name = "Label8"
579
-        Me.Label8.Size = New System.Drawing.Size(39, 16)
588
+        Me.Label8.Size = New System.Drawing.Size(38, 16)
580
         Me.Label8.TabIndex = 1492
589
         Me.Label8.TabIndex = 1492
581
         Me.Label8.Text = "電話2"
590
         Me.Label8.Text = "電話2"
582
         '
591
         '
615
         Me.含稅_ch.ImeMode = System.Windows.Forms.ImeMode.NoControl
624
         Me.含稅_ch.ImeMode = System.Windows.Forms.ImeMode.NoControl
616
         Me.含稅_ch.Location = New System.Drawing.Point(1096, 401)
625
         Me.含稅_ch.Location = New System.Drawing.Point(1096, 401)
617
         Me.含稅_ch.Name = "含稅_ch"
626
         Me.含稅_ch.Name = "含稅_ch"
618
-        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
627
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
619
         Me.含稅_ch.TabIndex = 1504
628
         Me.含稅_ch.TabIndex = 1504
620
         Me.含稅_ch.Text = "含稅"
629
         Me.含稅_ch.Text = "含稅"
621
         Me.含稅_ch.UseVisualStyleBackColor = True
630
         Me.含稅_ch.UseVisualStyleBackColor = True
656
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
665
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
657
         Me.Label9.Location = New System.Drawing.Point(628, 401)
666
         Me.Label9.Location = New System.Drawing.Point(628, 401)
658
         Me.Label9.Name = "Label9"
667
         Me.Label9.Name = "Label9"
659
-        Me.Label9.Size = New System.Drawing.Size(56, 16)
668
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
660
         Me.Label9.TabIndex = 1502
669
         Me.Label9.TabIndex = 1502
661
         Me.Label9.Text = "交貨日期"
670
         Me.Label9.Text = "交貨日期"
662
         '
671
         '
668
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
677
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
669
         Me.Label11.Location = New System.Drawing.Point(937, 401)
678
         Me.Label11.Location = New System.Drawing.Point(937, 401)
670
         Me.Label11.Name = "Label11"
679
         Me.Label11.Name = "Label11"
671
-        Me.Label11.Size = New System.Drawing.Size(32, 16)
680
+        Me.Label11.Size = New System.Drawing.Size(31, 16)
672
         Me.Label11.TabIndex = 1499
681
         Me.Label11.TabIndex = 1499
673
         Me.Label11.Text = "統編"
682
         Me.Label11.Text = "統編"
674
         '
683
         '
690
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
699
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
691
         Me.Label5.Location = New System.Drawing.Point(628, 376)
700
         Me.Label5.Location = New System.Drawing.Point(628, 376)
692
         Me.Label5.Name = "Label5"
701
         Me.Label5.Name = "Label5"
693
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
702
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
694
         Me.Label5.TabIndex = 1500
703
         Me.Label5.TabIndex = 1500
695
         Me.Label5.Text = "開單日期"
704
         Me.Label5.Text = "開單日期"
696
         '
705
         '
702
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
711
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
703
         Me.Label7.Location = New System.Drawing.Point(775, 376)
712
         Me.Label7.Location = New System.Drawing.Point(775, 376)
704
         Me.Label7.Name = "Label7"
713
         Me.Label7.Name = "Label7"
705
-        Me.Label7.Size = New System.Drawing.Size(39, 16)
714
+        Me.Label7.Size = New System.Drawing.Size(38, 16)
706
         Me.Label7.TabIndex = 1491
715
         Me.Label7.TabIndex = 1491
707
         Me.Label7.Text = "電話1"
716
         Me.Label7.Text = "電話1"
708
         '
717
         '
733
         Me.Label1.AutoSize = True
742
         Me.Label1.AutoSize = True
734
         Me.Label1.Location = New System.Drawing.Point(11, 378)
743
         Me.Label1.Location = New System.Drawing.Point(11, 378)
735
         Me.Label1.Name = "Label1"
744
         Me.Label1.Name = "Label1"
736
-        Me.Label1.Size = New System.Drawing.Size(32, 16)
745
+        Me.Label1.Size = New System.Drawing.Size(31, 16)
737
         Me.Label1.TabIndex = 1304
746
         Me.Label1.TabIndex = 1304
738
         Me.Label1.Text = "項次"
747
         Me.Label1.Text = "項次"
739
         '
748
         '
754
         Me.未審核_lb.AutoSize = True
763
         Me.未審核_lb.AutoSize = True
755
         Me.未審核_lb.Location = New System.Drawing.Point(5, 8)
764
         Me.未審核_lb.Location = New System.Drawing.Point(5, 8)
756
         Me.未審核_lb.Name = "未審核_lb"
765
         Me.未審核_lb.Name = "未審核_lb"
757
-        Me.未審核_lb.Size = New System.Drawing.Size(68, 16)
766
+        Me.未審核_lb.Size = New System.Drawing.Size(67, 16)
758
         Me.未審核_lb.TabIndex = 1340
767
         Me.未審核_lb.TabIndex = 1340
759
         Me.未審核_lb.Text = "業務銷售單"
768
         Me.未審核_lb.Text = "業務銷售單"
760
         '
769
         '
773
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
782
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
774
         Me.Label12.Location = New System.Drawing.Point(118, 8)
783
         Me.Label12.Location = New System.Drawing.Point(118, 8)
775
         Me.Label12.Name = "Label12"
784
         Me.Label12.Name = "Label12"
776
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
785
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
777
         Me.Label12.TabIndex = 1342
786
         Me.Label12.TabIndex = 1342
778
         Me.Label12.Text = "客戶資料"
787
         Me.Label12.Text = "客戶資料"
779
         '
788
         '
808
         Me.銷售單據_dgv.Location = New System.Drawing.Point(7, 29)
817
         Me.銷售單據_dgv.Location = New System.Drawing.Point(7, 29)
809
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
818
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
810
         Me.銷售單據_dgv.RowHeadersWidth = 5
819
         Me.銷售單據_dgv.RowHeadersWidth = 5
811
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
812
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
813
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
820
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
821
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
822
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
814
         Me.銷售單據_dgv.RowTemplate.Height = 24
823
         Me.銷售單據_dgv.RowTemplate.Height = 24
815
         Me.銷售單據_dgv.Size = New System.Drawing.Size(1224, 310)
824
         Me.銷售單據_dgv.Size = New System.Drawing.Size(1224, 310)
816
         Me.銷售單據_dgv.TabIndex = 1339
825
         Me.銷售單據_dgv.TabIndex = 1339
826
         '
835
         '
827
         '收款事項_dgv
836
         '收款事項_dgv
828
         '
837
         '
829
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
830
-        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
838
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
839
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
831
         Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
840
         Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
832
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
841
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
833
         Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
842
         Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
835
         Me.收款事項_dgv.Location = New System.Drawing.Point(6, 451)
844
         Me.收款事項_dgv.Location = New System.Drawing.Point(6, 451)
836
         Me.收款事項_dgv.Name = "收款事項_dgv"
845
         Me.收款事項_dgv.Name = "收款事項_dgv"
837
         Me.收款事項_dgv.RowHeadersWidth = 5
846
         Me.收款事項_dgv.RowHeadersWidth = 5
838
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
839
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
840
-        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
847
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
848
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
849
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
841
         Me.收款事項_dgv.RowTemplate.Height = 24
850
         Me.收款事項_dgv.RowTemplate.Height = 24
842
         Me.收款事項_dgv.Size = New System.Drawing.Size(1224, 170)
851
         Me.收款事項_dgv.Size = New System.Drawing.Size(1224, 170)
843
         Me.收款事項_dgv.TabIndex = 1288
852
         Me.收款事項_dgv.TabIndex = 1288
849
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
858
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
850
         Me.Label14.Location = New System.Drawing.Point(768, 351)
859
         Me.Label14.Location = New System.Drawing.Point(768, 351)
851
         Me.Label14.Name = "Label14"
860
         Me.Label14.Name = "Label14"
852
-        Me.Label14.Size = New System.Drawing.Size(121, 16)
861
+        Me.Label14.Size = New System.Drawing.Size(120, 16)
853
         Me.Label14.TabIndex = 1526
862
         Me.Label14.TabIndex = 1526
854
         Me.Label14.Text = "關鍵字查詢-會計科目"
863
         Me.Label14.Text = "關鍵字查詢-會計科目"
855
         '
864
         '
861
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
870
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
862
         Me.Label10.Location = New System.Drawing.Point(936, 376)
871
         Me.Label10.Location = New System.Drawing.Point(936, 376)
863
         Me.Label10.Name = "Label10"
872
         Me.Label10.Name = "Label10"
864
-        Me.Label10.Size = New System.Drawing.Size(32, 16)
873
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
865
         Me.Label10.TabIndex = 1496
874
         Me.Label10.TabIndex = 1496
866
         Me.Label10.Text = "公司"
875
         Me.Label10.Text = "公司"
867
         '
876
         '
909
         Me.Label3.AutoSize = True
918
         Me.Label3.AutoSize = True
910
         Me.Label3.Location = New System.Drawing.Point(56, 9)
919
         Me.Label3.Location = New System.Drawing.Point(56, 9)
911
         Me.Label3.Name = "Label3"
920
         Me.Label3.Name = "Label3"
912
-        Me.Label3.Size = New System.Drawing.Size(39, 16)
921
+        Me.Label3.Size = New System.Drawing.Size(38, 16)
913
         Me.Label3.TabIndex = 1305
922
         Me.Label3.TabIndex = 1305
914
         Me.Label3.Text = "項次3"
923
         Me.Label3.Text = "項次3"
915
         Me.Label3.Visible = False
924
         Me.Label3.Visible = False
929
         Me.銷售收款流水號.ImeMode = System.Windows.Forms.ImeMode.NoControl
938
         Me.銷售收款流水號.ImeMode = System.Windows.Forms.ImeMode.NoControl
930
         Me.銷售收款流水號.Location = New System.Drawing.Point(3, 34)
939
         Me.銷售收款流水號.Location = New System.Drawing.Point(3, 34)
931
         Me.銷售收款流水號.Name = "銷售收款流水號"
940
         Me.銷售收款流水號.Name = "銷售收款流水號"
932
-        Me.銷售收款流水號.Size = New System.Drawing.Size(92, 16)
941
+        Me.銷售收款流水號.Size = New System.Drawing.Size(91, 16)
933
         Me.銷售收款流水號.TabIndex = 1301
942
         Me.銷售收款流水號.TabIndex = 1301
934
         Me.銷售收款流水號.Text = "銷售資料流水號"
943
         Me.銷售收款流水號.Text = "銷售資料流水號"
935
         Me.銷售收款流水號.Visible = False
944
         Me.銷售收款流水號.Visible = False
949
         Me.銷售合計.ImeMode = System.Windows.Forms.ImeMode.NoControl
958
         Me.銷售合計.ImeMode = System.Windows.Forms.ImeMode.NoControl
950
         Me.銷售合計.Location = New System.Drawing.Point(39, 59)
959
         Me.銷售合計.Location = New System.Drawing.Point(39, 59)
951
         Me.銷售合計.Name = "銷售合計"
960
         Me.銷售合計.Name = "銷售合計"
952
-        Me.銷售合計.Size = New System.Drawing.Size(56, 16)
961
+        Me.銷售合計.Size = New System.Drawing.Size(55, 16)
953
         Me.銷售合計.TabIndex = 1303
962
         Me.銷售合計.TabIndex = 1303
954
         Me.銷售合計.Text = "銷售合計"
963
         Me.銷售合計.Text = "銷售合計"
955
         Me.銷售合計.Visible = False
964
         Me.銷售合計.Visible = False
993
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
1002
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
994
         Me.Label15.Location = New System.Drawing.Point(15, 84)
1003
         Me.Label15.Location = New System.Drawing.Point(15, 84)
995
         Me.Label15.Name = "Label15"
1004
         Me.Label15.Name = "Label15"
996
-        Me.Label15.Size = New System.Drawing.Size(85, 16)
1005
+        Me.Label15.Size = New System.Drawing.Size(84, 16)
997
         Me.Label15.TabIndex = 1507
1006
         Me.Label15.TabIndex = 1507
998
         Me.Label15.Text = "明細-售價小計"
1007
         Me.Label15.Text = "明細-售價小計"
999
         Me.Label15.Visible = False
1008
         Me.Label15.Visible = False
1021
         '
1030
         '
1022
         Me.Timer1.Interval = 500
1031
         Me.Timer1.Interval = 500
1023
         '
1032
         '
1024
-        '流水號2_bt
1025
-        '
1026
-        Me.流水號2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1027
-        Me.流水號2_bt.Enabled = False
1028
-        Me.流水號2_bt.Location = New System.Drawing.Point(967, 425)
1029
-        Me.流水號2_bt.Name = "流水號2_bt"
1030
-        Me.流水號2_bt.Size = New System.Drawing.Size(120, 23)
1031
-        Me.流水號2_bt.TabIndex = 1556
1032
-        '
1033
         '應收帳款已收
1033
         '應收帳款已收
1034
         '
1034
         '
1035
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
1035
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)

+ 3
- 4
YD-ERP-SYS/業務系統管理/應收帳款已收.vb Datei anzeigen

1
 Public Class 應收帳款已收
1
 Public Class 應收帳款已收
2
     ReadOnly ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
2
     ReadOnly ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
3
     Dim EDR As Integer : Dim ESTR As String : Dim 首次開啟 As Boolean = False : Dim 刪除狀態 As Boolean
3
     Dim EDR As Integer : Dim ESTR As String : Dim 首次開啟 As Boolean = False : Dim 刪除狀態 As Boolean
4
-    Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String : Dim NUM1 As Integer : Dim 匯率1 As Double
4
+    Dim 新項次, 新流水1, 新流水2 As String : Dim NUM1 As Integer : Dim 匯率1 As Double
5
     Private Sub Set_清單1()
5
     Private Sub Set_清單1()
6
         Try
6
         Try
7
             銷售單據_dgv.DataSource = Nothing : ds1.Clear()
7
             銷售單據_dgv.DataSource = Nothing : ds1.Clear()
576
             If 營運成本收支單號_tb.Text = "" Then
576
             If 營運成本收支單號_tb.Text = "" Then
577
                 MsgBox("沒有選擇要退回的資料,無法操作")
577
                 MsgBox("沒有選擇要退回的資料,無法操作")
578
             Else
578
             Else
579
-                PA = 營運成本收支單號_tb.Text
580
-                SQL_營運成本收支單申請_刪除公帳控制表_應收用() : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
581
-                PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單2() : Set_清單3() : Set_清單4()
579
+                PA = 營運成本收支單號_tb.Text : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
580
+                PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單2() : Set_清單3() : Set_清單4() : MsgBox("退單完成!!")
582
             End If
581
             End If
583
         Catch ex As Exception
582
         Catch ex As Exception
584
             MsgBox(ex.Message)
583
             MsgBox(ex.Message)

+ 728
- 465
YD-ERP-SYS/業務系統管理/銷售單申請.Designer.vb
Datei-Diff unterdrückt, da er zu groß ist
Datei anzeigen


+ 173
- 22
YD-ERP-SYS/業務系統管理/銷售單申請.vb Datei anzeigen

9
 Imports Microsoft.Office.Interop.Excel.XlWindowState
9
 Imports Microsoft.Office.Interop.Excel.XlWindowState
10
 Public Class 銷售單申請
10
 Public Class 銷售單申請
11
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
11
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
12
-    Dim ESTR, ESTR1, 變數 As String
12
+    Dim 匯率1 As Double
13
+    Dim 新項次, ESTR, ESTR1, 變數, 新流水1 As String
13
     Dim 運費, 稅金存檔, 選取位置, NUM1, EDR, EDR1, N1, N2, N3, N4 As Integer
14
     Dim 運費, 稅金存檔, 選取位置, NUM1, EDR, EDR1, N1, N2, N3, N4 As Integer
14
     Dim 刷卡控制, 首次開啟 As Boolean
15
     Dim 刷卡控制, 首次開啟 As Boolean
15
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
16
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
257
 
258
 
258
             For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
259
             For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
259
                 收款事項_dgv("項次", i).Value = i + 1
260
                 收款事項_dgv("項次", i).Value = i + 1
260
-                If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
261
-                    收款事項_dgv("含稅", i).Value = False
262
-                End If
261
+                If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then : 收款事項_dgv("含稅", i).Value = False : End If
262
+                If IsDBNull(收款事項_dgv("轉財務", i).Value) = True Then : 收款事項_dgv("轉財務", i).Value = False : End If
263
             Next
263
             Next
264
             收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
264
             收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
265
             Set_合記計算()
265
             Set_合記計算()
324
     End Sub
324
     End Sub
325
     Private Sub Set_日期格式轉換()
325
     Private Sub Set_日期格式轉換()
326
         DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
326
         DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
327
+        DTP3 = Strings.Format(申請日期_dtp.Value, "yyyyMMdd") : DTP4 = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd")
327
     End Sub
328
     End Sub
328
     Private Sub Set_合記計算()
329
     Private Sub Set_合記計算()
329
         Try
330
         Try
460
         業務_cb.Items.Clear() : 業務_cb.Items.Clear()
461
         業務_cb.Items.Clear() : 業務_cb.Items.Clear()
461
         While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close()
462
         While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close()
462
     End Sub
463
     End Sub
464
+    Private Sub ComboBox1下拉表單資料載入()
465
+        conn.Close()
466
+        SQL_應收帳款已收_查詢公帳控制表會計科目1() : ComboBox1.Items.Clear() : ComboBox6.Items.Clear()
467
+        While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
468
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
469
+    End Sub
470
+    Private Sub ComboBox2下拉表單資料載入()
471
+        conn.Close()
472
+        SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目() : 會科1_ch.Items.Clear() : 會科碼1_ch.Items.Clear() : 會科1_ch.Text = "" : 會科碼1_ch.Text = ""
473
+        While (dr.Read()) : 會科1_ch.Items.Add(dr("第一階")) : 會科碼1_ch.Items.Add(dr("編號")) : End While : conn.Close()
474
+    End Sub
475
+    Private Sub ComboBox3下拉表單資料載入()
476
+        conn.Close()
477
+        SQL_應收帳款已收_查詢最左邊公帳控制表會計科目1() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
478
+        While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
479
+    End Sub
480
+    Private Sub 匯率()
481
+        PA1 = Strings.Left(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 4)
482
+        PA2 = Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2)
483
+        SQL_營運成本收支單申請_查詢匯率()
484
+        If dr.Read() Then
485
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close()
486
+        Else
487
+            conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront()
488
+        End If
489
+    End Sub
463
     Private Sub 銷售單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
490
     Private Sub 銷售單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
464
-        Try
465
-            Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
466
-            顯示_bt.Enabled = False : 隱藏_bt.Enabled = True : 業務_cb_下拉表單資料載入()
467
-            If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
468
-            If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
469
-            料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
470
-
471
-            指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入()
472
-            首次開啟 = False : Set_清單() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
473
-
474
-            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
475
-                字體_NUD.Value = 9
476
-            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
477
-                字體_NUD.Value = 7.6
478
-            End If
479
-        Catch ex As Exception
480
-            MsgBox(ex.Message)
481
-        End Try
491
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
492
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
493
+        會科1_ch.Items.Clear() : 會科碼1_ch.Items.Clear() : 會科1_ch.Text = "" : 會科碼1_ch.Text = ""
494
+
495
+        ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
496
+        會科1_ch.SelectedIndex = 1 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0
497
+        申請人_tb.Text = gUserName : 申請日期_dtp.Value = Today() : 匯率()
498
+
499
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True : 業務_cb_下拉表單資料載入()
500
+        If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
501
+        If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
502
+        料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
503
+
504
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入()
505
+        首次開啟 = False : Set_清單() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
506
+
507
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
508
+            字體_NUD.Value = 9
509
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
510
+            字體_NUD.Value = 7.6
511
+        End If
482
     End Sub
512
     End Sub
483
     Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
513
     Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
484
         If 開立庫存調整單_bt.Enabled = False Then
514
         If 開立庫存調整單_bt.Enabled = False Then
510
     Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
540
     Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
511
         If e.RowIndex = -1 Then : Else
541
         If e.RowIndex = -1 Then : Else
512
             銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString : 項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
542
             銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString : 項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
543
+            營運成本收支單號_tb.Text = 收款事項_dgv("收支單號", e.RowIndex).Value.ToString : 流水號2_bt.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString
513
             項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
544
             項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
514
         End If
545
         End If
515
     End Sub
546
     End Sub
696
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
727
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
697
         存檔1() : Set_清單4()
728
         存檔1() : Set_清單4()
698
     End Sub
729
     End Sub
730
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科1_ch.TextChanged
731
+        會科碼1_ch.SelectedIndex = 會科1_ch.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
732
+    End Sub
733
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科碼1_ch.TextChanged
734
+        會科1_ch.SelectedIndex = 會科碼1_ch.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
735
+    End Sub
736
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
737
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
738
+    End Sub
739
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
740
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
741
+    End Sub
742
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
743
+        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
744
+    End Sub
745
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
746
+        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
747
+    End Sub
748
+
699
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
749
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
700
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
750
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
701
             供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
751
             供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
1302
             MsgBox(ex.Message)
1352
             MsgBox(ex.Message)
1303
         End Try
1353
         End Try
1304
     End Sub
1354
     End Sub
1355
+    Private Sub 財務單據退回_bt_Click(sender As Object, e As EventArgs) Handles 財務單據退回_bt.Click
1356
+        If 營運成本收支單號_tb.Text = "" Then
1357
+            MsgBox("沒有選擇要退回的資料,無法操作")
1358
+        Else
1359
+            PA = 營運成本收支單號_tb.Text : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
1360
+            PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單6()
1361
+            MsgBox("退單完成!!")
1362
+        End If
1363
+    End Sub
1364
+    Private Sub Set_流水號()
1365
+        conn.Close() : dr.Close()
1366
+        Dim NUM1 As Integer
1367
+        For NUM1 = 0 To 99
1368
+            Dim d As String : Dim f As String : Dim g As Integer = 1
1369
+            If Month(申請日期_dtp.Value) < 10 Then : d = "0" & CStr(Month(申請日期_dtp.Value))
1370
+            Else : d = CStr(Month(申請日期_dtp.Value))
1371
+            End If
1372
+            If Val(Strings.Right(申請日期_dtp.Value, 2)) < 10 Then : f = "0" & Val(Strings.Right(申請日期_dtp.Value, 2))
1373
+            Else : f = Val(Strings.Right(申請日期_dtp.Value, 2))
1374
+            End If
1375
+            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & "0" & NUM1
1376
+            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & NUM1
1377
+            End If : PA19 = 新流水1
1378
+            SQL_營運成本收支單申請_查詢收支單公帳流水號()
1379
+            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If
1380
+        Next
1381
+    End Sub
1382
+    Private Sub 轉財務系統_bt_Click(sender As Object, e As EventArgs) Handles 轉財務系統_bt.Click
1383
+        SQL_應收帳款未收_轉財務Null為False()
1384
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
1385
+            資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
1386
+            PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
1387
+            NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
1388
+            SQL_銷售收款事項_修改() : conn.Close()
1389
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
1390
+
1391
+        Dim AA As Boolean = True
1392
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
1393
+            If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False Then
1394
+                AA = False
1395
+                Exit For
1396
+            End If
1397
+        Next
1398
+        If AA = False Then
1399
+            Dim NUM1 As Integer
1400
+            Set_日期格式轉換()
1401
+            For i As Integer = 1 To 999
1402
+                NUM1 = 0 + i
1403
+                If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-00" & NUM1
1404
+                ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-0" & NUM1
1405
+                ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-" & NUM1
1406
+                End If
1407
+                conn.Close()
1408
+                PA = 營運成本收支單號_tb.Text
1409
+                SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
1410
+                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
1411
+            Next
1412
+            PA = 營運成本收支單號_tb.Text
1413
+            SQL_營運成本收支單申請_新增一筆公帳控制表() : conn.Close()
1414
+
1415
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
1416
+                資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
1417
+                If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False And 收款事項_dgv("金額", i).Value <> 0 Then
1418
+                    If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
1419
+                        MsgBox("沒有選擇會計科目或幣別。")
1420
+                    Else
1421
+                        Set_日期格式轉換() : Set_流水號()
1422
+                        PA = 營運成本收支單號_tb.Text
1423
+                        SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
1424
+                        If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
1425
+                        NUM1 = Double.Parse(新項次) + 1
1426
+                        If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
1427
+
1428
+                        If 幣別_cb.Text = "台幣現金" Then : 匯率1 = 1
1429
+                        ElseIf 幣別_cb.Text = "人民幣現金" Then : 匯率1 = 人民幣匯率_tb.Text
1430
+                        ElseIf 幣別_cb.Text = "美金" Then : 匯率1 = 美金匯率_tb.Text : End If
1431
+
1432
+                        Dim RR As String
1433
+                        If Len(客戶_tb.Text & 收款事項_dgv.Rows(i).Cells("內容").Value) <= 21 Then
1434
+                            RR = 收款事項_dgv.Rows(i).Cells("內容").Value
1435
+                        Else
1436
+                            RR = Strings.Left(收款事項_dgv.Rows(i).Cells("內容").Value, 21 - Len(客戶_tb.Text))
1437
+                        End If
1438
+                        PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & RR & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]"
1439
+
1440
+                        PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value
1441
+                        PA21 = 收款事項_dgv.Rows(i).Cells("含稅").Value : PA22 = "0"
1442
+                        SQL_應收轉財務_新增公帳流水帳資料()
1443
+
1444
+                        PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
1445
+                        SQL_應收帳款未收_轉財務()
1446
+
1447
+                        conn.Close() : Set_清單6()
1448
+                    End If
1449
+                End If
1450
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
1451
+            Set_清單1() : MsgBox("收款資料轉財務單完成!!!")
1452
+        Else
1453
+            MsgBox("沒有滿足可以轉財務的需求!!!")
1454
+        End If
1455
+    End Sub
1305
     Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click
1456
     Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click
1306
         Try
1457
         Try
1307
             If 流水號_tb.Text = "" Then
1458
             If 流水號_tb.Text = "" Then

Laden…
Abbrechen
Speichern