20241009備份

.vs/GF00-ERP-SYS/v17/DocumentLayout.json

   "Version": 1,
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\",
   "Documents": [
-    {
-      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    },
     {
       "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}",
       "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}"
     },
     {
-      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "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\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "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}"
     },
     {
-      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "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\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "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"
+    },
+    {
+      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "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_\u9577\u7167\u62C6\u5E33\u5236\u8A08\u7B97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "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_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "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_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "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}",
-      "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}"
+      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "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\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "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\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "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\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "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}",
-      "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}"
+      "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}",
+      "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}"
     },
     {
       "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",
       "DocumentGroups": [
         {
           "DockedHeight": 200,
-          "SelectedChildIndex": 4,
+          "SelectedChildIndex": 13,
           "Children": [
             {
               "$type": "Bookmark",
               "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
             },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "ViewState": "AQIAAE0AAAAAAAAAAAAYwO0AAABtAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-09T07:38:37.881Z",
+              "EditorCaption": ""
+            },
             {
               "$type": "Document",
               "DocumentIndex": 2,
-              "Title": "\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "ViewState": "AQIAAHkCAAAAAAAAAAAewJMCAABzAAAA",
+              "Title": "\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-24T04:20:12.908Z"
+              "WhenOpened": "2024-10-09T07:37:51.422Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
-              "Title": "\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u6703\u7E3D\u8868.vb [\u8A2D\u8A08]",
+              "DocumentIndex": 8,
+              "Title": "\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "ViewState": "AQIAAHMBAAAAAAAAAAAWwEMAAABNAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-21T03:11:22.27Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
+              "Title": "\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u8003\u52E4\u6587\u4EF6\u5C0E\u5165.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-24T04:20:09.961Z"
+              "WhenOpened": "2024-09-21T03:11:19.893Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 10,
+              "Title": "\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "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\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "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\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "RelativeToolTip": "GF00-ERP-SYS\\09.\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "ViewState": "AQIAAAIAAAAAAAAAAADwvygAAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-14T07:50:59.267Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 9,
+              "Title": "\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwGwAAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-14T07:11:48.113Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 6,
+              "Title": "\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u5206\u6790\u8868.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-14T07:06:50.521Z"
             },
             {
               "$type": "Document",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u9577\u7167\u62C6\u5E33\u5236\u8A08\u7B97.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u9577\u7167\u62C6\u5E33\u5236\u8A08\u7B97.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u9577\u7167\u62C6\u5E33\u5236\u8A08\u7B97.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAABsAAAAaAAAA",
+              "ViewState": "AQIAAPcAAAAAAAAAAAAIwA8BAABBAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-08-23T08:21:35.689Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 0,
+              "DocumentIndex": 3,
               "Title": "\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAANoAAABiAAAA",
+              "ViewState": "AQIAALEDAAAAAAAAAAAWwMYDAAAEAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-23T08:21:17.619Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-08-23T08:21:17.619Z"
             },
             {
               "$type": "Document",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "GF00-ERP-SYS\\01.\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406\\\u62C6\u5E33\u5236\u85AA\u8CC7\u8A66\u7B97\u8868.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-23T08:21:13.942Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 8,
-              "Title": "SQL_\u9023\u7DDA\u5B57\u4E32.vb",
-              "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",
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
-              "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",
-              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
-              "ViewState": "AQIAAAIAAAAAAAAAAAAswAgAAAAEAAAA",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-31T11:18:13.419Z"
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 6,
-              "Title": "SQL_Module.vb",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_Module.vb",
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_Module.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_Module.vb",
-              "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\SQL_Module.vb",
-              "ViewState": "AQIAAAUAAAAAAAAAAAAcwCwAAAAEAAAA",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-31T11:12:23.117Z"
+              "WhenOpened": "2024-08-23T08:21:13.942Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 9,
+              "DocumentIndex": 12,
               "Title": "GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 7,
+              "DocumentIndex": 11,
               "Title": "GCM-CPV-ERP-SYS.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GF\u901A\u7528\u7CFB\u7D71\\GF00-ERP-SYS\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
-              "ViewState": "AQIAAA8AAAAAAAAAAAAswCIAAAASAAAA",
+              "ViewState": "AQIAAAEBAAAAAAAAAAD4vwsBAAAUAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-03-09T14:25:37.609Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 0,
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
               "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",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
               "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",
               "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAEAAAAAAAAAAAAuwBAAAAAYAAAA",
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAYAAAAlAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-10T11:37:36.845Z",
               "EditorCaption": ""

GF00-ERP-SYS.sln

 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio Version 16
-VisualStudioVersion = 16.0.30907.101
+# Visual Studio Version 17
+VisualStudioVersion = 17.10.34916.146
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GF00-ERP-SYS", "GF00-ERP-SYS\GF00-ERP-SYS.vbproj", "{FE513A1E-39BC-4D77-9C8F-00C243513418}"
 EndProject

GF00-ERP-SYS/0.MyModule/主資料庫/SQL_長照拆帳制計算.vb

 Module SQL_長照拆帳制計算
+    Friend Sub SQL_薪資彙總表_仁寶2()
+        ConnOpen()
+        SQL1 = "SELECT  姓名, SUM(BA正常) AS BA正常, SUM(GA正常) AS GA正常, SUM(GA加級) AS GA加級, SUM([申請總額 仁寶BA&SC]) AS [申請總額(仁寶) BA&GA&SC], 
+                        SUM([申請總額 長照BA&SC]) AS [申請總額(長照) BA&GA&SC], SUM(GA加級) AS [BA&GA& SC拆帳比], SUM(AA正常) AS AA正常, SUM([申請總額 仁寶AA]) AS [申請總額 仁寶AA], 
+                        SUM([申請總額 長照AA]) AS [申請總額 長照AA], SUM(AA正常) AS [AA 拆帳比], SUM(AA扣除額) AS AA扣除額, SUM(服務津貼) AS 服務津貼, SUM(轉場津貼) AS 轉場津貼, 
+                        SUM(薪資加項D) AS 薪資加項D, SUM(轉場薪資) AS 轉場薪資, SUM(加班費) AS 加班費, SUM(加項總計) AS 加項總計, SUM(減項總計) AS 減項總計, SUM(轉場薪資) AS [轉場薪資.], 
+                        SUM([平1.34]) AS [平1.34], SUM([平1.67]) AS [平1.67], SUM([休1.34]) AS [休1.34], SUM([休1.67]) AS [休1.67], SUM([國2.00]) AS [國2.00], 
+                        SUM(公司負擔總計) AS 公司負擔總計, SUM(實領薪資) AS 薪資總額, SUM([申請總額 仁寶BA&SC]) AS [申請總額(仁寶) BA&GA&SC.], 
+                        SUM([申請總額 長照BA&SC]) AS [申請總額(長照) BA&GA&SC.], SUM([申請總額 仁寶AA]) AS [申請總額 仁寶AA.], SUM([申請總額 長照AA]) AS [申請總額 長照AA.], 
+                        SUM(AA扣除額) AS [AA扣除額.], SUM(實領薪資) AS [薪資總額.], SUM(公司負擔總計) AS [公司負擔總計.], SUM(餘額) AS 餘額, SUM(餘額) AS 餘額比, SUM(總服務時數) AS 總服務時數, 
+                        SUM(總轉場時數) AS 總轉場時數, SUM(總轉場時數) AS 服務轉場比 
+                FROM    人事拆帳制彙總表_仁寶 WHERE " & PA1 & "
+                GROUP   BY 姓名 ORDER BY 姓名"
+        'AVG(BA正常) AS [BA正常(平均)], AVG(GA正常) AS [GA正常(平均)], AVG(GA加級) AS [GA加級(平均)], AVG(AA正常) AS [AA正常(平均)], AVG(服務津貼) AS [服務津貼(平均)], 
+        'AVG(轉場津貼) AS [轉場津貼(平均)], AVG(薪資加項D) AS [薪資加項D(平均)], AVG(加班費) AS [加班費(平均)], AVG(加項總計) AS [加項總計(平均)], AVG(減項總計) AS [減項總計(平均)], 
+        'AVG(轉場薪資) AS [轉場薪資(平均)], AVG([平1.34]) AS [平1.34(平均)], AVG([平1.67]) AS [平1.67(平均)], AVG([休1.34]) AS [休1.34(平均)], AVG([休1.67]) AS [休1.67(平均)], 
+        'AVG([國2.00]) AS [國2.00(平均)], AVG(公司負擔總計) AS [公司負擔總計(平均)], AVG(AA扣除額) AS [AA扣除額(平均)], AVG(實領薪資) AS [實領薪資(平均)], 
+        'AVG([申請總額 仁寶BA&SC]) AS [申請總額 仁寶BA&SC(平均)], AVG([申請總額 仁寶AA]) AS [申請總額 仁寶AA(平均)], AVG([申請總額 長照BA&SC]) AS [申請總額 長照BA&SC(平均)], 
+        'AVG([申請總額 長照AA]) AS [申請總額 長照AA(平均)], AVG(餘額) AS [餘額(平均)], AVG(總服務時數) AS [總服務時數(平均)], AVG(總轉場時數) AS [總轉場時數(平均)]
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_薪資彙總表_仁寶1()
         ConnOpen()
         SQL1 = "SELECT    DISTINCT  人事拆帳制薪資報表明細_仁寶.姓名, Q1.BA比例, Q1.BA比例 AS BA正常, Q1.BA比例 AS GA正常, Q1.BA比例 AS BA, Q1.BA比例 AS GA, 
                           Q1.BA比例 " & Dq(10) & ", Q1.BA比例 " & Dq(11) & ", Q1.BA比例 AS 薪資加項總計, Q1.BA比例 AS GA比, Q1.BA比例 " & Eo(0) & ", Q1.BA比例 " & Eo(1) & ", 
                           Q1.BA比例 " & Eo(2) & ", Q1.BA比例 " & Eo(3) & ", Q1.BA比例 " & Eo(4) & ", Q1.BA比例 " & Eo(5) & ", Q1.BA比例 " & Eo(6) & ", Q1.BA比例 " & Eo(7) & ", 
                           Q1.BA比例 " & Eo(8) & ", Q1.BA比例 " & Eo(9) & ", Q1.BA比例 " & Eo(10) & ", Q1.BA比例 " & Eo(11) & ", Q1.BA比例 AS 公司負擔總計, Q1.BA比例 AS AA07, 
-                          Q1.BA比例 AS AA09
+                          Q1.BA比例 AS AA09, Q1.BA比例 AS 正常班轉場, Q1.BA比例 AS [平加班1.34], Q1.BA比例 AS [平加班1.67], Q1.BA比例 AS [休加班1.34], Q1.BA比例 AS [休加班1.67], 
+                          Q1.BA比例 AS [國加班2.00], Q1.BA比例 AS 轉場薪資, Q1.BA比例 AS [平薪資1.34], Q1.BA比例 AS [平薪資1.67], Q1.BA比例 AS [休薪資1.34], Q1.BA比例 AS [休薪資1.67], 
+                          Q1.BA比例 AS [國薪資2.00], Q1.BA比例 AS BAORSC, Q1.BA比例 AS AA長短, Q1.BA比例 AS BAORSC仁, Q1.BA比例 AS AA長短仁, Q1.BA比例 AS 實際總薪資
 
                 FROM      人事拆帳制薪資報表明細_仁寶 LEFT OUTER JOIN
                          (SELECT      姓名, 姓名 AS BA比例  FROM  人事拆帳制明細_仁寶
                           Q4.D06 " & Dq(5) & ", Q4.D07 " & Dq(6) & ", Q4.D08 " & Dq(7) & ", Q4.D09 " & Dq(8) & ", Q4.D10 " & Dq(9) & ", Q4.D11 " & Dq(10) & ", Q4.D12 " & Dq(11) & ", 
                           Q4.D12 AS 薪資加項總計, Q4.GA比, Q4.E01 " & Eo(0) & ", Q4.E02 " & Eo(1) & ", Q4.E03 " & Eo(2) & ", Q4.E04 " & Eo(3) & ", Q4.E05 " & Eo(4) & ", 
                           Q4.E06 " & Eo(5) & ", Q4.E07 " & Eo(6) & ", Q4.E08 " & Eo(7) & ", Q4.E09 " & Eo(8) & ", Q4.E10 " & Eo(9) & ", Q4.E11 " & Eo(10) & ", Q4.E12 " & Eo(11) & ", 
-                          Q4.E12 AS 公司負擔總計, A8.AA07, A9.AA09
+                          Q4.E12 AS 公司負擔總計, A8.AA07, A9.AA09, Q4.D01 AS 正常班轉場, Q4.D01 AS [平加班1.34], Q4.D01 AS [平加班1.67], Q4.D01 AS [休加班1.34], Q4.D01 AS [休加班1.67], 
+                          Q4.D01 AS [國加班2.00], Q4.D01 AS 轉場薪資, Q4.D01 AS [平薪資1.34], Q4.D01 AS [平薪資1.67], Q4.D01 AS [休薪資1.34], Q4.D01 AS [休薪資1.67], Q4.D01 AS [國薪資2.00],
+                          Q5.金額 AS BAORSC, Q6.金額 AS AA長短, Q7.BAORSC仁, Q8.AA長短仁, Q4.D01 AS 實際總薪資, Q4.D01 AS AA剃除
 
                 FROM      人事拆帳制薪資報表明細_仁寶 LEFT OUTER JOIN
                          (SELECT      姓名, 姓名 AS BA比例  FROM  人事拆帳制明細_仁寶
                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') 
-                          GROUP BY    姓名, 姓名) AS Q1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q1.姓名 LEFT OUTER JOIN
+                          GROUP BY    姓名) AS Q1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q1.姓名 LEFT OUTER JOIN
                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS BA  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_1
-                          WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'BA%')
+                          WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'BA%' OR 編號 LIKE 'SC%')
                           GROUP BY    姓名) AS Q2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q2.姓名  LEFT OUTER JOIN
                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS GA  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_2
                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'GA%')
                                       B11, B12, C01, 其他, D01, D02, D03, D04, D05, D06, D07, D08, D09, D10, D11, D12, GA比, E01, E02, E03, E04, E05, E06, 
                                       E07, E08, E09, E10, E11, E12
                           FROM        人事拆帳制其他應收付表
-                          WHERE      (流水號 LIKE '" & PA1 & "')) AS Q4 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q4.姓名
+                          WHERE      (流水號 LIKE '" & PA1 & "')) AS Q4 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q4.姓名 LEFT OUTER JOIN
+                         (SELECT      服務人員, SUM(CONVERT(DECIMAL(18, 2), 次數) * CONVERT(DECIMAL(18, 2), 價格)) AS 金額
+                          FROM        人事拆帳制BA碼項目長照所
+                          WHERE      (流水號 LIKE '" & PA1 & "') AND (服務人員 NOT LIKE '')
+                          GROUP BY    服務人員) AS Q5 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q5.服務人員 LEFT OUTER JOIN
+                         (SELECT      服務人員, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS 金額
+                          FROM        人事拆帳制A碼項目長照所
+                          WHERE      (流水號 LIKE '" & PA1 & "') AND (服務人員 NOT LIKE '')
+                          GROUP BY    服務人員) AS Q6 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q6.服務人員 LEFT OUTER JOIN
+                         (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS BAORSC仁  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_5
+                          WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (編號 LIKE 'BA%' OR 編號 LIKE 'SC%')
+                          GROUP BY    姓名) AS Q7 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q7.姓名 LEFT OUTER JOIN
+                         (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA長短仁  FROM  人事拆帳制A碼項目清冊
+                          WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')
+                          GROUP BY    服務人員) AS Q8 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q8.姓名
 
                 WHERE    (人事拆帳制薪資報表明細_仁寶.姓名 NOT LIKE '') AND (人事拆帳制薪資報表明細_仁寶.流水號 LIKE '" & PA1 & "%')
                 ORDER BY  人事拆帳制薪資報表明細_仁寶.姓名"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_服務資料_仁寶()
-        ConnOpen()
+        ConnOpen()   '-----注意轉移計算分水嶺----------------------------------------------
         SQL1 = "SELECT    服務日期, 排班時間, 居服員姓名, 姓名, 排班時間長度, LEFT(服務項目代碼, 5) AS 代碼, 姓名 AS 已使用
                 FROM      人事拆帳制服務紀錄_仁寶
-                WHERE    (流水號 LIKE '" & PA1 & "%') AND (服務項目代碼 NOT LIKE '')
+                WHERE    (流水號 LIKE '" & PA1 & "%') AND (服務項目代碼 NOT LIKE '') AND (服務項目代碼 NOT LIKE 'AA%')
                 ORDER BY  居服員姓名, 服務日期, 排班時間 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_表頭()
         ConnOpen() : SQL1 = "SELECT  對應, 欄位名稱  FROM  人事拆帳制其他表抬頭  ORDER BY   對應" : CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_轉場計算()
+        ConnOpen()
+        SQL1 = "SELECT    姓名, 日期, 排班轉場時間_分, 服務時間_分, 加班類型 AS 累計時間, 加班類型 AS 加班時段, 加班類型, 加班類型 AS 星期, 
+                          加班類型 AS 正常轉場, 加班類型 AS 累計轉場, 加班類型 AS 轉場取出
+                FROM      人事拆帳制每日明細_仁寶    WHERE    (流水號 LIKE N'" & PA1 & "%') AND (轉場時薪 NOT LIKE '')   ORDER BY  CAST(序 AS INT)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_AA剔除計算()
+        ConnOpen()
+        SQL1 = "SELECT    服務日期, 居服員姓名, LEFT(服務項目代碼, 2) AS 代碼, 申報費用, 加班類型, 排班時間, 排班時間長度,
+                          排班時間長度 AS 正常班轉場, 排班時間長度 AS 累計時間, 排班時間長度 AS 剃除金額
+                FROM      人事拆帳制服務紀錄_仁寶
+                WHERE    (流水號 LIKE '" & PA1 & "%') AND (服務項目代碼 NOT LIKE '') AND (服務項目代碼 NOT LIKE 'AA07%') AND 
+                         (服務項目代碼 NOT LIKE 'AA09')
+                ORDER BY  居服員姓名, 服務日期, 排班時間, LEFT(服務項目代碼, 2) DESC"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_放差額()
         ConnOpen()
         SQL1 = "SELECT  流水號, 姓名, 流水號 AS 差額  FROM  人事拆帳制薪資報表明細_仁寶  WHERE  (流水號 LIKE '" & PA1 & "%') AND (姓名 NOT LIKE '')  GROUP BY   姓名, 流水號  ORDER BY  姓名"
     Friend Sub SQL_查差額()
         ConnOpen() : SQL1 = "SELECT  TOP(1) 流水號, 姓名, 差額  FROM  人事拆帳制A碼差額 WHERE  (流水號 LIKE '" & PA10 & "%')" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_查最低薪資()
+        ConnOpen() : SQL1 = "SELECT  最低薪資, AA扣除  FROM  人事拆帳制最低工資 WHERE  (日期 LIKE '" & PA1 & "%')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_最低薪資新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 人事拆帳制最低工資 (日期, 最低薪資, AA扣除) VALUES (N'" & PA1 & "', N'" & 拆帳制薪資試算表.最低薪資_lb.Text & "', N'" & 拆帳制薪資試算表.扣除狀態_ch.Checked & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_差額刪除()
         ConnOpen() : SQL1 = "DELETE 人事拆帳制A碼差額 WHERE (流水號 LIKE '" & PA1 & "%')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_確認A碼長照()
         ConnOpen() : SQL1 = "SELECT  TOP (1) 流水號  FROM  人事拆帳制A碼項目長照所 WHERE  (流水號 LIKE '" & PA1 & "%')" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_確認BA碼長照()
+        ConnOpen() : SQL1 = "SELECT  TOP (1) 流水號  FROM  人事拆帳制BA碼項目長照所 WHERE  (流水號 LIKE '" & PA1 & "%')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_表頭_修改()
         ConnOpen() : SQL1 = "UPDATE 人事拆帳制其他表抬頭 SET 欄位名稱 = N'" & PA3 & "' WHERE  對應 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
     End Sub
                                                     E01, E02, E03, E04, E05, E06, E07, E08, E09, E10, E11, E12)  VALUES  " & SQL2
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_彙總表_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 人事拆帳制彙總表_仁寶 (日期, 姓名, BA正常, GA正常, GA加級, AA正常, 服務津貼, 轉場津貼, 薪資加項D, 加班費, 加項總計, 減項總計, 
+                            轉場薪資, [平1.34], [平1.67], [休1.34], [休1.67], [國2.00], 公司負擔總計, AA扣除額, 實領薪資, [申請總額 仁寶BA&SC], 
+                            [申請總額 仁寶AA], [申請總額 長照BA&SC], [申請總額 長照AA], 餘額, 總服務時數, 總轉場時數)  VALUES  " & SQL2
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_彙總表_刪除()
+        ConnOpen() : SQL1 = "DELETE 人事拆帳制彙總表_仁寶 WHERE  日期 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_其他表_修改()
         ConnOpen() : SQL1 = "UPDATE 人事拆帳制其他應收付表  SET " & SQL2 : CmdSet_For_dr()
     End Sub

