20240511備份

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

@@ -0,0 +1,184 @@
+{
+  "Version": 1,
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\",
+  "Documents": [
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ga\u5E33\u52D9\u901A\u7528erp\\ga-erp-sys\\ga-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    }
+  ],
+  "DocumentGroupContainers": [
+    {
+      "Orientation": 0,
+      "VerticalTabListWidth": 256,
+      "DocumentGroups": [
+        {
+          "DockedWidth": 200,
+          "SelectedChildIndex": 10,
+          "Children": [
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "\u7D19\u677F\u5E33\u52D9.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
+              "ViewState": "AQIAAJIAAAAAAAAAAAA9wKMAAAAxAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T07:06:04.968Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 5,
+              "Title": "\u7D19\u677F\u5E33\u52D9.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T07:06:01.742Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 8,
+              "Title": "\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T06:18:16.051Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 6,
+              "Title": "\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "ViewState": "AQIAAJcDAAAAAAAAAAAcwNgDAAB6AAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T05:58:56.37Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
+              "Title": "\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T05:58:42.962Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "ViewState": "AQIAADoAAAAAAAAAAAAMwEMAAAAVAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T05:28:11.401Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T05:55:50.342Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 9,
+              "Title": "SQL_Module.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_Module.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_Module.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_Module.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_Module.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAkAAAAhAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T03:54:16.497Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ViewState": "AQIAAPMDAAAAAAAAAAApwJkEAAAaAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-06T03:49:48.348Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 0,
+              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAABAwAkAAAAlAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-02T13:20:38.003Z",
+              "EditorCaption": ""
+            }
+          ]
+        }
+      ]
+    }
+  ]
+}

GA-ERP-SYS/GA-ERP-SYS-Old.Designer.vb

@@ -99,11 +99,13 @@ Partial Class GA_ERP_SYS_Old
         Me.網址_dgv = New System.Windows.Forms.DataGridView()
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
+        Me.使用者清單_dgv = New System.Windows.Forms.DataGridView()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.總網址_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.網址_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'MenuStrip
@@ -606,6 +608,22 @@ Partial Class GA_ERP_SYS_Old
         '
         Me.Timer3.Interval = 1000
         '
+        '使用者清單_dgv
+        '
+        Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.使用者清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.使用者清單_dgv.Location = New System.Drawing.Point(338, 42)
+        Me.使用者清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.使用者清單_dgv.Name = "使用者清單_dgv"
+        Me.使用者清單_dgv.RowHeadersWidth = 5
+        Me.使用者清單_dgv.RowTemplate.Height = 24
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(675, 610)
+        Me.使用者清單_dgv.TabIndex = 1555
+        Me.使用者清單_dgv.Visible = False
+        '
         'GA_ERP_SYS_Old
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -613,6 +631,7 @@ Partial Class GA_ERP_SYS_Old
         Me.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.depositphotos_189846782_stock_illustration_ga_g_a_letter_logo
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.ClientSize = New System.Drawing.Size(1350, 729)
+        Me.Controls.Add(Me.使用者清單_dgv)
         Me.Controls.Add(Me.網址_dgv)
         Me.Controls.Add(Me.總網址_dgv)
         Me.Controls.Add(Me.除錯_dgv)
@@ -634,6 +653,7 @@ Partial Class GA_ERP_SYS_Old
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.總網址_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.網址_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -709,4 +729,5 @@ Partial Class GA_ERP_SYS_Old
     Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
     Friend WithEvents 系統公告_tsm As ToolStripMenuItem
     Friend WithEvents Timer3 As Timer
+    Friend WithEvents 使用者清單_dgv As DataGridView
 End Class

GA-ERP-SYS/GA-ERP-SYS-Old.vb

@@ -69,6 +69,16 @@ Public Class GA_ERP_SYS_Old
         SQL_網址同步2()
         da.Fill(ds3) : 網址_dgv.DataSource = ds3.Tables(0) : conn.Close()
     End Sub
+    Private Sub Set_使用者清單()
+        Dim ds, ds1 As New DataSet
+        使用者清單_dgv.DataSource = Nothing : ds.Clear()
+        使用者清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        使用者清單_dgv.ColumnHeadersHeight = 25
+        使用者清單_dgv.AllowUserToAddRows = False
+        使用者清單_dgv.RowTemplate.Height = 25
+        SQL_系統使用者管理清單()
+        da.Fill(ds) : 使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+    End Sub
     Private Sub GA_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.ActiveControl = 使用者_cb : 本機資料 = False
         '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -185,7 +195,27 @@ Public Class GA_ERP_SYS_Old
         BL1 = True : BL2 = True : BL3 = True : BL4 = True : BL5 = True : BL6 = True : BL7 = True : BL8 = True : BL9 = True
         SQL_帳務總累預設()
 
-        If 剩餘天數 <= 10 Then : MsgBox("您的使用天數還有 " & 剩餘天數 & " 天，請記得續費!!") : End If
+        If 剩餘天數 <= 15 Then : MsgBox("您的使用天數還有 " & 剩餘天數 & " 天，請記得續費!!") : End If
+        Set_使用者清單() : Dim FFGG As Integer : Dim LINEMG As String = ""
+        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+            FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
+            If FFGG <= 15 And FFGG > 0 Then
+                LINEMG &= 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString & " 到期日為 " & 使用者清單_dgv.Rows(i).Cells("到期日").Value.ToString & " 剩餘  " & FFGG & " 天" & vbCrLf
+            End If
+        Next : If LINEMG = "" Then : LINEMG = "暫時無租用到期客戶!!" & vbCrLf : End If : LINEMG &= "=================" & vbCrLf : Dim 畫線 As Boolean = False
+        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+            FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
+            If FFGG > 0 And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "管理員" And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "管理員" And
+                使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "混和測試" And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "單項測試" And
+                使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "顧叔-後台專用" And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "雇叔" Then
+                If 使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString <> "" Then : If 畫線 = False Then : LINEMG &= "=================" & vbCrLf : 畫線 = True : End If
+                    LINEMG &= 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString & " 上次登入 " & Strings.Mid(使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString, 1, 16) & vbCrLf
+                Else
+                    LINEMG &= 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString & " 到期日為 " & Strings.Mid(使用者清單_dgv.Rows(i).Cells("到期日").Value.ToString, 1, 16) & vbCrLf
+                End If
+            End If
+        Next
+        If LINEMG <> "" Then : SQL_判斷是否已經通知() : If dr.Read Then : Else : LIN訊息通知("CC207", "GA系統通知", LINEMG) : SQL_到期LINE通知寫入() : End If : End If
     End Sub
     Private Sub GA_ERP_SYS_Close()
         '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -275,11 +305,12 @@ Public Class GA_ERP_SYS_Old
                 Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                     Dim str As String = "8888,"
                     Dim str1 As String = 業務名稱 & ","
-                    If IP印尼 = True Then
-                        str0 = "831aa853c13b6bee0385f4e92a6b159537aa5d993a13e3eb91f0f07d90360ac89d832f265ea934a7306aff174a50f2399df56113459686fadbaac6717dba2740e6ac926693fec2830f1538e10d3f2ac827c1e0974b3041aaf512f4adc0a230133cb2dc3360acde726883a570b5ef8f3676f9f649b6f5b5b0a6763066ac02e6dc8c822152481b202221a7e09ea98914617484a85e7cd39d3305b8bc0de314c261d885c22ca7417987bfaa03b60b505b732fca7ce12d7554370d707ac745937cb6d066fce2f340ea374b1f283c659f1caa5b249d8628ed0cd0f24e668d1433c12aed4cd8080e2e1decf402f4ae1a8a7c9414d727f8ad91e567a08ec136fd86e9e5605d973eff20cf84e18ace9f04c09583696f30e4a359fb18cd5cecfe474ab3ebca484506bd1fe041924fd42ca340be33b60254d247c9b9c988aeb3a58ef930f3a3491665d66a79d1732ee3d5b0df160f7947e321ab8dfb9bd99b7ed8bdd7ce1315baa70c33342336c263974be6c8c552e1dfb196c44b4c4394e0ec33f63f34b4552bdac39c77c666fe6af0b5d7d10391b24ee8bacc5b43f6eacdc4e397ec5dab0b5986300437ce3c45035e45ebcec355f54cfa788f1347e45c06b8dbf35354cc6fb5c298468281af2777182874957ffc7a62b10e14dd449471758d73f59e738f123dfcdbb1e09d8a02debb08ac056b7a207ed18f55439c9c4a2ffa4e9635f022" & ","
-                    Else
-                        str0 = "4a915d641225afdf259206cacfa8e151b1133f89a801322064de952c98740793da2389fb35f8eb1db09846d6404cd20d9d7345df7786a62dee00bfd437a051e1d80cd07c4e33ce32e2badc16c96b9e9cf1025930177431ebc3b3817d984f45c326f0b331385a7c8afaa82be9779dbf5f3a614d2044d25a1d2c2f9f75ad208dfb211c19f490ca591dc57e8a11f99343e9b141a86c101e9e005252dc62882df046690b40de03b39ad46991706c224f195de6ef212776c55487cf2df0f3dd2774b08d95b864f31ac6d34cb42b05c062741fdae4187f2a3e885781f8f3b569309d25f25eef36c1dfe46a24f56236242303c02ef5648278cebcfaef8c09ba4735a518bc1b678bb63efddfb38f7a7d93961a27eb3fe5783efbca1136c1e2f6925e9d9848eaafd93b7153c7a19c8be6f34a215677345b8f03ead04ad7ab4df2b56b57251ee7671f44d8c6a4e56d9abe213a659e8351667e05bf02999c69cf952cd49b85f25fc29fb44b478bff5c1a842fd536398cdf65a4c64bb098acd4deb70c11976746e7663114b5025563518759f080b50aa046774e81f21051b1663dbbdd69028464d209b8a7950d60461108fef39f756a591df85d4adacbdaee1c3b32b9d450e2f707e2566bdf4fc1cd5ffaa86ad90746427a787b15055d441f08f1f6de61f486fa0bb88a4b5884c8b4810b582a1817fb271e323faf68e70786a3e48694a6c902" & ","
-                    End If
+                    str0 = "5ac2ac324f9c548425d3bdea8fb8a78b55e80188461e4995092c6725c9706138d1c12d787788a5765e852cf436918711f91534a860240265500d4e1e6084c590a3a5fbb7a1b409e2a8f2a402a48584c279a198eb1971c0075a9a4e4af9e243866cbe71266fb1f2be9e4a8c808e93ef6abb29b1e72aaa3d6cc68c6c59485c012ad904723d35cfb44fc65f56413db73c5a2cedf14a2c30fcb30f60868fa92f3ec1651b125bcecf54145056c0d3935c691dd50fe36c3378ff0b69feb498e443f674aa1c3c2e62ab783afde3b1f74f6bd6e6eff03da70b38c78ec7b721a068b92e3ae1d01dee08e9c16be5da5f621fc618dbfa5104188de76b5c1dcb1b20223e10fd3a6b8d342aff3d26ada5538b2602233b45f55c7be64de8fc662e65b25dcfdf776e5771c11d08f0c233b63bef1c4b7401aaee7ee32107c6563204ee1d21118726301943bb394911c571e8c8bb52cd21429715f1a978164814fa818612daa5cff068683e86d36da4b29db235cdcdcbdda0098950b4f0b1c69e05bb8ff6b7df10c4b16959a47c8506086d7cb281742f7a02693a947b5e8175bf3567c60db8ccfeb5893c2e5d9d0e47b9388325892d9e0c93e257789117f82119aa4d4faa13ac537755548de3c9a1e10500d81b94f73d2ce9f03af1926b93817904c6e1bf055d2919bf79c081e9b1e456505d41541f1f918aec70f5a8b64556c5546cdfc42e30a0fc" & ","
+                    'If IP印尼 = True Then
+                    '    str0 = "831aa853c13b6bee0385f4e92a6b159537aa5d993a13e3eb91f0f07d90360ac89d832f265ea934a7306aff174a50f2399df56113459686fadbaac6717dba2740e6ac926693fec2830f1538e10d3f2ac827c1e0974b3041aaf512f4adc0a230133cb2dc3360acde726883a570b5ef8f3676f9f649b6f5b5b0a6763066ac02e6dc8c822152481b202221a7e09ea98914617484a85e7cd39d3305b8bc0de314c261d885c22ca7417987bfaa03b60b505b732fca7ce12d7554370d707ac745937cb6d066fce2f340ea374b1f283c659f1caa5b249d8628ed0cd0f24e668d1433c12aed4cd8080e2e1decf402f4ae1a8a7c9414d727f8ad91e567a08ec136fd86e9e5605d973eff20cf84e18ace9f04c09583696f30e4a359fb18cd5cecfe474ab3ebca484506bd1fe041924fd42ca340be33b60254d247c9b9c988aeb3a58ef930f3a3491665d66a79d1732ee3d5b0df160f7947e321ab8dfb9bd99b7ed8bdd7ce1315baa70c33342336c263974be6c8c552e1dfb196c44b4c4394e0ec33f63f34b4552bdac39c77c666fe6af0b5d7d10391b24ee8bacc5b43f6eacdc4e397ec5dab0b5986300437ce3c45035e45ebcec355f54cfa788f1347e45c06b8dbf35354cc6fb5c298468281af2777182874957ffc7a62b10e14dd449471758d73f59e738f123dfcdbb1e09d8a02debb08ac056b7a207ed18f55439c9c4a2ffa4e9635f022" & ","
+                    'Else
+                    '    str0 = "4a915d641225afdf259206cacfa8e151b1133f89a801322064de952c98740793da2389fb35f8eb1db09846d6404cd20d9d7345df7786a62dee00bfd437a051e1d80cd07c4e33ce32e2badc16c96b9e9cf1025930177431ebc3b3817d984f45c326f0b331385a7c8afaa82be9779dbf5f3a614d2044d25a1d2c2f9f75ad208dfb211c19f490ca591dc57e8a11f99343e9b141a86c101e9e005252dc62882df046690b40de03b39ad46991706c224f195de6ef212776c55487cf2df0f3dd2774b08d95b864f31ac6d34cb42b05c062741fdae4187f2a3e885781f8f3b569309d25f25eef36c1dfe46a24f56236242303c02ef5648278cebcfaef8c09ba4735a518bc1b678bb63efddfb38f7a7d93961a27eb3fe5783efbca1136c1e2f6925e9d9848eaafd93b7153c7a19c8be6f34a215677345b8f03ead04ad7ab4df2b56b57251ee7671f44d8c6a4e56d9abe213a659e8351667e05bf02999c69cf952cd49b85f25fc29fb44b478bff5c1a842fd536398cdf65a4c64bb098acd4deb70c11976746e7663114b5025563518759f080b50aa046774e81f21051b1663dbbdd69028464d209b8a7950d60461108fef39f756a591df85d4adacbdaee1c3b32b9d450e2f707e2566bdf4fc1cd5ffaa86ad90746427a787b15055d441f08f1f6de61f486fa0bb88a4b5884c8b4810b582a1817fb271e323faf68e70786a3e48694a6c902" & ","
+                    'End If
                     sw.WriteLine(str)   '插入一整行
                     sw.WriteLine(str1)   '第一行
                     sw.Write(str0)   '第二行

GA-ERP-SYS/GA-ERP-SYS.Designer.vb

@@ -24,9 +24,9 @@ Partial Class GA_ERP_SYS
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(GA_ERP_SYS))
         Me.MenuStrip = New System.Windows.Forms.MenuStrip()
         Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem()
