private void LinkBtn_BeforeBtnPressed(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
try
{
if (pVal.ColUID == "DocEntry")
{
int Index = oGrid.GetDataTableRowIndex(pVal.Row);
string Value = oGrid.DataTable.GetValue("TransType", Index);
SAPbouiCOM.EditTextColumn oColumns = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("DocEntry");
oColumns.LinkedObjectType = Value;
}
}
catch (SqlException e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
catch (COMException e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
catch (Exception e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
}
private void Generate()
{
try
{
this.CurrentForm.Freeze(true);
SBOApp.StatusBar.SetText("正在处理，请稍后...", SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
SAPbouiCOM.Grid grid_list = this.CurrentForm.Items.Item(GRID_LIST).Specific;
if (grid_list.Rows.Count > 0)
{
SAPbouiCOM.EditTextColumn col_voucher_code = (SAPbouiCOM.EditTextColumn)grid_list.Columns.Item("VoucherCode");
if (col_voucher_code.PickerType != SAPbouiCOM.BoPickerType.pt_Search)
{
throw new Exception("请在[凭单编码]列上绑定运算逻辑格式化搜索！");
}
for (int i = 0; i < grid_list.Rows.Count; i++)
{
grid_list.SetCellFocus(i, 2);
col_voucher_code.ClickPicker(i + 1);
SBOApp.StatusBar.SetText(string.Format("处理完成{0}/{1}！", i, grid_list.Rows.Count),
SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
}
SBOApp.StatusBar.SetText("处理完成！", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
catch (Exception ex) { throw ex; }
finally { this.CurrentForm.Freeze(false); }
}
private void OnCustomInitialize()
{
//conexion
oApp = (SAPbouiCOM.Application)Application.SBO_Application;
oCompany = (SAPbobsCOM.Company)oApp.Company.GetDICompany();
//combobox de paises
CleanComboBox(ComboBox2);
string SqlCad = "select code,name from ocry";
LoadComboQueryRecordset(SqlCad, ComboBox2, "code", "name", oCompany);
//Folder0.Item.Click();
//combobox de f_pagos
CleanComboBox(ComboBox0);
string SqlCad2 = "select GroupNum,PymntGroup from octg";
LoadComboQueryRecordset(SqlCad2, ComboBox0, "GroupNum", "PymntGroup", oCompany);
//combobox de pais de los bancos
CleanComboBox(ComboBox4);
string SqlCad5 = "select DISTINCT ocry.code,ocry.name from ocry inner join odsc on ocry.code=odsc.CountryCod ";
LoadComboQueryRecordset(SqlCad5, ComboBox4, "code", "name", oCompany);
oForm = oApp.Forms.Item("formpri");
// Muestra el formulario
oForm.Visible = true;
//para que funcionen las flechas y e refresh (databrowser)
oForm.DataBrowser.BrowseBy = "TxtCod";
//busca la grilla con el UID
oitem = oForm.Items.Item("grdpy");
oGrid = ((SAPbouiCOM.Grid)(oitem.Specific));
//crear el datasources y despues dentro de esto se ejecuta la query
oForm.DataSources.DataTables.Add("grPagdt");
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT distinct t0.PayMethCod AS Código,t0.Descript as Descripción,t0.Active as Activo from OPYM as t0 left join ocrd as t1 on t0.PayMethCod= t1.pymcode where t0.type='O' ");
oGrid.DataTable = oForm.DataSources.DataTables.Item("grPagdt");
//cheackbox en el campo activo
oGrid.Columns.Item("Activo").Type = SAPbouiCOM.BoGridColumnType.gct_CheckBox;
//para agregar el link buton a la grilla
oGrid.Columns.Item("Código").Type = SAPbouiCOM.BoGridColumnType.gct_EditText;
SAPbouiCOM.EditTextColumn oEdit = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("Código");
oEdit.LinkedObjectType = "147";
// oGrid.Rows.SelectedRows.Add(pVal.Row);
//string sMetodoPago = (string)oGrid.Columns.Item("Activo");
//int nRow = oGrid.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder);
//string sMetodoPago = (string)oGrid.DataTable.GetValue("Código", nRow);
RowNumberGrid(oGrid);
}
private void PopulateDocumentsGrid(SAPbouiCOM.Grid control)
{
control.SetGridHeaderIndex();
SAPbouiCOM.EditTextColumn gColumn = control.Columns.Item("ItemCode") as SAPbouiCOM.EditTextColumn;
gColumn.LinkedObjectType = "4";
gColumn = control.Columns.Item("WhsCode") as SAPbouiCOM.EditTextColumn;
gColumn.LinkedObjectType = "64";
}
private void AtualizarTiposColunas()
{
SAPbouiCOM.EditTextColumn oEditCol = ((SAPbouiCOM.EditTextColumn)(oGrid.Columns.Item("CardCode")));
oEditCol.LinkedObjectType = "2";
oEditCol = ((SAPbouiCOM.EditTextColumn)(oGrid.Columns.Item("DocNum")));
oEditCol.LinkedObjectType = "13";
oGrid.Columns.Item("DocStatus").Type = SAPbouiCOM.BoGridColumnType.gct_ComboBox;
SAPbouiCOM.ComboBoxColumn oComboBoxCol;
oComboBoxCol = ((SAPbouiCOM.ComboBoxColumn)(oGrid.Columns.Item("DocStatus")));
oComboBoxCol.ValidValues.Add("C", "Fechado");
oComboBoxCol.ValidValues.Add("O", "Aberto");
oComboBoxCol.DisplayType = SAPbouiCOM.BoComboDisplayType.cdt_Description;
}
public void grBusVlr()
{
SAPbobsCOM.Recordset oRecordset1 = ((SAPbobsCOM.Recordset)(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
oitem = oForm.Items.Item("grdpy");
oGrid = ((SAPbouiCOM.Grid)(oitem.Specific));
string vlGrilla = null;
string Sql10 = "select t0.PayMethCod as 'grcode',t1.Cardcode as 'cod' from OPYM as t0 left join ocrd as t1 on t0.PayMethCod= t1.pymcode where t1.cardcode='" + EditText0.Value.ToString() + "'";
oRecordset1.DoQuery(Sql10);
string Extraerdequery10 = oRecordset1.Fields.Item("grcode").Value.ToString();
vlGrilla = Extraerdequery10;
oForm.DataSources.DataTables.Item("grPagdt");
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT distinct t0.PayMethCod AS 'Código',t0.Descript as' Descripción',t0.Active as 'Activo' from OPYM as t0 left join ocrd as t1 on t0.PayMethCod= t1.pymcode where t0.type='O' ");
//oGrid.DataTable = oForm.DataSources.DataTables.Item("grPagdt2");
oGrid.Columns.Item("Activo").Type = SAPbouiCOM.BoGridColumnType.gct_CheckBox;
//para agregar el link buton a la grilla
oGrid.Columns.Item("Código").Type = SAPbouiCOM.BoGridColumnType.gct_EditText;
SAPbouiCOM.EditTextColumn oEdit = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("Código");
oEdit.LinkedObjectType = "147";
//oCBC.ValidValues.Add(oRec.Fields.Item(0).Value.ToString(), oRec.Fields.Item(1).Value.ToString());
//algo parecido a lo que hace el boto de fijar metodo, lo hago aca para que el viejaSel no sea -1 y pueda sacar la linea en negrita
//string valor = (string)oGrid.DataTable.GetValue("Código", 2); esto es para saber lo que lleva una linea en especifico
for (int iRows = 0; iRows <= oGrid.Rows.Count - 1; iRows++)
{
if ((string)oGrid.DataTable.GetValue("Código", iRows) == vlGrilla)
{
if (viejaSel != -1)
{
oGrid.CommonSetting.SetRowFontStyle(viejaSel, SAPbouiCOM.BoFontStyle.fs_Plain);
}
oGrid.CommonSetting.SetRowFontStyle(iRows + 1, SAPbouiCOM.BoFontStyle.fs_Bold);
viejaSel = iRows + 1;
}
}
// Extraerdequery1 = Convert.ToString(Grid2.Columns.Item("Descripción"));
//}
}
private void PopulateBatchesGrid(int rowIndex)
{
string itemCode = dtDocuments.GetValue("ItemCode", rowIndex).ToString();
string whsCode = dtDocuments.GetValue("WhsCode", rowIndex).ToString();
var query = string.Format(Query, itemCode, whsCode);
dtBatches.ExecuteQuery(query);
gvBatches.SetGridHeaderIndex();
SAPbouiCOM.EditTextColumn gColumn = gvBatches.Columns.Item("ItemCode") as SAPbouiCOM.EditTextColumn;
gColumn.LinkedObjectType = "4";
gColumn = gvBatches.Columns.Item("WhsCode") as SAPbouiCOM.EditTextColumn;
gColumn.LinkedObjectType = "64";
}
public void grillametpag()
{
oitem = oForm.Items.Item("grdpy");
oGrid = ((SAPbouiCOM.Grid)(oitem.Specific));
//crear el datasources y despues dentro de esto se ejecuta la query
// oForm.DataSources.DataTables.item("grPagdt");
oGrid.DataTable = oForm.DataSources.DataTables.Item("grPagdt");
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT distinct t0.PayMethCod AS Código,t0.Descript as Descripción,t0.Active as Activo from OPYM as t0 left join ocrd as t1 on t0.PayMethCod= t1.pymcode where t0.type='O' ");
//cheackbox en el campo activo
oGrid.Columns.Item("Activo").Type = SAPbouiCOM.BoGridColumnType.gct_CheckBox;
//para agregar el link buton a la grilla
oGrid.Columns.Item("Código").Type = SAPbouiCOM.BoGridColumnType.gct_EditText;
SAPbouiCOM.EditTextColumn oEdit = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("Código");
oEdit.LinkedObjectType = "147";
RowNumberGrid(oGrid);
}
private void InsertDate_AfterAddBtnPressed(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
try
{
__Form = __app.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount);
oRs = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRs1 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oGrid = __Form.Items.Item("grid").Specific;
int Progress = 0;
SAPbouiCOM.ProgressBar oProgressBar = null;
oProgressBar = __app.StatusBar.CreateProgressBar("Updating History ", Htable.Rows.Count, true);
#region UpdateHistoryTable
for (int i = 0; i < Htable.Rows.Count; i++)
{
try
{
int DocEntry = int.Parse(Htable.Rows[i][0].ToString()); //oGrid.DataTable.GetValue("DocEntry", i);
string CollectionNotes = Htable.Rows[i][1].ToString(); //oGrid.DataTable.GetValue("As Collection Notes", i);
oProgressBar.Text = "Updating History " + i + " rows...";
Progress += 1;
oProgressBar.Value = Progress;
if (!string.IsNullOrEmpty(CollectionNotes))
{
SAPbobsCOM.GeneralService oGeneralService;
SAPbobsCOM.GeneralData oGeneralData;
SAPbobsCOM.CompanyService sCmp = null;
SAPbobsCOM.GeneralData oChild;
SAPbobsCOM.GeneralDataCollection oChildren;
SAPbobsCOM.GeneralDataParams oGeneralParams;
sCmp = ____bobCompany.GetCompanyService();
oGeneralService = sCmp.GetGeneralService("UDOB1CZHDR");
oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(GeneralServiceDataInterfaces.gsGeneralData);
string SqlQry = "";
SqlQry = "SELECT \"Code\" FROM \"@AW_B1CZHDR\" Where \"U_DocEntry\"=" + DocEntry;
oRs.DoQuery(SqlQry);
if (oRs.RecordCount > 0)
{
____bobCompany.StartTransaction();
string SqlCode = "";
SqlCode = "SELECT T0.\"Code\",T1.\"U_AsColNotes\",T1.\"U_UpdateDate\" FROM \"@AW_B1CZHDR\" T0 INNER JOIN \"@AW_B1CZDTL\" T1 ON T1.\"U_DocEntry\"=T0.\"U_DocEntry\" and T0.\"Code\"=T1.\"Code\" " +
" Where T0.\"U_DocEntry\"=" + DocEntry;
oRs1.DoQuery(SqlCode);
oGeneralData.SetProperty("Code", Convert.ToString(oRs1.Fields.Item("Code").Value));
oGeneralData.SetProperty("Name", Convert.ToString(oRs.Fields.Item("Code").Value));
oGeneralData.SetProperty("U_DocEntry", DocEntry);
oChildren = oGeneralData.Child("AW_B1CZDTL");
for (int j = 0; j < oRs1.RecordCount; j++)
{
oChild = oChildren.Add();
oChild.SetProperty("U_DocEntry", DocEntry);
oChild.SetProperty("U_AsColNotes", oRs1.Fields.Item("U_AsColNotes").Value);
oChild.SetProperty("U_UpdateDate", oRs1.Fields.Item("U_UpdateDate").Value);
oRs1.MoveNext();
}
oChild = oChildren.Add();
oChild.SetProperty("U_DocEntry", DocEntry);
oChild.SetProperty("U_AsColNotes", CollectionNotes);
oChild.SetProperty("U_UpdateDate", DateTime.Now);
oGeneralService.Update(oGeneralData);
if (____bobCompany.InTransaction)
{
____bobCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit);
}
}
else
{
____bobCompany.StartTransaction();
string SqlCode = "";
SqlCode = "SELECT IFNULL(MAX((CAST(\"Code\" AS int))),0)+1 \"MaxCode\",IFNULL(MAX((CAST(\"DocEntry\" AS int))),0)+1 \"MaxDocEntry\" FROM \"@AW_B1CZHDR\"";
oRs.DoQuery(SqlCode);
oGeneralData.SetProperty("Code", Convert.ToString(oRs.Fields.Item("MaxCode").Value));
oGeneralData.SetProperty("Name", Convert.ToString(oRs.Fields.Item("MaxCode").Value));
oGeneralData.SetProperty("U_DocEntry", DocEntry);
oChildren = oGeneralData.Child("AW_B1CZDTL");
oChild = oChildren.Add();
oChild.SetProperty("U_DocEntry", DocEntry);
oChild.SetProperty("U_AsColNotes", CollectionNotes);
oChild.SetProperty("U_UpdateDate", DateTime.Now.Date);
oGeneralService.Add(oGeneralData);
if (____bobCompany.InTransaction)
{
____bobCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit);
}
}
}
}
catch (Exception)
{
}
}
oProgressBar.Stop();
Htable.Clear();
DT.Clear();
DT = null;
#endregion
string CardCode = __Form.Items.Item("Item_0").Specific.Value;
string SqlDoc = "";
if (!string.IsNullOrEmpty(CardCode))
{
SqlDoc = "CALL AGING_REPORT ('" + CardCode + "')";
}
else
{
SqlDoc = "CALL AGING_REPORT (NULL)";
}
oRs.DoQuery(SqlDoc);
if (oRs.RecordCount > 0)
{
if (DT == null)
{
DT = __Form.DataSources.DataTables.Add("DT1" + DateTime.Now.Second);
}
DT.ExecuteQuery(SqlDoc);
oGrid.DataTable = DT;
oGrid.AutoResizeColumns();
oGrid.Columns.Item("Customer Code").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Type").Editable = false;
SAPbouiCOM.EditTextColumn Typcol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("DocEntry");
Typcol.LinkedObjectType = "13";
oGrid.Columns.Item("TransType").Visible = false;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Document No.").Editable = false;
oGrid.Columns.Item("Customer Ref. No.").Editable = false;
oGrid.Columns.Item("Posting Date").Editable = false;
oGrid.Columns.Item("Due Date").Editable = false;
oGrid.Columns.Item("Future").Editable = false;
oGrid.Columns.Item("0-30 Days").Editable = false;
oGrid.Columns.Item("31-60 Days").Editable = false;
oGrid.Columns.Item("61-90 Days").Editable = false;
oGrid.Columns.Item("91-120 Days").Editable = false;
oGrid.Columns.Item("121+ Days").Editable = false;
SAPbouiCOM.EditTextColumn col = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("AWDocEntry");
col.LinkedObjectType = "UDOB1CZHDR";
col.Width = 15;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Balance Due").Editable = false;
oGrid.Columns.Item("Previous Collection Notes").Editable = false;
oGrid.CollapseLevel = 1;
}
}
catch (SqlException e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
catch (COMException e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
catch (Exception e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
}
private void Search_AfterAddBtnPressed(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
__Form = __app.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount);
oRs = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oGrid = __Form.Items.Item("grid").Specific;
//DT.Clear();
//DT = null;
string CardCode = __Form.Items.Item("Item_0").Specific.Value;
string SqlDoc = "";
if (!string.IsNullOrEmpty(CardCode))
{
SqlDoc = "CALL AGING_REPORT ('" + CardCode + "')";
}
else
{
SqlDoc = "CALL AGING_REPORT (NULL)";
}
oRs.DoQuery(SqlDoc);
if (oRs.RecordCount > 0)
{
if (DT == null)
{
DT = __Form.DataSources.DataTables.Add("DT1" + DateTime.Now.Second);
}
DT.ExecuteQuery(SqlDoc);
oGrid.DataTable = DT;
oGrid.AutoResizeColumns();
oGrid.Columns.Item("Customer Code").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Type").Editable = false;
SAPbouiCOM.EditTextColumn Typcol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("DocEntry");
Typcol.LinkedObjectType = "13";
oGrid.Columns.Item("TransType").Visible = false;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Document No.").Editable = false;
oGrid.Columns.Item("Customer Ref. No.").Editable = false;
oGrid.Columns.Item("Posting Date").Editable = false;
oGrid.Columns.Item("Due Date").Editable = false;
oGrid.Columns.Item("Future").Editable = false;
oGrid.Columns.Item("0-30 Days").Editable = false;
oGrid.Columns.Item("31-60 Days").Editable = false;
oGrid.Columns.Item("61-90 Days").Editable = false;
oGrid.Columns.Item("91-120 Days").Editable = false;
oGrid.Columns.Item("121+ Days").Editable = false;
SAPbouiCOM.EditTextColumn col = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("AWDocEntry");
col.LinkedObjectType = "UDOB1CZHDR";
col.Width = 15;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Balance Due").Editable = false;
oGrid.Columns.Item("Previous Collection Notes").Editable = false;
oGrid.CollapseLevel = 1;
}
}
void __app_MenuEvent(ref SAPbouiCOM.MenuEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
#region "Main Menu"
if (pVal.BeforeAction == false)
{
if (pVal.MenuUID == "MDC_MNU_GRP")
{
XmlDocument oXMLDoc = new XmlDocument();
string MenuPath = Application.StartupPath + "\\SrfFiles\\AGR.srf";
oXMLDoc.Load(MenuPath);
__app.LoadBatchActions(oXMLDoc.InnerXml);
string UName = __app.Company.UserName.ToString();
oRs1 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRs2 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRs3 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
Manual = false;
__Form = __app.Forms.GetForm("AGR", 0);
oGrid = __Form.Items.Item("grid").Specific;
__Form = __app.Forms.ActiveForm;
__Form.EnableMenu("4870", true);
__Form.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE;
__Form.State = SAPbouiCOM.BoFormStateEnum.fs_Maximized;
string SqlDoc = "";
SqlDoc = "CALL AGING_REPORT (NULL)";
oRs2.DoQuery(SqlDoc);
DT = null;
if (oRs2.RecordCount > 0)
{
if (DT == null)
{
DT = __Form.DataSources.DataTables.Add("DT1" + DateTime.Now.Second);
}
DT.ExecuteQuery(SqlDoc);
oGrid.DataTable = DT;
oGrid.AutoResizeColumns();
oGrid.Columns.Item("Customer Code").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Type").Editable = false;
SAPbouiCOM.EditTextColumn Typcol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("DocEntry");
Typcol.LinkedObjectType = "13";
oGrid.Columns.Item("TransType").Visible = false;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Document No.").Editable = false;
oGrid.Columns.Item("Customer Ref. No.").Editable = false;
oGrid.Columns.Item("Posting Date").Editable = false;
oGrid.Columns.Item("Due Date").Editable = false;
oGrid.Columns.Item("Future").Editable = false;
oGrid.Columns.Item("0-30 Days").Editable = false;
oGrid.Columns.Item("31-60 Days").Editable = false;
oGrid.Columns.Item("61-90 Days").Editable = false;
oGrid.Columns.Item("91-120 Days").Editable = false;
oGrid.Columns.Item("121+ Days").Editable = false;
oGrid.Columns.Item("Balance Due").Editable = false;
SAPbouiCOM.EditTextColumn col = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("AWDocEntry");
col.LinkedObjectType = "UDOB1CZHDR";
col.Width = 15;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Previous Collection Notes").Editable = false;
oGrid.CollapseLevel = 1;
DataColumn column;
// Create new DataColumn, set DataType, ColumnName and add to DataTable.
column = new DataColumn();
if (Htable.Columns.Contains("DocEntry"))
{
Htable.Columns.Remove("DocEntry");
}
column.DataType = System.Type.GetType("System.Int32");
column.ColumnName = "DocEntry";
Htable.Columns.Add(column);
// Create second column.
column = new DataColumn();
if (Htable.Columns.Contains("Collection Notes"))
{
Htable.Columns.Remove("Collection Notes");
}
column.DataType = Type.GetType("System.String");
column.ColumnName = "Collection Notes";
Htable.Columns.Add(column);
}
}
catch (Exception e)
{
MessageBox.Show(e.Message.ToString());
BubbleEvent = false;
}
}
}
#endregion
//#region "Navigate Menu"
//if (pVal.BeforeAction == true)
//{
// if (pVal.MenuUID == "1281")
// {
// //__XForm = __app.Forms.ActiveForm;
// //__XForm.Items.Item("Item_1").Enabled = true;
// }
//}
//#endregion
}
private void Search()
{
try
{
this.CurrentForm.Freeze(true);
SBOApp.StatusBar.SetText("正在查找，请稍后...", SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
var date_from = this.CurrentForm.DataSources.UserDataSources.Item(UDS_DATE_FROM).Value;
var date_to = this.CurrentForm.DataSources.UserDataSources.Item(UDS_DATE_TO).Value;
SAPbouiCOM.Grid grid_list = this.CurrentForm.Items.Item(GRID_LIST).Specific;
var sql_get_journal_entry = @"select row_number() over(order by ""TransId"" asc) ""RowIndex"",* from ""AVA_FM_FN_GET_JOURNAL_ENTRY_DATAS""() where 1 = 1 ";
if (!string.IsNullOrEmpty(date_from))
{
sql_get_journal_entry += string.Format(@" and ""TaxDate"" >= N'{0}' ", date_from);
}
if (!string.IsNullOrEmpty(date_to))
{
sql_get_journal_entry += string.Format(@" and ""TaxDate"" <= N'{0}' ", date_to);
}
grid_list.DataTable.ExecuteQuery(sql_get_journal_entry);
if (grid_list.DataTable.Rows.Count == 1)
{
var docentry = Convert.ToString(
grid_list.DataTable.GetValue("TransId", grid_list.DataTable.Rows.Offset));
if (string.IsNullOrWhiteSpace(docentry) |
int.Parse(docentry) <= 0)
{
grid_list.DataTable.Rows.Remove(grid_list.DataTable.Rows.Offset);
}
}
#region Grid Layout
grid_list.Columns.Item("RowIndex").TitleObject.Caption = "#";
SAPbouiCOM.EditTextColumn col_docentry = (SAPbouiCOM.EditTextColumn)grid_list.Columns.Item("TransId");
col_docentry.Type = SAPbouiCOM.BoGridColumnType.gct_EditText;
col_docentry.LinkedObjectType = "30";
grid_list.Columns.Item("TransId").TitleObject.Caption = "交易号";
grid_list.Columns.Item("TransType").TitleObject.Caption = "原始单据类型";
grid_list.Columns.Item("BaseRef").TitleObject.Caption = "原始编号";
grid_list.Columns.Item("TaxDate").TitleObject.Caption = "单据日期";
grid_list.Columns.Item("BPLId").TitleObject.Caption = "分支";
grid_list.Columns.Item("BPLName").TitleObject.Caption = "分支名称";
grid_list.Columns.Item("Ref1").TitleObject.Caption = "参考 1";
grid_list.Columns.Item("Ref2").TitleObject.Caption = "参考 2";
grid_list.Columns.Item("Memo").TitleObject.Caption = "备注";
grid_list.Columns.Item("Project").TitleObject.Caption = "项目";
grid_list.Columns.Item("LocTotal").TitleObject.Caption = "交易总计";
grid_list.Columns.Item("VoucherCode").TitleObject.Caption = "凭单编码";
foreach (SAPbouiCOM.GridColumn item in grid_list.Columns)
{
if (item.UniqueID.Equals("VoucherCode"))
{
item.Editable = true;
continue;
}
item.Editable = false;
}
#endregion
SBOApp.StatusBar.SetText("查找完成！", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
catch (Exception ex) { throw ex; }
finally { this.CurrentForm.Freeze(false); }
}
