From 5c8e744c104b3cac6fdecc007329614e15107e1d Mon Sep 17 00:00:00 2001
From: daisukenishino2 <nishi_74322014@ksj.biglobe.ne.jp>
Date: Tue, 18 Sep 2018 16:48:06 +0900
Subject: [PATCH] tweak.

---
 .../AsyncProcessingService.csproj             |   4 +-
 .../Infrastructure/Business/Business.csproj   | 116 ++++++-
 .../Infrastructure/Business/Dao/CmnDao.cs     |  34 ++-
 .../Infrastructure/Business/Dao/MyBaseDao.cs  |  35 ++-
 .../Business/Util/MyCmnFunction.cs            | 286 ++++++++++++++++++
 .../Infrastructure/Business/app.config        |  11 +
 .../Infrastructure/Business/packages.config   |  24 ++
 .../Infrastructure/Business/Business.vbproj   |  19 +-
 .../Infrastructure/Business/Dao/CmnDao.vb     |  88 ++++--
 .../Infrastructure/Business/Dao/MyBaseDao.vb  | 195 ++++++------
 10 files changed, 662 insertions(+), 150 deletions(-)
 create mode 100644 root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs
 create mode 100644 root/programs/CS/Frameworks/Infrastructure/Business/app.config
 create mode 100644 root/programs/CS/Frameworks/Infrastructure/Business/packages.config

diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj b/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj
index c07a795..40e3031 100644
--- a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj
+++ b/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj
@@ -51,7 +51,9 @@
     <Reference Include="System.Data" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="AsyncProcessingService.cs" />
+    <Compile Include="AsyncProcessingService.cs">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Properties\AssemblyInfo.cs" />
     <Compile Include="ServiceInstaller.cs">
       <SubType>Component</SubType>
diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj b/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj
index bea576c..a76d6a6 100644
--- a/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj
+++ b/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj
@@ -63,33 +63,116 @@
     <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="OpenTouryo.DamManagedOdp">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamManagedOdp.dll</HintPath>
+    <Reference Include="DotNetZip, Version=1.10.1.0, Culture=neutral, PublicKeyToken=6583c7c814667745, processorArchitecture=MSIL">
+      <HintPath>..\packages\DotNetZip.1.10.1\lib\net20\DotNetZip.dll</HintPath>
+      <Private>True</Private>
     </Reference>
-    <Reference Include="OpenTouryo.DamMySQL">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamMySQL.dll</HintPath>
+    <Reference Include="log4net, Version=2.0.8.0, Culture=neutral, PublicKeyToken=669e0ddf0bb1aa2a, processorArchitecture=MSIL">
+      <HintPath>..\packages\log4net.2.0.8\lib\net45-full\log4net.dll</HintPath>
+      <Private>True</Private>
     </Reference>
-    <Reference Include="OpenTouryo.DamPstGrS">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamPstGrS.dll</HintPath>
+    <Reference Include="Microsoft.Owin, Version=3.1.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Owin.3.1.0\lib\net45\Microsoft.Owin.dll</HintPath>
+      <Private>True</Private>
     </Reference>
-    <Reference Include="OpenTouryo.Framework">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\CS\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll</HintPath>
+    <Reference Include="Microsoft.Owin.Security, Version=3.1.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Owin.Security.3.1.0\lib\net45\Microsoft.Owin.Security.dll</HintPath>
+      <Private>True</Private>
     </Reference>
-    <Reference Include="OpenTouryo.Public">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\CS\Frameworks\Infrastructure\Build\OpenTouryo.Public.dll</HintPath>
+    <Reference Include="Microsoft.Web.Infrastructure, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Web.Infrastructure.1.0.0.0\lib\net40\Microsoft.Web.Infrastructure.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="MySql.Data, Version=6.9.12.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
+      <HintPath>..\packages\MySql.Data.6.9.12\lib\net45\MySql.Data.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="Npgsql, Version=3.2.5.0, Culture=neutral, PublicKeyToken=5d8b90d52f46fda7, processorArchitecture=MSIL">
+      <HintPath>..\packages\Npgsql.3.2.5\lib\net451\Npgsql.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="OpenTouryo.DamManagedOdp, Version=2.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\Touryo.Infrastructure.Public.Db.DamManagedOdp.2.3.0\lib\net46\OpenTouryo.DamManagedOdp.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="OpenTouryo.DamMySQL, Version=2.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\Touryo.Infrastructure.Public.Db.DamMySQL.2.3.0\lib\net46\OpenTouryo.DamMySQL.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="OpenTouryo.DamPstGrS, Version=2.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\Touryo.Infrastructure.Public.Db.DamPstGrS.2.3.0\lib\net46\OpenTouryo.DamPstGrS.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="OpenTouryo.Framework, Version=2.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\Touryo.Infrastructure.Framework.2.3.0\lib\net46\OpenTouryo.Framework.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="OpenTouryo.Public, Version=2.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\Touryo.Infrastructure.Public.2.3.0\lib\net46\OpenTouryo.Public.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="Oracle.ManagedDataAccess, Version=4.122.1.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=MSIL">
+      <HintPath>..\packages\Oracle.ManagedDataAccess.12.2.1100\lib\net40\Oracle.ManagedDataAccess.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="Owin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=f0ebd12fd5e55cc5, processorArchitecture=MSIL">
+      <HintPath>..\packages\Owin.1.0\lib\net40\Owin.dll</HintPath>
+      <Private>True</Private>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Net.Http" />
+    <Reference Include="System.Net.Http.Formatting, Version=5.2.3.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebApi.Client.5.2.3\lib\net45\System.Net.Http.Formatting.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.1.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.3.0\lib\portable-net45+win8+wp8+wpa81\System.Threading.Tasks.Extensions.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web" />
+    <Reference Include="System.Web.Helpers, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.Helpers.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web.Http, Version=5.2.3.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebApi.Core.5.2.3\lib\net45\System.Web.Http.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web.Mvc, Version=5.2.3.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.Mvc.5.2.3\lib\net45\System.Web.Mvc.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web.Razor, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.Razor.3.2.3\lib\net45\System.Web.Razor.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web.WebPages, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.WebPages.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web.WebPages.Deployment, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.WebPages.Deployment.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Web.WebPages.Razor, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.WebPages.Razor.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System.Xml" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="AsyncProcessingService\ApsUtility.cs" />
-    <Compile Include="AsyncProcessingService\ApsParameterValue.cs" />
-    <Compile Include="AsyncProcessingService\ApsReturnValue.cs" />
     <Compile Include="AsyncProcessingService\ApsLayerB.cs" />
     <Compile Include="AsyncProcessingService\ApsLayerD.cs" />