GF00-ERP-SYS/0.MyModule/模組/全域變數.vb

     '-----系統通用變數------
     Public 系統語言, 進度條後墜, 登入人IP, 登入人級別, 介面, 行政採購簽核級別基數, 建築採購簽核級別基數, Target, Target1, Target2, AA(99), FTP帳號, FTP密碼, gUserName,
                  電腦識別碼, 版本號, 資料庫版本, g_conn_type, FTP物理位置, 圖片庫 As String
-    Public 版本 As String = "2024082404"
+    Public 版本 As String = "2024100901"
     Public 比例1, 比例2, 比例3, 分母, 密碼時限, 工程圖庫限制, NN1, 帳本數量, 行, 列 As Integer
     Public 分段1, 分段2, 分段3, 分段4 As Double
     Public BBL1, BBL2, BBL3, BBL4, BBL5, BBL6 As String

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

     Private Sub InitializeComponent()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.選路徑7_bt = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.路徑7_tb = New System.Windows.Forms.TextBox()
         Me.選路徑6_bt = New System.Windows.Forms.Button()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.路徑6_tb = New System.Windows.Forms.TextBox()
         Me.路徑1_tb = New System.Windows.Forms.TextBox()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
-        Me.選路徑7_bt = New System.Windows.Forms.Button()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.路徑7_tb = New System.Windows.Forms.TextBox()
+        Me.選路徑9_bt = New System.Windows.Forms.Button()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.路徑9_tb = New System.Windows.Forms.TextBox()
+        Me.選路徑10_bt = New System.Windows.Forms.Button()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.路徑10_tb = New System.Windows.Forms.TextBox()
+        Me.選路徑8_bt = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.路徑8_tb = New System.Windows.Forms.TextBox()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.SuspendLayout()
         Me.TabControl1.Location = New System.Drawing.Point(0, 0)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(820, 216)
+        Me.TabControl1.Size = New System.Drawing.Size(820, 294)
         Me.TabControl1.TabIndex = 0
         '
         'TabPage1
         '
         Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage1.Controls.Add(Me.選路徑8_bt)
+        Me.TabPage1.Controls.Add(Me.路徑8_tb)
+        Me.TabPage1.Controls.Add(Me.選路徑10_bt)
+        Me.TabPage1.Controls.Add(Me.路徑10_tb)
+        Me.TabPage1.Controls.Add(Me.選路徑9_bt)
+        Me.TabPage1.Controls.Add(Me.路徑9_tb)
         Me.TabPage1.Controls.Add(Me.選路徑7_bt)
-        Me.TabPage1.Controls.Add(Me.Label8)
-        Me.TabPage1.Controls.Add(Me.路徑7_tb)
         Me.TabPage1.Controls.Add(Me.選路徑6_bt)
-        Me.TabPage1.Controls.Add(Me.Label7)
         Me.TabPage1.Controls.Add(Me.路徑6_tb)
         Me.TabPage1.Controls.Add(Me.月份_cb)
         Me.TabPage1.Controls.Add(Me.年份_cb)
         Me.TabPage1.Controls.Add(Me.選路徑3_bt)
         Me.TabPage1.Controls.Add(Me.選路徑2_bt)
         Me.TabPage1.Controls.Add(Me.選路徑1_bt)
-        Me.TabPage1.Controls.Add(Me.Label5)
         Me.TabPage1.Controls.Add(Me.路徑5_tb)
-        Me.TabPage1.Controls.Add(Me.Label4)
         Me.TabPage1.Controls.Add(Me.路徑4_tb)
-        Me.TabPage1.Controls.Add(Me.Label3)
         Me.TabPage1.Controls.Add(Me.路徑3_tb)
-        Me.TabPage1.Controls.Add(Me.Label2)
         Me.TabPage1.Controls.Add(Me.路徑2_tb)
-        Me.TabPage1.Controls.Add(Me.Label1)
         Me.TabPage1.Controls.Add(Me.路徑1_tb)
+        Me.TabPage1.Controls.Add(Me.Label11)
+        Me.TabPage1.Controls.Add(Me.Label9)
+        Me.TabPage1.Controls.Add(Me.Label8)
+        Me.TabPage1.Controls.Add(Me.Label5)
+        Me.TabPage1.Controls.Add(Me.Label4)
+        Me.TabPage1.Controls.Add(Me.Label3)
+        Me.TabPage1.Controls.Add(Me.Label2)
+        Me.TabPage1.Controls.Add(Me.Label12)
+        Me.TabPage1.Controls.Add(Me.Label1)
+        Me.TabPage1.Controls.Add(Me.Label7)
+        Me.TabPage1.Controls.Add(Me.路徑7_tb)
         Me.TabPage1.Location = New System.Drawing.Point(4, 28)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(812, 184)
+        Me.TabPage1.Size = New System.Drawing.Size(812, 262)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "仁寶系統-對接資料"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        '選路徑7_bt
+        '
+        Me.選路徑7_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
+        Me.選路徑7_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.選路徑7_bt.Location = New System.Drawing.Point(587, 154)
+        Me.選路徑7_bt.Name = "選路徑7_bt"
+        Me.選路徑7_bt.Size = New System.Drawing.Size(55, 25)
+        Me.選路徑7_bt.TabIndex = 24
+        Me.選路徑7_bt.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.ForeColor = System.Drawing.Color.Red
+        Me.Label8.Location = New System.Drawing.Point(5, 160)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(113, 16)
+        Me.Label8.TabIndex = 23
+        Me.Label8.Text = "長照  A碼清冊(長照)"
+        '
+        '路徑7_tb
+        '
+        Me.路徑7_tb.Location = New System.Drawing.Point(120, 156)
+        Me.路徑7_tb.Name = "路徑7_tb"
+        Me.路徑7_tb.Size = New System.Drawing.Size(461, 23)
+        Me.路徑7_tb.TabIndex = 22
+        '
         '選路徑6_bt
         '
         Me.選路徑6_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
         'Label7
         '
         Me.Label7.AutoSize = True
+        Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label7.Location = New System.Drawing.Point(5, 135)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(83, 16)
+        Me.Label7.Size = New System.Drawing.Size(110, 16)
         Me.Label7.TabIndex = 20
-        Me.Label7.Text = "A碼清冊(仁寶)"
+        Me.Label7.Text = "A   碼   清   冊(仁寶)"
         '
         '路徑6_tb
         '
-        Me.路徑6_tb.Location = New System.Drawing.Point(86, 131)
+        Me.路徑6_tb.Location = New System.Drawing.Point(120, 131)
         Me.路徑6_tb.Name = "路徑6_tb"
-        Me.路徑6_tb.Size = New System.Drawing.Size(500, 23)
+        Me.路徑6_tb.Size = New System.Drawing.Size(461, 23)
         Me.路徑6_tb.TabIndex = 19
         '
         '月份_cb
         'Label5
         '
         Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label5.Location = New System.Drawing.Point(5, 110)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(79, 16)
+        Me.Label5.Size = New System.Drawing.Size(111, 16)
         Me.Label5.TabIndex = 9
-        Me.Label5.Text = "個   案   總  表"
+        Me.Label5.Text = "個  案   總   表(仁寶)"
         '
         '路徑5_tb
         '
-        Me.路徑5_tb.Location = New System.Drawing.Point(86, 106)
+        Me.路徑5_tb.Location = New System.Drawing.Point(120, 106)
         Me.路徑5_tb.Name = "路徑5_tb"
-        Me.路徑5_tb.Size = New System.Drawing.Size(500, 23)
+        Me.路徑5_tb.Size = New System.Drawing.Size(461, 23)
         Me.路徑5_tb.TabIndex = 8
         '
         'Label4
         '
         Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label4.Location = New System.Drawing.Point(5, 85)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(79, 16)
+        Me.Label4.Size = New System.Drawing.Size(111, 16)
         Me.Label4.TabIndex = 7
-        Me.Label4.Text = "每   日   明  細"
+        Me.Label4.Text = "每  日   明   細(仁寶)"
         '
         '路徑4_tb
         '
-        Me.路徑4_tb.Location = New System.Drawing.Point(86, 81)
+        Me.路徑4_tb.Location = New System.Drawing.Point(120, 81)
         Me.路徑4_tb.Name = "路徑4_tb"
-        Me.路徑4_tb.Size = New System.Drawing.Size(500, 23)
+        Me.路徑4_tb.Size = New System.Drawing.Size(461, 23)
         Me.路徑4_tb.TabIndex = 6
         '
         'Label3
         '
         Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label3.Location = New System.Drawing.Point(5, 59)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(79, 16)
+        Me.Label3.Size = New System.Drawing.Size(111, 16)
         Me.Label3.TabIndex = 5
-        Me.Label3.Text = "薪資報表明細"
+        Me.Label3.Text = "薪資報表明細(仁寶)"
         '
         '路徑3_tb
         '
-        Me.路徑3_tb.Location = New System.Drawing.Point(86, 55)
+        Me.路徑3_tb.Location = New System.Drawing.Point(120, 55)
         Me.路徑3_tb.Name = "路徑3_tb"
-        Me.路徑3_tb.Size = New System.Drawing.Size(500, 23)
+        Me.路徑3_tb.Size = New System.Drawing.Size(461, 23)
         Me.路徑3_tb.TabIndex = 4
         '
         'Label2
         '
         Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label2.Location = New System.Drawing.Point(5, 33)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(79, 16)
+        Me.Label2.Size = New System.Drawing.Size(111, 16)
         Me.Label2.TabIndex = 3
-        Me.Label2.Text = "拆 帳 明 細 表"
+        Me.Label2.Text = "拆 帳 明 細 表(仁寶)"
         '
         '路徑2_tb
         '
-        Me.路徑2_tb.Location = New System.Drawing.Point(86, 29)
+        Me.路徑2_tb.Location = New System.Drawing.Point(120, 29)
         Me.路徑2_tb.Name = "路徑2_tb"
-        Me.路徑2_tb.Size = New System.Drawing.Size(500, 23)
+        Me.路徑2_tb.Size = New System.Drawing.Size(461, 23)
         Me.路徑2_tb.TabIndex = 2
         '
         'Label1
         '
         Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label1.Location = New System.Drawing.Point(5, 7)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(79, 16)
+        Me.Label1.Size = New System.Drawing.Size(111, 16)
         Me.Label1.TabIndex = 1
-        Me.Label1.Text = "服務紀錄總表"
+        Me.Label1.Text = "服務紀錄總表(仁寶)"
         '
         '路徑1_tb
         '
-        Me.路徑1_tb.Location = New System.Drawing.Point(86, 3)
+        Me.路徑1_tb.Location = New System.Drawing.Point(120, 3)
         Me.路徑1_tb.Name = "路徑1_tb"
-        Me.路徑1_tb.Size = New System.Drawing.Size(500, 23)
+        Me.路徑1_tb.Size = New System.Drawing.Size(461, 23)
         Me.路徑1_tb.TabIndex = 0
         '
         'TabPage2
         Me.TabPage2.Location = New System.Drawing.Point(4, 28)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(812, 160)
+        Me.TabPage2.Size = New System.Drawing.Size(812, 184)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "其他"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
-        '選路徑7_bt
-        '
-        Me.選路徑7_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
-        Me.選路徑7_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.選路徑7_bt.Location = New System.Drawing.Point(587, 154)
-        Me.選路徑7_bt.Name = "選路徑7_bt"
-        Me.選路徑7_bt.Size = New System.Drawing.Size(55, 25)
-        Me.選路徑7_bt.TabIndex = 24
-        Me.選路徑7_bt.UseVisualStyleBackColor = True
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(5, 160)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(83, 16)
-        Me.Label8.TabIndex = 23
-        Me.Label8.Text = "A碼清冊(長照)"
-        '
-        '路徑7_tb
-        '
-        Me.路徑7_tb.Location = New System.Drawing.Point(86, 156)
-        Me.路徑7_tb.Name = "路徑7_tb"
-        Me.路徑7_tb.Size = New System.Drawing.Size(500, 23)
-        Me.路徑7_tb.TabIndex = 22
+        '選路徑9_bt
+        '
+        Me.選路徑9_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
+        Me.選路徑9_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.選路徑9_bt.Location = New System.Drawing.Point(587, 205)
+        Me.選路徑9_bt.Name = "選路徑9_bt"
+        Me.選路徑9_bt.Size = New System.Drawing.Size(55, 25)
+        Me.選路徑9_bt.TabIndex = 30
+        Me.選路徑9_bt.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Red
+        Me.Label9.Location = New System.Drawing.Point(5, 210)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(113, 16)
+        Me.Label9.TabIndex = 29
+        Me.Label9.Text = "短照  A碼清冊(長照)"
+        '
+        '路徑9_tb
+        '
+        Me.路徑9_tb.Location = New System.Drawing.Point(120, 206)
+        Me.路徑9_tb.Name = "路徑9_tb"
+        Me.路徑9_tb.Size = New System.Drawing.Size(461, 23)
+        Me.路徑9_tb.TabIndex = 28
+        '
+        '選路徑10_bt
+        '
+        Me.選路徑10_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
+        Me.選路徑10_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.選路徑10_bt.Location = New System.Drawing.Point(587, 230)
+        Me.選路徑10_bt.Name = "選路徑10_bt"
+        Me.選路徑10_bt.Size = New System.Drawing.Size(55, 25)
+        Me.選路徑10_bt.TabIndex = 33
+        Me.選路徑10_bt.UseVisualStyleBackColor = True
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.ForeColor = System.Drawing.Color.Red
+        Me.Label11.Location = New System.Drawing.Point(5, 235)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(114, 16)
+        Me.Label11.TabIndex = 32
+        Me.Label11.Text = "短照SC碼清冊(長照)"
+        '
+        '路徑10_tb
+        '
+        Me.路徑10_tb.Location = New System.Drawing.Point(120, 231)
+        Me.路徑10_tb.Name = "路徑10_tb"
+        Me.路徑10_tb.Size = New System.Drawing.Size(461, 23)
+        Me.路徑10_tb.TabIndex = 31
+        '
+        '選路徑8_bt
+        '
+        Me.選路徑8_bt.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.PortableComputer
+        Me.選路徑8_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.選路徑8_bt.Location = New System.Drawing.Point(587, 180)
+        Me.選路徑8_bt.Name = "選路徑8_bt"
+        Me.選路徑8_bt.Size = New System.Drawing.Size(55, 25)
+        Me.選路徑8_bt.TabIndex = 36
+        Me.選路徑8_bt.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.Red
+        Me.Label12.Location = New System.Drawing.Point(5, 185)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(114, 16)
+        Me.Label12.TabIndex = 35
+        Me.Label12.Text = "長照BA碼清冊(長照)"
+        '
+        '路徑8_tb
+        '
+        Me.路徑8_tb.Location = New System.Drawing.Point(120, 181)
+        Me.路徑8_tb.Name = "路徑8_tb"
+        Me.路徑8_tb.Size = New System.Drawing.Size(461, 23)
+        Me.路徑8_tb.TabIndex = 34
         '
         '拆帳制考勤文件導入
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(820, 216)
+        Me.ClientSize = New System.Drawing.Size(820, 294)
         Me.Controls.Add(Me.TabControl1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(4)
     Friend WithEvents 選路徑7_bt As Button
     Friend WithEvents Label8 As Label
     Friend WithEvents 路徑7_tb As TextBox
+    Friend WithEvents 選路徑9_bt As Button
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 路徑9_tb As TextBox
+    Friend WithEvents 選路徑8_bt As Button
+    Friend WithEvents 路徑8_tb As TextBox
+    Friend WithEvents 選路徑10_bt As Button
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 路徑10_tb As TextBox
+    Friend WithEvents Label12 As Label
 End Class

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

             xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
             文件判斷 = xlSheet.Cells(3, 1).value : 文件判斷 &= xlSheet.Cells(3, 2).value : 文件判斷 &= xlSheet.Cells(3, 3).value : 文件判斷 &= xlSheet.Cells(3, 4).value
             文件判斷 &= xlSheet.Cells(3, 5).value : 文件判斷 &= xlSheet.Cells(3, 6).value : 文件判斷 &= xlSheet.Cells(3, 7).value : 文件判斷 &= xlSheet.Cells(3, 8).value
-            If 文件判斷 = "序員工編號分類姓名主責督導B碼時薪G碼/S碼時薪轉場費計算 (排班時間)" Then : Else : MsgBox("薪資報表明細 檔案不吻合!!") : 路徑3_tb.Text = "" : End If
+            If 文件判斷 = "序員工編號分類姓名主責督導B碼時薪G碼/S碼時薪轉場費計算 (排班時間)" Or 文件判斷 = "序員工編號分類姓名主責督導B碼時薪G碼/S碼時薪轉場費計算 (交通時間: Google Map)" Then
+            Else : MsgBox("薪資報表明細 檔案不吻合!!") : 路徑3_tb.Text = "" : End If
             xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
         End If
     End Sub
     End Sub
     Private Sub 選路徑6_bt_Click(sender As Object, e As EventArgs) Handles 選路徑6_bt.Click
         If 開啟檔案.ShowDialog <> Windows.Forms.DialogResult.Cancel Then : 路徑6_tb.Text = 開啟檔案.FileName
-            '----------個   案   總  表-----------------------------------------------------------------------------------------------------------------------------------------------
+            '----------長照A碼清冊-----------------------------------------------------------------------------------------------------------------------------------------------
             file_name = 路徑6_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
             xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
             文件判斷 = xlSheet.Cells(4, 1).value : 文件判斷 &= xlSheet.Cells(4, 2).value : 文件判斷 &= xlSheet.Cells(4, 3).value : 文件判斷 &= xlSheet.Cells(4, 4).value
             文件判斷 &= xlSheet.Cells(4, 5).value : 文件判斷 &= xlSheet.Cells(4, 6).value : 文件判斷 &= xlSheet.Cells(4, 7).value : 文件判斷 &= xlSheet.Cells(4, 8).value
-            If 文件判斷 = "序號服務代碼採用計畫CMS等級服務項目類別身分證號個案姓名給付價格" Then : Else : MsgBox("個案總表 檔案不吻合!!") : 路徑6_tb.Text = "" : End If
+            If 文件判斷 = "序號服務代碼採用計畫CMS等級服務項目類別身分證號個案姓名給付價格" Then
+                For i As Integer = 5 To 99999
+                    If IsNothing(xlSheet.Cells(i, 17).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 17).value.ToString.Contains("、") Then
+                        MsgBox("長照A碼清冊 內部檢測到有服務人員資料沒有拆開，請新確認檔案內容!!") : 路徑6_tb.Text = "" : Exit For
+                    End If
+                Next
+            Else : MsgBox("長照A碼清冊 檔案不吻合!!") : 路徑6_tb.Text = "" : End If
             xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
         End If
     End Sub
     Private Sub 選路徑7_bt_Click(sender As Object, e As EventArgs) Handles 選路徑7_bt.Click
         If 開啟檔案.ShowDialog <> Windows.Forms.DialogResult.Cancel Then : 路徑7_tb.Text = 開啟檔案.FileName
-            '----------個   案   總  表-----------------------------------------------------------------------------------------------------------------------------------------------
+            '----------長照A碼清冊-----------------------------------------------------------------------------------------------------------------------------------------------
             file_name = 路徑7_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
             xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
             文件判斷 = xlSheet.Cells(4, 1).value : 文件判斷 &= xlSheet.Cells(4, 2).value : 文件判斷 &= xlSheet.Cells(4, 3).value : 文件判斷 &= xlSheet.Cells(4, 4).value
             文件判斷 &= xlSheet.Cells(4, 5).value : 文件判斷 &= xlSheet.Cells(4, 6).value : 文件判斷 &= xlSheet.Cells(4, 7).value : 文件判斷 &= xlSheet.Cells(4, 8).value
-            If 文件判斷 = "序號服務代碼採用計畫CMS等級服務項目類別身分證號個案姓名給付價格" Then : Else : MsgBox("個案總表 檔案不吻合!!") : 路徑7_tb.Text = "" : End If
+            If 文件判斷 = "序號服務代碼採用計畫CMS等級服務項目類別身分證號個案姓名給付價格" Then
+                For i As Integer = 5 To 99999
+                    If IsNothing(xlSheet.Cells(i, 17).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 17).value.ToString.Contains("、") Then
+                        MsgBox("長照A碼清冊 內部檢測到有服務人員資料沒有拆開，請新確認檔案內容!!") : 路徑7_tb.Text = "" : Exit For
+                    End If
+                Next
+            Else : MsgBox("長照A碼清冊 檔案不吻合!!") : 路徑7_tb.Text = "" : End If
+            xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+        End If
+    End Sub
+    Private Sub 選路徑8_bt_Click(sender As Object, e As EventArgs) Handles 選路徑8_bt.Click
+        If 開啟檔案.ShowDialog <> Windows.Forms.DialogResult.Cancel Then : 路徑8_tb.Text = 開啟檔案.FileName
+            '----------長照BA碼清冊(長照)-----------------------------------------------------------------------------------------------------------------------------------------------
+            file_name = 路徑8_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
+            xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+            文件判斷 = xlSheet.Cells(5, 1).value : 文件判斷 &= xlSheet.Cells(5, 2).value : 文件判斷 &= xlSheet.Cells(5, 3).value : 文件判斷 &= xlSheet.Cells(5, 4).value
+            文件判斷 &= xlSheet.Cells(5, 6).value : 文件判斷 &= xlSheet.Cells(5, 8).value : 文件判斷 &= xlSheet.Cells(5, 11).value : 文件判斷 &= xlSheet.Cells(5, 12).value
+            文件判斷 &= xlSheet.Cells(5, 15).value
+            If 文件判斷 = "序號身分證號個案姓名採用計畫福利身分別服務日期次數申報費用補助比率" Then
+                For i As Integer = 6 To 99999
+                    If IsNothing(xlSheet.Cells(i, 23).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 23).value.ToString.Contains("、") Then
+                        MsgBox("長照BA碼清冊 內部檢測到有服務人員資料沒有拆開，請新確認檔案內容!!") : 路徑8_tb.Text = "" : Exit For
+                    End If
+                Next
+            Else : MsgBox("長照BA碼清冊 檔案不吻合!!") : 路徑8_tb.Text = "" : End If
+            xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+        End If
+    End Sub
+    Private Sub 選路徑9_bt_Click(sender As Object, e As EventArgs) Handles 選路徑9_bt.Click
+        If 開啟檔案.ShowDialog <> Windows.Forms.DialogResult.Cancel Then : 路徑9_tb.Text = 開啟檔案.FileName
+            '----------短   照   A   碼   清   冊(長照)-----------------------------------------------------------------------------------------------------------------------------------------------
+            file_name = 路徑9_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
+            xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+            文件判斷 = xlSheet.Cells(4, 1).value : 文件判斷 &= xlSheet.Cells(4, 2).value : 文件判斷 &= xlSheet.Cells(4, 3).value : 文件判斷 &= xlSheet.Cells(4, 4).value
+            文件判斷 &= xlSheet.Cells(4, 5).value : 文件判斷 &= xlSheet.Cells(4, 6).value : 文件判斷 &= xlSheet.Cells(4, 7).value : 文件判斷 &= xlSheet.Cells(4, 8).value
+            If 文件判斷 = "序號服務代碼採用計畫CMS等級服務項目類別身分證號個案姓名給付價格" Then
+                For i As Integer = 5 To 99999
+                    If IsNothing(xlSheet.Cells(i, 17).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 17).value.ToString.Contains("、") Then
+                        MsgBox("短照A碼清冊 內部檢測到有服務人員資料沒有拆開，請新確認檔案內容!!") : 路徑9_tb.Text = "" : Exit For
+                    End If
+                Next
+            Else : MsgBox("短照A碼清冊 檔案不吻合!!") : 路徑9_tb.Text = "" : End If
+            xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+        End If
+    End Sub
+    Private Sub 選路徑10_bt_Click(sender As Object, e As EventArgs) Handles 選路徑10_bt.Click
+        If 開啟檔案.ShowDialog <> Windows.Forms.DialogResult.Cancel Then : 路徑10_tb.Text = 開啟檔案.FileName
+            '----------短   照  SC  碼   清   冊(長照)-----------------------------------------------------------------------------------------------------------------------------------------------
+            file_name = 路徑10_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
+            xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+            文件判斷 = xlSheet.Cells(5, 1).value : 文件判斷 &= xlSheet.Cells(5, 2).value : 文件判斷 &= xlSheet.Cells(5, 3).value : 文件判斷 &= xlSheet.Cells(5, 4).value
+            文件判斷 &= xlSheet.Cells(5, 6).value : 文件判斷 &= xlSheet.Cells(5, 8).value : 文件判斷 &= xlSheet.Cells(5, 11).value : 文件判斷 &= xlSheet.Cells(5, 12).value
+            文件判斷 &= xlSheet.Cells(5, 15).value
+            If 文件判斷 = "序號身分證號個案姓名採用計畫福利身分別服務日期次數申報費用補助比率" Then
+                For i As Integer = 6 To 99999
+                    If IsNothing(xlSheet.Cells(i, 23).value) = True Then : Exit For : ElseIf xlSheet.Cells(i, 23).value.ToString.Contains("、") Then
+                        MsgBox("短照SC碼清冊 內部檢測到有服務人員資料沒有拆開，請新確認檔案內容!!") : 路徑10_tb.Text = "" : Exit For
+                    End If
+                Next
+            Else : MsgBox("短照SC碼清冊 檔案不吻合!!") : 路徑10_tb.Text = "" : End If
             xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
         End If
     End Sub
                               N'" & xlSheet.Cells(I + 5, 12).value & "',N'" & xlSheet.Cells(I + 5, 13).value & "',N'" & xlSheet.Cells(I + 5, 14).value & "',
                               N'" & xlSheet.Cells(I + 5, 15).value & "',N'" & xlSheet.Cells(I + 5, 16).value & "',N'" & xlSheet.Cells(I + 5, 17).value & "',
                               N'" & xlSheet.Cells(I + 5, 18).value & "'),"