@@ -100,11 +100,13 @@ Partial Class GA_ERP_SYS
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
         Me.MyBrowser = New System.Windows.Forms.Panel()
         Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
+        Me.使用者清單_dgv = New System.Windows.Forms.DataGridView()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.總網址_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.網址_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'MenuStrip
@@ -551,8 +553,8 @@ Partial Class GA_ERP_SYS
         '
         '除錯_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.除錯_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -568,8 +570,8 @@ Partial Class GA_ERP_SYS
         '
         '總網址_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.總網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.總網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.總網址_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -585,8 +587,8 @@ Partial Class GA_ERP_SYS
         '
         '網址_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.網址_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -616,6 +618,22 @@ Partial Class GA_ERP_SYS
         '
         Me.Timer3.Interval = 1000
         '
+        '使用者清單_dgv
+        '
+        Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.使用者清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.使用者清單_dgv.Location = New System.Drawing.Point(338, 59)
+        Me.使用者清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.使用者清單_dgv.Name = "使用者清單_dgv"
+        Me.使用者清單_dgv.RowHeadersWidth = 5
+        Me.使用者清單_dgv.RowTemplate.Height = 24
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(675, 610)
+        Me.使用者清單_dgv.TabIndex = 1557
+        Me.使用者清單_dgv.Visible = False
+        '
         'GA_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -632,6 +650,7 @@ Partial Class GA_ERP_SYS
         Me.Controls.Add(Me.StatusStrip)
         Me.Controls.Add(Me.計算機_bt)
         Me.Controls.Add(Me.MenuStrip)
+        Me.Controls.Add(Me.使用者清單_dgv)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.IsMdiContainer = True
         Me.MainMenuStrip = Me.MenuStrip
@@ -645,6 +664,7 @@ Partial Class GA_ERP_SYS
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.總網址_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.網址_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -721,4 +741,5 @@ Partial Class GA_ERP_SYS
     Friend WithEvents 系統公告_tsm As ToolStripMenuItem
     Friend WithEvents MyBrowser As Panel
     Friend WithEvents Timer3 As Timer
+    Friend WithEvents 使用者清單_dgv As DataGridView
 End Class

GA-ERP-SYS/GA-ERP-SYS.vb

@@ -71,6 +71,16 @@ Public Class GA_ERP_SYS
         SQL_網址同步2()
         da.Fill(ds3) : 網址_dgv.DataSource = ds3.Tables(0) : conn.Close()
     End Sub
+    Private Sub Set_使用者清單()
+        Dim ds, ds1 As New DataSet
+        使用者清單_dgv.DataSource = Nothing : ds.Clear()
+        使用者清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        使用者清單_dgv.ColumnHeadersHeight = 25
+        使用者清單_dgv.AllowUserToAddRows = False
+        使用者清單_dgv.RowTemplate.Height = 25
+        SQL_系統使用者管理清單()
+        da.Fill(ds) : 使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+    End Sub
     Private Sub GA_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.ActiveControl = 使用者_cb : 本機資料 = False
         '-----------------------處理檔案-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -187,15 +197,34 @@ Public Class GA_ERP_SYS
 
         BL1 = True : BL2 = True : BL3 = True : BL4 = True : BL5 = True : BL6 = True : BL7 = True : BL8 = True : BL9 = True
         SQL_帳務總累預設()
-
-        If 剩餘天數 <= 10 Then : MsgBox("您的使用天數還有 " & 剩餘天數 & " 天，請記得續費!!") : End If
         Timer3.Enabled = True
-
         '--------新帳號基本資料新增---------------------------------------------------------------------------------------------------
         SQL_上行清單讀取() : If dr.Read() Then : Else : SQL_基數資料表_新增() : End If
         SQL_自動正負反() : If dr.Read() Then : Else : SQL_SQL_自動導入判斷_新增() : End If
         SQL_下拉資料清單讀取() : If dr.Read() Then : Else : SQL_SQL_自動導入判斷_新增() : End If
         進度條視窗.Show() : 進度條視窗.Visible = False
+
+        If 剩餘天數 <= 15 Then : MsgBox("您的使用天數還有 " & 剩餘天數 & " 天，請記得續費!!") : End If
+        Set_使用者清單() : Dim FFGG As Integer : Dim LINEMG As String = ""
+        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+            FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
+            If FFGG <= 15 And FFGG > 0 Then
+                LINEMG &= 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString & " 到期日為 " & 使用者清單_dgv.Rows(i).Cells("到期日").Value.ToString & " 剩餘  " & FFGG & " 天" & vbCrLf
+            End If
+        Next : If LINEMG = "" Then : LINEMG = "暫時無租用到期客戶!!" & vbCrLf : End If : LINEMG &= "=================" & vbCrLf : Dim 畫線 As Boolean = False
+        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+            FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
+            If FFGG > 0 And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "管理員" And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "管理員" And
+                使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "混和測試" And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "單項測試" And
+                使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "顧叔-後台專用" And 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString <> "雇叔" Then
+                If 使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString <> "" Then : If 畫線 = False Then : LINEMG &= "=================" & vbCrLf : 畫線 = True : End If
+                    LINEMG &= 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString & " 上次登入 " & Strings.Mid(使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString, 1, 16) & vbCrLf
+                Else
+                    LINEMG &= 使用者清單_dgv.Rows(i).Cells("備註").Value.ToString & " 到期日為 " & Strings.Mid(使用者清單_dgv.Rows(i).Cells("到期日").Value.ToString, 1, 16) & vbCrLf
+                End If
+            End If
+        Next
+        If LINEMG <> "" Then : SQL_判斷是否已經通知() : If dr.Read Then : Else : LIN訊息通知("CC207", "GA系統通知", LINEMG) : SQL_到期LINE通知寫入() : End If : End If
     End Sub
     Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
         If 系統公告 Is Nothing OrElse 系統公告.IsDisposed Then : Else : 系統公告.BringToFront() : End If
@@ -312,11 +341,12 @@ Public Class GA_ERP_SYS
                 Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                     Dim str As String = "8888,"
                     Dim str1 As String = 業務名稱 & ","
-                    If IP印尼 = True Then
-                        str0 = "831aa853c13b6bee0385f4e92a6b159537aa5d993a13e3eb91f0f07d90360ac89d832f265ea934a7306aff174a50f2399df56113459686fadbaac6717dba2740e6ac926693fec2830f1538e10d3f2ac827c1e0974b3041aaf512f4adc0a230133cb2dc3360acde726883a570b5ef8f3676f9f649b6f5b5b0a6763066ac02e6dc8c822152481b202221a7e09ea98914617484a85e7cd39d3305b8bc0de314c261d885c22ca7417987bfaa03b60b505b732fca7ce12d7554370d707ac745937cb6d066fce2f340ea374b1f283c659f1caa5b249d8628ed0cd0f24e668d1433c12aed4cd8080e2e1decf402f4ae1a8a7c9414d727f8ad91e567a08ec136fd86e9e5605d973eff20cf84e18ace9f04c09583696f30e4a359fb18cd5cecfe474ab3ebca484506bd1fe041924fd42ca340be33b60254d247c9b9c988aeb3a58ef930f3a3491665d66a79d1732ee3d5b0df160f7947e321ab8dfb9bd99b7ed8bdd7ce1315baa70c33342336c263974be6c8c552e1dfb196c44b4c4394e0ec33f63f34b4552bdac39c77c666fe6af0b5d7d10391b24ee8bacc5b43f6eacdc4e397ec5dab0b5986300437ce3c45035e45ebcec355f54cfa788f1347e45c06b8dbf35354cc6fb5c298468281af2777182874957ffc7a62b10e14dd449471758d73f59e738f123dfcdbb1e09d8a02debb08ac056b7a207ed18f55439c9c4a2ffa4e9635f022" & ","
-                    Else
-                        str0 = "4a915d641225afdf259206cacfa8e151b1133f89a801322064de952c98740793da2389fb35f8eb1db09846d6404cd20d9d7345df7786a62dee00bfd437a051e1d80cd07c4e33ce32e2badc16c96b9e9cf1025930177431ebc3b3817d984f45c326f0b331385a7c8afaa82be9779dbf5f3a614d2044d25a1d2c2f9f75ad208dfb211c19f490ca591dc57e8a11f99343e9b141a86c101e9e005252dc62882df046690b40de03b39ad46991706c224f195de6ef212776c55487cf2df0f3dd2774b08d95b864f31ac6d34cb42b05c062741fdae4187f2a3e885781f8f3b569309d25f25eef36c1dfe46a24f56236242303c02ef5648278cebcfaef8c09ba4735a518bc1b678bb63efddfb38f7a7d93961a27eb3fe5783efbca1136c1e2f6925e9d9848eaafd93b7153c7a19c8be6f34a215677345b8f03ead04ad7ab4df2b56b57251ee7671f44d8c6a4e56d9abe213a659e8351667e05bf02999c69cf952cd49b85f25fc29fb44b478bff5c1a842fd536398cdf65a4c64bb098acd4deb70c11976746e7663114b5025563518759f080b50aa046774e81f21051b1663dbbdd69028464d209b8a7950d60461108fef39f756a591df85d4adacbdaee1c3b32b9d450e2f707e2566bdf4fc1cd5ffaa86ad90746427a787b15055d441f08f1f6de61f486fa0bb88a4b5884c8b4810b582a1817fb271e323faf68e70786a3e48694a6c902" & ","
-                    End If
+                    str0 = "5ac2ac324f9c548425d3bdea8fb8a78b55e80188461e4995092c6725c9706138d1c12d787788a5765e852cf436918711f91534a860240265500d4e1e6084c590a3a5fbb7a1b409e2a8f2a402a48584c279a198eb1971c0075a9a4e4af9e243866cbe71266fb1f2be9e4a8c808e93ef6abb29b1e72aaa3d6cc68c6c59485c012ad904723d35cfb44fc65f56413db73c5a2cedf14a2c30fcb30f60868fa92f3ec1651b125bcecf54145056c0d3935c691dd50fe36c3378ff0b69feb498e443f674aa1c3c2e62ab783afde3b1f74f6bd6e6eff03da70b38c78ec7b721a068b92e3ae1d01dee08e9c16be5da5f621fc618dbfa5104188de76b5c1dcb1b20223e10fd3a6b8d342aff3d26ada5538b2602233b45f55c7be64de8fc662e65b25dcfdf776e5771c11d08f0c233b63bef1c4b7401aaee7ee32107c6563204ee1d21118726301943bb394911c571e8c8bb52cd21429715f1a978164814fa818612daa5cff068683e86d36da4b29db235cdcdcbdda0098950b4f0b1c69e05bb8ff6b7df10c4b16959a47c8506086d7cb281742f7a02693a947b5e8175bf3567c60db8ccfeb5893c2e5d9d0e47b9388325892d9e0c93e257789117f82119aa4d4faa13ac537755548de3c9a1e10500d81b94f73d2ce9f03af1926b93817904c6e1bf055d2919bf79c081e9b1e456505d41541f1f918aec70f5a8b64556c5546cdfc42e30a0fc" & ","
+                    'If IP印尼 = True Then
+                    '    str0 = "831aa853c13b6bee0385f4e92a6b159537aa5d993a13e3eb91f0f07d90360ac89d832f265ea934a7306aff174a50f2399df56113459686fadbaac6717dba2740e6ac926693fec2830f1538e10d3f2ac827c1e0974b3041aaf512f4adc0a230133cb2dc3360acde726883a570b5ef8f3676f9f649b6f5b5b0a6763066ac02e6dc8c822152481b202221a7e09ea98914617484a85e7cd39d3305b8bc0de314c261d885c22ca7417987bfaa03b60b505b732fca7ce12d7554370d707ac745937cb6d066fce2f340ea374b1f283c659f1caa5b249d8628ed0cd0f24e668d1433c12aed4cd8080e2e1decf402f4ae1a8a7c9414d727f8ad91e567a08ec136fd86e9e5605d973eff20cf84e18ace9f04c09583696f30e4a359fb18cd5cecfe474ab3ebca484506bd1fe041924fd42ca340be33b60254d247c9b9c988aeb3a58ef930f3a3491665d66a79d1732ee3d5b0df160f7947e321ab8dfb9bd99b7ed8bdd7ce1315baa70c33342336c263974be6c8c552e1dfb196c44b4c4394e0ec33f63f34b4552bdac39c77c666fe6af0b5d7d10391b24ee8bacc5b43f6eacdc4e397ec5dab0b5986300437ce3c45035e45ebcec355f54cfa788f1347e45c06b8dbf35354cc6fb5c298468281af2777182874957ffc7a62b10e14dd449471758d73f59e738f123dfcdbb1e09d8a02debb08ac056b7a207ed18f55439c9c4a2ffa4e9635f022" & ","
+                    'Else
+                    '    str0 = "4a915d641225afdf259206cacfa8e151b1133f89a801322064de952c98740793da2389fb35f8eb1db09846d6404cd20d9d7345df7786a62dee00bfd437a051e1d80cd07c4e33ce32e2badc16c96b9e9cf1025930177431ebc3b3817d984f45c326f0b331385a7c8afaa82be9779dbf5f3a614d2044d25a1d2c2f9f75ad208dfb211c19f490ca591dc57e8a11f99343e9b141a86c101e9e005252dc62882df046690b40de03b39ad46991706c224f195de6ef212776c55487cf2df0f3dd2774b08d95b864f31ac6d34cb42b05c062741fdae4187f2a3e885781f8f3b569309d25f25eef36c1dfe46a24f56236242303c02ef5648278cebcfaef8c09ba4735a518bc1b678bb63efddfb38f7a7d93961a27eb3fe5783efbca1136c1e2f6925e9d9848eaafd93b7153c7a19c8be6f34a215677345b8f03ead04ad7ab4df2b56b57251ee7671f44d8c6a4e56d9abe213a659e8351667e05bf02999c69cf952cd49b85f25fc29fb44b478bff5c1a842fd536398cdf65a4c64bb098acd4deb70c11976746e7663114b5025563518759f080b50aa046774e81f21051b1663dbbdd69028464d209b8a7950d60461108fef39f756a591df85d4adacbdaee1c3b32b9d450e2f707e2566bdf4fc1cd5ffaa86ad90746427a787b15055d441f08f1f6de61f486fa0bb88a4b5884c8b4810b582a1817fb271e323faf68e70786a3e48694a6c902" & ","
+                    'End If
                     sw.WriteLine(str)   '插入一整行
                     sw.WriteLine(str1)   '第一行
                     sw.Write(str0)   '第二行

GA-ERP-SYS/GA-ERP-SYS.vbproj

@@ -135,6 +135,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Module\DGV進度條.vb" />
+    <Compile Include="Module\SQL_LINE.vb" />
     <Compile Include="Module\SQL_連線狀態模組.vb" />
     <Compile Include="Module\SQL_連線狀態模組1.vb" />
     <Compile Include="基本資料管理\下拉清單_1.Designer.vb">
@@ -315,6 +316,12 @@
     <Compile Include="Module\SQL_人事系統管理.vb" />
     <Compile Include="Module\SQL_資料庫系統管理.vb" />
     <Compile Include="Module\SQL_子系統管理.vb" />
+    <Compile Include="資料庫系統管理\LINE_使用者管理表.Designer.vb">
+      <DependentUpon>LINE_使用者管理表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="資料庫系統管理\LINE_使用者管理表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\USB_KEY_指定.Designer.vb">
       <DependentUpon>USB_KEY_指定.vb</DependentUpon>
     </Compile>
@@ -576,6 +583,9 @@
     <EmbeddedResource Include="SplashScreen1.resx">
       <DependentUpon>SplashScreen1.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="資料庫系統管理\LINE_使用者管理表.resx">