+    <Compile Include="AsyncProcessingService\ApsParameterValue.cs" />
+    <Compile Include="AsyncProcessingService\ApsReturnValue.cs" />
+    <Compile Include="AsyncProcessingService\ApsUtility.cs" />
     <Compile Include="AsyncProcessingService\MyApsBaseLogic.cs" />
     <Compile Include="Business\MyFcBaseLogic.cs" />
     <Compile Include="Common\MyParameterValue.cs" />
@@ -112,11 +195,10 @@
     </Compile>
     <Compile Include="Str\JISX0208_1983Checker.cs" />
     <Compile Include="Util\GMTMaster.cs" />
+    <Compile Include="Util\MyCmnFunction.cs" />
     <Compile Include="Util\MyAttribute.cs" />
     <Compile Include="Util\MyLiteral.cs" />
     <Compile Include="Util\MySubsysInfo.cs" />
-    <Compile Include="Util\MyTimeZone.cs" />
-    <Compile Include="Util\MyTimeZoneEnum.cs" />
     <Compile Include="Util\MyUserInfo.cs" />
   </ItemGroup>
   <ItemGroup>
@@ -150,6 +232,10 @@
       <LastGenOutput>MyBusinessSystemExceptionMessageResource.Designer.cs</LastGenOutput>
     </EmbeddedResource>
   </ItemGroup>
+  <ItemGroup>
+    <None Include="app.config" />
+    <None Include="packages.config" />
+  </ItemGroup>
   <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs
index fc609c6..bc153a8 100644
--- a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs
+++ b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs
@@ -39,6 +39,7 @@
 //*  2013/07/07  西野 大介         ExecGenerateSQL（SQL生成）メソッド（実行しない）を追加
 //*  2014/11/20  Sandeep           Implemented CommandTimeout property and SetCommandTimeout method.
 //*  2014/11/20  Sai               removed IDbCommand property in SetCommandTimeout method.
+//*  2018/08/07  西野 大介         ストアド実行のためCommandType.StoredProcedureを設定可能に。
 //**********************************************************************************
 
 using System;
