Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
93 kB
0
Indexable
Never
using Exact.SystemLayer.TypeExtension;
using Exact.Win.UI.Form;
using Microsoft.VisualBasic;
using System;
using System.ComponentModel;
using System.IO;
using System.Text;
using System.Windows.Forms;
using UpgradeHelpers.Gui;
using UpgradeHelpers.Helpers;

namespace Exact.Crm.DocumentBrowser
{
	[Exact.Win.UI.Form.FormLayout(ShowExactMenu=false, ShowActionBar=true, ShowStatusBar=true)]
	internal partial class frmBrowseDocuments
		: Exact.Win.UI.Form.ExactFormBase, Exact.SystemLayer.Interfaces.IExactConnection2
	{

		public frmBrowseDocuments()
			: base()
		{
			if (m_vb6FormDefInstance is null)
			{
				if (m_InitializingDefInstance)
				{
					m_vb6FormDefInstance = this;
				}
				else
				{
					try
					{
						//For the start-up form, the first instance created is the default instance.
						if (!(System.Reflection.Assembly.GetExecutingAssembly().EntryPoint is null) && System.Reflection.Assembly.GetExecutingAssembly().EntryPoint.DeclaringType == this.GetType())
						{
							m_vb6FormDefInstance = this;
						}
					}
					catch
					{
					}
				}
			}
			//This call is required by the Windows Form Designer.
			InitializeComponent();
		}

		//-- Interfaces

		//-- Private vars
		private Exact.SystemLayer.Interfaces.IApplication m_App = null;
		private Exact.SystemLayer.Interfaces.ICompany m_Comp = null;
		private Exact.SystemLayer.Interfaces.ITranslator m_Term = null;
		private Exact.DataLayer.IEdlConnection m_conn = null;
		private Exact.DataLayer.IEdlRef m_EdlRef = null; //Chan31941 07-Jun-2005 [FC 15.246.455]

		private int m_JobLevel = 0;
		private byte[] m_AttachedDocument = null;
		private byte[] m_DocumentBody = null;
		private string m_FileName = "";
		private string m_TempFile = "";

		private bool m_busy = false;

		//Start CBR 80.967.458
		private GlobalInterfaces.GI_Exact.Cmdm.Tools.IclsGeneral m_oCMDMTools = null;
		private const string gsCMDMTopicAccount = "ACCOUNT";
		private bool m_bUseCentralData = false;
		//End CBR 80.967.458

		//-- Public vars: Contains the params
		//-- For query - view
		public string OrderNumber = "";
		public string OurRef = "";
		public string YourRef = "";
		public object AttachmentId = null;
		public object Account = null;
		public object Resource = null;
		public object ProjectNumber = null;
		public object Item = null;
		public object PaymentReference = null;
		public object ItemSerialNumber = null;
		//chan221476 (10-02-2009) [BR29.584.764] - New variable to store table name
		public string TableSourceInvoice = "";
		////New feature, add existing documents:
		private System.Collections.Generic.IList<int> m_alngExisting = new System.Collections.Generic.List<int>();
		private System.Collections.Generic.IList<string> m_astrFilterDocType = new System.Collections.Generic.List<string>();

		//-- Used when adding new
		public int DocType = 0;
		public string DefaultOrderNumber = "";
		public string DefaultOurRef = "";
		public string DefaultYourRef = "";
		public string DefaultAccount = "";
		public string DefaultResource = "";
		public string DefaultProjectNumber = "";
		public string DefaultItem = "";
		public string DefaultPaymentReference = "";
		public string DefaultItemSerialNumber = "";
		public string DefaultEntryKey = "";

		public string NewDocumentID = "";
		public bool ReadOnly = false;
		public bool ReturnIDWhenEmpty = false;
		public bool UseExistConnection = false;

		private bool bShouldReturnID = false;
		private bool bAllowAddNew = false;
		private bool bAllowAddExisting = false;
		private bool bEnableButtons = false;

		private const string cUnsafeFileExtensions = ".ade.adp.bas.bat.chm.cmd.com.cpl.crt.exe.hlp.hta.inf.ins.isp.js.jse.lnk.mdb.mde.msc.msi.msp.mst.pcd.pif.reg.scr.sct.shs.shb.url.vb.vbe.vbs.wsc.wsf.wsh";
		private const short cFileThresholdSize = 4000; //Chan31941, 12-Oct-04 [12.654.658]

		//''Private Enum WhereClause
		//''    eAll
		//''    eOrderNumberAccount
		//''    eOrderNumberYourRefAccount
		//''    eOrderNumberOurRefAccount
		//''    eOurRefYourRefAccount
		//''    eOurRefAccount
		//''    eYourRefAccount
		//''    eOrderNumber
		//''    eOrderNumberYourRef
		//''    eOrderNumberOurRef
		//''    eOurRefYourRef
		//''    eAccount
		//''    eOurRef
		//''    eYourRef
		//''    eItem
		//''    eProject
		//''    eResource
		//''    eNone
		//''End Enum

		//-- Holds reference to maintenance object
		private Exact.SystemLayer.Interfaces.IExactMaintenance m_Maint = null;

		//-- Observers
        private Exact.SystemLayer.SubjectRx.SubjectFactory m_Factory = null;
		private Exact.SystemLayer.SubjectRx.Subject m_Subject = null;
		private Exact.SystemLayer.Interfaces.IObserver m_Observer = null;

		//-- Constants
		private enum aBarButtons
		{
			CMD_CLOSE = 1,
			CMD_EDIT = 2,
			CMD_NEW = 3,
			CMD_OPEN = 4,
			CMD_NOTE = 5,
			CMD_DOWNLOAD = 6,
			CMD_EXISTING = 7
		}

		//[limh109866][FC21.820.527]16 MAR 2007
		public string StateCode = "";
		public string CountryCode = "";

		public Exact.SystemLayer.Interfaces.ISettings iSet = null;
		public bool m_bUseTaxExemptedCert = false; //BR 28.356.242
		private Exact.SystemLayer.SetAppTitle.Titles _m_oTitle = null;
		private Exact.SystemLayer.SetAppTitle.Titles m_oTitle
		{
			get
			{
				if (_m_oTitle is null)
				{
					_m_oTitle = new Exact.SystemLayer.SetAppTitle.Titles();
				}
				return _m_oTitle;
			}
			set
			{
				_m_oTitle = value;
			}
		}
		 //PBI 112801: Applocale Set application title

		public void AddExistingType(int lngType)
		{
			////---------------------------------------------------------------------------------------
			//// Procedure: AddExistingType
			//// DateTime : 30-07-2003 / 11:14
			//// Author   : Rick Langevoort
			//// Purpose  : Add a type ID to the array of types to be displayed.
			////
			//// Returns  : -
			////
			//// Revision :
			////---------------------------------------------------------------------------------------

			Globals.Add2Array_Long(  m_alngExisting, lngType, true);
		}

		//Option to filter on document type
		public void FilterDocType(int lngType)
		{
			Globals.Add2Array(  m_astrFilterDocType, lngType.ToString().Trim(), true);
		}

		//-- Connetion interface
		public Exact.SystemLayer.Interfaces.IApplication Application
		{
			get
			{
				return m_App;
			}
			set
			{
				m_App = value;
			}
		}


		public Exact.SystemLayer.Interfaces.ICompany Company
		{
			get
			{
				return m_Comp;
			}
			set
			{
				m_Comp = value;
			}
		}


		public Exact.SystemLayer.Interfaces.ITranslator Translator
		{
			get
			{
				return m_Term;
			}
			set
			{
				m_Term = value;
			}
		}


		public void Connect()
		{
			Initialize(m_App, m_Comp, m_Term);
			m_App.ConnectObject(brwDocuments, m_Comp, m_Term);
			m_App.ConnectObject(ActionBar, m_Comp, m_Term);
			//Chan31941 07-Jun-2005 [FC 15.246.455]
			m_EdlRef = m_conn.CreateRef("orkrg", "ID", "*", Exact.DataLayer.LockModes.edlLockUpdate);
		}

		//-- Public functions and subs
		//UPGRADE-WARNING: Parameter Term was changed from byref to byval.
		//UPGRADE-WARNING: Parameter Comp was changed from byref to byval.
		//UPGRADE-WARNING: Parameter App was changed from byref to byval.
		public void Initialize(Exact.SystemLayer.Interfaces.IApplication App, Exact.SystemLayer.Interfaces.ICompany Comp, Exact.SystemLayer.Interfaces.ITranslator Term)
		{
			//-- Create objects
			if (m_App is null)
			{
				m_App = App;
			}
			if (m_Comp is null)
			{
				m_Comp = Comp;
			}
			if (m_Term is null)
			{
				m_Term = Term;
			}
			if (m_conn is null)
			{
				m_conn = m_Comp.EDLConnection;
			}

			//-- Get the joblevel of the user
			m_JobLevel = GetJobLevel();
		}

		public void ShowForm()
		{
			this.ShowDialog();
		}

		private void ActionBar_ButtonClick(object eventSender, Exact.Win.UI.Controls.Interfaces.ButtonClickEventArgs eventArgs)
		{
			int nID = eventArgs.nID;

			try
			{
				Exact.DataLayer.EdlObject vAccount = null;
				frmExisting objEx = null;
				//UPGRADE_WARNING: (6021) Casting 'int' to Enum may cause different behaviour. More Information: https://www.mobilize.net/vbtonet/ewis/ewi6021
				switch((aBarButtons) nID)
				{
					case aBarButtons.CMD_EXISTING : 
						//Chan31941, [06-Sep-2006] [20.078.294] 
						if (IsRecordLocked())
						{
							return;
						} 
						 
						 
						objEx = new frmExisting(); 
						 
						//UPGRADE_ISSUE: (2064) Void method Global.Load was not upgraded. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2064 
						//VB.Global.Load(objEx); 
						 
						////Set types to be shown: 
						foreach (int m_alngExisting_item in m_alngExisting)
						{
							objEx.AddExistingType(m_alngExisting_item);
						} 
						 
						//BR 09.188.353: Document browser should try to prefill the account number 
						//Apply only for single type document 
						objEx.DefaultAccount = DefaultAccount; 
						if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultAccount) || Exact.SystemLayer.Common.ConvertHelper.IsNull(DefaultAccount) || DefaultAccount.TrimNullAndSpaces() == "")
						{
							if (m_alngExisting.Count == 1)
							{
								switch(m_alngExisting[0])
								{
									case GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Globals.cTypePurchaseQuotation : 
										vAccount = m_conn.Query("SELECT cicmpy.cmp_wwn FROM orkrg INNER JOIN cicmpy ON cicmpy.crdnr = orkrg.crdnr WHERE orkrg.ordernr = ?", OrderNumber, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls); 
										break;
									case GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Globals.cTypeSalesOrder : case GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Globals.cTypeRequestForProposal : 
										vAccount = m_conn.Query("SELECT cicmpy.cmp_wwn FROM orkrg INNER JOIN cicmpy ON cicmpy.debnr = orkrg.debnr WHERE orkrg.ordernr = ?", OrderNumber, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls); 
										break;
									case GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Globals.cTypePurchaseInvoice : 
										//Chan31941, [08-Nov-2006] [20.781.920]-Adjustment on performance for SQL2005 
										vAccount = m_conn.Query("SELECT cicmpy.cmp_wwn FROM cicmpy WHERE cicmpy.crdnr = (SELECT DISTINCT gbkmut.crdnr " + 
										           "FROM gbkmut " + 
										           "LEFT OUTER JOIN btwtrs b1 ON gbkmut.reknr = b1.reknr AND gbkmut.reknr IS NOT NULL AND b1.reknr IS NOT NULL " + 
										           "LEFT OUTER JOIN btwtrs b2 ON gbkmut.crdnr = b2.creditor AND gbkmut.crdnr IS NOT NULL AND b2.creditor IS NOT NULL " + 
										           "WHERE gbkmut.faktuurnr = ? AND gbkmut.crdnr IS NOT NULL " + 
										           "AND (b1.ID IS NULL AND b2.ID IS NULL))", OurRef, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls); 
										break;
								}

								if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vAccount))
								{
									objEx.DefaultAccount = vAccount;
								}
							}
						} 
						 