+      <DependentUpon>LINE_使用者管理表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\USB_KEY_指定.resx">
       <DependentUpon>USB_KEY_指定.vb</DependentUpon>
     </EmbeddedResource>

GA-ERP-SYS/LoginForm1.vb

@@ -189,6 +189,7 @@ Public Class LoginForm1
     End Sub
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_ch.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
+        ' 登入人IP = "mssql-147629-0.cloudclusters.net,12711" 
         登入人IP = "mssql-147629-0.cloudclusters.net,12711" : 登入人IP_備用 = "106.1.48.106,4567"
         IP台灣 = True : IP印尼 = True : Me.Text = "GA-ERP-SYS   line : USD"
         登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
@@ -228,7 +229,7 @@ Public Class LoginForm1
                 If 驗證_tb.Text = "1" Then
                     SQL_使用者權限宣告()
                     If dr.Read() Then
-                        到期 = dr("到期日") : FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), dr("到期日")) : 不用WEB = dr("舊版") : 剩餘天數 = FFGG
+                        到期 = dr("到期日") : FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), dr("到期日")) : 不用WEB = dr("舊版").ToString : 剩餘天數 = FFGG
                         If FFGG < 0 Then
                             MsgBox("您帳號的合約日期已經到期，如要續約且恰客服人員!!!")
                         Else

GA-ERP-SYS/Module/SQL_LINE.vb

@@ -0,0 +1,149 @@
+Module SQL_LINE
+    '---------------LINE中控-----------------------
+    '------LINE變數-------
+    Public 發送對象, LINE_權限代號, PA201, PA202, PA203, PA204, PA205, 通知變數X, 通知變數Y As String
+    Public LINE_公司名稱 As String = "GA"
+    Public ConStringLINE As String
+    Public LINE_權限數量 As Integer = 61
+    Public linecc(61) As Boolean
+    Public LINE_系統權限 As String = "CC200,CC201,CC202,CC203,CC204,CC205,CC206,CC207,CC208,CC209,CC210,CC211,CC212,CC213,CC214,CC215,CC216,CC217,
+                                            CC218,CC219,CC220,CC221,CC222,CC223,CC224,CC225,CC226,CC227,CC228,CC229,CC230,CC231,CC232,CC233,CC234,CC235,CC236,CC237,
+                                            CC238,CC239,CC240,CC241,CC242,CC243,CC244,CC245,CC246,CC247,CC248,CC249,CC250,CC251,CC252,CC253,CC254,CC255,CC256,CC257,
+                                            CC258,CC259,CC260"
+    Public LINE_登入權限 As String = "姓名, 帳號 AS 公司名稱,token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message," & LINE_系統權限
+    Public LINE_登入權限_IN As String = "姓名, 帳號 ,token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message," & LINE_系統權限
+    Public LINE_登入權限2 As String = "使用者權限管理表_1.姓名, 使用者權限管理表_1.帳號, 使用者權限管理表.token, 使用者權限管理表.通知語言, 使用者權限管理表.電話號碼1, 
+                                       使用者權限管理表.電話號碼2, 使用者權限管理表.電話號碼3, 使用者權限管理表.Line, 使用者權限管理表.WhatsApp, 使用者權限管理表.Message," & LINE_系統權限
+    Friend Sub SQL_連線字串_測試_LINE_SQL()
+        ConStringLINE = "Data Source=106.1.49.218,2433;Initial Catalog=GCM-SCADA;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+    Friend Sub ConnOpen_LINE_SQL()
+        SQL_連線字串_測試_LINE_SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConStringLINE : conn.Open() : End If
+    End Sub
+    Public Sub LIN訊息通知(ByVal 代號 As String, ByVal 對象 As String, Optional ByVal 變數X As String = "", Optional ByVal 變數Y As String = "")
+        LINE_權限代號 = 代號 : 發送對象 = 對象 : 通知變數X = 變數X : 通知變數Y = 變數Y : LINE_通知模塊()
+    End Sub
+    '=====LINE_權限代號 = "CC207" : 發送對象 = "tltony1234" : 通知變數X = "王詩文" : 通知變數Y = "9/7號" : LINE_通知模塊()=====
+    Friend Sub SQL_系統使用者_清單()
+        ConnOpen()
+        SQL1 = "SELECT   姓名 FROM    使用者權限管理表   ORDER BY   姓名"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE使用者_清單()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT   " & LINE_登入權限 & "  FROM LINE_使用者權限管理表 WHERE 帳號 LIKE N'" & LINE_公司名稱 & "'  ORDER BY  姓名"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE權限一覽_dgv_清單()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT   權限代號, 權限名稱  FROM LINE_權限一覽表 WHERE (權限名稱 LIKE N'WS%') OR (權限名稱 LIKE N'GCM%') ORDER BY 權限代號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE_新增使用者資料()
+        ConnOpen_LINE_SQL()
+        SQL1 = "INSERT INTO LINE_使用者權限管理表 (" & LINE_登入權限_IN & ") 
+                VALUES (N'" & LINE_使用者管理表.姓名_tb.Text & "', N'" & LINE_公司名稱 & "', N'" & LINE_使用者管理表.token_tb.Text &
+                "',N'" & LINE_使用者管理表.通知語言_cb.Text & "',N'" & LINE_使用者管理表.電話號碼1_tb.Text & "',N'" & LINE_使用者管理表.電話號碼2_tb.Text &
+                "',N'" & LINE_使用者管理表.電話號碼3_tb.Text & "',N'" & LINE_使用者管理表.Line_cb.Checked & "',N'" & LINE_使用者管理表.WhatsApp_cb.Checked &
+                "',N'" & LINE_使用者管理表.Message_cb.Checked &
+                "','" & linecc(0) & "','" & linecc(1) & "','" & linecc(2) & "','" & linecc(3) & "','" & linecc(4) & "','" & linecc(5) & "','" & linecc(6) & "','" & linecc(7) & "','" & linecc(8) &
+                "','" & linecc(9) & "','" & linecc(10) & "','" & linecc(11) & "','" & linecc(12) & "','" & linecc(13) & "','" & linecc(14) & "','" & linecc(15) & "','" & linecc(16) &
+                "','" & linecc(17) & "','" & linecc(18) & "','" & linecc(19) & "','" & linecc(20) & "','" & linecc(21) & "','" & linecc(22) & "','" & linecc(23) & "','" & linecc(24) &
+                "','" & linecc(25) & "','" & linecc(26) & "','" & linecc(27) & "','" & linecc(28) & "','" & linecc(29) & "','" & linecc(30) & "','" & linecc(31) & "','" & linecc(32) &
+                "','" & linecc(33) & "','" & linecc(34) & "','" & linecc(35) & "','" & linecc(36) & "','" & linecc(37) & "','" & linecc(38) & "','" & linecc(39) & "','" & linecc(40) &
+                "','" & linecc(41) & "','" & linecc(42) & "','" & linecc(43) & "','" & linecc(44) & "','" & linecc(45) & "','" & linecc(46) & "','" & linecc(47) & "','" & linecc(48) &
+                "','" & linecc(49) & "','" & linecc(50) & "','" & linecc(51) & "','" & linecc(52) & "','" & linecc(53) & "','" & linecc(54) & "','" & linecc(55) & "','" & linecc(56) &
+                "','" & linecc(57) & "','" & linecc(58) & "','" & linecc(59) & "','" & linecc(60) & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LINE_搜尋符合通知對象()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT  token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message  FROM LINE_使用者權限管理表 WHERE(" & LINE_權限代號 & "='True' and 姓名 LIKE N'" & 發送對象 & "' and (帳號 LIKE N'" & LINE_公司名稱 & "'  OR  帳號 LIKE N'GCM' )    )"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE_通知內容()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT  通知格式,變數位置,通知內容1,通知內容2,通知內容3  FROM LINE_通知內容設定表 WHERE (權限代號 LIKE N'" & LINE_權限代號 & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE_新增發送通知()
+        ConnOpen_LINE_SQL()
+        SQL1 = "INSERT INTO LINE_通知設定表 (token,發送內容,隨機碼,通知語言,發送APP) VALUES (N'" & PA201 & "',N'" & PA202 & "',N'" & PA203 & "',N'" & PA204 & "',N'" & PA205 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Function SQL_LINE_隨機碼()
+        Dim rancode As String
+        Dim RndNum As New Random()
+        rancode = Str(Date.Now.Year).Trim().PadLeft(4, "0") + Str(Date.Now.Month).Trim().PadLeft(2, "0") + Str(Date.Now.Day).Trim().PadLeft(2, "0") + Str(Date.Now.Hour).Trim().PadLeft(2, "0") + Str(Date.Now.Minute).Trim().PadLeft(2, "0") + Str(Date.Now.Second).Trim().PadLeft(2, "0") + Str(RndNum.Next(1000)).Trim().PadLeft(4, "0")
+        Return rancode
+    End Function
+    Friend Sub LINE_通知模塊()
+        Dim ds5, ds6 As New DataSet : ds5.Clear() : ds6.Clear()
+        Dim 通知格式, 變數位置, 通知內容1, 通知內容2, 通知內容3, 發送X, 發送Y As String
+        Dim L, M, W As Boolean
+        SQL_LINE_搜尋符合通知對象()
+        da.Fill(ds5) : LINE_使用者管理表.LINE_需通知清單_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        If 通知變數X = "" Then : 發送X = "未設定通知變數X" : Else : 發送X = 通知變數X : End If
+        If 通知變數Y = "" Then : 發送Y = "未設定通知變數Y" : Else : 發送Y = 通知變數Y : End If
+        For x As Integer = 0 To LINE_使用者管理表.LINE_需通知清單_dgv.Rows.Count - 1
+            L = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("Line").Value
+            W = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("WhatsApp").Value
+            M = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("Message").Value
+            SQL_LINE_通知內容() : da.Fill(ds6) : LINE_使用者管理表.LINE_通知內容清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
+            If LINE_使用者管理表.LINE_需通知清單_dgv.Rows.Count = 0 Then : Else
+                通知格式 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(0).Value
+                變數位置 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(1).Value
+                通知內容1 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(2).Value
+                通知內容2 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(3).Value
+                通知內容3 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(4).Value
+                If 變數位置 = "A" Then
+                    PA202 = 通知內容1
+                ElseIf 變數位置 = "X" Then
+                    PA202 = 發送X
+                ElseIf 變數位置 = "A+X" Then
+                    PA202 = 通知內容1 + 發送X
+                ElseIf 變數位置 = "X+A" Then
+                    PA202 = 發送X + 通知內容1
+                ElseIf 變數位置 = "X+A+Y" Then
+                    PA202 = 發送X + 通知內容1 + 發送Y
+                ElseIf 變數位置 = "A+X+B" Then
+                    PA202 = 通知內容1 + 發送X + 通知內容2
+                ElseIf 變數位置 = "X+A+Y+B" Then
+                    PA202 = 發送X + 通知內容1 + 發送Y + 通知內容2
+                ElseIf 變數位置 = "A+X+B+Y" Then
+                    PA202 = 通知內容1 + 發送X + 通知內容2 + 發送Y
+                ElseIf 變數位置 = "A+X+B+Y+C" Then
+                    PA202 = 通知內容1 + 發送X + 通知內容2 + 發送Y + 通知內容3
+                End If
+                PA204 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(1).Value
+                If L = True Then
+                    PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(0).Value.ToString : PA205 = "Line" : SQL_LINE_新增發送通知()
+                End If
+                If W = True Then
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
+                    End If
+                End If
+                If M = True Then
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
+                    End If
+                End If
+            End If
+        Next
+        ds5.Clear() : ds6.Clear() : 通知變數X = "" : 通知變數Y = ""
+    End Sub
+End Module

GA-ERP-SYS/Module/SQL_Module.vb

@@ -7,7 +7,7 @@ Module SQL_Module
     Public Access1 As New OleDbConnection : Public AccesCmd As OleDbCommand : Public Acdr As OleDbDataReader : Public Acda As New OleDbDataAdapter
     Public AccessConString As String
     Public ConString, ConString_A, ConString1, ConString2, ConString3, ConString4 As String
-    Public SQL1 As String : Public SQL2 As String : Public SQL3 As String
+    Public SQL1, SQL2, SQL3, SQL4 As String
     Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, ID卡號, 主客戶, 到期日, 備註, 登入時間, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, 

GA-ERP-SYS/Module/SQL_子系統管理.vb

@@ -1020,10 +1020,12 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_電板所得查詢()
-        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()
+        If PPCC <> "" Then : SQL4 = " WHERE (所得戶 LIKE N'%" & PPCC & "%')" : Else : SQL4 = "" : End If
+        ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得 " & SQL4 & " ORDER BY 所得戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_電板客戶查詢()
-        ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()
+        If PPCC <> "" Then : SQL4 = " AND (客戶 LIKE N'%" & PPCC & "%')" : Else : SQL4 = "" : End If
+        ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' " & SQL4 & " ORDER BY 客戶" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_電板客戶查詢1()
         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()
@@ -1097,7 +1099,7 @@
     End Sub
     Friend Sub SQL_電板紙帳查詢0()
         ConnOpen_子SQL()
-        SQL1 = "SELECT  客戶, 商品, 商品 AS 金額, 交收金額  FROM  電板紙板流水帳  WHERE  (開始日期 LIKE '" & PA47 & "')  " & SQL2 & "  ORDER BY  客戶 DESC, 商品"
+        SQL1 = "SELECT  客戶, 商品, 商品 AS 金額, 交收金額, 客戶 AS 標註  FROM  電板紙板流水帳  WHERE  (開始日期 LIKE '" & PA47 & "')  " & SQL2 & "  ORDER BY  客戶 DESC, 商品"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_電板紙帳查詢1()

GA-ERP-SYS/Module/SQL_登入與主程式.vb

@@ -57,4 +57,13 @@
     Friend Sub SQL_單一登入驗證()
         ConnOpen() : SQL1 = "SELECT 登入時間 FROM 使用者權限管理表 WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
     End Sub
+    '---------------------測試-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_49連號讀取()
+        ConnOpen() : SQL1 = "SELECT 港號, 台號1, 台號2, 台號3, 台號4, 台號5 FROM 四十九號 WHERE 港號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_49連號新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 四十九號 (港號, 台號1, 台號2, 台號3, 台號4, 台號5) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"
+        CmdSet_For_dr()
+    End Sub
 End Module

GA-ERP-SYS/Module/SQL_資料庫系統管理.vb

@@ -27,6 +27,12 @@
         If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
     End Sub
     '---------------------系統使用者管理------------------------------------------------------------
+    Friend Sub SQL_判斷是否已經通知()
+        ConnOpen() : SQL1 = "SELECT  發訊日期  FROM  到期LINE通知 WHERE 發訊日期 LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_到期LINE通知寫入()
+        ConnOpen() : SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_資料庫顯示()
         ConnOpen()
         SQL1 = "SELECT 資料庫 FROM 客戶資料表 WHERE 客戶 LIKE N'" & 系統使用者管理.主客戶_cb.Text & "'" : CmdSet_For_dr()

GA-ERP-SYS/Module/全域變數.vb

@@ -7,7 +7,7 @@
     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4, 到期 As String
     Public BB(99), CC(99), 登入判斷, IP印尼, IP台灣, 不用WEB As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024020801"
+    Public 版本 As String = "2024050602"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入, 內網區域, 關閉系統, 內網確認 As Boolean
@@ -15,16 +15,15 @@
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 設定異常表0, 設定異常表1, 設定異常表2, 進度條後墜, 網址01, 主帳號01, 天周月, 開始D, 結束D, 表頭(3), 公告項目 As String
     Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9, NN10 As Integer
-    Public PPAA, PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21 As String
-    Public PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41 As String
-    Public PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49 As String
+    Public PPAA, PPCC, PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28,
+           PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49 As String
     Public PB1(300), PB2(300), PB3(300), PB4(300), PB5(300), PB6(300), PB7(300), PB8(300), PPBB(3000), A(1000), B(1000), C(1000), D(1000), F(1000) As String
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public BL1, BL2, BL3, BL4, BL5, BL6, BL7, BL8, BL9, 是否新增, 是否運行, 是否PDF, 從彙總開, 紅利修改 As Boolean
     '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 客戶資料強制對話框模式 As Boolean
+    Public 客戶資料強制對話框模式, 彙總表不再重新讀取 As Boolean
     '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
 End Module

GA-ERP-SYS/bin/Debug/debug.log

@@ -1588,3 +1588,236 @@ ERROR: Couldn't read tbsCertificate as SEQUENCE
 ERROR: Failed parsing Certificate
 
 [0305/145047.916:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0418/185325.163:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0418/185332.414:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185336.238:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185339.650:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0418/185347.140:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0418/185447.365:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0418/185450.460:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185451.603:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185452.466:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0418/185503.383:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0418/185641.143:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0418/185646.494:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185646.836:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185647.658:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0418/185656.676:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0418/185814.294:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0418/185817.225:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185818.326:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0418/185819.100:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0502/211208.290:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0502/211214.887:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0502/211216.355:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0502/211216.806:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/115655.908:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/115700.433:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/115701.907:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/115702.697:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/120401.202:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/120404.116:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/120405.345:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/120406.039:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/132907.381:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/132913.709:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/132915.354:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/132916.182:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/133151.769:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/133156.209:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/133157.683:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/133158.299:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/133330.855:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/133332.744:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/133333.103:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/133333.394:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/133920.159:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/133924.147:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/133925.472:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/133925.854:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/134411.246:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/134415.826:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/134417.038:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/134417.376:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/141155.083:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/141159.962:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/141201.593:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/141202.204:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/141357.229:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/141359.425:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/141400.765:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/141401.136:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/143344.744:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/143348.578:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/143349.849:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/143350.174:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/144409.268:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/144412.982:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/144414.532:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/144414.977:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/145113.504:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/145115.657:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/145116.933:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/145117.203:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/145330.218:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/145332.586:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/145334.014:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/145334.379:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/145733.502:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/145737.476:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/145737.856:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/145738.156:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/150409.432:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/150411.459:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/150411.981:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/150412.304:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/151044.452:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/151046.436:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/151047.796:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/151048.096:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/151416.330:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/151418.412:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/151418.817:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/151419.214:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0506/153814.952:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0506/153817.570:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/153819.109:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0506/153819.513:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)

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

@@ -1 +1 @@
-ff77957a807ae23d411f23ed80f27b6f6a8c6eaa298596b579c397fe7384804e
+5feaa67f439be7acb8512c489b32e58172beb2e4b4bea7140d52e83082114f70

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

@@ -456,7 +456,6 @@ D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.輸入密碼.resources
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb
@@ -464,3 +463,5 @@ D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\Microsoft.IO.Recy
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\Microsoft.IO.RecyclableMemoryStream.xml
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS_Old.resources
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務資料筆數查看.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.Up2Date
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LINE_使用者管理表.resources

GA-ERP-SYS/報表系統管理/前台/紙板帳務.Designer.vb

@@ -23,6 +23,9 @@ Partial Class 紙板帳務
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -38,7 +41,9 @@ Partial Class 紙板帳務
         Me.日期_lb = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.存檔_tb = New System.Windows.Forms.Button()
+        Me.電板紙板_比對_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.電板紙板_比對_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '電板紙板_dgv
@@ -48,29 +53,29 @@ Partial Class 紙板帳務
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.電板紙板_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.電板紙板_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.電板紙板_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.電板紙板_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.電板紙板_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.電板紙板_dgv.DefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.電板紙板_dgv.DefaultCellStyle = DataGridViewCellStyle2
         Me.電板紙板_dgv.Location = New System.Drawing.Point(5, 47)
         Me.電板紙板_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板紙板_dgv.Name = "電板紙板_dgv"
         Me.電板紙板_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.電板紙板_dgv.RowTemplate.Height = 24
         Me.電板紙板_dgv.Size = New System.Drawing.Size(384, 314)
         Me.電板紙板_dgv.TabIndex = 1696
@@ -181,6 +186,40 @@ Partial Class 紙板帳務
         Me.存檔_tb.Text = "存檔"
         Me.存檔_tb.UseVisualStyleBackColor = True
         '
+        '電板紙板_比對_dgv
+        '
+        Me.電板紙板_比對_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.電板紙板_比對_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.電板紙板_比對_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.電板紙板_比對_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.電板紙板_比對_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.電板紙板_比對_dgv.DefaultCellStyle = DataGridViewCellStyle5
+        Me.電板紙板_比對_dgv.Location = New System.Drawing.Point(5, 47)
+        Me.電板紙板_比對_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.電板紙板_比對_dgv.Name = "電板紙板_比對_dgv"
+        Me.電板紙板_比對_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板紙板_比對_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.電板紙板_比對_dgv.RowTemplate.Height = 24
+        Me.電板紙板_比對_dgv.Size = New System.Drawing.Size(384, 314)
+        Me.電板紙板_比對_dgv.TabIndex = 1707
+        '
         '紙板帳務
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -196,6 +235,7 @@ Partial Class 紙板帳務
         Me.Controls.Add(Me.加總_lb)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.彙總_lb)
