/// <summary> /// Carga el grid de las series escaneadas /// </summary> private void CargarGridArqueo() { try { _oForma = _Application.Forms.Item(formID); _oForma.Freeze(true);// _oForma.DataSources.DataTables.Item(DT_ARQUEOS) .ExecuteQuery(@"SELECT CAST('' AS INT) AS #, CAST('' AS NVARCHAR(MAX)) AS CodigoAsistente , CAST('' AS NVARCHAR(MAX)) AS NombreAsistente , CAST('' AS NVARCHAR(MAX)) AS CodigoOficina , CAST('' AS NVARCHAR(MAX)) AS Empresa , CAST('' AS NVARCHAR(MAX)) AS 'Plan' , CAST('' AS NVARCHAR(MAX)) AS Solicitud , CAST('' AS DATETIME) AS FechaArqueo "); _oGridArqueos = (SAPbouiCOM.Grid)_oForma.Items.Item(GRD_ARQUEOS).Specific; _oGridArqueos.DataTable = _oForma.DataSources.DataTables.Item(DT_ARQUEOS); FormatoGrid(_oGridArqueos, ""); _oGridArqueos.AutoResizeColumns(); } catch (Exception ex) { throw new Exception("Error al cargar grid de arqueo *CargarGridArqueo* : " + ex.Message); } finally { _oForma.Freeze(false); } }
/// <summary> /// Initialize components. Called by framework after form created. /// </summary> public override void OnInitializeComponent() { this.fileSelector = ((SAPbouiCOM.Button)(this.GetItem("btArq").Specific)); this.fileSelector.ClickBefore += new SAPbouiCOM._IButtonEvents_ClickBeforeEventHandler(this.FileButton_ClickBefore); this.modulePath = ((SAPbouiCOM.EditText)(this.GetItem("edArquivo").Specific)); this.installUpdateModule = ((SAPbouiCOM.Button)(this.GetItem("btInst").Specific)); this.installUpdateModule.ClickBefore += new SAPbouiCOM._IButtonEvents_ClickBeforeEventHandler(this.InstallUpdateModule_ClickBefore); this.moduleGrid = ((SAPbouiCOM.Grid)(this.GetItem("gridArq").Specific)); this.removeButton = ((SAPbouiCOM.Button)(this.GetItem("btModu").Specific)); this.removeButton.ClickAfter += new SAPbouiCOM._IButtonEvents_ClickAfterEventHandler(this.RemoveButtom_ClickAfter); this.startButton = ((SAPbouiCOM.Button)(this.GetItem("btStart").Specific)); this.startButton.ClickAfter += new _IButtonEvents_ClickAfterEventHandler(startButton_ClickAfter); this.shutdownButton = ((SAPbouiCOM.Button)(this.GetItem("btStop").Specific)); this.shutdownButton.ClickAfter += new _IButtonEvents_ClickAfterEventHandler(shutdownButton_ClickAfter); this.installButton = ((SAPbouiCOM.Button)(this.GetItem("btInstall").Specific)); this.installButton.ClickAfter += new _IButtonEvents_ClickAfterEventHandler(installButton_ClickAfter); this.configTemp = this.UIAPIRawForm.DataSources.DataTables.Item("configTemp"); this.moduleGrid.ClickAfter += new _IGridEvents_ClickAfterEventHandler(moduleGrid_ClickAfter); ((ComboBoxColumn)moduleGrid.Columns.Item("Installed")).ValidValues.Add("Y", Messages.Yes); ((ComboBoxColumn)moduleGrid.Columns.Item("Installed")).ValidValues.Add("N", Messages.No); ((ComboBoxColumn)moduleGrid.Columns.Item("Installed")).DisplayType = BoComboDisplayType.cdt_Description; ((ComboBoxColumn)moduleGrid.Columns.Item("Status")).ValidValues.Add("R", Messages.AdminRunning); ((ComboBoxColumn)moduleGrid.Columns.Item("Status")).ValidValues.Add("S", Messages.AdminStopped); ((ComboBoxColumn)moduleGrid.Columns.Item("Status")).DisplayType = BoComboDisplayType.cdt_Description; moduleDT = moduleGrid.DataTable; // click on first tab. this.UIAPIRawForm.DataSources.UserDataSources.Item("Folders").Value = "1"; }
public static void Linkto(ref SAPbouiCOM.Grid grid, string boLinkedObject) { var oColumn = grid.Columns.Item(0) as EditTextColumn; oColumn.Type = BoGridColumnType.gct_EditText; oColumn.LinkedObjectType = boLinkedObject; }
public static void ReadOnly(ref SAPbouiCOM.Grid grid) { for (int i = 0; i < grid.Columns.Count; i++) { grid.Columns.Item(i).Editable = false; } }
/// <summary> /// Initialize components. Called by framework after form created. /// </summary> public override void OnInitializeComponent() { userConfigSQLTemplate = this.GetSQL("addInStartupManagementSQLTemplate.sql"); this.gridUser = ((SAPbouiCOM.Grid)(this.GetItem("gridUser").Specific)); this.gridCfg = ((SAPbouiCOM.Grid)(this.GetItem("gridCfg").Specific)); this.generalGrid = ((SAPbouiCOM.Grid)(this.GetItem("gridGnrl").Specific)); this.configTemp = this.UIAPIRawForm.DataSources.DataTables.Item("configTemp"); this.OnCustomInitialize(); }
private void CargarGrid() { try { ogrid = ((Grid)oForm.Items.Item("ogrid").Specific); odt = ogrid.DataTable; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT DocEntry, U_CardCode, U_CardName, U_Activado FROM [@VID_FELISTANE]"; } else { s = @"SELECT ""DocEntry"", ""U_CardCode"", ""U_CardName"", ""U_Activado"" FROM ""@VID_FELISTANE"" "; } ogrid.DataTable.ExecuteQuery(s); ogrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText; var oColumn = ((GridColumn)ogrid.Columns.Item("DocEntry")); ((EditTextColumn)oColumn).Editable = false; ((EditTextColumn)oColumn).TitleObject.Caption = "DocEntry"; ((EditTextColumn)oColumn).Visible = false; ogrid.Columns.Item("U_CardCode").Type = BoGridColumnType.gct_EditText; oColumn = ((GridColumn)ogrid.Columns.Item("U_CardCode")); ((EditTextColumn)oColumn).Editable = true; ((EditTextColumn)oColumn).TitleObject.Caption = "Codigo SN"; ((EditTextColumn)oColumn).Visible = true; ((EditTextColumn)oColumn).LinkedObjectType = "2"; ((EditTextColumn)oColumn).ChooseFromListUID = "CFL0"; ((EditTextColumn)oColumn).ChooseFromListAlias = "CardCode"; ogrid.Columns.Item("U_CardName").Type = BoGridColumnType.gct_EditText; oColumn = ((GridColumn)ogrid.Columns.Item("U_CardName")); ((EditTextColumn)oColumn).Editable = false; ((EditTextColumn)oColumn).TitleObject.Caption = "Razón Social"; ((EditTextColumn)oColumn).Visible = true; ogrid.Columns.Item("U_Activado").Type = BoGridColumnType.gct_CheckBox; var oColumnchx = ((GridColumn)ogrid.Columns.Item("U_Activado")); ((CheckBoxColumn)oColumnchx).Editable = true; ((CheckBoxColumn)oColumnchx).TitleObject.Caption = "Activo"; ((CheckBoxColumn)oColumnchx).Visible = true; ogrid.AutoResizeColumns(); if (((System.String)odt.GetValue("U_CardCode", 0)).Trim() != "") { odt.Rows.Add(); } FSBOApp.StatusBar.SetText("Lista Negra cargada", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success); } catch (Exception e) { FSBOApp.StatusBar.SetText(e.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("CargarGrid: " + e.Message + " ** Trace: " + e.StackTrace); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { Int32 CantRol; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Funciones.SBO_f = FSBOf; try { //Lista = new List<string>(); FSBOf.LoadForm(xmlPath, "VID_FECTASAP.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = true; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT COUNT(*) AS cant FROM [@VID_FEPLANCTA] WHERE DocEntry = {0}"; } else { s = @"SELECT COUNT(*) ""cant"" FROM ""@VID_FEPLANCTA"" WHERE ""DocEntry"" = {0} "; } s = String.Format(s, DocEntry); oRecordSet.DoQuery(s); oForm.SupportedModes = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? 1 : 3); oForm.Mode = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? BoFormMode.fm_OK_MODE : BoFormMode.fm_ADD_MODE); oDBDSDetalle = oForm.DataSources.DBDataSources.Add("@VID_FEPLANCTAD"); odt = oForm.DataSources.DataTables.Add("Cuentas"); oGrid = ((SAPbouiCOM.Grid)oForm.Items.Item("grid").Specific); oGrid.DataTable = odt; oGrid.SelectionMode = BoMatrixSelect.ms_Single; AddChooseFromList(); CargarGrilla(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } finally { oForm.Freeze(false); } return(Result); }//fin InitForm
}//fin MenuEvent private void BorrarLinea() { Int32 sCode; Boolean bPaso; try { bPaso = false; ogrid = ((Grid)oForm.Items.Item("ogrid").Specific); odt = ogrid.DataTable; for (Int32 iCont_1 = 0; iCont_1 < odt.Rows.Count; iCont_1++) { if (((System.String)odt.GetValue("U_CardCode", iCont_1)).Length > 0) { if (ogrid.Rows.IsSelected(iCont_1)) { sCode = ((System.Int32)odt.GetValue("DocEntry", iCont_1)); if (sCode != 0) { if (Funciones.DelDataSource("D", "VID_FELISTANE", "", sCode)) { odt.Rows.Remove(iCont_1); oForm.Mode = BoFormMode.fm_OK_MODE; FSBOApp.StatusBar.SetText("Linea eliminada correctamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success); bPaso = true; break; } } else { odt.Rows.Remove(iCont_1); FSBOApp.StatusBar.SetText("Linea eliminada correctamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success); bPaso = true; } } } } if (bPaso == false) { FSBOApp.StatusBar.SetText("Debe seleccionar una linea", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning); } } catch (Exception g) { FSBOApp.StatusBar.SetText(g.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("BorrarLinea: " + g.Message + " ** Trace: " + g.StackTrace); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { SAPbouiCOM.ComboBox oComboBox; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Lista = new List <string>(); FSBOf.LoadForm(xmlPath, "VID_FERESFOL.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1281", false); //Buscar oForm.EnableMenu("1282", false); //Crear //VID_DelRow := true; //VID_DelRowOK := true; // oForm.DataBrowser.BrowseBy := "Code"; // oDBDSCAF := oForm.DataSources.DBDataSources.Add("@VID_FECAF"); // oDBDSDISTH := oForm.DataSources.DBDataSources.Add("@VID_FEDIST"); // oDBDSDISTD := oForm.DataSources.DBDataSources.Add("@VID_FEDISTD"); ogrid = (Grid)(oForm.Items.Item("grid").Specific); oDataTable = oForm.DataSources.DataTables.Add("dt"); ogrid.DataTable = oDataTable; FSBOApp.StatusBar.SetText("Actualizando estado de folios asignados", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning); ActualizarRegistros(); // Ok Ad Fnd Vw Rq Sec // Lista.Add('TipoDoc , f, t, t, f, r, 1'); // FSBOf.SetAutoManaged(var oForm, Lista); oForm.Mode = BoFormMode.fm_OK_MODE; } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { Int32 CantRol; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Funciones.SBO_f = FSBOf; try { //Lista = new List<string>(); FSBOf.LoadForm(xmlPath, "VID_FEListaNegra.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1282", false); //Crear oForm.EnableMenu("1281", false); //Actualizar ogrid = ((Grid)oForm.Items.Item("ogrid").Specific); oDBDSHeader = ((DBDataSource)oForm.DataSources.DBDataSources.Item("@VID_FELISTANE")); ogrid.DataTable = oForm.DataSources.DataTables.Add("dt"); AddChooseFromList(); CargarGrid(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } finally { if (oForm != null) { oForm.Freeze(false); } } return(Result); }//fin InitForm
public void SubFormInit(string KeyValue) { this.LoadForm(); oForm = B1Connections.theAppl.Forms.Item(formuid); oForm.Freeze(true); this.Act1_FormInit(); if (oForm.Mode != BoFormMode.fm_VIEW_MODE) { oForm.Mode = BoFormMode.fm_OK_MODE; } oForm.Freeze(false); oForm.Visible = true; oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; for (int iLooper = 0; iLooper < oGrid.Rows.Count; iLooper++) { if (oGrid.DataTable.Columns.Item("Code").Cells.Item(oGrid.GetDataTableRowIndex(iLooper)).Value.ToString() == KeyValue) { Veiw_Grid_SelectedRow(iLooper); break; } } }
private void MostrarPDF(Int32 Linea) { String Code; String sXml; String TipoDoc; String Folio; String RUTEmisor; String oPath; String sNombreArchivo; String sNombrePDF; Boolean flag = true; String Pass = ""; try { oGrid = (Grid)(oForm.Items.Item("grid").Specific); Code = Convert.ToString(((System.Int32)oGrid.DataTable.GetValue("DocEntry", Linea)), _nf); sXml = ((System.String)oGrid.DataTable.GetValue("xml", Linea)); TipoDoc = ((System.String)oGrid.DataTable.GetValue("TipoDoc", Linea)); RUTEmisor = ((System.String)oGrid.DataTable.GetValue("RUT", Linea)); Folio = Convert.ToString(((System.Int32)oGrid.DataTable.GetValue("Folio", Linea)), _nf); if (sXml != "") { oPath = System.IO.Path.GetDirectoryName(TMultiFunctions.ParamStr(0)); try { if (GlobalSettings.RunningUnderSQLServer) { sNombreArchivo = oPath + "\\Reports\\CL\\SQL\\ReporteXML.rpt"; } else { sNombreArchivo = oPath + "\\Reports\\CL\\HANA\\ReporteXML.rpt"; } sNombrePDF = oPath + @"\PDF\" + RUTEmisor + "_" + TipoDoc + "_" + Folio + ".pdf"; if (File.Exists(sNombrePDF)) { System.Diagnostics.Process proc = new System.Diagnostics.Process(); proc.StartInfo.FileName = sNombrePDF; proc.Start(); } else { FSBOf.AddRepKey(Code, "FEREPORTXML", "FEREPORTXML");//oForm.TypeEx); GlobalSettings.CrystalReportFileName = sNombreArchivo; try { FSBOApp.Menus.Item("4873").Activate(); } catch { } /*FSBOApp.Menus.Item("4873").Activate(); * var oFormB = FSBOApp.Forms.ActiveForm; * ((EditText)oFormB.Items.Item("410000004").Specific).Value = sNombreArchivo; * oFormB.Items.Item("410000005").Click(BoCellClickType.ct_Regular);*/ } } catch (Exception p) { FSBOApp.StatusBar.SetText(p.Message + " ** Trace: " + p.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("Cargar Crystal: " + p.Message + " ** Trace: " + p.StackTrace); } } else { FSBOApp.StatusBar.SetText("No se ha encontrado xml que genera PDF", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning); } } catch (Exception x) { FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("MostrarPDF: " + x.Message + " ** Trace: " + x.StackTrace); } }
public virtual bool ET_grd1_BFMatrixLinkPressed(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific)); // ADD YOUR ACTION CODE HERE ... //try //{ // int oRowIndex = oGrid.GetDataTableRowIndex(pVal.Row); // string KeyValue = string.Empty; // switch (pVal.ColUID) // { // case "DOCENTRY": // KeyValue = oGrid.DataTable.GetValue("DOCENTRY", oRowIndex).ToString(); // LoadSubForm(oForm, "KIS_SD0030_HRD", KeyValue); // break; // case "U_CARDNM": // KeyValue = oGrid.DataTable.GetValue("U_CARDCD", oRowIndex).ToString(); // B1Connections.theAppl.OpenForm(BoFormObjectEnum.fo_BusinessPartner, "", KeyValue); // break; // case "U_BPNM": // KeyValue = oGrid.DataTable.GetValue("U_BPCD", oRowIndex).ToString(); // B1Connections.theAppl.OpenForm(BoFormObjectEnum.fo_BusinessPartner, "", KeyValue); // break; // default: // break; // } //} //catch (Exception ex) //{ // B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); //} //return false; return true; }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { //SAPbouiCOM.ComboBox oCombo; SAPbouiCOM.GridColumn oColumn; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Funciones.SBO_f = FSBOf; Lista = new List <string>(); FSBOf.LoadForm(xmlPath, "VID_FECAF.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1281", false); //Buscar oForm.EnableMenu("1282", false); //Crear // VID_DelRow := true; // VID_DelRowOK := true; // oForm.DataBrowser.BrowseBy := "Code"; oDBDSH = oForm.DataSources.DBDataSources.Add("@VID_FECAF"); ogrid = (Grid)(oForm.Items.Item("grid").Specific); oDataTable = oForm.DataSources.DataTables.Add("dt"); ogrid.DataTable = oDataTable; if (GlobalSettings.RunningUnderSQLServer) { s = @"select ISNULL(U_MultiSoc,'N') MultiSoc from [@VID_FEPARAM]"; } else { s = @"select IFNULL(""U_MultiSoc"",'N') ""MultiSoc"" from ""@VID_FEPARAM"" "; } oRecordSet.DoQuery(s); if (oRecordSet.RecordCount > 0) { if (((System.String)oRecordSet.Fields.Item("MultiSoc").Value).Trim() == "Y") { bMultiSoc = true; } else { bMultiSoc = false; } } else { bMultiSoc = false; } ActualizarGrilla(); // Ok Ad Fnd Vw Rq Sec // Lista.Add('TipoDoc , f, t, t, f, r, 1'); // FSBOf.SetAutoManaged(var oForm, Lista); oForm.Mode = BoFormMode.fm_OK_MODE; } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin Initform
public new bool InitForm(string uid, string xmlPath, ref SAPbouiCOM.Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { Int32 CantRol; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Funciones.SBO_f = FSBOf; try { Lista = new List <string>(); FSBOf.LoadForm(xmlPath, "VID_FEMonDTE.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1282", false); //Crear oForm.EnableMenu("1281", false); //Actualizar // Ok Ad Fnd Vw Rq Sec //Lista.Add('DocNum , f, f, t, f, n, 1'); //Lista.Add('DocDate , f, t, f, f, r, 1'); //Lista.Add('CardCode , f, t, t, f, r, 1'); //FSBOf.SetAutoManaged(var oForm, Lista); oDBDSHC = oForm.DataSources.DBDataSources.Add("@VID_FEDTECPRA"); oDBDSHV = oForm.DataSources.DBDataSources.Add("@VID_FEDTEVTA"); oForm.DataSources.UserDataSources.Add("FechaD", BoDataType.dt_DATE, 10); oEditText = (EditText)(oForm.Items.Item("FechaD").Specific); oEditText.DataBind.SetBound(true, "", "FechaD"); oEditText.Value = DateTime.Now.ToString("yyyyMMdd"); oForm.DataSources.UserDataSources.Add("FechaH", BoDataType.dt_DATE, 10); oEditText = (EditText)(oForm.Items.Item("FechaH").Specific); oEditText.DataBind.SetBound(true, "", "FechaH"); oEditText.Value = DateTime.Now.ToString("yyyyMMdd"); oComboBox = (ComboBox)(oForm.Items.Item("TipoDTE").Specific); oForm.DataSources.UserDataSources.Add("TipoDTE", BoDataType.dt_SHORT_TEXT, 10); oComboBox.DataBind.SetBound(true, "", "TipoDTE"); oComboBox.ValidValues.Add("V", "Venta"); oComboBox.ValidValues.Add("C", "Compra"); oComboBox.Select("V", BoSearchKey.psk_ByValue); oForm.Items.Item("TipoDTE").DisplayDesc = true; oDataTable = oForm.DataSources.DataTables.Add("dt"); oGrid = (Grid)(oForm.Items.Item("grid").Specific); oGrid.DataTable = oDataTable; DSOpFec = oForm.DataSources.UserDataSources.Add("FechaEmi", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); ((OptionBtn)oForm.Items.Item("FechaEmi").Specific).DataBind.SetBound(true, "", "FechaEmi"); ((OptionBtn)oForm.Items.Item("FechaRecep").Specific).DataBind.SetBound(true, "", "FechaEmi"); ((OptionBtn)oForm.Items.Item("FechaRecep").Specific).GroupWith("FechaEmi"); ((OptionBtn)oForm.Items.Item("FechaEmi").Specific).Selected = true; oComboBox = (ComboBox)(oForm.Items.Item("Cliente").Specific); oForm.DataSources.UserDataSources.Add("Cliente", BoDataType.dt_SHORT_TEXT, 10); oComboBox.DataBind.SetBound(true, "", "Cliente"); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT 'Todos' Code, 'Todos' Name UNION ALL SELECT T1.FldValue Code, T1.Descr Name FROM CUFD T0 JOIN UFD1 T1 ON T1.TableID = T0.TableID AND T1.FieldID = T0.FieldID WHERE T0.TableID = '{0}' AND T0.AliasID = 'EstadoC'"; } else { s = @"SELECT 'Todos' ""Code"", 'Todos' ""Name"" FROM DUMMY UNION ALL SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name"" FROM ""CUFD"" T0 JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID"" AND T1.""FieldID"" = T0.""FieldID"" WHERE T0.""TableID"" = '{0}' AND T0.""AliasID"" = 'EstadoC'"; } s = String.Format(s, "@VID_FEDTEVTA"); oRecordSet.DoQuery(s); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); oComboBox.Select("Todos", BoSearchKey.psk_ByValue); oComboBox = (ComboBox)(oForm.Items.Item("SII").Specific); oForm.DataSources.UserDataSources.Add("SII", BoDataType.dt_SHORT_TEXT, 10); oComboBox.DataBind.SetBound(true, "", "SII"); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT 'Todos' Code, 'Todos' Name UNION ALL SELECT T1.FldValue Code, T1.Descr Name FROM CUFD T0 JOIN UFD1 T1 ON T1.TableID = T0.TableID AND T1.FieldID = T0.FieldID WHERE T0.TableID = '{0}' AND T0.AliasID = 'EstadoSII'"; } else { s = @"SELECT 'Todos' ""Code"", 'Todos' ""Name"" FROM DUMMY UNION ALL SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name"" FROM ""CUFD"" T0 JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID"" AND T1.""FieldID"" = T0.""FieldID"" WHERE T0.""TableID"" = '{0}' AND T0.""AliasID"" = 'EstadoSII'"; } s = String.Format(s, "@VID_FEDTEVTA"); oRecordSet.DoQuery(s); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); oComboBox.Select("Todos", BoSearchKey.psk_ByValue); oComboBox = (ComboBox)(oForm.Items.Item("Ley").Specific); oForm.DataSources.UserDataSources.Add("Ley", BoDataType.dt_SHORT_TEXT, 10); oComboBox.DataBind.SetBound(true, "", "Ley"); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT 'Todos' Code, 'Todos' Name UNION ALL SELECT T1.FldValue Code, T1.Descr Name FROM CUFD T0 JOIN UFD1 T1 ON T1.TableID = T0.TableID AND T1.FieldID = T0.FieldID WHERE T0.TableID = '{0}' AND T0.AliasID = 'EstadoLey'"; } else { s = @"SELECT 'Todos' ""Code"", 'Todos' ""Name"" FROM DUMMY UNION ALL SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name"" FROM ""CUFD"" T0 JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID"" AND T1.""FieldID"" = T0.""FieldID"" WHERE T0.""TableID"" = '{0}' AND T0.""AliasID"" = 'EstadoLey'"; } s = String.Format(s, "@VID_FEDTEVTA"); oRecordSet.DoQuery(s); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); oComboBox.Select("Todos", BoSearchKey.psk_ByValue); BuscarDatos(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } finally { if (oForm != null) { oForm.Freeze(false); } } return(Result); }//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { Int32 CantRol; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Funciones.SBO_f = FSBOf; try { Lista = new List <string>(); FSBOf.LoadForm(xmlPath, "VID_FELibrosElect.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; oForm.DataSources.UserDataSources.Add("Periodo", BoDataType.dt_SHORT_TEXT, 10); ((ComboBox)oForm.Items.Item("Periodo").Specific).DataBind.SetBound(true, "", "Periodo"); oForm.DataSources.UserDataSources.Add("PeriodoD", BoDataType.dt_SHORT_TEXT, 10); ((ComboBox)oForm.Items.Item("PeriodoD").Specific).DataBind.SetBound(true, "", "PeriodoD"); oForm.DataSources.UserDataSources.Add("PeriodoH", BoDataType.dt_SHORT_TEXT, 10); ((ComboBox)oForm.Items.Item("PeriodoH").Specific).DataBind.SetBound(true, "", "PeriodoH"); odt = oForm.DataSources.DataTables.Add("grid"); grid = ((Grid)oForm.Items.Item("grid").Specific); grid.DataTable = odt; if ((TipoLibro == "D") || (TipoLibro == "M")) //Libro Mayor y Diario { s = "Periodo"; oForm.Items.Item(s).Click(BoCellClickType.ct_Regular); if (TipoLibro == "D") { oForm.Title = "Libro Diario y Mayor"; } oForm.PaneLevel = 1; oForm.Items.Item("5").Visible = false; oForm.Items.Item("PeriodoD").Visible = false; oForm.Items.Item("7").Visible = false; oForm.Items.Item("PeriodoH").Visible = false; oForm.Items.Item("grid").Height = 210; oForm.Items.Item("grid2").Visible = true; odt2 = oForm.DataSources.DataTables.Add("grid2"); grid2 = ((Grid)oForm.Items.Item("grid2").Specific); grid2.DataTable = odt2; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name' FROM OFPR WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())"; } else if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name"" FROM ""OFPR"" WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)"; } oRecordSet.DoQuery(s); oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)"; } else { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')"; } oRecordSet.DoQuery(s); oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue); } else if (TipoLibro == "B")//Balance { s = "PeriodoD"; oForm.Items.Item(s).Click(BoCellClickType.ct_Regular); oForm.Title = "Balance"; oForm.PaneLevel = 1; oForm.Items.Item("4").Visible = false; oForm.Items.Item("Periodo").Visible = false; oForm.Items.Item("grid").Height = 210; oForm.Items.Item("grid2").Visible = true; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name' FROM OFPR WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())"; } else if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name"" FROM ""OFPR"" WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)"; } oRecordSet.DoQuery(s); oForm.Items.Item("PeriodoD").DisplayDesc = true; oComboBox = ((ComboBox)oForm.Items.Item("PeriodoD").Specific); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)"; } else { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')"; } oRecordSet.DoQuery(s); oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name' FROM OFPR WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())"; } else if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name"" FROM ""OFPR"" WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)"; } oRecordSet.DoQuery(s); oForm.Items.Item("PeriodoH").DisplayDesc = true; oComboBox = ((ComboBox)oForm.Items.Item("PeriodoH").Specific); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)"; } else { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')"; } oRecordSet.DoQuery(s); oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue); odt2 = oForm.DataSources.DataTables.Add("grid2"); grid2 = ((Grid)oForm.Items.Item("grid2").Specific); grid2.DataTable = odt2; } else if (TipoLibro == "C") //para Diccionario de cuentas { oForm.Title = "Diccionario"; //oForm.PaneLevel = 2; oForm.Items.Item("btnExp").Enabled = true; oForm.PaneLevel = 1; oForm.Items.Item("5").Visible = false; oForm.Items.Item("PeriodoD").Visible = false; oForm.Items.Item("7").Visible = false; oForm.Items.Item("PeriodoH").Visible = false; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name' FROM OFPR WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())"; } else if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name"" FROM ""OFPR"" WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)"; } oRecordSet.DoQuery(s); oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific); FSBOf.FillCombo(oComboBox, ref oRecordSet, false); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)"; } else { s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')"; } oRecordSet.DoQuery(s); oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue); } } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } finally { oForm.Freeze(false); } return(Result); }//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); FSBOf.LoadForm(xmlPath, "VID_FEIMPADIC.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All Flag = false; oForm.Freeze(true); if (GlobalSettings.RunningUnderSQLServer) { s = @"select count(*) Cont from [@VID_FEIMPADIC]"; } else { s = @"select count(*) ""Cont"" from ""@VID_FEIMPADIC"" "; } oRecordSet.DoQuery(s); if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0) { oForm.Mode = BoFormMode.fm_UPDATE_MODE; } else { oForm.Mode = BoFormMode.fm_ADD_MODE; } oGrid = (Grid)(oForm.Items.Item("3").Specific); oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEIMPADIC"); oDataTable = oForm.DataSources.DataTables.Add("Tax"); if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, U_CodImpto, U_Desc, U_Porc from [@VID_FEIMPADIC] UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0"; } else { s = @"select ""Code"", ""U_CodImpto"", ""U_Desc"", ""U_Porc"" from ""@VID_FEIMPADIC"" UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0 FROM DUMMY "; } oDataTable.ExecuteQuery(s); oGrid.DataTable = oDataTable; oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_ComboBox; oColumn = (GridColumn)(oGrid.Columns.Item("Code")); var oComboCol = (ComboBoxColumn)(oColumn); oComboCol.Editable = true; oComboCol.TitleObject.Caption = "Impuesto SAP"; if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, Name from OSTA UNION ALL select WTCode 'Code', WTName 'Name' from OWHT where Inactive = 'N'"; } else { s = @"select ""Code"", ""Name"" from ""OSTA"" UNION ALL select ""WTCode"" ""Code"", ""WTName"" ""Name"" from ""OWHT"" where ""Inactive"" = 'N' "; } oRecordSet.DoQuery(s); FSBOf.FillComboGrid((GridColumn)(oGrid.Columns.Item("Code")), ref oRecordSet, true); oGrid.Columns.Item("U_CodImpto").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_CodImpto")); var oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Código Impto. SII"; oGrid.Columns.Item("U_Desc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_Desc")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Descripción Impuesto"; oGrid.Columns.Item("U_Porc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_Porc")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Porcentaje Retencion"; oEditCol.RightJustified = true; oGrid.AutoResizeColumns(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
/// <summary> /// Ejecución de eventos de la forma activa /// </summary> /// <param name="FormUID">Nombre o ID de la forma</param> /// <param name="pVal">Propiedades de la forma</param> /// <param name="bubbleEvent">Evento</param> public override void eventos(string FormUID, ref ItemEvent pVal, out bool bubbleEvent) { bubbleEvent = true; try { if (pVal.FormUID == formID && pVal.BeforeAction == false) { if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_CLOSE) { _Application.ItemEvent -= new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(SBO_Application_ItemEvent); _Application.MenuEvent -= new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(SBO_Application_MenuEvent); Dispose(); application = null; company = null; _oPrecontratos = false; Addon.typeList.RemoveAll(p => p._forma == formID); return; } } if (pVal.FormUID == formID && pVal.BeforeAction == true) { if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED) { if (pVal.ItemUID == BTNBUSCAR) { BuscarDatos(); ContadorSeleccionados = 0; } if (pVal.ItemUID == BTNCOLLAP) { if (_oGridPrecontratos != null) { if (!_oGridPrecontratos.DataTable.IsEmpty) { _oGridPrecontratos.Rows.CollapseAll(); } } } if (pVal.ItemUID == BTNEXPAN) { if (_oGridPrecontratos != null) { if (!_oGridPrecontratos.DataTable.IsEmpty) { _oGridPrecontratos.Rows.ExpandAll(); } } } if (pVal.ItemUID == BTNCREAR) { if (_oGridPrecontratos != null) { if (!_oGridPrecontratos.DataTable.IsEmpty) { if (ContadorSeleccionados != 0) { CrearPreContratos(); _oForma.Close(); bubbleEvent = false; } else { _Application.MessageBox("No se ha seleccionado ningún Pre-contrato"); } } } } if (pVal.ItemUID == BTN_SELECCION_AUTOMATICA) { if (_oGridPrecontratos != null) { if (!_oGridPrecontratos.DataTable.IsEmpty) { SelecionAutomatica(); } } } } if (pVal.ItemUID == GRDPRECONTRATO && pVal.ColUID == "RowsHeader" && pVal.EventType == BoEventTypes.et_DOUBLE_CLICK) { bubbleEvent = false; return; } if (pVal.EventType == BoEventTypes.et_ITEM_PRESSED && pVal.ItemUID == GRDPRECONTRATO && pVal.ColUID == "Crear") { int index = 0; index = _oGridPrecontratos.GetDataTableRowIndex(pVal.Row); _oGridPrecontratos = _oForma.Items.Item(GRDPRECONTRATO).Specific; EstatusCrear = _oGridPrecontratos.DataTable.GetValue("Crear", index).ToString(); if (EstatusCrear == "Y") { ContadorSeleccionados += 1; } else { ContadorSeleccionados -= 1; } if (ContadorSeleccionados > 10) { _oGridPrecontratos.DataTable.SetValue("Crear", index, "N"); _Application.MessageBox("Solo se pueden seleccionar hasta 10 Pre-contratos"); ContadorSeleccionados -= 1; } } } } catch (Exception ex) { throw new Exception("Error en evento *clsPreContratos* : " + ex.Message); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { //SAPbouiCOM.ComboBox oComboBox; SAPbouiCOM.Column oColumn; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); //Lista := New list<string>; FSBOf.LoadForm(xmlPath, "VID_FELibros.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1281", false); //Actualizar oForm.EnableMenu("1282", false); //Crear oDataTable = oForm.DataSources.DataTables.Add("dt"); ogrid = (SAPbouiCOM.Grid)(oForm.Items.Item("grid").Specific); ogrid.DataTable = oDataTable; if (TipoLibro == "V") { oForm.Title = "Libro de Ventas"; if (GlobalSettings.RunningUnderSQLServer) { s = "select isnull(U_ProcVenta,'') Libro from [@VID_FEPARAM]"; } else { s = @"select IFNULL(""U_ProcVenta"",'') ""Libro"" from ""@VID_FEPARAM"" "; } } else if (TipoLibro == "C") { oForm.Title = "Libro de Compras"; if (GlobalSettings.RunningUnderSQLServer) { s = "select isnull(U_ProcCompra,'') Libro from [@VID_FEPARAM]"; } else { s = @"select IFNULL(""U_ProcCompra"",'') ""Libro"" from ""@VID_FEPARAM"" "; } } else if (TipoLibro == "G") { oForm.Title = "Libro de Guias"; if (GlobalSettings.RunningUnderSQLServer) { s = "select isnull(U_ProcGuia,'') Libro from [@VID_FEPARAM]"; } else { s = @"select IFNULL(""U_ProcGuia"",'') ""Libro"" from ""@VID_FEPARAM"" "; } } else if (TipoLibro == "B") { oForm.Title = "Libro de Boletas"; if (GlobalSettings.RunningUnderSQLServer) { s = "select isnull(U_ProcBol,'') Libro from [@VID_FEPARAM]"; } else { s = @"select IFNULL(""U_ProcBol"",'') ""Libro"" from ""@VID_FEPARAM"" "; } } oRecordSet.DoQuery(s); if (oRecordSet.RecordCount > 0) { if ((System.String)(oRecordSet.Fields.Item("Libro").Value) != "") { Query((System.String)(oRecordSet.Fields.Item("Libro").Value)); } } } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { Int32 CantRol; bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); Funciones.SBO_f = FSBOf; try { Lista = new List <string>(); FSBOf.LoadForm(xmlPath, "VID_FEPLANCTA.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = true; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT COUNT(*) AS cant FROM [@VID_FEPLANCTA]"; } else { s = @"SELECT COUNT(*) ""cant"" FROM ""@VID_FEPLANCTA"""; } oRecordSet.DoQuery(s); oForm.SupportedModes = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? 1 : 3); oForm.Mode = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? BoFormMode.fm_OK_MODE : BoFormMode.fm_ADD_MODE); oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEPLANCTA"); if (((System.Int32)oRecordSet.Fields.Item("cant").Value) == 0) { FSBOApp.StatusBar.SetText("Iniciando carga de cuentas SII", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning); CargarCtaSII(); } // Ok Ad Fnd Vw Rq Sec Lista.Add("grid , t, t, f, t, n, 1 "); FSBOf.SetAutoManaged(oForm, Lista); oForm.DataSources.UserDataSources.Add("Cuenta", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 30); oEditText = ((EditText)oForm.Items.Item("Cuenta").Specific); oEditText.DataBind.SetBound(true, "", "Cuenta"); oForm.DataSources.UserDataSources.Add("Descr", SAPbouiCOM.BoDataType.dt_LONG_TEXT, 60); oEditText = ((EditText)oForm.Items.Item("Descr").Specific); oEditText.DataBind.SetBound(true, "", "Descr"); oDataTable = oForm.DataSources.DataTables.Add("VID_FEPLANCTA"); oGrid = ((SAPbouiCOM.Grid)oForm.Items.Item("grid").Specific); oGrid.DataTable = oDataTable; oGrid.SelectionMode = BoMatrixSelect.ms_Single; CargarGrilla(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } finally { oForm.Freeze(false); } return(Result); }//fin InitForm
/// <summary> /// Busca la información de acuerdo a los filtros capturados /// </summary> /// <param name="efiscal"></param> /// <param name="codigo"></param> /// <param name="descripcion"></param> /// <param name="combos"></param> public void BuscarDatos() { try { _oForma.Freeze(true); string qryFechas = null; string qryAlmacen = null; if (!string.IsNullOrEmpty(_oTxtFechaInicial.Value) || !string.IsNullOrEmpty(_oTxtFechaFinal.Value) || !string.IsNullOrEmpty(_oTxtOficina.Value)) { if (!_oTxtFechaInicial.Value.Equals("") && !_oTxtFechaFinal.Value.Equals("")) { string fechaDesde = _oTxtFechaInicial.Value.Substring(0, 4) + "-" + _oTxtFechaInicial.Value.Substring(4, 2) + "-" + _oTxtFechaInicial.Value.Substring(6, 2); string fechaHasta = _oTxtFechaFinal.Value.Substring(0, 4) + "-" + _oTxtFechaFinal.Value.Substring(4, 2) + "-" + _oTxtFechaFinal.Value.Substring(6, 2); DateTime fInicial = Convert.ToDateTime(fechaDesde); DateTime fFinal = Convert.ToDateTime(fechaHasta); if (fInicial <= fFinal) { qryFechas = " AND T1.DocDate BETWEEN '" + _oTxtFechaInicial.Value + "' AND '" + _oTxtFechaFinal.Value + "'"; } else { _Application.MessageBox("La fecha inicial es mayor a la final"); return; } } else if (!_oTxtFechaInicial.Value.Equals("")) { qryFechas = " AND T1.DocDate = '" + _oTxtFechaInicial.Value + "'"; } else if (!_oTxtFechaFinal.Value.Equals("")) { qryFechas = " AND T1.DocDate = '" + _oTxtFechaFinal.Value + "'"; } if (!_oTxtOficina.Value.Equals("")) { if (_oTxtOficina.Value == "GDLV97") { qryAlmacen = " AND T1.Filler = 'GDLCONS'"; } else { qryAlmacen = " AND T1.Filler = '" + _oTxtOficina.Value + "'"; } } _oForma.DataSources.DataTables.Item(DT_PRECONTRATOS) .ExecuteQuery(@"SELECT T1.DocEntry AS DocEntry, 'Crear' AS Crear, T4.USER_CODE AS CodigoUsuario, T1.DocNum AS DocNum, T0.U_Serie AS Serie, T0.U_CodPromotor AS CodigoPromotor, T0.U_NombrePromotor AS NombrePromotor, T0.ItemCode AS CodigoPlan, T0.Dscription AS NombrePlan, T0.U_FormaPago AS FormaDePago, T2.NAME AS OrigenSolicitud, T0.U_InvInicial AS InversionInicial, T0.U_Comision AS Comision, T0.U_PapeleriaSol AS ImportePapeleria, T0.U_Importe AS ImporteRecibido, T0.U_ExcInvIni AS ExcedenteInvIni, T0.U_Bono AS Bono FROM dbo.WTR1 T0 LEFT JOIN dbo.OWTR T1 ON T1.DocEntry = T0.DocEntry INNER JOIN dbo.[@ORIGSOLICITUD] T2 ON T2.Code = T0.U_OrigenSolicitud LEFT JOIN dbo.OUSR T4 ON T1.UserSign = T4.USERID WHERE NOT EXISTS ( SELECT T3.U_TraspasoRel AS DocNum, T3.U_SolicitudInt AS Serie FROM dbo.OCRD T3 WHERE T3.U_TraspasoRel = T1.DocNum AND T3.U_SolicitudInt = T0.U_Serie AND T3.U_TraspasoRel IS NOT NULL) AND T1.U_TipoMov IN( 'OFICINAS - CONTRATOS','PROMOTOR - ADMON CONTRATOS') AND T0.U_FormaPago IS NOT NULL AND T0.U_OrigenSolicitud IS NOT NULL AND T0.U_Importe IS NOT NULL AND T0.U_InvInicial IS NOT NULL AND T0.U_StatusSolicitud <> 'N' -- ERRONEO AND T0.U_StatusSolicitud <> 'C' -- CANCELADO AND T0.U_StatusSolicitud <> 'A' -- ATRACO AND T0.U_StatusSolicitud <> 'E' -- EXTRAVIO AND T0.U_Serie IS NOT NULL AND T1.Comments IS NULL AND T1.DataSource <> 'N' AND T1.DocStatus <> 'C' " + qryFechas + qryAlmacen + " ORDER BY T0.DocEntry,T0.LineNum ASC "); } else { _oForma.DataSources.DataTables.Item(DT_PRECONTRATOS) .ExecuteQuery(@"SELECT T1.DocEntry AS DocEntry, 'Crear' AS Crear, T4.USER_CODE AS CodigoUsuario, T1.DocNum AS DocNum, T0.U_Serie AS Serie, T0.U_CodPromotor AS CodigoPromotor, T0.U_NombrePromotor AS NombrePromotor, T0.ItemCode AS CodigoPlan, T0.Dscription AS NombrePlan, T0.U_FormaPago AS FormaDePago, T2.NAME AS OrigenSolicitud, T0.U_InvInicial AS InversionInicial, T0.U_Comision AS Comision, T0.U_PapeleriaSol AS ImportePapeleria, T0.U_Importe AS ImporteRecibido, T0.U_ExcInvIni AS ExcedenteInvIni, T0.U_Bono AS Bono FROM dbo.WTR1 T0 LEFT JOIN dbo.OWTR T1 ON T1.DocEntry = T0.DocEntry INNER JOIN dbo.[@ORIGSOLICITUD] T2 ON T2.Code = T0.U_OrigenSolicitud LEFT JOIN dbo.OUSR T4 ON T1.UserSign = T4.USERID WHERE NOT EXISTS ( SELECT T3.U_TraspasoRel AS DocNum, T3.U_SolicitudInt AS Serie FROM dbo.OCRD T3 WHERE T3.U_TraspasoRel = T1.DocNum AND T3.U_SolicitudInt = T0.U_Serie AND T3.U_TraspasoRel IS NOT NULL) AND T1.U_TipoMov IN( 'OFICINAS - CONTRATOS','PROMOTOR - ADMON CONTRATOS') AND T0.U_FormaPago IS NOT NULL AND T0.U_OrigenSolicitud IS NOT NULL AND T0.U_Importe IS NOT NULL AND T0.U_InvInicial IS NOT NULL AND T0.U_Serie IS NOT NULL AND T0.U_StatusSolicitud <> 'N' -- ERRONEO AND T0.U_StatusSolicitud <> 'C' -- CANCELADO AND T0.U_StatusSolicitud <> 'A' -- ATRACO AND T0.U_StatusSolicitud <> 'E' -- EXTRAVIO AND T0.U_Serie IS NOT NULL AND T1.DocStatus <> 'C' AND T1.DataSource <> 'N' AND T1.Comments IS NULL ORDER BY T0.DocEntry,T0.LineNum ASC "); } _oGridPrecontratos = (SAPbouiCOM.Grid)_oForma.Items.Item(GRDPRECONTRATO).Specific; _oGridPrecontratos.DataTable = _oForma.DataSources.DataTables.Item(DT_PRECONTRATOS); FormatoGrid(_oGridPrecontratos); } catch (Exception ex) { throw new Exception("Error al buscar datos *BuscarDatos* : " + ex.Message); } finally { _oForma.Freeze(false); } }
/// <summary> /// Busca la información de acuerdo a los filtros capturados /// </summary> /// <param name="efiscal"></param> /// <param name="codigo"></param> /// <param name="descripcion"></param> /// <param name="combos"></param> public void BuscarDatos(string codeCobrador, string nameCobrador) { try { _oForma.Freeze(true); string qryCobrador = null; qryCobrador = " and REPLACE(LOWER( " + "REPLACE(LOWER( " + "REPLACE(LOWER( " + "REPLACE(LOWER( " + "REPLACE(LOWER( " + "U_Cobrador),'á','a') ), " + "'é','e') ), " + "'í','i') ), " + "'ó','o') ), " + "'ú','u') LIKE '%" + nameCobrador.ToLower().Replace('á', 'a'). Replace('é', 'e'). Replace('í', 'i'). Replace('ó', 'o'). Replace('ú', 'u') + "%' "; _oGridComisionesCobradores = _oForma.Items.Item(GRD_COMISIONES_COBRADORES).Specific; _oGridComisionesCobradores.DataTable = _oForma.DataSources.DataTables.Item(DT_COMISIONES_COBRADORES); _oGridComisionesCobradores.DataTable.ExecuteQuery(@"SELECT T1.empID AS CodigoID, T0.U_Codigo_Cobrador AS CodCobrador, T0.U_Cobrador AS NomCobrador, T0.U_Serie_Programa AS SeriePrograma, --T0.U_Serie_Malba AS SerieMalba, T0.U_Serie_Cooperativa AS SerieCooperativa, T0.U_Serie_Panteon AS SeriePanteon, ISNULL(T0.U_Comision_Panteon, 0.00) AS ComisionPanteon, ISNULL(T0.U_Sueldo_Cooperativa, 0.00) AS SueldoCooperativa, ISNULL(T0.U_Sueldo_Apoyo, 0.00) AS SueldoApoyo, ISNULL(T0.U_Comision_Coop, 0.00) AS ComisionCooperativa, ISNULL(T0.U_Comision_Apoyo, 0.00) AS ComisionApoyo, ISNULL(T0.U_Efectividad, 0.00) AS Efectividad, T0.U_SueldoBase AS SueldoBase FROM dbo.[@COMISION_COBRADORES] T0 LEFT JOIN dbo.OHEM T1 ON T1.firstName = T0.U_Codigo_Cobrador --AND ( T1.middleName + ' ' + T1.lastName ) = T0.U_Cobrador WHERE --( T1.middleName + ' ' + T1.lastName ) = T0.U_Cobrador -- AND T0.U_Codigo_Cobrador LIKE '%" + codeCobrador + "%' " + qryCobrador + "ORDER BY T0.U_Codigo_Cobrador, " + "T1.empID ASC "); if (_oGridComisionesCobradores.DataTable.IsEmpty) { _Application.MessageBox("No se encontraron registros"); _oGridComisionesCobradores.DataTable.Clear(); _oForma.Update(); } else { //_oGridComisionesCobradores.AutoResizeColumns(); FormatoGrid(_oGridComisionesCobradores); _oGridComisionesCobradores.AutoResizeColumns(); } _oBotonUpdate.Caption = "Ok"; } catch (Exception ex) { throw new Exception("Error al buscar datos *BuscarDatos* : " + ex.Message); } finally { _oForma.Freeze(false); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); //Lista := New list<string>; FSBOf.LoadForm(xmlPath, "VID_Monitor.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1282", false); //Crear oForm.EnableMenu("1281", false); //Actualizar // Ok Ad Fnd Vw Rq Sec //Lista.Add('DocNum , f, f, t, f, n, 1'); //Lista.Add('DocDate , f, t, f, f, r, 1'); //Lista.Add('CardCode , f, t, t, f, r, 1'); //FSBOf.SetAutoManaged(var oForm, Lista); oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FELOG"); oDBDSD = oForm.DataSources.DBDataSources.Add("@VID_FELOGD"); oForm.DataSources.UserDataSources.Add("FechaD", BoDataType.dt_DATE, 10); oEditText = (EditText)(oForm.Items.Item("FechaD").Specific); oEditText.DataBind.SetBound(true, "", "FechaD"); oEditText.Value = DateTime.Now.ToString("yyyyMMdd"); oForm.DataSources.UserDataSources.Add("FechaH", BoDataType.dt_DATE, 10); oEditText = (EditText)(oForm.Items.Item("FechaH").Specific); oEditText.DataBind.SetBound(true, "", "FechaH"); oEditText.Value = DateTime.Now.ToString("yyyyMMdd"); oForm.DataSources.UserDataSources.Add("chk_Todo", BoDataType.dt_SHORT_TEXT, 1); oCheckBox = (CheckBox)(oForm.Items.Item("chk_Todo").Specific); oCheckBox.DataBind.SetBound(true, "", "chk_Todo"); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox.Checked = false; oForm.DataSources.UserDataSources.Add("Rechazados", BoDataType.dt_SHORT_TEXT, 1); oCheckBox = (CheckBox)(oForm.Items.Item("Rechazados").Specific); oCheckBox.DataBind.SetBound(true, "", "Rechazados"); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox.Checked = true; oForm.DataSources.UserDataSources.Add("Pendientes", BoDataType.dt_SHORT_TEXT, 1); oCheckBox = (CheckBox)(oForm.Items.Item("Pendientes").Specific); oCheckBox.DataBind.SetBound(true, "", "Pendientes"); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox.Checked = true; oForm.DataSources.UserDataSources.Add("Aceptados", BoDataType.dt_SHORT_TEXT, 1); oCheckBox = (CheckBox)(oForm.Items.Item("Aceptados").Specific); oCheckBox.DataBind.SetBound(true, "", "Aceptados"); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox.Checked = false; oForm.DataSources.UserDataSources.Add("DadoBaja", BoDataType.dt_SHORT_TEXT, 1); oCheckBox = (CheckBox)(oForm.Items.Item("DadoBaja").Specific); oCheckBox.DataBind.SetBound(true, "", "DadoBaja"); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox.Checked = false; oForm.DataSources.UserDataSources.Add("Errores", BoDataType.dt_SHORT_TEXT, 1); oCheckBox = (CheckBox)(oForm.Items.Item("Errores").Specific); oCheckBox.DataBind.SetBound(true, "", "Errores"); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox.Checked = true; oDataTable = oForm.DataSources.DataTables.Add("dt"); oGrid = (Grid)(oForm.Items.Item("grid").Specific); oGrid.DataTable = oDataTable; if (GlobalSettings.RunningUnderSQLServer) { s = "select ISNULL(TaxIdNum,'') TaxIdNum from OADM "; } else { s = @"select IFNULL(""TaxIdNum"",'') ""TaxIdNum"" from ""OADM"" "; } oRecordSet.DoQuery(s); if (oRecordSet.RecordCount == 0) { throw new Exception("Debe ingresar RUC de Emisor, Gestión -> Inicialización Sistema -> Detalle Sociedad -> Datos de Contabilidad -> ID fiscal general 1"); } else { RUC = ((System.String)oRecordSet.Fields.Item("TaxIdNum").Value).Trim(); } CargarDatosPE(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
public virtual void ET_grd1_AFValidate(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific)); // ADD YOUR ACTION CODE HERE ... try { ((SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_TRANSAMT")).ColumnSetting.SumValue = TR_COMMON_HRD.GetGridCalc_SumValue(ref oForm, "U_TRANSAMT").ToString(); } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } }
public static void Linkto(ref SAPbouiCOM.Grid grid, BoLinkedObject boLinkedObject) { Linkto(ref grid, ((int)boLinkedObject).ToString()); }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); FSBOf.LoadForm(xmlPath, "FM_NOTES.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All Flag = false; oForm.Freeze(true); if (GlobalSettings.RunningUnderSQLServer) { s = @"select count(*) Cont from [@FM_NOTES]"; } else { s = @"select count(*) ""Cont"" from ""@FM_NOTES"" "; } oRecordSet.DoQuery(s); if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0) { oForm.Mode = BoFormMode.fm_UPDATE_MODE; } else { oForm.Mode = BoFormMode.fm_ADD_MODE; } oGrid = (Grid)(oForm.Items.Item("3").Specific); oDBDSHeader = oForm.DataSources.DBDataSources.Add("@FM_NOTES"); oDataTable = oForm.DataSources.DataTables.Add("Notes"); if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, Name, U_TypeCode from [@FM_NOTES] UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50))"; } else { s = @"select ""Code"", ""Name"", ""U_TypeCode"" from ""@FM_NOTES"" UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)) FROM DUMMY "; } oDataTable.ExecuteQuery(s); oGrid.DataTable = oDataTable; oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Code")); var oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Codigo"; oGrid.Columns.Item("Name").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Name")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Descripción"; oGrid.Columns.Item("U_TypeCode").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_TypeCode")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Codigo SUNAT"; oGrid.AutoResizeColumns(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
public virtual bool ET_grd1_BFValidate(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific)); // ADD YOUR ACTION CODE HERE ... try { if (pVal.ItemChanged) { oForm.Freeze(true); try { switch (oGrid.Columns.Item(pVal.ColUID).UniqueID) { case "U_TRANSAMT": int iRowIndex = oGrid.GetDataTableRowIndex(pVal.Row); string U_CHK = oGrid.DataTable.GetValue("U_CHK", iRowIndex).ToString().Trim(); if (U_CHK == "N") { oGrid.DataTable.SetValue("U_CHK", iRowIndex, "Y"); if (oGrid.Rows.IsSelected(pVal.Row) == false) { oGrid.Rows.SelectedRows.Add(pVal.Row); } } break; default: break; } } catch (Exception) { throw; } finally { oForm.Freeze(false); } } } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } return true; }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); //Lista := New list<string>; FSBOf.LoadForm(xmlPath, "VID_FEDetalleLog.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1282", false); //Crear oForm.EnableMenu("1281", false); //Actualizar //oForm.DataBrowser.BrowseBy := "DocNum"; // Ok Ad Fnd Vw Rq Sec //Lista.Add('DocNum , f, f, t, f, n, 1'); //Lista.Add('DocDate , f, t, f, f, r, 1'); //Lista.Add('CardCode , f, t, t, f, r, 1'); //FSBOf.SetAutoManaged(var oForm, Lista); //s := '1'; //oCombo.Select(s, BoSearchKey.psk_ByValue); oForm.Items.Item("grid").Enabled = false; ogrid = (Grid)(oForm.Items.Item("grid").Specific); dt = oForm.DataSources.DataTables.Add("dt"); ogrid.DataTable = dt; if (GlobalSettings.RunningUnderSQLServer) { s = @"select U_TipoDoc ,LTRIM(STR(U_FolioNum,18,0)) 'U_FolioNum' ,U_ID_Log ,U_Glosa ,U_FechaIn from [@VID_FELOG] T0 join [@VID_FELOGD] T1 ON T1.DocEntry = T0.DocEntry where T0.DocEntry = {0} order by T1.LineId DESC"; } else { s = @"select ""U_TipoDoc"" ,LTRIM(ROUND(""U_FolioNum"",0)) ""U_FolioNum"" ,""U_ID_Log"" ,""U_Glosa"" ,""U_FechaIn"" from ""@VID_FELOG"" T0 join ""@VID_FELOGD"" T1 ON T1.""DocEntry"" = T0.""DocEntry"" where T0.""DocEntry"" = {0} order by T1.""LineId"" DESC "; } s = String.Format(s, prmKey); dt.ExecuteQuery(s); ogrid.AutoResizeColumns(); ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc")); var oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Tipo Documento"; oEditColumn.RightJustified = true; ogrid.Columns.Item("U_FolioNum").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_FolioNum")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Número Folio"; oEditColumn.RightJustified = true; ogrid.Columns.Item("U_ID_Log").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_ID_Log")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "ID Log Portal"; oEditColumn.RightJustified = true; ogrid.Columns.Item("U_Glosa").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Glosa")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Glosa"; oEditColumn.RightJustified = false; ogrid.Columns.Item("U_FechaIn").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_FechaIn")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Fecha Movimiento"; oEditColumn.RightJustified = false; oForm.Mode = BoFormMode.fm_OK_MODE; } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
/// <summary> /// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다. /// </summary> private void Act03_DefualtSetting(SAPbouiCOM.Form oForm, string pStrPFormUID) { try { //메트릭스 첫줄 선택시 팝업박스 뜨는것 막는다. oForm.Settings.EnableRowFormat = false; // UDO, 네비게이션 사용하지 않음 oForm.SupportedModes = 1; // 메트릭스 설정 oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oGrid.SelectionMode = BoMatrixSelect.ms_Auto; // 부모창 ID 저장 oForm.DataSources.UserDataSources.Item("pFORMUID").Value = pStrPFormUID; // 부보창에 현재창 ID 저장 pForm = B1Connections.theAppl.Forms.Item(pStrPFormUID); pForm.DataSources.UserDataSources.Item("cFORMUID").Value = oForm.UniqueID; oForm.DataSources.DataTables.Add("grd"); FindData(oForm); } catch (Exception) { throw; } }
public void SetGridTitle(SAPbouiCOM.Form oForm) { //ADD YOUR ACTION CODE HERE ... try { oForm.Freeze(true); //* 미발행 그리드 초기화 */ oForm.DataSources.DataTables.Add("grd"); oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); FN.SetGridTitle(oGrid , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)); oGrid.RowHeaders.Width = 0; oGrid.AutoResizeColumns(); oGrid.SelectionMode = BoMatrixSelect.ms_NotSupported; } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText("SetGridTitle " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oForm.Freeze(false); oForm.Refresh(); } }
/// <summary> /// CMS신청 취소 실행 전 실행 가능여부 체크 /// </summary> /// <param name="oForm"></param> /// <returns></returns> private bool BeforeCancel_ValidationCheck(SAPbouiCOM.Form oForm) { bool rtnValue = false; string pDocEntry = string.Empty; try { oGrid = oForm.Items.Item("grd").Specific; if (oGrid.Rows.SelectedRows.Count == 0) return rtnValue; int idx = oGrid.GetDataTableRowIndex(oGrid.Rows.SelectedRows.Item(0, BoOrderType.ot_SelectionOrder)); pDocEntry = FN.GetGridCellValue(ref oGrid, "DocEntry", idx); if (string.IsNullOrEmpty(pDocEntry)) { B1Connections.theAppl.StatusBar.SetText("선택한 자료가 존재하지 않습니다.", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); rtnValue = false; } else rtnValue = true; } catch (Exception) { throw; } return rtnValue; }
private void ClearUnManagedObject() { if (oComboBox != null) { Marshal.ReleaseComObject(oComboBox); } oComboBox = null; if (oGrid != null) { Marshal.ReleaseComObject(oGrid); } oGrid = null; if (oUDS != null) { Marshal.ReleaseComObject(oUDS); } oUDS = null; //if (gDs.Tables[oForm.UniqueID + "_Deliver"] != null) gDs.Tables[oForm.UniqueID + "_Deliver"] = null; //if (gDs.Tables[oForm.UniqueID + "_Call"] != null) gDs.Tables[oForm.UniqueID + "_Call"] = null; if (gDs != null) { if(gDs.Tables.Contains(oForm.UniqueID + "_Deliver")) { gDs.Tables.Remove(oForm.UniqueID + "_Deliver"); } if (gDs.Tables.Contains(oForm.UniqueID + "_Call")) { gDs.Tables.Remove(oForm.UniqueID + "_Call"); } } if (oDB_M != null) { Marshal.ReleaseComObject(oDB_M); } oDB_M = null; if (oMatrix != null) { Marshal.ReleaseComObject(oMatrix); } oMatrix = null; if (oDB1_O != null) { Marshal.ReleaseComObject(oDB1_O); } oDB1_O = null; if (oDB1_Z != null) { Marshal.ReleaseComObject(oDB1_Z); } oDB1_Z = null; if (oDB2_O != null) { Marshal.ReleaseComObject(oDB2_O); } oDB2_O = null; if (oDB2_Z != null) { Marshal.ReleaseComObject(oDB2_Z); } oDB2_Z = null; if (oRS != null) { Marshal.ReleaseComObject(oRS); } oRS = null; if (oEditText != null) { Marshal.ReleaseComObject(oEditText); } oEditText = null; if ((oForm != null)) { Marshal.ReleaseComObject(oForm); } oForm = null; // ADD YOUR ACTION CODE HERE ... System.GC.Collect(); System.GC.WaitForPendingFinalizers(); }
/// <summary> /// Grid 조회 /// </summary> /// <param name="oForm">폼</param> internal static void FindData(SAPbouiCOM.Form oForm) { string pFORMUID = oForm.DataSources.UserDataSources.Item("pFORMUID").ValueEx; SAPbouiCOM.Form pForm = (SAPbouiCOM.Form)B1Connections.theAppl.Forms.Item(pFORMUID); SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; string edtDOCDTF = pForm.DataSources.UserDataSources.Item("edtDOCDTF").Value; string edtDOCDTT = pForm.DataSources.UserDataSources.Item("edtDOCDTT").Value; string cboSLPCD = pForm.DataSources.UserDataSources.Item("cboSLPCD").Value; string cboBILLTP = pForm.DataSources.UserDataSources.Item("cboBILLTP").Value; string edtCARDCDF = pForm.DataSources.UserDataSources.Item("edtCARDCDF").Value; string cboPRCCD2 = pForm.DataSources.UserDataSources.Item("cboPRCCD2").Value; string edtBPCDF = pForm.DataSources.UserDataSources.Item("edtBPCDF").Value; string cboPRCCD = pForm.DataSources.UserDataSources.Item("cboPRCCD").Value; string edtDOCDTF2 = pForm.DataSources.UserDataSources.Item("edtDOCDTF2").Value; string edtDOCDTT2 = pForm.DataSources.UserDataSources.Item("edtDOCDTT2").Value; string cboPUBLICA = pForm.DataSources.UserDataSources.Item("cboPUBLICA").Value; string cboPAYTP = pForm.DataSources.UserDataSources.Item("cboPAYTP").Value; string edtPAYMTH = pForm.DataSources.UserDataSources.Item("edtPAYMTH").Value; StringBuilder pQuery = new StringBuilder(); string query = string.Empty; pQuery.AppendLine(" EXEC [KIS_SP_SD0140F_HRD] "); pQuery.AppendLine(" @edtDOCDTF = '{0}' "); pQuery.AppendLine(" ,@edtDOCDTT = '{1}' "); pQuery.AppendLine(" ,@cboSLPCD = '{2}' "); pQuery.AppendLine(" ,@cboBILLTP = '{3}' "); pQuery.AppendLine(" ,@edtCARDCDF = '{4}' "); pQuery.AppendLine(" ,@cboPRCCD2 = '{5}' "); pQuery.AppendLine(" ,@edtBPCDF = '{6}' "); pQuery.AppendLine(" ,@cboPRCCD = '{7}' "); pQuery.AppendLine(" ,@edtDOCDTF2 = '{8}' "); pQuery.AppendLine(" ,@edtDOCDTT2 = '{9}' "); pQuery.AppendLine(" ,@cboPUBLICA = '{10}' "); pQuery.AppendLine(" ,@cboPAYTP = '{11}' "); pQuery.AppendLine(" ,@edtPAYMTH = '{12}' "); string sQry = string.Format(pQuery.ToString(), edtDOCDTF, edtDOCDTT, cboSLPCD, cboBILLTP, edtCARDCDF, cboPRCCD2, edtBPCDF, cboPRCCD, edtDOCDTF2, edtDOCDTT2, cboPUBLICA, cboPAYTP, edtPAYMTH); try { oGrid.SelectionMode = BoMatrixSelect.ms_Single; string cv_ColumnsUID_s = "ORDERBY,U_DOCDT,U_DOCDT2,DocEntry,U_PUBLICA,U_CARDCD,U_CARDNM,U_BILLTP,U_PAYTP,U_PAYMNM,U_DEPAMT,U_DEDUTION,AMTSUM,U_BPCD,U_BPNM,U_DOCTOT,U_PRCNM,U_SLPNM,IDX"; string cv_NoEditable_s = "ORDERBY,U_DOCDT,U_DOCDT2,DocEntry,U_PUBLICA,U_CARDCD,U_CARDNM,U_BILLTP,U_PAYTP,U_PAYMNM,U_DEPAMT,U_DEDUTION,AMTSUM,U_BPCD,U_BPNM,U_DOCTOT,U_PRCNM,U_SLPNM,IDX"; string cv_ColumnsNAM_s = "ORDERBY,수금전기일,매출전기일,문서번호,간행물,매출처,매출처명,수금유형,지급유형,지급방법,입금합계,공제금액,총수금액,대행사,대행사명,매출합계,수금부서,영업사원,IDX"; string cv_Right_Just_s = "U_DEPAMT,U_DEDUTION,AMTSUM,U_DOCTOT"; string cv_No_Visible_s = "ORDERBY,IDX"; B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다 oForm.Freeze(true); oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry); oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display //조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제 if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue(2, 0).ToString() == "") { FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s); B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다. } else { FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s); //FN.SetGridSumField(ref oGrid, cv_Right_Just_s); FN.SetGirdColumnLinkedObjec(ref oGrid, "DocEntry", BoLinkedObject.lf_BusinessPartner); FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CARDCD", BoLinkedObject.lf_BusinessPartner); FN.SetGirdColumnLinkedObjec(ref oGrid, "U_BPCD", BoLinkedObject.lf_BusinessPartner); //지급유형 SAPbouiCOM.EditTextColumn oEditCol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_PAYTP"); oEditCol.Type = BoGridColumnType.gct_ComboBox; SAPbouiCOM.ComboBoxColumn oComboCol = (SAPbouiCOM.ComboBoxColumn)oGrid.Columns.Item("U_PAYTP"); oComboCol.ValidValues.Add("1", "현금"); oComboCol.ValidValues.Add("2", "은행이체"); oComboCol.ValidValues.Add("3", "어음"); oComboCol.ValidValues.Add("4", "대체"); oComboCol.DisplayType = BoComboDisplayType.cdt_Description; //수금유형 oEditCol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_BILLTP"); oEditCol.Type = BoGridColumnType.gct_ComboBox; oComboCol = (SAPbouiCOM.ComboBoxColumn)oGrid.Columns.Item("U_BILLTP"); oComboCol.ValidValues.Add("1", "입금"); oComboCol.ValidValues.Add("2", "선수입금"); oComboCol.ValidValues.Add("3", "대행료 대체입금"); oComboCol.ValidValues.Add("4", "지급"); oComboCol.ValidValues.Add("5", "기타 대체"); oComboCol.DisplayType = BoComboDisplayType.cdt_Description; B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료 oGrid.RowHeaders.Width = 0; //FN.SetGirdSort(ref oGrid1); oGrid.AutoResizeColumns(); } } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oForm.Freeze(false); oGrid = null; } }
/// <summary> /// 그리드 컬럼 합계를 계산하고 헤더테이블의 DBDataSource에 갱신합니다. /// </summary> private void SetGridCalc_Sum() { try { oGrid = oForm.Items.Item("grd1").Specific; XDocument root = XDocument.Parse(oGrid.DataTable.SerializeAsXML(BoDataTableXmlSelect.dxs_DataOnly)); //필터링 : 선택된 행의 컬랙션을 조회합니다. var query = from c in root.Descendants("Row") where c.Elements("Cells").Elements("Cell").Any(o => o.Element("ColumnUid").Value == "U_CHK" && o.Element("Value").Value == "Y") select c; //금액 집계 double U_OPENAMT = TR_COMMON_HRD.GetCoumnValue(query, "U_OPENAMT").Sum();//총 입금액 double U_TRANSAMT = TR_COMMON_HRD.GetCoumnValue(query, "U_TRANSAMT").Sum();//총 지급액 //double U_DEDUTION = GetCoumnValue(query, "U_DEDUTION").Sum();//공제액 ///*컬럼 합계*/ ((SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_OPENAMT")).ColumnSetting.SumValue = U_OPENAMT.ToString(); ((SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_TRANSAMT")).ColumnSetting.SumValue = U_TRANSAMT.ToString(); } catch (Exception) { throw; } }
private void ClearUnManagedObject() { if (oButton != null) { Marshal.ReleaseComObject(oButton); } oButton = null; if (oGrid != null) { Marshal.ReleaseComObject(oGrid); } oGrid = null; if ((oForm != null)) { Marshal.ReleaseComObject(oForm); } oForm = null; // ADD YOUR ACTION CODE HERE ... System.GC.Collect(); System.GC.WaitForPendingFinalizers(); }
public virtual bool ET_grd_BFClick(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... if (pVal.Row == -1) { oGrid.SelectionMode = BoMatrixSelect.ms_None; } else { oGrid.SelectionMode = BoMatrixSelect.ms_Single; } return true; }
public virtual void ET_grd_AFClick(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... try { if (pVal.Row != -1) { //string cboTAKEYM = FN.GetGridCellValue(ref oGrid, "U_TAKEYM", pVal.Row); //string edtTAKEDT = FN.GetGridCellValue(ref oGrid, "U_TAKEDT", pVal.Row); //oUDS = oForm.DataSources.UserDataSources; //oUDS.Item("cboTAKEYM").Value = cboTAKEYM; //oUDS.Item("edtTAKEDT").Value = FN.SetDateFormatToDB(edtTAKEDT, FN.eDateType.n_YYYYMMDD); oGrid.Rows.SelectedRows.Add(pVal.Row); } } catch (Exception) { throw; } }
public virtual bool ET_grd_BFMatrixLinkPressed(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... if (pVal.ColUID == "DocEntry") { KIS_SO0391A_HRD KIS_SO0391A_HRD = new KIS_SO0391A_HRD(); KIS_SO0391A_HRD.Act0_SubFormInit(oForm.UniqueID, FN.GetGridCellValue(ref oGrid, "DocEntry", pVal.Row)); return false; } return true; }
internal static void FindData(SAPbouiCOM.Form oForm) { string pFORMUID = oForm.DataSources.UserDataSources.Item("pFORMUID").ValueEx; SAPbouiCOM.Form pForm = (SAPbouiCOM.Form)B1Connections.theAppl.Forms.Item(pFORMUID); SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; string cboBPLID = string.Empty; string edtFRDT = string.Empty; string edtTODT = string.Empty; string edtFRPRCCD = string.Empty; string edtTOPRCCD = string.Empty; string cboTRANSTY = string.Empty; string strReportFiles = string.Empty; StringBuilder pQuery = new StringBuilder(); string query = string.Empty; try { oForm.Items.Item("grd").Enabled = false; cboBPLID = pForm.DataSources.UserDataSources.Item("cboBPLID").Value; edtFRDT = pForm.DataSources.UserDataSources.Item("edtFRDT").Value; edtTODT = pForm.DataSources.UserDataSources.Item("edtTODT").Value; edtFRPRCCD = pForm.DataSources.UserDataSources.Item("edtFRPRCCD").Value; edtTOPRCCD = pForm.DataSources.UserDataSources.Item("edtTOPRCCD").Value; cboTRANSTY = pForm.DataSources.UserDataSources.Item("cboTRANSTY").Value; oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oGrid.SelectionMode = BoMatrixSelect.ms_Single; pQuery.Append(" EXEC KIS_SP_FI0050F1_HRD @cboBPLID = '{0}' "); pQuery.Append(" , @edtFRDT = '{1}' "); pQuery.Append(" , @edtTODT = '{2}' "); pQuery.Append(" , @edtFRPRCCD = '{3}' "); pQuery.Append(" , @edtTOPRCCD = '{4}' "); pQuery.Append(" , @cboTRANSTY = '{5}' "); string cv_ColumnsUID_s = "ROWSID,U_BPLID,RefDate,TransId,U_PRCNM,Debit,Credit,JEDT,U_PRCCD,BatchNum,TransType,TransNM,CreateDate"; string cv_NoEditable_s = "ROWSID,U_BPLID,RefDate,TransId,U_PRCNM,Debit,Credit,JEDT,U_PRCCD,BatchNum,TransType,TransNM,CreateDate"; string cv_ColumnsNAM_s = "#,사업장,전기일자,분개번호,코스트센터명,차변,대변,분개장 전기일,코스트센터,분개장 번호,입력경로코드,입력경로,분개 생성일"; string cv_Right_Just_s = "Debit,Credit"; string cv_No_Visible_s = "TransType"; B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다 oForm.Freeze(true); string sQry = (string.Format(pQuery.ToString() , cboBPLID , edtFRDT , edtTODT , edtFRPRCCD , edtTOPRCCD , cboTRANSTY )); oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry); //조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제 if (oGrid.DataTable.Rows.Count == 0) { FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s); B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다. } else { FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s); /* 링크버튼 조작 */ FN.SetGirdColumnLinkedObjec(ref oGrid, "TransId", BoLinkedObject.lf_JournalPosting);//분개 FN.SetGirdColumnLinkedObjec(ref oGrid, "BatchNum", BoLinkedObject.lf_JournalVoucher);//분개장 /* 자동정렬 */ oGrid.AutoResizeColumns(); /*컬럼 길이 조작*/ oGrid.RowHeaders.Width = 0; B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료 } } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oForm.Freeze(false); oGrid = null; } }
public virtual bool ET_grd_BFClick(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... if (pVal.Row != -1) oGrid.Rows.SelectedRows.Clear(); else return false; return true; }
public virtual bool ET_grd_BFMatrixLinkPressed(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... if (pVal.ColUID == "U_READCD") { // 메모리에 SO.SO_COMMON_HRD.KeyValue = FN.GetGridCellValue(ref oGrid, "U_READCD", pVal.Row); B1Connections.theAppl.ActivateMenuItem("KIS_SO0030A_HRD"); return false; } else if (pVal.ColUID == "U_CENTCD") { // 메모리에 SO.SO_COMMON_HRD.KeyValue = FN.GetGridCellValue(ref oGrid, "U_CENTCD", pVal.Row); B1Connections.theAppl.ActivateMenuItem("KIS_SO0040A_HRD"); return false; } return true; }
public virtual void ET_grd_AFClick(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... try { if (pVal.Row > -1) { oGrid.Rows.SelectedRows.Clear(); oGrid.Rows.SelectedRows.Add(pVal.Row); } } catch (Exception) { throw; } }
private SAPbouiCOM.DataTable FindData(SAPbouiCOM.Form oForm) { //ADD YOUR ACTION CODE HERE ... SAPbouiCOM.Grid oGrid; StringBuilder sb; string strCALLPER = string.Empty; string strColYyyyMm = string.Empty; string strCENTCE_FR = string.Empty; string strCENTCE_TO = string.Empty; try { oForm.Freeze(true); oUDS = oForm.DataSources.UserDataSources; strCALLPER = oUDS.Item("edtCALLPER").ValueEx; strCENTCE_FR = oUDS.Item("edtCENTCD1").ValueEx; strCENTCE_TO = oUDS.Item("edtCENTCD2").ValueEx; sb = new StringBuilder(); //조회 sb.AppendLine(" EXEC KIS_SP_SO0260F1_HRD @pQUERY_TYPE = '{0}' "); sb.AppendLine(" , @pPERSON = '{1}' "); sb.AppendLine(" , @pCENTCD_FR = '{2}' "); sb.AppendLine(" , @pCENTCD_TO = '{3}' "); B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다 oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), "Q", strCALLPER, strCENTCE_FR, strCENTCE_TO)); oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제 if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("U_READCD", 0).ToString() == null || oGrid.DataTable.GetValue("U_READCD", 0).ToString() == "")) { FN.SetGridTitle(oGrid , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)); } else { strColYyyyMm = FN.GetRecordsetValue(string.Format(sb.ToString(), "C", "", "", "", "")).Replace("[", "").Replace("]", ""); FN.SetGrdColumnNumber(ref oGrid, "", GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight) + "," + strColYyyyMm, "", ""); // 독자 링크버튼추가 FN.SetGirdColumnLinkedObjec(ref oGrid, "U_READCD", BoLinkedObject.lf_BusinessPartner); // 지국 링크버튼추가 FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CENTCD", BoLinkedObject.lf_BusinessPartner); FN.BindGrid(oGrid , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) + "," + strColYyyyMm , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) + "," + strColYyyyMm , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable) + "," + strColYyyyMm , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible) , "" , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight) + "," + strColYyyyMm); //FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA) //oGrid.RowHeaders.Width = 0; oGrid.AutoResizeColumns(); } } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText("ET_btnFind_AFItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oForm.Freeze(false); oForm.Refresh(); } SAPbouiCOM.DataTable dt = oForm.DataSources.DataTables.Item("grd"); return dt; }
private void FindRequestData(SAPbouiCOM.Form oForm) { //ADD YOUR ACTION CODE HERE ... SAPbouiCOM.Grid oGrid; StringBuilder sb; string strREADCD = string.Empty; try { oForm.Freeze(true); oUDS = oForm.DataSources.UserDataSources; oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_SO0030M_HRD"); strREADCD = oDB_M.GetValue("Code", 0).Trim(); sb = new StringBuilder(); //조회 /* sb.AppendLine(" SELECT M.U_REQYM AS U_YYYYMM "); sb.AppendLine(" , M.U_AMT AS REQAMT "); sb.AppendLine(" , M.U_DATE AS DEPO_DATE "); sb.AppendLine(" , M.U_INAMT AS DEPO_AMT "); sb.AppendLine(" , M.U_SMLNM + ' ' + M.U_SMLNM2 AS U_PMETHOD "); sb.AppendLine(" , M.U_STATUS AS U_STATUS "); sb.AppendLine(" FROM ( "); sb.AppendLine(" SELECT A.U_READCD "); sb.AppendLine(" , A.U_REQYM "); sb.AppendLine(" , (SELECT SUM(CASE ISNULL(F.U_TYPE, '') WHEN '110' THEN ISNULL(F.U_DEBIT, 0) "); sb.AppendLine(" WHEN '120' THEN (-1) * ISNULL(F.U_CREDIT, 0) "); sb.AppendLine(" ELSE 0 END) "); sb.AppendLine(" FROM [@KIS_SO01403_HRD] F "); sb.AppendLine(" WHERE A.DocEntry = F.DocEntry "); sb.AppendLine(" AND A.LineId = F.U_UPLINEID "); sb.AppendLine(" AND F.U_TYPE IN ('110', '120') ) AS U_AMT "); sb.AppendLine(" , CASE WHEN ISNULL(B.U_TYPE, '') NOT IN ('110', '120','150') THEN ISNULL(B.U_CREDIT, 0) ELSE 0 END AS U_INAMT "); sb.AppendLine(" , B.U_DATE "); sb.AppendLine(" , ISNULL(B.U_DEBIT,0) AS U_DEBIT "); sb.AppendLine(" , ISNULL(B.U_CREDIT,0) AS U_CREDIT "); sb.AppendLine(" , B.U_TYPE "); sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO54' AND F.U_CD = B.U_TYPE) AS U_SMLNM "); sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO51' AND F.U_SMLCD = B.U_SUBTYPE) AS U_SMLNM2 "); sb.AppendLine(" , A.U_STATUS "); sb.AppendLine(" FROM [@KIS_SO01401_HRD] A "); sb.AppendLine(" LEFT OUTER JOIN [@KIS_SO01403_HRD] B ON A.DocEntry = B.DocEntry "); sb.AppendLine(" AND A.LineId = B.U_UPLINEID "); sb.AppendLine(" AND B.U_TYPE NOT IN ('110', '120', '150') "); sb.AppendLine(" ) M "); sb.AppendLine(" WHERE M.U_AMT <> 0 AND M.U_READCD = '{0}' "); sb.AppendLine(" ORDER BY M.U_READCD, M.U_REQYM "); */ sb.AppendLine(" SELECT CASE WHEN ROW_NUMBER() OVER (PARTITION BY M.U_READCD, M.U_REQYM ORDER BY M.U_READCD, M.U_REQYM, M.U_AMT, M.DocEntry, M.LineId, M.U_DATE) = 1 THEN M.U_REQYM ELSE NULL END AS U_YYYYMM "); sb.AppendLine(" , CASE WHEN ROW_NUMBER() OVER (PARTITION BY M.U_READCD, M.U_REQYM ORDER BY M.U_READCD, M.U_REQYM, M.U_AMT, M.DocEntry, M.LineId, M.U_DATE) = 1 THEN M.U_AMT ELSE NULL END AS REQAMT "); sb.AppendLine(" , M.U_DATE AS DEPO_DATE "); sb.AppendLine(" , M.U_INAMT AS DEPO_AMT "); sb.AppendLine(" , M.U_SMLNM + (CASE ISNULL(M.U_SMLNM2,'') WHEN '' THEN '' ELSE ' ' + M.U_SMLNM2 END) AS U_PMETHOD "); sb.AppendLine(" , M.U_STATUS AS U_STATUS "); sb.AppendLine(" FROM ( "); sb.AppendLine(" SELECT A.U_READCD "); sb.AppendLine(" , A.U_REQYM "); sb.AppendLine(" , A.DocEntry "); sb.AppendLine(" , A.LineId "); sb.AppendLine(" , ISNULL((SELECT SUM(ISNULL(F.U_DEBIT, 0)) "); sb.AppendLine(" FROM [@KIS_SO01403_HRD] F "); sb.AppendLine(" WHERE A.DocEntry = F.DocEntry "); sb.AppendLine(" AND A.LineId = F.U_UPLINEID "); sb.AppendLine(" AND F.U_TYPE IN ('110') ), 0) AS U_AMT "); sb.AppendLine(" , CASE WHEN ISNULL(B.U_TYPE, '') NOT IN ('110','150','910','920','000') THEN ISNULL(B.U_CREDIT, 0) ELSE 0 END AS U_INAMT "); sb.AppendLine(" , B.U_DATE "); sb.AppendLine(" , ISNULL(B.U_DEBIT,0) AS U_DEBIT "); sb.AppendLine(" , ISNULL(B.U_CREDIT,0) AS U_CREDIT "); sb.AppendLine(" , B.U_TYPE "); sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO54' AND F.U_CD = B.U_TYPE) AS U_SMLNM "); sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO51' AND F.U_SMLCD = B.U_SUBTYPE) AS U_SMLNM2 "); sb.AppendLine(" , A.U_STATUS "); sb.AppendLine(" FROM [@KIS_SO01401_HRD] A "); sb.AppendLine(" LEFT OUTER JOIN [@KIS_SO01403_HRD] B ON A.DocEntry = B.DocEntry "); sb.AppendLine(" AND A.LineId = B.U_UPLINEID "); sb.AppendLine(" AND B.U_TYPE NOT IN ('110','150','910','920','000') "); sb.AppendLine(" ) M "); sb.AppendLine(" WHERE M.U_AMT <> 0 AND M.U_READCD = '{0}' "); sb.AppendLine(" ORDER BY M.U_READCD, M.U_REQYM "); B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다 oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), strREADCD)); oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display //1. 납부방법 //FN.SetComboBoxValidValues(oGrid, "U_PMETHOD", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO09' ", FN.Enum_WholeTp.m_Nothing); //2. 상태 FN.SetComboBoxValidValues(oGrid, "U_STATUS", " SELECT 'O' [Code], '미납' AS [Name] UNION ALL SELECT 'C' [Code], '완납' AS [Name] ", FN.Enum_WholeTp.m_Nothing); //조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제 if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("U_YYYYMM", 0).ToString() == null || oGrid.DataTable.GetValue("U_YYYYMM", 0).ToString() == "")) { FN.SetGridTitle(oGrid , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)); } else { FN.BindGrid(oGrid , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable) , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible) , "" , GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight)); //FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA) oGrid.RowHeaders.Width = 0; oGrid.AutoResizeColumns(); } } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText("FindRequestData " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oForm.Freeze(false); oForm.Refresh(); } }
public void SetGridTitle(SAPbouiCOM.Form oForm) { oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); string cv_ColumnsUID_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE "; string cv_ColumnsNAM_s = " 문서번호, 신청접수년월, 신청접수일자, 신청파일이름, 결과파일이름, 총건수, 신규등록건수, 변경등록건수, 해지등록건수, 임의해지건수, 실행일자, 실행시간, 실행자 "; string cv_No_Visible_s = " "; FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s); oGrid.RowHeaders.Width = 0; oGrid.AutoResizeColumns(); //string expr = "BackColor=#DBE4F6&Width(ZIP_CD=80,ADDR_KOR=345)"; //FN.SetColumnProperty(oForm, "grd", expr); }
public virtual void ET_OnFormResize(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); // ADD YOUR ACTION CODE HERE ... SAPbouiCOM.Item oItemRet = oForm.Items.Item("retFOLD"); SAPbouiCOM.Item oItemGrd = oForm.Items.Item("grd"); oGrid = oForm.Items.Item("grd").Specific; SAPbouiCOM.Item oItem1Mtx = oForm.Items.Item("mtx1_DUMY"); SAPbouiCOM.Item oItem2Mtx = oForm.Items.Item("mtx2_DUMY"); SAPbouiCOM.Item oItem3Mtx = oForm.Items.Item("mtx1_ORIG"); SAPbouiCOM.Item oItem4Mtx = oForm.Items.Item("mtx2_ORIG"); // 폴더박스 리사이즈 oItemRet.Height = oForm.Height - 110; oItemRet.Width = oForm.Width - 30; // 상담이력 메트릭스 oItem2Mtx.Top = oItem1Mtx.Height + 200; oItem2Mtx.Width = oForm.Width - 425; oItem2Mtx.Height = 140; // 청구데이터(그리드) oItemGrd.Top = oItem1Mtx.Height + 200; oItemGrd.Width = 360; oItemGrd.Height = 140; // 안보이는 메트릭스 oItem3Mtx.Left = oForm.Width + 100; oItem4Mtx.Left = oForm.Width + 100; if (oGrid.Columns.Count > 0) oGrid.AutoResizeColumns(); ((SAPbouiCOM.Matrix)oForm.Items.Item("mtx1_DUMY").Specific).AutoResizeColumns(); ((SAPbouiCOM.Matrix)oForm.Items.Item("mtx2_DUMY").Specific).AutoResizeColumns(); }
private void FindData(SAPbouiCOM.Form oForm) { string cv_ColumnsUID_s; string cv_NoEditable_s; string cv_ColumnsNAM_s; string cv_Right_Just_s; string cv_No_Visible_s; StringBuilder sb = new StringBuilder(); string cboTAKEYM = string.Empty; string edtTAKEDT = string.Empty; try { oForm.Freeze(true); oUDS = oForm.DataSources.UserDataSources; cboTAKEYM = oUDS.Item("cboTAKEYM").ValueEx.Trim(); edtTAKEDT = oUDS.Item("edtTAKEDT").ValueEx; oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific; oGrid.SelectionMode = BoMatrixSelect.ms_Single; cv_ColumnsUID_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE "; cv_NoEditable_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE "; cv_ColumnsNAM_s = " 문서번호, 신청접수년월, 신청접수일자, 신청파일이름, 결과파일이름, 총건수, 신규등록건수, 변경등록건수, 해지등록건수, 임의해지건수, 실행일자, 실행시간, 실행자 "; cv_Right_Just_s = " DocEntry, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT "; cv_No_Visible_s = " "; sb.AppendLine(" SELECT T0.DocEntry "); sb.AppendLine(" , T0.U_TAKEYM "); sb.AppendLine(" , T0.U_TAKEDT "); //sb.AppendLine(" , T0.U_DESC "); sb.AppendLine(" , T0.U_SFILE "); sb.AppendLine(" , T0.U_EFILE "); sb.AppendLine(" , T0.U_TOTCNT "); sb.AppendLine(" , T0.U_NEWCNT "); sb.AppendLine(" , T0.U_MODCNT "); sb.AppendLine(" , T0.U_CLOCNT "); sb.AppendLine(" , T0.U_RCLCNT "); sb.AppendLine(" , T0.CreateDate "); sb.AppendLine(" , T0.CreateTime "); sb.AppendLine(" , (SELECT F.USER_CODE FROM OUSR F WHERE F.USERID = T0.UserSign) AS USER_CODE "); sb.AppendLine(" FROM [@KIS_SO0390T_HRD] T0 "); sb.AppendLine(" WHERE (ISNULL('{0}','') = '' OR (T0.U_TAKEYM = '{0}')) "); sb.AppendLine(" AND (ISNULL('{1}','') = '' OR (T0.U_TAKEDT = '{1}')) "); sb.AppendLine(" ORDER BY T0.U_TAKEYM, T0.U_TAKEDT "); oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), cboTAKEYM, edtTAKEDT)); oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display if (oGrid.DataTable.Rows.Count == 1) { if (oGrid.DataTable.Columns.Item("DocEntry").Cells.Item(0).Value.ToString().Trim() == "0") { oGrid.DataTable.Rows.Clear(); } } FN.SetGirdColumnLinkedObjec(ref oGrid, "DocEntry", BoLinkedObject.lf_ProfitCenter); FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s); oGrid.RowHeaders.Width = 0; oGrid.AutoResizeColumns(); } catch (Exception) { //oForm.Freeze(false); throw; } finally { oForm.Freeze(false); oGrid = null; } }
public virtual bool ET_grd_BFMatrixLinkPressed(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... try { int oRowIndex = oGrid.GetDataTableRowIndex(pVal.Row); string KeyValue = string.Empty; switch (pVal.ColUID) { case "DocEntry": KeyValue = FN.GetGridCellValue(ref oGrid, "DocEntry", pVal.Row); LoadSubForm(oForm, "KIS_SD0080_HRD", KeyValue); return false; default: break; } } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } return true; }
private bool ExecuteData(SAPbouiCOM.Form oForm) { bool rtnValue = true; string cboTAKEYM = FN.GetDataSourceValue(oForm, "cboTAKEYM"); string edtTAKEDT = FN.GetDataSourceValue(oForm, "edtTAKEDT"); if (!FN.CondValidationChk(oForm, "cboTAKEYM,edtTAKEDT", "sttTAKEYM,sttTAKEDT")) return false; StringBuilder sb = new StringBuilder(); SAPbobsCOM.Recordset oRS = null; try { oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset); sb.AppendLine(" EXEC KIS_SP_SO0390B_HRD "); sb.AppendFormat(" @pTAKEYM = '{0}' ", cboTAKEYM); sb.AppendFormat(" , @pTAKEDT = '{0}' ", FN.SetDateFormatToDB(edtTAKEDT, FN.eDateType.n_YYYYMMDD)); sb.AppendFormat(" , @pUserSign = '{0}' ", B1Connections.diCompany.UserSignature.ToString()); sb.AppendFormat(" , @pWorkGubun = '{0}' ", "I"); oRS.DoQuery(sb.ToString()); B1Connections.theAppl.StatusBar.SetText("CMS 출금이체신청 내역 생성을 완료 하였습니다.", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success); } catch (Exception ex) { rtnValue = false; B1Connections.theAppl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oGrid = null; if (oRS != null) { Marshal.ReleaseComObject(oRS); } oRS = null; } return rtnValue; }
public virtual void ET_grd_AFClick(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific)); // ADD YOUR ACTION CODE HERE ... if ((oGrid.Rows.Count > 0) && (pVal.Row >= 0)) { oGrid.Rows.SelectedRows.Add(pVal.Row); } }
private bool CancelData(SAPbouiCOM.Form oForm) { bool rtnValue = true; StringBuilder sb = new StringBuilder(); string strValue = string.Empty; string pDocEntry = string.Empty; SAPbobsCOM.Recordset oRS = null; try { oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset); oGrid = oForm.Items.Item("grd").Specific; int idx = oGrid.GetDataTableRowIndex(oGrid.Rows.SelectedRows.Item(0, BoOrderType.ot_SelectionOrder)); pDocEntry = FN.GetGridCellValue(ref oGrid, "DocEntry", idx); oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset); sb.AppendLine(" EXEC KIS_SP_SO0390B_HRD "); sb.AppendFormat(" @pDocEntry = '{0}' " , pDocEntry); sb.AppendFormat(" , @pWorkGubun = '{0}' " , "D"); oRS.DoQuery(sb.ToString()); B1Connections.theAppl.StatusBar.SetText("CMS 출금이체신청 내역 삭제를 완료 하였습니다.", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success); } catch (Exception ex) { rtnValue = false; B1Connections.theAppl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } finally { oGrid = null; if (oRS != null) { Marshal.ReleaseComObject(oRS); } oRS = null; } return rtnValue; }
private void UDO_Add_Data(string U_FILENM) { SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralData oGeneralData = null; SAPbobsCOM.GeneralDataCollection oChildren = null; SAPbobsCOM.GeneralData oChild = null; SAPbobsCOM.GeneralDataParams oGeneralParams = null; SAPbobsCOM.CompanyService oCompanyService = (SAPbobsCOM.CompanyService)B1Connections.diCompany.GetCompanyService(); try { oGrid = oForm.Items.Item("grd1").Specific; oGeneralService = oCompanyService.GetGeneralService("KIS_TR0031_HRD"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); //헤더 추가 //FN.SetGeneralDataTHeader(ref oGeneralData, ref oKIS_SD0080T_HRD, BoUDOObjectType.udo_Document); string U_BPLID = oForm.DataSources.UserDataSources.Item("cboBPLID").Value; string U_VATRNUM = oForm.DataSources.UserDataSources.Item("edtVATRNUM").Value; string U_ACCOUNT = oForm.DataSources.UserDataSources.Item("edtACCOUNT").Value; string U_ACCTCD = oForm.DataSources.UserDataSources.Item("edtACCTCD").Value; string U_ACCTNM = oForm.DataSources.UserDataSources.Item("edtACCTNM").Value; string U_PAYDT = FN.SetDateFormatToDB( oForm.DataSources.UserDataSources.Item("edtPAYDT").Value); string U_PRCCD = oForm.DataSources.UserDataSources.Item("edtPRCCD").Value; string U_PRCNM = oForm.DataSources.UserDataSources.Item("edtPRCNM").Value; string U_DOCDT = Convert.ToDateTime(B1Connections.theAppl.Company.ServerDate).ToString("yyyy-MM-dd"); #region 헤더추가 oGeneralData.SetProperty("U_BPLID", U_BPLID);//사업장 oGeneralData.SetProperty("U_VATRNUM", U_VATRNUM);//주민등록번호 oGeneralData.SetProperty("U_ACCOUNT", U_ACCOUNT);//출금계좌 oGeneralData.SetProperty("U_ACCTCD", U_ACCTCD);//출금계정 oGeneralData.SetProperty("U_ACCTNM", U_ACCTNM);//출금계정명 oGeneralData.SetProperty("U_PAYDT", U_PAYDT);//지급일 oGeneralData.SetProperty("U_PRCCD", U_PRCCD);//코스트센터 oGeneralData.SetProperty("U_PRCNM", U_PRCNM);//코스트센터 oGeneralData.SetProperty("U_FILENM", U_FILENM);//파일이름 oGeneralData.SetProperty("U_DOCDT", U_DOCDT);//생성일 #endregion #region 라인추가 oChildren = oGeneralData.Child("KIS_TR00311_HRD"); string sXML = oGrid.DataTable.SerializeAsXML(BoDataTableXmlSelect.dxs_DataOnly); XDocument root = XDocument.Parse(sXML); //필터링 : 선택된 행의 컬랙션을 조회합니다. var query = from c in root.Descendants("Row") where c.Elements("Cells").Elements("Cell").Any(o => o.Element("ColumnUid").Value == "U_CHK" && o.Element("Value").Value == "Y") select c; foreach (XElement r in query) { oChild = oChildren.Add(); //변수 => 매핑 foreach (XElement c in r.Descendants("Cell")) { switch (c.Element("ColumnUid").Value) { case "U_DOCDT"://전기일 case "U_DUEDT"://만기일 oChild.SetProperty(c.Element("ColumnUid").Value,FN.SetDateFormatToDB(c.Element("Value").Value)); break; case "U_CARDCD"://거래처코드 case "U_CARDNM"://거래처명 case "U_ACCTCD"://계정코드 case "U_OBJTP"://원천유형 case "U_OBJENTRY"://원천번호 case "U_TRANSID"://분개번호 case "U_PRCCD"://코스트센터 case "U_TRANSAMT"://이체금액 case "U_MEMO"://분개비고 case "U_OWNER"://예금주 case "U_BANKCD"://은행 case "U_BANKNM"://은행명 case "U_ACCOUNT"://거래처 계좌번호 oChild.SetProperty(c.Element("ColumnUid").Value, c.Element("Value").Value); break; default: break; } } oChild = null; } oChildren = null; #endregion //B1Connections.diCompany.StartTransaction(); //oGeneralService에 oGeneralData 추가하고 추가된 GeneralData 반환값 얻기 oGeneralParams = oGeneralService.Add(oGeneralData); string str_DocEntry = ((int)oGeneralParams.GetProperty("DocEntry")).ToString(); LoadSubForm(oForm, "KIS_TR0031_HRD", str_DocEntry); } catch (Exception ex) { if (B1Connections.diCompany.InTransaction) { B1Connections.diCompany.EndTransaction(BoWfTransOpt.wf_RollBack); } throw; } finally { if (oGeneralService != null) { Marshal.ReleaseComObject(oGeneralService); oGeneralService = null; } if (oGeneralData != null) { Marshal.ReleaseComObject(oGeneralData); oGeneralData = null; } if (oChildren != null) { Marshal.ReleaseComObject(oChildren); oChildren = null; } if (oChild != null) { Marshal.ReleaseComObject(oChild); oChild = null; } if (oGeneralParams != null) { Marshal.ReleaseComObject(oGeneralParams); oGeneralParams = null; } if (oCompanyService != null) { Marshal.ReleaseComObject(oCompanyService); oCompanyService = null; } } }
public virtual bool ET_grd1_BFClick(ItemEvent pVal) { oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID); oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific)); // ADD YOUR ACTION CODE HERE ... try { if (pVal.ColUID == "U_CHK") { #region U_CHK 클릭시 기능 구현 if (pVal.Row >= 0) { oForm.Freeze(true); try { #region 문서단위 그룹선택 기능구현 int iRowIndex = oGrid.GetDataTableRowIndex(pVal.Row); string U_CHK = oGrid.DataTable.GetValue("U_CHK", iRowIndex).ToString().Trim(); if (U_CHK == "N") { oGrid.DataTable.SetValue("U_CHK", iRowIndex, "Y"); if (oGrid.Rows.IsSelected(pVal.Row) == false) { oGrid.Rows.SelectedRows.Add(pVal.Row); } } else { oGrid.DataTable.SetValue("U_CHK", iRowIndex, "N"); if (oGrid.Rows.IsSelected(pVal.Row)) { oGrid.Rows.SelectedRows.Remove(pVal.Row); } } #endregion } catch (Exception) { throw; } finally { SetGridCalc_Sum(); oForm.Freeze(false); } return false; } else { //전체선택 SetGridColumn_CheckBox_SelectAll(ref oGrid, "U_CHK"); SetGridCalc_Sum(); return false; } #endregion }// end (pVal.ColUID == "U_CHK") } catch (Exception ex) { B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } return true; }