-                    If (I <> 0 And I Mod 100 = 0) Or IsNothing(xlSheet.Cells(I + 5, 1).value) = True Then : MyModule1.進度條()
+                    If (I <> 0 And I Mod 100 = 0) Or (IsNothing(xlSheet.Cells(I + 5, 1).value) = True And IsNothing(xlSheet.Cells(I + 5, 2).value) = True) Then : MyModule1.進度條()
                         If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
                         ConnOpen()
                         SQL1 = "INSERT INTO 人事拆帳制A碼項目清冊 (流水號, 序號, 服務代碼, 採用計畫, CMS等級, 服務項目類別, 身分證號, 個案姓名, 給付價格, 數量, 小計, 
                                                                    服務日期, 服務單位, 服務當下居住縣市, 目前居住縣市, 目前居住行政區, 照管專員, 服務人員, 備註) 
                                  VALUES " & SQL2
                         CmdSet_For_dr() : SQL2 = ""
-                        If IsNothing(xlSheet.Cells(I + 5, 1).value) = True Then : Exit For : End If
+                        If IsNothing(xlSheet.Cells(I + 5, 1).value) = True And IsNothing(xlSheet.Cells(I + 5, 2).value) = True Then : Exit For : End If
                     End If
                 Next : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
             End If
             If 路徑7_tb.Text <> "" Then
                 file_name = 路徑7_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
                 xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
-                ConnOpen() : SQL1 = "DELETE 人事拆帳制A碼項目長照所 WHERE 流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "%'" : CmdSet_For_dr()
+                ConnOpen() : SQL1 = "DELETE 人事拆帳制A碼項目長照所 WHERE 流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "%' AND AAORSC IS NULL" : CmdSet_For_dr()
                 SQL2 = ""
                 For I As Integer = 0 To 10000 : MyModule1.進度條()
                     SQL2 &= "(N'" & 年份_cb.Text & 月份_cb.Text & "',N'" & xlSheet.Cells(I + 5, 1).value & "',N'" & xlSheet.Cells(I + 5, 2).value & "',
                               N'" & xlSheet.Cells(I + 5, 12).value & "',N'" & xlSheet.Cells(I + 5, 13).value & "',N'" & xlSheet.Cells(I + 5, 14).value & "',
                               N'" & xlSheet.Cells(I + 5, 15).value & "',N'" & xlSheet.Cells(I + 5, 16).value & "',N'" & xlSheet.Cells(I + 5, 17).value & "',
                               N'" & xlSheet.Cells(I + 5, 18).value & "'),"
-                    If (I <> 0 And I Mod 100 = 0) Or IsNothing(xlSheet.Cells(I + 5, 1).value) = True Then : MyModule1.進度條()
+                    If (I <> 0 And I Mod 100 = 0) Or (IsNothing(xlSheet.Cells(I + 5, 1).value) = True And IsNothing(xlSheet.Cells(I + 5, 2).value) = True) Then : MyModule1.進度條()
                         If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
                         ConnOpen()
                         SQL1 = "INSERT INTO 人事拆帳制A碼項目長照所 (流水號, 序號, 服務代碼, 採用計畫, CMS等級, 服務項目類別, 身分證號, 個案姓名, 給付價格, 數量, 小計, 
                                                                    服務日期, 服務單位, 服務當下居住縣市, 目前居住縣市, 目前居住行政區, 照管專員, 服務人員, 備註) 
                                  VALUES " & SQL2
                         CmdSet_For_dr() : SQL2 = ""
-                        If IsNothing(xlSheet.Cells(I + 5, 1).value) = True Then : Exit For : End If
+                        If IsNothing(xlSheet.Cells(I + 5, 1).value) = True And IsNothing(xlSheet.Cells(I + 5, 2).value) = True Then : Exit For : End If
+                    End If
+                Next : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+            End If
+            '----------BA碼長照所-----------------------------------------------------------------------------------------------------------------------------------------------
+            If 路徑8_tb.Text <> "" Then
+                file_name = 路徑8_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
+                xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+                ConnOpen() : SQL1 = "DELETE 人事拆帳制BA碼項目長照所 WHERE 流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "%' AND BAORSC IS NULL" : CmdSet_For_dr()
+                SQL2 = ""
+                For I As Integer = 0 To 10000 : MyModule1.進度條()
+                    SQL2 &= "(N'" & 年份_cb.Text & 月份_cb.Text & "',N'" & xlSheet.Cells(I + 6, 1).value & "',N'" & xlSheet.Cells(I + 6, 2).value & "',
+                              N'" & xlSheet.Cells(I + 6, 3).value & "',N'" & xlSheet.Cells(I + 6, 4).value & "',N'" & xlSheet.Cells(I + 6, 5).value & "',
+                              N'" & xlSheet.Cells(I + 6, 6).value & "',N'" & xlSheet.Cells(I + 6, 7).value & "',N'" & xlSheet.Cells(I + 6, 8).value & "',
+                              N'" & xlSheet.Cells(I + 6, 9).value & "',N'" & xlSheet.Cells(I + 6, 10).value & "',N'" & xlSheet.Cells(I + 6, 11).value & "',
+                              N'" & xlSheet.Cells(I + 6, 12).value & "',N'" & xlSheet.Cells(I + 6, 13).value & "',N'" & xlSheet.Cells(I + 6, 14).value & "',
+                              N'" & xlSheet.Cells(I + 6, 15).value & "',N'" & xlSheet.Cells(I + 6, 16).value & "',N'" & xlSheet.Cells(I + 6, 17).value & "',
+                              N'" & xlSheet.Cells(I + 6, 18).value & "',N'" & xlSheet.Cells(I + 6, 19).value & "',N'" & xlSheet.Cells(I + 6, 20).value & "',
+                              N'" & xlSheet.Cells(I + 6, 21).value & "',N'" & xlSheet.Cells(I + 6, 22).value & "',N'" & xlSheet.Cells(I + 6, 23).value & "'),"
+                    If (I <> 0 And I Mod 100 = 0) Or (IsNothing(xlSheet.Cells(I + 6, 1).value) = True And IsNothing(xlSheet.Cells(I + 6, 2).value) = True) Then : MyModule1.進度條()
+                        If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
+                        ConnOpen()
+                        SQL1 = "INSERT INTO 人事拆帳制BA碼項目長照所 (流水號, 序號, 身分證號, 個案名稱, 採用計畫, CMS等級, 福利身分, 類別, 服務日期, 價格, 價格_原民, 次數, 
+                                                                      申報備用, 部分負擔率, 部分費用, 補助比率, 申請費用, 申請費用_原民, 補助金額, 服務城市, 居住城市, 行政區, 
+                                                                      照管專員, 服務人員) 
+                                 VALUES " & SQL2
+                        CmdSet_For_dr() : SQL2 = ""
+                        If IsNothing(xlSheet.Cells(I + 6, 1).value) = True And IsNothing(xlSheet.Cells(I + 6, 2).value) = True Then : Exit For : End If
+                    End If
+                Next : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+            End If
+            '----------A碼長照所-----------------------------------------------------------------------------------------------------------------------------------------------
+            If 路徑9_tb.Text <> "" Then
+                file_name = 路徑9_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
+                xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+                ConnOpen() : SQL1 = "DELETE 人事拆帳制A碼項目長照所 WHERE 流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "%' AND AAORSC LIKE N'短照'" : CmdSet_For_dr()
+                SQL2 = ""
+                For I As Integer = 0 To 10000 : MyModule1.進度條()
+                    SQL2 &= "(N'" & 年份_cb.Text & 月份_cb.Text & "',N'" & xlSheet.Cells(I + 5, 1).value & "',N'" & xlSheet.Cells(I + 5, 2).value & "',
+                              N'" & xlSheet.Cells(I + 5, 3).value & "',N'" & xlSheet.Cells(I + 5, 4).value & "',N'" & xlSheet.Cells(I + 5, 5).value & "',
+                              N'" & xlSheet.Cells(I + 5, 6).value & "',N'" & xlSheet.Cells(I + 5, 7).value & "',N'" & xlSheet.Cells(I + 5, 8).value & "',
+                              N'" & xlSheet.Cells(I + 5, 9).value & "',N'" & xlSheet.Cells(I + 5, 10).value & "',N'" & xlSheet.Cells(I + 5, 11).value & "',
+                              N'" & xlSheet.Cells(I + 5, 12).value & "',N'" & xlSheet.Cells(I + 5, 13).value & "',N'" & xlSheet.Cells(I + 5, 14).value & "',
+                              N'" & xlSheet.Cells(I + 5, 15).value & "',N'" & xlSheet.Cells(I + 5, 16).value & "',N'" & xlSheet.Cells(I + 5, 17).value & "',
+                              N'" & xlSheet.Cells(I + 5, 18).value & "',N'短照'),"
+                    If (I <> 0 And I Mod 100 = 0) Or (IsNothing(xlSheet.Cells(I + 5, 1).value) = True And IsNothing(xlSheet.Cells(I + 5, 1).value) = True) Then : MyModule1.進度條()
+                        If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
+                        ConnOpen()
+                        SQL1 = "INSERT INTO 人事拆帳制A碼項目長照所 (流水號, 序號, 服務代碼, 採用計畫, CMS等級, 服務項目類別, 身分證號, 個案姓名, 給付價格, 數量, 小計, 
+                                                                   服務日期, 服務單位, 服務當下居住縣市, 目前居住縣市, 目前居住行政區, 照管專員, 服務人員, 備註,AAORSC) 
+                                 VALUES " & SQL2
+                        CmdSet_For_dr() : SQL2 = ""
+                        If IsNothing(xlSheet.Cells(I + 5, 1).value) = True And IsNothing(xlSheet.Cells(I + 5, 2).value) = True Then : Exit For : End If
+                    End If
+                Next : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+            End If
+            '----------SC碼長照所-----------------------------------------------------------------------------------------------------------------------------------------------
+            If 路徑10_tb.Text <> "" Then
+                file_name = 路徑10_tb.Text : xlApp = CreateObject("Excel.Application") : xlApp.DisplayAlerts = False : xlApp.Visible = False : xlApp.Workbooks.Open(file_name)
+                xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+                ConnOpen() : SQL1 = "DELETE 人事拆帳制BA碼項目長照所 WHERE 流水號 LIKE N'" & 年份_cb.Text & 月份_cb.Text & "%' AND BAORSC LIKE N'SC'" : CmdSet_For_dr()
+                SQL2 = ""
+                For I As Integer = 0 To 10000 : MyModule1.進度條()
+                    SQL2 &= "(N'" & 年份_cb.Text & 月份_cb.Text & "',N'" & xlSheet.Cells(I + 6, 1).value & "',N'" & xlSheet.Cells(I + 6, 2).value & "',
+                              N'" & xlSheet.Cells(I + 6, 3).value & "',N'" & xlSheet.Cells(I + 6, 4).value & "',N'" & xlSheet.Cells(I + 6, 5).value & "',
+                              N'" & xlSheet.Cells(I + 6, 6).value & "',N'" & xlSheet.Cells(I + 6, 7).value & "',N'" & xlSheet.Cells(I + 6, 8).value & "',
+                              N'" & xlSheet.Cells(I + 6, 9).value & "',N'" & xlSheet.Cells(I + 6, 10).value & "',N'" & xlSheet.Cells(I + 6, 11).value & "',
+                              N'" & xlSheet.Cells(I + 6, 12).value & "',N'" & xlSheet.Cells(I + 6, 13).value & "',N'" & xlSheet.Cells(I + 6, 14).value & "',
+                              N'" & xlSheet.Cells(I + 6, 15).value & "',N'" & xlSheet.Cells(I + 6, 16).value & "',N'" & xlSheet.Cells(I + 6, 17).value & "',
+                              N'" & xlSheet.Cells(I + 6, 18).value & "',N'" & xlSheet.Cells(I + 6, 19).value & "',N'" & xlSheet.Cells(I + 6, 20).value & "',
+                              N'" & xlSheet.Cells(I + 6, 21).value & "',N'" & xlSheet.Cells(I + 6, 22).value & "',N'" & xlSheet.Cells(I + 6, 23).value & "',N'SC'),"
+                    If (I <> 0 And I Mod 100 = 0) Or (IsNothing(xlSheet.Cells(I + 6, 1).value) = True And IsNothing(xlSheet.Cells(I + 6, 2).value) = True) Then : MyModule1.進度條()
+                        If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
+                        ConnOpen()
+                        SQL1 = "INSERT INTO 人事拆帳制BA碼項目長照所 (流水號, 序號, 身分證號, 個案名稱, 採用計畫, CMS等級, 福利身分, 類別, 服務日期, 價格, 價格_原民, 次數, 
+                                                                      申報備用, 部分負擔率, 部分費用, 補助比率, 申請費用, 申請費用_原民, 補助金額, 服務城市, 居住城市, 行政區, 
+                                                                      照管專員, 服務人員,BAORSC) 
+                                 VALUES " & SQL2
+                        CmdSet_For_dr() : SQL2 = ""
+                        If IsNothing(xlSheet.Cells(I + 6, 1).value) = True And IsNothing(xlSheet.Cells(I + 6, 2).value) = True Then : Exit For : End If
                     End If
                 Next : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
             End If
+
             MsgBox("導入完成!!") : 最終數 = 0 : ICS_ASMS_ERP_SYS.ToolStripProgressBar1.Value = 最終數
             首次開啟 = True
             BBL1 = "" : BBL2 = "" : BBL3 = "" : BBL4 = "" : BBL5 = "" : BBL6 = "" : PA = "" : PA1 = "" : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "" : PA6 = "" : PA7 = "" : PA8 = "" : PA9 = ""

GF00-ERP-SYS/01.人事系統管理/拆帳制薪資分析表.resx

+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

GF00-ERP-SYS/01.人事系統管理/拆帳制薪資分析表.vb