+        Me.Controls.Add(Me.電板紙板_比對_dgv)
         Me.Controls.Add(Me.電板紙板_dgv)
         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)
@@ -203,6 +243,7 @@ Partial Class 紙板帳務
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "紙板帳務"
         CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.電板紙板_比對_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -220,4 +261,5 @@ Partial Class 紙板帳務
     Friend WithEvents 日期_lb As Label
     Friend WithEvents Label4 As Label
     Friend WithEvents 存檔_tb As Button
+    Friend WithEvents 電板紙板_比對_dgv As DataGridView
 End Class

GA-ERP-SYS/報表系統管理/前台/紙板帳務.vb

@@ -2,11 +2,16 @@
     Dim NS1, lockedRowIndex As Integer
     Dim 已超出, 有編輯, 剛導入 As Boolean
     Private Sub Set_電板紙板()
-        Dim ds3 As New DataSet
+        Dim ds3, ds4 As New DataSet
         電板紙板_dgv.DataSource = Nothing : ds3.Clear()
         電板紙板_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         電板紙板_dgv.ColumnHeadersHeight = 25 : 電板紙板_dgv.RowTemplate.Height = 21
         電板紙板_dgv.AllowUserToAddRows = False
+        電板紙板_比對_dgv.DataSource = Nothing : ds4.Clear()
+        電板紙板_比對_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        電板紙板_比對_dgv.ColumnHeadersHeight = 25 : 電板紙板_比對_dgv.RowTemplate.Height = 21
+        電板紙板_比對_dgv.AllowUserToAddRows = False
+
         If 紙單帳務_ch.Checked = True Then
             SQL2 = " AND (電板紙板流水帳.商品 NOT LIKE '前期未收')"
         Else
@@ -14,7 +19,9 @@
         End If
         SQL_電板紙帳查詢0()
         da.Fill(ds3) : 電板紙板_dgv.DataSource = ds3.Tables(0) : conn.Close()
-        電板紙板_dgv.Columns("交收金額").Visible = False
+        da.Fill(ds4) : 電板紙板_比對_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        電板紙板_dgv.Columns("交收金額").Visible = False : 電板紙板_dgv.Columns("標註").Visible = False
         電板紙板_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
         電板紙板_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         電板紙板_dgv.EditMode = DataGridViewEditMode.EditOnEnter
@@ -22,19 +29,28 @@
         For i As Integer = 0 To 電板紙板_dgv.Rows.Count - 1
             電板紙板_dgv.Rows(i).Cells("金額").Value = Strings.Format(電板紙板_dgv.Rows(i).Cells("交收金額").Value, "#,##0")
             NS1 += CInt(電板紙板_dgv.Rows(i).Cells("交收金額").Value)
+            電板紙板_dgv.Rows(i).Cells("標註").Value = ""
+        Next
+        電板紙板_比對_dgv.Columns("交收金額").Visible = False
+        電板紙板_比對_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        電板紙板_比對_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        電板紙板_比對_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        電板紙板_比對_dgv.Columns(0).ReadOnly = True : 電板紙板_比對_dgv.Columns(1).ReadOnly = True
+        For i As Integer = 0 To 電板紙板_比對_dgv.Rows.Count - 1
+            電板紙板_比對_dgv.Rows(i).Cells("金額").Value = Strings.Format(電板紙板_比對_dgv.Rows(i).Cells("交收金額").Value, "#,##0")
+            NS1 += CInt(電板紙板_比對_dgv.Rows(i).Cells("交收金額").Value)
         Next
         彙總_lb.Text = Strings.Format(NS1, "#,##0")
         If CInt(彙總_lb.Text) >= 0 Then : 彙總_lb.ForeColor = Color.Blue : Else : 彙總_lb.ForeColor = Color.Red : End If
     End Sub
     Private Sub 紙板帳務_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        電板紙板_比對_dgv.SendToBack()
     End Sub
     Private Sub 紙板帳務_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         前期帳務_ch.Checked = True : 加總_lb.Text = "0" : 日期_lb.Text = PA47 : 剛導入 = False
         電板紙板_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
-        Set_電板紙板()
-        Dim NH As Integer
-        For i As Integer = 0 To 電板紙板_dgv.Rows.Count - 1 : NH += 1 : Next
-        NH = 140 + (NH * 21)
+        Set_電板紙板() : Dim NH As Integer
+        For i As Integer = 0 To 電板紙板_dgv.Rows.Count - 1 : NH += 1 : Next : NH = 140 + (NH * 21)
         If NH > Screen.PrimaryScreen.Bounds.Height - 60 Then
             Me.Size = New Size(448, Screen.PrimaryScreen.Bounds.Height - 60) : Me.CenterToScreen()
         Else
@@ -42,19 +58,15 @@
         End If : 剛導入 = True
     End Sub
     Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
-        ' 判斷條件是否滿足
         If 有編輯 = False Then
-            ' 條件滿足，關閉表單
-            電板帳務彙總計算表.紙帳計算_bt.PerformClick() : 電板帳務彙總計算表.合帳_bt.PerformClick()
-            e.Cancel = False
+            電板帳務彙總計算表.紙帳計算_bt.PerformClick() : e.Cancel = False
         Else
             Dim aa As MsgBoxResult = MsgBox("紙板資料有編輯過請問是否要存檔??", MsgBoxStyle.OkCancel)
             If aa = MsgBoxResult.Ok Then
-                存檔_tb.PerformClick() : 電板帳務彙總計算表.紙帳計算_bt.PerformClick() : 電板帳務彙總計算表.合帳_bt.PerformClick()
+                存檔_tb.PerformClick() : 電板帳務彙總計算表.紙帳計算_bt.PerformClick()
                 If 有編輯 = False Then : e.Cancel = False : End If
             Else
-                電板帳務彙總計算表.紙帳計算_bt.PerformClick() : 電板帳務彙總計算表.合帳_bt.PerformClick()
-                e.Cancel = False
+                電板帳務彙總計算表.紙帳計算_bt.PerformClick() : e.Cancel = False
             End If
         End If
     End Sub
@@ -70,9 +82,7 @@
         If CInt(彙總_lb.Text) >= 0 Then : 彙總_lb.ForeColor = Color.Blue : Else : 彙總_lb.ForeColor = Color.Red : End If
         If 紙單帳務_ch.Checked = True Then
             Dim linePen As New Pen(Color.Blue, 2)
-            If e.RowIndex = 電板紙板_dgv.Rows.Count - 1 Then
-                Exit Sub
-            Else
+            If e.RowIndex = 電板紙板_dgv.Rows.Count - 1 Then : Exit Sub : Else
                 If 電板紙板_dgv(0, e.RowIndex).Value.ToString.ToLower() <> 電板紙板_dgv(0, e.RowIndex + 1).Value.ToString.ToLower() Then
                     Dim startX As Integer = IIf(電板紙板_dgv.RowHeadersVisible, 電板紙板_dgv.RowHeadersWidth, 0)
                     Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
@@ -119,42 +129,42 @@
     End Sub
     Private Sub 紙單帳務_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 紙單帳務_ch.Click
         紙單帳務_ch.Checked = True : 前期帳務_ch.Checked = False
-        If 有編輯 = False Then
-            Set_電板紙板()
-        Else
+        If 有編輯 = False Then : Set_電板紙板() : Else
             Dim aa As MsgBoxResult = MsgBox("紙板資料有編輯過請問是否要存檔??", MsgBoxStyle.OkCancel)
-            If aa = MsgBoxResult.Ok Then : 存檔_tb.PerformClick() : Else : End If
+            If aa = MsgBoxResult.Ok Then : 存檔_tb.PerformClick() : Set_電板紙板() : Else : End If
         End If
     End Sub
     Private Sub 前期帳務_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 前期帳務_ch.Click
         紙單帳務_ch.Checked = False : 前期帳務_ch.Checked = True
-        If 有編輯 = False Then
-            Set_電板紙板()
-        Else
+        If 有編輯 = False Then : Set_電板紙板() : Else
             Dim aa As MsgBoxResult = MsgBox("紙板資料有編輯過請問是否要存檔??", MsgBoxStyle.OkCancel)
-            If aa = MsgBoxResult.Ok Then : 存檔_tb.PerformClick() : Else : End If
+            If aa = MsgBoxResult.Ok Then : 存檔_tb.PerformClick() : Set_電板紙板() : Else : End If
         End If
     End Sub
     Private Sub 紙板帳務設定_bt_Click(sender As Object, e As EventArgs) Handles 紙板帳務設定_bt.Click
         電板紙板帳務設定.Show() : 電板帳務彙總計算表.紙帳計算_bt.PerformClick() : 延遲計算1.Enabled = True
     End Sub
     Function IsFormBOpened() As Boolean
-        Dim form As Form
-        For Each form In Application.OpenForms
-            If TypeOf form Is 電板紙板帳務設定 Then
-                Return True
-            End If
-        Next
-        Return False
+        Dim form As Form : For Each form In Application.OpenForms : If TypeOf form Is 電板紙板帳務設定 Then : Return True : End If : Next : Return False
     End Function
     Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
+        Dim GHF As Integer
         For I As Integer = 0 To 電板紙板_dgv.Rows.Count - 1
             If IsNumeric(電板紙板_dgv.Rows(I).Cells("金額").Value.ToString.Replace(",", "")) = False Then
                 電板紙板_dgv.Rows(I).Cells("金額").Value = 0
             End If