@@ -57,6 +58,9 @@ public class CmnDao : MyBaseDao
     {
         #region インスタンス変数
 
+        /// <summary>CommandType</summary>
+        private CommandType? _cmdType = null;
+
         #region パラメタ
 
         /// <summary>ユーザ パラメタ（文字列置換）用ディクショナリ</summary>
@@ -65,14 +69,16 @@ public class CmnDao : MyBaseDao
         /// <summary>パラメタ ライズド クエリのパラメタ用ディクショナリ</summary>
         private Dictionary<string, object> DicParameter = new Dictionary<string, object>();
 
+        #region 追加のDictionary
         /// <summary>パラメタ ライズド クエリの指定されたパラメータ（の型）を保持するディクショナリ</summary>
         private Dictionary<string, object> DicParameterType = new Dictionary<string, object>();
         /// <summary>パラメタ ライズド クエリの指定されたパラメータ（のサイズ）を保持するディクショナリ</summary>
         private Dictionary<string, int> DicParameterSize = new Dictionary<string, int>();
         /// <summary>パラメタ ライズド クエリの指定されたパラメータ（の方向）を保持するディクショナリ</summary>
         private Dictionary<string, ParameterDirection> DicParameterDirection = new Dictionary<string, ParameterDirection>();
+        #endregion
 
-        #endregion       
+        #endregion
 
         #region パラメタの制御
 
@@ -252,6 +258,13 @@ public int CommandTimeout
         /// <remarks>自由に利用できる。</remarks>
         public CmnDao(BaseDam dam) : base(dam) { }
 
+        /// <summary>コンストラクタ</summary>
+        /// <remarks>自由に利用できる。</remarks>
+        public CmnDao(BaseDam dam, CommandType cmdType) : base(dam)
+        {
+            this._cmdType = cmdType;
+        }
+
         #endregion
 
         #region クエリ メソッド
@@ -384,12 +397,27 @@ private void SetSQL()
             if (this._sQLFileName != "")
             {
                 // ファイルから
-                this.SetSqlByFile2(this._sQLFileName);
+                if (this._cmdType.HasValue)
+                {
+                    this.SetSqlByFile2(this._sQLFileName, this._cmdType.Value); 
+                }
+                else
+                {
+                    this.SetSqlByFile2(this._sQLFileName);
+                }
             }
             else if (this._sQLText != "")
             {
                 // テキストから
-                this.SetSqlByCommand(this._sQLText);
+                if (this._cmdType.HasValue)
+                {
+                    this.SetSqlByCommand(this._sQLText, this._cmdType.Value);
+                }
+                else
+                {
+                    this.SetSqlByCommand(this._sQLText);
+                }
+                
             }
             else
             {
diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs
index cca8907..bb98b9f 100644
--- a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs
+++ b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs
@@ -33,10 +33,12 @@
 //*  2012/06/14  西野 大介         SetSqlByFile2を追加（SetSqlByFile強化版）
 //*                                ・sqlTextFilePathを自動連結
 //*                                ・EmbeddedResourceLoaderに対応
+//*  2018/08/07  西野 大介         CommandType.StoredProcedureを設定可能に。
 //**********************************************************************************
 
 using System;
 using System.IO;
+using System.Data;
 
 using Touryo.Infrastructure.Business.Util;
 using Touryo.Infrastructure.Framework.Dao;
@@ -56,20 +58,45 @@ public abstract class MyBaseDao : BaseDao
         /// <summary>SetSqlByFileの強化版メソッド</summary>
         /// <param name="sQLFileName">ファイル名</param>
         public void SetSqlByFile2(string sQLFileName)
+        {
+            this.SetSqlByFile2(sQLFileName, null);
+        }
+
+        /// <summary>SetSqlByFileの強化版メソッド</summary>
+        /// <param name="sQLFileName">ファイル名</param>
+        /// <param name="cmdType">CommandType</param>
+        public void SetSqlByFile2(string sQLFileName, CommandType? cmdType)
         {
             // SQLを設定する。
             if (MyBaseDao.UseEmbeddedResource)
             {
                 // 埋め込まれたリソースファイル
-                this.SetSqlByFile(
+                if (cmdType.HasValue)
+                {
+                    this.SetSqlByFile(
+                        GetConfigParameter.GetConfigValue("sqlTextFilePath") + "." + sQLFileName, cmdType.Value);
+                }
+                else
+                {
+                    this.SetSqlByFile(
                         GetConfigParameter.GetConfigValue("sqlTextFilePath") + "." + sQLFileName);
+                }
             }
             else
             {
                 // 通常のファイル
-                this.SetSqlByFile(
-                    Path.Combine(
-                        GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName));
+                if (cmdType.HasValue)
+                {
+                    this.SetSqlByFile(
+                        Path.Combine(
+                            GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName), cmdType.Value);
+                }
+                else
+                {
+                    this.SetSqlByFile(
+                        Path.Combine(
+                            GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName));
+                }   
             }
         }
 
diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs
new file mode 100644
index 0000000..5d6b56f
--- /dev/null
+++ b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs
@@ -0,0 +1,286 @@
+//**********************************************************************************
+//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd.
+//**********************************************************************************
+
+#region Apache License
+// 
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License. 
+// You may obtain a copy of the License at
+//
+// http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+//
+#endregion
+
+//**********************************************************************************
+//* クラス名        ：MyCmnFunction
+//* クラス日本語名  ：Business層の共通クラス（テンプレート）
+//*
+//* 作成者          ：生技 西野
+//* 更新履歴        ：
+//*
+//*  日時        更新者            内容
+//*  ----------  ----------------  -------------------------------------------------
+//*  20xx/xx/xx  ＸＸ ＸＸ         新規作成（テンプレート）
+//*  2009/06/02  西野 大介         sln - IR版からの修正
+//*                                ・#5  ： コントロール数取得処理（デフォルト値不正）
+//*  2009/07/21  西野 大介         コントロール取得処理の仕様変更
+//*  2009/08/10  西野 大介         同名のコントロール追加に対応（GridView/ItemTemplate）。
+//*  2010/09/24  西野 大介         ジェネリック対応（Dictionary、List、Queue、Stack<T>）
+//*                                nullチェック方法、Contains → ContainsKeyなどに注意
+//*  2010/10/21  西野 大介         幾つかのイベント処理の正式対応（ベースクラス２→１へ）
+//*  2012/06/14  西野 大介         コントロール検索の再帰処理性能の集約＆効率化。
+//*  2014/05/16  西野 大介         キャスト可否チェックのロジックを見直した。
+//*  2017/01/31  西野 大介         System.Webを使用しているCalculateSessionSizeメソッドをPublicから移動
+//*  2018/03/29  西野 大介         .NET Standard対応で、削除機能に関連するメソッドを削除
+//*  2018/03/29  西野 大介         .NET Standard対応で、HttpSessionのポーティング
+//**********************************************************************************
+
+using System;
+using System.Collections.Generic;
+
+using Touryo.Infrastructure.Framework.Util;
+using Touryo.Infrastructure.Public.IO;
+using Touryo.Infrastructure.Public.Util;
+
+#if NETCOREAPP2_0
+using Touryo.Infrastructure.Framework.StdMigration;
+using Microsoft.AspNetCore.Http;
+#else
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+#endif
+
+namespace Touryo.Infrastructure.Business.Util
+{
+    /// <summary>Business層の共通クラス</summary>
+    public class MyCmnFunction
+    {
+        #region CalculateSessionSize
+
+        /// <summary>Sessionサイズ測定</summary>
+        /// <returns>Sessionサイズ（MB）</returns>
+        /// <remarks>シリアル化できないオブジェクトを含む場合は落ちる。</remarks>
+        public static long CalculateSessionSizeMB()
+        {
+            //return MyCmnFunction.CalculateSessionSizeKB() / 1000;
+            return (long)Math.Round(MyCmnFunction.CalculateSessionSize() / 1000000.0, 0, MidpointRounding.AwayFromZero);
+        }
+
+        /// <summary>Sessionサイズ測定</summary>
+        /// <returns>Sessionサイズ（KB）</returns>
+        /// <remarks>シリアル化できないオブジェクトを含む場合は落ちる。</remarks>
+        public static long CalculateSessionSizeKB()
+        {
+            //return MyCmnFunction.CalculateSessionSize() / 1000;
+            return (long)Math.Round(MyCmnFunction.CalculateSessionSize() / 1000.0, 0, MidpointRounding.AwayFromZero);
+        }
+
+        /// <summary>Sessionサイズ測定</summary>
+        /// <returns>Sessionサイズ（バイト）</returns>
+        /// <remarks>シリアル化できないオブジェクトを含む場合は落ちる。</remarks>
+        public static long CalculateSessionSize()
+        {
+            // ワーク変数
+            long size = 0;
+
+            // SessionのオブジェクトをBinarySerializeしてサイズを取得。
+#if NETCOREAPP2_0
+            foreach (string key in MyHttpContext.Current.Session.Keys)
+            {
+                // 当該キーのオブジェクト・サイズを足しこむ。
+                size += BinarySerialize.ObjectToBytes(MyHttpContext.Current.Session.GetString(key)).Length;
+            }
+#else
+            foreach (string key in HttpContext.Current.Session.Keys)
+            {
+                // 当該キーのオブジェクト・サイズを足しこむ。
+                size += BinarySerialize.ObjectToBytes(HttpContext.Current.Session[key]).Length;
+            }
+#endif
+            // Sessionサイズ（バイト）
+            return size;
+        }
+
+        #endregion
+
+        // 2009/07/21-start
+
+        #region コントロール取得＆イベントハンドラ設定
+
+#if NETCOREAPP2_0
+#else
+        /// <summary>コントロール取得＆イベントハンドラ設定（下位互換）</summary>
+        /// <param name="ctrl">コントロール</param>
+        /// <param name="prefix">プレフィックス</param>
+        /// <param name="eventHandler">イベント ハンドラ</param>
+        /// <param name="controlHt">ディクショナリ</param>
+        internal static void GetCtrlAndSetClickEventHandler(
+            Control ctrl, string prefix, object eventHandler, Dictionary<string, Control> controlHt)
+        {
+            #region チェック処理
+
+            // コントロール指定が無い場合
+            if (ctrl == null)
+            {
+                // 何もしないで戻る。
+                return;
+            }
+
+            // プレフィックス指定が無い場合
+            if (prefix == null || prefix == "")
+            {
+                // 何もしないで戻る。
+                return;
+            }
+
+            #endregion
+
+            #region コントロール取得＆イベントハンドラ設定
+
+            // コントロールのIDチェック
+            if (ctrl.ID == null)
+            {
+                // コントロールID無し
+            }
+            else
+            {
+                // コントロールID有り
+
+                // コントロールのID長確認
+                if (prefix.Length <= ctrl.ID.Length)
+                {
+                    // 指定のプレフィックス
+                    if (prefix == ctrl.ID.Substring(0, prefix.Length))
+                    {
+                        // イベントハンドラを設定する。
+                        if (prefix == GetConfigParameter.GetConfigValue(MyLiteral.PREFIX_OF_CHECK_BOX))
+                        {
+                            // CHECK BOX
+                            CheckBox checkBox = FxCmnFunction.CastByAsOperator<CheckBox>(ctrl, prefix);
+
+                            // ハンドラをキャストして設定
+                            checkBox.CheckedChanged += (EventHandler)eventHandler;
+
+                            // ディクショナリに格納
+                            // ControlHt.Add(ctrl.ID, ctrl);
+                            // ControlHt[ctrl.ID] = ctrl;
+                            FxCmnFunction.AddControlToDic(ctrl, controlHt); // 2011/02/12
+                        }
+                    }
+                }
+            }
+
+            #endregion
+
+            #region 再帰
+
+            // 子コントロールがある場合、
+            if (ctrl.HasControls())
+            {
+                // 子コントロール毎に
+                foreach (Control childCtrl in ctrl.Controls)
+                {
+                    // 再帰する。
+                    MyCmnFunction.GetCtrlAndSetClickEventHandler(childCtrl, prefix, eventHandler, controlHt);
+                }
+            }
+
+            #endregion
+        }
+
+        /// <summary>コントロール取得＆イベントハンドラ設定</summary>
+        /// <param name="ctrl">コントロール</param>
+        /// <param name="prefixAndEvtHndHt">プレフィックスとイベント ハンドラのディクショナリ</param>
+        /// <param name="controlHt">コントロールのディクショナリ</param>
+        internal static void GetCtrlAndSetClickEventHandler2(
+            Control ctrl, Dictionary<string, object> prefixAndEvtHndHt, Dictionary<string, Control> controlHt)
+        {
+            // ループ
+            foreach (string prefix in prefixAndEvtHndHt.Keys)
+            {
+                object eventHandler = prefixAndEvtHndHt[prefix];
+
+                #region チェック処理
+
+                // コントロール指定が無い場合
+                if (ctrl == null)
+                {
+                    // 何もしないで戻る。
+                    return;
+                }
+
+                // プレフィックス指定が無い場合
+                if (prefix == null || prefix == "")
+                {
+                    // 何もしないで戻る。
+                    return;
+                }
+
+                #endregion
+
+                #region コントロール取得＆イベントハンドラ設定
+
+                // コントロールのIDチェック
+                if (ctrl.ID == null)
+                {
+                    // コントロールID無し
+                }
+                else
+                {
+                    // コントロールID有り
+
+                    // コントロールのID長確認
+                    if (prefix.Length <= ctrl.ID.Length)
+                    {
+                        // 指定のプレフィックス
+                        if (prefix == ctrl.ID.Substring(0, prefix.Length))
+                        {
+                            // イベントハンドラを設定する。
+                            if (prefix == GetConfigParameter.GetConfigValue(MyLiteral.PREFIX_OF_CHECK_BOX))
+                            {
+                                // CHECK BOX
+                                CheckBox checkBox = FxCmnFunction.CastByAsOperator<CheckBox>(ctrl, prefix);
+
+                                // ハンドラをキャストして設定
+                                checkBox.CheckedChanged += (EventHandler)eventHandler;
+
+                                // ディクショナリに格納
+                                controlHt[ctrl.ID] = ctrl;
+                                break;
+                            }
+                        }
+                    }
+                }
+
+                #endregion
+            }
+
+            #region 再帰
+
+            // 子コントロールがある場合、
+            if (ctrl.HasControls())
+            {
+                // 子コントロール毎に
+                foreach (Control childCtrl in ctrl.Controls)
+                {
+                    // 再帰する。
+                    MyCmnFunction.GetCtrlAndSetClickEventHandler2(childCtrl, prefixAndEvtHndHt, controlHt);
+                }
+            }
+
+            #endregion
+        }    
+#endif
+        #endregion
+
+        // 2009/07/21-end
+    }
+}
diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/app.config b/root/programs/CS/Frameworks/Infrastructure/Business/app.config
new file mode 100644
index 0000000..dde2c3c
--- /dev/null
+++ b/root/programs/CS/Frameworks/Infrastructure/Business/app.config
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</configuration>
\ No newline at end of file
diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/packages.config b/root/programs/CS/Frameworks/Infrastructure/Business/packages.config
new file mode 100644
index 0000000..9ae6d8e
--- /dev/null
+++ b/root/programs/CS/Frameworks/Infrastructure/Business/packages.config
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="DotNetZip" version="1.10.1" targetFramework="net46" />
+  <package id="log4net" version="2.0.8" targetFramework="net46" />
+  <package id="Microsoft.AspNet.Mvc" version="5.2.3" targetFramework="net46" />
+  <package id="Microsoft.AspNet.Razor" version="3.2.3" targetFramework="net46" />
+  <package id="Microsoft.AspNet.WebApi.Client" version="5.2.3" targetFramework="net46" />
+  <package id="Microsoft.AspNet.WebApi.Core" version="5.2.3" targetFramework="net46" />
+  <package id="Microsoft.AspNet.WebPages" version="3.2.3" targetFramework="net46" />
+  <package id="Microsoft.Owin" version="3.1.0" targetFramework="net46" />
+  <package id="Microsoft.Owin.Security" version="3.1.0" targetFramework="net46" />
+  <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net46" />
+  <package id="MySql.Data" version="6.9.12" targetFramework="net46" />
+  <package id="Newtonsoft.Json" version="10.0.3" targetFramework="net46" />
+  <package id="Npgsql" version="3.2.5" targetFramework="net46" />
+  <package id="Oracle.ManagedDataAccess" version="12.2.1100" targetFramework="net46" />
+  <package id="Owin" version="1.0" targetFramework="net46" />
+  <package id="System.Threading.Tasks.Extensions" version="4.3.0" targetFramework="net46" />
+  <package id="Touryo.Infrastructure.Framework" version="2.3.0" targetFramework="net46" />
+  <package id="Touryo.Infrastructure.Public" version="2.3.0" targetFramework="net46" />
+  <package id="Touryo.Infrastructure.Public.Db.DamManagedOdp" version="2.3.0" targetFramework="net46" />
+  <package id="Touryo.Infrastructure.Public.Db.DamMySQL" version="2.3.0" targetFramework="net46" />
+  <package id="Touryo.Infrastructure.Public.Db.DamPstGrS" version="2.3.0" targetFramework="net46" />
+</packages>
\ No newline at end of file
diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj b/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj
index 17a413f..8233002 100644
--- a/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj
+++ b/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj
@@ -60,24 +60,29 @@
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="OpenTouryo.DamManagedOdp">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\VB\Frameworks\Infrastructure\Build\OpenTouryo.DamManagedOdp.dll</HintPath>
+      <HintPath>..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamManagedOdp.dll</HintPath>
     </Reference>
     <Reference Include="OpenTouryo.DamMySQL">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\VB\Frameworks\Infrastructure\Build\OpenTouryo.DamMySQL.dll</HintPath>
+      <HintPath>..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamMySQL.dll</HintPath>
     </Reference>
     <Reference Include="OpenTouryo.DamPstGrS">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\VB\Frameworks\Infrastructure\Build\OpenTouryo.DamPstGrS.dll</HintPath>
+      <HintPath>..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamPstGrS.dll</HintPath>
     </Reference>
     <Reference Include="OpenTouryo.Framework">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\VB\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll</HintPath>
+      <HintPath>..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll</HintPath>
     </Reference>
     <Reference Include="OpenTouryo.Public">
-      <HintPath>..\..\..\..\..\..\..\OpenTouryo\root\programs\VB\Frameworks\Infrastructure\Build\OpenTouryo.Public.dll</HintPath>
+      <HintPath>..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.Public.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Web" />
+    <Reference Include="System.Web.Mvc, Version=5.2.3.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.Mvc.5.2.3\lib\net45\System.Web.Mvc.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System.Xml" />
   </ItemGroup>
   <ItemGroup>
@@ -122,6 +127,9 @@
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
     </None>
+    <None Include="packages.config">
+      <SubType>Designer</SubType>
+    </None>
   </ItemGroup>
   <ItemGroup>
     <Compile Include="Common\MyReturnValue.vb" />
@@ -143,6 +151,7 @@
     <Compile Include="Util\GMTMaster.vb" />
     <Compile Include="Str\JISX0208_1983Checker.vb" />
     <Compile Include="Util\MyAttribute.vb" />
+    <Compile Include="Util\MyCmnFunction.vb" />
     <Compile Include="Util\MyLiteral.vb" />
     <Compile Include="Util\MySubsysInfo.vb" />
     <Compile Include="Util\MyUserInfo.vb" />
diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb
index d69a55d..243824c 100644
--- a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb
+++ b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb
@@ -39,8 +39,13 @@
 '*  2013/07/07  西野 大介         ExecGenerateSQL（SQL生成）メソッド（実行しない）を追加
 '*  2014/11/20  Sandeep           Implemented CommandTimeout property and SetCommandTimeout method.
 '*  2014/11/20  Sai               removed IDbCommand property in SetCommandTimeout method.
+'*  2018/08/07  西野 大介         ストアド実行のためCommandType.StoredProcedureを設定可能に。
 '**********************************************************************************
 
+Imports System
+Imports System.Data
+Imports System.Collections.Generic
+
 Imports Touryo.Infrastructure.Business.Exceptions
 Imports Touryo.Infrastructure.Framework.Exceptions
 Imports Touryo.Infrastructure.Public.Db
@@ -52,6 +57,9 @@ Namespace Touryo.Infrastructure.Business.Dao
 		Inherits MyBaseDao
 		#Region "インスタンス変数"
 
+		''' <summary>CommandType</summary>
+		Private _cmdType As System.Nullable(Of CommandType) = Nothing
+
 		#Region "パラメタ"
 
 		''' <summary>ユーザ パラメタ（文字列置換）用ディクショナリ</summary>
@@ -60,12 +68,14 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <summary>パラメタ ライズド クエリのパラメタ用ディクショナリ</summary>
 		Private DicParameter As New Dictionary(Of String, Object)()
 
+		#Region "追加のDictionary"
 		''' <summary>パラメタ ライズド クエリの指定されたパラメータ（の型）を保持するディクショナリ</summary>
 		Private DicParameterType As New Dictionary(Of String, Object)()
 		''' <summary>パラメタ ライズド クエリの指定されたパラメータ（のサイズ）を保持するディクショナリ</summary>
 		Private DicParameterSize As New Dictionary(Of String, Integer)()
 		''' <summary>パラメタ ライズド クエリの指定されたパラメータ（の方向）を保持するディクショナリ</summary>
 		Private DicParameterDirection As New Dictionary(Of String, ParameterDirection)()
+		#End Region
 
 		#End Region
 
@@ -216,7 +226,7 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <summary>CommandTimeout</summary>
 		''' <remarks>自由に（拡張して）利用できる。</remarks>
 		Public WriteOnly Property CommandTimeout() As Integer
-			Set(value As Integer)
+			Set
 				Me._commandTimeout = value
 			End Set
 		End Property
@@ -235,6 +245,13 @@ Namespace Touryo.Infrastructure.Business.Dao
 			MyBase.New(dam)
 		End Sub
 
+		''' <summary>コンストラクタ</summary>
+		''' <remarks>自由に利用できる。</remarks>
+		Public Sub New(dam As BaseDam, cmdType As CommandType)
+			MyBase.New(dam)
+			Me._cmdType = cmdType
+		End Sub
+
 		#End Region
 
 		#Region "クエリ メソッド"
@@ -246,10 +263,10 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <remarks>自由に（拡張して）利用できる。</remarks>
 		Public Shadows Function ExecSelectScalar() As Object
 			' SQLの設定
-            Me.SetSQL()
+			Me.SetSQL()
 
-            ' To Set CommandTimeout
-            Me.SetCommandTimeout()
+			' Set CommandTimeout
+			Me.SetCommandTimeout()
 
 			' パラメタの一括設定
 			Me.SetParameters()
@@ -264,10 +281,10 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <remarks>自由に（拡張して）利用できる。</remarks>
 		Public Shadows Sub ExecSelectFill_DT(dt As DataTable)
 			' SQLの設定
-            Me.SetSQL()
+			Me.SetSQL()
 
-            ' To Set CommandTimeout
-            Me.SetCommandTimeout()
+			' Set CommandTimeout
+			Me.SetCommandTimeout()
 
 			' パラメタの一括設定
 			Me.SetParameters()
@@ -282,10 +299,10 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <remarks>自由に（拡張して）利用できる。</remarks>
 		Public Shadows Sub ExecSelectFill_DS(ds As DataSet)
 			' SQLの設定
-            Me.SetSQL()
+			Me.SetSQL()
 
-            ' To Set CommandTimeout
-            Me.SetCommandTimeout()
+			' Set CommandTimeout
+			Me.SetCommandTimeout()
 
 			' パラメタの一括設定
 			Me.SetParameters()
@@ -300,10 +317,10 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <remarks>自由に（拡張して）利用できる。</remarks>        
 		Public Shadows Function ExecSelect_DR() As IDataReader
 			' SQLの設定
-            Me.SetSQL()
+			Me.SetSQL()
 
-            ' To Set CommandTimeout
-            Me.SetCommandTimeout()
+			' Set CommandTimeout
+			Me.SetCommandTimeout()
 
 			' パラメタの一括設定
 			Me.SetParameters()
@@ -318,10 +335,10 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <remarks>自由に（拡張して）利用できる。</remarks>        
 		Public Shadows Function ExecInsUpDel_NonQuery() As Integer
 			' SQLの設定
-            Me.SetSQL()
+			Me.SetSQL()
 
-            ' To Set CommandTimeout
-            Me.SetCommandTimeout()
+			' Set CommandTimeout
+			Me.SetCommandTimeout()
 
 			' パラメタの一括設定
 			Me.SetParameters()
@@ -337,10 +354,10 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <remarks>自由に（拡張して）利用できる。</remarks>
 		Public Shadows Function ExecGenerateSQL(sqlUtil As SQLUtility) As String
 			' SQLの設定
-            Me.SetSQL()
+			Me.SetSQL()
 
-            ' To Set CommandTimeout
-            Me.SetCommandTimeout()
+			' Set CommandTimeout
+			Me.SetCommandTimeout()
 
 			' パラメタの一括設定
 			Me.SetParameters()
@@ -359,24 +376,33 @@ Namespace Touryo.Infrastructure.Business.Dao
 			' SQL指定
 			If Me._sQLFileName <> "" Then
 				' ファイルから
-				Me.SetSqlByFile2(Me._sQLFileName)
+				If Me._cmdType.HasValue Then
+					Me.SetSqlByFile2(Me._sQLFileName, Me._cmdType.Value)
+				Else
+					Me.SetSqlByFile2(Me._sQLFileName)
+				End If
 			ElseIf Me._sQLText <> "" Then
 				' テキストから
-				Me.SetSqlByCommand(Me._sQLText)
+				If Me._cmdType.HasValue Then
+					Me.SetSqlByCommand(Me._sQLText, Me._cmdType.Value)
+				Else
+					Me.SetSqlByCommand(Me._sQLText)
+
+				End If
 			Else
 				' SQLエラー
 				Throw New BusinessSystemException(MyBusinessSystemExceptionMessage.CMN_DAO_ERROR(0), [String].Format(MyBusinessSystemExceptionMessage.CMN_DAO_ERROR(1), MyBusinessSystemExceptionMessage.CMN_DAO_ERROR_SQL))
 			End If
-        End Sub
-
-        ''' <summary>To Set CommandTimeout</summary>
-        Private Sub SetCommandTimeout()
-            ' If CommandTimeout is >= 0 then set CommandTimeout.
-            ' Else skip, automatically it will set default CommandTimeout.
-            If Me._commandTimeout >= 0 Then
-                Me.GetDam().DamIDbCommand.CommandTimeout = Me._commandTimeout
-            End If
-        End Sub
+		End Sub
+
+		''' <summary>To Set CommandTimeout</summary>
+		Private Sub SetCommandTimeout()
+			' If CommandTimeout is >= 0 then set CommandTimeout.
+			' Else skip, automatically it will set default CommandTimeout.
+			If Me._commandTimeout >= 0 Then
+				Me.GetDam().DamIDbCommand.CommandTimeout = Me._commandTimeout
+			End If
+		End Sub
 
 		''' <summary>パラメタの一括設定（内部用）</summary>
 		Private Sub SetParameters()
diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb
index e829404..c2de176 100644
--- a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb
+++ b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb
@@ -33,9 +33,12 @@
 '*  2012/06/14  西野 大介         SetSqlByFile2を追加（SetSqlByFile強化版）
 '*                                ・sqlTextFilePathを自動連結
 '*                                ・EmbeddedResourceLoaderに対応
+'*  2018/08/07  西野 大介         CommandType.StoredProcedureを設定可能に。
 '**********************************************************************************
 
+Imports System
 Imports System.IO
+Imports System.Data
 
 Imports Touryo.Infrastructure.Business.Util
 Imports Touryo.Infrastructure.Framework.Dao
@@ -54,13 +57,28 @@ Namespace Touryo.Infrastructure.Business.Dao
 		''' <summary>SetSqlByFileの強化版メソッド</summary>
 		''' <param name="sQLFileName">ファイル名</param>
 		Public Sub SetSqlByFile2(sQLFileName As String)
+			Me.SetSqlByFile2(sQLFileName, Nothing)
+		End Sub
+
+		''' <summary>SetSqlByFileの強化版メソッド</summary>
+		''' <param name="sQLFileName">ファイル名</param>
+		''' <param name="cmdType">CommandType</param>
+		Public Sub SetSqlByFile2(sQLFileName As String, cmdType As System.Nullable(Of CommandType))
 			' SQLを設定する。
 			If MyBaseDao.UseEmbeddedResource Then
 				' 埋め込まれたリソースファイル
-				Me.SetSqlByFile(GetConfigParameter.GetConfigValue("sqlTextFilePath") & "." & sQLFileName)
+				If cmdType.HasValue Then
+					Me.SetSqlByFile(GetConfigParameter.GetConfigValue("sqlTextFilePath") & "." & sQLFileName, cmdType.Value)
+				Else
+					Me.SetSqlByFile(GetConfigParameter.GetConfigValue("sqlTextFilePath") & "." & sQLFileName)
+				End If
 			Else
 				' 通常のファイル
-				Me.SetSqlByFile(Path.Combine(GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName))
+				If cmdType.HasValue Then
+					Me.SetSqlByFile(Path.Combine(GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName), cmdType.Value)
+				Else
+					Me.SetSqlByFile(Path.Combine(GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName))
+				End If
 			End If
 		End Sub
 
@@ -103,50 +121,48 @@ Namespace Touryo.Infrastructure.Business.Dao
 			' 性能測定終了
 			Me.perfRec.EndsPerformanceRecord()
 
-            ' SQLトレースログ出力
-
-            ' ------------
-            ' メッセージ部
-            ' ------------
-            ' 処理時間（実行時間）, 処理時間（CPU時間）, 実行したSQLの情報
-            ' ------------
-            Dim strLogMessage As String =
-                Me.perfRec.ExecTime &
-                "," & Me.perfRec.CpuTime & "," & sql
-
-            ' Log4Netへログ出力
-            If String.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG)) Then
-                ' SQLトレースログ（OFF）
-            ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.[ON] Then
-                LogIF.InfoLog("SQLTRACE", strLogMessage)
-            ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.OFF Then
-                ' SQLトレースログ（OFF）
-            Else
-                ' パラメータ・エラー（書式不正）
-                Throw New ArgumentException([String].Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG))
-            End If
-
-            ' ---
-
-            ' 以下も、ログ出力で使用可能
-            Dim obj As Object = Nothing
-
-            ' UOC_Connection等で情報を設定しておく。
-            ' UserInfoなどの情報を想定している。
-            obj = Me.GetDam().Obj
-
-            ' SQL実行時に情報が自動設定される。
-            ' ・ExecSelectFill_DT
-            '   DataTable
-            ' ・ExecSelectFill_DS
-            '   DataSet
-            ' ・ExecSelect_DR
-            '   IDataReader
-            ' ・ExecSelectScalar
-            '   object
-            ' ・ExecInsUpDel_NonQuery
-            '   int
-            obj = Me.LogInfo
+			' SQLトレースログ出力
+
+			' ------------
+			' メッセージ部
+			' ------------
+			' 処理時間（実行時間）, 処理時間（CPU時間）, 実行したSQLの情報
+			' ------------
+			Dim strLogMessage As String = Convert.ToString(Me.perfRec.ExecTime) & "," & Convert.ToString(Me.perfRec.CpuTime) & "," & sql
+
+			' Log4Netへログ出力
+					' SQLトレースログ（OFF）
+			If String.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG)) Then
+			ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.[ON] Then
+				LogIF.InfoLog("SQLTRACE", strLogMessage)
+					' SQLトレースログ（OFF）
+			ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.OFF Then
+			Else
+				' パラメータ・エラー（書式不正）
+				Throw New ArgumentException([String].Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG))
+			End If
+
+			' ---
+
+			' 以下も、ログ出力で使用可能
+			Dim obj As Object = Nothing
+
+			' UOC_Connection等で情報を設定しておく。
+			' UserInfoなどの情報を想定している。
+			obj = Me.GetDam().Obj
+
+			' SQL実行時に情報が自動設定される。
+			' ・ExecSelectFill_DT
+			'   DataTable
+			' ・ExecSelectFill_DS
+			'   DataSet
+			' ・ExecSelect_DR
+			'   IDataReader
+			' ・ExecSelectScalar
+			'   object
+			' ・ExecInsUpDel_NonQuery
+			'   int
+			obj = Me.LogInfo
 		End Sub
 
 		''' <summary>SQL実行終了処理を実装する共通UOCメソッド（異常時）</summary>
@@ -157,51 +173,48 @@ Namespace Touryo.Infrastructure.Business.Dao
 			' 性能測定終了
 			Me.perfRec.EndsPerformanceRecord()
 
-            ' SQLトレースログ出力
-
-            ' ------------
-            ' メッセージ部
-            ' ------------
-            ' 処理時間（実行時間）, 処理時間（CPU時間）, ユーザ名, 実行したSQLの情報
-            ' ------------
-            Dim strLogMessage As String =
-                Me.perfRec.ExecTime &
-                "," & Me.perfRec.CpuTime &
-                "," & DirectCast(Me.GetDam().Obj, MyUserInfo).UserName & "," & sql
-
-            ' Log4Netへログ出力
-            If String.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG)) Then
-                ' SQLトレースログ（OFF）
-            ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.[ON] Then
-                LogIF.ErrorLog("SQLTRACE", strLogMessage)
-            ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.OFF Then
-                ' SQLトレースログ（OFF）
-            Else
-                ' パラメータ・エラー（書式不正）
-                Throw New ArgumentException([String].Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG))
-            End If
-
-            ' ---
-
-            ' 以下も、ログ出力で使用可能
-            Dim obj As Object = Nothing
-
-            ' UOC_Connection等で情報を設定しておく。
-            ' UserInfoなどの情報を想定している。
-            obj = Me.GetDam().Obj
-
-            ' SQL実行時に情報が自動設定される。
-            ' ・ExecSelectFill_DT
-            '   DataTable
-            ' ・ExecSelectFill_DS
-            '   DataSet
-            ' ・ExecSelect_DR
-            '   IDataReader
-            ' ・ExecSelectScalar
-            '   object
-            ' ・ExecInsUpDel_NonQuery
-            '   int
-            obj = Me.LogInfo
+			' SQLトレースログ出力
+
+			' ------------
+			' メッセージ部
+			' ------------
+			' 処理時間（実行時間）, 処理時間（CPU時間）, ユーザ名, 実行したSQLの情報
+			' ------------
+			Dim strLogMessage As String = (Convert.ToString(Me.perfRec.ExecTime) & "," & Convert.ToString(Me.perfRec.CpuTime) & ",") + DirectCast(Me.GetDam().Obj, MyUserInfo).UserName & "," & sql
+
+			' Log4Netへログ出力
+					' SQLトレースログ（OFF）
+			If String.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG)) Then
+			ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.[ON] Then
+				LogIF.ErrorLog("SQLTRACE", strLogMessage)
+					' SQLトレースログ（OFF）
+			ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.OFF Then
+			Else
+				' パラメータ・エラー（書式不正）
+				Throw New ArgumentException([String].Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG))
+			End If
+
+			' ---
+
+			' 以下も、ログ出力で使用可能
+			Dim obj As Object = Nothing
+
+			' UOC_Connection等で情報を設定しておく。
+			' UserInfoなどの情報を想定している。
+			obj = Me.GetDam().Obj
+
+			' SQL実行時に情報が自動設定される。
+			' ・ExecSelectFill_DT
+			'   DataTable
+			' ・ExecSelectFill_DS
+			'   DataSet
+			' ・ExecSelect_DR
+			'   IDataReader
+			' ・ExecSelectScalar
+			'   object
+			' ・ExecInsUpDel_NonQuery
+			'   int
+			obj = Me.LogInfo
 		End Sub
 
 		#End Region