对话框不适用于SAP Business One附加组件
本文关键字:组件 One Business 不适用 适用于 SAP 对话框 | 更新日期: 2023-09-27 18:17:47
我的SAP Business One插件使用了下面的代码,它从一个对话框读取Excel表格。在测试我的插件时,我在
处放置了一个断点Thread.Sleep(1); // Wait a sec more
在Visual Studio 2012中。这样可以打开对话框,以便我可以选择Excel文件,因为在SAP
中- 对话框必须在一个单独的线程上运行。
- 对话框必须是SAP客户端窗口的正确实例的模态。
在Visual Studio中调试/测试时,该插件运行良好,可以选择复制到矩阵的Excel工作表。然而,当我使用。exe文件在SAP(可执行文件)中注册时,在我选择对话框上的excel文件(按OK)后不久,该插件就挂起了。
我在代码中做错了什么?#
private void GetFileHeader()
{
using (GetFileNameClass oGetFileName = new GetFileNameClass())
{
oGetFileName.Filter = "Excel files (*.csv)|*.csv";
oGetFileName.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal);
Thread threadGetExcelFile = new Thread(new ThreadStart(oGetFileName.GetFileName));
threadGetExcelFile.SetApartmentState(ApartmentState.STA);
try
{
threadGetExcelFile.Start();
while (!threadGetExcelFile.IsAlive) ; // Wait for thread to get started
Thread.Sleep(1); // Wait a sec more
threadGetExcelFile.Join(); // Wait for thread to end
var fileName = string.Empty;
fileName = oGetFileName.FileName;
if (fileName != string.Empty)
{
string connString = "";
System.Data.DataTable dt = new System.Data.DataTable();
// Initialize connection string
connString = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties='"Excel 12.0;HDR=YES'"", fileName);
// Connect
OleDbConnection myConnection = new OleDbConnection(connString);
// Open connection if closed
if (myConnection.State != ConnectionState.Open)
myConnection.Open();
string fName = fileName;
fName = System.IO.Path.GetFileNameWithoutExtension(fName);
string sql = "SELECT * FROM [" + fName + "$] WHERE RecordKey IS NOT NULL";
OleDbCommand cmd = new OleDbCommand(sql, myConnection);
cmd.CommandType = CommandType.Text;
OleDbDataAdapter adapter = new OleDbDataAdapter(cmd);
adapter.Fill(dt);
if (dt != null)
{
GetFileNameClass
using System;
using System.Diagnostics;
using System.Windows.Forms;
using System.Threading;
using System.Runtime.InteropServices;
namespace SBOPlugins.Enumerations
{
public enum eFileDialog { en_OpenFile = 0, en_SaveFile = 1 };
}
namespace CoreFrieght_Intraspeed
{
/// <summary>
/// Wrapper for OpenFileDialog
/// </summary>
public class GetFileNameClass : IDisposable
{
#region The class implements FileDialog for open in front of B1 window
[DllImport("user32.dll")]
private static extern IntPtr GetForegroundWindow();
System.Windows.Forms.FileDialog _oFileDialog;
// Properties
public string FileName
{
get { return _oFileDialog.FileName; }
set { _oFileDialog.FileName = value; }
}
public string[] FileNames
{
get { return _oFileDialog.FileNames; }
}
public string Filter
{
get { return _oFileDialog.Filter; }
set { _oFileDialog.Filter = value; }
}
public string InitialDirectory
{
get { return _oFileDialog.InitialDirectory; }
set { _oFileDialog.InitialDirectory = value; }
}
//// Constructor
//public GetFileNameClass()
//{
// _oFileDialog = new OpenFileDialog();
//}
// Constructor
public GetFileNameClass(SBOPlugins.Enumerations.eFileDialog dlg)
{
switch ((int)dlg)
{
case 0: _oFileDialog = new System.Windows.Forms.OpenFileDialog(); break;
case 1: _oFileDialog = new System.Windows.Forms.SaveFileDialog(); break;
default: throw new ApplicationException("GetFileNameClass Incorrect Parameter");
}
}
public GetFileNameClass()
: this(SBOPlugins.Enumerations.eFileDialog.en_OpenFile)
{
}
// Dispose
public void Dispose()
{
_oFileDialog.Dispose();
}
// Methods
public void GetFileName()
{
IntPtr ptr = GetForegroundWindow();
WindowWrapper oWindow = new WindowWrapper(ptr);
if (_oFileDialog.ShowDialog(oWindow) != System.Windows.Forms.DialogResult.OK)
{
_oFileDialog.FileName = string.Empty;
}
oWindow = null;
} // End of GetFileName
#endregion
#region WindowWrapper : System.Windows.Forms.IWin32Window
public class WindowWrapper : System.Windows.Forms.IWin32Window
{
private IntPtr _hwnd;
// Property
public virtual IntPtr Handle
{
get { return _hwnd; }
}
// Constructor
public WindowWrapper(IntPtr handle)
{
_hwnd = handle;
}
}
#endregion
}
}
感谢您的帮助。
您可以做的最简单的事情是不创建新线程,而是在方法GetFileHeader()
中直接调用oGetFileName.GetFileName()
。
这个新线程是不需要的,因为它的意图似乎是应用程序应该等待,直到文件被选择。
希望这对你有帮助弗雷德里克·