-            PA8 = 電板紙板_dgv.Rows(I).Cells("商品").Value : NN8 = 電板紙板_dgv.Rows(I).Cells("金額").Value.ToString
-            PA46 = 電板紙板_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_紙帳流水修改1()
-        Next : 有編輯 = False : MsgBox("存檔完成!!")
+            If 電板紙板_dgv.Rows(I).Cells("客戶").Value.ToString = 電板紙板_比對_dgv.Rows(I).Cells("客戶").Value.ToString And
+               電板紙板_dgv.Rows(I).Cells("商品").Value.ToString = 電板紙板_比對_dgv.Rows(I).Cells("商品").Value.ToString And
+               電板紙板_dgv.Rows(I).Cells("金額").Value.ToString <> 電板紙板_比對_dgv.Rows(I).Cells("金額").Value.ToString Then
+                電板紙板_dgv.Rows(I).Cells("標註").Value = "存"
+            End If
+        Next
+        For I As Integer = 0 To 電板紙板_dgv.Rows.Count - 1
+            If 電板紙板_dgv.Rows(I).Cells("標註").Value = "存" Then
+                PA8 = 電板紙板_dgv.Rows(I).Cells("商品").Value : NN8 = 電板紙板_dgv.Rows(I).Cells("金額").Value.ToString
+                PA46 = 電板紙板_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_紙帳流水修改1() : GHF += 1
+            End If
+        Next : 有編輯 = False : MsgBox("存檔完成，共存檔 " & GHF & " 筆資料!!")
     End Sub
 
     Private Sub 延遲計算1_Tick(sender As Object, e As EventArgs) Handles 延遲計算1.Tick

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.Designer.vb

@@ -215,7 +215,6 @@ Partial Class 電板帳務彙總計算表
         Me.電板所得_dgv = New System.Windows.Forms.DataGridView()
         Me.通知1_lb = New System.Windows.Forms.Label()
         Me.網址修正_dgv = New System.Windows.Forms.DataGridView()
-        Me.Label9 = New System.Windows.Forms.Label()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.自定帳務_dgv = New System.Windows.Forms.DataGridView()
         Me.自定義新增_bt = New System.Windows.Forms.Button()
@@ -276,17 +275,20 @@ Partial Class 電板帳務彙總計算表
         Me.Label21 = New System.Windows.Forms.Label()
         Me.Label36 = New System.Windows.Forms.Label()
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
+        Me.查詢_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.控制隱藏_ch = New System.Windows.Forms.CheckBox()
         Me.紙板帳務編輯_bt = New System.Windows.Forms.Button()
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
         Me.Label23 = New System.Windows.Forms.Label()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.群組_dgv = New System.Windows.Forms.DataGridView()
         Me.群組_tb = New System.Windows.Forms.TextBox()
         Me.Label37 = New System.Windows.Forms.Label()
-        Me.群組_dgv = New System.Windows.Forms.DataGridView()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.查詢_bt = New System.Windows.Forms.Button()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -348,8 +350,8 @@ Partial Class 電板帳務彙總計算表
         Me.SplitContainer4.Panel1.SuspendLayout()
         Me.SplitContainer4.Panel2.SuspendLayout()
         Me.SplitContainer4.SuspendLayout()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.群組_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
@@ -2235,17 +2237,6 @@ Partial Class 電板帳務彙總計算表
         Me.網址修正_dgv.TabIndex = 1700
         Me.網址修正_dgv.Visible = False
         '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label9.ForeColor = System.Drawing.Color.Black
-        Me.Label9.Location = New System.Drawing.Point(0, 6)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(86, 17)
-        Me.Label9.TabIndex = 1701
-        Me.Label9.Text = "交收帳務總表"
-        '
         'Label10
         '
         Me.Label10.AutoSize = True
@@ -2953,13 +2944,15 @@ Partial Class 電板帳務彙總計算表
         '
         'SplitContainer4.Panel1
         '
+        Me.SplitContainer4.Panel1.Controls.Add(Me.查詢_bt)
+        Me.SplitContainer4.Panel1.Controls.Add(Me.查詢_tb)
+        Me.SplitContainer4.Panel1.Controls.Add(Me.Label9)
         Me.SplitContainer4.Panel1.Controls.Add(Me.TextBox1)
         Me.SplitContainer4.Panel1.Controls.Add(Me.Label22)
         Me.SplitContainer4.Panel1.Controls.Add(Me.控制隱藏_ch)
         Me.SplitContainer4.Panel1.Controls.Add(Me.紙板帳務編輯_bt)
         Me.SplitContainer4.Panel1.Controls.Add(Me.水差合帳_dgv)
         Me.SplitContainer4.Panel1.Controls.Add(Me.其他操作功能_bt)
-        Me.SplitContainer4.Panel1.Controls.Add(Me.Label9)
         Me.SplitContainer4.Panel1.Controls.Add(Me.水差合帳1_dgv)
         Me.SplitContainer4.Panel1.Controls.Add(Me.合帳_dgv)
         Me.SplitContainer4.Panel1.Controls.Add(Me.彙總_dgv)
@@ -2984,13 +2977,33 @@ Partial Class 電板帳務彙總計算表
         Me.SplitContainer4.SplitterDistance = 785
         Me.SplitContainer4.TabIndex = 1716
         '
+        '查詢_tb
+        '
+        Me.查詢_tb.ForeColor = System.Drawing.Color.Black
+        Me.查詢_tb.Location = New System.Drawing.Point(33, 1)
+        Me.查詢_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.查詢_tb.Name = "查詢_tb"
+        Me.查詢_tb.Size = New System.Drawing.Size(86, 23)
+        Me.查詢_tb.TabIndex = 1721
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label9.ForeColor = System.Drawing.Color.Black
+        Me.Label9.Location = New System.Drawing.Point(2, 4)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(34, 17)
+        Me.Label9.TabIndex = 1722
+        Me.Label9.Text = "查詢"
+        '
         'TextBox1
         '
         Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox1.ForeColor = System.Drawing.Color.Red
-        Me.TextBox1.Location = New System.Drawing.Point(493, 1)
+        Me.TextBox1.Location = New System.Drawing.Point(524, 1)
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
+        Me.TextBox1.Size = New System.Drawing.Size(30, 23)
         Me.TextBox1.TabIndex = 1720
         Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -2998,7 +3011,7 @@ Partial Class 電板帳務彙總計算表
         '
         Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label22.AutoSize = True
-        Me.Label22.Location = New System.Drawing.Point(474, 4)
+        Me.Label22.Location = New System.Drawing.Point(504, 4)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(19, 16)
         Me.Label22.TabIndex = 1718
@@ -3008,7 +3021,7 @@ Partial Class 電板帳務彙總計算表
         '
         Me.控制隱藏_ch.AutoSize = True
         Me.控制隱藏_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.控制隱藏_ch.Location = New System.Drawing.Point(119, 3)
+        Me.控制隱藏_ch.Location = New System.Drawing.Point(209, 3)
         Me.控制隱藏_ch.Name = "控制隱藏_ch"
         Me.控制隱藏_ch.Size = New System.Drawing.Size(110, 20)
         Me.控制隱藏_ch.TabIndex = 1704
@@ -3018,7 +3031,7 @@ Partial Class 電板帳務彙總計算表
         '紙板帳務編輯_bt
         '
         Me.紙板帳務編輯_bt.ForeColor = System.Drawing.Color.Green
-        Me.紙板帳務編輯_bt.Location = New System.Drawing.Point(288, 0)
+        Me.紙板帳務編輯_bt.Location = New System.Drawing.Point(320, 0)
         Me.紙板帳務編輯_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紙板帳務編輯_bt.Name = "紙板帳務編輯_bt"
         Me.紙板帳務編輯_bt.Size = New System.Drawing.Size(91, 24)
@@ -3029,7 +3042,7 @@ Partial Class 電板帳務彙總計算表
         '其他操作功能_bt
         '
         Me.其他操作功能_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.其他操作功能_bt.Location = New System.Drawing.Point(381, 0)
+        Me.其他操作功能_bt.Location = New System.Drawing.Point(413, 0)
         Me.其他操作功能_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.其他操作功能_bt.Name = "其他操作功能_bt"
         Me.其他操作功能_bt.Size = New System.Drawing.Size(91, 24)
@@ -3047,41 +3060,6 @@ Partial Class 電板帳務彙總計算表
         Me.Label23.TabIndex = 1719
         Me.Label23.Text = "筆資料"
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239190
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox1.Location = New System.Drawing.Point(949, 944)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(385, 25)
-        Me.PictureBox1.TabIndex = 1619
-        Me.PictureBox1.TabStop = False
-        '
-        'OpenFileDialog1
-        '
-        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
-        '
-        '群組_tb
-        '
-        Me.群組_tb.ForeColor = System.Drawing.Color.Black
-        Me.群組_tb.Location = New System.Drawing.Point(438, 4)
-        Me.群組_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.群組_tb.Name = "群組_tb"
-        Me.群組_tb.Size = New System.Drawing.Size(157, 23)
-        Me.群組_tb.TabIndex = 1715
-        '
-        'Label37
-        '
-        Me.Label37.AutoSize = True
-        Me.Label37.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label37.ForeColor = System.Drawing.Color.Black
-        Me.Label37.Location = New System.Drawing.Point(405, 5)
-        Me.Label37.Name = "Label37"
-        Me.Label37.Size = New System.Drawing.Size(34, 17)
-        Me.Label37.TabIndex = 1716
-        Me.Label37.Text = "群組"
-        '
         '群組_dgv
         '
         Me.群組_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -3107,6 +3085,53 @@ Partial Class 電板帳務彙總計算表
         Me.群組_dgv.Size = New System.Drawing.Size(100, 161)
         Me.群組_dgv.TabIndex = 1717
         '
+        '群組_tb
+        '
+        Me.群組_tb.ForeColor = System.Drawing.Color.Black
+        Me.群組_tb.Location = New System.Drawing.Point(438, 4)
+        Me.群組_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.群組_tb.Name = "群組_tb"
+        Me.群組_tb.Size = New System.Drawing.Size(157, 23)
+        Me.群組_tb.TabIndex = 1715
+        '
+        'Label37
+        '
+        Me.Label37.AutoSize = True
+        Me.Label37.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label37.ForeColor = System.Drawing.Color.Black
+        Me.Label37.Location = New System.Drawing.Point(405, 5)
+        Me.Label37.Name = "Label37"
+        Me.Label37.Size = New System.Drawing.Size(34, 17)
+        Me.Label37.TabIndex = 1716
+        Me.Label37.Text = "群組"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._1627008239190
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.Location = New System.Drawing.Point(949, 944)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(385, 25)
+        Me.PictureBox1.TabIndex = 1619
+        Me.PictureBox1.TabStop = False
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        '查詢_bt
+        '
+        Me.查詢_bt.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.Search
+        Me.查詢_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.查詢_bt.ForeColor = System.Drawing.Color.Green
+        Me.查詢_bt.Location = New System.Drawing.Point(120, 0)
+        Me.查詢_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.查詢_bt.Name = "查詢_bt"
+        Me.查詢_bt.Size = New System.Drawing.Size(30, 24)
+        Me.查詢_bt.TabIndex = 1723
+        Me.查詢_bt.UseVisualStyleBackColor = True
+        '
         '電板帳務彙總計算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -3226,8 +3251,8 @@ Partial Class 電板帳務彙總計算表
         Me.SplitContainer4.Panel2.PerformLayout()
         CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer4.ResumeLayout(False)
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.群組_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -3363,7 +3388,6 @@ Partial Class 電板帳務彙總計算表
     Friend WithEvents SplitContainer2 As SplitContainer
     Friend WithEvents 紙帳非前期_dgv As DataGridView
     Friend WithEvents 網址修正_dgv As DataGridView
-    Friend WithEvents Label9 As Label
     Friend WithEvents Label10 As Label
     Friend WithEvents 自定帳務_dgv As DataGridView
     Friend WithEvents 自定義新增_bt As Button
@@ -3436,4 +3460,7 @@ Partial Class 電板帳務彙總計算表
     Friend WithEvents 群組_tb As TextBox
     Friend WithEvents Label37 As Label
     Friend WithEvents 群組_dgv As DataGridView
+    Friend WithEvents 查詢_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 查詢_bt As Button
 End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb

@@ -19,33 +19,25 @@ Public Class 電板帳務彙總計算表
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Dim Str As String = Application.StartupPath
     Private Sub Set_群組()
-        Try
-            Dim ds15 As New DataSet
-            群組_dgv.DataSource = Nothing : ds15.Clear()
-            群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            群組_dgv.ColumnHeadersHeight = 25 : 群組_dgv.AllowUserToAddRows = False
-            SQL_群組()
-            da.Fill(ds15) : 群組_dgv.DataSource = ds15.Tables(0) : conn.Close()
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        Dim ds15 As New DataSet
+        群組_dgv.DataSource = Nothing : ds15.Clear()
+        群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        群組_dgv.ColumnHeadersHeight = 25 : 群組_dgv.AllowUserToAddRows = False
+        SQL_群組()
+        da.Fill(ds15) : 群組_dgv.DataSource = ds15.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_網址修正()
-        Try
-            網址修正_dgv.DataSource = Nothing : ds15.Clear()
-            網址修正_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            網址修正_dgv.ColumnHeadersHeight = 25 : 網址修正_dgv.AllowUserToAddRows = False
-            SQL_網址修正()
-            da.Fill(ds15) : 網址修正_dgv.DataSource = ds15.Tables(0) : conn.Close()
-            For II As Integer = 0 To 網址修正_dgv.Rows.Count - 1
-                PA1 = 網址修正_dgv.Rows(II).Cells("網址").Value.ToString : PA2 = 網址修正_dgv.Rows(II).Cells("主網址").Value.ToString : SQL_網址修正執行()
-            Next : PA1 = "" : PA2 = ""
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        網址修正_dgv.DataSource = Nothing : ds15.Clear()
+        網址修正_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        網址修正_dgv.ColumnHeadersHeight = 25 : 網址修正_dgv.AllowUserToAddRows = False
+        SQL_網址修正()
+        da.Fill(ds15) : 網址修正_dgv.DataSource = ds15.Tables(0) : conn.Close()
+        For II As Integer = 0 To 網址修正_dgv.Rows.Count - 1
+            PA1 = 網址修正_dgv.Rows(II).Cells("網址").Value.ToString : PA2 = 網址修正_dgv.Rows(II).Cells("主網址").Value.ToString : SQL_網址修正執行()
+        Next : PA1 = "" : PA2 = ""
     End Sub
     Private Sub Set_上繳名()
-        Try
+        If 彙總表不再重新讀取 = False Then
             上繳名_dgv.DataSource = Nothing : ds15.Clear()
             上繳名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             上繳名_dgv.ColumnHeadersHeight = 25 : 上繳名_dgv.AllowUserToAddRows = False
@@ -53,13 +45,11 @@ Public Class 電板帳務彙總計算表
             da.Fill(ds15) : 上繳名_dgv.DataSource = ds15.Tables(0) : conn.Close()
             上繳名_dgv.Columns("交割金額").Visible = False
             上繳名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1 : 上繳名_dgv.Rows(II).Cells("交割金額").Value = "0" : 上繳名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        End If
+        For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1 : 上繳名_dgv.Rows(II).Cells("交割金額").Value = "0" : 上繳名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
     End Sub
     Private Sub Set_下收名()
-        Try
+        If 彙總表不再重新讀取 = False Then
             下收名_dgv.DataSource = Nothing : ds16.Clear()
             下收名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             下收名_dgv.ColumnHeadersHeight = 25 : 下收名_dgv.AllowUserToAddRows = False
@@ -67,13 +57,11 @@ Public Class 電板帳務彙總計算表
             da.Fill(ds16) : 下收名_dgv.DataSource = ds16.Tables(0) : conn.Close()
             下收名_dgv.Columns("交割金額").Visible = False
             下收名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            For II As Integer = 0 To 下收名_dgv.Rows.Count - 1 : 下收名_dgv.Rows(II).Cells("交割金額").Value = "0" : 下收名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        End If