						////Set order data: 
						objEx.DefaultOrderNumber = DefaultOrderNumber; 
						objEx.DefaultOurRef = DefaultOurRef; 
						objEx.DefaultYourRef = DefaultYourRef; 
						objEx.DefaultResource = DefaultResource; 
						objEx.DefaultProjectNumber = DefaultProjectNumber; 
						objEx.DefaultItem = DefaultItem; 
						objEx.DefaultPaymentReference = DefaultPaymentReference; 
						objEx.DefaultItemSerialNumber = DefaultItemSerialNumber; 
						objEx.DefaultEntryKey = DefaultEntryKey; 
						objEx.ReadOnly = ReadOnly; 
						 
						////Start browsing: 
						objEx.BrowseExisting(m_App, m_conn, m_Comp, m_Term, this); 
						 
						if (objEx.DocMatched)
						{
							RefreshBrowser();
						} 
						 
						objEx.Close(); 
						objEx = null; 
						 
						break;
					case aBarButtons.CMD_EDIT : 
						//Chan31941, [27-Jul-2006] [19.759.784] 
						if (IsDocumentExists())
						{
							return;
						} 
						 
						if (HasRights())
						{
							//Chan31941, [06-Sep-2006] [20.078.294]
							if (IsRecordLocked())
							{
								return;
							}
							OpenAttachment();
						}
						else
						{
							//PBI 112801: Applocale Set application title
							m_App.Message(this.Handle, m_Term.String(15469, "No rights"), m_oTitle.GetTitle(this));
						} 
						break;
					case aBarButtons.CMD_CLOSE : 
						//-- Try to delete the current temp file 
						DeleteTempFile(); 
						//UPGRADE_WARNING: (1049) Use of Null/IsNull() detected. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1049 
						if (Exact.SystemLayer.Common.ConvertHelper.IsNull((Exact.SystemLayer.Common.ConvertHelper.IsEmpty(AttachmentId)) ? DBNull.Value : AttachmentId))
						{
							if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(NewDocumentID))
							{
								if (brwDocuments.NumRows > 0)
								{
									brwDocuments.CurrentRow = 1;
									if (bShouldReturnID)
									{
										//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
										NewDocumentID = Convert.ToString(brwDocuments.get_value("ID"));
									}
								}
							}
							else if (brwDocuments.NumRows == 0)
							{ 
								NewDocumentID = ""; //br30.701.256 chon32144 30/05/2009
							}
						} 
						//[limh109866][05 JUN 2006]br19.275.758 
						//Me.Hide 
						this.Close(); 
						break;
					case aBarButtons.CMD_NEW : 
						//Chan31941, [06-Sep-2006] [20.078.294] 
						if (IsRecordLocked())
						{
							return;
						} 
						NewDocument(); 
						break;
					case aBarButtons.CMD_OPEN : 
						//Chan31941, [27-Jul-2006] [19.759.784] 
						if (IsDocumentExists())
						{
							return;
						} 
						 
						if (HasRights())
						{
							DisplayAttachment(false);
						}
						else
						{
							//PBI 112801: Applocale Set application title
							m_App.Message(this.Handle, m_Term.String(15469, "No rights"), m_oTitle.GetTitle(this));
						} 
						break;
					case aBarButtons.CMD_NOTE : 
						if (HasRights())
						{
							DisplayNotes();
						}
						else
						{
							//PBI 112801: Applocale Set application title
							m_App.Message(this.Handle, m_Term.String(15469, "No rights"), m_oTitle.GetTitle(this));
						} 
						break;
					case aBarButtons.CMD_DOWNLOAD : 
						//Chan31941, [27-Jul-2006] [19.759.784] 
						if (IsDocumentExists())
						{
							return;
						} 
						 
						if (HasRights())
						{
							DisplayAttachment(true);
						}
						else
						{
							//PBI 112801: Applocale Set application title
							m_App.Message(this.Handle, m_Term.String(15469, "No rights"), m_oTitle.GetTitle(this));
						} 
						break;
				}
			}
			finally
			{
				eventArgs.nID = nID;
			}
		}

		private bool bLoaded = false;
		private void brwDocuments_RowChanged(Object eventSender, EventArgs eventArgs)
		{
			if (bLoaded) EnableButtons(true);
		}

		private void brwDocuments_Selected(Object eventSender, EventArgs eventArgs)
		{
			if (ActionBar[(int) aBarButtons.CMD_EDIT].Enabled)
			{
				ActionBar_ButtonClick(ActionBar, new Exact.Win.UI.Controls.Interfaces.ButtonClickEventArgs((int) aBarButtons.CMD_EDIT));
			}
		}

        protected override void FormLoad()
        {
			//-- Set the caption
			//PBI 112801: Applocale Set application title
			m_oTitle.SetFormTitle(this, m_Term.String(31261, "Attachments"), true);

			//-- Init observer
			System.Threading.Tasks.Task.Run(() => { InitObserver(); });

			//Read settings
			ReadSettings();
		}

		private void Form_Load(object sender, System.EventArgs e)
		{
			//>>BR: 14.556.042-Locking error during adding attachment
			bEnableButtons = true;
			if (IsOrkrgLocked())
			{
				bEnableButtons = false;
			}

			NewDocumentID = "";

			if (Exact.SystemLayer.Common.ConvertHelper.IsNull((Exact.SystemLayer.Common.ConvertHelper.IsEmpty(AttachmentId)) ? DBNull.Value : AttachmentId))
			{
				bShouldReturnID = ReturnIDWhenEmpty;
			}

			////New feature: show existing, non-matched, documents of specified type(s):
			////Add the default type (Miscellaneous) if not exist
			if (!Globals.TestArray_Long(m_alngExisting))
			{
				if (DocType != 0)
				{
					AddExistingType(DocType);
				}
				else
				{
					AddExistingType(GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Globals.cTypeMiscellaneous);
				}
			}
			ActionBar.ToggleVisibility(false);
			ActionBar.ShowButton((int)aBarButtons.CMD_EXISTING, Globals.TestArray_Long(m_alngExisting));
			ActionBar.ToggleVisibility(true);
		}

		private void Form_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
		{
			// Do not remove, allow form UI to render first
			System.Windows.Forms.Application.DoEvents();
			// Run browser query and rendering in separate Task
			System.Threading.Tasks.Task.Run(()=> { RefreshBrowser(); bLoaded = true; }); 			
		}

		private void Form_Closed(Object eventSender, CancelEventArgs eventArgs)
		{
			int Cancel = (eventArgs.Cancel) ? 1 : 0;
			try
			{
				if (IsRunning(false))
				{
					//-- Don't allow unload
					Cancel = 1;
					return;
				}

				//-- Try to delete the current temp file
				DeleteTempFile();
				//UPGRADE_WARNING: (1049) Use of Null/IsNull() detected. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1049
				if (Exact.SystemLayer.Common.ConvertHelper.IsNull((Exact.SystemLayer.Common.ConvertHelper.IsEmpty(AttachmentId)) ? DBNull.Value : AttachmentId))
				{
					if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(NewDocumentID))
					{
						if (brwDocuments.NumRows > 0)
						{
							brwDocuments.CurrentRow = 1;
							if (bShouldReturnID)
							{
								//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
								NewDocumentID = Convert.ToString(brwDocuments.get_value("ID"));
							}
						}
					}
					else if (brwDocuments.NumRows == 0)
					{ 
						NewDocumentID = ""; //br30.701.256 chon32144 30/05/2009
					}
				}

				//-- Terminate observer
				TerminateObserver();
				//chan221476 (10-02-2009) [BR29.584.764] - Set it back to empty when form close
				if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(TableSourceInvoice))
				{
					TableSourceInvoice = "";
				}
				//-- Kill objects
				m_Maint = null;
				m_App = null;
				m_Comp = null;
				m_Term = null;
				m_conn = null;

				//>>BR: 14.556.042-Locking error during adding attachment
				//Chan31941, 07-Jun-2005 [FC 15.246.455]
				m_EdlRef?.Dispose();
				m_EdlRef = null;
				m_oTitle = null; //PBI 112801: Applocale Set application title
			}
			finally
			{
				eventArgs.Cancel = Cancel != 0;
			}

		}

		//''Private Function GetClause() As WhereClause
		//''    '-- Resource is always filled!
		//''
		//''    '-- Browse only for item?
		//''    If Not IsEmpty(Item) Then
		//''        If IsEmpty(ProjectNumber) And IsEmpty(Account) And IsEmpty(OrderNumber) And IsEmpty(OurRef) And IsEmpty(YourRef) Then
		//''            GetClause = eItem
		//''            Exit Function
		//''        End If
		//''    End If
		//''
		//''    '-- Browse only for resource?
		//''    If Not IsEmpty(Resource) Then
		//''        If IsEmpty(ProjectNumber) And IsEmpty(Account) And IsEmpty(OrderNumber) And IsEmpty(OurRef) And IsEmpty(YourRef) And IsEmpty(Item) Then
		//''            GetClause = eResource
		//''            Exit Function
		//''        End If
		//''    End If
		//''
		//''    '-- Browse only for project?
		//''    If Not IsEmpty(ProjectNumber) Then
		//''        If IsEmpty(Item) And IsEmpty(Account) And IsEmpty(OrderNumber) And IsEmpty(OurRef) And IsEmpty(YourRef) Then
		//''            GetClause = eProject
		//''            Exit Function
		//''        End If
		//''    End If
		//''
		//''    '-- Evaluate fither
		//''    If Not IsEmpty(OrderNumber) And Not IsEmpty(OurRef) And Not IsEmpty(YourRef) Then
		//''        GetClause = eAll
		//''    Else
		//''        If Not IsEmpty(OrderNumber) And Not IsEmpty(OurRef) And Not IsEmpty(Account) Then
		//''            GetClause = eOrderNumberOurRefAccount
		//''        Else
		//''            If Not IsEmpty(OrderNumber) And Not IsEmpty(YourRef) And Not IsEmpty(Account) Then
		//''                GetClause = eOrderNumberYourRefAccount
		//''            Else
		//''                If Not IsEmpty(YourRef) And Not IsEmpty(OurRef) And Not IsEmpty(Account) Then
		//''                    GetClause = eOurRefYourRefAccount
		//''                Else
		//''                    If Not IsEmpty(OrderNumber) And Not IsEmpty(OurRef) Then
		//''                        GetClause = eOrderNumberOurRef
		//''                    Else
		//''                        If Not IsEmpty(OrderNumber) And Not IsEmpty(YourRef) Then
		//''                            GetClause = eOrderNumberYourRef
		//''                        Else
		//''                            If Not IsEmpty(YourRef) And Not IsEmpty(OurRef) Then
		//''                                GetClause = eOurRefYourRefAccount
		//''                            Else
		//''                                If Not IsEmpty(YourRef) And Not IsEmpty(Account) Then
		//''                                    GetClause = eYourRefAccount
		//''                                Else
		//''                                    If Not IsEmpty(OurRef) And Not IsEmpty(Account) Then
		//''                                        GetClause = eOurRefAccount
		//''                                    Else
		//''                                        If Not IsEmpty(OrderNumber) And Not IsEmpty(Account) Then
		//''                                            GetClause = eOrderNumberAccount
		//''                                        Else
		//''                                            If Not IsEmpty(Account) Then
		//''                                                GetClause = eAccount
		//''                                            Else
		//''                                                If Not IsEmpty(YourRef) Then
		//''                                                    GetClause = eYourRef
		//''                                                Else
		//''                                                    If Not IsEmpty(OurRef) Then
		//''                                                        GetClause = eOurRef
		//''                                                    Else
		//''                                                        If Not IsEmpty(OrderNumber) Then
		//''                                                            GetClause = eOrderNumber
		//''                                                        Else
		//''                                                            GetClause = eNone
		//''                                                        End If
		//''                                                    End If
		//''                                                End If
		//''                                            End If
		//''                                        End If
		//''                                    End If
		//''                                End If
		//''                            End If
		//''                        End If
		//''                    End If
		//''                End If
		//''            End If
		//''        End If
		//''    End If
		//''End Function

		//UPGRADE-WARNING: Parameter AttachGuid was changed from byref to byval.
		private void UpdateBacoDiscussions(string AttachGuid)
		{
			//'tanj42445 - 20101125 - FC 37.043.210 - Trigger notification when update document
			Exact.SystemLayer.Interfaces.IConnectivity oESF = new Exact.Entity.Notification.Connectivity();
			m_App.ConnectObject(oESF, m_Comp, m_Term);

			//UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
			m_conn.Exec("UPDATE BacoDiscussions SET OrderNumber=?,OurRef=?,YourRef=?,Cmpwwn=?,Type=?,HumResId=?,EntryKey=? WHERE ID=?", new Exact.DataLayer.EdlObject[]{DefaultOrderNumber, DefaultOurRef, DefaultYourRef, DefaultAccount, DocType, DefaultResource, DefaultEntryKey, AttachGuid});
			oESF.NotifyProcessWithBCEdit("BDDocument", "ID", AttachGuid, Exact.SystemLayer.Interfaces.NotifyAction.naUpdate);
			m_conn.Commit();

			//'End FC 36.946.408
		}

		private void NewDocument()
		{
			string DocumentId = "";

			Exact.SystemLayer.Interfaces.IExactMaintenance oMaint = null;
			Exact.SystemLayer.Interfaces.IExtensionDlg b = null;
			Exact.SystemLayer.Utils.MaintenanceHelper maintHelper = null;
			Exact.SystemLayer.Interfaces.IValueSet vs = null;
			if (!StartNewDocumentApp())
			{

				//UPGRADE_WARNING: (7008) The ProgId could not be found on computer where this application was migrated More Information: https://www.mobilize.net/vbtonet/ewis/ewi7008
				b = (Exact.SystemLayer.Interfaces.IExtensionDlg) new Exact.Win.UI.FipAttachment();

				m_App.ConnectObject(b, m_Comp, m_Term);
				b.Title = m_Term.String(7226, "Document");
				//UPGRADE_WARNING: (1068) tempRefParam of type object is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
				object tempRefParam = DocumentId;
				b.Show(this.Handle, 0, ref tempRefParam);
				DocumentId = Convert.ToString(tempRefParam);

				if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DocumentId))
				{
					UpdateBacoDiscussions(DocumentId);

					if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(NewDocumentID))
					{
						NewDocumentID = DocumentId;
					}
				}
			}
			else
			{
				//-- Use new document applications
				//If m_Maint Is Nothing Then
				//    Set m_Maint = CreateObject("MDocuments.Document", "")
				//    m_App.ConnectObject m_Maint, m_Comp, m_Term
				//End If

				//CBR78.032.704
				maintHelper = new Exact.SystemLayer.Utils.MaintenanceHelper();
				m_App.ConnectObject(maintHelper, m_Comp, m_Term);
				oMaint = maintHelper.CreateMaintObj("MDocuments.Document", "");

				vs = new Exact.SystemLayer.Common.ValueSet();

				//-- Create value set with values
				vs.Add("OrderNumber", DefaultOrderNumber);
				vs.Add("OurRef", DefaultOurRef);
				vs.Add("YourRef", DefaultYourRef);
				vs.Add("Person", DefaultResource);
				vs.Add("Associate", DefaultAccount);
				vs.Add("Type", DocType);
				vs.Add("ProjectNr", DefaultProjectNumber);
				if ((((DefaultItem) is null) ? 0 : Convert.ToString(DefaultItem).Trim().Length) > 0)
				{
					vs.Add("Item", DefaultItem);
				}
				vs.Add("PaymentReference", DefaultPaymentReference);
				if ((((DefaultItem) is null) ? 0 : Convert.ToString(DefaultItem).Trim().Length) > 0 && (((DefaultItemSerialNumber) is null) ? 0 : Convert.ToString(DefaultItemSerialNumber).Trim().Length) > 0)
				{
					//NGOB24429: [09.150.093] 23/12/2003 (Wrongly set property name, caused invalid validation in repository.)
					//.Add "ItemSerialNumberCode", DefaultItemSerialNumber
					vs.Add("ItemSerialNumber", DefaultItemSerialNumber);
				}
				vs.Add("EntryKey", DefaultEntryKey);

				//[limh109866][FC21.820.527]16 MAR 2007
				//BR 28.356.242 - Check on the setting
				if (m_bUseTaxExemptedCert && !System.String.IsNullOrWhiteSpace(StateCode) && !System.String.IsNullOrWhiteSpace(CountryCode))
				{
					vs.Add("StateCode", StateCode);
					vs.Add("CountryCode", CountryCode);
				}

				if (UseExistConnection)
                {
					vs.Add("UseExistConnection", UseExistConnection);
                }
				
				oMaint.Add(this.Handle, vs, Exact.SystemLayer.Interfaces.MaintenanceFlags.mntModal, "U");
				oMaint = null;

				//[limh109866][05 JUN 2006]br19.275.758
				if (m_App is null)
				{
					return;
				}
				bShouldReturnID = true;
				//tanc30792 [BR 12.312.774] [10 Sep 2004]
				//Always refresh to refresh the calculated field
				brwDocuments.Refresh();
				vs = null;
			}

			EnableButtons(true);
		}

		private void OpenAttachment()
		{
			string DocumentId = "";

			Exact.SystemLayer.Interfaces.IExactMaintenance oMaint = null;
			Exact.SystemLayer.Interfaces.IExtensionDlg b = null;
			Exact.SystemLayer.Utils.MaintenanceHelper maintHelper = null;
			if (!StartNewDocumentApp())
			{

				//UPGRADE_WARNING: (7008) The ProgId could not be found on computer where this application was migrated More Information: https://www.mobilize.net/vbtonet/ewis/ewi7008
				b = (Exact.SystemLayer.Interfaces.IExtensionDlg) new Exact.Win.UI.FipAttachment();
				m_App.ConnectObject(b, m_Comp, m_Term);

				b.Title = m_Term.String(31617, "Attachement");

				//Open the document
				if (brwDocuments.NumRows != 0)
				{
					//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
					DocumentId = Convert.ToString(brwDocuments.get_value("BacoDiscussions.ID"));
					if (ReadOnly)
					{
						//UPGRADE_WARNING: (1068) tempRefParam of type object is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
						object tempRefParam = DocumentId;
						b.Show(this.Handle, 1, ref tempRefParam);
						DocumentId = Convert.ToString(tempRefParam);
					}
					else
					{
						//UPGRADE_WARNING: (1068) tempRefParam2 of type object is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
						object tempRefParam2 = DocumentId;
						b.Show(this.Handle, 0, ref tempRefParam2);
						DocumentId = Convert.ToString(tempRefParam2);
					}
				}

				b = null;
			}
			else
			{
				//-- Use new document applications
				//If m_Maint Is Nothing Then
				//    Set m_Maint = CreateObject("MDocuments.Document")
				//    m_App.ConnectObject m_Maint, m_Comp, m_Term
				//End If

				//CBR78.032.704
				maintHelper = new Exact.SystemLayer.Utils.MaintenanceHelper();
				m_App.ConnectObject(maintHelper, m_Comp, m_Term);
				oMaint = maintHelper.CreateMaintObj("MDocuments.Document", "");

				//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to int. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
				oMaint.Edit(this.Handle, Convert.ToInt32(brwDocuments.get_value("BacoDiscussions.HID")), Exact.SystemLayer.Interfaces.MaintenanceFlags.mntModal, (ReadOnly) ? "UR" : "UA");
				oMaint = null;

				//[limh109866][05 JUN 2006]br19.275.758
				if (m_App is null)
				{
					return;
				}
				//tanc30792 [BR 12.312.774] [10 Sep 2004]
				//Always refresh to refresh the calculated field
				brwDocuments.Refresh();
			}
		}

		private bool StartNewDocumentApp()
		{
			//-- Use new document app when crm present in license or when Compact
			//BR 10.316.682: No checking on CRM and Compact option
			//If m_Comp.GetOpt(OPT_E_CIS) Or m_Comp.GetOpt(OPT_COMPACT) Then
			return true;
			//Else
			//    StartNewDocumentApp = False
			//End If
		}

		private string GetSelectCol()
		{
			return "HID, (LEFT(RIGHT(RTRIM('00000000' + CAST(HID AS char(8))), 8), 2) + '.' + SUBSTRING(RIGHT(RTRIM('00000000' + CAST(HID AS char(8))), 8), 3, 3) + '.' + RIGHT(RTRIM('00000000' + CAST(HID AS char(8))), 3)) AS HIDFormatted, " + 
			"BacoDiscussionFixedTypes.Description, BacoDiscussions.JobLevel, BacoDiscussions.Subject, BacoDiscussions.FileName, (RTRIM(Cast(DataLength(BacoDiscussions.Document)/1000 AS char(12))) + ' KB') AS Size, BacoDiscussions.OrderNumber, BacoDiscussions.OurRef, BacoDiscussions.YourRef, (CASE WHEN ISNULL(BacoDiscussions.Source,'S') = 'I' THEN 1 ELSE 0 END) AS Input, (CASE WHEN NOT ISNULL(BacoDiscussions.Source,'S') = 'I' THEN 1 ELSE 0 END) AS Output, (CASE WHEN BacoDiscussions.Note IS NULL THEN 0 ELSE 1 END) as Notes," + 
			"BacoDiscussions.CreatedByFullName, BacoDiscussions.CreatedDate, BacoDiscussions.ModifiedDate," + 
			"BacoDiscussions.ID";
		}

		private string GetColumnInfo()
		{
			//tanc30792 [BR 14.674.387] [12 Apr 2005] Term Size
			return "HIDFormatted,7226,Document,,,2048;BacoDiscussionFixedTypes.Description,4243,Description,15;" + 
			"Input,8644,Input;Output,8888,Output;Notes,8873,Notes;BacoDiscussions.OrderNumber,404,Order Number;BacoDiscussions.OurRef,119,Our Ref;BacoDiscussions.YourRef,78,Your Ref;BacoDiscussions.Subject,213,Subject,25;BacoDiscussions.JobLevel,209,Security level,10,64;BacoDiscussions.CreatedDate,2468,Created,20;" + 
			"BacoDiscussions.CreatedByFullName,10696,Created by,20;BacoDiscussions.FileName,31617,File name,25;BacoDiscussions.ModifiedDate,32118,Modified,20;" + 
			"BacoDiscussions.ModifiedByFullName,24774,Modified by,20;Size,5810,Size,12,64";
		}

		private string GetFrom()
		{
			//BR 08.910.344: Optimize query by reducing number of "inner join"
			//GetFrom = "BacoDiscussions " & _
			//    '    "INNER JOIN BacoDiscussionFixedTypes ON BacoDiscussions.Type = BacoDiscussionFixedTypes.TypeID " & _
			//    '    "INNER JOIN (" & _
			//    '    "SELECT ID " & _
			//    '        "FROM BacoDiscussions " & _
			//    '        "INNER JOIN BacoDiscussionFixedTypes ON BacoDiscussions.Type = BacoDiscussionFixedTypes.TypeID WHERE [WHERE]" & _
			//    '        " UNION " & _
			//    '        "SELECT ID " & _
			//    '        "FROM BacoDiscussions " & _
			//    '        "LEFT JOIN BacoDiscussionFixedTypes ON BacoDiscussions.Type = BacoDiscussionFixedTypes.TypeID WHERE BacoDiscussions.ID=" & m_conn.Literal(IIf(IsEmpty(AttachmentId), Null, AttachmentId)) & _
			//    '        ") AS X ON X.Id=BacoDiscussions.ID "


			string result = "";
			result = "BacoDiscussions " + 
			         "INNER JOIN BacoDiscussionFixedTypes ON BacoDiscussions.Type = BacoDiscussionFixedTypes.TypeID WHERE [WHERE]";

			//[limh109866][FC21.820.527]16 MAR 2007
			//BR 28.356.242 - Check on the setting
			if (m_bUseTaxExemptedCert && !System.String.IsNullOrWhiteSpace(StateCode) && !System.String.IsNullOrWhiteSpace(CountryCode))
			{
				result = "BacoDiscussions " + 
				         "INNER JOIN BacoDiscussionFixedTypes ON BacoDiscussions.Type = BacoDiscussionFixedTypes.TypeID " + 
				         "INNER JOIN TaxExemptStateCertificates ON BacoDiscussions.ID = TaxExemptStateCertificates.DocumentID WHERE [WHERE]";
			}
			return result;
		}

		//-- Does the user have rights to open the document?
		private bool HasRights()
		{

			//Get information on the document
			Exact.DataLayer.EdlObject vDocument = m_conn.Query("SELECT Owner, CreatedBy, JobLevel, HumresID FROM BacoDiscussions WHERE ID=?", new Exact.DataLayer.EdlObject(brwDocuments.get_value("ID")), Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

			bool bHasRights = true;
			Exact.SystemLayer.Interfaces.IUser withVar = null;
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vDocument))
			{
				withVar = m_Comp.User;
				bHasRights = (withVar.ID == ((double) vDocument[0]));
				bHasRights = bHasRights || withVar.ID == ((double) vDocument[1]);
				bHasRights = bHasRights || m_JobLevel >= ((double) vDocument[2]);
				bHasRights = bHasRights || (withVar.ID == ((double) vDocument[3]) && ((double) vDocument[2]) == 100);
				bHasRights = bHasRights || withVar.Administrator;
				//BR 45.464.594 Check project specific document rights
				bHasRights = bHasRights || (((double) vDocument[2]) == 101 && IsProjectMember());
			}

			return bHasRights;
		}

		private bool IsProjectMember()
		{

			//UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
			return (bool) m_conn.Query("SELECT 1 FROM prmember WHERE ProjectNr = (SELECT ProjectNr FROM BacoDiscussions WHERE ID = ?) AND res_id = ?", new Exact.DataLayer.EdlObject[]{new Exact.DataLayer.EdlObject(brwDocuments.get_value("ID")), m_Comp.User.ID}, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

		}

		private int GetJobLevel()
		{

			Exact.DataLayer.EdlObject vResult = m_conn.Query("SELECT job_level" + 
			                                    "  FROM humres " + 
			                                    "    WHERE res_id=?", m_Comp.User.ID, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult))
			{
				return (int) vResult;
			}
			else
			{
				return 0;
			}
		}

		// --- showing attached document ---
		//UPGRADE-WARNING: Parameter bDownLoad was changed from byref to byval.
		private void DisplayAttachment(bool bDownLoad)
		{

			string sTempFileName = "";
			int nFileHandle = 0;
			bool bYesDownload = false;
			Exact.SystemLayer.General.Filer oFiler = new Exact.SystemLayer.General.Filer();
			try
			{
				//-- Get Current document
				StartProcess();
				//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
				ReadAttachedDocument(Convert.ToString(brwDocuments.get_value("ID")));

				//-- Try to delete the current temp file
				DeleteTempFile();

				// --- generate temporary file to be able to show attachment ---
				if (m_AttachedDocument.GetUpperBound(0) > 0 || m_DocumentBody.GetUpperBound(0) > 0)
				{
					// --- generate temporary file name and path ---
				
					sTempFileName = Path.GetFileName(Path.GetTempFileName());
					if ((((m_FileName) is null) ? 0 : Convert.ToString(m_FileName).Trim().Length) > 0)
					{
						sTempFileName = Path.GetFileNameWithoutExtension(sTempFileName) + "." + Path.GetExtension(m_FileName).Substring(1);
					}
					else
					{
						sTempFileName = Path.GetFileNameWithoutExtension(sTempFileName) + ".htm";
					}
					sTempFileName = (new DirectoryInfo(Path.GetTempPath())).FullName + "\\" + sTempFileName;

					using (FileStream fs = File.Create(sTempFileName))
					{
						//Chan31941, 12-Oct-04 [12.654.658]-validate with UBound instead of IsEmpty
						//If Not IsEmpty(m_AttachedDocument) Then
						if (m_AttachedDocument.GetUpperBound(0) > 0)
						{
							//UPGRADE_WARNING: (2080) Put was upgraded to FilePutObject and has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2080
							fs.Write(m_AttachedDocument, 0, m_AttachedDocument.Length);
						}
						else
						{
							//Chan31941, 12-Oct-04 [12.654.658]-call function to download images.
							DownloadInsertedImages();
							//UPGRADE_WARNING: (2080) Put was upgraded to FilePutObject and has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2080
							fs.Write(m_DocumentBody, 0, m_DocumentBody.Length);
						}
					}

					//Special Cater for htm chinese character
					oFiler.ConvertFileFormat(sTempFileName, sTempFileName); //ASL for applocale
					oFiler = null;
					//Chan31941, 12-Oct-04 [12.654.658]
					//do not check UBound(m_AttachedDocument) cus this preventing document without attachment to launch
					//If UBound(m_AttachedDocument) > 0 Then
					if (bDownLoad || cUnsafeFileExtensions.ToUpper().IndexOf(Path.GetExtension(sTempFileName).Substring(1).ToUpper()) >= 0)
					{
						if (!bDownLoad)
						{
							//PBI 112801: Applocale Set application title
							bYesDownload = m_App.Query(this.Handle, m_Term.String(15839, "Unsafe") + ": " + m_Term.String(16165, "file") + Environment.NewLine + m_Term.String(20307, "Save?"), m_oTitle.GetTitle(this));
						}
						else
						{
							bYesDownload = true;
						}
                        
						//-- Download?
						if (bYesDownload)
						{
							if (CommonDialog == null)
								this.CommonDialog = new Exact.Win.UI.UniCommonDialog.CommonDialogW();
							CommonDialog.DefaultExt = Path.GetExtension(sTempFileName).Substring(1);
							//PBI 112801: Applocale Set application title
							CommonDialog.DialogTitle = m_oTitle.GetTitle(this);
							CommonDialog.CancelError = true;
							CommonDialog.Flags = (int) (Exact.Win.UI.UniEnums.FileOpenConstantsW.cdlOFNHideReadOnly | Exact.Win.UI.UniEnums.FileOpenConstantsW.cdlOFNOverwritePrompt);
							//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
							CommonDialog.FileName = Convert.ToString(brwDocuments.get_value("FileName"));
							//UPGRADE_TODO: (1069) Error handling statement (On Error Resume Next) was converted to a pattern that might have a different behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1069
							try
							{
								CommonDialog.ShowSave();

                                if (CommonDialog.FileName.TrimNullAndSpaces() != "") 
								{
									//BR37.628.906 File not replaced if already exists. Since user already selected <replace file> option, so just delete if file exists
									if (File.Exists(CommonDialog.FileName))
									{
										File.Delete(CommonDialog.FileName);
									}
									File.Move(sTempFileName, CommonDialog.FileName);
								}
							}
							catch (Exception catchedException)
							{
								Exact.Exceptions.Globe.BaseGlobeException exc = Exact.Exceptions.Utils.ExceptionBuilder.Build(catchedException);
							}

						}
						ProgressTerm();
						EndProcess();
						return;
					}

					////chan31941, 16-Sep-04 [12.369.914]
					////set the document to ReadOnly mode.
					//UPGRADE_WARNING: (6021) Casting 'bool' to Enum may cause different behaviour. More Information: https://www.mobilize.net/vbtonet/ewis/ewi6021
					//UPGRADE_ISSUE: (2064) Scripting.IFile property GetFile.Attributes was not upgraded. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2064
                    File.SetAttributes(sTempFileName, FileAttributes.ReadOnly);

					ProgressTerm();

					// --- open attachment using associated application ---
					string tempRefParam = null;
					string tempRefParam2 = null;
					string tempRefParam3 = null;
					if (32 > Exact.SystemLayer.Common.PInvoke.SafeNative.shell32.ShellExecute(this.Handle ,   tempRefParam,   sTempFileName,   tempRefParam2,   tempRefParam3, 5).ToInt32())
					{
						string tempRefParam4 = null;
						string tempRefParam5 = "notepad.exe";
						string tempRefParam6 = null;
						if (32 > Exact.SystemLayer.Common.PInvoke.SafeNative.shell32.ShellExecute(this.Handle ,   tempRefParam4,   tempRefParam5,   sTempFileName,   tempRefParam6, 5).ToInt32())
						{
							//PBI 112801: Applocale Set application title
							m_App.Message(this.Handle, "No application associated with this file type.", m_oTitle.GetTitle(this));
						}
					}
					//End If

					//-- the current temp file in memory
					m_TempFile = sTempFileName;
				}

				EndProcess();
			}
			catch (System.Exception catchedException)
			{
				Exact.Exceptions.Globe.BaseGlobeException excep = Exact.Exceptions.Utils.ExceptionBuilder.Build(catchedException);

				//PBI 112801: Applocale Set application title
				//UPGRADE_WARNING: (2081) Err.Number has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
				m_App.Message(this.Handle, m_Term.String(8335, "Unknown error") + ": (" + ") - " + excep.Message, m_oTitle.GetTitle(this));
				ProgressTerm();
				EndProcess();
			}
		}

		private void ReadAttachedDocument(string ID)
		{

			Exact.DataLayer.EdlObject vResult = null;
			int lngSize = 0;
			Exact.DataLayer.EdlObject Piece = null;

			try
			{

				//*** Chan31941, 12-Oct-04 [12.654.658] - codes to read attachment, replacing the commented old codes below ***'
				vResult = m_conn.Query("SELECT DataLength(Document), Body, FileName FROM BacoDiscussions WHERE ID=? ", ID, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

				if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult))
				{
					lngSize = (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult[0])) ? 0 : ((int) vResult[0]);
					m_DocumentBody = (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult[1])) ? (UnicodeEncoding.Unicode.GetBytes("")) : ((byte[]) vResult[1]);
					m_FileName = (string) vResult[2];
				}
				else
				{
					//UPGRADE_WARNING: (1059) Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetBytes() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
					m_AttachedDocument = UnicodeEncoding.Unicode.GetBytes("");
					//UPGRADE_WARNING: (1059) Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetBytes() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
					m_DocumentBody = UnicodeEncoding.Unicode.GetBytes("");
					m_FileName = "";
				}

				//check if document datalength is greater then predefined thresholdsize.
				if (lngSize > cFileThresholdSize)
				{

					ProgressInit(Convert.ToDouble(lngSize), m_Term.String(6473, "Retrieving info"));

					m_AttachedDocument = new byte[lngSize];
					int tempForEndVar = lngSize;
					for (int lngI = 1; (cFileThresholdSize < 0) ? lngI >= tempForEndVar : lngI <= tempForEndVar; lngI += cFileThresholdSize)
					{
						ProgressValue(Convert.ToDouble(lngI));
						//UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
						Piece = m_conn.Query("SELECT TOP 1 SUBSTRING(Document,?,?) FROM BacoDiscussions WHERE ID=?", new Exact.DataLayer.EdlObject[]{lngI, cFileThresholdSize, ID});
						int tempForEndVar2 = Piece.GetUpperBound(0);
						for (int lngJ = 0; lngJ <= tempForEndVar2; lngJ++)
						{
							if (lngI - 1 + lngJ <= m_AttachedDocument.GetUpperBound(0))
							{
								m_AttachedDocument[lngI - 1 + lngJ] = ((byte[]) Piece.Data)[lngJ];
							}
							else
							{
								break;
							}
						}
					}
					ProgressTerm();
				}
				else
				{

					vResult = m_conn.Query("SELECT Document, Body, FileName FROM BacoDiscussions WHERE ID = ?", ID, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

					if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult))
					{
						m_AttachedDocument = (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult[0])) ? (UnicodeEncoding.Unicode.GetBytes("")) : ((byte[]) vResult[0]);
						m_DocumentBody = (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult[1])) ? (UnicodeEncoding.Unicode.GetBytes("")) : ((byte[]) vResult[1]);
						m_FileName = (string) vResult[2];
					}
					else
					{
						//UPGRADE_WARNING: (1059) Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetBytes() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
						m_AttachedDocument = UnicodeEncoding.Unicode.GetBytes("");
						//UPGRADE_WARNING: (1059) Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetBytes() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
						m_DocumentBody = UnicodeEncoding.Unicode.GetBytes("");
						m_FileName = "";
					}
				}
			}
			catch (System.Exception catchedException)
			{
				Exact.Exceptions.Globe.BaseGlobeException excep = Exact.Exceptions.Utils.ExceptionBuilder.Build(catchedException);

				//PBI 112801: Applocale Set application title
				m_App.Message(this.Handle, m_Term.String(8335, "Unknown error") + ": (" + ") - " + excep.Message, m_oTitle.GetTitle(this));
				ProgressTerm();
			}
		}

		//-- Progress indication procedures
		private void ProgressInit(double Max, string sMessage)
		{
			StatusBar.Progress = sMessage;
			StatusBar.Max = Convert.ToInt32(Max);
			StatusBar.Value = 0;
		}

		private void ProgressValue(double dValue)
		{
			StatusBar.Value = Convert.ToInt32(dValue);
			System.Windows.Forms.Application.DoEvents();
		}

		private void ProgressTerm()
		{
			StatusBar.Value = 0;
			StatusBar.Progress = "";
		}

		public void StartProcess()
		{
			m_busy = true;
			EnableButtons(false);
			brwDocuments.Enabled = false;
			System.Windows.Forms.Application.DoEvents();
		}

		public void EndProcess()
		{
			m_busy = false;
			EnableButtons(true);
			brwDocuments.Enabled = true;
			System.Windows.Forms.Application.DoEvents();
		}

		private void EnableButtons(bool bEnabled)
		{
			//>>BR: 14.556.042-Locking error during adding attachment
			ActionBar[(int) aBarButtons.CMD_NEW].Enabled = bEnabled && !ReadOnly && bAllowAddNew && bEnableButtons;
			ActionBar[(int) aBarButtons.CMD_EDIT].Enabled = bEnabled && brwDocuments.CurrentRow > 0 && bEnableButtons;

			ActionBar[(int) aBarButtons.CMD_DOWNLOAD].Enabled = bEnabled && brwDocuments.CurrentRow > 0;
			ActionBar[(int) aBarButtons.CMD_OPEN].Enabled = bEnabled && brwDocuments.CurrentRow > 0;
			ActionBar[(int) aBarButtons.CMD_NOTE].Enabled = bEnabled && brwDocuments.CurrentRow > 0 && bEnableButtons;
			ActionBar[(int) aBarButtons.CMD_CLOSE].Enabled = bEnabled;
			if (ReadOnly)
			{
				ActionBar[(int) aBarButtons.CMD_EDIT].SetCaptionTermID(8549, "Display", false);
			}
			else
			{
				ActionBar[(int) aBarButtons.CMD_EDIT].SetCaptionTermID(25319, "Edit", false);
			}

			//Chan31941, [06-Sep-2006] [20.078.294]
			ActionBar[(int) aBarButtons.CMD_EXISTING].Enabled = bAllowAddNew && !ReadOnly && bAllowAddExisting && bEnableButtons;

			//Start CBR 80.967.458
			if (m_Comp.GetOpt(GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Options.OPT_CENTRAL_MASTER_DATA))
			{
				LoadObjCMDMToolsGeneral();
				if (m_bUseCentralData)
				{
					ActionBar[(int) aBarButtons.CMD_NEW].Enabled = true;
				}
			}
			//End CBR 80.967.458

		}

		//Chan31941, [06-Sep-2006] [20.078.294]
		//Check if record is locked. If true, then disable <New>,<Edit> and <Add existing> buttons
		private bool IsRecordLocked()
		{
			bool result = false;
			if (IsOrkrgLocked())
			{
				//Display message
				//PBI 112801: Applocale Set application title
				m_App.Message(this.Handle, m_Term.String(18839, "Data in use"), m_oTitle.GetTitle(this));
				bEnableButtons = false;
				EnableButtons(true);
				result = true;
			}
			return result;
		}

		//>>BR: 14.556.042-Locking error during adding attachment
		private bool IsOrkrgLocked()
		{
			bool result = false;
			Exact.DataLayer.EdlObject vRes = null;
			string sSQL = "";

			try
			{

				result = false;

				sSQL = "SELECT ID FROM orkrg WITH (NOLOCK) WHERE ordernr = ?";

				vRes = m_conn.Query(sSQL, OrderNumber, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
				//BR 21.862.123 [27-06-2007]: add in additional condition to check OrderNumber,
				//               if it is empty, then no need check for locking since is new record
				if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vRes) && !Exact.SystemLayer.Common.ConvertHelper.IsEmpty(OrderNumber))
				{
					//Chan31941, 07-Jun-2005 [FC 15.246.455]
					m_EdlRef.Find1(vRes);
					m_conn.Commit();
					result = false;
				}
			}
			catch
			{

				//Chan31941, [11-Sep-2006] [20.107.535]
				m_conn.Commit();

				//Chan31941, 07-Jun-2005 [FC 15.246.455]
				result = true;
			}

			return result;
		}

		//UPGRADE-WARNING: Parameter bSilent was changed from byref to byval.
		private bool IsRunning(bool bSilent = false)
		{
			if (!bSilent)
			{
				if (m_busy)
				{
					//PBI 112801: Applocale Set application title
					m_App.Message(this.Handle, m_Term.String(10333, "Can't close"), m_oTitle.GetTitle(this));
				}
			}
			return m_busy;
		}

		private void RefreshBrowser()
		{
			Exact.DataLayer.EdlObject vIsCreditor = null;
			Exact.DataLayer.EdlObject vDocID = null;
			Exact.DataLayer.EdlObject vResult = null;

			this.Cursor = Cursors.WaitCursor;

			// --- Set browser props
			//Chan31941, 05-Jan-2005 [13.521.061]-do not display error.
			//.DisplayErrors = True
			brwDocuments.ResetColInfo();
			brwDocuments.ColInfo = GetColumnInfo();
			brwDocuments.CheckmarkCols = "Input,Output,Notes";
			brwDocuments.InvisibleCols = "HID,BacoDiscussions.ID";
			brwDocuments.Tables = "BacoDiscussions,BacoDiscussionFixedTypes";
			brwDocuments.SelectColumnsMode = 1;
			brwDocuments.StorageKey = "CRMDocumentBrowser";
			// -- Build Select statement
			string sSQL = "SELECT [SELECT] FROM [FROM] [ORDER BY]";
			sSQL = StringsHelper.Replace(sSQL, "[SELECT]", GetSelectCol(), 1, -1, CompareMethod.Binary);
			sSQL = StringsHelper.Replace(sSQL, "[ORDER BY]", " ORDER BY BacoDiscussions.HID DESC", 1, -1, CompareMethod.Binary);

			string sWhere = "";
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(Account))
			{
				sWhere = "BacoDiscussions.cmpwwn=" + m_conn.Literal(Account);
			}
			//08.910.344: Turn this filter option off
			//BR 09.371.219: RTE on search for related trough document
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(Resource) && (((Resource) is null) ? 0 : Convert.ToString(Resource).Length) > 0)
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				sWhere = sWhere + "BacoDiscussions.HumresID=" + m_conn.Literal(Resource);
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(OrderNumber) && (((OrderNumber) is null) ? 0 : Convert.ToString(OrderNumber).Length) > 0)
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				sWhere = sWhere + "BacoDiscussions.OrderNumber=" + m_conn.Literal(OrderNumber);
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(OurRef) && (((OurRef) is null) ? 0 : Convert.ToString(OurRef).Length) > 0)
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				sWhere = sWhere + "BacoDiscussions.OurRef=" + m_conn.Literal(OurRef);
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(YourRef))
			{ //BR 15.445.947 - kohw108768 - 22 June 2005 - need to use this searching criteria when users do not fill in anything in field Your Ref

				//br34.058.775(simc178002)[29/03/2010] validation need to cater for GIU. GIU used docnumber to group lines together.
				//Pass in docnumber to YourRef in BacoDiscussions line
				if (GetFromGIU(YourRef, OurRef))
				{
					if (!System.String.IsNullOrWhiteSpace(sWhere))
					{
						sWhere = sWhere + " OR ";
					}
					if (System.String.IsNullOrWhiteSpace(YourRef))
					{
						sWhere = sWhere + "BacoDiscussions.YourRef IS NULL";
					}
					else
					{
						sWhere = sWhere + "BacoDiscussions.YourRef=" + m_conn.Literal(YourRef);
					}
				}
				else
				{
					//Original
					if (!System.String.IsNullOrWhiteSpace(sWhere))
					{
						sWhere = sWhere + " AND ";
					}
					if (System.String.IsNullOrWhiteSpace(YourRef))
					{
						sWhere = sWhere + "BacoDiscussions.YourRef IS NULL";
					}
					else
					{
						sWhere = sWhere + "BacoDiscussions.YourRef=" + m_conn.Literal(YourRef);
					}
				}

				//'        If sWhere <> "" Then sWhere = sWhere & " AND "
				//'        If YourRef = "" Then
				//'            sWhere = sWhere & "BacoDiscussions.YourRef IS NULL"
				//'        Else
				//'            sWhere = sWhere & "BacoDiscussions.YourRef=" & m_conn.Literal(YourRef)
				//'        End If
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(ProjectNumber) && (((ProjectNumber) is null) ? 0 : Convert.ToString(ProjectNumber).Length) > 0)
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				sWhere = sWhere + "BacoDiscussions.ProjectNr=" + m_conn.Literal(ProjectNumber);
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(Item) && (((Item) is null) ? 0 : Convert.ToString(Item).Length) > 0)
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				sWhere = sWhere + "BacoDiscussions.ItemCode=" + m_conn.Literal(Item);
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(PaymentReference) && (((PaymentReference) is null) ? 0 : Convert.ToString(PaymentReference).Length) > 0)
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				sWhere = sWhere + "BacoDiscussions.PaymentReference LIKE " + m_conn.Literal(PaymentReference);
			}
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(ItemSerialNumber) && (((ItemSerialNumber) is null) ? 0 : Convert.ToString(ItemSerialNumber).Length) > 0)
			{
				vResult = m_conn.Query("SELECT TOP 1 ID FROM ItemNumbers WHERE Number=?", new Exact.DataLayer.EdlObject(ItemSerialNumber), Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
				if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult))
				{
					if (!System.String.IsNullOrWhiteSpace(sWhere))
					{
						sWhere = sWhere + " AND ";
					}
					sWhere = sWhere + "BacoDiscussions.ItemNumberID=" + m_conn.Literal(vResult.Data);
				}
			}

			bool bMatchedFields = true;
			if (System.String.IsNullOrWhiteSpace(sWhere))
			{
				bMatchedFields = false;
			}

			if (Globals.TestArray(m_astrFilterDocType))
			{
				if (!System.String.IsNullOrWhiteSpace(sWhere))
				{
					sWhere = sWhere + " AND ";
				}
				//BR48.097.773 - For Item card -> Attachment, the document type filtering should check again the output of each transaction only
				if (TableSourceInvoice == "I")
				{
					sWhere = sWhere + "((BacoDiscussions.Type IN (" + String.Join(",", m_astrFilterDocType) + ") AND Source = 'S') OR Source <> 'S')";
				}
				else
				{
					sWhere = sWhere + "BacoDiscussions.Type IN (" + String.Join(",", m_astrFilterDocType) + ")";
				}
			}

			//Not allow add existing if no matched fields
			bAllowAddExisting = false;
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultOrderNumber) && (((DefaultOrderNumber) is null) ? 0 : Convert.ToString(DefaultOrderNumber).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultOurRef) && (((DefaultOurRef) is null) ? 0 : Convert.ToString(DefaultOurRef).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultYourRef) && (((DefaultYourRef) is null) ? 0 : Convert.ToString(DefaultYourRef).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultResource) && (((DefaultResource) is null) ? 0 : Convert.ToString(DefaultResource).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultProjectNumber) && (((DefaultProjectNumber) is null) ? 0 : Convert.ToString(DefaultProjectNumber).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultItem) && (((DefaultItem) is null) ? 0 : Convert.ToString(DefaultItem).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultItemSerialNumber) && (((DefaultItemSerialNumber) is null) ? 0 : Convert.ToString(DefaultItemSerialNumber).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultPaymentReference) && (((DefaultPaymentReference) is null) ? 0 : Convert.ToString(DefaultPaymentReference).Length) > 0);
			bAllowAddExisting = bAllowAddExisting || (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(DefaultEntryKey) && (((DefaultEntryKey) is null) ? 0 : Convert.ToString(DefaultEntryKey).Length) > 0);

			//BR 09.233.667: Use AttachmentID if no matched fields or account
			string sSql2 = "";
			string sCondition = "";
			if (!bMatchedFields)
			{
				bAllowAddNew = false;

				//UPGRADE_WARNING: (1049) Use of Null/IsNull() detected. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1049
				if (!Exact.SystemLayer.Common.ConvertHelper.IsNull((Exact.SystemLayer.Common.ConvertHelper.IsEmpty(AttachmentId)) ? DBNull.Value : AttachmentId))
				{
					sWhere = "ID=" + m_conn.Literal(AttachmentId);
				}
				else
				{
					throw new Exact.Exceptions.Globe.ApplicationException2(m_Term.String(20006, "Invalid") + ": " + m_Term.String(26031, "Parameters"));
				}
			}
			else
			{
				bAllowAddNew = true;

				//UPGRADE_WARNING: (1049) Use of Null/IsNull() detected. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1049
				if (!Exact.SystemLayer.Common.ConvertHelper.IsNull((Exact.SystemLayer.Common.ConvertHelper.IsEmpty(AttachmentId)) ? DBNull.Value : AttachmentId))
				{
					//[limh109866][29 JUN 2006]br18.971.461
					if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(Account))
					{
						if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(OrderNumber) && (((OrderNumber) is null) ? 0 : Convert.ToString(OrderNumber).Length) > 0)
						{ //br30.701.256 chon32144 03/06/2009
							sWhere = sWhere + " OR (BacoDiscussions.ID=" + m_conn.Literal(AttachmentId) + " AND BacoDiscussions.OrderNumber IS NOT NULL) ";
						}
						else
						{
							sWhere = sWhere + " OR BacoDiscussions.ID=" + m_conn.Literal(AttachmentId);
						}
					}
					else
					{

						//BR 22.857.239 - Tighten the filter WHERE clause, if not unrelated documents will be shown
						//UPGRADE_WARNING: (1068) Account of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
						vIsCreditor = m_conn.Query("SELECT cicmpy.crdnr, cicmpy.debnr FROM cicmpy WHERE cicmpy.cmp_wwn ='" + Convert.ToString(Account) + "'", null, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
						if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vIsCreditor[0]))
						{
							sWhere = sWhere + " OR BacoDiscussions.ID=" + m_conn.Literal(AttachmentId);
						}
						else
						{
							//DEBTOR for Delivery Notes, Confirmation Letters etc
							//BR 22.857.239 - Tighten the filter WHERE clause: Added gbkmut.debnr AND gbkmut.bkstnr_sub
							//br 25.116.900 - edited the query to put m_Conn.litstring for docnumber to avoid rte becoz of extra" ' "
							//BR 39.599.717 - Wrong attachment shown due to same your ref & debnr. Added oorsprong 'A' since following logic only applicable to Delivery Notes, Confirmation
							//                Exclude all entries created from Financial module.
							if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(OrderNumber))
							{
								sSql2 = "SELECT TOP 1 gbkmut.DocAttachmentID FROM gbkmut WHERE gbkmut.oorsprong NOT IN ('F','R','A') AND gbkmut.docnumber =" + m_conn.LitString(DefaultYourRef) + " AND gbkmut.DocAttachmentID <>" + m_conn.Literal(AttachmentId) + " AND gbkmut.debnr=? AND gbkmut.bkstnr_sub=?";
								//UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
								vDocID = m_conn.Query(sSql2, new Exact.DataLayer.EdlObject[]{vIsCreditor[1], OrderNumber}, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
							}
							else
							{
								sSql2 = "SELECT TOP 1 gbkmut.DocAttachmentID FROM gbkmut WHERE gbkmut.oorsprong NOT IN ('X','F','R','A') AND gbkmut.docnumber = " + m_conn.LitString(DefaultYourRef) + " AND gbkmut.DocAttachmentID <>" + m_conn.Literal(AttachmentId) + " AND gbkmut.debnr=? ";
								vDocID = m_conn.Query(sSql2, vIsCreditor[1], Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
							}

							if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vDocID))
							{
								sWhere = sWhere + " OR BacoDiscussions.ID=" + m_conn.Literal(AttachmentId);
							}
							else
							{
								//leey267218 CBR78.722.349 - Attached documents to invoice: Not all show up in the screen
								//CBR48.811.229 - Wrong delivery note is attached to the sales invoice
								sCondition = " OR BacoDiscussions.ID= (CASE BacoDiscussionFixedTypes.TypeID WHEN 12 THEN " + Environment.NewLine + 
								             "(SELECT TOP 1 orhk.DocAttachmentID FROM orhkrg orhk" + Environment.NewLine + 
								             " INNER JOIN frhkrg frhk on frhk.pakbon_nr = orhk.pakbon_nr WHERE frhk.faknr = " + m_conn.Literal(OurRef) + ")" + Environment.NewLine + 
								             " ELSE '" + ((string) vDocID) + "'" + Environment.NewLine + 
								             " END)";

								sWhere = sWhere + " OR BacoDiscussions.ID=" + m_conn.Literal(AttachmentId) + sCondition;
								//CBR48.811.229 - old code replace by above
								//sWhere = sWhere & " OR BacoDiscussions.ID=" & m_conn.Literal(AttachmentId) & " OR BacoDiscussions.ID='" & vDocID & "'"



							}
						}
					}
				}
			}

			//chan221476 (10-02-2009) [BR29.584.764] - Variable is not empty when pass in from invoice/invoice history so as to show attachment link in case group invoice
			string sGroupOrder = "";
			if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(TableSourceInvoice) && (((TableSourceInvoice) is null) ? 0 : Convert.ToString(TableSourceInvoice).Length) > 0)
			{
				//BR47.303.798 - Performance tuning : seperate group order from sub query (40% improvement)
				//If LCase(Trim(TableSourceInvoice)) = "frkrg" Then
				//    sWhere = sWhere & " OR (BacoDiscussions.OrderNumber IN ("
				//    sWhere = sWhere & " SELECT fsg.ordernr FROM frsrg fsg INNER JOIN frkrg fkg ON fkg.fakt_code=fsg.fakt_code AND fkg.volgnr5=fsg.volgnr5"
				//    sWhere = sWhere & " WHERE fkg.ordernr=" & m_conn.Literal(OrderNumber)
				//    sWhere = sWhere & " GROUP BY fsg.ordernr"
				//    sWhere = sWhere & " ) AND BacoDiscussions.OrderNumber<>" & m_conn.Literal(OrderNumber) & ")"
				//ElseIf LCase(Trim(TableSourceInvoice)) = "frhkrg" Then
				//    sWhere = sWhere & " OR (BacoDiscussions.OrderNumber IN ("
				//    sWhere = sWhere & " SELECT fsg.ordernr FROM frhsrg fsg INNER JOIN frhkrg fkg ON fkg.faknr=fsg.faknr AND fkg.dagbknr=fsg.dagbknr"
				//    sWhere = sWhere & " WHERE fkg.ordernr=" & m_conn.Literal(OrderNumber)
				//    sWhere = sWhere & " GROUP BY fsg.ordernr"
				//    sWhere = sWhere & " ) AND BacoDiscussions.OrderNumber<>" & m_conn.Literal(OrderNumber) & ")"
				//End If

				if (GetGroupInvoiceOrderNo(TableSourceInvoice, OrderNumber, ref sGroupOrder))
				{
					sWhere = sWhere + " OR (BacoDiscussions.OrderNumber IN (" + sGroupOrder + ")) ";
				}

			}
			//[limh109866][FC21.820.527]16 MAR 2007
			//BR 28.356.242 - Read Setting
			if (m_bUseTaxExemptedCert && !System.String.IsNullOrWhiteSpace(StateCode) && !System.String.IsNullOrWhiteSpace(CountryCode))
			{
				sWhere = sWhere + " AND (TaxExemptStateCertificates.Account = " + m_conn.Literal(Account) + 
				         " AND TaxExemptStateCertificates.StateCode = '" + StateCode + "'" + 
				         " AND TaxExemptStateCertificates.CountryCode = '" + CountryCode + "')";
			}

			string sFrom = StringsHelper.Replace(GetFrom(), "[WHERE]", sWhere, 1, -1, CompareMethod.Binary);
			sSQL = StringsHelper.Replace(sSQL, "[FROM]", sFrom, 1, -1, CompareMethod.Binary);

			brwDocuments.SQL = sSQL;
			brwDocuments.Refresh();

			//''    '-- Construct Query and refresh browser
			//''    Select Case GetClause()
			//''        Case eAll
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=? AND BacoDiscussions.OurRef=? AND BacoDiscussions.YourRef=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber,BacoDiscussions.OurRef,BacoDiscussions.YourRef,BacoDiscussions.cmpwwn"
			//''                .Refresh OrderNumber, OurRef, YourRef, Account
			//''            End With
			//''
			//''        Case eProject
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.ProjectNr=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.ProjectNr"
			//''                .Refresh ProjectNumber
			//''            End With
			//''
			//''        Case eResource
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.HumresID=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.HumresID"
			//''                .Refresh Resource
			//''            End With
			//''
			//''        Case eItem
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.ItemCode=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.ItemCode"
			//''                .Refresh Item
			//''            End With
			//''
			//''        Case eOrderNumberAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber,BacoDiscussions.cmpwwn"
			//''                .Refresh OrderNumber, Account
			//''            End With
			//''
			//''        Case eOrderNumberYourRefAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=? AND BacoDiscussions.YourRef=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber, BacoDiscussions.YourRef, BacoDiscussions.cmpwwn"
			//''                .Refresh OrderNumber, YourRef, Account
			//''            End With
			//''
			//''        Case eOrderNumberOurRefAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=? AND BacoDiscussions.OurRef=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber, BacoDiscussions.OurRef,BacoDiscussions.cmpwwn"
			//''                .Refresh OrderNumber, OurRef, Account
			//''            End With
			//''
			//''        Case eOurRefYourRefAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OurRef=? AND BacoDiscussions.YourRef=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.YourRef, BacoDiscussions.OurRef,BacoDiscussions.cmpwwn"
			//''                .Refresh YourRef, OurRef, Account
			//''            End With
			//''
			//''        Case eOurRefAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OurRef=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OurRef,BacoDiscussions.cmpwwn"
			//''                .Refresh OurRef, Account
			//''            End With
			//''
			//''        Case eYourRefAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.YourRef=? AND BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.YourRef,BacoDiscussions.cmpwwn"
			//''                .Refresh YourRef, Account
			//''            End With
			//''
			//''        Case eAccount
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.cmpwwn=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.cmpwwn"
			//''                .Refresh Account
			//''            End With
			//''
			//''        Case eOrderNumber
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber"
			//''                .Refresh OrderNumber
			//''            End With
			//''
			//''        Case eOrderNumberYourRef
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=? AND BacoDiscussions.YourRef=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber, BacoDiscussions.YourRef"
			//''                .Refresh OrderNumber, YourRef
			//''            End With
			//''
			//''        Case eOrderNumberOurRef
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OrderNumber=? AND BacoDiscussions.OurRef=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OrderNumber, BacoDiscussions.OurRef"
			//''                .Refresh OrderNumber, OurRef
			//''            End With
			//''
			//''        Case eOurRefYourRef
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OurRef=? AND BacoDiscussions.YourRef=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.YourRef, BacoDiscussions.OurRef"
			//''                .Refresh YourRef, OurRef
			//''            End With
			//''
			//''        Case eOurRef
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.OurRef=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.OurRef"
			//''                .Refresh OurRef
			//''            End With
			//''
			//''        Case eYourRef
			//''            sFrom = Replace(GetFrom(), "[WHERE]", "BacoDiscussions.YourRef=?")
			//''            sSQL = Replace(sSQL, "[FROM]", sFrom)
			//''
			//''            With brwDocuments
			//''                .Sql = sSQL
			//''                .Params = "BacoDiscussions.YourRef"
			//''                .Refresh YourRef
			//''            End With
			//''
			//''        Case eNone
			//''            '-- No clue what to do
			//''            Err.Raise vbObjectError + 2, App.EXEName, m_Term.String(20006, "Invalid") & ": " & m_Term.String(26031, "Parameters")
			//''    End Select

			//-- Do we have results?
			if (bLoaded && brwDocuments.NumRows > 0)
			{
				brwDocuments.SelectRow(1, true);
				brwDocuments.CurrentRow = 1;
				//>>BR: 14.556.042-Locking error during adding attachment
				ActionBar[(int) aBarButtons.CMD_EDIT].Enabled = true && bEnableButtons;
				ActionBar[(int) aBarButtons.CMD_OPEN].Enabled = true;
				ActionBar[(int) aBarButtons.CMD_NOTE].Enabled = true && bEnableButtons;
				ActionBar[(int) aBarButtons.CMD_DOWNLOAD].Enabled = true;
				if (brwDocuments.NumRows == 1)
				{
					if (bShouldReturnID)
					{
						//UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
						NewDocumentID = Convert.ToString(brwDocuments.get_value("BacoDiscussions.ID"));
					}
				}
			}
			else
			{
				ActionBar[(int) aBarButtons.CMD_EDIT].Enabled = false;
				ActionBar[(int) aBarButtons.CMD_OPEN].Enabled = false;
				ActionBar[(int) aBarButtons.CMD_NOTE].Enabled = false;
				ActionBar[(int) aBarButtons.CMD_DOWNLOAD].Enabled = false;
				//UPGRADE_WARNING: (1049) Use of Null/IsNull() detected. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1049
				if (Exact.SystemLayer.Common.ConvertHelper.IsNull((Exact.SystemLayer.Common.ConvertHelper.IsEmpty(AttachmentId)) ? DBNull.Value : AttachmentId))
				{
					bShouldReturnID = ReturnIDWhenEmpty;
				}
			}
			
			ActionBar[(int) aBarButtons.CMD_NEW].Enabled = !ReadOnly;

			//BR 09.233.667: Not allow add new if no account or matched fields pass in
			//>>BR: 14.556.042-Locking error during adding attachment
			ActionBar[(int) aBarButtons.CMD_NEW].Enabled = bAllowAddNew && !ReadOnly && bEnableButtons;
			ActionBar[(int) aBarButtons.CMD_EXISTING].Enabled = bAllowAddNew && !ReadOnly && bAllowAddExisting && bEnableButtons;

			this.Cursor = Cursors.Default;

			//Start CBR 80.967.458
			if (m_Comp.GetOpt(GlobalInterfaces.GI_Exact.Crm.DocumentBrowser.Options.OPT_CENTRAL_MASTER_DATA))
			{
				LoadObjCMDMToolsGeneral();
				if (m_bUseCentralData)
				{
					ActionBar[(int) aBarButtons.CMD_NEW].Enabled = true;
				}
			}
			//End CBR 80.967.458

		}
		//br34.058.775(simc178002)[29/03/2010]to check if faktuurnr and docnumber pass in are Group Intenal Use (GIU)
		private bool GetFromGIU(string sYourRef, string sOurRef)
		{
			Exact.DataLayer.EdlObject v = null;

			if (!System.String.IsNullOrWhiteSpace(sYourRef) && !System.String.IsNullOrWhiteSpace(sOurRef))
			{
				//UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
				v = m_conn.Query("SELECT ID FROM gbkmut WHERE faktuurnr=? AND docnumber=? AND transtype='B' AND transsubtype='B' AND freefield1='I'", new Exact.DataLayer.EdlObject[]{sOurRef, sYourRef}, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

				if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(v))
				{
					return false;
				}
				else
				{
					return true;
				}
			}
			else
			{
				return false;
			}

		}

		private void DisplayNotes()
		{
			//'tanj42445 - 20101125 - FC 37.043.210 - Trigger notification when update document
			Exact.SystemLayer.Interfaces.IConnectivity oESF = new Exact.Entity.Notification.Connectivity();
			m_App.ConnectObject(oESF, m_Comp, m_Term);
			//'End FC 36.946.408

			//UPGRADE_WARNING: (7008) The ProgId could not be found on computer where this application was migrated More Information: https://www.mobilize.net/vbtonet/ewis/ewi7008
			Exact.SystemLayer.Interfaces.IExtensionDlg eDlg = (Exact.SystemLayer.Interfaces.IExtensionDlg) new Exact.Win.UI.FipExtNote();
			m_App.ConnectObject(eDlg, m_Comp, m_Term);
			eDlg.Title = m_Term.String(19582, "Notes");

			Exact.DataLayer.EdlObject vntValue = m_conn.Query("SELECT Note FROM BacoDiscussions WHERE ID=?", new Exact.DataLayer.EdlObject(brwDocuments.get_value("ID")), Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
			object vntValueOld = vntValue.Data;
			if (ReadOnly)
			{
				object tempRefParam = vntValue.Data;
				eDlg.Show(this.Handle, 1, ref tempRefParam);
				vntValue = new Exact.DataLayer.EdlObject(tempRefParam);
			}
			else
			{
				object tempRefParam2 = vntValue.Data;
				eDlg.Show(this.Handle, 0, ref tempRefParam2);
				vntValue = new Exact.DataLayer.EdlObject(tempRefParam2);
				if (vntValueOld != vntValue)
                {
                    //UPGRADE_TODO: (1069) Error handling statement (On Error Resume Next) was converted to a pattern that might have a different behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1069
                    
                    //UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
						m_conn.Exec("UPDATE BacoDiscussions SET Note=?,ModifiedDate=?,ModifiedBy=? WHERE ID=?", new Exact.DataLayer.EdlObject[]{vntValue, DateTime.Now, m_Comp.User.ID, new Exact.DataLayer.EdlObject(brwDocuments.get_value("ID"))});
                    //UPGRADE_WARNING: (1068) brwDocuments.Value() of type Variant is being forced to string. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
						oESF.NotifyProcessWithBCEdit("BDDocument", "ID", Convert.ToString(brwDocuments.get_value("ID")), Exact.SystemLayer.Interfaces.NotifyAction.naUpdate); //'tanj42445 - 20101125 - FC 37.043.210
                    m_conn.Commit();
                  
                }
				brwDocuments.Refresh(); //DBR : 80.088.676
			} //'tanj42445 - 20101125 - FC 37.043.210
		}

		private object DeleteTempFile()
		{
			

			if ((((m_TempFile) is null) ? 0 : Convert.ToString(m_TempFile).Length) > 0)
			{
				try
				{
					//UPGRADE_WARNING: (2081) DeleteFile has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
					File.Delete(m_TempFile);
				}
				catch
				{
				}
			}
			return null;
		}

		private void InitObserver()
		{
			//-- Set up observer
			if (m_Factory is null)
			{
                m_Factory = Exact.SystemLayer.SubjectRx.SubjectFactory.Instance;
				m_Observer = (Exact.SystemLayer.Interfaces.IObserver) brwDocuments;
				m_Subject = (Exact.SystemLayer.SubjectRx.Subject) m_Factory.CreateDatabaseSubject(m_Comp.ServerName, m_Comp.DatabaseName, "BacoDiscussions");
				m_Subject.Attach(m_Observer);
			}
		}

		private void TerminateObserver()
		{
			//-- Detach observer
			m_Subject.Detach(m_Observer);
			(m_Observer as IDisposable)?.Dispose();
			m_Observer = null;
			(m_Subject as IDisposable)?.Dispose();
			m_Subject = null;
			m_Factory = null;
		}

		//Chan31941, 12-Oct-04 [12.654.658]
		//method which prepares standard e-Synergy document to be shown including standard inserted pictures
		////modified from method DownloadInsertedImages (MDocuments.dll)
		private void DownloadInsertedImages()
		{

			int intFileHandle = 0;
			int lngStartPosition = 0;
			int lngGUIDPosition = 0;
			int lngEndPosition = 0;
			string vTempFileName = "";
			string vGUID = "";
			Exact.DataLayer.EdlObject vFilename = null;
			Exact.DataLayer.EdlObject vImage = null;
			bool bImage = false;
			Object clsFileSystem = null;
			byte[] aByte = null;

			try
			{

				//check if any images
				//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
				lngStartPosition = (StringsHelper.ByteArrayToString(m_DocumentBody).IndexOf("BacoDiscussionsBlob.asp?") + 1);

				//start getting images (if found any)
				while (lngStartPosition > 0)
				{

					//find GUID position
					//UPGRADE_WARNING: (2065) Long method Strings.InStr has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2065
					//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
					lngGUIDPosition = StringsHelper.ByteArrayToString(m_DocumentBody).IndexOf("{");

					//if ok then find end position
					if (lngGUIDPosition > 0)
					{

						lngGUIDPosition++;
						//UPGRADE_WARNING: (2065) Long method Strings.InStr has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2065
						//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
						lngEndPosition = StringsHelper.ByteArrayToString(m_DocumentBody).IndexOf("}");

						//if ok then continue with action
						if (lngEndPosition > 0)
						{

							//extract GUID first
							//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
							vGUID = StringsHelper.ByteArrayToString(m_DocumentBody).Substring(lngGUIDPosition - 1, Math.Min(lngEndPosition - lngGUIDPosition, StringsHelper.ByteArrayToString(m_DocumentBody).Length - (lngGUIDPosition - 1)));

							//get picture from database
							vImage = m_conn.Query("SELECT Picture FROM BacoDiscussionPictures WHERE ID = ?", vGUID, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

							//get image type from database
							vFilename = m_conn.Query("SELECT Filename FROM BacoDiscussionPictures WHERE ID = ?", vGUID, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);

							bImage = true;
							if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vImage) || Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vFilename))
							{
								bImage = false;
							}

							if (bImage)
							{
								//generate tempfile name
								clsFileSystem = new Object();
								vTempFileName = Path.GetFileNameWithoutExtension(Path.GetFileName(Path.GetTempFileName())) + "." + Path.GetExtension((string) vFilename).Substring(1);
								vTempFileName = (new DirectoryInfo(Path.GetTempPath())).FullName + "\\" + vTempFileName;

								//save image to temporary file
								aByte = (byte[]) ArraysHelper.DeepCopy(vImage);
								intFileHandle = FileSystem.FreeFile();
								FileSystem.FileOpen(intFileHandle, vTempFileName, OpenMode.Binary, OpenAccess.Default, OpenShare.Default, -1);
								//UPGRADE_WARNING: (2080) Put was upgraded to FilePutObject and has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2080
								FileSystem.FilePutObject(intFileHandle, aByte, 0);
								FileSystem.FileClose(intFileHandle);

								//replace hyperlink in original document
								//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
								//UPGRADE_WARNING: (1059) Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetBytes() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
								m_DocumentBody = UnicodeEncoding.Unicode.GetBytes(StringsHelper.Replace(StringsHelper.ByteArrayToString(m_DocumentBody), StringsHelper.ByteArrayToString(m_DocumentBody).Substring(lngStartPosition - 1, Math.Min(lngEndPosition - lngStartPosition + 1, StringsHelper.ByteArrayToString(m_DocumentBody).Length - (lngStartPosition - 1))), "\"" + vTempFileName + "\"", 1, -1, CompareMethod.Binary));

								//go for next image
								//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
								lngStartPosition = (StringsHelper.ByteArrayToString(m_DocumentBody).IndexOf("BacoDiscussionsBlob.asp?") + 1);
							}
							else
							{
								//UPGRADE_WARNING: (2065) Long method Strings.InStr has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2065
								//UPGRADE_WARNING: (1059) Code was upgraded to use UpgradeHelpers.Helpers.StringsHelper.ByteArrayToString() which may not have the same behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1059
								lngStartPosition = StringsHelper.ByteArrayToString(m_DocumentBody).IndexOf("BacoDiscussionsBlob.asp?");
							}
						}
						else
						{
							lngStartPosition = 0;
						}
					}
					else
					{
						lngStartPosition = 0;
					}
				}
			}
			catch (System.Exception catchedException)
			{
				Exact.Exceptions.Globe.BaseGlobeException excep = Exact.Exceptions.Utils.ExceptionBuilder.Build(catchedException);

				//PBI 112801: Applocale Set application title
				//UPGRADE_WARNING: (2081) Err.Number has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
				m_App.Message(this.Handle, m_Term.String(8335, "Unknown error") + ": (" + ") - " + excep.Message, m_oTitle.GetTitle(this));
			}

		}

		//Chan31941, [27-Jul-2006] [19.759.784]
		private bool IsDocumentExists()
		{

			bool result = false;
			Exact.DataLayer.EdlObject vResult = m_conn.Query("SELECT 1 FROM BacoDiscussions WHERE ID =?", new Exact.DataLayer.EdlObject(brwDocuments.get_value("BacoDiscussions.ID")), Exact.DataLayer.EdlQueryValueOptions.edlNoNulls);
			if (Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vResult))
			{
				result = true;
			}

			string sMessage = m_App.get_Term().String(11337, "Not found") + ": " + m_App.get_Term().String(7226, "Document") + Environment.NewLine + 
			                  m_App.get_Term().String(13449, "The data on screen has been deleted by another user.");

			//Display message
			if (result)
			{
				//PBI 112801: Applocale Set application title
				m_App.Message(this.Handle, sMessage, m_oTitle.GetTitle(this));
				brwDocuments.Refresh();
			}

			return result;
		}

		private void ReadSettings()
		{

			iSet = (Exact.SystemLayer.Interfaces.ISettings) m_App.DefaultCompany;
			//UPGRADE_WARNING: (1068) iSet.Setting() of type Variant is being forced to bool. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
			m_bUseTaxExemptedCert = Convert.ToBoolean(iSet.Setting("eaccount\\UseTaxExemptedCert,b", false));
			iSet = null;
		}

		//Start CBR 80.967.458
		private void LoadObjCMDMToolsGeneral()
		{
			if (m_oCMDMTools is null)
			{
				m_oCMDMTools = GlobalInterfaces.Factory.CreateInstance<GlobalInterfaces.GI_Exact.Cmdm.Tools.IclsGeneral>();

				m_App.ConnectObject(m_oCMDMTools, m_Comp, m_Term);
				m_oCMDMTools.Topic = gsCMDMTopicAccount;
			}
			m_bUseCentralData = m_oCMDMTools.UseCentralMasterData;
			m_oCMDMTools = null;
		}
		//End CBR 80.967.458

		//BR47.303.798 - Performance tuning : seperate group order from sub query (40% improvement)
		private bool GetGroupInvoiceOrderNo(string sTable, string sOrderNr, ref string sGroupOrder)
		{
			bool result = false;
			string sSQL = "";
			Exact.DataLayer.EdlObject vData = null;

			try
			{
				if (TableSourceInvoice.Trim().ToLower() == "frkrg")
				{
					sSQL = "SELECT DISTINCT fsg.ordernr FROM frsrg fsg INNER JOIN frkrg fkg ON fkg.fakt_code=fsg.fakt_code AND fkg.volgnr5=fsg.volgnr5" + Environment.NewLine;
					sSQL = sSQL + " WHERE fkg.ordernr= ? AND fsg.ordernr <> ? AND fsg.ordernr IS NOT NULL";

				}
				else if (TableSourceInvoice.Trim().ToLower() == "frhkrg")
				{ 
					sSQL = "SELECT DISTINCT fsg.ordernr FROM frhsrg fsg INNER JOIN frhkrg fkg ON fkg.faknr=fsg.faknr AND fkg.dagbknr=fsg.dagbknr" + Environment.NewLine;
					sSQL = sSQL + " WHERE fkg.ordernr= ? AND fsg.ordernr <> ? AND fsg.ordernr IS NOT NULL";
				}

				//UPGRADE_WARNING: (2081) Array has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2081
				vData = m_conn.Query(sSQL, new Exact.DataLayer.EdlObject[]{sOrderNr, sOrderNr}, Exact.DataLayer.EdlQueryValueOptions.edlNoNulls | Exact.DataLayer.EdlQueryValueOptions.edlForce2dim);

				if (!Exact.SystemLayer.Common.ConvertHelper.IsEmpty(vData))
				{
					int tempForEndVar = vData.GetUpperBound(0) + 1;
					for (int l = vData.GetLowerBound(0) + 1; l <= tempForEndVar; l++)
					{
						if ((((((string) vData[l - 1]).Trim()) is null) ? 0 : Convert.ToString(((string) vData[l - 1]).Trim()).Length) > 0)
						{
							if ((((sGroupOrder) is null) ? 0 : Convert.ToString(sGroupOrder).Length) > 0)
							{
								sGroupOrder = sGroupOrder + ",";
							}
							sGroupOrder = sGroupOrder + m_conn.LitString((string) vData[l - 1]);
						}
					}
				}

				if ((((sGroupOrder) is null) ? 0 : Convert.ToString(sGroupOrder).Trim().Length) > 0)
				{
					result = true;
				}
			}
			catch
			{

				result = false;
			}

			return result;
		}
	}
}