+Public Class 拆帳制薪資分析表
+    Private Sub Set_服務人員()
+        Dim startYear As Integer = CInt(年份_cb.Text) : Dim startMonth As Integer = CInt(月份_cb.Text)
+        Dim endYear As Integer = CInt(年份1_cb.Text) : Dim endMonth As Integer = CInt(月份1_cb.Text)
+        Dim result As New List(Of String) : Dim 總數 As Integer = 0
+        Dim actualStartYear, actualStartMonth, actualEndYear, actualEndMonth As Integer        ' 確定實際的開始和結束日期
+        If (startYear > endYear) OrElse (startYear = endYear AndAlso startMonth > endMonth) Then
+            actualStartYear = endYear : actualStartMonth = endMonth : actualEndYear = startYear : actualEndMonth = startMonth   ' 如果開始日期晚於結束日期，就交換它們
+        Else
+            actualStartYear = startYear : actualStartMonth = startMonth : actualEndYear = endYear : actualEndMonth = endMonth
+        End If
+        Dim currentYear As Integer = actualStartYear : Dim currentMonth As Integer = actualStartMonth
+        While currentYear < actualEndYear OrElse (currentYear = actualEndYear AndAlso currentMonth <= actualEndMonth)
+            result.Add(currentYear.ToString() & currentMonth.ToString("D2"))
+            currentMonth += 1 : If currentMonth > 12 Then : currentMonth = 1 : currentYear += 1 : End If
+        End While
+        If (startYear > endYear) OrElse (startYear = endYear AndAlso startMonth > endMonth) Then : result.Reverse() : End If   ' 如果原始輸入是逆序的，反轉結果列表
+        Dim AA() As String = result.ToArray()   ' 將結果轉換為數組
+
+
+        PA2 = "" : PA1 = "" : For i As Integer = 0 To AA.Length - 1
+            PA1 &= "日期 LIKE '" & AA(i) & "%' OR " : 總數 = i
+        Next : PA1 = "(" & PA1.Substring(0, PA1.LastIndexOf(" OR ")) & ")"
+        Dim ds As New DataSet
+        Dgv.DataSource = Nothing : ds.Clear()
+        Dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        Dgv.ColumnHeadersHeight = 80 : Dgv.AllowUserToAddRows = False : Dgv.RowTemplate.Height = 25
+        Dgv1.DataSource = Nothing : ds.Clear()
+        Dgv1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        Dgv1.ColumnHeadersHeight = 80 : Dgv1.AllowUserToAddRows = False : Dgv1.RowTemplate.Height = 25
+        SQL_薪資彙總表_仁寶2()
+
+        da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : Dgv1.DataSource = ds.Tables(0) : conn.Close()
+        Dgv.Columns("姓名").FillWeight = 60 : Dgv1.Columns("姓名").FillWeight = 60
+
+        Dgv.Columns("BA正常").FillWeight = 70 : Dgv.Columns("GA正常").FillWeight = 70 : Dgv.Columns("GA加級").FillWeight = 70
+        Dgv.Columns("申請總額 仁寶AA").FillWeight = 70 : Dgv.Columns("申請總額 長照AA").FillWeight = 70 : Dgv.Columns("AA正常").FillWeight = 70
+        Dgv.Columns("服務津貼").FillWeight = 70 : Dgv.Columns("轉場津貼").FillWeight = 70 : Dgv.Columns("薪資加項D").FillWeight = 70
+        Dgv.Columns("加班費").FillWeight = 70 : Dgv.Columns("加項總計").FillWeight = 70 : Dgv.Columns("減項總計").FillWeight = 70
+        Dgv.Columns("AA扣除額").FillWeight = 60 : Dgv.Columns("轉場薪資").FillWeight = 70
+        Dgv.Columns("薪資加項D").FillWeight = 70 : Dgv.Columns("公司負擔總計").FillWeight = 70 : Dgv.Columns("薪資總額").FillWeight = 70
+
+        Dgv1.Columns("轉場薪資.").FillWeight = 70 : Dgv1.Columns("平1.34").FillWeight = 70 : Dgv1.Columns("平1.67").FillWeight = 70
+        Dgv1.Columns("休1.34").FillWeight = 70 : Dgv1.Columns("休1.67").FillWeight = 70 : Dgv1.Columns("國2.00").FillWeight = 70
+        Dgv1.Columns("總服務時數").FillWeight = 70 : Dgv1.Columns("總轉場時數").FillWeight = 70 : Dgv1.Columns("AA扣除額.").FillWeight = 60
+        Dgv1.Columns("申請總額 仁寶AA.").FillWeight = 70 : Dgv1.Columns("申請總額 長照AA.").FillWeight = 70 : Dgv1.Columns("薪資總額.").FillWeight = 70
+        Dgv1.Columns("公司負擔總計.").FillWeight = 70 : Dgv1.Columns("餘額").FillWeight = 70
+
+        Dgv.Columns("BA&GA& SC拆帳比").Visible = False : Dgv.Columns("AA 拆帳比").Visible = False : Dgv.Columns("轉場薪資.").Visible = False
+        Dgv.Columns("平1.34").Visible = False : Dgv.Columns("平1.67").Visible = False : Dgv.Columns("休1.34").Visible = False : Dgv.Columns("休1.67").Visible = False
+        Dgv.Columns("國2.00").Visible = False : Dgv1.Columns("服務轉場比").Visible = False : Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("AA扣除額.").Visible = False
+
+        For i As Integer = 0 To Dgv.Rows.Count - 1
+            Dgv.Rows(i).Cells("轉場薪資").Value = Dgv.Rows(i).Cells("轉場薪資.").Value + Dgv.Rows(i).Cells("平1.34").Value + Dgv.Rows(i).Cells("平1.67").Value +
+                                                  Dgv.Rows(i).Cells("休1.34").Value + Dgv.Rows(i).Cells("休1.67").Value + Dgv.Rows(i).Cells("國2.00").Value
+            Dgv.Rows(i).Cells("服務轉場比").Value = Dgv.Rows(i).Cells("總轉場時數").Value / Dgv.Rows(i).Cells("總服務時數").Value * 100
+            Dgv.Rows(i).Cells("餘額比").Value = Dgv.Rows(i).Cells("餘額").Value / Dgv.Rows(i).Cells("總服務時數").Value * 100
+            If Dgv.Rows(i).Cells("申請總額(長照) BA&GA&SC").Value = 0 Then
+                Dgv.Rows(i).Cells("BA&GA& SC拆帳比").Value = (Dgv.Rows(i).Cells("BA正常").Value + Dgv.Rows(i).Cells("GA正常").Value + Dgv.Rows(i).Cells("GA加級").Value) /
+                                                              Dgv.Rows(i).Cells("申請總額(仁寶) BA&GA&SC").Value * 100
+                Dgv.Rows(i).Cells("餘額比").Value = (Dgv.Rows(i).Cells("餘額").Value / Dgv.Rows(i).Cells("申請總額(仁寶) BA&GA&SC").Value) * 100
+            Else
+                Dgv.Rows(i).Cells("BA&GA& SC拆帳比").Value = (Dgv.Rows(i).Cells("BA正常").Value + Dgv.Rows(i).Cells("GA正常").Value + Dgv.Rows(i).Cells("GA加級").Value) /
+                                                              Dgv.Rows(i).Cells("申請總額(長照) BA&GA&SC").Value * 100
+                Dgv.Rows(i).Cells("餘額比").Value = (Dgv.Rows(i).Cells("餘額").Value / Dgv.Rows(i).Cells("申請總額(長照) BA&GA&SC").Value) * 100
+            End If
+            If Dgv.Rows(i).Cells("申請總額 仁寶AA").Value = 0 Then
+                Dgv.Rows(i).Cells("AA 拆帳比").Value = Dgv.Rows(i).Cells("AA正常").Value / Dgv.Rows(i).Cells("申請總額 仁寶AA").Value * 100
+            Else
+                Dgv.Rows(i).Cells("AA 拆帳比").Value = Dgv.Rows(i).Cells("AA正常").Value / Dgv.Rows(i).Cells("申請總額 仁寶AA").Value * 100
+            End If
+            If Dgv.Rows(i).Cells("AA正常").Value = 0 Then : Dgv.Rows(i).Cells("AA扣除額").Value = 0 : End If
+        Next
+        Set_進度條顯示01() : Set_進度條顯示02() : Set_進度條顯示04() : Set_進度條顯示03()
+        For i As Integer = 0 To Dgv.Columns.Count - 1
+            Dgv.Columns(i).ReadOnly = False
+            Dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Next
+        For i As Integer = 0 To Dgv1.Columns.Count - 1
+            Dgv1.Columns(i).ReadOnly = False
+            Dgv1.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Next
+        For i As Integer = 14 To 18 : Dgv.Columns(i).DefaultCellStyle.BackColor = Color.MistyRose : Next
+
+        For i As Integer = 1 To Dgv.Columns.Count - 1 : Dgv.Columns(i).DefaultCellStyle.Format = "#,##0.0" : Next
+        For i As Integer = 29 To Dgv.Columns.Count - 1 : Dgv.Columns(i).Visible = False : Next
+
+        For i As Integer = 1 To Dgv1.Columns.Count - 1 : Dgv1.Columns(i).DefaultCellStyle.Format = "#,##0.0" : Next
+        For i As Integer = 19 To 24 : Dgv1.Columns(i).DefaultCellStyle.BackColor = Color.MistyRose : Next
+        For i As Integer = 1 To 18 : Dgv1.Columns(i).Visible = False : Next
+        For i As Integer = 19 To 24 : Dgv1.Columns(i).Visible = True : Next
+        For i As Integer = 25 To 26 : Dgv1.Columns(i).Visible = False : Next
+        For i As Integer = 41 To Dgv1.Columns.Count - 1 : Dgv1.Columns(i).Visible = False : Next
+
+        申請BG_仁_tb.Text = "0.0" : 申請BG_長_tb.Text = "0.0" : 申請AA_仁_tb.Text = "0.0" : 申請AA_長_tb.Text = "0.0" : BA正常_tb.Text = "0.0" : GA正常_tb.Text = "0.0" : GA加級_tb.Text = "0.0"
+        AA正常_tb.Text = "0.0" : 薪資D_tb.Text = "0.0" : 服務津貼_tb.Text = "0.0" : 轉場津貼_tb.Text = "0.0" : 轉場薪資_tb.Text = "0.0" : 加班費_tb.Text = "0.0" : 加項總計_tb.Text = "0.0"
+        支出項目_tb.Text = "0.0" : 減項總計_tb.Text = "0.0" : 申請BG_tb.Text = "0.0" : 申請AA_tb.Text = "0.0" : 薪資總額_tb.Text = "0.0" : 公司負擔_tb.Text = "0.0" : 餘額_tb.Text = "0.0"
+        服務時數_tb.Text = "0.0" : 轉場時數_tb.Text = "0.0"
+        For i As Integer = 0 To Dgv.Rows.Count - 1
+            申請BG_仁_tb.Text += Dgv.Rows(i).Cells("申請總額(仁寶) BA&GA&SC").Value : 申請BG_長_tb.Text += Dgv.Rows(i).Cells("申請總額(長照) BA&GA&SC").Value
+            申請AA_仁_tb.Text += Dgv.Rows(i).Cells("申請總額 仁寶AA").Value : 申請AA_長_tb.Text += Dgv.Rows(i).Cells("申請總額 長照AA").Value
+            BA正常_tb.Text += Dgv.Rows(i).Cells("BA正常").Value : GA正常_tb.Text += Dgv.Rows(i).Cells("GA正常").Value : GA加級_tb.Text += Dgv.Rows(i).Cells("GA加級").Value
+            AA正常_tb.Text += Dgv.Rows(i).Cells("AA正常").Value : 薪資D_tb.Text += Dgv.Rows(i).Cells("薪資加項D").Value : 服務津貼_tb.Text += Dgv.Rows(i).Cells("服務津貼").Value
+            轉場津貼_tb.Text += Dgv.Rows(i).Cells("轉場津貼").Value : 轉場薪資_tb.Text += Dgv.Rows(i).Cells("轉場薪資").Value : 加班費_tb.Text += Dgv.Rows(i).Cells("加班費").Value
+            加項總計_tb.Text += Dgv.Rows(i).Cells("加項總計").Value : 減項總計_tb.Text += Dgv.Rows(i).Cells("減項總計").Value : 薪資總額_tb.Text += Dgv.Rows(i).Cells("薪資總額").Value
+            公司負擔_tb.Text += Dgv.Rows(i).Cells("公司負擔總計").Value : 餘額_tb.Text += Dgv.Rows(i).Cells("餘額").Value : 服務時數_tb.Text += Dgv.Rows(i).Cells("總服務時數").Value
+            轉場時數_tb.Text += Dgv.Rows(i).Cells("總轉場時數").Value
+        Next
+
+        If CDbl(申請BG_長_tb.Text) = 0 Then : 申請BG_差額_tb.Text = "0.0"
+            申請BG_長_比.Text = "0.00%" : 申請BG_仁_比.Text = "100.00%" : 申請BG_差額_比.Text = "0.00%" : 申請BG_tb.Text = CDbl(申請BG_仁_tb.Text)
+            餘額_比.Text = Strings.Format(CDbl(餘額_tb.Text) / (CDbl(申請BG_仁_tb.Text) + CDbl(申請AA_仁_tb.Text)) * 100, "#,##0.00") & "%"
+        Else
+            申請BG_差額_tb.Text = CDbl(申請BG_仁_tb.Text) - CDbl(申請BG_長_tb.Text)
+            申請BG_長_比.Text = "100.00%" : 申請BG_仁_比.Text = Strings.Format(CDbl(申請BG_仁_tb.Text) / CDbl(申請BG_長_tb.Text) * 100, "#,##0.00") & "%"
+            申請BG_差額_比.Text = Strings.Format(CDbl(申請BG_差額_tb.Text) / CDbl(申請BG_長_tb.Text) * 100, "#,##0.00") & "%" : 申請BG_tb.Text = CDbl(申請BG_長_tb.Text)
+            餘額_比.Text = Strings.Format(CDbl(餘額_tb.Text) / (CDbl(申請BG_長_tb.Text) + CDbl(申請AA_長_tb.Text)) * 100, "#,##0.00") & "%"
+        End If
+        If CDbl(申請AA_長_tb.Text) = 0 Then : 申請AA_差額_tb.Text = "0.0"
+            申請AA_長_比.Text = "0.00%" : 申請AA_仁_比.Text = "100.00%" : 申請AA_差額_比.Text = "0.00%" : 申請AA_tb.Text = CDbl(申請AA_仁_tb.Text)
+        Else
+            申請AA_差額_tb.Text = CDbl(申請AA_仁_tb.Text) - CDbl(申請AA_長_tb.Text)
+            申請AA_長_比.Text = "100.00%" : 申請AA_仁_比.Text = Strings.Format(CDbl(申請AA_仁_tb.Text) / CDbl(申請AA_長_tb.Text) * 100, "#,##0.00") & "%"
+            申請AA_差額_比.Text = Strings.Format(CDbl(申請AA_差額_tb.Text) / CDbl(申請AA_長_tb.Text) * 100, "#,##0.00") & "%" : 申請AA_tb.Text = CDbl(申請AA_長_tb.Text)
+        End If
+        轉場比_tb.Text = Strings.Format(CDbl(轉場時數_tb.Text) / CDbl(服務時數_tb.Text) * 100, "#,##0.00") & "%"
+        支出項目_tb.Text = CDbl(BA正常_tb.Text) + CDbl(GA正常_tb.Text) + CDbl(GA加級_tb.Text) + CDbl(AA正常_tb.Text) + CDbl(薪資D_tb.Text) +
+                           CDbl(服務津貼_tb.Text) + CDbl(轉場津貼_tb.Text) + CDbl(轉場薪資_tb.Text) + CDbl(加班費_tb.Text) + CDbl(加項總計_tb.Text)
+        修正金額_tb.Text = CDbl(薪資總額_tb.Text) - (CDbl(支出項目_tb.Text) - CDbl(減項總計_tb.Text))
+        BA正常_比.Text = Strings.Format(CDbl(BA正常_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        GA正常_比.Text = Strings.Format(CDbl(GA正常_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        GA加級_比.Text = Strings.Format(CDbl(GA加級_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        AA正常_比.Text = Strings.Format(CDbl(AA正常_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        薪資D_比.Text = Strings.Format(CDbl(薪資D_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        服務津貼_比.Text = Strings.Format(CDbl(服務津貼_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        轉場津貼_比.Text = Strings.Format(CDbl(轉場津貼_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        轉場薪資_比.Text = Strings.Format(CDbl(轉場薪資_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        加班費_比.Text = Strings.Format(CDbl(加班費_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        加項總計_比.Text = Strings.Format(CDbl(加項總計_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        申請BG_比.Text = Strings.Format(CDbl(申請BG_tb.Text) / (CDbl(申請BG_tb.Text) + CDbl(申請AA_tb.Text)) * 100, "#,##0.00") & "%"
+        申請AA_比.Text = Strings.Format(CDbl(申請AA_tb.Text) / (CDbl(申請BG_tb.Text) + CDbl(申請AA_tb.Text)) * 100, "#,##0.00") & "%"
+        薪資總額_比.Text = Strings.Format(CDbl(薪資總額_tb.Text) / (CDbl(薪資總額_tb.Text) + CDbl(公司負擔_tb.Text)) * 100, "#,##0.00") & "%"
+        公司負擔_比.Text = Strings.Format(CDbl(公司負擔_tb.Text) / (CDbl(薪資總額_tb.Text) + CDbl(公司負擔_tb.Text)) * 100, "#,##0.00") & "%"
+        修正金額_比.Text = Strings.Format(CDbl(修正金額_tb.Text) / CDbl(支出項目_tb.Text) * 100, "#,##0.00") & "%"
+        減項總計_比.Text = Strings.Format(CDbl(減項總計_tb.Text) / CDbl(支出項目_tb.Text) * -100, "#,##0.00") & "%"
+
+        申請BG_仁_tb.Text = Strings.Format(CDbl(申請BG_仁_tb.Text), "#,##0.0") : 申請BG_長_tb.Text = Strings.Format(CDbl(申請BG_長_tb.Text), "#,##0.0")
+        申請AA_仁_tb.Text = Strings.Format(CDbl(申請AA_仁_tb.Text), "#,##0.0") : 申請AA_長_tb.Text = Strings.Format(CDbl(申請AA_長_tb.Text), "#,##0.0")
+        BA正常_tb.Text = Strings.Format(CDbl(BA正常_tb.Text), "#,##0.0") : GA正常_tb.Text = Strings.Format(CDbl(GA正常_tb.Text), "#,##0.0")
+        GA加級_tb.Text = Strings.Format(CDbl(GA加級_tb.Text), "#,##0.0") : AA正常_tb.Text = Strings.Format(CDbl(AA正常_tb.Text), "#,##0.0")
+        薪資D_tb.Text = Strings.Format(CDbl(薪資D_tb.Text), "#,##0.0") : 服務津貼_tb.Text = Strings.Format(CDbl(服務津貼_tb.Text), "#,##0.0")
+        轉場津貼_tb.Text = Strings.Format(CDbl(轉場津貼_tb.Text), "#,##0.0") : 轉場薪資_tb.Text = Strings.Format(CDbl(轉場薪資_tb.Text), "#,##0.0")
+        加班費_tb.Text = Strings.Format(CDbl(加班費_tb.Text), "#,##0.0") : 加項總計_tb.Text = Strings.Format(CDbl(加項總計_tb.Text), "#,##0.0")
+        支出項目_tb.Text = Strings.Format(CDbl(支出項目_tb.Text), "#,##0.0") : 減項總計_tb.Text = Strings.Format(CDbl(減項總計_tb.Text) * -1, "#,##0.0")
+        申請BG_tb.Text = Strings.Format(CDbl(申請BG_tb.Text), "#,##0.0") : 申請AA_tb.Text = Strings.Format(CDbl(申請AA_tb.Text), "#,##0.0")
+        薪資總額_tb.Text = Strings.Format(CDbl(薪資總額_tb.Text), "#,##0.0") : 公司負擔_tb.Text = Strings.Format(CDbl(公司負擔_tb.Text), "#,##0.0")
+        餘額_tb.Text = Strings.Format(CDbl(餘額_tb.Text), "#,##0.0") : 服務時數_tb.Text = Strings.Format(CDbl(服務時數_tb.Text), "#,##0.0")
+        轉場時數_tb.Text = Strings.Format(CDbl(轉場時數_tb.Text), "#,##0.0") : 修正金額_tb.Text = Strings.Format(CDbl(修正金額_tb.Text), "#,##0.0")
+        申請AA_差額_tb.Text = Strings.Format(CDbl(申請AA_差額_tb.Text), "#,##0.0") : 申請BG_差額_tb.Text = Strings.Format(CDbl(申請BG_差額_tb.Text), "#,##0.0")
+    End Sub
+    Private Sub Set_進度條顯示01()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 70,
+            .DataPropertyName = "BA&GA& SC拆帳比."
+        }
+        Col.HeaderText = "BA&GA& SC拆帳比." : Col.Name = "BA&GA& SC拆帳比" : Col.DataPropertyName = "BA&GA& SC拆帳比"
+        Dgv.Columns.Insert(4, Col)
+    End Sub
+    Private Sub Set_進度條顯示02()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 70,
+            .DataPropertyName = "AA 拆帳比."
+        }
+        Col.HeaderText = "AA 拆帳比." : Col.Name = "AA 拆帳比" : Col.DataPropertyName = "AA 拆帳比"
+        Dgv.Columns.Insert(9, Col)
+    End Sub
+    Private Sub Set_進度條顯示03()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 70,
+            .DataPropertyName = "服務轉場比."
+        }
+        Col.HeaderText = "服務轉場比." : Col.Name = "服務轉場比" : Col.DataPropertyName = "服務轉場比"
+        Dgv1.Columns.Insert(39, Col)
+    End Sub
+    Private Sub Set_進度條顯示04()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 70,
+            .DataPropertyName = "餘額比."
+        }
+        Col.HeaderText = "餘額比." : Col.Name = "餘額比" : Col.DataPropertyName = "餘額比"
+        Dgv1.Columns.Insert(35, Col)
+    End Sub
+    Private Sub 拆帳制薪資分析表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Dgv.BringToFront()
+        分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %"
+        Dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        Dgv1.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+    End Sub
+    Private Sub 拆帳制薪資分析表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        SQL_營運成本收支單對帳表_查詢最後一筆年份清單()
+        年份_cb.Items.Clear() : 年份_cb.Items.Add("") : 年份1_cb.Items.Clear() : 年份1_cb.Items.Add("")
+        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : 年份1_cb.Items.Add(dr("年份")) : End While : conn.Close()
+        SQL_資料日期01()
+        If dr.Read Then
+            年份_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份_cb.Text = Strings.Right(dr("流水號").ToString, 2)
+            年份1_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份1_cb.Text = Strings.Right(dr("流水號").ToString, 2)
+        End If : Set_服務人員()
+    End Sub
+    'Private Sub Dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dgv.MouseUp
+    '    If Dgv.SelectedCells.Count = 1 Then : MsgBox(Dgv.SelectedCells(0).ColumnIndex & "  " & Dgv.SelectedCells(0).RowIndex) : End If
+    'End Sub
+    'Private Sub Dgv1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dgv1.MouseUp
+    '    If Dgv1.SelectedCells.Count = 1 Then : MsgBox(Dgv1.SelectedCells(0).ColumnIndex & "  " & Dgv1.SelectedCells(0).RowIndex) : End If
+    'End Sub
+    Private Sub Dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles Dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = Dgv.Rows.Count - 1 Then
+            Dim columnIndex As Integer = 6 : Dim cellBounds As System.Drawing.Rectangle = Dgv.GetCellDisplayRectangle(columnIndex, e.RowIndex, True)
+            Dim lineX As Integer = cellBounds.Right - 1 : Dim lineYStart As Integer = e.RowBounds.Top : Dim lineYEnd As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX, lineYStart, lineX, lineYEnd)
+            Dim columnIndex1 As Integer = 13 : Dim cellBounds1 As System.Drawing.Rectangle = Dgv.GetCellDisplayRectangle(columnIndex1, e.RowIndex, True)
+            Dim lineX1 As Integer = cellBounds1.Right - 1 : Dim lineYStart1 As Integer = e.RowBounds.Top : Dim lineYEnd1 As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX1, lineYStart1, lineX1, lineYEnd1) : Exit Sub
+        Else
+            Dim columnIndex As Integer = 6 : Dim cellBounds As System.Drawing.Rectangle = Dgv.GetCellDisplayRectangle(columnIndex, e.RowIndex, True)
+            Dim lineX As Integer = cellBounds.Right - 1 : Dim lineYStart As Integer = e.RowBounds.Top : Dim lineYEnd As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX, lineYStart, lineX, lineYEnd)
+            Dim columnIndex1 As Integer = 13 : Dim cellBounds1 As System.Drawing.Rectangle = Dgv.GetCellDisplayRectangle(columnIndex1, e.RowIndex, True)
+            Dim lineX1 As Integer = cellBounds1.Right - 1 : Dim lineYStart1 As Integer = e.RowBounds.Top : Dim lineYEnd1 As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX1, lineYStart1, lineX1, lineYEnd1)
+        End If
+    End Sub
+    Private Sub Dgv1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles Dgv1.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = Dgv1.Rows.Count - 1 Then
+            Dim columnIndex As Integer = 0 : Dim cellBounds As System.Drawing.Rectangle = Dgv1.GetCellDisplayRectangle(columnIndex, e.RowIndex, True)
+            Dim lineX As Integer = cellBounds.Right - 1 : Dim lineYStart As Integer = e.RowBounds.Top : Dim lineYEnd As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX, lineYStart, lineX, lineYEnd)
+            Dim columnIndex1 As Integer = 24 : Dim cellBounds1 As System.Drawing.Rectangle = Dgv1.GetCellDisplayRectangle(columnIndex1, e.RowIndex, True)
+            Dim lineX1 As Integer = cellBounds1.Right - 1 : Dim lineYStart1 As Integer = e.RowBounds.Top : Dim lineYEnd1 As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX1, lineYStart1, lineX1, lineYEnd1)
+            Dim columnIndex2 As Integer = 35 : Dim cellBounds2 As System.Drawing.Rectangle = Dgv1.GetCellDisplayRectangle(columnIndex2, e.RowIndex, True)
+            Dim lineX2 As Integer = cellBounds2.Right - 1 : Dim lineYStart2 As Integer = e.RowBounds.Top : Dim lineYEnd2 As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX2, lineYStart2, lineX2, lineYEnd2) : Exit Sub
+        Else
+            Dim columnIndex As Integer = 0 : Dim cellBounds As System.Drawing.Rectangle = Dgv1.GetCellDisplayRectangle(columnIndex, e.RowIndex, True)
+            Dim lineX As Integer = cellBounds.Right - 1 : Dim lineYStart As Integer = e.RowBounds.Top : Dim lineYEnd As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX, lineYStart, lineX, lineYEnd)
+            Dim columnIndex1 As Integer = 24 : Dim cellBounds1 As System.Drawing.Rectangle = Dgv1.GetCellDisplayRectangle(columnIndex1, e.RowIndex, True)
+            Dim lineX1 As Integer = cellBounds1.Right - 1 : Dim lineYStart1 As Integer = e.RowBounds.Top : Dim lineYEnd1 As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX1, lineYStart1, lineX1, lineYEnd1)
+            Dim columnIndex2 As Integer = 35 : Dim cellBounds2 As System.Drawing.Rectangle = Dgv1.GetCellDisplayRectangle(columnIndex2, e.RowIndex, True)
+            Dim lineX2 As Integer = cellBounds2.Right - 1 : Dim lineYStart2 As Integer = e.RowBounds.Top : Dim lineYEnd2 As Integer = e.RowBounds.Bottom - 1
+            e.Graphics.DrawLine(linePen, lineX2, lineYStart2, lineX2, lineYEnd2)
+        End If
+    End Sub
+    Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
+        Set_服務人員()
+    End Sub
+    Private Sub 薪資結構_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 薪資結構_ch.Click
+        薪資結構_ch.Checked = True : 成本結構_ch.Checked = False : Dgv.BringToFront()
+    End Sub
+    Private Sub 成本結構_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 成本結構_ch.Click
+        薪資結構_ch.Checked = False : 成本結構_ch.Checked = True : Dgv1.BringToFront()
+    End Sub
+End Class

GF00-ERP-SYS/01.人事系統管理/拆帳制薪資會總表.vb

         Dgv.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         Dgv.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Dgv.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
 
         Dgv.Columns("GAM1").Visible = False : Dgv.Columns("GAM2").Visible = False : Dgv.Columns("BA").Visible = False : Dgv.Columns("GA").Visible = False
         Set_分頁()
 
         For i As Integer = 0 To 73 : Dgv.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv.Columns(i).ReadOnly = False : Next
         For i As Integer = 77 To 88 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv.Columns(i).ReadOnly = False : Next
-        For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
-
+        For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv.Columns(i).ReadOnly = True : Next
+        Dgv.Columns("服務轉場比").ReadOnly = False : Dgv.Columns("總服務時數").ReadOnly = False : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
+        Dgv.Columns("總轉場時數").ReadOnly = False : Dgv.Columns("公司負擔總計").ReadOnly = True : Dgv.Columns("薪資加項總計").ReadOnly = True
+        Dgv.Columns("總服務時數").ReadOnly = True : Dgv.Columns("總轉場時數").ReadOnly = True : Dgv.Columns("服務轉場比").ReadOnly = True : Dgv.Columns("實際總薪資").ReadOnly = True
         Dgv.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
         Dgv.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
-        Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose
+        Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
+
         For i As Integer = 0 To Dgv.Rows.Count - 1 : For J As Integer = 1 To Dgv.Columns.Count - 1 : Dgv.Rows(i).Cells(J).Value = "0" : Next : Next
         For i As Integer = 0 To 總數
             If 首次開啟 = False Then
 
             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = True
             Dgv.Columns("GA加給").Visible = True : Dgv.Columns("其他").Visible = True : Dgv.Columns("主薪").Visible = True
-            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True
+            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True : Dgv.Columns("實際總薪資").Visible = True
             Dgv.Columns("總薪").Visible = True : Dgv.Columns("平日工時").Visible = True : Dgv.Columns("平日平均時薪/含平日加班").Visible = True
             Dgv.Columns("平日加班扣除額").Visible = True : Dgv.Columns("平日月薪/不含加班").Visible = True : Dgv.Columns("正常班平均時薪").Visible = True
             Dgv.Columns("服務津貼").Visible = True : Dgv.Columns("轉場津貼").Visible = True : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = True
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = True
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = True : Dgv.Columns(107).Visible = True : Dgv.Columns(108).Visible = True : Dgv.Columns(109).Visible = True : Dgv.Columns(110).Visible = True
+            Dgv.Columns(111).Visible = True : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = True
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = True : Dgv.Columns("平均時薪").Visible = True : Dgv.Columns("BA+GA+AA_總額").Visible = True : Dgv.Columns("餘額").Visible = True
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = True : Dgv.Columns(97).Visible = True : Dgv.Columns(98).Visible = True : Dgv.Columns(99).Visible = True : Dgv.Columns(100).Visible = True
             Dgv.Columns(101).Visible = True : Dgv.Columns(102).Visible = True : Dgv.Columns(103).Visible = True
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = True : Dgv.Columns(113).Visible = True : Dgv.Columns(114).Visible = True : Dgv.Columns(115).Visible = True
+            Dgv.Columns(116).Visible = True : Dgv.Columns(117).Visible = True
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
         Dgv.Columns("正常班平均時薪").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("平日工時").Visible = False
         Dgv.Columns("平日平均時薪/含平日加班").Visible = False : Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False
         Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv.Columns("AA07").Visible = False : Dgv.Columns("AA09").Visible = False
+        Dgv.Columns("BAORSC").Visible = False : Dgv.Columns("AA長短").Visible = False : Dgv.Columns("BAORSC仁").Visible = False : Dgv.Columns("AA長短仁").Visible = False
     End Sub
     Private Sub Set_薪資計算()
         Dim 分子(8), 分母(8) As Double
         BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
         D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
         E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
-        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0"
+        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資_tb.Text = "0" : 實際薪資1_tb.Text = "0"
         For i As Integer = 0 To Dgv.Rows.Count - 1
             Dgv.Rows(i).Cells("主薪").Value = "0" : Dgv.Rows(i).Cells("AA比例").Value = "0.5" : Dgv.Rows(i).Cells("總時數").Value = "0"
             Dgv.Rows(i).Cells("平均時薪").Value = "0" : Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = "0" : Dgv.Rows(i).Cells("餘額").Value = "0"
                                           CDbl(Dgv.Rows(i).Cells(43).Value) + CDbl(Dgv.Rows(i).Cells(44).Value) + CDbl(Dgv.Rows(i).Cells(45).Value) +
                                           CDbl(Dgv.Rows(i).Cells(46).Value) + CDbl(Dgv.Rows(i).Cells(47).Value) + CDbl(Dgv.Rows(i).Cells(48).Value)
             Dgv.Rows(i).Cells("總時數").Value = CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString)
-            Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA07").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA09").Value.ToString)) +
-                                                   CDbl(Dgv.Rows(i).Cells("GA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString)
+            Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休薪資1.67").Value.ToString) +
+                                                  CDbl(Dgv.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場薪資").Value.ToString) +
+                                                  CDbl(Dgv.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平薪資1.67").Value.ToString) +
+                                                  CDbl(Dgv.Rows(i).Cells("休薪資1.34").Value.ToString)
+
+            If IsDBNull(Dgv.Rows(i).Cells("BAORSC").Value) = True Then : Dgv.Rows(i).Cells("BAORSC").Value = 0 : End If
+            If IsDBNull(Dgv.Rows(i).Cells("AA長短").Value) = True Then : Dgv.Rows(i).Cells("AA長短").Value = 0 : End If
+            If IsDBNull(Dgv.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv.Rows(i).Cells("BAORSC仁").Value = 0 : End If
+            If IsDBNull(Dgv.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv.Rows(i).Cells("AA長短仁").Value = 0 : End If
+            If CDbl(Dgv.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv.Rows(i).Cells("AA長短").Value) = 0 Then
+                Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv.Rows(i).Cells("AA長短仁").Value)
+            Else
+                Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv.Rows(i).Cells("AA長短").Value)
+            End If
             Dgv.Rows(i).Cells("餘額").Value = CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) -
                                               CDbl(Dgv.Rows(i).Cells(103).Value.ToString)
             Dgv.Rows(i).Cells("餘額比").Value = CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)
             加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
             總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
             總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
+            實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
+            實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
             A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv.Rows(i).Cells(24).Value.ToString), "#,##0.0")
             A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv.Rows(i).Cells(25).Value.ToString), "#,##0.0")
             A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv.Rows(i).Cells(26).Value.ToString), "#,##0.0")
             Dgv.Rows(i).Cells("休0-2").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString), "#,##0.0")
             Dgv.Rows(i).Cells("其他").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("其他").Value.ToString), "#,##0.0")
             Dgv.Rows(i).Cells("休3-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString), "#,##0.0")
+            Dgv.Rows(i).Cells("公司負擔總計").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("公司負擔總計").Value.ToString), "#,##0.0")
+            Dgv.Rows(i).Cells("實際總薪資").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
             For y As Integer = 24 To 50 : Dgv.Rows(i).Cells(y).Value = Strings.Format(CDbl(Dgv.Rows(i).Cells(y).Value.ToString), "#,##0.0") : Next