+        For II As Integer = 0 To 下收名_dgv.Rows.Count - 1 : 下收名_dgv.Rows(II).Cells("交割金額").Value = "0" : 下收名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
     End Sub
     Private Sub Set_所得名()
-        Try
+        If 彙總表不再重新讀取 = False Then
             所得名_dgv.DataSource = Nothing : ds17.Clear()
             所得名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             所得名_dgv.ColumnHeadersHeight = 25 : 所得名_dgv.AllowUserToAddRows = False
@@ -81,13 +69,11 @@ Public Class 電板帳務彙總計算表
             da.Fill(ds17) : 所得名_dgv.DataSource = ds17.Tables(0) : conn.Close()
             所得名_dgv.Columns("交割金額").Visible = False
             所得名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            For II As Integer = 0 To 所得名_dgv.Rows.Count - 1 : 所得名_dgv.Rows(II).Cells("交割金額").Value = "0" : 所得名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        End If
+        For II As Integer = 0 To 所得名_dgv.Rows.Count - 1 : 所得名_dgv.Rows(II).Cells("交割金額").Value = "0" : 所得名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
     End Sub
     Private Sub Set_所得名只算所得()
-        Try
+        If 彙總表不再重新讀取 = False Then
             所得名1_dgv.DataSource = Nothing : ds3.Clear()
             所得名1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             所得名1_dgv.ColumnHeadersHeight = 25 : 所得名1_dgv.AllowUserToAddRows = False
@@ -95,13 +81,11 @@ Public Class 電板帳務彙總計算表
             da.Fill(ds3) : 所得名1_dgv.DataSource = ds3.Tables(0) : conn.Close()
             所得名1_dgv.Columns("交割金額").Visible = False
             所得名1_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1 : 所得名1_dgv.Rows(II).Cells("交割金額").Value = "0" : 所得名1_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        End If
+        For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1 : 所得名1_dgv.Rows(II).Cells("交割金額").Value = "0" : 所得名1_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
     End Sub
     Private Sub Set_水差名()
-        Try
+        If 彙總表不再重新讀取 = False Then
             水差名_dgv.DataSource = Nothing : ds18.Clear()
             水差名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             水差名_dgv.ColumnHeadersHeight = 25 : 水差名_dgv.AllowUserToAddRows = False
@@ -109,13 +93,11 @@ Public Class 電板帳務彙總計算表
             da.Fill(ds18) : 水差名_dgv.DataSource = ds18.Tables(0) : conn.Close()
             水差名_dgv.Columns("交割金額").Visible = False
             水差名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            For II As Integer = 0 To 水差名_dgv.Rows.Count - 1 : 水差名_dgv.Rows(II).Cells("交割金額").Value = "0" : 水差名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        End If
+        For II As Integer = 0 To 水差名_dgv.Rows.Count - 1 : 水差名_dgv.Rows(II).Cells("交割金額").Value = "0" : 水差名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
     End Sub
     Private Sub Set_水差出帳1()
-        Try
+        If 彙總表不再重新讀取 = False Then
             水差名1_dgv.DataSource = Nothing : ds19.Clear()
             水差名1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             水差名1_dgv.ColumnHeadersHeight = 25 : 水差名1_dgv.AllowUserToAddRows = False
@@ -123,23 +105,17 @@ Public Class 電板帳務彙總計算表
             da.Fill(ds19) : 水差名1_dgv.DataSource = ds19.Tables(0) : conn.Close()
             水差名1_dgv.Columns("交割金額").Visible = False
             水差名1_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1 : 水差名1_dgv.Rows(II).Cells("交割金額").Value = "0" : 水差名1_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        End If
+        For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1 : 水差名1_dgv.Rows(II).Cells("交割金額").Value = "0" : 水差名1_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
     End Sub
     Private Sub Set_紙單出帳1()
-        Try
-            紙帳總表_dgv.DataSource = Nothing : ds21.Clear()
-            紙帳總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            紙帳總表_dgv.ColumnHeadersHeight = 25 : 紙帳總表_dgv.AllowUserToAddRows = False
-            SQL_紙單出帳()
-            da.Fill(ds21) : 紙帳總表_dgv.DataSource = ds21.Tables(0) : conn.Close()
-            紙帳總表_dgv.Columns("交收金額").Visible = False
-            紙帳總表_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        Catch ex As Exception
-            MsgBox(ex.Message) '錯誤訊息
-        End Try
+        紙帳總表_dgv.DataSource = Nothing : ds21.Clear()
+        紙帳總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紙帳總表_dgv.ColumnHeadersHeight = 25 : 紙帳總表_dgv.AllowUserToAddRows = False
+        SQL_紙單出帳()
+        da.Fill(ds21) : 紙帳總表_dgv.DataSource = ds21.Tables(0) : conn.Close()
+        紙帳總表_dgv.Columns("交收金額").Visible = False
+        紙帳總表_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private Sub Set_客戶下清單()
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
@@ -191,7 +167,7 @@ Public Class 電板帳務彙總計算表
         Next
     End Sub
     Private Sub Set_流水帳清單1()
-        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : Set_紙單出帳1()
+        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : Set_紙單出帳1() : 彙總表不再重新讀取 = True
         流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         流水帳_dgv.ColumnHeadersHeight = 25 : 流水帳_dgv.AllowUserToAddRows = False
         Dim 是否計算 As Boolean
@@ -1636,7 +1612,7 @@ Public Class 電板帳務彙總計算表
             Me.MdiParent = GA_ERP_SYS_Old : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS_Old.WindowState = 0
         Else
             Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0
-        End If : Set_網址修正()
+        End If : Set_網址修正() : If 上繳名_dgv.Rows.Count = 0 Then : 彙總表不再重新讀取 = False : End If
         天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
         L50.Visible = False : 客戶下_dgv.Visible = False : 流水帳_dgv.Visible = False : 彙總_dgv.Visible = False : 彙總1_dgv.Visible = False
         上繳合帳_dgv.Visible = True : 所得合帳_dgv.Visible = True : PictureBox1.Visible = True : PictureBox1.BringToFront() : Panel1.Visible = False
@@ -1703,6 +1679,7 @@ Public Class 電板帳務彙總計算表
         ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月" : End If
         Set_日期清單()
         If 不用WEB = True Then : GA_ERP_SYS_Old.ToolStripProgressBar1.Value = 0 : Else : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : End If : 最終數 = 0
+        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : 彙總表不再重新讀取 = True
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
         If 不用WEB = True Then
@@ -1749,6 +1726,9 @@ Public Class 電板帳務彙總計算表
         水差合帳2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 水差名1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
         自定帳務_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
+    Private Sub 合帳_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 合帳_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 查詢_tb.Text = 合帳_dgv("客戶", e.RowIndex).Value.ToString : End If
+    End Sub
     Private Sub 自定帳務_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 自定帳務_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             自定義客戶_tb.Text = 自定帳務_dgv("客戶", e.RowIndex).Value.ToString : 自定義欄位_ch.Text = 自定帳務_dgv("欄位", e.RowIndex).Value.ToString
@@ -2682,6 +2662,9 @@ Public Class 電板帳務彙總計算表
         設定異常表.ShowDialog()
     End Sub
     Private Sub 合帳_dgv_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 合帳_dgv.CellMouseClick
+        合帳計算()
+    End Sub
+    Private Sub 合帳計算()
         Dim 數值 As Integer = 0
         For i As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
             數值 += 紙帳非前期_dgv("交收金額", i).Value
@@ -2697,177 +2680,176 @@ Public Class 電板帳務彙總計算表
         End If
         紙帳存檔 = False
 
-        If 合帳_dgv.SelectedCells.Count = 1 Then
-            '------------------數值正負反--------------------------------------------------------------------------------------------------------------------------
-            If 合帳_dgv.SelectedCells(0).ColumnIndex = 1 Then
-                If 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
-                ElseIf 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
-                End If
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 2 Then
-                If 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
-                ElseIf 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
-                End If
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 3 Then
-                If 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
-                ElseIf 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
-                End If
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 4 Then
-                If 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
-                ElseIf 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
-                End If
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 5 Then
-                If 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
-                ElseIf 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
-                End If
-            End If
-            選擇記憶 = 合帳_dgv.SelectedCells(0).RowIndex
-            '------------------自定義資料取帳----------------------------------------------------------------------------------------------------------------------
-            If 合帳_dgv.SelectedCells(0).ColumnIndex = 6 Then : 自定義欄位_ch.Text = "紙帳"
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 7 Then : 自定義欄位_ch.Text = "應付"
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 8 Then : 自定義欄位_ch.Text = "應收"
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 9 Then : 自定義欄位_ch.Text = "個人所得"
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 10 Then : 自定義欄位_ch.Text = "水差"
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 11 Then : 自定義欄位_ch.Text = "前期"
-            ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 12 Then : 自定義欄位_ch.Text = "交收合計"
-            End If
-            自定義客戶_tb.Text = 合帳_dgv("客戶", 選擇記憶).Value.ToString
-            '------------------數值正負反--------------------------------------------------------------------------------------------------------------------------
-            For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 上繳名_dgv("上繳", II).Value.ToString Then
-                    If 合帳_dgv("付反", 選擇記憶).Value = False Then
-                        合帳_dgv("應付", 選擇記憶).Value = 上繳名_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("應付1", 選擇記憶).Value = 上繳名_dgv("交割金額", II).Value.ToString
-                    Else
-                        合帳_dgv("應付", 選擇記憶).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("應付1", 選擇記憶).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
-                    End If
+        'If 合帳_dgv.SelectedCells.Count = 1 Then : End If
+        '------------------數值正負反--------------------------------------------------------------------------------------------------------------------------
+        If 合帳_dgv.SelectedCells(0).ColumnIndex = 1 Then
+            If 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
+            ElseIf 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
+            End If
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 2 Then
+            If 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
+            ElseIf 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
+            End If
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 3 Then
+            If 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
+            ElseIf 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
+            End If
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 4 Then
+            If 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
+            ElseIf 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
+            End If
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 5 Then
+            If 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
+            ElseIf 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
+            End If
+        End If
+        選擇記憶 = 合帳_dgv.SelectedCells(0).RowIndex
+        '------------------自定義資料取帳----------------------------------------------------------------------------------------------------------------------
+        If 合帳_dgv.SelectedCells(0).ColumnIndex = 6 Then : 自定義欄位_ch.Text = "紙帳"
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 7 Then : 自定義欄位_ch.Text = "應付"
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 8 Then : 自定義欄位_ch.Text = "應收"
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 9 Then : 自定義欄位_ch.Text = "個人所得"
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 10 Then : 自定義欄位_ch.Text = "水差"
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 11 Then : 自定義欄位_ch.Text = "前期"
+        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 12 Then : 自定義欄位_ch.Text = "交收合計"
+        End If
+        自定義客戶_tb.Text = 合帳_dgv("客戶", 選擇記憶).Value.ToString
+        '------------------數值正負反--------------------------------------------------------------------------------------------------------------------------
+        For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 上繳名_dgv("上繳", II).Value.ToString Then
+                If 合帳_dgv("付反", 選擇記憶).Value = False Then
+                    合帳_dgv("應付", 選擇記憶).Value = 上繳名_dgv("交割金額", II).Value.ToString
+                    合帳_dgv("應付1", 選擇記憶).Value = 上繳名_dgv("交割金額", II).Value.ToString
+                Else
+                    合帳_dgv("應付", 選擇記憶).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
+                    合帳_dgv("應付1", 選擇記憶).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
                 End If
-            Next
-            For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 下收名_dgv("下收", II).Value.ToString Then
-                    If 合帳_dgv("收反", 選擇記憶).Value = False Then
-                        合帳_dgv("應收", 選擇記憶).Value = 下收名_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("應收1", 選擇記憶).Value = 下收名_dgv("交割金額", II).Value.ToString
-                    Else
-                        合帳_dgv("應收", 選擇記憶).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("應收1", 選擇記憶).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
-                    End If
+            End If
+        Next
+        For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 下收名_dgv("下收", II).Value.ToString Then
+                If 合帳_dgv("收反", 選擇記憶).Value = False Then
+                    合帳_dgv("應收", 選擇記憶).Value = 下收名_dgv("交割金額", II).Value.ToString
+                    合帳_dgv("應收1", 選擇記憶).Value = 下收名_dgv("交割金額", II).Value.ToString
+                Else
+                    合帳_dgv("應收", 選擇記憶).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
+                    合帳_dgv("應收1", 選擇記憶).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
                 End If
-            Next
-            '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
-            合帳_dgv("個人所得", 選擇記憶).Value = "0" : 合帳_dgv("個人所得1", 選擇記憶).Value = "0"
-            For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
-                    If 合帳_dgv("所反", 選擇記憶).Value = False Then
-                        合帳_dgv("個人所得", 選擇記憶).Value = 所得名_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("個人所得1", 選擇記憶).Value = 所得名_dgv("交割金額", II).Value.ToString
-                    Else
-                        合帳_dgv("個人所得", 選擇記憶).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
-                    End If
+            End If
+        Next
+        '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
+        合帳_dgv("個人所得", 選擇記憶).Value = "0" : 合帳_dgv("個人所得1", 選擇記憶).Value = "0"
+        For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
+                If 合帳_dgv("所反", 選擇記憶).Value = False Then
+                    合帳_dgv("個人所得", 選擇記憶).Value = 所得名_dgv("交割金額", II).Value.ToString
+                    合帳_dgv("個人所得1", 選擇記憶).Value = 所得名_dgv("交割金額", II).Value.ToString
+                Else
+                    合帳_dgv("個人所得", 選擇記憶).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
+                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                 End If
-            Next
-            For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
-                    If 合帳_dgv("所反", 選擇記憶).Value = False Then
-                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
-                    Else
-                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
-                    End If
+            End If
+        Next
+        For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
+                If 合帳_dgv("所反", 選擇記憶).Value = False Then
+                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
+                Else
+                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
+                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                 End If
-            Next
-            For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
-                    If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
+            End If
+        Next
+        For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
+                If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
+                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                Else
+                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                End If
+            End If
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
+                If 合帳_dgv("紅反", 選擇記憶).Value = False Then
+                    If 紅利分表_dgv("反轉", II).Value = False Then
                         合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                         合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                     Else
                         合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                         合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                     End If
-                End If
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
-                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
-                        If 紅利分表_dgv("反轉", II).Value = False Then
-                            合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
-                            合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
-                        Else
-                            合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                            合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                        End If
+                Else
+                    If 紅利分表_dgv("反轉", II).Value = False Then
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                     Else
-                        If 紅利分表_dgv("反轉", II).Value = False Then
-                            合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                            合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
-                        Else
-                            合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
-                            合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
-                        End If
+                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
+                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                     End If
                 End If
