siu 1 settimana fa
parent
commit
7be3cf06e8
34 ha cambiato i file con 1180 aggiunte e 1338 eliminazioni
  1. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/48e78736-8b9c-4e35-9664-f2454e23ebc3.vsidx
  2. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/49d23995-8bd7-45a9-a186-f53d34ddc463.vsidx
  3. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/4a623c0f-546a-49c6-8b30-650bb4d2db31.vsidx
  4. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/5da47f60-9f37-42a6-a72d-1020fd116aec.vsidx
  5. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/66837806-ccb0-4c27-bad1-7c8068b21a91.vsidx
  6. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/c13f3331-95e9-4104-a3d8-d90322413173.vsidx
  7. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/f3db3227-311d-4d46-bafa-77ccc8c9135d.vsidx
  8. BIN
      .vs/GF00-ERP-SYS/FileContentIndex/fdedfa49-6285-43d4-b798-96ddc38dac54.vsidx
  9. BIN
      .vs/GF00-ERP-SYS/v17/.suo
  10. 111
    58
      .vs/GF00-ERP-SYS/v17/DocumentLayout.backup.json
  11. 58
    110
      .vs/GF00-ERP-SYS/v17/DocumentLayout.json
  12. 13
    14
      GF00-ERP-SYS/0.MyModule/主資料庫/SQL_財務管理系統.vb
  13. 275
    152
      GF00-ERP-SYS/01.人事系統管理/拆帳制考勤文件導入.Designer.vb
  14. 108
    6
      GF00-ERP-SYS/01.人事系統管理/拆帳制考勤文件導入.vb
  15. 3
    3
      GF00-ERP-SYS/04.財務管理系統/列印.Designer.vb
  16. 0
    1
      GF00-ERP-SYS/04.財務管理系統/列印.vb
  17. 100
    144
      GF00-ERP-SYS/04.財務管理系統/財務_收支單一覽表.Designer.vb
  18. 291
    848
      GF00-ERP-SYS/04.財務管理系統/財務_收支單一覽表.vb
  19. 74
    0
      GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.Designer.vb
  20. 120
    0
      GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.resx
  21. 10
    0
      GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.vb
  22. 9
    0
      GF00-ERP-SYS/GF00-ERP-SYS.vbproj
  23. BIN
      GF00-ERP-SYS/bin/Debug/GF00-ERP-SYS.exe
  24. BIN
      GF00-ERP-SYS/bin/Debug/GF00-ERP-SYS.pdb
  25. 3
    1
      GF00-ERP-SYS/bin/Debug/TEST.txt
  26. BIN
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.exe
  27. BIN
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.pdb
  28. BIN
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.AssemblyReference.cache
  29. 1
    1
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.CoreCompileInputs.cache
  30. 4
    0
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.FileListAbsolute.txt
  31. BIN
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.GenerateResource.cache
  32. BIN
      GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.ResolveComReference.cache
  33. BIN
      GF00-ERP-SYS/obj/Debug/ICS_ASMS_ERP_SYS.可複製訊息通知框.resources
  34. BIN
      GF00-ERP-SYS/obj/Debug/Interop.ACTIVEXLib.dll

BIN
.vs/GF00-ERP-SYS/FileContentIndex/48e78736-8b9c-4e35-9664-f2454e23ebc3.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/49d23995-8bd7-45a9-a186-f53d34ddc463.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/edc26164-349b-492f-9ea0-2fbec8d84d92.vsidx → .vs/GF00-ERP-SYS/FileContentIndex/4a623c0f-546a-49c6-8b30-650bb4d2db31.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/5da47f60-9f37-42a6-a72d-1020fd116aec.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/66837806-ccb0-4c27-bad1-7c8068b21a91.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/094d8ece-e3ac-472f-aadf-f65e48e3e422.vsidx → .vs/GF00-ERP-SYS/FileContentIndex/c13f3331-95e9-4104-a3d8-d90322413173.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/f3db3227-311d-4d46-bafa-77ccc8c9135d.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/FileContentIndex/fdedfa49-6285-43d4-b798-96ddc38dac54.vsidx Vedi File


BIN
.vs/GF00-ERP-SYS/v17/.suo Vedi File


+ 111
- 58
.vs/GF00-ERP-SYS/v17/DocumentLayout.backup.json Vedi File

@@ -3,36 +3,48 @@
3 3
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\",
4 4
   "Documents": [
5 5
     {
6
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
6
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\gf\u901A\u7528\u7CFB\u7D71\\gf00-erp-sys\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
8 8
     },
9 9
     {
10
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\gf\u901A\u7528\u7CFB\u7D71\\gf00-erp-sys\\gf00-erp-sys\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
10
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
12 12
     },
13 13
     {
14
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
15
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
14
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\gf\u901A\u7528\u7CFB\u7D71\\gf00-erp-sys\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
16 16
     },
17 17
     {
18
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
18
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
19
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
20 20
     },
21 21
     {
22
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
23
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
22
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\sql_\u9023\u7DDA\u5B57\u4E32.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
23
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\sql_\u9023\u7DDA\u5B57\u4E32.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
24 24
     },
25 25
     {
26
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
27
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
26
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
27
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
28 28
     },
29 29
     {
30
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
31
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
30
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
31
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
32 32
     },
33 33
     {
34
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
34
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
36
+    },
37
+    {
38
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
40
+    },
41
+    {
42
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
43
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
44
+    },
45
+    {
46
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
47
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
36 48
     }
37 49
   ],
38 50
   "DocumentGroupContainers": [
@@ -42,99 +54,140 @@
42 54
       "DocumentGroups": [
43 55
         {
44 56
           "DockedHeight": 200,
45
-          "SelectedChildIndex": 1,
57
+          "SelectedChildIndex": 5,
46 58
           "Children": [
47 59
             {
48 60
               "$type": "Document",
49
-              "DocumentIndex": 1,
50
-              "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
51
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
52
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
53
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
54
-              "RelativeToolTip": "GF00-ERP-SYS\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
61
+              "DocumentIndex": 2,
62
+              "Title": "\u5217\u5370.vb",
63
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
64
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
65
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
66
+              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
67
+              "ViewState": "AgIAAAAAAAAAAAAAAAAAAAIAAAAIAAAAAAAAAA==",
55 68
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
56
-              "WhenOpened": "2025-04-09T01:31:15.615Z",
57
-              "EditorCaption": " [\u8A2D\u8A08]"
69
+              "WhenOpened": "2025-04-16T02:45:12.625Z",
70
+              "EditorCaption": ""
58 71
             },
59 72
             {
60 73
               "$type": "Document",
61
-              "DocumentIndex": 0,
62
-              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
63
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
64
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
65
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
66
-              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
67
-              "ViewState": "AgIAAAEAAAAAAAAAAAAuwAYAAAAlAAAAAAAAAA==",
74
+              "DocumentIndex": 4,
75
+              "Title": "SQL_\u9023\u7DDA\u5B57\u4E32.vb",
76
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
77
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
78
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
79
+              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
80
+              "ViewState": "AgIAAAAAAAAAAAAAAABAwAgAAAALAAAAAAAAAA==",
81
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
82
+              "WhenOpened": "2025-04-15T15:16:24.838Z",
83
+              "EditorCaption": ""
84
+            },
85
+            {
86
+              "$type": "Document",
87
+              "DocumentIndex": 5,
88
+              "Title": "SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
89
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
90
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
91
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
92
+              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
93
+              "ViewState": "AgIAAFQBAAAAAAAAAAAAAGoBAABRAAAAAAAAAA==",
68 94
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
69
-              "WhenOpened": "2025-04-07T03:11:18.17Z",
95
+              "WhenOpened": "2025-04-15T14:55:03.698Z",
70 96
               "EditorCaption": ""
71 97
             },
98
+            {
99
+              "$type": "Document",
100
+              "DocumentIndex": 6,
101
+              "Title": "SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
102
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
103
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
104
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
105
+              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
106
+              "ViewState": "AgIAANUBAAAAAAAAAAAtwM0BAABaAAAAAAAAAA==",
107
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
108
+              "WhenOpened": "2025-04-14T01:20:53.528Z"
109
+            },
72 110
             {
73 111
               "$type": "Document",
74 112
               "DocumentIndex": 7,
75
-              "Title": "\u5217\u5370.vb",
76
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
77
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
78
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
79
-              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
80
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAYAAAATAAAA",
113
+              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
114
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
115
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
116
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
117
+              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
118
+              "ViewState": "AgIAAAEAAAAAAAAAAAAuwAYAAAAlAAAAAAAAAA==",
81 119
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
82
-              "WhenOpened": "2025-04-07T01:39:04.358Z"
120
+              "WhenOpened": "2025-04-07T03:11:18.17Z"
83 121
             },
84 122
             {
85 123
               "$type": "Document",
86
-              "DocumentIndex": 4,
124
+              "DocumentIndex": 0,
87 125
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
88 126
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
89 127
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
90
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
91
-              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
92
-              "ViewState": "AQIAAJcCAAAAAAAAAADwv5kCAAAWAAAA",
128
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb*",
129
+              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb*",
130
+              "ViewState": "AgIAAIoCAAAAAAAAAAAUwHICAAAAAAAAAAAAAA==",
93 131
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
94
-              "WhenOpened": "2025-04-07T01:38:01.876Z"
132
+              "WhenOpened": "2025-04-07T01:38:01.876Z",
133
+              "EditorCaption": ""
95 134
             },
96 135
             {
97 136
               "$type": "Document",
98
-              "DocumentIndex": 5,
137
+              "DocumentIndex": 1,
99 138
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]",
100 139
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
101 140
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
102
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]",
103
-              "RelativeToolTip": "..\\..\\..\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]",
141
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]*",
142
+              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]*",
104 143
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
105
-              "WhenOpened": "2025-04-07T01:37:58.03Z"
144
+              "WhenOpened": "2025-04-07T01:37:58.03Z",
145
+              "EditorCaption": " [\u8A2D\u8A08]"
106 146
             },
107 147
             {
108 148
               "$type": "Document",
109
-              "DocumentIndex": 6,
149
+              "DocumentIndex": 8,
150
+              "Title": "\u9023\u52D5\u6A21\u7D44.vb",
151
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
152
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
153
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
154
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
155
+              "ViewState": "AgIAACMAAAAAAAAAAAAQwDkAAABmAAAAAAAAAA==",
156
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
157
+              "WhenOpened": "2025-04-15T01:25:09.779Z"
158
+            },
159
+            {
160
+              "$type": "Document",
161
+              "DocumentIndex": 3,
110 162
               "Title": "\u5217\u5370.vb [\u8A2D\u8A08]",
111 163
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
112 164
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
113
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
114
-              "RelativeToolTip": "..\\..\\..\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
165
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
166
+              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
115 167
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
116
-              "WhenOpened": "2025-04-07T01:35:14.496Z"
168
+              "WhenOpened": "2025-04-07T01:35:14.496Z",
169
+              "EditorCaption": " [\u8A2D\u8A08]"
117 170
             },
118 171
             {
119 172
               "$type": "Document",
120
-              "DocumentIndex": 3,
173
+              "DocumentIndex": 9,
121 174
               "Title": "GCM-CPV-ERP-SYS.vb",
122 175
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
123 176
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
124 177
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
125 178
               "RelativeToolTip": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
126
-              "ViewState": "AgIAAB4AAAAAAAAAAAASwJ0AAAAIAAAAAAAAAA==",
179
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
127 180
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
128 181
               "WhenOpened": "2025-04-04T02:01:29.451Z"
129 182
             },
130 183
             {
131 184
               "$type": "Document",
132
-              "DocumentIndex": 2,
185
+              "DocumentIndex": 10,
133 186
               "Title": "GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
134 187
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
135 188
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
136
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
137
-              "RelativeToolTip": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
189
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
190
+              "RelativeToolTip": "..\\..\\..\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
138 191
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
139 192
               "WhenOpened": "2025-04-04T02:01:27.845Z"
140 193
             }

+ 58
- 110
.vs/GF00-ERP-SYS/v17/DocumentLayout.json Vedi File

@@ -3,57 +3,45 @@
3 3
   "WorkspaceRootPath": "D:\\gf00-erp-sys-leehsiehjui\\",