+            For y As Integer = 106 To 117 : Dgv.Rows(i).Cells(y).Value = Strings.Format(CDbl(Dgv.Rows(i).Cells(y).Value.ToString), "#,##0.0") : Next
 
             If CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) = 0 Then : Else : 分母(0) += 1 : 分子(0) += CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) : End If
             If CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString) = 0 Then : Else : 分母(1) += 1 : 分子(1) += CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString) : End If

GF00-ERP-SYS/01.人事系統管理/拆帳制薪資試算表.vb

     Dim 是否有差額 As Boolean
     Private Sub Set_服務人員()
         年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text
-        Set_加班計算() : Set_階級加給()
+        Set_加班計算() : Set_階級加給() : Set_轉場計算()
         If 月份_cb.Text = "01" Then : PA10 = CInt(年份_cb.Text) - 1 & "12"
         Else : If CInt(月份_cb.Text) < 11 Then : PA10 = 年份_cb.Text & "0" & CInt(月份_cb.Text) - 1 : Else : PA10 = 年份_cb.Text & CInt(月份_cb.Text) - 1 : End If : End If
         SQL_查差額() : If dr.Read Then : 是否有差額 = True : SQL_讀差額() : Set_差額() : Else : 是否有差額 = False : SQL_放差額() : Set_差額() : End If
         PA1 = 年份_cb.Text & 月份_cb.Text : SQL2 = "人事拆帳制A碼項目清冊" : SQL_薪資彙總表_仁寶()
         da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : conn.Close()
         Dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        SQL_查最低薪資()
+        If dr.Read Then : 最低薪資_lb.Text = Strings.Format(CDbl(dr("最低薪資").ToString), "#,##0") : 扣除狀態_ch.Checked = dr("AA扣除")
+        Else : 最低薪資_lb.Text = "183" : 扣除狀態_ch.Checked = True : SQL_最低薪資新增() : End If
 
         Dgv.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Dgv.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         Dgv.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         Dgv.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Dgv.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-        Dgv.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0"
-        Dgv.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
-        Dgv.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0"
-        Dgv.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("其他").DefaultCellStyle.Format = "#,##0.0"
-        Dgv.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(25).DefaultCellStyle.Format = "#,##0.0"
+        Dgv.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        Dgv.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
+        Dgv.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休加班1.34").DefaultCellStyle.Format = "#,##0.000"
+        Dgv.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("正常班轉場").DefaultCellStyle.Format = "#,##0.000"
+        Dgv.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("平加班1.34").DefaultCellStyle.Format = "#,##0.000"
+        Dgv.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("其他").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("平加班1.67").DefaultCellStyle.Format = "#,##0.000"
+        Dgv.Columns("轉場薪資").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("平薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休加班1.67").DefaultCellStyle.Format = "#,##0.000"
+        Dgv.Columns("平薪資1.67").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休薪資1.67").DefaultCellStyle.Format = "#,##0"
+        Dgv.Columns("國薪資2.00").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("國加班2.00").DefaultCellStyle.Format = "#,##0.000" : Dgv.Columns("實際總薪資").DefaultCellStyle.Format = "#,##0.0"
+        Dgv.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(25).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(103).DefaultCellStyle.Format = "#,##0.0"
         Dgv.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(28).DefaultCellStyle.Format = "#,##0.0"
         Dgv.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(31).DefaultCellStyle.Format = "#,##0.0"
         Dgv.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(34).DefaultCellStyle.Format = "#,##0.0"
         Dgv.Columns(94).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(95).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(96).DefaultCellStyle.Format = "#,##0.0"
         Dgv.Columns(97).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(98).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(99).DefaultCellStyle.Format = "#,##0.0"
         Dgv.Columns(100).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(101).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(102).DefaultCellStyle.Format = "#,##0.0"
-        Dgv.Columns(103).DefaultCellStyle.Format = "#,##0.0"
+
         Dgv.Columns("GAM1").Visible = False : Dgv.Columns("GAM2").Visible = False : Dgv.Columns("BA").Visible = False : Dgv.Columns("GA").Visible = False
         Set_分頁()
 
         For i As Integer = 0 To 73 : Dgv.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv.Columns(i).ReadOnly = False : Next
         For i As Integer = 77 To 88 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv.Columns(i).ReadOnly = False : Next
-        For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
-
+        For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv.Columns(i).ReadOnly = True : Next
+        Dgv.Columns("服務轉場比").ReadOnly = False : Dgv.Columns("總服務時數").ReadOnly = False : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
+        Dgv.Columns("總轉場時數").ReadOnly = False : Dgv.Columns("公司負擔總計").ReadOnly = True : Dgv.Columns("薪資加項總計").ReadOnly = True
+        Dgv.Columns("總服務時數").ReadOnly = True : Dgv.Columns("總轉場時數").ReadOnly = True : Dgv.Columns("服務轉場比").ReadOnly = True : Dgv.Columns("實際總薪資").ReadOnly = True
         Dgv.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
         Dgv.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
-        Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose
+        Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
         Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean
         For i As Integer = 0 To Dgv.Rows.Count - 1 : 新增 = False
             If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
                 SQL_BA比_新增() : 重讀 = True
             End If
         Next : If 重讀 = True Then : Set_BA比2() : End If
+        For i As Integer = 0 To Dgv.Rows.Count - 1
+            Dgv.Rows(i).Cells("正常班轉場").Value = "0" : Dgv.Rows(i).Cells("平加班1.34").Value = "0" : Dgv.Rows(i).Cells("平加班1.67").Value = "0"
+            Dgv.Rows(i).Cells("休加班1.34").Value = "0" : Dgv.Rows(i).Cells("休加班1.67").Value = "0" : Dgv.Rows(i).Cells("國加班2.00").Value = "0"
+            For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
+                If Dgv.Rows(i).Cells("姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
+                    If 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期日" And 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期六" Then
+                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1 Then
+                            Dgv.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
+                            Dgv.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
+                            Dgv.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 2 Then
+                            Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        End If
+                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期六" Then
+                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
+                            Dgv.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
+                            Dgv.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 2 Then
+                            Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        End If
+                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期日" Then
+                        Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                    End If
+                End If
+            Next
+            Dgv.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value) / 60 : Dgv.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value) / 60
+            Dgv.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value) / 60 : Dgv.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value) / 60
+            Dgv.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value) / 60 : Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) / 60
+
+            Dgv.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value.ToString) * 198
+            Dgv.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value.ToString) * 198 * 1.34
+            Dgv.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value.ToString) * 198 * 1.67
+            Dgv.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value.ToString) * 198 * 1.34
+            Dgv.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value.ToString) * 198 * 1.67
+            Dgv.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value.ToString) * 198 * 2
+        Next
         Set_薪資計算()
     End Sub
     Private Sub Set_分頁()
 
             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = True
             Dgv.Columns("GA加給").Visible = True : Dgv.Columns("其他").Visible = True : Dgv.Columns("主薪").Visible = True
-            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True
+            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True : Dgv.Columns("實際總薪資").Visible = True
             Dgv.Columns("總薪").Visible = True : Dgv.Columns("平日工時").Visible = True : Dgv.Columns("平日平均時薪/含平日加班").Visible = True
             Dgv.Columns("平日加班扣除額").Visible = True : Dgv.Columns("平日月薪/不含加班").Visible = True : Dgv.Columns("正常班平均時薪").Visible = True
             Dgv.Columns("服務津貼").Visible = True : Dgv.Columns("轉場津貼").Visible = True : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = True
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = True
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = True : Dgv.Columns(107).Visible = True : Dgv.Columns(108).Visible = True : Dgv.Columns(109).Visible = True : Dgv.Columns(110).Visible = True
+            Dgv.Columns(111).Visible = True : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = True
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = True : Dgv.Columns("平均時薪").Visible = True : Dgv.Columns("BA+GA+AA_總額").Visible = True : Dgv.Columns("餘額").Visible = True
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
+            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
 
             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