-            Next
-            Dim 水差加總 As Boolean = False
-            For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
-                    If 合帳_dgv("所反", 選擇記憶).Value = False Then
-                        合帳_dgv("水差", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("水差1", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
+            End If
+        Next
+        Dim 水差加總 As Boolean = False
+        For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
+                If 合帳_dgv("所反", 選擇記憶).Value = False Then
+                    合帳_dgv("水差", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString
+                    合帳_dgv("水差1", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
+                Else
+                    合帳_dgv("水差", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                    合帳_dgv("水差1", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
+                End If
+            End If
+        Next
+        For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
+            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
+                If 合帳_dgv("所反", 選擇記憶).Value = False Then
+                    If 水差加總 = False Then
+                        合帳_dgv("水差", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                        合帳_dgv("水差1", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
                     Else
-                        合帳_dgv("水差", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("水差1", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
+                        If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
+                        If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
+                        合帳_dgv("水差", 選擇記憶).Value = CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                        合帳_dgv("水差1", 選擇記憶).Value = CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                     End If
-                End If
-            Next
-            For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
-                If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
-                    If 合帳_dgv("所反", 選擇記憶).Value = False Then
-                        If 水差加總 = False Then
-                            合帳_dgv("水差", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
-                            合帳_dgv("水差1", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
-                        Else
-                            If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
-                            If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
-                            合帳_dgv("水差", 選擇記憶).Value = CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
-                            合帳_dgv("水差1", 選擇記憶).Value = CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
-                        End If
+                Else
+                    If 水差加總 = False Then
+                        合帳_dgv("水差", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                        合帳_dgv("水差1", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                     Else
-                        If 水差加總 = False Then
-                            合帳_dgv("水差", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
-                            合帳_dgv("水差1", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
-                        Else
-                            If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
-                            If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
-                            合帳_dgv("水差", 選擇記憶).Value = (CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
-                            合帳_dgv("水差1", 選擇記憶).Value = (CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
-                        End If
+                        If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
+                        If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
+                        合帳_dgv("水差", 選擇記憶).Value = (CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                        合帳_dgv("水差1", 選擇記憶).Value = (CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                     End If
                 End If
-            Next
-            If Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
-                合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value) * -1
-                合帳_dgv.Rows(選擇記憶).Cells("應收1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) * -1
-                合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value) * -1
-                合帳_dgv.Rows(選擇記憶).Cells("應付1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) * -1
-            ElseIf Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) = 0 Then
-                合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value) * -1
-                合帳_dgv.Rows(選擇記憶).Cells("應收1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) * -1
-            End If
-
-            客戶_tb.Text = 合帳_dgv("客戶", 選擇記憶).Value.ToString
-            If Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
-                上繳反轉 = True
-            ElseIf Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) = 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
-                上繳反轉 = False
             End If
-            手工帳資料自動判斷() : 紙帳計算() : 手帳計算()
+        Next
+        If Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
+            合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value) * -1
+            合帳_dgv.Rows(選擇記憶).Cells("應收1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) * -1
+            合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value) * -1
+            合帳_dgv.Rows(選擇記憶).Cells("應付1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) * -1
+        ElseIf Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) = 0 Then
+            合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value) * -1
+            合帳_dgv.Rows(選擇記憶).Cells("應收1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) * -1
+        End If
 
-            合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value), "#,##0")
-            合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value), "#,##0")
-            合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value), "#,##0")
-            合帳_dgv.Rows(選擇記憶).Cells("水差").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("水差").Value), "#,##0")
+        客戶_tb.Text = 合帳_dgv("客戶", 選擇記憶).Value.ToString
+        If Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
+            上繳反轉 = True
+        ElseIf Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) = 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
+            上繳反轉 = False
         End If
+        手工帳資料自動判斷() : 紙帳計算() : 手帳計算()
+
+        合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value), "#,##0")
+        合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value), "#,##0")
+        合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value), "#,##0")
+        合帳_dgv.Rows(選擇記憶).Cells("水差").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("水差").Value), "#,##0")
     End Sub
     Private Sub 合帳_bt_Click(sender As Object, e As EventArgs) Handles 合帳_bt.Click
         If 彙總_dgv.Visible = True Then : 彙總_dgv.Visible = False : 合帳_dgv.Visible = True : End If
@@ -3315,7 +3297,7 @@ Public Class 電板帳務彙總計算表
                 Next
             End If
             合帳1_tb.Text = Strings.Format(Val(合帳1_tb.Text), "#,##0")
-            手工帳資料自動判斷()
+            手工帳資料自動判斷() : 查詢()
         End If
     End Sub
     Private Sub 控制隱藏讀取()
@@ -3571,6 +3553,31 @@ Public Class 電板帳務彙總計算表
             彙總報表預覽.Size = New Size(448, NH) : 彙總報表預覽.ShowDialog()
         End If
     End Sub
+    Private Sub 查詢_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 查詢_tb.KeyPress
+        If e.KeyChar = ChrW(Keys.Enter) Then : 查詢() : End If
+    End Sub
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+        查詢()
+    End Sub
+    Private Sub 查詢()
+        Dim keyword As String = 查詢_tb.Text.Trim() : Dim startingRowIndex As Integer = 0
+        If 合帳_dgv.SelectedCells.Count > 0 Then
+            startingRowIndex = 合帳_dgv.SelectedCells(0).RowIndex + 1
+            If startingRowIndex >= 合帳_dgv.Rows.Count Then : 合帳_dgv.ClearSelection() : startingRowIndex = 0 : End If
+        End If : 合帳_dgv.ClearSelection()
+        For i As Integer = startingRowIndex To 合帳_dgv.Rows.Count - 1 : Dim row As DataGridViewRow = 合帳_dgv.Rows(i)
+            If row.Cells("客戶").Value.ToString().IndexOf(keyword, StringComparison.OrdinalIgnoreCase) >= 0 Then
+                row.Selected = True : 合帳_dgv.FirstDisplayedScrollingRowIndex = row.Index : Exit For
+            End If
+        Next
+        If 合帳_dgv.SelectedCells.Count = 0 Then : startingRowIndex = 0 : 合帳_dgv.ClearSelection()
+            For i As Integer = startingRowIndex To 合帳_dgv.Rows.Count - 1 : Dim row As DataGridViewRow = 合帳_dgv.Rows(i)
+                If row.Cells("客戶").Value.ToString().IndexOf(keyword, StringComparison.OrdinalIgnoreCase) >= 0 Then
+                    row.Selected = True : 合帳_dgv.FirstDisplayedScrollingRowIndex = row.Index : Exit For
+                End If
+            Next : 合帳計算()
+        Else : 合帳計算() : End If
+    End Sub
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         列印選擇.ShowDialog()
         If 是否PDF = False Then

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.vb

@@ -975,16 +975,16 @@ Public Class 電板帳務明細查詢表
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
         If 不用WEB = True Then
-            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
+            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True : 彙總表不再重新讀取 = False
         Else
-            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
+            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True : 彙總表不再重新讀取 = False
         End If
     End Sub
     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
         If 不用WEB = True Then
-            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
+            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True : 彙總表不再重新讀取 = False
         Else
-            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
+            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True : 彙總表不再重新讀取 = False
         End If
     End Sub
     Private Sub 帳務明細查詢表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

GA-ERP-SYS/報表系統管理/前台/電板紙板帳務設定.Designer.vb

@@ -38,6 +38,8 @@ Partial Class 電板紙板帳務設定
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.查詢_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
         CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -50,14 +52,14 @@ Partial Class 電板紙板帳務設定
         Me.電板客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.電板客戶_dgv.BackgroundColor = System.Drawing.Color.White
         Me.電板客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.電板客戶_dgv.Location = New System.Drawing.Point(5, 3)
+        Me.電板客戶_dgv.Location = New System.Drawing.Point(5, 28)
         Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板客戶_dgv.Name = "電板客戶_dgv"
         Me.電板客戶_dgv.RowHeadersWidth = 4
         DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.電板客戶_dgv.RowTemplate.Height = 24
-        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 554)
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 529)
         Me.電板客戶_dgv.TabIndex = 1633
         '
         '電板紙板_dgv
@@ -193,9 +195,9 @@ Partial Class 電板紙板帳務設定
         Me.Label2.ForeColor = System.Drawing.Color.Black
         Me.Label2.Location = New System.Drawing.Point(123, 56)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(47, 17)
+        Me.Label2.Size = New System.Drawing.Size(65, 17)
         Me.Label2.TabIndex = 1645
-        Me.Label2.Text = "舊資料"
+        Me.Label2.Text = "舊   資   料"
         '
         '日期_dtp
         '
@@ -208,13 +210,33 @@ Partial Class 電板紙板帳務設定
         Me.日期_dtp.TabIndex = 1646
         Me.日期_dtp.Visible = False
         '
+        '查詢_tb
+        '
+        Me.查詢_tb.ForeColor = System.Drawing.Color.Black
+        Me.查詢_tb.Location = New System.Drawing.Point(37, 3)
+        Me.查詢_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.查詢_tb.Name = "查詢_tb"
+        Me.查詢_tb.Size = New System.Drawing.Size(86, 23)
+        Me.查詢_tb.TabIndex = 1647
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.Black
+        Me.Label3.Location = New System.Drawing.Point(6, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(34, 17)
+        Me.Label3.TabIndex = 1648
+        Me.Label3.Text = "查詢"
+        '
         '電板紙板帳務設定
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(349, 561)
+        Me.Controls.Add(Me.查詢_tb)
         Me.Controls.Add(Me.日期_dtp)
-        Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.新增_bt)
         Me.Controls.Add(Me.存檔_bt)
@@ -227,6 +249,8 @@ Partial Class 電板紙板帳務設定
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.商品1_tb)
         Me.Controls.Add(Me.電板紙板_dgv)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label3)
         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(3, 4, 3, 4)
         Me.Name = "電板紙板帳務設定"
@@ -254,4 +278,6 @@ Partial Class 電板紙板帳務設定
     Friend WithEvents 刪除_bt As Button
     Friend WithEvents Label2 As Label
     Friend WithEvents 日期_dtp As DateTimePicker
+    Friend WithEvents 查詢_tb As TextBox
+    Friend WithEvents Label3 As Label
 End Class

GA-ERP-SYS/報表系統管理/前台/電板紙板帳務設定.vb

@@ -5,7 +5,6 @@
         電板客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         電板客戶_dgv.ColumnHeadersHeight = 25
         電板客戶_dgv.AllowUserToAddRows = False
-
         SQL_電板客戶查詢()
         da.Fill(ds3) : 電板客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
         電板客戶_dgv.Columns(1).Visible = False : 電板客戶_dgv.Columns(2).Visible = False : 電板客戶_dgv.Columns(3).Visible = False
@@ -95,4 +94,7 @@
             SQL_電板紙帳刪除() : Set_電板紙板() : 商品1_tb.Text = "" : 商品_tb.Text = "" : 電板帳務彙總計算表.紙帳計算_bt.PerformClick()
         End If
     End Sub
+    Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
+        PPCC = 查詢_tb.Text : Set_電板客戶() : PPCC = ""
+    End Sub
 End Class

GA-ERP-SYS/報表系統管理/前台/電板股東紅利設定.Designer.vb

@@ -22,8 +22,8 @@ Partial Class 電板股東紅利設定
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.電板紙板_dgv = New System.Windows.Forms.DataGridView()
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.新增_bt = New System.Windows.Forms.Button()
@@ -43,6 +43,8 @@ Partial Class 電板股東紅利設定
         Me.Label4 = New System.Windows.Forms.Label()
         Me.下拉1_bt = New System.Windows.Forms.Button()
         Me.反轉_ch = New System.Windows.Forms.CheckBox()
+        Me.查詢_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
         CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -62,8 +64,8 @@ Partial Class 電板股東紅利設定
         Me.電板紙板_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板紙板_dgv.Name = "電板紙板_dgv"
         Me.電板紙板_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.電板紙板_dgv.RowTemplate.Height = 24
         Me.電板紙板_dgv.Size = New System.Drawing.Size(297, 403)
         Me.電板紙板_dgv.TabIndex = 1646
@@ -139,14 +141,14 @@ Partial Class 電板股東紅利設定
         Me.電板客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.電板客戶_dgv.BackgroundColor = System.Drawing.Color.White
         Me.電板客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.電板客戶_dgv.Location = New System.Drawing.Point(4, 3)
+        Me.電板客戶_dgv.Location = New System.Drawing.Point(4, 27)
         Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板客戶_dgv.Name = "電板客戶_dgv"
         Me.電板客戶_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.電板客戶_dgv.RowTemplate.Height = 24
-        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 555)
+        Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 531)
         Me.電板客戶_dgv.TabIndex = 1645
         '
         '字體_NUD
@@ -270,11 +272,33 @@ Partial Class 電板股東紅利設定
         Me.反轉_ch.Text = "帳務反轉"
         Me.反轉_ch.UseVisualStyleBackColor = True
         '
+        '查詢_tb
+        '
+        Me.查詢_tb.ForeColor = System.Drawing.Color.Black
+        Me.查詢_tb.Location = New System.Drawing.Point(36, 2)
+        Me.查詢_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.查詢_tb.Name = "查詢_tb"
+        Me.查詢_tb.Size = New System.Drawing.Size(86, 23)
+        Me.查詢_tb.TabIndex = 1680
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Location = New System.Drawing.Point(5, 5)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(34, 17)
+        Me.Label5.TabIndex = 1681
+        Me.Label5.Text = "查詢"
+        '
         '電板股東紅利設定
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(428, 561)
+        Me.Controls.Add(Me.查詢_tb)
+        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.反轉_ch)
         Me.Controls.Add(Me.下拉1_bt)
         Me.Controls.Add(Me.商品_cb)
@@ -328,4 +352,6 @@ Partial Class 電板股東紅利設定
     Friend WithEvents Label4 As Label
     Friend WithEvents 下拉1_bt As Button
     Friend WithEvents 反轉_ch As CheckBox
+    Friend WithEvents 查詢_tb As TextBox
+    Friend WithEvents Label5 As Label
 End Class

GA-ERP-SYS/報表系統管理/前台/電板股東紅利設定.vb

@@ -97,4 +97,7 @@
             下拉清單_1.ShowDialog() : 商品_cb.Text = PPAA
         End If
     End Sub
+    Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
+        PPCC = 查詢_tb.Text : Set_電板客戶() : PPCC = ""
+    End Sub
 End Class

GA-ERP-SYS/資料庫系統管理/LINE_使用者管理表.resx

@@ -0,0 +1,120 @@
+<?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>

GA-ERP-SYS/資料庫系統管理/LINE_使用者管理表.vb