4 4
   "Documents": [
5 5
     {
6
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
8
-    },
9
-    {
10
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
11
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
6
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
12 8
     },
13 9
     {
14
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
10
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
16 12
     },
17 13
     {
18
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
14
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
20 16
     },
21 17
     {
22
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
23
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
18
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
24 20
     },
25 21
     {
26
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
27
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
22
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
23
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
28 24
     },
29 25
     {
30
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
31
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
26
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\sql_\u9023\u7DDA\u5B57\u4E32.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
27
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u6A21\u7D44\\sql_\u9023\u7DDA\u5B57\u4E32.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
32 28
     },
33 29
     {
34
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
30
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
31
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
36 32
     },
37 33
     {
38
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
39
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
34
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
40 36
     },
41 37
     {
42
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
43
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
38
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
44 40
     },
45 41
     {
46 42
       "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
47 43
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
48 44
     },
49
-    {
50
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
51
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
52
-    },
53
-    {
54
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
55
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
56
-    },
57 45
     {
58 46
       "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
59 47
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
@@ -70,108 +58,81 @@
70 58
           "Children": [
71 59
             {
72 60
               "$type": "Document",
73
-              "DocumentIndex": 5,
74
-              "Title": "\u9023\u52D5\u6A21\u7D44.vb [\u8A2D\u8A08]",
75
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
76
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
77
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb [\u8A2D\u8A08]",
78
-              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb [\u8A2D\u8A08]",
61
+              "DocumentIndex": 3,
62
+              "Title": "\u5217\u5370.vb",
63
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
64
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
65
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
66
+              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
67
+              "ViewState": "AgIAAAAAAAAAAAAAAAAAAAIAAAAIAAAAAAAAAA==",
79 68
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
80
-              "WhenOpened": "2025-04-15T01:25:08.296Z",
81
-              "EditorCaption": " [\u8A2D\u8A08]"
69
+              "WhenOpened": "2025-04-16T02:45:12.625Z"
82 70
             },
83 71
             {
84 72
               "$type": "Document",
85
-              "DocumentIndex": 3,
86
-              "Title": "\u4F30\u50F9\u55AE.vb",
87
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
88
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
89
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
90
-              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
91
-              "ViewState": "AQIAAAECAAAAAAAAAAAAACoCAAAzAAAA",
73
+              "DocumentIndex": 5,
74
+              "Title": "SQL_\u9023\u7DDA\u5B57\u4E32.vb",
75
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
76
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
77
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
78
+              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
79
+              "ViewState": "AgIAAAAAAAAAAAAAAABAwAgAAAALAAAAAAAAAA==",
92 80
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
93
-              "WhenOpened": "2025-04-14T03:49:42.652Z",
94
-              "EditorCaption": ""
81
+              "WhenOpened": "2025-04-15T15:16:24.838Z"
95 82
             },
96 83
             {
97 84
               "$type": "Document",
98
-              "DocumentIndex": 4,
99
-              "Title": "\u4F30\u50F9\u55AE.vb [\u8A2D\u8A08]",
100
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
101
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
102
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb [\u8A2D\u8A08]",
103
-              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb [\u8A2D\u8A08]",
85
+              "DocumentIndex": 6,
86
+              "Title": "SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
87
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
88
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
89
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
90
+              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
91
+              "ViewState": "AgIAAFQBAAAAAAAAAAAAAGoBAABRAAAAAAAAAA==",
104 92
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
105
-              "WhenOpened": "2025-04-14T03:18:24.485Z",
106
-              "EditorCaption": " [\u8A2D\u8A08]"
93
+              "WhenOpened": "2025-04-15T14:55:03.698Z"
107 94
             },
108 95
             {
109 96
               "$type": "Document",
110
-              "DocumentIndex": 2,
97
+              "DocumentIndex": 7,
111 98
               "Title": "SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
112 99
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
113 100
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
114 101
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
115 102
               "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
116
-              "ViewState": "AQIAANUBAAAAAAAAAAAtwM0BAABaAAAA",
103
+              "ViewState": "AgIAANUBAAAAAAAAAAAtwM0BAABaAAAAAAAAAA==",
117 104
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
118
-              "WhenOpened": "2025-04-14T01:20:53.528Z",
119
-              "EditorCaption": ""
105
+              "WhenOpened": "2025-04-14T01:20:53.528Z"
120 106
             },
121 107
             {
122 108
               "$type": "Document",
123
-              "DocumentIndex": 1,
124
-              "Title": "\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
125
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
126
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
127
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
128
-              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
129
-              "ViewState": "AQIAAAkLAAAAAAAAAAAAABQLAAAIAAAA",
130
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
131
-              "WhenOpened": "2025-04-14T01:20:07.011Z",
132
-              "EditorCaption": ""
133
-            },
134
-            {
135
-              "$type": "Document",
136
-              "DocumentIndex": 0,
109
+              "DocumentIndex": 2,
137 110
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
138 111
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
139 112
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
140 113
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
141 114
               "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
142
-              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAYAAAAlAAAA",
115
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAAAAAAAAAAA",
143 116
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
144 117
               "WhenOpened": "2025-04-07T03:11:18.17Z",
145 118
               "EditorCaption": ""
146 119
             },
147 120
             {
148 121
               "$type": "Document",
149
-              "DocumentIndex": 12,
150
-              "Title": "\u5217\u5370.vb",
151
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
152
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
153
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
154
-              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
155
-              "ViewState": "AQIAAAAAAAAAAAAAAABAwAYAAAATAAAA",
156
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
157
-              "WhenOpened": "2025-04-07T01:39:04.358Z"
158
-            },
159
-            {
160
-              "$type": "Document",
161
-              "DocumentIndex": 7,
122
+              "DocumentIndex": 0,
162 123
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
163 124
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
164 125
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
165 126
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
166 127
               "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
167
-              "ViewState": "AQIAAHIDAAAAAAAAAIAwwIcDAAAIAAAA",
128
+              "ViewState": "AQIAAEgCAAAAAAAAAADgv1YCAAAeAAAA",
168 129
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
169 130
               "WhenOpened": "2025-04-07T01:38:01.876Z",
170 131
               "EditorCaption": ""
171 132
             },
172 133
             {
173 134
               "$type": "Document",
174
-              "DocumentIndex": 8,
135
+              "DocumentIndex": 1,
175 136
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]",
176 137
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
177 138
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
@@ -183,43 +144,30 @@
183 144
             },
184 145
             {
185 146
               "$type": "Document",
186
-              "DocumentIndex": 6,
147
+              "DocumentIndex": 8,
187 148
               "Title": "\u9023\u52D5\u6A21\u7D44.vb",
188 149
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
189 150
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
190 151
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
191 152
               "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
192
-              "ViewState": "AQIAACMAAAAAAAAAAAAQwDkAAABmAAAA",
193
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
194
-              "WhenOpened": "2025-04-15T01:25:09.779Z",
195
-              "EditorCaption": ""
196
-            },
197
-            {
198
-              "$type": "Document",
199
-              "DocumentIndex": 9,
200
-              "Title": "\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
201
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
202
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
203
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
204
-              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
153
+              "ViewState": "AgIAACMAAAAAAAAAAAAQwDkAAABmAAAAAAAAAA==",
205 154
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
206
-              "WhenOpened": "2025-04-14T01:20:05.707Z",
207
-              "EditorCaption": " [\u8A2D\u8A08]"
155
+              "WhenOpened": "2025-04-15T01:25:09.779Z"
208 156
             },
209 157
             {
210 158
               "$type": "Document",
211
-              "DocumentIndex": 11,
159
+              "DocumentIndex": 4,
212 160
               "Title": "\u5217\u5370.vb [\u8A2D\u8A08]",
213 161
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
214 162
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
215
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
216
-              "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
163
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
164
+              "RelativeToolTip": "..\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
217 165
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
218 166
               "WhenOpened": "2025-04-07T01:35:14.496Z"
219 167
             },
220 168
             {
221 169
               "$type": "Document",
222
-              "DocumentIndex": 10,
170
+              "DocumentIndex": 9,
223 171
               "Title": "GCM-CPV-ERP-SYS.vb",
224 172
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
225 173
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
@@ -231,7 +179,7 @@
231 179
             },
232 180
             {
233 181
               "$type": "Document",
234
-              "DocumentIndex": 13,
182
+              "DocumentIndex": 10,
235 183
               "Title": "GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
236 184
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
237 185
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",

+ 13
- 14
GF00-ERP-SYS/0.MyModule/主資料庫/SQL_財務管理系統.vb Vedi File

@@ -358,11 +358,12 @@
358 358
         SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE N'" & 財務_收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE N'" & PA1 & "')"
359 359
         CmdSet_For_dr()
360 360
     End Sub
361
-    'Friend Sub SQL_營運成本收支單審核_修改公帳流水帳支出_應付帳款用()
362
-    '    ConnOpen()
363
-    '    SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE N'" & 採購應付帳款.營運成本收支單號_tb.Text & "')"
364
-    '    CmdSet_For_dr()
365
-    'End Sub
361
+    Friend Sub SQL_日帳結算()
362
+        ConnOpen()
363
+        SQL1 = "SELECT  日期, SUM(CAST(收入 AS money)) - SUM(CAST(支出 AS money)) AS 日結
364
+                FROM    公帳流水帳  GROUP BY   日期  ORDER BY   日期"
365
+        CmdSet_For_DGV()
366
+    End Sub
366 367
     '---------------------營運成本收支單一覽表.-------------------------------------------------------------------------------------------------------------------------------------------------
367 368
     Friend Sub SQL_營運成本收支單一覽表_查詢清單純日期()
368 369
         ConnOpen()
@@ -414,8 +415,8 @@
414 415
                 ORDER BY    幣別, LEFT(公帳流水帳.日期, 4), LEFT(會計科目.編號, 7)"
415 416
         CmdSet_For_DGV()
416 417
     End Sub
417
-    Friend Sub SQL_營運成本收支單一覽表_查詢清單4()
418
-        ConnOpen()
418
+    Friend Function SQL_營運成本收支單一覽表_查詢清單4() As String
419
+
419 420
         SQL1 = "SELECT     公帳流水帳.項次, 公帳流水帳.支付單號,  會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
420 421
                             Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 收入, 
421 422
                             Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
@@ -426,10 +427,9 @@
426 427
                             AND '" & Strings.Format(財務_收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "') " & SQL2 & PA51 & "  
427 428
                             AND (公帳控制表.審核人 NOT LIKE N'作廢%') AND (會計科目.會計科目  LIKE N'" & PA56 & "') 
428 429
                 ORDER BY    公帳流水帳.支付單號"
429
-        CmdSet_For_DGV()
430
-    End Sub
431
-    Friend Sub SQL_營運成本收支單一覽表_查詢費用清單()
432
-        ConnOpen()
430
+        Return SQL1
431
+    End Function
432
+    Friend Function SQL_營運成本收支單一覽表_查詢費用清單() As String
433 433
         SQL1 = "SELECT     公帳流水帳.項次, 公帳流水帳.支付單號,  會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
434 434
                             Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 收入, 
435 435
                             Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
@@ -438,9 +438,8 @@
438 438
                             公帳控制表 ON 公帳流水帳.支付單號 = 公帳控制表.支付單號
439 439
                 WHERE      (公帳流水帳.日期 LIKE N'" & PA55 & "') " & SQL2 & PA51 & "  AND (公帳控制表.審核人 NOT LIKE N'作廢%') 
440 440
                 ORDER BY    公帳流水帳.支付單號"
441
-        ' WHERE      (公帳流水帳.支付單號 LIKE N'" & 財務_收支單一覽表.收支單號_tb.Text & "') " & SQL2 & "
442
-        CmdSet_For_DGV()
443
-    End Sub
441
+        Return SQL1
442
+    End Function
444 443
     Friend Sub SQL_營運成本收支單一覽表_查詢簽名檔圖片()
445 444
         ConnOpen()
446 445
         SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & 財務_收支單一覽表.圖片編碼_tb.Text & "'"

+ 275
- 152
GF00-ERP-SYS/01.人事系統管理/拆帳制考勤文件導入.Designer.vb Vedi File

@@ -22,13 +22,24 @@ Partial Class 拆帳制考勤文件導入
22 22
     '請勿使用程式碼編輯器進行修改。
23 23
     <System.Diagnostics.DebuggerStepThrough()> _
24 24
     Private Sub InitializeComponent()
25
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25 33
         Me.TabControl1 = New System.Windows.Forms.TabControl()
26 34
         Me.TabPage1 = New System.Windows.Forms.TabPage()
35
+        Me.選路徑8_bt = New System.Windows.Forms.Button()
36
+        Me.路徑8_tb = New System.Windows.Forms.TextBox()
37
+        Me.選路徑10_bt = New System.Windows.Forms.Button()
38
+        Me.路徑10_tb = New System.Windows.Forms.TextBox()
39
+        Me.選路徑9_bt = New System.Windows.Forms.Button()
40
+        Me.路徑9_tb = New System.Windows.Forms.TextBox()
27 41
         Me.選路徑7_bt = New System.Windows.Forms.Button()
28
-        Me.Label8 = New System.Windows.Forms.Label()
29
-        Me.路徑7_tb = New System.Windows.Forms.TextBox()
30 42
         Me.選路徑6_bt = New System.Windows.Forms.Button()
31
-        Me.Label7 = New System.Windows.Forms.Label()
32 43
         Me.路徑6_tb = New System.Windows.Forms.TextBox()
33 44
         Me.月份_cb = New System.Windows.Forms.ComboBox()
34 45
         Me.年份_cb = New System.Windows.Forms.ComboBox()
@@ -39,29 +50,35 @@ Partial Class 拆帳制考勤文件導入
39 50
         Me.選路徑3_bt = New System.Windows.Forms.Button()
40 51
         Me.選路徑2_bt = New System.Windows.Forms.Button()
41 52
         Me.選路徑1_bt = New System.Windows.Forms.Button()
42
-        Me.Label5 = New System.Windows.Forms.Label()
43 53
         Me.路徑5_tb = New System.Windows.Forms.TextBox()
44
-        Me.Label4 = New System.Windows.Forms.Label()
45 54
         Me.路徑4_tb = New System.Windows.Forms.TextBox()
46
-        Me.Label3 = New System.Windows.Forms.Label()
47 55
         Me.路徑3_tb = New System.Windows.Forms.TextBox()
48
-        Me.Label2 = New System.Windows.Forms.Label()
49 56
         Me.路徑2_tb = New System.Windows.Forms.TextBox()
50
-        Me.Label1 = New System.Windows.Forms.Label()
51 57
         Me.路徑1_tb = New System.Windows.Forms.TextBox()
52
-        Me.TabPage2 = New System.Windows.Forms.TabPage()
53
-        Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
54
-        Me.選路徑9_bt = New System.Windows.Forms.Button()
55
-        Me.Label9 = New System.Windows.Forms.Label()
56
-        Me.路徑9_tb = New System.Windows.Forms.TextBox()
57
-        Me.選路徑10_bt = New System.Windows.Forms.Button()
58 58
         Me.Label11 = New System.Windows.Forms.Label()
59
-        Me.路徑10_tb = New System.Windows.Forms.TextBox()
60
-        Me.選路徑8_bt = New System.Windows.Forms.Button()
59
+        Me.Label9 = New System.Windows.Forms.Label()
60
+        Me.Label8 = New System.Windows.Forms.Label()
61
+        Me.Label5 = New System.Windows.Forms.Label()
62
+        Me.Label4 = New System.Windows.Forms.Label()
63
+        Me.Label3 = New System.Windows.Forms.Label()
64
+        Me.Label2 = New System.Windows.Forms.Label()
61 65
         Me.Label12 = New System.Windows.Forms.Label()
62
-        Me.路徑8_tb = New System.Windows.Forms.TextBox()
66
+        Me.Label1 = New System.Windows.Forms.Label()
67
+        Me.Label7 = New System.Windows.Forms.Label()
68
+        Me.路徑7_tb = New System.Windows.Forms.TextBox()
69
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
70
+        Me.拆分_dgv = New System.Windows.Forms.DataGridView()
71
+        Me.總和_dgv = New System.Windows.Forms.DataGridView()
72
+        Me.清單_dgv = New System.Windows.Forms.DataGridView()
73
+        Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
74
+        Me.取資料_dgv = New System.Windows.Forms.DataGridView()
63 75
         Me.TabControl1.SuspendLayout()
64 76
         Me.TabPage1.SuspendLayout()
77
+        Me.TabPage2.SuspendLayout()
78
+        CType(Me.拆分_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
79
+        CType(Me.總和_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
80
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
81
+        CType(Me.取資料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
65 82
         Me.SuspendLayout()
66 83
         '
67 84
         'TabControl1
@@ -121,6 +138,57 @@ Partial Class 拆帳制考勤文件導入
121 138
         Me.TabPage1.Text = "仁寶系統-對接資料"
122 139
         Me.TabPage1.UseVisualStyleBackColor = True
123 140
         '
141
+        '選路徑8_bt
142
+        '
143
+        Me.選路徑8_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
144
+        Me.選路徑8_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
145
+        Me.選路徑8_bt.Location = New System.Drawing.Point(587, 180)
146
+        Me.選路徑8_bt.Name = "選路徑8_bt"
147
+        Me.選路徑8_bt.Size = New System.Drawing.Size(55, 25)
148
+        Me.選路徑8_bt.TabIndex = 36
149
+        Me.選路徑8_bt.UseVisualStyleBackColor = True
150
+        '
151
+        '路徑8_tb
152
+        '
153
+        Me.路徑8_tb.Location = New System.Drawing.Point(120, 181)
154
+        Me.路徑8_tb.Name = "路徑8_tb"
155
+        Me.路徑8_tb.Size = New System.Drawing.Size(461, 23)
156
+        Me.路徑8_tb.TabIndex = 34
157
+        '
158
+        '選路徑10_bt
159
+        '
160
+        Me.選路徑10_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
161
+        Me.選路徑10_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
162
+        Me.選路徑10_bt.Location = New System.Drawing.Point(587, 230)
163
+        Me.選路徑10_bt.Name = "選路徑10_bt"
164
+        Me.選路徑10_bt.Size = New System.Drawing.Size(55, 25)
165
+        Me.選路徑10_bt.TabIndex = 33
166
+        Me.選路徑10_bt.UseVisualStyleBackColor = True
167
+        '
168
+        '路徑10_tb
169
+        '
170
+        Me.路徑10_tb.Location = New System.Drawing.Point(120, 231)
171
+        Me.路徑10_tb.Name = "路徑10_tb"
172
+        Me.路徑10_tb.Size = New System.Drawing.Size(461, 23)
173
+        Me.路徑10_tb.TabIndex = 31
174
+        '
175
+        '選路徑9_bt
176
+        '
177
+        Me.選路徑9_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
178
+        Me.選路徑9_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
179
+        Me.選路徑9_bt.Location = New System.Drawing.Point(587, 205)
180
+        Me.選路徑9_bt.Name = "選路徑9_bt"
181
+        Me.選路徑9_bt.Size = New System.Drawing.Size(55, 25)
182
+        Me.選路徑9_bt.TabIndex = 30
183
+        Me.選路徑9_bt.UseVisualStyleBackColor = True
184
+        '
185
+        '路徑9_tb
186
+        '
187
+        Me.路徑9_tb.Location = New System.Drawing.Point(120, 206)
188
+        Me.路徑9_tb.Name = "路徑9_tb"
189
+        Me.路徑9_tb.Size = New System.Drawing.Size(461, 23)
190
+        Me.路徑9_tb.TabIndex = 28
191
+        '
124 192
         '選路徑7_bt
125 193
         '
126 194
         Me.選路徑7_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
@@ -131,23 +199,6 @@ Partial Class 拆帳制考勤文件導入
131 199
         Me.選路徑7_bt.TabIndex = 24
132 200
         Me.選路徑7_bt.UseVisualStyleBackColor = True
133 201
         '
134
-        'Label8
135
-        '
136
-        Me.Label8.AutoSize = True
137
-        Me.Label8.ForeColor = System.Drawing.Color.Red
138
-        Me.Label8.Location = New System.Drawing.Point(5, 160)
139
-        Me.Label8.Name = "Label8"
140
-        Me.Label8.Size = New System.Drawing.Size(113, 16)
141
-        Me.Label8.TabIndex = 23
142
-        Me.Label8.Text = "長照  A碼清冊(長照)"
143
-        '
144
-        '路徑7_tb
145
-        '
146
-        Me.路徑7_tb.Location = New System.Drawing.Point(120, 156)
147
-        Me.路徑7_tb.Name = "路徑7_tb"
148
-        Me.路徑7_tb.Size = New System.Drawing.Size(461, 23)
149
-        Me.路徑7_tb.TabIndex = 22
150
-        '
151 202
         '選路徑6_bt
152 203
         '
153 204
         Me.選路徑6_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
@@ -158,16 +209,6 @@ Partial Class 拆帳制考勤文件導入
158 209
         Me.選路徑6_bt.TabIndex = 21
159 210
         Me.選路徑6_bt.UseVisualStyleBackColor = True
160 211
         '
161
-        'Label7
162
-        '
163
-        Me.Label7.AutoSize = True
164
-        Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
165
-        Me.Label7.Location = New System.Drawing.Point(5, 135)
166
-        Me.Label7.Name = "Label7"
167
-        Me.Label7.Size = New System.Drawing.Size(110, 16)
168
-        Me.Label7.TabIndex = 20
169
-        Me.Label7.Text = "A   碼   清   冊(仁寶)"
170
-        '
171 212
         '路徑6_tb
172 213
         '
173 214
         Me.路徑6_tb.Location = New System.Drawing.Point(120, 131)
@@ -263,16 +304,6 @@ Partial Class 拆帳制考勤文件導入
263 304
         Me.選路徑1_bt.TabIndex = 10
264 305
         Me.選路徑1_bt.UseVisualStyleBackColor = True
265 306
         '
266
-        'Label5
267
-        '
268
-        Me.Label5.AutoSize = True
269
-        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
270
-        Me.Label5.Location = New System.Drawing.Point(5, 110)
271
-        Me.Label5.Name = "Label5"
272
-        Me.Label5.Size = New System.Drawing.Size(111, 16)
273
-        Me.Label5.TabIndex = 9
274
-        Me.Label5.Text = "個  案   總   表(仁寶)"
275
-        '
276 307
         '路徑5_tb
277 308
         '
278 309
         Me.路徑5_tb.Location = New System.Drawing.Point(120, 106)
@@ -280,16 +311,6 @@ Partial Class 拆帳制考勤文件導入
280 311
         Me.路徑5_tb.Size = New System.Drawing.Size(461, 23)
281 312
         Me.路徑5_tb.TabIndex = 8
282 313
         '
283
-        'Label4
284
-        '
285
-        Me.Label4.AutoSize = True
286
-        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
287
-        Me.Label4.Location = New System.Drawing.Point(5, 85)
288
-        Me.Label4.Name = "Label4"
289
-        Me.Label4.Size = New System.Drawing.Size(111, 16)
290
-        Me.Label4.TabIndex = 7
291
-        Me.Label4.Text = "每  日   明   細(仁寶)"
292
-        '
293 314
         '路徑4_tb
294 315
         '
295 316
         Me.路徑4_tb.Location = New System.Drawing.Point(120, 81)
@@ -297,16 +318,6 @@ Partial Class 拆帳制考勤文件導入
297 318
         Me.路徑4_tb.Size = New System.Drawing.Size(461, 23)
298 319
         Me.路徑4_tb.TabIndex = 6
299 320
         '
300
-        'Label3
301
-        '
302
-        Me.Label3.AutoSize = True
303
-        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
304
-        Me.Label3.Location = New System.Drawing.Point(5, 59)
305
-        Me.Label3.Name = "Label3"
306
-        Me.Label3.Size = New System.Drawing.Size(111, 16)
307
-        Me.Label3.TabIndex = 5
308
-        Me.Label3.Text = "薪資報表明細(仁寶)"
309
-        '
310 321
         '路徑3_tb
311 322
         '
312 323
         Me.路徑3_tb.Location = New System.Drawing.Point(120, 55)
@@ -314,16 +325,6 @@ Partial Class 拆帳制考勤文件導入
314 325
         Me.路徑3_tb.Size = New System.Drawing.Size(461, 23)
315 326
         Me.路徑3_tb.TabIndex = 4
316 327
         '
317
-        'Label2
318
-        '
319
-        Me.Label2.AutoSize = True
320
-        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
321
-        Me.Label2.Location = New System.Drawing.Point(5, 33)
322
-        Me.Label2.Name = "Label2"
323
-        Me.Label2.Size = New System.Drawing.Size(111, 16)
324
-        Me.Label2.TabIndex = 3
325
-        Me.Label2.Text = "拆 帳 明 細 表(仁寶)"
326
-        '
327 328
         '路徑2_tb
328 329
         '
329 330
         Me.路徑2_tb.Location = New System.Drawing.Point(120, 29)
@@ -331,16 +332,6 @@ Partial Class 拆帳制考勤文件導入
331 332
         Me.路徑2_tb.Size = New System.Drawing.Size(461, 23)
332 333
         Me.路徑2_tb.TabIndex = 2
333 334
         '
334
-        'Label1
335
-        '
336
-        Me.Label1.AutoSize = True
337
-        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
338
-        Me.Label1.Location = New System.Drawing.Point(5, 7)
339
-        Me.Label1.Name = "Label1"
340
-        Me.Label1.Size = New System.Drawing.Size(111, 16)
341
-        Me.Label1.TabIndex = 1
342
-        Me.Label1.Text = "服務紀錄總表(仁寶)"
343
-        '
344 335
         '路徑1_tb
345 336
         '
346 337
         Me.路徑1_tb.Location = New System.Drawing.Point(120, 3)
@@ -348,26 +339,15 @@ Partial Class 拆帳制考勤文件導入
348 339
         Me.路徑1_tb.Size = New System.Drawing.Size(461, 23)
349 340
         Me.路徑1_tb.TabIndex = 0
350 341
         '
351
-        'TabPage2
352
-        '
353
-        Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
354
-        Me.TabPage2.Location = New System.Drawing.Point(4, 28)
355
-        Me.TabPage2.Name = "TabPage2"
356
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
357
-        Me.TabPage2.Size = New System.Drawing.Size(812, 184)
358
-        Me.TabPage2.TabIndex = 1
359
-        Me.TabPage2.Text = "其他"
360
-        Me.TabPage2.UseVisualStyleBackColor = True
361
-        '
362
-        '選路徑9_bt
342
+        'Label11
363 343
         '
364
-        Me.選路徑9_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
365
-        Me.選路徑9_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
366
-        Me.選路徑9_bt.Location = New System.Drawing.Point(587, 205)
367
-        Me.選路徑9_bt.Name = "選路徑9_bt"
368
-        Me.選路徑9_bt.Size = New System.Drawing.Size(55, 25)
369
-        Me.選路徑9_bt.TabIndex = 30
370
-        Me.選路徑9_bt.UseVisualStyleBackColor = True
344
+        Me.Label11.AutoSize = True
345
+        Me.Label11.ForeColor = System.Drawing.Color.Red
346
+        Me.Label11.Location = New System.Drawing.Point(5, 235)
347
+        Me.Label11.Name = "Label11"
348
+        Me.Label11.Size = New System.Drawing.Size(114, 16)
349
+        Me.Label11.TabIndex = 32
350
+        Me.Label11.Text = "短照SC碼清冊(長照)"
371 351
         '
372 352
         'Label9
373 353
         '
@@ -379,49 +359,55 @@ Partial Class 拆帳制考勤文件導入
379 359
         Me.Label9.TabIndex = 29
380 360
         Me.Label9.Text = "短照  A碼清冊(長照)"
381 361
         '
382
-        '路徑9_tb
362
+        'Label8
383 363
         '
384
-        Me.路徑9_tb.Location = New System.Drawing.Point(120, 206)
385
-        Me.路徑9_tb.Name = "路徑9_tb"
386
-        Me.路徑9_tb.Size = New System.Drawing.Size(461, 23)
387
-        Me.路徑9_tb.TabIndex = 28
364
+        Me.Label8.AutoSize = True
365
+        Me.Label8.ForeColor = System.Drawing.Color.Red
366
+        Me.Label8.Location = New System.Drawing.Point(5, 160)
367
+        Me.Label8.Name = "Label8"
368
+        Me.Label8.Size = New System.Drawing.Size(113, 16)
369
+        Me.Label8.TabIndex = 23
370
+        Me.Label8.Text = "長照  A碼清冊(長照)"
388 371
         '
389
-        '選路徑10_bt
372
+        'Label5
390 373
         '
391
-        Me.選路徑10_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
392
-        Me.選路徑10_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
393
-        Me.選路徑10_bt.Location = New System.Drawing.Point(587, 230)
394
-        Me.選路徑10_bt.Name = "選路徑10_bt"
395
-        Me.選路徑10_bt.Size = New System.Drawing.Size(55, 25)
396
-        Me.選路徑10_bt.TabIndex = 33
397
-        Me.選路徑10_bt.UseVisualStyleBackColor = True
374
+        Me.Label5.AutoSize = True
375
+        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
376
+        Me.Label5.Location = New System.Drawing.Point(5, 110)
377
+        Me.Label5.Name = "Label5"
378
+        Me.Label5.Size = New System.Drawing.Size(111, 16)
379
+        Me.Label5.TabIndex = 9
380
+        Me.Label5.Text = "個  案   總   表(仁寶)"
398 381
         '
399
-        'Label11
382
+        'Label4
400 383
         '
401
-        Me.Label11.AutoSize = True
402
-        Me.Label11.ForeColor = System.Drawing.Color.Red
403
-        Me.Label11.Location = New System.Drawing.Point(5, 235)
404
-        Me.Label11.Name = "Label11"
405
-        Me.Label11.Size = New System.Drawing.Size(114, 16)
406
-        Me.Label11.TabIndex = 32
407
-        Me.Label11.Text = "短照SC碼清冊(長照)"
384
+        Me.Label4.AutoSize = True
385
+        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
386
+        Me.Label4.Location = New System.Drawing.Point(5, 85)
387
+        Me.Label4.Name = "Label4"
388
+        Me.Label4.Size = New System.Drawing.Size(111, 16)
389
+        Me.Label4.TabIndex = 7
390
+        Me.Label4.Text = "每  日   明   細(仁寶)"
408 391
         '
409
-        '路徑10_tb
392
+        'Label3
410 393
         '
411
-        Me.路徑10_tb.Location = New System.Drawing.Point(120, 231)
412
-        Me.路徑10_tb.Name = "路徑10_tb"
413
-        Me.路徑10_tb.Size = New System.Drawing.Size(461, 23)
414
-        Me.路徑10_tb.TabIndex = 31
394
+        Me.Label3.AutoSize = True
395
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
396
+        Me.Label3.Location = New System.Drawing.Point(5, 59)
397
+        Me.Label3.Name = "Label3"
398
+        Me.Label3.Size = New System.Drawing.Size(111, 16)
399
+        Me.Label3.TabIndex = 5
400
+        Me.Label3.Text = "薪資報表明細(仁寶)"
415 401
         '
416
-        '選路徑8_bt
402
+        'Label2
417 403
         '
418
-        Me.選路徑8_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
419
-        Me.選路徑8_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
420
-        Me.選路徑8_bt.Location = New System.Drawing.Point(587, 180)
421
-        Me.選路徑8_bt.Name = "選路徑8_bt"
422
-        Me.選路徑8_bt.Size = New System.Drawing.Size(55, 25)
423
-        Me.選路徑8_bt.TabIndex = 36
424
-        Me.選路徑8_bt.UseVisualStyleBackColor = True
404
+        Me.Label2.AutoSize = True
405
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
406
+        Me.Label2.Location = New System.Drawing.Point(5, 33)
407
+        Me.Label2.Name = "Label2"
408
+        Me.Label2.Size = New System.Drawing.Size(111, 16)
409
+        Me.Label2.TabIndex = 3
410
+        Me.Label2.Text = "拆 帳 明 細 表(仁寶)"
425 411
         '
426 412
         'Label12
427 413
         '
@@ -433,12 +419,140 @@ Partial Class 拆帳制考勤文件導入
433 419
         Me.Label12.TabIndex = 35
434 420
         Me.Label12.Text = "長照BA碼清冊(長照)"
435 421
         '
436
-        '路徑8_tb
422
+        'Label1
437 423
         '
438
-        Me.路徑8_tb.Location = New System.Drawing.Point(120, 181)
439
-        Me.路徑8_tb.Name = "路徑8_tb"
440
-        Me.路徑8_tb.Size = New System.Drawing.Size(461, 23)
441
-        Me.路徑8_tb.TabIndex = 34
424
+        Me.Label1.AutoSize = True
425
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
426
+        Me.Label1.Location = New System.Drawing.Point(5, 7)
427
+        Me.Label1.Name = "Label1"
428
+        Me.Label1.Size = New System.Drawing.Size(111, 16)
429
+        Me.Label1.TabIndex = 1
430
+        Me.Label1.Text = "服務紀錄總表(仁寶)"
431
+        '
432
+        'Label7
433
+        '
434
+        Me.Label7.AutoSize = True
435
+        Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
436
+        Me.Label7.Location = New System.Drawing.Point(5, 135)
437
+        Me.Label7.Name = "Label7"
438
+        Me.Label7.Size = New System.Drawing.Size(110, 16)
439
+        Me.Label7.TabIndex = 20
440
+        Me.Label7.Text = "A   碼   清   冊(仁寶)"
441
+        '
442
+        '路徑7_tb
443
+        '
444
+        Me.路徑7_tb.Location = New System.Drawing.Point(120, 156)
445
+        Me.路徑7_tb.Name = "路徑7_tb"
446
+        Me.路徑7_tb.Size = New System.Drawing.Size(461, 23)
447
+        Me.路徑7_tb.TabIndex = 22
448
+        '
449
+        'TabPage2
450
+        '
451
+        Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
452
+        Me.TabPage2.Controls.Add(Me.取資料_dgv)
453
+        Me.TabPage2.Controls.Add(Me.拆分_dgv)
454
+        Me.TabPage2.Controls.Add(Me.總和_dgv)
455
+        Me.TabPage2.Controls.Add(Me.清單_dgv)
456
+        Me.TabPage2.Location = New System.Drawing.Point(4, 28)
457
+        Me.TabPage2.Name = "TabPage2"
458
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
459
+        Me.TabPage2.Size = New System.Drawing.Size(812, 262)
460
+        Me.TabPage2.TabIndex = 1
461
+        Me.TabPage2.Text = "其他"
462
+        Me.TabPage2.UseVisualStyleBackColor = True
463
+        '
464
+        '拆分_dgv
465
+        '
466
+        Me.拆分_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
467
+            Or System.Windows.Forms.AnchorStyles.Left) _
468
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
469
+        Me.拆分_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
470
+        Me.拆分_dgv.BackgroundColor = System.Drawing.Color.White
471
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
472
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
473
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
474
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
475
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
476
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
477
+        Me.拆分_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
478
+        Me.拆分_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
479
+        Me.拆分_dgv.Location = New System.Drawing.Point(227, 145)
480
+        Me.拆分_dgv.Name = "拆分_dgv"
481
+        Me.拆分_dgv.RowHeadersWidth = 5
482
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
483
+        Me.拆分_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
484
+        Me.拆分_dgv.RowTemplate.Height = 24
485
+        Me.拆分_dgv.Size = New System.Drawing.Size(580, 112)
486
+        Me.拆分_dgv.TabIndex = 1410
487
+        '
488
+        '總和_dgv
489
+        '
490
+        Me.總和_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
491
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
492
+        Me.總和_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
493
+        Me.總和_dgv.BackgroundColor = System.Drawing.Color.White
494
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
495
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
496
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
497
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
498
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
499
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
500
+        Me.總和_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
501
+        Me.總和_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
502
+        Me.總和_dgv.Location = New System.Drawing.Point(1, 145)
503
+        Me.總和_dgv.Name = "總和_dgv"
504
+        Me.總和_dgv.RowHeadersWidth = 5
505
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
506
+        Me.總和_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
507
+        Me.總和_dgv.RowTemplate.Height = 24
508
+        Me.總和_dgv.Size = New System.Drawing.Size(220, 112)
509
+        Me.總和_dgv.TabIndex = 1409
510
+        '
511
+        '清單_dgv
512
+        '
513
+        Me.清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
514
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
515
+        Me.清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
516
+        Me.清單_dgv.BackgroundColor = System.Drawing.Color.White
517
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
518
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
519
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
520
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
521
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
522
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
523
+        Me.清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
524
+        Me.清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
525
+        Me.清單_dgv.Location = New System.Drawing.Point(1, 1)
526
+        Me.清單_dgv.Name = "清單_dgv"
527
+        Me.清單_dgv.RowHeadersWidth = 5
528
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
529
+        Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
530
+        Me.清單_dgv.RowTemplate.Height = 24
531
+        Me.清單_dgv.Size = New System.Drawing.Size(362, 138)
532
+        Me.清單_dgv.TabIndex = 1408
533
+        '
534
+        '取資料_dgv
535
+        '
536
+        Me.取資料_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
537
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
538
+        Me.取資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
539
+        Me.取資料_dgv.BackgroundColor = System.Drawing.Color.White
540
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
541
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
542
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
543
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
544
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
545
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
546
+        Me.取資料_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
547
+        Me.取資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
548
+        Me.取資料_dgv.Location = New System.Drawing.Point(369, 1)
549
+        Me.取資料_dgv.Name = "取資料_dgv"
550
+        Me.取資料_dgv.RowHeadersWidth = 5
551
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
552
+        Me.取資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
553
+        Me.取資料_dgv.RowTemplate.Height = 24
554
+        Me.取資料_dgv.Size = New System.Drawing.Size(438, 138)
555
+        Me.取資料_dgv.TabIndex = 1411
442 556
         '
443 557
         '拆帳制考勤文件導入
444 558
         '
@@ -456,6 +570,11 @@ Partial Class 拆帳制考勤文件導入
456 570
         Me.TabControl1.ResumeLayout(False)
457 571
         Me.TabPage1.ResumeLayout(False)
458 572
         Me.TabPage1.PerformLayout()
573
+        Me.TabPage2.ResumeLayout(False)
574
+        CType(Me.拆分_dgv, System.ComponentModel.ISupportInitialize).EndInit()
575
+        CType(Me.總和_dgv, System.ComponentModel.ISupportInitialize).EndInit()
576
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
577
+        CType(Me.取資料_dgv, System.ComponentModel.ISupportInitialize).EndInit()
459 578
         Me.ResumeLayout(False)
460 579
 
461 580
     End Sub
@@ -498,4 +617,8 @@ Partial Class 拆帳制考勤文件導入
498 617
     Friend WithEvents Label11 As Label
499 618
     Friend WithEvents 路徑10_tb As TextBox
500 619
     Friend WithEvents Label12 As Label
620
+    Friend WithEvents 拆分_dgv As DataGridView
621
+    Friend WithEvents 總和_dgv As DataGridView
622
+    Friend WithEvents 清單_dgv As DataGridView
623
+    Friend WithEvents 取資料_dgv As DataGridView
501 624
 End Class

+ 108
- 6
GF00-ERP-SYS/01.人事系統管理/拆帳制考勤文件導入.vb Vedi File

@@ -72,11 +72,11 @@
72 72
             文件判斷 = xlSheet.Cells(4, 1).value : 文件判斷 &= xlSheet.Cells(4, 2).value : 文件判斷 &= xlSheet.Cells(4, 3).value : 文件判斷 &= xlSheet.Cells(4, 4).value
73 73
             文件判斷 &= xlSheet.Cells(4, 5).value : 文件判斷 &= xlSheet.Cells(4, 6).value : 文件判斷 &= xlSheet.Cells(4, 7).value : 文件判斷 &= xlSheet.Cells(4, 8).value
74 74
             If 文件判斷 = "序號服務代碼採用計畫CMS等級服務項目類別身分證號個案姓名給付價格" Then
75
-                For i As Integer = 5 To 99999
76
-                    If IsNothing(xlSheet.Cells(i, 17).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 17).value.ToString.Contains("、") Then
77
-                        MsgBox("長照A碼清冊 內部檢測到有服務人員資料沒有拆開,請新確認檔案內容!!") : 路徑6_tb.Text = "" : Exit For
78
-                    End If
79
-                Next
75
+                'For i As Integer = 5 To 99999
76
+                '    If IsNothing(xlSheet.Cells(i, 17).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 17).value.ToString.Contains("、") Then
77
+                '        MsgBox("長照A碼清冊 內部檢測到有服務人員資料沒有拆開,請新確認檔案內容!!") : 路徑6_tb.Text = "" : Exit For
78
+                '    End If
79
+                'Next
80 80
             Else : MsgBox("長照A碼清冊 檔案不吻合!!") : 路徑6_tb.Text = "" : End If
81 81
             xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
82 82
         End If
@@ -509,6 +509,81 @@
509 509
                     End If
510 510
                 Next : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
511 511
             End If
512
+            '----------自動拆分A碼項目清冊(仁寶)-----------------------------------------------------------------------------------------------------------------------------------------------
513
+            Dim ds As New DataSet
514
+            清單_dgv.DataSource = Nothing : ds.Clear()
515
+            清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
516
+            清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 35
517
+            ConnOpen()
518
+            SQL1 = "SELECT    服務代碼, 個案姓名, SUM(CAST(數量 AS INT)) AS 總數量, SUM(CAST(小計 AS MONEY)) AS 總小計, 
519
+                              STRING_AGG(服務人員, N'、') AS 服務人員合併
520
+                    FROM      人事拆帳制A碼項目清冊
521
+                    WHERE    (流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "') AND (服務人員 LIKE N'%、%')
522
+                    GROUP BY  服務代碼, 個案姓名"
523
+            CmdSet_For_DGV()
524
+            da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
525
+            Set_權限清單("%", "%")
526
+            If 清單_dgv.Rows.Count > 0 And 總和_dgv.Rows.Count > 0 Then
527
+                MsgBox("偵測到導入的資料需要解析拆分,機將開始進行分析!!")
528
+                拆分_dgv.Rows.Clear() : 拆分_dgv.Columns.Clear() : 拆分_dgv.AllowUserToAddRows = False : Dim 差異字串 As String = ""
529
+                Set_取資料("%", "%")
530
+                For Each col As DataGridViewColumn In 取資料_dgv.Columns                                                                     ' 初始化拆分_dgv 的欄位與清單_dgv 一樣
531
+                    拆分_dgv.Columns.Add(DirectCast(col.Clone(), DataGridViewColumn))
532
+                Next
533
+
534
+                For I As Integer = 0 To 清單_dgv.Rows.Count - 1 : MyModule1.進度條()
535
+                    Dim 姓名 As String = 清單_dgv.Rows(I).Cells("個案姓名").Value.ToString()
536
+                    Dim 服務代碼 As String = 清單_dgv.Rows(I).Cells("服務代碼").Value.ToString()
537
+                    Dim 數量 As Integer = 清單_dgv.Rows(I).Cells("總數量").Value.ToString()
538
+                    Dim 原始服務人員 As String = 清單_dgv.Rows(I).Cells("服務人員合併").Value.ToString()
539
+
540
+                    Set_取資料(姓名, 服務代碼)
541
+
542
+                    Dim 原始人員清單 As List(Of String) = 原始服務人員.Split({"、"}, StringSplitOptions.RemoveEmptyEntries).Select(Function(x) x.Trim()).ToList() ' 將原始服務人員以 "、" 拆分為清單
543
+                    Set_權限清單(姓名, 服務代碼)                                                                                                                  ' 呼叫查詢,填入總和_dgv
544
+                    If 總和_dgv.Rows.Count = 0 Then Continue For
545
+                    Dim 拆完數量 As Integer = 0 : Dim 已比對人員 As New List(Of String)
546
+                    For J As Integer = 0 To 總和_dgv.Rows.Count - 1
547
+                        Dim 新列 As New DataGridViewRow() : 新列 = DirectCast(取資料_dgv.Rows(0).Clone(), DataGridViewRow)
548
+                        For k As Integer = 0 To 取資料_dgv.Columns.Count - 1 : 新列.Cells(k).Value = 取資料_dgv.Rows(0).Cells(k).Value : Next
549
+                        Dim col_服務人員 As Integer = 拆分_dgv.Columns("服務人員").Index : Dim col_數量 As Integer = 拆分_dgv.Columns("數量").Index
550
+                        Dim col_小計 As Integer = 拆分_dgv.Columns("小計").Index : Dim 居服員姓名 As String = 總和_dgv.Rows(J).Cells("居服員姓名").Value.ToString().Trim()
551
+                        新列.Cells(col_服務人員).Value = 居服員姓名 : 新列.Cells(col_數量).Value = 總和_dgv.Rows(J).Cells("總服務次數").Value.ToString()
552
+                        拆完數量 += 總和_dgv.Rows(J).Cells("總服務次數").Value.ToString() : 新列.Cells(col_小計).Value = 總和_dgv.Rows(J).Cells("總申報費用").Value.ToString()
553
+                        拆分_dgv.Rows.Add(新列) : 已比對人員.Add(居服員姓名)                                                                                     ' 記錄已比對成功的居服員
554
+                    Next
555
+                    Dim 未比對人員 As List(Of String) = 原始人員清單.Except(已比對人員).ToList()                                                                 ' 計算未比對到的人員
556
+                    If 拆完數量 <> 數量 OrElse 未比對人員.Count > 0 Then
557
+                        差異字串 &= 清單_dgv.Rows(I).Cells("個案姓名").Value.ToString() & " / " & 服務代碼 & " 拆分資料異常!! [數量差異(原/拆)" & 數量 & "/" & 拆完數量 & "]" & vbCrLf
558
+                        If 未比對人員.Count > 0 Then : 差異字串 &= "  未比對到的人員:" & String.Join("、", 未比對人員) & vbCrLf : End If
559
+                    End If
560
+                Next
561
+
562
+                If 差異字串 <> "" Then
563
+                    可複製訊息通知框.訊息_tb.Text = "請注意拆分資料過程發現資料核對異常,清單如下 : " & vbCrLf & 差異字串 & "無法完資料拆分,請確認資料正確並重新導入!!"
564
+                    可複製訊息通知框.ShowDialog() : Exit Sub
565
+                End If
566
+
567
+                ConnOpen()                                                                                                                                       ' 刪除未拆分的資料
568
+                SQL1 = "DELETE  人事拆帳制A碼項目清冊 
569
+                            WHERE  (流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "') AND (服務人員 LIKE N'%、%')"
570
+                CmdSet_For_dr()
571
+                For I As Integer = 0 To 拆分_dgv.Rows.Count - 1 : MyModule1.進度條()
572
+                    SQL2 &= "(N'" & 拆分_dgv.Rows(I).Cells(0).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(1).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(2).Value.ToString() & "',
573
+                              N'" & 拆分_dgv.Rows(I).Cells(3).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(4).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(5).Value.ToString() & "',
574
+                              N'" & 拆分_dgv.Rows(I).Cells(6).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(7).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(8).Value.ToString() & "',
575
+                              N'" & 拆分_dgv.Rows(I).Cells(9).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(10).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(11).Value.ToString() & "',
576
+                              N'" & 拆分_dgv.Rows(I).Cells(12).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(13).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(14).Value.ToString() & "',
577
+                              N'" & 拆分_dgv.Rows(I).Cells(15).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(16).Value.ToString() & "',N'" & 拆分_dgv.Rows(I).Cells(17).Value.ToString() & "',
578
+                              N'" & 拆分_dgv.Rows(I).Cells(18).Value.ToString() & "'),"
579
+                Next
580
+                If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
581
+                ConnOpen()
582
+                SQL1 = "INSERT INTO 人事拆帳制A碼項目清冊 (序號, 服務代碼, 採用計畫, CMS等級, 服務項目類別, 身分證號, 個案姓名, 給付價格, 數量, 小計, 
583
+                                                           服務日期, 服務單位, 服務當下居住縣市, 目前居住縣市, 目前居住行政區, 照管專員, 服務人員, 備註, 流水號) 
584
+                        VALUES " & SQL2
585
+                CmdSet_For_dr() : SQL2 = ""
586
+            End If
512 587
 
513 588
             MsgBox("導入完成!!") : 最終數 = 0 : ICS_ASMS_ERP_SYS.ToolStripProgressBar1.Value = 最終數
514 589
             首次開啟 = True
@@ -517,7 +592,34 @@
517 592
             PA25 = "" : PA26 = "" : PA27 = "" : PA28 = "" : PA29 = "" : PA30 = "" : PA31 = "" : PA32 = "" : PA33 = "" : PA34 = "" : PA35 = "" : PA36 = "" : PA37 = "" : PA38 = "" : PA39 = ""
518 593
             PA40 = "" : PA41 = "" : PA42 = "" : PA43 = "" : PA44 = "" : PA45 = "" : PA46 = "" : PA47 = "" : DTP = "" : DTP1 = "" : DTP2 = ""
519 594
             DTP3 = "" : 列印用SQL = ""
520
-            拆帳制薪資試算表.Show() : Me.Close()
595
+            Dim aa As MsgBoxResult = MsgBox("導入完成, 是否要開啟拆帳制薪資試算表!!", MsgBoxStyle.OkCancel)
596
+            If aa = MsgBoxResult.Ok Then : 拆帳制薪資試算表.Show() : Me.Close() : Else : End If
521 597
         Else : MsgBox("請先選擇日期!!") : End If
522 598
     End Sub
599
+    Private Sub Set_權限清單(姓名 As String, 服務項目代碼 As String)
600
+        Dim ds1 As New DataSet
601
+        總和_dgv.DataSource = Nothing : ds1.Clear()
602
+        總和_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
603
+        總和_dgv.ColumnHeadersHeight = 25 : 總和_dgv.AllowUserToAddRows = False : 總和_dgv.RowTemplate.Height = 35
604
+        ConnOpen()
605
+        SQL1 = "SELECT    SUM(CAST(項目服務次數 AS int)) AS 總服務次數, SUM(CAST(申報費用 AS money)) AS 總申報費用, 居服員姓名
606
+                    FROM      人事拆帳制服務紀錄_仁寶
607
+                    WHERE    (流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "%') AND (姓名 LIKE N'" & 姓名 & "') AND (服務項目代碼 LIKE N'" & 服務項目代碼 & "%')
608
+                    GROUP BY  居服員姓名"
609
+        CmdSet_For_DGV()
610
+        da.Fill(ds1) : 總和_dgv.DataSource = ds1.Tables(0) : conn.Close()
611
+    End Sub
612
+    Private Sub Set_取資料(姓名 As String, 服務代碼 As String)
613
+        Dim ds2 As New DataSet
614
+        取資料_dgv.DataSource = Nothing : ds2.Clear()
615
+        取資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
616
+        取資料_dgv.ColumnHeadersHeight = 25 : 取資料_dgv.AllowUserToAddRows = False : 取資料_dgv.RowTemplate.Height = 35
617
+        ConnOpen()
618
+        SQL1 = "SELECT  TOP (1) 序號, 服務代碼, 採用計畫, CMS等級, 服務項目類別, 身分證號, 個案姓名, 給付價格, 數量, 小計, 服務日期, 
619
+                        服務單位, 服務當下居住縣市, 目前居住縣市, 目前居住行政區, 照管專員, 服務人員, 備註, 流水號
620
+                FROM    人事拆帳制A碼項目清冊
621
+                WHERE  (流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "') AND (個案姓名 LIKE N'" & 姓名 & "') AND (服務代碼 LIKE N'" & 服務代碼 & "')"
622
+        CmdSet_For_DGV()
623
+        da.Fill(ds2) : 取資料_dgv.DataSource = ds2.Tables(0) : conn.Close()
624
+    End Sub
523 625
 End Class

+ 3
- 3
GF00-ERP-SYS/04.財務管理系統/列印.Designer.vb Vedi File

@@ -30,7 +30,7 @@ Partial Class 列印
30 30
         '
31 31
         Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
32 32
         Me.Button1.Location = New System.Drawing.Point(0, 0)
33
-        Me.Button1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
33
+        Me.Button1.Margin = New System.Windows.Forms.Padding(4)
34 34
         Me.Button1.Name = "Button1"
35 35
         Me.Button1.Size = New System.Drawing.Size(100, 67)
36 36
         Me.Button1.TabIndex = 0
@@ -41,7 +41,7 @@ Partial Class 列印
41 41
         '
42 42
         Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
43 43
         Me.Button2.Location = New System.Drawing.Point(108, 0)
44
-        Me.Button2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
44
+        Me.Button2.Margin = New System.Windows.Forms.Padding(4)
45 45
         Me.Button2.Name = "Button2"
46 46
         Me.Button2.Size = New System.Drawing.Size(100, 67)
47 47
         Me.Button2.TabIndex = 1
@@ -56,7 +56,7 @@ Partial Class 列印
56 56
         Me.Controls.Add(Me.Button2)
57 57
         Me.Controls.Add(Me.Button1)
58 58
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
59
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
59
+        Me.Margin = New System.Windows.Forms.Padding(4)
60 60
         Me.MaximizeBox = False
61 61
         Me.MinimizeBox = False
62 62
         Me.Name = "列印"

+ 0
- 1
GF00-ERP-SYS/04.財務管理系統/列印.vb Vedi File

@@ -2,7 +2,6 @@
2 2
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
3 3
         BL1 = True : Me.Close()
4 4
     End Sub
5
-
6 5
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
7 6
         BL1 = False : Me.Close()
8 7
     End Sub

+ 100
- 144
GF00-ERP-SYS/04.財務管理系統/財務_收支單一覽表.Designer.vb Vedi File

@@ -23,10 +23,14 @@ Partial Class 財務_收支單一覽表
23 23
     <System.Diagnostics.DebuggerStepThrough()>
24 24
     Private Sub InitializeComponent()
25 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()
26
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30 34
         Me.彙總匯率_ch = New System.Windows.Forms.CheckBox()
31 35
         Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
32 36
         Me.日期彙總_dgv = New System.Windows.Forms.DataGridView()
@@ -34,30 +38,22 @@ Partial Class 財務_收支單一覽表
34 38
         Me.非稅_ch = New System.Windows.Forms.CheckBox()
35 39
         Me.含稅_ch = New System.Windows.Forms.CheckBox()
36 40
         Me.全部_ch = New System.Windows.Forms.CheckBox()
37
-        Me.字體大小調整_lb = New System.Windows.Forms.Label()
38 41
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
39 42
         Me.下個月_bt = New System.Windows.Forms.Button()
40 43
         Me.上個月_bt = New System.Windows.Forms.Button()
41 44
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
42
-        Me.Label2 = New System.Windows.Forms.Label()
43 45
         Me.人民幣零用金_tb = New System.Windows.Forms.TextBox()
44
-        Me.人民幣零用金_ = New System.Windows.Forms.Label()
45 46
         Me.人民幣支票_tb = New System.Windows.Forms.TextBox()
46 47
         Me.人民幣現金餘額_tb = New System.Windows.Forms.TextBox()
47
-        Me.Label13 = New System.Windows.Forms.Label()
48 48
         Me.人民幣支出_tb = New System.Windows.Forms.TextBox()
49
-        Me.Label16 = New System.Windows.Forms.Label()
50 49
         Me.人民幣現金_tb = New System.Windows.Forms.TextBox()
51
-        Me.Label17 = New System.Windows.Forms.Label()
52 50
         Me.圖片編碼_tb = New System.Windows.Forms.TextBox()
53 51
         Me.驗證碼_tb = New System.Windows.Forms.TextBox()
54 52
         Me.Label20 = New System.Windows.Forms.Label()
55 53
         Me.Label19 = New System.Windows.Forms.Label()
56 54
         Me.彙總_rb = New System.Windows.Forms.RadioButton()
57 55
         Me.明細_rb = New System.Windows.Forms.RadioButton()
58
-        Me.Label14 = New System.Windows.Forms.Label()
59 56
         Me.台幣零用金_tb = New System.Windows.Forms.TextBox()
60
-        Me.Label15 = New System.Windows.Forms.Label()
61 57
         Me.台幣支票_tb = New System.Windows.Forms.TextBox()
62 58
         Me.台幣現金餘額_tb = New System.Windows.Forms.TextBox()
63 59
         Me.Label9 = New System.Windows.Forms.Label()
@@ -97,6 +93,8 @@ Partial Class 財務_收支單一覽表
97 93
         Me.憑證張數_tb = New System.Windows.Forms.TextBox()
98 94
         Me.Label6 = New System.Windows.Forms.Label()
99 95
         Me.顯示單據_cb = New System.Windows.Forms.CheckBox()
96
+        Me.壘算_dgv = New System.Windows.Forms.DataGridView()
97
+        Me.正壘算_dgv = New System.Windows.Forms.DataGridView()
100 98
         CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
101 99
         CType(Me.日期彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
102 100
         CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -106,6 +104,8 @@ Partial Class 財務_收支單一覽表
106 104
         CType(Me.財務彙總_天_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
107 105
         Me.ContextMenuStrip1.SuspendLayout()
108 106
         Me.Panel1.SuspendLayout()
107
+        CType(Me.壘算_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
108
+        CType(Me.正壘算_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
109 109
         Me.SuspendLayout()
110 110
         '
111 111
         '彙總匯率_ch
@@ -149,11 +149,11 @@ Partial Class 財務_收支單一覽表
149 149
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
150 150
         Me.單據彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
151 151
         Me.單據彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
152
-        Me.單據彙總_dgv.Location = New System.Drawing.Point(451, 240)
152
+        Me.單據彙總_dgv.Location = New System.Drawing.Point(226, 70)
153 153
         Me.單據彙總_dgv.Name = "單據彙總_dgv"
154 154
         Me.單據彙總_dgv.RowHeadersWidth = 5
155 155
         Me.單據彙總_dgv.RowTemplate.Height = 24
156
-        Me.單據彙總_dgv.Size = New System.Drawing.Size(172, 218)
156
+        Me.單據彙總_dgv.Size = New System.Drawing.Size(91, 88)
157 157
         Me.單據彙總_dgv.TabIndex = 1504
158 158
         Me.單據彙總_dgv.Visible = False
159 159
         '
@@ -189,23 +189,11 @@ Partial Class 財務_收支單一覽表
189 189
         Me.全部_ch.Text = "全部"
190 190
         Me.全部_ch.UseVisualStyleBackColor = True
191 191
         '
192
-        '字體大小調整_lb
193
-        '
194
-        Me.字體大小調整_lb.AutoSize = True
195
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
196
-        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
197
-        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
198
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(124, 104)
199
-        Me.字體大小調整_lb.Name = "字體大小調整_lb"
200
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(34, 17)
201
-        Me.字體大小調整_lb.TabIndex = 1556
202
-        Me.字體大小調整_lb.Text = "字體"
203
-        '
204 192
         '字體_NUD
205 193
         '
206 194
         Me.字體_NUD.DecimalPlaces = 1
207 195
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
208
-        Me.字體_NUD.Location = New System.Drawing.Point(158, 101)
196
+        Me.字體_NUD.Location = New System.Drawing.Point(289, 221)
209 197
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
210 198
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
211 199
         Me.字體_NUD.Name = "字體_NUD"
@@ -245,40 +233,20 @@ Partial Class 財務_收支單一覽表
245 233
         Me.中間日期_dtp.TabIndex = 1549
246 234
         Me.中間日期_dtp.Visible = False
247 235
         '
248
-        'Label2
249
-        '
250
-        Me.Label2.AutoSize = True
251
-        Me.Label2.ForeColor = System.Drawing.Color.Red
252
-        Me.Label2.Location = New System.Drawing.Point(176, 129)
253
-        Me.Label2.Name = "Label2"
254
-        Me.Label2.Size = New System.Drawing.Size(31, 16)
255
-        Me.Label2.TabIndex = 1547
256
-        Me.Label2.Text = "支票"
257
-        '
258 236
         '人民幣零用金_tb
259 237
         '
260 238
         Me.人民幣零用金_tb.ForeColor = System.Drawing.Color.Red
261
-        Me.人民幣零用金_tb.Location = New System.Drawing.Point(89, 126)
239
+        Me.人民幣零用金_tb.Location = New System.Drawing.Point(8, 170)
262 240
         Me.人民幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
263 241
         Me.人民幣零用金_tb.Name = "人民幣零用金_tb"
264 242
         Me.人民幣零用金_tb.Size = New System.Drawing.Size(85, 23)
265 243
         Me.人民幣零用金_tb.TabIndex = 1546
266 244
         Me.人民幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
267 245
         '
268
-        '人民幣零用金_
269
-        '
270
-        Me.人民幣零用金_.AutoSize = True
271
-        Me.人民幣零用金_.ForeColor = System.Drawing.Color.Red
272
-        Me.人民幣零用金_.Location = New System.Drawing.Point(5, 130)
273
-        Me.人民幣零用金_.Name = "人民幣零用金_"
274
-        Me.人民幣零用金_.Size = New System.Drawing.Size(84, 16)
275
-        Me.人民幣零用金_.TabIndex = 1545
276
-        Me.人民幣零用金_.Text = "人民幣-零用金"
277
-        '
278 246
         '人民幣支票_tb
279 247
         '
280 248
         Me.人民幣支票_tb.ForeColor = System.Drawing.Color.Red
281
-        Me.人民幣支票_tb.Location = New System.Drawing.Point(208, 126)
249
+        Me.人民幣支票_tb.Location = New System.Drawing.Point(8, 139)
282 250
         Me.人民幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
283 251
         Me.人民幣支票_tb.Name = "人民幣支票_tb"
284 252
         Me.人民幣支票_tb.Size = New System.Drawing.Size(85, 23)
@@ -288,62 +256,32 @@ Partial Class 財務_收支單一覽表
288 256
         '人民幣現金餘額_tb
289 257
         '
290 258
         Me.人民幣現金餘額_tb.ForeColor = System.Drawing.Color.Red
291
-        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(180, 187)
259
+        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(8, 201)
292 260
         Me.人民幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
293 261
         Me.人民幣現金餘額_tb.Name = "人民幣現金餘額_tb"
294
-        Me.人民幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
262
+        Me.人民幣現金餘額_tb.Size = New System.Drawing.Size(85, 23)
295 263
         Me.人民幣現金餘額_tb.TabIndex = 1544
296 264
         Me.人民幣現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
297 265
         '
298
-        'Label13
299
-        '
300
-        Me.Label13.AutoSize = True
301
-        Me.Label13.ForeColor = System.Drawing.Color.Red
302
-        Me.Label13.Location = New System.Drawing.Point(148, 191)
303
-        Me.Label13.Name = "Label13"
304
-        Me.Label13.Size = New System.Drawing.Size(31, 16)
305
-        Me.Label13.TabIndex = 1543
306
-        Me.Label13.Text = "總和"
307
-        '
308 266
         '人民幣支出_tb
309 267
         '
310 268
         Me.人民幣支出_tb.ForeColor = System.Drawing.Color.Red
311
-        Me.人民幣支出_tb.Location = New System.Drawing.Point(206, 156)
269
+        Me.人民幣支出_tb.Location = New System.Drawing.Point(99, 170)
312 270
         Me.人民幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
313 271
         Me.人民幣支出_tb.Name = "人民幣支出_tb"
314 272
         Me.人民幣支出_tb.Size = New System.Drawing.Size(85, 23)
315 273
         Me.人民幣支出_tb.TabIndex = 1542
316 274
         Me.人民幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
317 275
         '
318
-        'Label16
319
-        '
320
-        Me.Label16.AutoSize = True
321
-        Me.Label16.ForeColor = System.Drawing.Color.Red
322
-        Me.Label16.Location = New System.Drawing.Point(175, 159)
323
-        Me.Label16.Name = "Label16"
324
-        Me.Label16.Size = New System.Drawing.Size(31, 16)
325
-        Me.Label16.TabIndex = 1541
326
-        Me.Label16.Text = "支出"
327
-        '
328 276
         '人民幣現金_tb
329 277
         '
330 278
         Me.人民幣現金_tb.ForeColor = System.Drawing.Color.Red
331
-        Me.人民幣現金_tb.Location = New System.Drawing.Point(89, 156)
279
+        Me.人民幣現金_tb.Location = New System.Drawing.Point(99, 201)
332 280
         Me.人民幣現金_tb.Name = "人民幣現金_tb"
333 281
         Me.人民幣現金_tb.Size = New System.Drawing.Size(85, 23)
334 282
         Me.人民幣現金_tb.TabIndex = 1540
335 283
         Me.人民幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
336 284
         '
337
-        'Label17
338
-        '
339
-        Me.Label17.AutoSize = True
340
-        Me.Label17.ForeColor = System.Drawing.Color.Red
341
-        Me.Label17.Location = New System.Drawing.Point(57, 159)
342
-        Me.Label17.Name = "Label17"
343
-        Me.Label17.Size = New System.Drawing.Size(31, 16)
344
-        Me.Label17.TabIndex = 1539
345
-        Me.Label17.Text = "收入"
346
-        '
347 285
         '圖片編碼_tb
348 286
         '
349 287
         Me.圖片編碼_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -410,40 +348,20 @@ Partial Class 財務_收支單一覽表
410 348
         Me.明細_rb.Text = "明細"
411 349
         Me.明細_rb.UseVisualStyleBackColor = True
412 350
         '
413
-        'Label14
414
-        '
415
-        Me.Label14.AutoSize = True
416
-        Me.Label14.ForeColor = System.Drawing.Color.Green
417
-        Me.Label14.Location = New System.Drawing.Point(208, 223)
418
-        Me.Label14.Name = "Label14"
419
-        Me.Label14.Size = New System.Drawing.Size(31, 16)
420
-        Me.Label14.TabIndex = 1530
421
-        Me.Label14.Text = "支票"
422
-        '
423 351
         '台幣零用金_tb
424 352
         '
425 353
         Me.台幣零用金_tb.ForeColor = System.Drawing.Color.Green
426
-        Me.台幣零用金_tb.Location = New System.Drawing.Point(117, 218)
354
+        Me.台幣零用金_tb.Location = New System.Drawing.Point(8, 231)
427 355
         Me.台幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
428 356
         Me.台幣零用金_tb.Name = "台幣零用金_tb"
429 357
         Me.台幣零用金_tb.Size = New System.Drawing.Size(85, 23)
430 358
         Me.台幣零用金_tb.TabIndex = 1529
431 359
         Me.台幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
432 360
         '
433
-        'Label15
434
-        '
435
-        Me.Label15.AutoSize = True
436
-        Me.Label15.ForeColor = System.Drawing.Color.Green
437
-        Me.Label15.Location = New System.Drawing.Point(10, 220)
438
-        Me.Label15.Name = "Label15"
439
-        Me.Label15.Size = New System.Drawing.Size(78, 16)
440
-        Me.Label15.TabIndex = 1528
441
-        Me.Label15.Text = "台幣 - 零用金"
442
-        '
443 361
         '台幣支票_tb
444 362
         '
445 363
         Me.台幣支票_tb.ForeColor = System.Drawing.Color.Green
446
-        Me.台幣支票_tb.Location = New System.Drawing.Point(246, 220)
364
+        Me.台幣支票_tb.Location = New System.Drawing.Point(99, 231)
447 365
         Me.台幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
448 366
         Me.台幣支票_tb.Name = "台幣支票_tb"
449 367
         Me.台幣支票_tb.Size = New System.Drawing.Size(85, 23)
@@ -656,8 +574,8 @@ Partial Class 財務_收支單一覽表
656 574
         Me.財務彙總_dgv.Location = New System.Drawing.Point(741, 78)
657 575
         Me.財務彙總_dgv.Name = "財務彙總_dgv"
658 576
         Me.財務彙總_dgv.RowHeadersWidth = 5
659
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
660
-        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
577
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
578
+        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle17
661 579
         Me.財務彙總_dgv.RowTemplate.Height = 24
662 580
         Me.財務彙總_dgv.Size = New System.Drawing.Size(592, 550)
663 581
         Me.財務彙總_dgv.TabIndex = 1554
@@ -669,19 +587,19 @@ Partial Class 財務_收支單一覽表
669 587
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
670 588
         Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
671 589
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
672
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
673
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.White
674
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
675
-        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Black
676
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
677
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.White
678
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
679
-        Me.明細_dgv.DefaultCellStyle = DataGridViewCellStyle2
590
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
591
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.White
592
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
593
+        DataGridViewCellStyle18.ForeColor = System.Drawing.Color.Black
594
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
595
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.White
596
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
597
+        Me.明細_dgv.DefaultCellStyle = DataGridViewCellStyle18
680 598
         Me.明細_dgv.Location = New System.Drawing.Point(94, 78)
681 599
         Me.明細_dgv.Name = "明細_dgv"
682 600
         Me.明細_dgv.RowHeadersWidth = 5
683
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
684
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
601
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
602
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle19
685 603
         Me.明細_dgv.RowTemplate.Height = 24
686 604
         Me.明細_dgv.Size = New System.Drawing.Size(648, 550)
687 605
         Me.明細_dgv.TabIndex = 1509
@@ -712,13 +630,13 @@ Partial Class 財務_收支單一覽表
712 630
         Me.財務彙總_天_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
713 631
         Me.財務彙總_天_dgv.BackgroundColor = System.Drawing.Color.White
714 632
         Me.財務彙總_天_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
715
-        Me.財務彙總_天_dgv.Location = New System.Drawing.Point(112, 78)
633
+        Me.財務彙總_天_dgv.Location = New System.Drawing.Point(94, 78)
716 634
         Me.財務彙總_天_dgv.Name = "財務彙總_天_dgv"
717 635
         Me.財務彙總_天_dgv.RowHeadersWidth = 5
718
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
719
-        Me.財務彙總_天_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
636
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
637
+        Me.財務彙總_天_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
720 638
         Me.財務彙總_天_dgv.RowTemplate.Height = 24
721
-        Me.財務彙總_天_dgv.Size = New System.Drawing.Size(630, 550)
639
+        Me.財務彙總_天_dgv.Size = New System.Drawing.Size(648, 550)
722 640
         Me.財務彙總_天_dgv.TabIndex = 1562
723 641
         '
724 642
         '重新讀取ToolStripMenuItem
@@ -773,22 +691,15 @@ Partial Class 財務_收支單一覽表
773 691
         Me.Panel1.Controls.Add(Me.驗證碼_tb)
774 692
         Me.Panel1.Controls.Add(Me.圖片編碼_tb)
775 693
         Me.Panel1.Controls.Add(Me.中間日期_dtp)
776
-        Me.Panel1.Controls.Add(Me.字體大小調整_lb)
694
+        Me.Panel1.Controls.Add(Me.單據彙總_dgv)
777 695
         Me.Panel1.Controls.Add(Me.字體_NUD)
778 696
         Me.Panel1.Controls.Add(Me.人民幣現金餘額_tb)
779
-        Me.Panel1.Controls.Add(Me.Label13)
780
-        Me.Panel1.Controls.Add(Me.Label15)
781
-        Me.Panel1.Controls.Add(Me.Label14)
782 697
         Me.Panel1.Controls.Add(Me.台幣支票_tb)
783
-        Me.Panel1.Controls.Add(Me.Label2)
784 698
         Me.Panel1.Controls.Add(Me.台幣零用金_tb)
785
-        Me.Panel1.Controls.Add(Me.人民幣零用金_)
786 699
         Me.Panel1.Controls.Add(Me.人民幣支出_tb)
787 700
         Me.Panel1.Controls.Add(Me.人民幣零用金_tb)
788
-        Me.Panel1.Controls.Add(Me.Label16)
789 701
         Me.Panel1.Controls.Add(Me.人民幣支票_tb)
790 702
         Me.Panel1.Controls.Add(Me.人民幣現金_tb)
791
-        Me.Panel1.Controls.Add(Me.Label17)
792 703
         Me.Panel1.Location = New System.Drawing.Point(838, 200)
793 704
         Me.Panel1.Name = "Panel1"
794 705
         Me.Panel1.Size = New System.Drawing.Size(345, 258)
@@ -797,12 +708,12 @@ Partial Class 財務_收支單一覽表
797 708
         '
798 709
         '公司名稱
799 710
         '
800
-        Me.公司名稱.Location = New System.Drawing.Point(200, 74)
711
+        Me.公司名稱.Location = New System.Drawing.Point(8, 101)
801 712
         Me.公司名稱.Margin = New System.Windows.Forms.Padding(4)
802 713
         Me.公司名稱.Name = "公司名稱"
803 714
         Me.公司名稱.ReadOnly = True
804 715
         Me.公司名稱.RightToLeft = System.Windows.Forms.RightToLeft.No
805
-        Me.公司名稱.Size = New System.Drawing.Size(131, 23)
716
+        Me.公司名稱.Size = New System.Drawing.Size(85, 23)
806 717
         Me.公司名稱.TabIndex = 1731
807 718
         '
808 719
         '公司編號_cb
@@ -859,6 +770,54 @@ Partial Class 財務_收支單一覽表
859 770
         Me.顯示單據_cb.Text = "顯示單據編號"
860 771
         Me.顯示單據_cb.UseVisualStyleBackColor = True
861 772
         '
773
+        '壘算_dgv
774
+        '
775
+        Me.壘算_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
776
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
777
+        Me.壘算_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
778
+        Me.壘算_dgv.BackgroundColor = System.Drawing.Color.White
779
+        Me.壘算_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
780
+        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
781
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.White
782
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
783
+        DataGridViewCellStyle21.ForeColor = System.Drawing.Color.Black
784
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
785
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.White
786
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
787
+        Me.壘算_dgv.DefaultCellStyle = DataGridViewCellStyle21
788
+        Me.壘算_dgv.Location = New System.Drawing.Point(1041, 78)
789
+        Me.壘算_dgv.Name = "壘算_dgv"
790
+        Me.壘算_dgv.RowHeadersWidth = 5
791
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
792
+        Me.壘算_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
793
+        Me.壘算_dgv.RowTemplate.Height = 24
794
+        Me.壘算_dgv.Size = New System.Drawing.Size(292, 550)
795
+        Me.壘算_dgv.TabIndex = 1570
796
+        '
797
+        '正壘算_dgv
798
+        '
799
+        Me.正壘算_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
800
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
801
+        Me.正壘算_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
802
+        Me.正壘算_dgv.BackgroundColor = System.Drawing.Color.White
803
+        Me.正壘算_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
804
+        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
805
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.White
806
+        DataGridViewCellStyle23.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
807
+        DataGridViewCellStyle23.ForeColor = System.Drawing.Color.Black
808
+        DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
809
+        DataGridViewCellStyle23.SelectionForeColor = System.Drawing.Color.White
810
+        DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
811
+        Me.正壘算_dgv.DefaultCellStyle = DataGridViewCellStyle23
812
+        Me.正壘算_dgv.Location = New System.Drawing.Point(745, 78)
813
+        Me.正壘算_dgv.Name = "正壘算_dgv"
814
+        Me.正壘算_dgv.RowHeadersWidth = 5
815
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
816
+        Me.正壘算_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
817
+        Me.正壘算_dgv.RowTemplate.Height = 24
818
+        Me.正壘算_dgv.Size = New System.Drawing.Size(292, 550)
819
+        Me.正壘算_dgv.TabIndex = 1571
820
+        '
862 821
         '財務_收支單一覽表
863 822
         '
864 823
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -869,9 +828,7 @@ Partial Class 財務_收支單一覽表
869 828
         Me.Controls.Add(Me.Label6)
870 829
         Me.Controls.Add(Me.公司編號_lb)
871 830
         Me.Controls.Add(Me.公司編號_cb)
872
-        Me.Controls.Add(Me.Panel1)
873 831
         Me.Controls.Add(Me.日期彙總_dgv)
874
-        Me.Controls.Add(Me.單據彙總_dgv)
875 832
         Me.Controls.Add(Me.非稅_ch)
876 833
         Me.Controls.Add(Me.含稅_ch)
877 834
         Me.Controls.Add(Me.全部_ch)
@@ -899,14 +856,17 @@ Partial Class 財務_收支單一覽表
899 856
         Me.Controls.Add(Me.收支單號_tb)
900 857
         Me.Controls.Add(Me.Label1)
901 858
         Me.Controls.Add(Me.Label3)
902
-        Me.Controls.Add(Me.財務彙總_dgv)
903
-        Me.Controls.Add(Me.明細_dgv)
904 859
         Me.Controls.Add(Me.Label4)
905 860
         Me.Controls.Add(Me.一般月_ch)
906
-        Me.Controls.Add(Me.財務彙總_天_dgv)
907 861
         Me.Controls.Add(Me.申請人_tb)
908 862
         Me.Controls.Add(Me.日期浮動_cb)
909 863
         Me.Controls.Add(Me.會計月_ch)
864
+        Me.Controls.Add(Me.財務彙總_dgv)
865
+        Me.Controls.Add(Me.Panel1)
866
+        Me.Controls.Add(Me.正壘算_dgv)
867
+        Me.Controls.Add(Me.壘算_dgv)
868
+        Me.Controls.Add(Me.明細_dgv)
869
+        Me.Controls.Add(Me.財務彙總_天_dgv)
910 870
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
911 871
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
912 872
         Me.Name = "財務_收支單一覽表"
@@ -921,6 +881,8 @@ Partial Class 財務_收支單一覽表
921 881
         Me.ContextMenuStrip1.ResumeLayout(False)
922 882
         Me.Panel1.ResumeLayout(False)
923 883
         Me.Panel1.PerformLayout()
884
+        CType(Me.壘算_dgv, System.ComponentModel.ISupportInitialize).EndInit()
885
+        CType(Me.正壘算_dgv, System.ComponentModel.ISupportInitialize).EndInit()
924 886
         Me.ResumeLayout(False)
925 887
         Me.PerformLayout()
926 888
 
@@ -933,30 +895,22 @@ Partial Class 財務_收支單一覽表
933 895
     Friend WithEvents 非稅_ch As CheckBox
934 896
     Friend WithEvents 含稅_ch As CheckBox
935 897
     Friend WithEvents 全部_ch As CheckBox
936
-    Friend WithEvents 字體大小調整_lb As Label
937 898
     Friend WithEvents 字體_NUD As NumericUpDown
938 899
     Friend WithEvents 下個月_bt As Button
939 900
     Friend WithEvents 上個月_bt As Button
940 901
     Friend WithEvents 中間日期_dtp As DateTimePicker
941
-    Friend WithEvents Label2 As Label
942 902
     Friend WithEvents 人民幣零用金_tb As TextBox
943
-    Friend WithEvents 人民幣零用金_ As Label
944 903
     Friend WithEvents 人民幣支票_tb As TextBox
945 904
     Friend WithEvents 人民幣現金餘額_tb As TextBox
946
-    Friend WithEvents Label13 As Label
947 905
     Friend WithEvents 人民幣支出_tb As TextBox
948
-    Friend WithEvents Label16 As Label
949 906
     Friend WithEvents 人民幣現金_tb As TextBox
950
-    Friend WithEvents Label17 As Label
951 907
     Friend WithEvents 圖片編碼_tb As TextBox
952 908
     Friend WithEvents 驗證碼_tb As TextBox
953 909
     Friend WithEvents Label20 As Label
954 910
     Friend WithEvents Label19 As Label
955 911
     Friend WithEvents 彙總_rb As RadioButton
956 912
     Friend WithEvents 明細_rb As RadioButton
957
-    Friend WithEvents Label14 As Label
958 913
     Friend WithEvents 台幣零用金_tb As TextBox
959
-    Friend WithEvents Label15 As Label
960 914
     Friend WithEvents 台幣支票_tb As TextBox
961 915
     Friend WithEvents 台幣現金餘額_tb As TextBox
962 916
     Friend WithEvents Label9 As Label
@@ -996,4 +950,6 @@ Partial Class 財務_收支單一覽表
996 950
     Friend WithEvents Label6 As Label
997 951
     Friend WithEvents 公司名稱 As TextBox
998 952
     Friend WithEvents 顯示單據_cb As CheckBox
953
+    Friend WithEvents 壘算_dgv As DataGridView
954
+    Friend WithEvents 正壘算_dgv As DataGridView
999 955
 End Class

+ 291
- 848
GF00-ERP-SYS/04.財務管理系統/財務_收支單一覽表.vb
File diff soppresso perché troppo grande
Vedi File


+ 74
- 0
GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.Designer.vb Vedi File

@@ -0,0 +1,74 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 可複製訊息通知框
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Me.訊息_tb = New System.Windows.Forms.TextBox()
26
+        Me.確認_bt = New System.Windows.Forms.Button()
27
+        Me.SuspendLayout()
28
+        '
29
+        '訊息_tb
30
+        '
31
+        Me.訊息_tb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
32
+            Or System.Windows.Forms.AnchorStyles.Left) _
33
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
34
+        Me.訊息_tb.Location = New System.Drawing.Point(5, 4)
35
+        Me.訊息_tb.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
36
+        Me.訊息_tb.Multiline = True
37
+        Me.訊息_tb.Name = "訊息_tb"
38
+        Me.訊息_tb.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
39
+        Me.訊息_tb.Size = New System.Drawing.Size(420, 291)
40
+        Me.訊息_tb.TabIndex = 0
41
+        '
42
+        '確認_bt
43
+        '
44
+        Me.確認_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
45
+        Me.確認_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
46
+        Me.確認_bt.Location = New System.Drawing.Point(278, 296)
47
+        Me.確認_bt.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
48
+        Me.確認_bt.Name = "確認_bt"
49
+        Me.確認_bt.Size = New System.Drawing.Size(147, 31)
50
+        Me.確認_bt.TabIndex = 1
51
+        Me.確認_bt.Text = "確認"
52
+        Me.確認_bt.UseVisualStyleBackColor = True
53
+        '
54
+        '可複製訊息通知框
55
+        '
56
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
57
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
58
+        Me.ClientSize = New System.Drawing.Size(429, 330)
59
+        Me.ControlBox = False
60
+        Me.Controls.Add(Me.確認_bt)
61
+        Me.Controls.Add(Me.訊息_tb)
62
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
63
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
64
+        Me.Name = "可複製訊息通知框"
65
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
66
+        Me.Text = "可複製訊息通知框"
67
+        Me.ResumeLayout(False)
68
+        Me.PerformLayout()
69
+
70
+    End Sub
71
+
72
+    Friend WithEvents 訊息_tb As TextBox
73
+    Friend WithEvents 確認_bt As Button
74
+End Class

+ 120
- 0
GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.resx Vedi File

@@ -0,0 +1,120 @@
1
+<?xml version="1.0" encoding="utf-8"?>
2
+<root>
3
+  <!-- 
4
+    Microsoft ResX Schema 
5
+    
6
+    Version 2.0
7
+    
8
+    The primary goals of this format is to allow a simple XML format 
9
+    that is mostly human readable. The generation and parsing of the 
10
+    various data types are done through the TypeConverter classes 
11
+    associated with the data types.
12
+    
13
+    Example:
14
+    
15
+    ... ado.net/XML headers & schema ...
16
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
17
+    <resheader name="version">2.0</resheader>
18
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
24
+    </data>
25
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27
+        <comment>This is a comment</comment>
28
+    </data>
29
+                
30
+    There are any number of "resheader" rows that contain simple 
31
+    name/value pairs.
32
+    
33
+    Each data row contains a name, and value. The row also contains a 
34
+    type or mimetype. Type corresponds to a .NET class that support 
35
+    text/value conversion through the TypeConverter architecture. 
36
+    Classes that don't support this are serialized and stored with the 
37
+    mimetype set.
38
+    
39
+    The mimetype is used for serialized objects, and tells the 
40
+    ResXResourceReader how to depersist the object. This is currently not 
41
+    extensible. For a given mimetype the value must be set accordingly:
42
+    
43
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
44
+    that the ResXResourceWriter will generate, however the reader can 
45
+    read any of the formats listed below.
46
+    
47
+    mimetype: application/x-microsoft.net.object.binary.base64
48
+    value   : The object must be serialized with 
49
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50
+            : and then encoded with base64 encoding.
51
+    
52
+    mimetype: application/x-microsoft.net.object.soap.base64
53
+    value   : The object must be serialized with 
54
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55
+            : and then encoded with base64 encoding.
56
+
57
+    mimetype: application/x-microsoft.net.object.bytearray.base64
58
+    value   : The object must be serialized into a byte array 
59
+            : using a System.ComponentModel.TypeConverter
60
+            : and then encoded with base64 encoding.
61
+    -->
62
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64
+    <xsd:element name="root" msdata:IsDataSet="true">
65
+      <xsd:complexType>
66
+        <xsd:choice maxOccurs="unbounded">
67
+          <xsd:element name="metadata">
68
+            <xsd:complexType>
69
+              <xsd:sequence>
70
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
71
+              </xsd:sequence>
72
+              <xsd:attribute name="name" use="required" type="xsd:string" />
73
+              <xsd:attribute name="type" type="xsd:string" />
74
+              <xsd:attribute name="mimetype" type="xsd:string" />
75
+              <xsd:attribute ref="xml:space" />
76
+            </xsd:complexType>
77
+          </xsd:element>
78
+          <xsd:element name="assembly">
79
+            <xsd:complexType>
80
+              <xsd:attribute name="alias" type="xsd:string" />
81
+              <xsd:attribute name="name" type="xsd:string" />
82
+            </xsd:complexType>
83
+          </xsd:element>
84
+          <xsd:element name="data">
85
+            <xsd:complexType>
86
+              <xsd:sequence>
87
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89
+              </xsd:sequence>
90
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93
+              <xsd:attribute ref="xml:space" />
94
+            </xsd:complexType>
95
+          </xsd:element>
96
+          <xsd:element name="resheader">
97
+            <xsd:complexType>
98
+              <xsd:sequence>
99
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100
+              </xsd:sequence>
101
+              <xsd:attribute name="name" type="xsd:string" use="required" />
102
+            </xsd:complexType>
103
+          </xsd:element>
104
+        </xsd:choice>
105
+      </xsd:complexType>
106
+    </xsd:element>
107
+  </xsd:schema>
108
+  <resheader name="resmimetype">
109
+    <value>text/microsoft-resx</value>
110
+  </resheader>
111
+  <resheader name="version">
112
+    <value>2.0</value>
113
+  </resheader>
114
+  <resheader name="reader">
115
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116
+  </resheader>
117
+  <resheader name="writer">
118
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119
+  </resheader>
120
+</root>

+ 10
- 0
GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.vb Vedi File

@@ -0,0 +1,10 @@
1
+Public Class 可複製訊息通知框
2
+    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
3
+        訊息_tb.Text = "" : Me.Close()
4
+    End Sub
5
+    Private Sub 可複製訊息通知框_Load(sender As Object, e As EventArgs) Handles MyBase.Load
6
+    End Sub
7
+    Private Sub 可複製訊息通知框_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
8
+        訊息_tb.SelectionStart = 訊息_tb.Text.Length : 訊息_tb.SelectionLength = 0
9
+    End Sub
10
+End Class

+ 9
- 0
GF00-ERP-SYS/GF00-ERP-SYS.vbproj Vedi File

@@ -465,6 +465,12 @@
465 465
     <Compile Include="10.背景程式與對話視窗\個人帳號管理.vb">
466 466
       <SubType>Form</SubType>
467 467
     </Compile>
468
+    <Compile Include="10.背景程式與對話視窗\可複製訊息通知框.Designer.vb">
469
+      <DependentUpon>可複製訊息通知框.vb</DependentUpon>
470
+    </Compile>
471
+    <Compile Include="10.背景程式與對話視窗\可複製訊息通知框.vb">
472
+      <SubType>Form</SubType>
473
+    </Compile>
468 474
     <Compile Include="10.背景程式與對話視窗\圖片放大視窗.Designer.vb">
469 475
       <DependentUpon>圖片放大視窗.vb</DependentUpon>
470 476
     </Compile>
@@ -717,6 +723,9 @@
717 723
     <EmbeddedResource Include="10.背景程式與對話視窗\個人帳號管理.resx">
718 724
       <DependentUpon>個人帳號管理.vb</DependentUpon>
719 725
     </EmbeddedResource>
726
+    <EmbeddedResource Include="10.背景程式與對話視窗\可複製訊息通知框.resx">
727
+      <DependentUpon>可複製訊息通知框.vb</DependentUpon>
728
+    </EmbeddedResource>
720 729
     <EmbeddedResource Include="10.背景程式與對話視窗\圖片放大視窗.resx">
721 730
       <DependentUpon>圖片放大視窗.vb</DependentUpon>
722 731
     </EmbeddedResource>

BIN
GF00-ERP-SYS/bin/Debug/GF00-ERP-SYS.exe Vedi File


BIN
GF00-ERP-SYS/bin/Debug/GF00-ERP-SYS.pdb Vedi File


+ 3
- 1
GF00-ERP-SYS/bin/Debug/TEST.txt Vedi File

@@ -1,4 +1,6 @@
1
-1CGX9RI9EF
1
+0DGY0SJ4FF
2
+
3
+
2 4
 
3 5
 
4 6
 

BIN
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.exe Vedi File


BIN
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.pdb Vedi File


BIN
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.AssemblyReference.cache Vedi File


+ 1
- 1
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.CoreCompileInputs.cache Vedi File

@@ -1 +1 @@
1
-846593e2e7f27fad5c473a63548feb82ab311e796e4b030b47d8224485a78d24
1
+21d97413570502775cc47c74e6b4df182bd9e965efd05d6cebadb54f087e8ca8

+ 4
- 0
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.FileListAbsolute.txt Vedi File

@@ -1213,3 +1213,7 @@ C:\Users\USER\Downloads\GF00-ERP-SYS-SIU-master\gf00-erp-sys-siu\GF00-ERP-SYS\ob
1213 1213
 C:\Users\USER\Downloads\GF00-ERP-SYS-SIU-master\gf00-erp-sys-siu\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.pdb
1214 1214
 D:\gf00-erp-sys-leehsiehjui\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.列印.resources
1215 1215
 D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.列印.resources
1216
+C:\Users\USER\Downloads\GF00-ERP-SYS-SIU-master\gf00-erp-sys-siu\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.列印.resources
1217
+C:\Users\USER\Downloads\GF00-ERP-SYS-SIU-master\gf00-erp-sys-siu\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.可複製訊息通知框.resources
1218
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.可複製訊息通知框.resources
1219
+D:\gf00-erp-sys-leehsiehjui\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.可複製訊息通知框.resources

BIN
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.GenerateResource.cache Vedi File


BIN
GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.ResolveComReference.cache Vedi File


BIN
GF00-ERP-SYS/obj/Debug/ICS_ASMS_ERP_SYS.可複製訊息通知框.resources Vedi File


BIN
GF00-ERP-SYS/obj/Debug/Interop.ACTIVEXLib.dll Vedi File


Loading…
Annulla
Salva