-            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
+            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
             Dgv.Columns(96).Visible = True : Dgv.Columns(97).Visible = True : Dgv.Columns(98).Visible = True : Dgv.Columns(99).Visible = True : Dgv.Columns(100).Visible = True
             Dgv.Columns(101).Visible = True : Dgv.Columns(102).Visible = True : Dgv.Columns(103).Visible = True
 
+            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
+            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = True : Dgv.Columns(113).Visible = True : Dgv.Columns(114).Visible = True : Dgv.Columns(115).Visible = True
+            Dgv.Columns(116).Visible = True : Dgv.Columns(117).Visible = True
+
             Dgv.Columns(50).Visible = False
 
             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
         End If
-        Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False : Dgv.Columns("總薪").Visible = False
+        Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False : Dgv.Columns("總薪").Visible = False : Dgv.Columns("AA剃除").Visible = False
         Dgv.Columns("正常班平均時薪").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("平日工時").Visible = False
         Dgv.Columns("平日平均時薪/含平日加班").Visible = False : Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False
         Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv.Columns("AA07").Visible = False : Dgv.Columns("AA09").Visible = False
+        Dgv.Columns("BAORSC").Visible = False : Dgv.Columns("AA長短").Visible = False : Dgv.Columns("BAORSC仁").Visible = False : Dgv.Columns("AA長短仁").Visible = False
     End Sub
     Private Sub Set_薪資計算()
         Dim 分子(8), 分母(8) As Double
         BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
         D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
         E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
-        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0"
+        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資1_tb.Text = "0" : 實際薪資_tb.Text = "0"
         If 是否有差額 = True Then
             For i As Integer = 0 To Dgv.Rows.Count - 1
                 For II As Integer = 0 To 差異_dgv.Rows.Count - 1
             Dgv.Rows(i).Cells("平日加班扣除額").Value = "0" : Dgv.Rows(i).Cells("轉場津貼").Value = "0" : Dgv.Rows(i).Cells("總轉場時數").Value = "0"
             Dgv.Rows(i).Cells("正常班平均時薪").Value = "0" : Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("服務津貼").Value = "0"
             Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv.Rows(i).Cells("總薪資").Value = "0"
-            Dgv.Rows(i).Cells("BA正常").Value = "0" : Dgv.Rows(i).Cells("餘額比").Value = "0"
+            Dgv.Rows(i).Cells("BA正常").Value = "0" : Dgv.Rows(i).Cells("餘額比").Value = "0" : Dgv.Rows(i).Cells("實際總薪資").Value = "0"
             Dgv.Rows(i).Cells(89).Value = Dgv.Rows(i).Cells(77).Value + Dgv.Rows(i).Cells(78).Value + Dgv.Rows(i).Cells(79).Value + Dgv.Rows(i).Cells(80).Value + Dgv.Rows(i).Cells(81).Value +
                                           Dgv.Rows(i).Cells(82).Value + Dgv.Rows(i).Cells(83).Value + Dgv.Rows(i).Cells(84).Value + Dgv.Rows(i).Cells(85).Value + Dgv.Rows(i).Cells(86).Value +
                                           Dgv.Rows(i).Cells(87).Value + Dgv.Rows(i).Cells(88).Value
             Dgv.Rows(i).Cells(103).Value = Dgv.Rows(i).Cells(91).Value + Dgv.Rows(i).Cells(92).Value + Dgv.Rows(i).Cells(93).Value + Dgv.Rows(i).Cells(94).Value + Dgv.Rows(i).Cells(95).Value +
                                            Dgv.Rows(i).Cells(96).Value + Dgv.Rows(i).Cells(97).Value + Dgv.Rows(i).Cells(98).Value + Dgv.Rows(i).Cells(99).Value + Dgv.Rows(i).Cells(100).Value +
-                                           Dgv.Rows(i).Cells(101).Value + Dgv.Rows(i).Cells(102).Value
+                                           Dgv.Rows(i).Cells(101).Value + Dgv.Rows(i).Cells(102).Value + Dgv.Rows(i).Cells("國薪資2.00").Value + Dgv.Rows(i).Cells("轉場薪資").Value +
+                                           Dgv.Rows(i).Cells("平薪資1.34").Value + Dgv.Rows(i).Cells("平薪資1.67").Value + Dgv.Rows(i).Cells("休薪資1.34").Value + Dgv.Rows(i).Cells("休薪資1.67").Value
             If IsDBNull(Dgv.Rows(i).Cells("BA").Value) = True Then : Dgv.Rows(i).Cells("BA").Value = 0 : End If
             If IsDBNull(Dgv.Rows(i).Cells("GA").Value) = True Then : Dgv.Rows(i).Cells("GA").Value = 0 : End If
             If IsDBNull(Dgv.Rows(i).Cells("GAM1").Value) = True Then : Dgv.Rows(i).Cells("GAM1").Value = 0 : End If
                                                     CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) +
                                                     CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) +
                                                     CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString)
+            Dim 開啟扣除 As Boolean = 扣除狀態_ch.Checked : Dim 剃除總額 As Double = 0
+            For K As Integer = 0 To AA剃除_dgv.Rows.Count - 1
+                If Dgv.Rows(i).Cells("姓名").Value.ToString = AA剃除_dgv.Rows(K).Cells("居服員姓名").Value.ToString Then
+                    剃除總額 += CDbl(AA剃除_dgv.Rows(K).Cells("剃除金額").Value.ToString)
+                End If
+            Next : Dgv.Rows(i).Cells("AA剃除").Value = 剃除總額
+            If 開啟扣除 = True Then : Dgv.Rows(i).Cells("AA").Value = CDbl(Dgv.Rows(i).Cells("AA").Value) - 剃除總額 : End If
+            If CDbl(Dgv.Rows(i).Cells("AA").Value) < 0 Then : Dgv.Rows(i).Cells("AA").Value = 0 : Dgv.Rows(i).Cells("AA剃除").Value = "0" : End If
 
             Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)
             For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1
                                           Dgv.Rows(i).Cells(47).Value + Dgv.Rows(i).Cells(48).Value
             Dgv.Rows(i).Cells("總時數").Value = CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString)
             Dgv.Rows(i).Cells("平均時薪").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString)
-            Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString) +
-                                                   CDbl(Dgv.Rows(i).Cells("AA07").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA09").Value.ToString)) +
-                                                   CDbl(Dgv.Rows(i).Cells("GA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString)
+            If CDbl(最低薪資_lb.Text) = 0 Then
+                Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString)
+            Else
+                Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休薪資1.67").Value.ToString) +
+                                      CDbl(Dgv.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場薪資").Value.ToString) +
+                                      CDbl(Dgv.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平薪資1.67").Value.ToString) +
+                                      CDbl(Dgv.Rows(i).Cells("休薪資1.34").Value.ToString)
+            End If
+
+            If IsDBNull(Dgv.Rows(i).Cells("BAORSC").Value) = True Then : Dgv.Rows(i).Cells("BAORSC").Value = 0 : End If
+            If IsDBNull(Dgv.Rows(i).Cells("AA長短").Value) = True Then : Dgv.Rows(i).Cells("AA長短").Value = 0 : End If
+            If IsDBNull(Dgv.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv.Rows(i).Cells("BAORSC仁").Value = 0 : End If
+            If IsDBNull(Dgv.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv.Rows(i).Cells("AA長短仁").Value = 0 : End If
+            If CDbl(Dgv.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv.Rows(i).Cells("AA長短").Value) = 0 Then
+                Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv.Rows(i).Cells("AA長短仁").Value)
+            Else
+                Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv.Rows(i).Cells("AA長短").Value)
+            End If
             Dgv.Rows(i).Cells("餘額").Value = CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) -
                                               CDbl(Dgv.Rows(i).Cells(103).Value.ToString)
             Dgv.Rows(i).Cells("餘額比").Value = CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)
             加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
             總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
             總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
+            實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
+            實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
             A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv.Rows(i).Cells(24).Value.ToString), "#,##0.0")
             A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv.Rows(i).Cells(25).Value.ToString), "#,##0.0")
             A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv.Rows(i).Cells(26).Value.ToString), "#,##0.0")
         Dgv1.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         Dgv1.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Dgv1.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-        Dgv1.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0"
-        Dgv1.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv1.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
-        Dgv1.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0"
-        Dgv1.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("其他").DefaultCellStyle.Format = "#,##0.0"
-        Dgv1.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(25).DefaultCellStyle.Format = "#,##0.0"
+        Dgv1.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Dgv1.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Dgv1.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        Dgv1.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
+        Dgv1.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv1.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休加班1.34").DefaultCellStyle.Format = "#,##0.000"
+        Dgv1.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("正常班轉場").DefaultCellStyle.Format = "#,##0.000"
+        Dgv1.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("平加班1.34").DefaultCellStyle.Format = "#,##0.000"
+        Dgv1.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("其他").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("平加班1.67").DefaultCellStyle.Format = "#,##0.000"
+        Dgv1.Columns("轉場薪資").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("平薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休加班1.67").DefaultCellStyle.Format = "#,##0.000"
+        Dgv1.Columns("平薪資1.67").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休薪資1.67").DefaultCellStyle.Format = "#,##0"
+        Dgv1.Columns("國薪資2.00").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("國加班2.00").DefaultCellStyle.Format = "#,##0.000" : Dgv1.Columns("實際總薪資").DefaultCellStyle.Format = "#,##0.0"
+        Dgv1.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(25).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(103).DefaultCellStyle.Format = "#,##0.0"
         Dgv1.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(28).DefaultCellStyle.Format = "#,##0.0"
         Dgv1.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(31).DefaultCellStyle.Format = "#,##0.0"
         Dgv1.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(34).DefaultCellStyle.Format = "#,##0.0"
         Dgv1.Columns(94).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(95).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(96).DefaultCellStyle.Format = "#,##0.0"
         Dgv1.Columns(97).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(98).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(99).DefaultCellStyle.Format = "#,##0.0"
         Dgv1.Columns(100).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(101).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(102).DefaultCellStyle.Format = "#,##0.0"
-        Dgv1.Columns(103).DefaultCellStyle.Format = "#,##0.0"
+
         Dgv1.Columns("GAM1").Visible = False : Dgv1.Columns("GAM2").Visible = False : Dgv1.Columns("BA").Visible = False : Dgv1.Columns("GA").Visible = False
         Set_分頁1()
 
         For i As Integer = 0 To 73 : Dgv1.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv1.Columns(i).ReadOnly = False : Next
         For i As Integer = 77 To 88 : Dgv1.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv1.Columns(i).ReadOnly = False : Next
-        For i As Integer = 37 To 48 : Dgv1.Columns(i).ReadOnly = False : Next : Dgv1.Columns("其他").ReadOnly = False : Dgv1.Columns(50).ReadOnly = False
-
+        For i As Integer = 37 To 48 : Dgv1.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv1.Columns(i).ReadOnly = True : Next
+        Dgv1.Columns("服務轉場比").ReadOnly = False : Dgv1.Columns("總服務時數").ReadOnly = False : Dgv1.Columns("其他").ReadOnly = False : Dgv1.Columns(50).ReadOnly = False
+        Dgv1.Columns("總轉場時數").ReadOnly = False : Dgv1.Columns("公司負擔總計").ReadOnly = True : Dgv1.Columns("薪資加項總計").ReadOnly = True
+        Dgv1.Columns("總服務時數").ReadOnly = True : Dgv1.Columns("總轉場時數").ReadOnly = True : Dgv1.Columns("服務轉場比").ReadOnly = True : Dgv1.Columns("實際總薪資").ReadOnly = True
         Dgv1.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
         Dgv1.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
-        Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose
+        Dgv1.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
         Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean
         For i As Integer = 0 To Dgv1.Rows.Count - 1 : 新增 = False
             If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
                 SQL_BA比_新增() : 重讀 = True
             End If
         Next : If 重讀 = True Then : Set_BA比2() : End If
+        For i As Integer = 0 To Dgv1.Rows.Count - 1
+            Dgv1.Rows(i).Cells("正常班轉場").Value = "0" : Dgv1.Rows(i).Cells("平加班1.34").Value = "0" : Dgv1.Rows(i).Cells("平加班1.67").Value = "0"
+            Dgv1.Rows(i).Cells("休加班1.34").Value = "0" : Dgv1.Rows(i).Cells("休加班1.67").Value = "0" : Dgv1.Rows(i).Cells("國加班2.00").Value = "0"
+            For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
+                If Dgv1.Rows(i).Cells("姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
+                    If 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期日" And 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期六" Then
+                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1 Then
+                            Dgv1.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
+                            Dgv1.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
+                            Dgv1.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        End If
+                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期六" Then
+                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
+                            Dgv1.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
+                            Dgv1.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                        End If
+                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期日" Then
+                        Dgv1.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
+                    End If
+                End If
+            Next
+            Dgv1.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value) / 60 : Dgv1.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value) / 60
+            Dgv1.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value) / 60 : Dgv1.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value) / 60
+            Dgv1.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value) / 60 : Dgv1.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value) / 60
+
+            Dgv1.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value.ToString) * 198
+            Dgv1.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value.ToString) * 198 * 1.34
+            Dgv1.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value.ToString) * 198 * 1.67
+            Dgv1.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value.ToString) * 198 * 1.34
+            Dgv1.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value.ToString) * 198 * 1.67
+            Dgv1.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value.ToString) * 198 * 2
+        Next
         Set_薪資計算1()
     End Sub
     Private Sub Set_分頁1()
 
             Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
             Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
-            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
+            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
 
             Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
             Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
             Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
 
+            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
+            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
+            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
+
             Dgv1.Columns(50).Visible = False
 
             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
 
             Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
             Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
-            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
+            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
 
             Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
             Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
             Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
 
+            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
+            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
+            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
+
             Dgv1.Columns(50).Visible = True
 
             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
 
             Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
             Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
-            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
+            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
 
             Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
             Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
             Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
 
+            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
+            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
+            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
+
             Dgv1.Columns(50).Visible = True
 
             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
 
             Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
             Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
-            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
+            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
 
             Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
             Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
             Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
 
+            Dgv1.Columns(106).Visible = True : Dgv1.Columns(107).Visible = True : Dgv1.Columns(108).Visible = True : Dgv1.Columns(109).Visible = True : Dgv1.Columns(110).Visible = True
+            Dgv1.Columns(111).Visible = True : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
+            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
+
             Dgv1.Columns(50).Visible = False
 
             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
-            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
+            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = True
         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True And
             薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
 
             Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
             Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
-            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
+            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
 
             Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
             Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
             Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
 
+            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
+            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
+            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
+
             Dgv1.Columns(50).Visible = False
 
             Dgv1.Columns("總時數").Visible = True : Dgv1.Columns("平均時薪").Visible = True : Dgv1.Columns("BA+GA+AA_總額").Visible = True : Dgv1.Columns("餘額").Visible = True
-            Dgv1.Columns("餘額比").Visible = True : Dgv1.Columns("服務轉場比").Visible = True
+            Dgv1.Columns("餘額比").Visible = True : Dgv1.Columns("服務轉場比").Visible = False
         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
             薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then
             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
 
             Dgv1.Columns(77).Visible = True : Dgv1.Columns(78).Visible = True : Dgv1.Columns(79).Visible = True : Dgv1.Columns(80).Visible = True : Dgv1.Columns(81).Visible = True
             Dgv1.Columns(82).Visible = True : Dgv1.Columns(83).Visible = True : Dgv1.Columns(84).Visible = True : Dgv1.Columns(85).Visible = True : Dgv1.Columns(86).Visible = True
-            Dgv1.Columns(87).Visible = True : Dgv1.Columns(88).Visible = True : Dgv1.Columns(89).Visible = True
+            Dgv1.Columns(87).Visible = True : Dgv1.Columns(88).Visible = True : Dgv1.Columns(89).Visible = True : Dgv1.Columns(90).Visible = True
 
             Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
             Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
             Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
 
+            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
+            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
+            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
+
             Dgv1.Columns(50).Visible = False
 
             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
             Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
-              薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then
+              薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = True Then
             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
             Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
             Dgv1.Columns("AA11").Visible = False
 
             Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
             Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
-            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
+            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
 
             Dgv1.Columns(91).Visible = True : Dgv1.Columns(92).Visible = True : Dgv1.Columns(93).Visible = True : Dgv1.Columns(94).Visible = True : Dgv1.Columns(95).Visible = True
             Dgv1.Columns(96).Visible = True : Dgv1.Columns(97).Visible = True : Dgv1.Columns(98).Visible = True : Dgv1.Columns(99).Visible = True : Dgv1.Columns(100).Visible = True
             Dgv1.Columns(101).Visible = True : Dgv1.Columns(102).Visible = True : Dgv1.Columns(103).Visible = True
 
+            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
+            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = True : Dgv1.Columns(113).Visible = True : Dgv1.Columns(114).Visible = True : Dgv1.Columns(115).Visible = True
+            Dgv1.Columns(116).Visible = True : Dgv1.Columns(117).Visible = True
+
             Dgv1.Columns(50).Visible = False
 
             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
         Dgv1.Columns("正常班平均時薪").Visible = False : Dgv1.Columns("副薪").Visible = False : Dgv1.Columns("平日工時").Visible = False
         Dgv1.Columns("平日平均時薪/含平日加班").Visible = False : Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False
         Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv1.Columns("AA07").Visible = False : Dgv1.Columns("AA09").Visible = False
+        Dgv1.Columns("BAORSC").Visible = False : Dgv1.Columns("AA長短").Visible = False : Dgv1.Columns("BAORSC仁").Visible = False : Dgv1.Columns("AA長短仁").Visible = False
     End Sub
     Private Sub Set_薪資計算1()
         BA正_tb.Text = "0" : GA正_tb.Text = "0" : GA加_tb.Text = "0" : 其他_tb.Text = "0" : 主薪_tb.Text = "0" : AA_tb.Text = "0" : 副薪_tb.Text = "0" : 總薪_tb.Text = "0"
         BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
         D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
         E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
-        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0"
+        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資1_tb.Text = "0" : 實際薪資_tb.Text = "0"
         For i As Integer = 0 To Dgv1.Rows.Count - 1
             For ii As Integer = 0 To BA比_dgv.Rows.Count - 1
                 If Dgv1.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                                           Dgv1.Rows(i).Cells(87).Value + Dgv1.Rows(i).Cells(88).Value
             Dgv1.Rows(i).Cells(103).Value = Dgv1.Rows(i).Cells(91).Value + Dgv1.Rows(i).Cells(92).Value + Dgv1.Rows(i).Cells(93).Value + Dgv1.Rows(i).Cells(94).Value + Dgv1.Rows(i).Cells(95).Value +
                                            Dgv1.Rows(i).Cells(96).Value + Dgv1.Rows(i).Cells(97).Value + Dgv1.Rows(i).Cells(98).Value + Dgv1.Rows(i).Cells(99).Value + Dgv1.Rows(i).Cells(100).Value +
-                                           Dgv1.Rows(i).Cells(101).Value + Dgv1.Rows(i).Cells(102).Value
+                                           Dgv1.Rows(i).Cells(101).Value + Dgv1.Rows(i).Cells(102).Value + Dgv1.Rows(i).Cells("國薪資2.00").Value + Dgv1.Rows(i).Cells("轉場薪資").Value +
+                                           Dgv1.Rows(i).Cells("平薪資1.34").Value + Dgv1.Rows(i).Cells("平薪資1.67").Value + Dgv1.Rows(i).Cells("休薪資1.34").Value + Dgv1.Rows(i).Cells("休薪資1.67").Value
             If IsDBNull(Dgv1.Rows(i).Cells("BA").Value) = True Then : Dgv1.Rows(i).Cells("BA").Value = 0 : End If
             If IsDBNull(Dgv1.Rows(i).Cells("GA").Value) = True Then : Dgv1.Rows(i).Cells("GA").Value = 0 : End If
             If IsDBNull(Dgv1.Rows(i).Cells("GAM1").Value) = True Then : Dgv1.Rows(i).Cells("GAM1").Value = 0 : End If
                                                     CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) +
                                                     CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) +
                                                     CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv1.Rows(i).Cells("AA比例").Value.ToString)