@@ -0,0 +1,108 @@
+Public Class LINE_使用者管理表
+    Dim HH As Integer
+    Dim 對話框(5) As String
+    Private Sub Set_使用者清單()
+        Dim ds As New DataSet : 系統使用者_dgv.DataSource = Nothing : ds.Clear()
+        系統使用者_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        系統使用者_dgv.ColumnHeadersHeight = 25
+        系統使用者_dgv.AllowUserToAddRows = False
+        系統使用者_dgv.RowTemplate.Height = 35
+        SQL_系統使用者_清單() : da.Fill(ds) : 系統使用者_dgv.DataSource = ds.Tables(0)
+    End Sub
+    Private Sub Set_LINE使用者清單()
+        Dim ds1 As New DataSet : LINE使用者_dgv.DataSource = Nothing : ds1.Clear()
+        LINE使用者_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LINE使用者_dgv.ColumnHeadersHeight = 25
+        LINE使用者_dgv.AllowUserToAddRows = False
+        LINE使用者_dgv.RowTemplate.Height = 35
+        SQL_LINE使用者_清單() : da.Fill(ds1) : LINE使用者_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        LINE使用者_dgv.Columns(0).FillWeight = 30 : LINE使用者_dgv.Columns(1).Visible = False : LINE使用者_dgv.Columns(2).FillWeight = 100 : LINE使用者_dgv.Columns(3).FillWeight = 30
+        LINE使用者_dgv.Columns(4).FillWeight = 40 : LINE使用者_dgv.Columns(5).Visible = False : LINE使用者_dgv.Columns(6).Visible = False
+
+        LINE使用者_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To LINE_權限數量 + 2 : LINE使用者_dgv.Columns(i + 7).Visible = False : Next
+        For i As Integer = 0 To LINE使用者_dgv.Rows.Count - 1
+            If IsDBNull(LINE使用者_dgv.Rows(i).Cells("Line").Value) Then : LINE使用者_dgv.Rows(i).Cells("Line").Value = False : End If
+            If IsDBNull(LINE使用者_dgv.Rows(i).Cells("WhatsApp").Value) Then : LINE使用者_dgv.Rows(i).Cells("WhatsApp").Value = False : End If
+            If IsDBNull(LINE使用者_dgv.Rows(i).Cells("Message").Value) Then : LINE使用者_dgv.Rows(i).Cells("Message").Value = False : End If
+            For no As Integer = 0 To LINE_權限數量 - 1
+                HH = no + 200
+                If IsDBNull(LINE使用者_dgv.Rows(i).Cells("CC" & HH.ToString).Value) Then : LINE使用者_dgv.Rows(i).Cells("CC" & HH.ToString).Value = False : End If
+            Next
+        Next
+    End Sub
+    Private Sub Set_權限一覽()
+        Dim nob As Integer
+        Dim ds2 As New DataSet : LINE權限一覽_dgv.DataSource = Nothing : ds2.Clear()
+        LINE權限一覽_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LINE權限一覽_dgv.ColumnHeadersHeight = 25
+        LINE權限一覽_dgv.AllowUserToAddRows = False
+        LINE權限一覽_dgv.RowTemplate.Height = 35
+        SQL_LINE權限一覽_dgv_清單() : da.Fill(ds2) : LINE權限一覽_dgv.DataSource = ds2.Tables(0)
+        If LINE權限一覽_dgv.Rows.Count > 0 Then
+            For no As Integer = 0 To LINE權限一覽_dgv.Rows.Count - 1
+                HH = no + 200
+                Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
+                選擇.Visible = True
+                選擇.Text = LINE權限一覽_dgv.Rows(no).Cells("權限代號").Value.ToString & "-" & LINE權限一覽_dgv.Rows(no).Cells("權限名稱").Value.ToString
+            Next
+        End If
+    End Sub
+    Private Sub LINE_使用者管理表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        對話框(0) = "該功能介面為系統開發人員使用，所以不提供語言轉換功能!!" : 對話框(1) = "輸入資料有誤!!" : 對話框(2) = "新增完成!!" : 對話框(3) = "存檔完成!!"
+        對話框(4) = "確定要刪除該筆資料?" : 對話框(5) = "刪除完成!!"
+        PA = "" : 確認新增_bt.Enabled = False : Panel2.SendToBack()  '在職 = True
+        修改_bt.Enabled = False
+        Set_使用者清單() : Set_LINE使用者清單() : Set_權限一覽()
+    End Sub
+    Private Sub Set_格式設定1()
+        For no As Integer = 0 To LINE_權限數量 - 1
+            HH = no + 200
+            Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
+            選擇.Checked = False
+        Next
+    End Sub
+    Private Sub LINE使用者_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles LINE使用者_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            姓名_tb.Text = LINE使用者_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString : token_tb.Text = LINE使用者_dgv.Rows(e.RowIndex).Cells("token").Value.ToString
+            通知語言_cb.Text = LINE使用者_dgv.Rows(e.RowIndex).Cells("通知語言").Value.ToString
+            電話號碼1_tb.Text = LINE使用者_dgv.Rows(e.RowIndex).Cells("電話號碼1").Value.ToString : 電話號碼2_tb.Text = LINE使用者_dgv.Rows(e.RowIndex).Cells("電話號碼2").Value.ToString
+            電話號碼3_tb.Text = LINE使用者_dgv.Rows(e.RowIndex).Cells("電話號碼3").Value.ToString
+            Line_cb.Checked = LINE使用者_dgv.Rows(e.RowIndex).Cells("Line").Value : WhatsApp_cb.Checked = LINE使用者_dgv.Rows(e.RowIndex).Cells("WhatsApp").Value
+            Message_cb.Checked = LINE使用者_dgv.Rows(e.RowIndex).Cells("Message").Value
+            For no As Integer = 0 To LINE權限一覽_dgv.Rows.Count - 1
+                HH = no + 200
+                Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
+                選擇.Checked = LINE使用者_dgv.Rows(e.RowIndex).Cells(LINE權限一覽_dgv.Rows(no).Cells("權限代號").Value.ToString).Value
+            Next
+        End If
+    End Sub
+    Private Sub 系統使用者_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 系統使用者_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            姓名_tb.Text = 系統使用者_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString
+        End If
+    End Sub
+    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
+        電話號碼1_tb.Text = "" : 電話號碼2_tb.Text = "" : 電話號碼3_tb.Text = ""
+        姓名_tb.Text = "" : token_tb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
+        Set_格式設定1()
+    End Sub
+    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
+        If 姓名_tb.Text = "" Then
+        Else
+            For i As Integer = 0 To LINE_權限數量 - 1
+                linecc(i) = False
+            Next
+            For no As Integer = 0 To LINE權限一覽_dgv.Rows.Count - 1
+                HH = no + 200
+                Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
+                If 選擇.Checked Then
+                    linecc(Val(LINE權限一覽_dgv.Rows(no).Cells("權限代號").Value.ToString.Substring(2, 3)) - 200) = True
+                End If
+            Next
+            SQL_LINE_新增使用者資料() : conn.Close()
+            Set_LINE使用者清單()
+            確認新增_bt.Enabled = False : 新增_bt.Enabled = True
+        End If
+    End Sub
+End Class

GA-ERP-SYS/資料庫系統管理/測試.Designer.vb

@@ -22,29 +22,74 @@ Partial Class 測試
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.彙總2_dgv = New System.Windows.Forms.DataGridView()
+        Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
+        Me.Button2 = New System.Windows.Forms.Button()
+        CType(Me.彙總2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Button1
+        '彙總2_dgv
         '
-        Me.Button1.Location = New System.Drawing.Point(12, 12)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.彙總2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總2_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.彙總2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總2_dgv.Location = New System.Drawing.Point(2, 2)
+        Me.彙總2_dgv.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.彙總2_dgv.Name = "彙總2_dgv"
+        Me.彙總2_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.彙總2_dgv.RowTemplate.Height = 24
+        Me.彙總2_dgv.Size = New System.Drawing.Size(391, 595)
+        Me.彙總2_dgv.TabIndex = 1786
+        '
+        '彙總1_dgv
+        '
+        Me.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.彙總1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總1_dgv.Location = New System.Drawing.Point(396, 2)
+        Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.彙總1_dgv.Name = "彙總1_dgv"
+        Me.彙總1_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.彙總1_dgv.RowTemplate.Height = 24
+        Me.彙總1_dgv.Size = New System.Drawing.Size(426, 595)
+        Me.彙總1_dgv.TabIndex = 1788
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(824, 2)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(4)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(99, 595)
+        Me.Button2.TabIndex = 1796
+        Me.Button2.Text = "計算"
+        Me.Button2.UseVisualStyleBackColor = True
         '
         '測試
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(Me.Button1)
+        Me.ClientSize = New System.Drawing.Size(926, 600)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.彙總1_dgv)
+        Me.Controls.Add(Me.彙總2_dgv)
+        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)
         Me.Name = "測試"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "測試"
+        CType(Me.彙總2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
-
-    Friend WithEvents Button1 As Button
+    Friend WithEvents 彙總2_dgv As DataGridView
+    Friend WithEvents 彙總1_dgv As DataGridView
+    Friend WithEvents Button2 As Button
 End Class

GA-ERP-SYS/資料庫系統管理/測試.vb

@@ -1,5 +1,93 @@
 Public Class 測試
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Process.Start("explorer.exe", "https://www.google.com")
+    Sub GenerateFGArray1()
+        Dim FG(99) As String : For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1 : 彙總1_dgv.Rows.RemoveAt(0) : Next
+        For i = 0 To 99 : FG(i) = Format(i, "00") : Next i
+        For i = 0 To 99
+            彙總1_dgv.Rows.Insert(0) : 彙總1_dgv.Rows(0).Cells("台號").Value = FG(i) : 彙總1_dgv.Rows(0).Cells("出現次數_49").Value = "0" : 彙總1_dgv.Rows(0).Cells("出現次數_39").Value = "0"
+        Next i
+    End Sub
+    Sub GenerateFGArray2()
+        Dim FG(999) As String : For i As Integer = 0 To 彙總2_dgv.Rows.Count - 1 : 彙總2_dgv.Rows.RemoveAt(0) : Next
+        For i = 0 To 999 : FG(i) = Format(i, "000") : Next i
+        For i = 0 To 999
+            彙總2_dgv.Rows.Insert(0) : 彙總2_dgv.Rows(0).Cells("特尾").Value = FG(i) : 彙總2_dgv.Rows(0).Cells("出現次數_49").Value = "0" : 彙總2_dgv.Rows(0).Cells("出現次數_39").Value = "0"
+        Next i
+    End Sub
+    Private Sub 測試_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim DA01 As New DataGridViewTextBoxColumn : Dim DA02 As New DataGridViewTextBoxColumn : Dim DA03 As New DataGridViewTextBoxColumn
+        DA01.HeaderText = "台號" : DA01.Name = "台號" : 彙總1_dgv.Columns.Insert(0, DA01)
+        DA02.HeaderText = "出現次數_49" : DA02.Name = "出現次數_49" : 彙總1_dgv.Columns.Insert(1, DA02)
+        DA03.HeaderText = "出現次數_39" : DA03.Name = "出現次數_39" : 彙總1_dgv.Columns.Insert(1, DA03)
+        彙總1_dgv.DataSource = Nothing : 彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總1_dgv.ColumnHeadersHeight = 25 : 彙總1_dgv.AllowUserToAddRows = False
+
+        Dim BA01 As New DataGridViewTextBoxColumn : Dim BA02 As New DataGridViewTextBoxColumn : Dim BA03 As New DataGridViewTextBoxColumn
+        BA01.HeaderText = "特尾" : BA01.Name = "特尾" : 彙總2_dgv.Columns.Insert(0, BA01)
+        BA02.HeaderText = "出現次數_49" : BA02.Name = "出現次數_49" : 彙總2_dgv.Columns.Insert(1, BA02)
+        BA03.HeaderText = "出現次數_39" : BA03.Name = "出現次數_39" : 彙總2_dgv.Columns.Insert(1, BA03)
+        彙總2_dgv.DataSource = Nothing : 彙總2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總2_dgv.ColumnHeadersHeight = 25 : 彙總2_dgv.AllowUserToAddRows = False
+    End Sub
+    Dim PCD(99), PCB(999), 計算次數 As Integer
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If 不用WEB = True Then : timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : Else : timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : End If
+        GenerateFGArray1() : GenerateFGArray2()
+        '------49號--------------------------------------------------------------------------------------------------------------------------------------------------------------
+        For i As Integer = 0 To 99 : PCD(i) = 0 : Next : For i As Integer = 0 To 999 : PCB(i) = 0 : Next
+        計算次數 = 0 : Dim PC(49) As String : Dim combination As String : For i = 0 To 48 : PC(i) = Format(i + 1, "00") : Next i : Dim SD As Integer = 44  '44
+        For i1 = 0 To SD
+            For i2 = i1 + 1 To SD + 1
+                For i3 = i2 + 1 To SD + 2
+                    For i4 = i3 + 1 To SD + 3
+                        For i5 = i4 + 1 To SD + 4
+                            For i6 = i5 + 1 To SD + 5
+                                combination = PC(i1) & "、" & PC(i2) & "、" & PC(i3) & "、" & PC(i4) & "、" & PC(i5) & "、" & PC(i6) : PA = combination
+                                If Strings.Right(combination, 1) = "、" Then : Else
+                                    PA1 = Strings.Mid(combination, 2, 1) & Strings.Mid(combination, 5, 1) : PA2 = Strings.Mid(combination, 5, 1) & Strings.Mid(combination, 8, 1)
+                                    PA3 = Strings.Mid(combination, 8, 1) & Strings.Mid(combination, 11, 1) : PA4 = Strings.Mid(combination, 11, 1) & Strings.Mid(combination, 14, 1)
+                                    PA5 = Strings.Mid(combination, 14, 1) & Strings.Mid(combination, 17, 1)
+                                    For i As Integer = 0 To 99 : If CInt(PA1) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                    For i As Integer = 0 To 99 : If CInt(PA2) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                    For i As Integer = 0 To 99 : If CInt(PA3) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                    For i As Integer = 0 To 99 : If CInt(PA4) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                    For i As Integer = 0 To 99 : If CInt(PA5) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                    PA6 = Strings.Mid(PA2, 2, 1) & Strings.Mid(PA3, 2, 1) & Strings.Mid(PA4, 2, 1)
+                                    For i As Integer = 0 To 999 : If CInt(PA6) = i Then : PCB(i) += 1 : Exit For : End If : Next
+                                    計算次數 += 1
+                                End If
+                            Next i6
+                        Next i5
+                    Next i4
+                Next i3
+            Next i2
+        Next i1
+        For i = 0 To 99 : 彙總1_dgv.Rows(i).Cells("出現次數_49").Value = PCD(99 - i) : Next i : For i = 0 To 999 : 彙總2_dgv.Rows(i).Cells("出現次數_49").Value = PCB(999 - i) : Next i
+        '------49號--------------------------------------------------------------------------------------------------------------------------------------------------------------
+        For i As Integer = 0 To 99 : PCD(i) = 0 : Next : For i As Integer = 0 To 999 : PCB(i) = 0 : Next
+        計算次數 = 0 : Dim PE(39) As String : combination = "" : For i = 0 To 38 : PC(i) = Format(i + 1, "00") : Next i : SD = 34
+        For i1 = 0 To SD
+            For i2 = i1 + 1 To SD + 1
+                For i3 = i2 + 1 To SD + 2
+                    For i4 = i3 + 1 To SD + 3
+                        For i5 = i4 + 1 To SD + 4
+                            combination = PC(i1) & "、" & PC(i2) & "、" & PC(i3) & "、" & PC(i4) & "、" & PC(i5) : PA = combination
+                            If Strings.Right(combination, 1) = "、" Then : Else
+                                PA1 = Strings.Mid(combination, 2, 1) & Strings.Mid(combination, 5, 1) : PA2 = Strings.Mid(combination, 5, 1) & Strings.Mid(combination, 8, 1)
+                                PA3 = Strings.Mid(combination, 8, 1) & Strings.Mid(combination, 11, 1) : PA4 = Strings.Mid(combination, 11, 1) & Strings.Mid(combination, 14, 1)
+                                For i As Integer = 0 To 99 : If CInt(PA1) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                For i As Integer = 0 To 99 : If CInt(PA2) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                For i As Integer = 0 To 99 : If CInt(PA3) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                For i As Integer = 0 To 99 : If CInt(PA4) = i Then : PCD(i) += 1 : Exit For : End If : Next
+                                PA6 = Strings.Mid(PA1, 2, 1) & Strings.Mid(PA2, 2, 1) & Strings.Mid(PA3, 2, 1)
+                                For i As Integer = 0 To 999 : If CInt(PA6) = i Then : PCB(i) += 1 : Exit For : End If : Next
+                                計算次數 += 1
+                            End If
+                        Next i5
+                    Next i4
+                Next i3
+            Next i2
+        Next i1
+        For i = 0 To 99 : 彙總1_dgv.Rows(i).Cells("出現次數_39").Value = PCD(99 - i) : Next i : For i = 0 To 999 : 彙總2_dgv.Rows(i).Cells("出現次數_39").Value = PCB(999 - i) : Next i
+        MsgBox("計算完成")
     End Sub
 End Class