+            Dim 開啟扣除 As Boolean = 扣除狀態_ch.Checked : Dim 剃除總額 As Double = 0
+            For K As Integer = 0 To AA剃除_dgv.Rows.Count - 1
+                If Dgv1.Rows(i).Cells("姓名").Value.ToString = AA剃除_dgv.Rows(K).Cells("居服員姓名").Value.ToString Then
+                    剃除總額 += CDbl(AA剃除_dgv.Rows(K).Cells("剃除金額").Value.ToString)
+                End If
+            Next : Dgv1.Rows(i).Cells("AA剃除").Value = 剃除總額
+            If 開啟扣除 = True Then : Dgv1.Rows(i).Cells("AA").Value = CDbl(Dgv1.Rows(i).Cells("AA").Value) - 剃除總額 : End If
+            If CDbl(Dgv1.Rows(i).Cells("AA").Value) < 0 Then : Dgv1.Rows(i).Cells("AA").Value = 0 : Dgv1.Rows(i).Cells("AA剃除").Value = "0" : End If
 
             Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)
             For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1
                                           Dgv1.Rows(i).Cells(47).Value + Dgv1.Rows(i).Cells(48).Value
             Dgv1.Rows(i).Cells("總時數").Value = CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString)
             Dgv1.Rows(i).Cells("平均時薪").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString)
-            Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv1.Rows(i).Cells("AA03").Value.ToString) +
-                                                   CDbl(Dgv1.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) +
-                                                   CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) +
-                                                   CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString) +
-                                                   CDbl(Dgv1.Rows(i).Cells("AA07").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString)) +
-                                                   CDbl(Dgv1.Rows(i).Cells("GA").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("GA加給").Value.ToString)
+            Dgv1.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("休薪資1.67").Value.ToString) +
+                                                     CDbl(Dgv1.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("轉場薪資").Value.ToString) +
+                                                     CDbl(Dgv1.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("平薪資1.67").Value.ToString) +
+                                                     CDbl(Dgv1.Rows(i).Cells("休薪資1.34").Value.ToString)
+
+            If IsDBNull(Dgv1.Rows(i).Cells("BAORSC").Value) = True Then : Dgv1.Rows(i).Cells("BAORSC").Value = 0 : End If
+            If IsDBNull(Dgv1.Rows(i).Cells("AA長短").Value) = True Then : Dgv1.Rows(i).Cells("AA長短").Value = 0 : End If
+            If IsDBNull(Dgv1.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv1.Rows(i).Cells("BAORSC仁").Value = 0 : End If
+            If IsDBNull(Dgv1.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv1.Rows(i).Cells("AA長短仁").Value = 0 : End If
+            If CDbl(Dgv1.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv1.Rows(i).Cells("AA長短").Value) = 0 Then
+                Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv1.Rows(i).Cells("AA長短仁").Value)
+            Else
+                Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv1.Rows(i).Cells("AA長短").Value)
+            End If
             Dgv1.Rows(i).Cells("餘額").Value = CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) -
                                                CDbl(Dgv1.Rows(i).Cells(103).Value.ToString)
             Dgv1.Rows(i).Cells("餘額比").Value = CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)
             加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
             總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
             總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
+            實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
+            實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
             A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(24).Value.ToString), "#,##0.0")
             A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(25).Value.ToString), "#,##0.0")
             A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(26).Value.ToString), "#,##0.0")
         da.Fill(ds) : 表頭_dgv.DataSource = ds.Tables(0) : conn.Close()
         表頭_dgv.Columns(0).FillWeight = 40 : 表頭_dgv.Columns(0).ReadOnly = False : 表頭_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
+    Private Sub Set_轉場計算()
+        Dim ds As New DataSet : 轉場加班_dgv.DataSource = Nothing : ds.Clear()
+        轉場加班_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        轉場加班_dgv.ColumnHeadersHeight = 40 : 轉場加班_dgv.AllowUserToAddRows = False : 轉場加班_dgv.RowTemplate.Height = 25
+        SQL_轉場計算()
+        da.Fill(ds) : 轉場加班_dgv.DataSource = ds.Tables(0) : conn.Close()
+        For i As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
+            轉場加班_dgv.Rows(i).Cells(4).Value = "0" : 轉場加班_dgv.Rows(i).Cells(5).Value = "0"
+            If i = 0 Then : 轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00" : Else
+                If 轉場加班_dgv.Rows(i - 1).Cells(1).Value.ToString = 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
+                    轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) + CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) +
+                                                          CDbl(轉場加班_dgv.Rows(i).Cells(2).Value.ToString)
+                    If 轉場加班_dgv.Rows(i).Cells(6).Value.ToString = "正常班" Then
+                        If CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 480 Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00"
+                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 600 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.34"
+                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) > 600 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67" : End If
+                    ElseIf 轉場加班_dgv.Rows(i).Cells(6).Value.ToString = "國定假日" Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "2"
+                    Else
+                        If CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 120 Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.34"
+                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 240 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67"
+                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) > 240 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67" : End If
+                    End If
+                Else
+                    If 轉場加班_dgv.Rows(i - 1).Cells(5).Value.ToString = "0" Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = 轉場加班_dgv.Rows(i - 2).Cells(5).Value.ToString : End If
+                    轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00"
+                End If
+            End If
+            Dim dateValue As DateTime = DateTime.Parse(轉場加班_dgv.Rows(i).Cells(1).Value.ToString)
+            Select Case dateValue.DayOfWeek
+                Case DayOfWeek.Sunday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期日" : Case DayOfWeek.Monday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期一"
+                Case DayOfWeek.Tuesday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期二" : Case DayOfWeek.Wednesday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期三"
+                Case DayOfWeek.Thursday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期四" : Case DayOfWeek.Friday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期五"
+                Case DayOfWeek.Saturday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期六"
+            End Select
+            If 轉場加班_dgv.Rows(i).Cells(7).Value = "星期日" Or 轉場加班_dgv.Rows(i).Cells(7).Value = "星期六" Then : 轉場加班_dgv.Rows(i).Cells(8).Value = "0" : Else
+                If 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00" Then : 轉場加班_dgv.Rows(i).Cells(8).Value = 轉場加班_dgv.Rows(i).Cells(2).Value.ToString
+                Else : 轉場加班_dgv.Rows(i).Cells(8).Value = "0" : End If
+            End If
+            If i = 0 Then : 轉場加班_dgv.Rows(i).Cells(9).Value = 轉場加班_dgv.Rows(i).Cells(8).Value.ToString : Else
+                If 轉場加班_dgv.Rows(i - 1).Cells(1).Value.ToString = 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
+                    轉場加班_dgv.Rows(i).Cells(9).Value = CDbl(轉場加班_dgv.Rows(i).Cells(8).Value.ToString) + CDbl(轉場加班_dgv.Rows(i - 1).Cells(9).Value.ToString)
+                Else : 轉場加班_dgv.Rows(i).Cells(9).Value = 轉場加班_dgv.Rows(i).Cells(8).Value.ToString : End If
+            End If
+            If i = 轉場加班_dgv.Rows.Count - 1 Then : 轉場加班_dgv.Rows(i).Cells(10).Value = 轉場加班_dgv.Rows(i).Cells(9).Value : Else
+                If 轉場加班_dgv.Rows(i + 1).Cells(1).Value.ToString <> 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
+                    轉場加班_dgv.Rows(i).Cells(10).Value = 轉場加班_dgv.Rows(i).Cells(9).Value : Else : 轉場加班_dgv.Rows(i).Cells(10).Value = "0"
+                End If
+            End If
+        Next
+        Dim ds1 As New DataSet : AA剃除_dgv.DataSource = Nothing : ds1.Clear()
+        AA剃除_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        AA剃除_dgv.ColumnHeadersHeight = 40 : AA剃除_dgv.AllowUserToAddRows = False : AA剃除_dgv.RowTemplate.Height = 25
+        SQL_AA剔除計算()
+        da.Fill(ds1) : AA剃除_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For i As Integer = 0 To AA剃除_dgv.Rows.Count - 1
+            AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = "0"
+            If i = 0 Then
+                For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
+                    If AA剃除_dgv.Rows(i).Cells("居服員姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
+                        If AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("日期").Value.ToString Then
+                            If CDbl(轉場加班_dgv.Rows(ii).Cells(10).Value.ToString) > 0 Then
+                                AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = 轉場加班_dgv.Rows(ii).Cells(10).Value.ToString : Exit For
+                            End If
+                        End If
+                    End If
+                Next
+            Else
+                If AA剃除_dgv.Rows(i - 1).Cells("服務日期").Value.ToString = AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString Then : Else
+                    For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
+                        If AA剃除_dgv.Rows(i).Cells("居服員姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
+                            If AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("日期").Value.ToString Then
+                                If CDbl(轉場加班_dgv.Rows(ii).Cells(10).Value.ToString) > 0 Then
+                                    AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = 轉場加班_dgv.Rows(ii).Cells(10).Value.ToString : Exit For
+                                End If
+                            End If
+                        End If
+                    Next
+                End If
+            End If
+            If i = 0 Then : AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString) : Else
+                If AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then : AA剃除_dgv.Rows(i).Cells("累計時間").Value = AA剃除_dgv.Rows(i - 1).Cells("累計時間").Value.ToString : Else
+                    If AA剃除_dgv.Rows(i - 1).Cells("服務日期").Value.ToString <> AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString Then
+                        AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString)
+                    Else
+                        AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString) +
+                                                                     CDbl(AA剃除_dgv.Rows(i - 1).Cells("累計時間").Value.ToString)
+                    End If
+                End If
+            End If
+            If AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString <> "正常班" And AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then
+                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
+            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) > 480 And
+                   AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then
+                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = AA剃除_dgv.Rows(i).Cells("申報費用").Value
+            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) > 480 And
+                   AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString <> "AA" Then
+                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
+            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString <> "正常班" And AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString <> "AA" Then
+                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
+            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) <= 480 Then
+                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
+            End If
+        Next
+    End Sub
     Private Sub Set_差額()
         Dim ds As New DataSet : 差異_dgv.DataSource = Nothing : ds.Clear()
         差異_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         正常1_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
         加班_lb.Text = Strings.Format(CDbl(Dgv("加班費", 位置).Value.ToString), "#,##0")
         AA1_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0") : AA2_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0")
-        '平時新_lb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("主薪").Value.ToString) + CDbl(Dgv.Rows(位置).Cells("AA").Value.ToString) -
-        '                                 CDbl(Dgv.Rows(位置).Cells("平日加班扣除額").Value.ToString)) / CDbl(Dgv.Rows(位置).Cells("平日工時").Value.ToString), "#,##0")
+
+
+        轉時1_lb.Text = Strings.Format(CDbl(Dgv("平加班1.34", 位置).Value.ToString), "#,##0.000") : 轉時2_lb.Text = Strings.Format(CDbl(Dgv("休加班1.34", 位置).Value.ToString), "#,##0.000")
+        轉時3_lb.Text = Strings.Format(CDbl(Dgv("平加班1.67", 位置).Value.ToString), "#,##0.000") : 轉時4_lb.Text = Strings.Format(CDbl(Dgv("休加班1.67", 位置).Value.ToString), "#,##0.000")
+        轉時5_lb.Text = Strings.Format(CDbl(Dgv("國加班2.00", 位置).Value.ToString), "#,##0.000")
+        轉薪1_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪2_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0")
+        轉薪3_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪4_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0")
+        轉薪5_lb.Text = Strings.Format(2 * CDbl(最低薪資_lb.Text), "#,##0.0")
+        If CDbl(最低薪資_lb.Text) = 0 Then
+            轉費1_tb.Text = "0.0" : 轉費2_tb.Text = "0.0" : 轉費3_tb.Text = "0.0" : 轉費4_tb.Text = "0.0" : 轉費5_tb.Text = "0.0" : 正常轉時_lb.Text = "0.000" : 轉正常_lb.Text = "0.0"
+        Else
+            正常轉時_lb.Text = Strings.Format(CDbl(Dgv("正常班轉場", 位置).Value.ToString), "#,##0.000")
+            轉正常_lb.Text = Strings.Format(CDbl(Dgv("轉場薪資", 位置).Value.ToString), "#,##0.0")
+            轉費1_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.34").Value.ToString), "#,##0.0")
+            轉費2_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.34").Value.ToString), "#,##0.0")
+            轉費3_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.67").Value.ToString), "#,##0.0")
+            轉費4_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.67").Value.ToString), "#,##0.0")
+            轉費5_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("國薪資2.00").Value.ToString), "#,##0.0")
+        End If
+        小5_lb.Text = Strings.Format(CDbl(轉費1_tb.Text) + CDbl(轉費2_tb.Text) + CDbl(轉費3_tb.Text) + CDbl(轉費4_tb.Text) + CDbl(轉費5_tb.Text), "#,##0.0")
+        小51_lb.Text = 小5_lb.Text
+
         時1_lb.Text = Strings.Format(CDbl(Dgv("平9-10", 位置).Value.ToString), "#,##0.000") : 時2_lb.Text = Strings.Format(CDbl(Dgv("休0-2", 位置).Value.ToString), "#,##0.000")
         時3_lb.Text = Strings.Format(CDbl(Dgv("平11-12", 位置).Value.ToString), "#,##0.000") : 時4_lb.Text = Strings.Format(CDbl(Dgv("休3-8", 位置).Value.ToString), "#,##0.000")
         時5_lb.Text = Strings.Format(CDbl(Dgv("國0-2", 位置).Value.ToString) + CDbl(Dgv("國3-8", 位置).Value.ToString), "#,##0.000")
         費4_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休3-8").Value.ToString) * CDbl(薪4_lb.Text)), "#,##0")
         費5_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("國0-2").Value.ToString + CDbl(Dgv.Rows(位置).Cells("國3-8").Value.ToString))) * CDbl(薪5_lb.Text), "#,##0")
         小1_lb.Text = Strings.Format((CDbl(費1_tb.Text) + CDbl(費2_tb.Text) + CDbl(費3_tb.Text) + CDbl(費4_tb.Text) + CDbl(費5_tb.Text)), "#,##0")
-        合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(小41_lb.Text)), "#,##0")
+        合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(小41_lb.Text) + CDbl(小51_lb.Text) + CDbl(轉正常_lb.Text)), "#,##0")
         A01_alb.Text = Strings.Format(CDbl(Dgv(24, 位置).Value.ToString), "#,##0") : If CDbl(A01_alb.Text) > 0 Then : A01_clb.Text = A01_lb.Text : Else : A01_clb.Text = "" : End If
         A02_alb.Text = Strings.Format(CDbl(Dgv(25, 位置).Value.ToString), "#,##0") : If CDbl(A02_alb.Text) > 0 Then : A02_clb.Text = A02_lb.Text : Else : A02_clb.Text = "" : End If
         A03_alb.Text = Strings.Format(CDbl(Dgv(26, 位置).Value.ToString), "#,##0") : If CDbl(A03_alb.Text) > 0 Then : A03_clb.Text = A03_lb.Text : Else : A03_clb.Text = "" : End If
         ToolTip1.SetToolTip(Me.設定1_bt, "系統設定")
     End Sub
     Private Sub 拆帳制薪資試算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Panel1.Visible = False : Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront() : 其它_ch.Visible = CC(61)
+        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : Panel1.Visible = False
+        Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront() : 其它_ch.Visible = CC(61)
         服務津貼_cb.Visible = CC(61) : 轉場津貼_cb.Visible = CC(61) : 服務津貼_cb.Checked = CC(15) : 轉場津貼_cb.Checked = CC(16)
-        If gUserName = "李協叡" Then : 重讀2_bt.Visible = True : 查詢_bt.Visible = True : Else : 重讀2_bt.Visible = False : 查詢_bt.Visible = False : End If
+        If gUserName = "李協叡" Then : 重讀2_bt.Visible = True : 查詢_bt.Visible = True : 扣除狀態_ch.Enabled = True
+        Else : 重讀2_bt.Visible = False : 查詢_bt.Visible = False : 扣除狀態_ch.Enabled = False : End If
         Dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
         Dgv1.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
         階級津貼_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
         Dgv.BringToFront() : Set_薪資計算() : Set_分頁()
     End Sub
     Private Sub 比對後_bt_Click(sender As Object, e As EventArgs) Handles 比對後_bt.Click
-        SQL_確認A碼長照()
-        If dr.Read Then
-            Dgv1.BringToFront() : Set_服務人員1() : 算差額()
-        Else : MsgBox("系統內無長照所A碼資料!!") : End If
+        SQL_確認BA碼長照() : If dr.Read Then
+            SQL_確認A碼長照() : If dr.Read Then : Dgv1.BringToFront() : Set_服務人員1() : 算差額()
+            Else : MsgBox("系統內無長照所A碼資料!!") : End If
+        Else : MsgBox("系統內無長照所BA或SC碼資料!!") : End If
     End Sub
     Private Sub 算差額()
         差異_tb.Text = "0" : SQL2 = "" : SQL_差額刪除()
         Next : MsgBox("係數修改完畢!!") : Set_服務人員()
     End Sub
     Private Sub 存檔3_bt_Click(sender As Object, e As EventArgs) Handles 存檔3_bt.Click
-        PA1 = 年份_cb.Text & 月份_cb.Text : SQL_其他表查詢() : Dim 需要新增 As Boolean = True : If dr.Read Then : 需要新增 = False : End If
+        PA1 = 年份_cb.Text & 月份_cb.Text : SQL_其他表查詢() : Dim 需要新增 As Boolean = True : If dr.Read Then : 需要新增 = False : End If : SQL_彙總表_刪除()
         For i As Integer = 0 To Dgv.Rows.Count - 1
             If 需要新增 = True Then
                 SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells(24).Value & "',
                         WHERE 流水號 LIKE N'" & PA1 & "' AND  姓名 LIKE N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "'"
                 SQL_其他表_修改()
             End If
+            SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells("BA正常").Value & "',
+                     N'" & Dgv.Rows(i).Cells("GA正常").Value & "',N'" & Dgv.Rows(i).Cells("GA加給").Value & "',N'" & Dgv.Rows(i).Cells("AA").Value & "',
+                     N'" & Dgv.Rows(i).Cells("服務津貼").Value & "',N'" & Dgv.Rows(i).Cells("轉場津貼").Value & "',N'" & Dgv.Rows(i).Cells("薪資加項總計").Value & "',
+                     N'" & Dgv.Rows(i).Cells("加班費").Value & "',N'" & Dgv.Rows(i).Cells("加項總計").Value & "',N'" & Dgv.Rows(i).Cells("減項總計").Value & "',
+                     N'" & Dgv.Rows(i).Cells("轉場薪資").Value & "',N'" & Dgv.Rows(i).Cells("平薪資1.34").Value & "',N'" & Dgv.Rows(i).Cells("平薪資1.67").Value & "',
+                     N'" & Dgv.Rows(i).Cells("休薪資1.34").Value & "',N'" & Dgv.Rows(i).Cells("休薪資1.67").Value & "',N'" & Dgv.Rows(i).Cells("國薪資2.00").Value & "',
+                     N'" & Dgv.Rows(i).Cells("公司負擔總計").Value & "',N'" & Dgv.Rows(i).Cells("AA剃除").Value & "',N'" & Dgv.Rows(i).Cells("實際總薪資").Value & "',
+                     N'" & Dgv.Rows(i).Cells("BAORSC仁").Value & "', N'" & Dgv.Rows(i).Cells("AA長短仁").Value & "',N'" & Dgv.Rows(i).Cells("BAORSC").Value & "',
+                     N'" & Dgv.Rows(i).Cells("AA長短").Value & "',N'" & Dgv.Rows(i).Cells("餘額").Value & "',N'" & Dgv.Rows(i).Cells("總服務時數").Value & "',
+                     N'" & Dgv.Rows(i).Cells("總轉場時數").Value & "')"
+            SQL_彙總表_新增()
         Next : MsgBox("薪資表修改完畢!!")
     End Sub
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click

GF00-ERP-SYS/06.業務管理系統/車輛/車輛銷售管理.Designer.vb

         Me.入廠日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.里程_tb = New System.Windows.Forms.TextBox()
         Me.Panel6 = New System.Windows.Forms.Panel()
+        Me.備註1_tb = New System.Windows.Forms.TextBox()
         Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label47 = New System.Windows.Forms.Label()
         Me.Label42 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.應驗車日_dtp = New System.Windows.Forms.DateTimePicker()
         Me.新增_bt = New System.Windows.Forms.Button()
         Me.修改_bt = New System.Windows.Forms.Button()
         Me.只顯示未付款_cb = New System.Windows.Forms.CheckBox()
-        Me.備註1_tb = New System.Windows.Forms.TextBox()
-        Me.Label47 = New System.Windows.Forms.Label()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label2.AutoSize = True
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label2.Location = New System.Drawing.Point(11, 34)
+        Me.Label2.Location = New System.Drawing.Point(11, 30)
         Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(55, 16)
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(171, 34)
+        Me.Label4.Location = New System.Drawing.Point(171, 30)
         Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 1675
-        Me.Label4.Text = "引擎號碼"
+        Me.Label4.Text = "車身號碼"
         '
         '引擎_tb
         '
         Me.隱藏成本_cb.Name = "隱藏成本_cb"
         Me.隱藏成本_cb.Size = New System.Drawing.Size(74, 20)
         Me.隱藏成本_cb.TabIndex = 1746
-        Me.隱藏成本_cb.Text = "隱藏成本"
+        Me.隱藏成本_cb.Text = "顯示成本"
         Me.隱藏成本_cb.UseVisualStyleBackColor = True
         '
         '年_tb
         Me.Panel6.Size = New System.Drawing.Size(696, 62)
         Me.Panel6.TabIndex = 1734
         '
+        '備註1_tb
+        '
+        Me.備註1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.備註1_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.備註1_tb.Location = New System.Drawing.Point(236, 9)
+        Me.備註1_tb.Margin = New System.Windows.Forms.Padding(4)
+        Me.備註1_tb.Multiline = True
+        Me.備註1_tb.Name = "備註1_tb"
+        Me.備註1_tb.Size = New System.Drawing.Size(264, 43)
+        Me.備註1_tb.TabIndex = 1729
+        '
         'Button3
         '
         Me.Button3.BackgroundImage = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.SAVER
         Me.Button3.TabIndex = 1733
         Me.Button3.UseVisualStyleBackColor = True
         '
+        'Label47
+        '
+        Me.Label47.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label47.AutoSize = True
+        Me.Label47.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label47.Location = New System.Drawing.Point(197, 22)
+        Me.Label47.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label47.Name = "Label47"
+        Me.Label47.Size = New System.Drawing.Size(31, 16)
+        Me.Label47.TabIndex = 1730
+        Me.Label47.Text = "備註"
+        '
         'Label42
         '
         Me.Label42.AutoSize = True
         Me.只顯示未付款_cb.Text = "只顯示未付款"
         Me.只顯示未付款_cb.UseVisualStyleBackColor = True
         '
-        '備註1_tb
-        '
-        Me.備註1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.備註1_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.備註1_tb.Location = New System.Drawing.Point(236, 9)
-        Me.備註1_tb.Margin = New System.Windows.Forms.Padding(4)
-        Me.備註1_tb.Multiline = True
-        Me.備註1_tb.Name = "備註1_tb"
-        Me.備註1_tb.Size = New System.Drawing.Size(264, 43)
-        Me.備註1_tb.TabIndex = 1729
-        '
-        'Label47
-        '
-        Me.Label47.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label47.AutoSize = True
-        Me.Label47.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label47.Location = New System.Drawing.Point(197, 22)
-        Me.Label47.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.Label47.Name = "Label47"
-        Me.Label47.Size = New System.Drawing.Size(31, 16)
-        Me.Label47.TabIndex = 1730
-        Me.Label47.Text = "備註"
-        '
         '車輛銷售管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.新增_bt)
         Me.Controls.Add(Me.修改_bt)
-        Me.Controls.Add(Me.Panel6)
         Me.Controls.Add(Me.Label0)
         Me.Controls.Add(Me.單號_tb)
         Me.Controls.Add(Me.控制表_dgv)
         Me.Controls.Add(Me.Panel4)
         Me.Controls.Add(Me.Panel5)
         Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel6)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "車輛銷售管理"

GF00-ERP-SYS/06.業務管理系統/車輛/車輛銷售管理.vb

             明細表1_dgv.Columns(9).Visible = 300 : 明細表1_dgv.Columns(10).Visible = False : 明細表1_dgv.Columns(11).Visible = False
             明細表1_dgv.Columns(12).FillWeight = 60 : 明細表1_dgv.Columns(13).Visible = 100
             If 隱藏成本_cb.Checked = True Then
-                明細表1_dgv.Columns(4).Visible = False
-                明細表1_dgv.Columns(6).Visible = False
-                明細表1_dgv.Columns(8).Visible = False
-            Else
                 明細表1_dgv.Columns(4).FillWeight = 100 : 明細表1_dgv.Columns(6).FillWeight = 100 : 明細表1_dgv.Columns(8).Visible = 100
                 明細表1_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.##"
                 明細表1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.##"
                 明細表1_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                 明細表1_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                 明細表1_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            Else
+                明細表1_dgv.Columns(4).Visible = False
+                明細表1_dgv.Columns(6).Visible = False
+                明細表1_dgv.Columns(8).Visible = False
             End If
             明細表1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.##" : 明細表1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##"
             明細表1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
         Set_日期格式轉換() : Dim NUM1 As Integer
         新增_bt.Enabled = False : 確認新增_bt.Enabled = True : 修改_bt.Enabled = False
+        入廠日期_dtp.Value = DTP4
         For i As Integer = 1 To 999
             NUM1 = 0 + i
             If NUM1 < 10 Then : 單號_tb.Text = "CR-" & DTP1 & "-00" & NUM1

GF00-ERP-SYS/09.資料庫系統管理/系統使用者管理.Designer.vb

         '
         Me.CheckBox75.AutoSize = True
         Me.CheckBox75.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox75.Location = New System.Drawing.Point(797, 171)
+        Me.CheckBox75.Location = New System.Drawing.Point(27, 214)
         Me.CheckBox75.Name = "CheckBox75"
-        Me.CheckBox75.Size = New System.Drawing.Size(145, 20)
+        Me.CheckBox75.Size = New System.Drawing.Size(181, 20)
         Me.CheckBox75.TabIndex = 430
-        Me.CheckBox75.Text = "應付賬款控制表-CC75"
+        Me.CheckBox75.Text = "拆帳制薪資成本分析表-CC75"
         Me.CheckBox75.UseVisualStyleBackColor = True
         '
         'CheckBox74
         '
         Me.CheckBox74.AutoSize = True
         Me.CheckBox74.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox74.Location = New System.Drawing.Point(797, 153)
+        Me.CheckBox74.Location = New System.Drawing.Point(27, 188)
         Me.CheckBox74.Name = "CheckBox74"
-        Me.CheckBox74.Size = New System.Drawing.Size(145, 20)
+        Me.CheckBox74.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox74.TabIndex = 429
-        Me.CheckBox74.Text = "應收帳款控制表-CC74"
+        Me.CheckBox74.Text = "拆帳制薪資匯總表-CC74"
         Me.CheckBox74.UseVisualStyleBackColor = True
         '
         'CheckBox32
         Me.Panel1.Controls.Add(Me.CheckBox111)
         Me.Panel1.Controls.Add(Me.CheckBox79)
         Me.Panel1.Controls.Add(Me.CheckBox89)
-        Me.Panel1.Controls.Add(Me.CheckBox75)
         Me.Panel1.Controls.Add(Me.CheckBox45)
         Me.Panel1.Controls.Add(Me.CheckBox78)
         Me.Panel1.Controls.Add(Me.Label10)
         Me.Panel1.Controls.Add(Me.CheckBox21)
-        Me.Panel1.Controls.Add(Me.CheckBox74)
         Me.Panel1.Controls.Add(Me.CheckBox19)
         Me.Panel1.Controls.Add(Me.CheckBox39)
         Me.Panel1.Controls.Add(Me.CheckBox44)
         Me.TabPage8.Controls.Add(Me.CheckBox61)
         Me.TabPage8.Controls.Add(Me.CheckBox15)
         Me.TabPage8.Controls.Add(Me.CheckBox16)
+        Me.TabPage8.Controls.Add(Me.CheckBox75)
+        Me.TabPage8.Controls.Add(Me.CheckBox74)
         Me.TabPage8.Location = New System.Drawing.Point(4, 28)
         Me.TabPage8.Name = "TabPage8"
         Me.TabPage8.Padding = New System.Windows.Forms.Padding(3)

GF00-ERP-SYS/09.資料庫系統管理/系統使用者管理.vb

     Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
         ToolTip1.SetToolTip(Me.刪除_bt, "刪除")
     End Sub
-
-
 End Class

GF00-ERP-SYS/GCM-CPV-ERP-SYS.Designer.vb

         Me.考勤文件導入_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.薪資試算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
+        Me.拆帳制薪資彙總表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統權限預設表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
-        Me.拆帳制薪資彙總表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.拆帳制薪資分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip1.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         '人事管理系統_tsm
         '
-        Me.人事管理系統_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.考勤文件導入_tsm, Me.薪資試算表_tsm, Me.ToolStripSeparator7, Me.拆帳制薪資彙總表_tsm})
+        Me.人事管理系統_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.考勤文件導入_tsm, Me.薪資試算表_tsm, Me.ToolStripSeparator7, Me.拆帳制薪資彙總表_tsm, Me.拆帳制薪資分析表_tsm})
         Me.人事管理系統_tsm.Image = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.Personnel1
         Me.人事管理系統_tsm.Name = "人事管理系統_tsm"
         Me.人事管理系統_tsm.Size = New System.Drawing.Size(107, 20)
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
         Me.ToolStripSeparator7.Size = New System.Drawing.Size(179, 6)
         '
+        '拆帳制薪資彙總表_tsm
+        '
+        Me.拆帳制薪資彙總表_tsm.Image = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.Report
+        Me.拆帳制薪資彙總表_tsm.Name = "拆帳制薪資彙總表_tsm"
+        Me.拆帳制薪資彙總表_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.拆帳制薪資彙總表_tsm.Text = "拆帳制薪資彙總表"
+        '
         '資料庫系統管理_tsm
         '
         Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.系統權限預設表_tsm, Me.ToolStripSeparator1, Me.系統組織架構設定_tsm, Me.部門權限設定_tsm, Me.ToolStripSeparator2, Me.系統通用變數管理_tsm, Me.系統編碼規則_tsm, Me.系統對應電腦註冊_tsm, Me.ToolStripSeparator3, Me.系統執行檔版本管理_tsm, Me.簽名檔管理_tsm})
         Me.字體大小調整_lb.TabIndex = 1653
         Me.字體大小調整_lb.Text = "FS"
         '
-        '拆帳制薪資彙總表_tsm
+        '拆帳制薪資分析表_tsm
         '
-        Me.拆帳制薪資彙總表_tsm.Image = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.Report
-        Me.拆帳制薪資彙總表_tsm.Name = "拆帳制薪資彙總表_tsm"
-        Me.拆帳制薪資彙總表_tsm.Size = New System.Drawing.Size(182, 22)
-        Me.拆帳制薪資彙總表_tsm.Text = "拆帳制薪資彙總表"
+        Me.拆帳制薪資分析表_tsm.Image = Global.ICS_ASMS_ERP_SYS.My.Resources.Resources.Report
+        Me.拆帳制薪資分析表_tsm.Name = "拆帳制薪資分析表_tsm"
+        Me.拆帳制薪資分析表_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.拆帳制薪資分析表_tsm.Text = "拆帳制薪資分析表"
         '
         'ICS_ASMS_ERP_SYS
         '
     Friend WithEvents 感謝狀_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
     Friend WithEvents 拆帳制薪資彙總表_tsm As ToolStripMenuItem
+    Friend WithEvents 拆帳制薪資分析表_tsm As ToolStripMenuItem
 End Class

GF00-ERP-SYS/GCM-CPV-ERP-SYS.vb

         燈位基本資料_tsm.Visible = CC(24) : 自動點燈_tsm.Visible = CC(24)
         If gUserName = "李協叡" Then : 感謝狀_tsm.Visible = True : Else : 感謝狀_tsm.Visible = False : End If
         '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
-        人事管理系統_tsm.Visible = CC(114) : 考勤文件導入_tsm.Visible = CC(18) : 薪資試算表_tsm.Visible = CC(32) : 拆帳制薪資彙總表_tsm.Visible = CC(32)
+        人事管理系統_tsm.Visible = CC(114) : 考勤文件導入_tsm.Visible = CC(18) : 薪資試算表_tsm.Visible = CC(32) : 拆帳制薪資彙總表_tsm.Visible = CC(74)
+        拆帳制薪資分析表_tsm.Visible = CC(75)
         '----
         載入系統語言()
         Dim filePath As String = Path.Combine(Application.StartupPath, "NOTAUTO.txt")
         'For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         重置() : 拆帳制薪資試算表.Show() : 拆帳制薪資會總表.Show() : 拆帳制薪資會總表.BringToFront()
     End Sub
+    Private Sub 拆帳制薪資分析表_tsm_Click(sender As Object, e As EventArgs) Handles 拆帳制薪資分析表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        重置() : 拆帳制薪資分析表.Show() : 拆帳制薪資分析表.BringToFront()
+    End Sub
 End Class

GF00-ERP-SYS/GF00-ERP-SYS.vbproj

     <Compile Include="01.人事系統管理\拆帳制考勤文件導入.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="01.人事系統管理\拆帳制薪資分析表.Designer.vb">
+      <DependentUpon>拆帳制薪資分析表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="01.人事系統管理\拆帳制薪資分析表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="01.人事系統管理\拆帳制薪資會總表.Designer.vb">
       <DependentUpon>拆帳制薪資會總表.vb</DependentUpon>
     </Compile>
     <EmbeddedResource Include="01.人事系統管理\拆帳制考勤文件導入.resx">
       <DependentUpon>拆帳制考勤文件導入.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="01.人事系統管理\拆帳制薪資分析表.resx">
+      <DependentUpon>拆帳制薪資分析表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="01.人事系統管理\拆帳制薪資會總表.resx">
       <DependentUpon>拆帳制薪資會總表.vb</DependentUpon>
     </EmbeddedResource>

GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.CoreCompileInputs.cache

-ea1b079a1ecde0f7c2df0d4e9f6f7abf2af023446445c5db234e4fd349ab9972
+8606d8a1c2ce6825863203a2063078c1b7dafe26c97b48c01ee6e7a3000c3eec

GF00-ERP-SYS/obj/Debug/GF00-ERP-SYS.vbproj.FileListAbsolute.txt

 D:\USER\Downloads\GF00-ERP-SYS-Siu-master\gf00-erp-sys-siu\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.exe
 D:\USER\Downloads\GF00-ERP-SYS-Siu-master\gf00-erp-sys-siu\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.xml
 D:\USER\Downloads\GF00-ERP-SYS-Siu-master\gf00-erp-sys-siu\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.Runtime.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.Runtime.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.Runtime.xml
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\chrome_100_percent.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\chrome_200_percent.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\chrome_elf.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\d3dcompiler_47.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\icudtl.dat
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\libcef.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\libEGL.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\libGLESv2.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\LICENSE.txt
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\af.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\am.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ar.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\bg.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\bn.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ca.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\cs.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\da.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\de.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\el.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\en-GB.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\en-US.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\es-419.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\es.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\et.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fa.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fi.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fil.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fr.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\gu.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\he.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\hi.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\hr.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\hu.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\id.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\it.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ja.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\kn.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ko.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\lt.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\lv.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ml.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\mr.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ms.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\nb.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\nl.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\pl.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\pt-BR.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\pt-PT.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ro.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ru.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sk.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sl.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sr.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sv.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sw.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ta.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\te.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\th.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\tr.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\uk.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ur.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\vi.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\zh-CN.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\zh-TW.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\README.txt
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\resources.pak
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\snapshot_blob.bin
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\v8_context_snapshot.bin
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\vk_swiftshader.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\vk_swiftshader_icd.json
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\vulkan-1.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.Core.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.Core.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.exe
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.exe.config
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.exe
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.xml
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.WinForms.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\DotNetBarcode.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\MediaFoundation.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\Microsoft.Toolkit.Uwp.Notifications.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.IO.Pipelines.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.ValueTuple.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Memory.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Threading.Tasks.Extensions.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Buffers.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Numerics.Vectors.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.xml
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.xml
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.WinForms.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.WinForms.xml
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.AssemblyReference.cache
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\Interop.ACTIVEXLib.dll
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.ResolveComReference.cache
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制考勤文件導入.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制薪資試算表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.供應商類別管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.物料供應商.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.倉儲對帳表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.倉儲明細表查詢.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.物料入庫系統.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.物料資料庫.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.匯率管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.會計科目管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_對帳表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_收支單一覽表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_收支單審核.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_收支單申請.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_決算表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_流動資產申請.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_選擇帳本.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.信眾燈位編輯.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.快速加入.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.感謝狀.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.排序選擇.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.查看燈位.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.燈位基本資料.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.燈種編輯.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.自動點燈系統.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.估價單.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.信眾資料表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.車輛銷售報表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.客戶資料表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.車輛銷售管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.連動模組.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.點燈系統.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.公告.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.文件.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.疏文.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.簽呈.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.公函.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.簽名檔管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統使用者管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統執行檔版本管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統對應電腦註冊.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統權限預設表.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統組織架構設定.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統編碼規則.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統通用變數管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.部門權限設定.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.下拉清單_1.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.下拉清單_2.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.個人帳號管理.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.圖片放大視窗.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.查詢視窗.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.測試頁面.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.線路選擇.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.輸入密碼.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.輸入視窗.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.退出.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.通知視窗.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.鎖定視窗.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.ICS_ASMS_ERP_SYS.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.Resources.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.登入畫面.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統選擇.resources
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.GenerateResource.cache
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.exe.licenses
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.CoreCompileInputs.cache
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP.CC31A059.Up2Date
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.exe
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.xml
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.pdb
-D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制薪資會總表.resources
 D:\gf00-erp-sys-leehsiehjui\GF00-ERP-SYS\bin\Debug\chrome_100_percent.pak
 D:\gf00-erp-sys-leehsiehjui\GF00-ERP-SYS\bin\Debug\chrome_200_percent.pak
 D:\gf00-erp-sys-leehsiehjui\GF00-ERP-SYS\bin\Debug\chrome_elf.dll
 D:\使用者\下載\GF-ERP-SYS-SIU-master\gf-erp-sys-siu\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.exe
 D:\使用者\下載\GF-ERP-SYS-SIU-master\gf-erp-sys-siu\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.xml
 D:\使用者\下載\GF-ERP-SYS-SIU-master\gf-erp-sys-siu\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.Runtime.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.Runtime.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.Runtime.xml
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\chrome_100_percent.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\chrome_200_percent.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\chrome_elf.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\d3dcompiler_47.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\icudtl.dat
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\libcef.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\libEGL.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\libGLESv2.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\LICENSE.txt
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\af.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\am.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ar.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\bg.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\bn.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ca.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\cs.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\da.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\de.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\el.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\en-GB.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\en-US.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\es-419.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\es.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\et.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fa.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fi.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fil.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\fr.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\gu.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\he.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\hi.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\hr.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\hu.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\id.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\it.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ja.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\kn.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ko.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\lt.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\lv.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ml.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\mr.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ms.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\nb.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\nl.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\pl.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\pt-BR.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\pt-PT.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ro.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ru.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sk.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sl.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sr.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sv.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\sw.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ta.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\te.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\th.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\tr.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\uk.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\ur.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\vi.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\zh-CN.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\locales\zh-TW.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\README.txt
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\resources.pak
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\snapshot_blob.bin
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\v8_context_snapshot.bin
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\vk_swiftshader.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\vk_swiftshader_icd.json
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\vulkan-1.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.Core.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.Core.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.exe
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.BrowserSubprocess.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.exe.config
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.exe
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\GF00-ERP-SYS.xml
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.WinForms.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\DotNetBarcode.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\MediaFoundation.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\Microsoft.Toolkit.Uwp.Notifications.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.IO.Pipelines.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.ValueTuple.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Memory.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Threading.Tasks.Extensions.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Buffers.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\System.Numerics.Vectors.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.xml
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.Core.xml
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.WinForms.pdb
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\bin\Debug\CefSharp.WinForms.xml
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.AssemblyReference.cache
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\Interop.ACTIVEXLib.dll
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.ResolveComReference.cache
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制考勤文件導入.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制薪資分析表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制薪資會總表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.拆帳制薪資試算表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.供應商類別管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.物料供應商.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.倉儲對帳表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.倉儲明細表查詢.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.物料入庫系統.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.物料資料庫.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.匯率管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.會計科目管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_對帳表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_收支單一覽表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_收支單審核.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_收支單申請.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_決算表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_流動資產申請.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.財務_選擇帳本.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.信眾燈位編輯.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.快速加入.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.感謝狀.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.排序選擇.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.查看燈位.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.燈位基本資料.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.燈種編輯.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.自動點燈系統.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.估價單.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.信眾資料表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.車輛銷售報表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.客戶資料表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.車輛銷售管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.連動模組.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.點燈系統.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.公告.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.文件.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.疏文.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.簽呈.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.公函.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.簽名檔管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統使用者管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統執行檔版本管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統對應電腦註冊.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統權限預設表.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統組織架構設定.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統編碼規則.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統通用變數管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.部門權限設定.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.下拉清單_1.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.下拉清單_2.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.個人帳號管理.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.圖片放大視窗.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.查詢視窗.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.測試頁面.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.線路選擇.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.輸入密碼.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.輸入視窗.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.退出.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.通知視窗.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.鎖定視窗.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.ICS_ASMS_ERP_SYS.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.Resources.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.登入畫面.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\ICS_ASMS_ERP_SYS.系統選擇.resources
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.GenerateResource.cache
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.exe.licenses
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP.CC31A059.Up2Date
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.exe
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.xml
+D:\工巧明\GF通用系統\GF00-ERP-SYS\GF00-ERP-SYS\obj\Debug\GF00-ERP-SYS.pdb