}//fin FormEvent private void Distribuir() { Int64 iFolio; Int64 iDesde; Int64 iHasta; Int32 i; SAPbouiCOM.EditText oEditText; try { oMtx.Clear(); oMtx.FlushToDataSource(); oEditText = (EditText)(oForm.Items.Item("Desde").Specific); iDesde = Convert.ToInt64((System.String)(oEditText.Value), _nf); oEditText = (EditText)(oForm.Items.Item("Hasta").Specific); iHasta = Convert.ToInt64((System.String)(oEditText.Value), _nf); if (iDesde <= 0) { FSBOApp.StatusBar.SetText("Debe ingresar Folio desde", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } else if (iHasta <= 0) { FSBOApp.StatusBar.SetText("Debe ingresar Folio hasta", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } else if (iDesde >= iHasta) { FSBOApp.StatusBar.SetText("Ingrese rango Folio correcto", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } else { i = 0; for (iFolio = iDesde; iFolio <= iHasta; iFolio++) { oDBDSD.InsertRecord(i); oDBDSD.SetValue("U_Folio", i, Convert.ToString(iFolio)); oDBDSD.SetValue("U_Estado", i, "D"); i++; } if (Convert.ToDouble((System.String)(oDBDSD.GetValue("U_Folio", i)), _nf) == 0) { oDBDSD.RemoveRecord(i); } oMtx.LoadFromDataSource(); oColumn = oMtx.Columns.Item("Folio"); oColumn.TitleObject.Sortable = true; oColumn.TitleObject.Sort(SAPbouiCOM.BoGridSortType.gst_Ascending); } } catch (Exception e) { FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); OutLog("Distribuir: " + e.Message + " ** Trace: " + e.StackTrace); } }//fin Distribuir
private void BindDataNoForm() { oColumn = oColumns.Item("DSCardCode"); oColumn.DataBind.SetBound(true, "OCRD", "CardCode"); oColumn = oColumns.Item("DSCardName"); oColumn.DataBind.SetBound(true, "OCRD", "CardName"); oColumn = oColumns.Item("DSPhone"); oColumn.DataBind.SetBound(true, "OCRD", "Phone1"); //oColumn = oColumns.Item("DSPhoneInt"); //oColumn.DataBind.SetBound(true, "", "IntPhone"); }
private void fillLOVinCol(SAPbouiCOM.Column col, string attrId, string sql) { string strSelect = "SELECT \"U_Val\" , \"U_Descr\" FROM \"@B1_QA_ATTR_LOV\" WHERE \"U_AttrCode\" = '" + attrId + "' ORDER BY \"U_VisOrder\""; if (sql != "") { strSelect = sql; } System.Data.DataTable dtCodes = Program.objHrmsUI.getDataTable(strSelect, "getting codes LOV"); int i = 0; foreach (System.Data.DataRow dr in dtCodes.Rows) { col.ValidValues.Add(dr[0].ToString(), dr[1].ToString()); } }
private void AddMatrixNoForm() { LinkedButton oLink = null; oItem = oForm.Items.Add("Matrix1", BoFormItemTypes.it_MATRIX); oItem.Left = 5; oItem.Width = 500; oItem.Top = 5; oItem.Height = 150; oMatrix = ((SAPbouiCOM.Matrix)(oItem.Specific)); oColumns = oMatrix.Columns; oColumn = oColumns.Add("#", BoFormItemTypes.it_EDIT); oColumn.TitleObject.Caption = "#"; oColumn.Width = 30; oColumn.Editable = false; oColumn = oColumns.Add("DSCardCode", BoFormItemTypes.it_LINKED_BUTTON); oColumn.TitleObject.Caption = "Card Code"; oColumn.Width = 40; oColumn.Editable = true; oLink = (oColumn).ExtendedObject; oLink.LinkedObject = BoLinkedObject.lf_BusinessPartner; oColumn = oColumns.Add("DSCardName", BoFormItemTypes.it_EDIT); oColumn.TitleObject.Caption = "Name"; oColumn.Width = 40; oColumn.Editable = true; oColumn = oColumns.Add("DSPhone", BoFormItemTypes.it_EDIT); oColumn.TitleObject.Caption = "Phone"; oColumn.Width = 40; oColumn.Editable = true; //oColumn = oColumns.Add("DSPhone", BoFormItemTypes.it_EDIT); //oColumn.TitleObject.Caption = "Int.Phone"; //oColumn.Width = 40; //oColumn.Editable = true; }
private void selectAllWO() { try { oForm.Freeze(true); SAPbouiCOM.Column col = mtWO.Columns.Item("V_3"); if (col.TitleObject.Caption == "✓") { for (int i = 0; i < dtWebO.Rows.Count; i++) { dtWebO.SetValue("sel", i, "N"); col.TitleObject.Caption = ""; } } else { for (int i = 0; i < dtWebO.Rows.Count; i++) { string rdrNum = dtWebO.GetValue("RdrNum", i).ToString(); if (rdrNum != "") { continue; } dtWebO.SetValue("sel", i, "Y"); col.TitleObject.Caption = "✓"; } } mtWO.LoadFromDataSource(); oForm.Freeze(false); } catch (Exception ex) { oApplication.SetStatusBarMessage("Error occured " + ex.Message); // iniSalaryDetail(); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { Int32 i; //TFunctions Reg; 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_FEPROCED.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = true; oForm.SupportedModes = -1; // afm_All // VID_DelRow := true; // VID_DelRowOK := true; //oForm.DataBrowser.BrowseBy := "Code"; oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FEPROCED"); // Ok Ad Fnd Vw Rq Sec Lista.Add("mtx , f, t, f, f, r, 1"); //Lista.Add('Name , f, t, t, f, r, 1'); //Lista.Add('CardCode , f, t, t, f, r, 1'); //FSBOf.SetAutoManaged(var oForm, Lista); //oCombo := ComboBox(oForm.Items.Item('TipDoc').Specific); //oCombo.ValidValues.Add('33', 'Factura'); //s := '1'; //oCombo.Select(s, BoSearchKey.psk_ByValue); // AddChooseFromList(); oMtx = (Matrix)(oForm.Items.Item("mtx").Specific); // oColumn := SAPbouiCOM.Column(oMtx.Columns.Item('V_0')); // oColumn.ChooseFromListUID := 'CFL0'; // oColumn.ChooseFromListAlias:= 'Code'; // oMtx.AutoResizeColumns(); if (GlobalSettings.RunningUnderSQLServer) { s = @"select DocEntry, ISNULL(U_TipoDoc,'') TipoDoc, ISNULL(U_ProcNomE,'') ProcNomE, ISNULL(U_ProcNomD,'') ProcNomD, ISNULL(U_ProcNomR,'') ProcNomR, ISNULL(U_ProcNomC,'') ProcNomC, ISNULL(U_ProcNomDe,'') ProcNomDe, ISNULL(U_ProcNomL,'') ProcNomL, ISNULL(U_ProcNomS,'') ProcNomS, ISNULL(U_Habili,'Y') 'Habilitada', ISNULL(U_CantLineas,0) 'CantLineas' from [@VID_FEPROCED]"; } else { s = @"select ""DocEntry"", IFNULL(""U_TipoDoc"",'') ""TipoDoc"", IFNULL(""U_ProcNomE"",'') ""ProcNomE"", IFNULL(""U_ProcNomD"",'') ""ProcNomD"", IFNULL(""U_ProcNomR"",'') ""ProcNomR"", IFNULL(""U_ProcNomC"",'') ""ProcNomC"", IFNULL(""U_ProcNomDe"",'') ""ProcNomDe"", IFNULL(""U_ProcNomL"",'') ""ProcNomL"", IFNULL(""U_ProcNomS"",'') ""ProcNomS"", IFNULL(""U_Habili"",'Y') ""Habilitada"", IFNULL(""U_CantLineas"",0) ""CantLineas"" from ""@VID_FEPROCED"" "; } oRecordSet.DoQuery(s); i = 0; oDBDSH.Clear(); while (!oRecordSet.EoF) { oDBDSH.InsertRecord(i); oDBDSH.SetValue("DocEntry", i, Convert.ToString((System.Int32)(oRecordSet.Fields.Item("DocEntry").Value))); oDBDSH.SetValue("U_TipoDoc", i, (System.String)(oRecordSet.Fields.Item("TipoDoc").Value)); //oDBDSH.SetValue("U_TipoDocPE", i, (System.String)(oRecordSet.Fields.Item("TipoDocPE").Value)); oDBDSH.SetValue("U_ProcNomE", i, (System.String)(oRecordSet.Fields.Item("ProcNomE").Value)); oDBDSH.SetValue("U_ProcNomD", i, (System.String)(oRecordSet.Fields.Item("ProcNomD").Value)); oDBDSH.SetValue("U_ProcNomR", i, (System.String)(oRecordSet.Fields.Item("ProcNomR").Value)); oDBDSH.SetValue("U_ProcNomC", i, (System.String)(oRecordSet.Fields.Item("ProcNomC").Value)); //oDBDSH.SetValue("U_ProcNomDe", i, (System.String)(oRecordSet.Fields.Item("ProcNomDe").Value)); //oDBDSH.SetValue("U_ProcNomL", i, (System.String)(oRecordSet.Fields.Item("ProcNomL").Value)); //oDBDSH.SetValue("U_ProcNomS", i, (System.String)(oRecordSet.Fields.Item("ProcNomS").Value)); oDBDSH.SetValue("U_Habili", i, (System.String)(oRecordSet.Fields.Item("Habilitada").Value)); oDBDSH.SetValue("U_CantLineas", i, Convert.ToString((System.Int32)(oRecordSet.Fields.Item("CantLineas").Value))); oRecordSet.MoveNext(); i++; } oDBDSH.InsertRecord(i); oDBDSH.SetValue("DocEntry", i, ""); oDBDSH.SetValue("U_TipoDoc", i, ""); //oDBDSH.SetValue("U_TipoDocPE", i, ""); oDBDSH.SetValue("U_ProcNomE", i, ""); oDBDSH.SetValue("U_ProcNomD", i, ""); oDBDSH.SetValue("U_ProcNomR", i, ""); oDBDSH.SetValue("U_ProcNomC", i, ""); //oDBDSH.SetValue("U_ProcNomDe", i, ""); //oDBDSH.SetValue("U_ProcNomL", i, ""); //oDBDSH.SetValue("U_ProcNomS", i, ""); oDBDSH.SetValue("U_Habili", i, "Y"); oDBDSH.SetValue("U_CantLineas", i, "60"); if (GlobalSettings.RunningUnderSQLServer) //TipoDoc { s = @"select U1.FldValue 'Code', U1.Descr 'Name' from UFD1 U1 join CUFD U0 on U0.TableID = U1.TableID and U0.FieldID = U1.FieldID where U1.TableID = '@VID_FEPROCED' and U0.AliasID = '{0}'"; } else { s = @"select U1.""FldValue"" ""Code"", U1.""Descr"" ""Name"" from ""UFD1"" U1 join ""CUFD"" U0 on U0.""TableID"" = U1.""TableID"" and U0.""FieldID"" = U1.""FieldID"" where U1.""TableID"" = '@VID_FEPROCED' and U0.""AliasID"" = '{0}' "; } s = String.Format(s, "TipoDoc"); oRecordSet.DoQuery(s); oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("TipoDoc")); FSBOf.FillComboMtx(oColumn, ref oRecordSet, false); //((SAPbouiCOM.Column)oMtx.Columns.Item("TipoDocPE")).Visible = false; if (GlobalSettings.RunningUnderSQLServer) //Habilitado { s = @"select FldValue 'Code', Descr 'Name' from UFD1 where TableID = '@VID_FEPROCED' and FieldID = 2"; } else { s = @"select ""FldValue"" ""Code"", ""Descr"" ""Name"" from ""UFD1"" where ""TableID"" = '@VID_FEPROCED' and ""FieldID"" = 2"; } oRecordSet.DoQuery(s); oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("Habili")); FSBOf.FillComboMtx(oColumn, ref oRecordSet, false); //EditText(oForm.Items.Item('CardCode').Specific).Active := True; oMtx.LoadFromDataSource(); oForm.Mode = BoFormMode.fm_OK_MODE; oMtx.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
private void getAttributes(string itemCode) { oForm.Freeze(true); try { dtRpt.Rows.Clear(); mtRpt.LoadFromDataSource(); int colcnt = dtRpt.Columns.Count; for (int i = 1; i < colcnt; i++) { string colid = dtRpt.Columns.Item(1).Name; dtRpt.Columns.Remove(colid); mtRpt.Columns.Remove("m" + colid); } mtRpt.LoadFromDataSource(); int k = 1; string strRows = " SELECT t0.\"Code\", t0.\"Name\", t0.\"U_IGCode\", t1.\"Code\" AS \"AttrCode\", t1.\"Name\" AS \"AttrName\", t1.\"U_Descr\" AS \"AttrDescr\", t1.\"U_Type\", t1.\"U_DefVal\", t1.\"U_LOVT\", t1.\"U_LOVSQL\", t1.\"U_DefValRem\", \"U_VisOrder\", \"U_Active\" FROM \"@B1_QA_CODES_ATTR\" t0 INNER JOIN \"@B1_QA_ATTR\" t1 ON t0.\"Name\" = t1.\"Code\" WHERE \"U_IGCode\" = '" + itemCode + "' "; System.Data.DataTable dtRows = Program.objHrmsUI.getDataTable(strRows, "getting docs"); foreach (System.Data.DataRow dr in dtRows.Rows) { SAPbouiCOM.DataColumn dccol1; string type = dr["U_Type"].ToString(); switch (type) { case "01": dccol1 = dtRpt.Columns.Add("col_" + dr["AttrCode"].ToString(), BoFieldsType.ft_AlphaNumeric, 250); break; case "02": dccol1 = dtRpt.Columns.Add("col_" + dr["AttrCode"].ToString(), BoFieldsType.ft_Float, 250); break; case "03": dccol1 = dtRpt.Columns.Add("col_" + dr["AttrCode"].ToString(), BoFieldsType.ft_Date); break; } string Lovtype = dr["U_LOVT"].ToString(); SAPbouiCOM.Column col1; switch (Lovtype) { case "01": col1 = mtRpt.Columns.Add("mcol_" + dr["AttrCode"].ToString(), BoFormItemTypes.it_EDIT); col1.TitleObject.Caption = dr["AttrDescr"].ToString(); col1.Editable = true; col1.Width = 20; col1.DataBind.Bind("dtRpt", "col_" + dr["AttrCode"].ToString()); break; case "02": col1 = mtRpt.Columns.Add("mcol_" + dr["AttrCode"].ToString(), BoFormItemTypes.it_COMBO_BOX); col1.TitleObject.Caption = dr["AttrDescr"].ToString(); col1.Editable = true; col1.Width = 20; col1.DataBind.Bind("dtRpt", "col_" + dr["AttrCode"].ToString()); col1.DisplayDesc = true; fillLOVinCol(col1, dr["AttrCode"].ToString(), ""); break; case "03": col1 = mtRpt.Columns.Add("mcol_" + dr["AttrCode"].ToString(), BoFormItemTypes.it_COMBO_BOX); col1.TitleObject.Caption = dr["AttrDescr"].ToString(); col1.Editable = true; col1.Width = 20; col1.DisplayDesc = true; col1.DataBind.Bind("dtRpt", "col_" + dr["AttrCode"].ToString()); fillLOVinCol(col1, dr["AttrCode"].ToString(), dr["U_LOVSQL"].ToString()); break; } k++; } for (int i = 1; i < dtRpt.Columns.Count; i++) { SAPbouiCOM.Column col = mtRpt.Columns.Item(i); string colUid = dtRpt.Columns.Item(i).Name.ToString(); if (colUid != "col_00") { string attrCode = colUid.Split('_')[1].ToString(); col.DataBind.Bind("dtRpt", "col_" + attrCode); } else { col.DataBind.Bind("dtRpt", "col_00"); } } dtRpt.Rows.Add(2); mtRpt.LoadFromDataSource(); mtRpt.CommonSetting.SetRowEditable(1, false); } finally { oForm.Freeze(false); } //mtRpt.Item.Width = 500; }
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_FEDIST.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = true; oForm.SupportedModes = -1; // afm_All VID_DelRow = false; VID_DelRowOK = false; oForm.DataBrowser.BrowseBy = "DocEntry"; oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FEDIST"); oDBDSD = oForm.DataSources.DBDataSources.Item("@VID_FEDISTD"); oForm.EnableMenu("1282", false); // boton Crear // Ok Ad Fnd Vw Rq Sec Lista.Add("DocEntry , f, f, f, f, r, 1"); Lista.Add("Desde , f, t, f, f, r, 1"); Lista.Add("Hasta , f, t, f, f, r, 1"); Lista.Add("Hasta , f, t, f, f, r, 1"); Lista.Add("Sucursal , f, t, f, f, r, 1"); Lista.Add("RangoF , f, t, t, f, r, 1"); Lista.Add("TipoDoc , f, t, t, f, r, 1"); Lista.Add("btnDist , f, t, f, f, n, 1"); FSBOf.SetAutoManaged(oForm, Lista); //carga tipo documentos if (GlobalSettings.RunningUnderSQLServer) { s = @"select distinct U_TipoDoc 'Code', U_TipoDoc 'Name' from [@VID_FECAF]"; } else { s = @"select distinct ""U_TipoDoc"" ""Code"", ""U_TipoDoc"" ""Name"" from ""@VID_FECAF"" "; } oRecordSet.DoQuery(s); FSBOf.FillCombo((ComboBox)(oForm.Items.Item("TipoDoc").Specific), ref oRecordSet, true); //carga sucursales if (GlobalSettings.RunningUnderSQLServer) { s = "select Code, Name from [@VID_FESUC]"; } else { s = @"select ""Code"", ""Name"" from ""@VID_FESUC"" "; } oRecordSet.DoQuery(s); FSBOf.FillCombo((ComboBox)(oForm.Items.Item("Sucursal").Specific), ref oRecordSet, true); // AddChooseFromList(); oMtx = (Matrix)(oForm.Items.Item("mtx").Specific); // oColumn := SAPbouiCOM.Column(oMtx.Columns.Item('V_0')); // oColumn.ChooseFromListUID := 'CFL0'; // oColumn.ChooseFromListAlias:= 'Code'; if (GlobalSettings.RunningUnderSQLServer) { s = @"select C1.FldValue 'Code', C1.Descr 'Name' from CUFD C0 join UFD1 C1 on C1.TableID = C0.TableID and C1.FieldID = C0.FieldID where C0.TableID = '@VID_FEDISTD' and C0.AliasID = 'Estado'"; } else { s = @"select C1.""FldValue"" ""Code"", C1.""Descr"" ""Name"" from ""CUFD"" C0 join ""UFD1"" C1 on C1.""TableID"" = C0.""TableID"" and C1.""FieldID"" = C0.""FieldID"" where C0.""TableID"" = '@VID_FEDISTD' and C0.""AliasID"" = 'Estado' "; } oRecordSet.DoQuery(s); oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("Estado")); FSBOf.FillComboMtx(oColumn, ref oRecordSet, false); oDBDSD.InsertRecord(0); oMtx.LoadFromDataSource(); oMtx.AutoResizeColumns(); //EditText(oForm.Items.Item('CardCode').Specific).Active := True; 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 i; //SAPbouiCOM.EditTextColumn oEditText; SAPbouiCOM.CommonSetting oSetting; TFunctions Reg; 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_Sucursal.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = true; oForm.SupportedModes = -1; // afm_All // VID_DelRow := true; // VID_DelRowOK := true; //oForm.DataBrowser.BrowseBy := "Code"; oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FESUC"); // Ok Ad Fnd Vw Rq Sec Lista.Add("mtx , f, t, f, f, r, 1"); //Lista.Add('Name , f, t, t, f, r, 1'); //Lista.Add('CardCode , f, t, t, f, r, 1'); //FSBOf.SetAutoManaged(var oForm, Lista); //oCombo := ComboBox(oForm.Items.Item('TipDoc').Specific); //oCombo.ValidValues.Add('33', 'Factura'); //s := '1'; //oCombo.Select(s, BoSearchKey.psk_ByValue); // AddChooseFromList(); oMtx = (Matrix)(oForm.Items.Item("mtx").Specific); // oColumn := SAPbouiCOM.Column(oMtx.Columns.Item('V_0')); // oColumn.ChooseFromListUID := 'CFL0'; // oColumn.ChooseFromListAlias:= 'Code'; // oMtx.AutoResizeColumns(); if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, Name, ISNULL(U_Habilitada,'Y') 'Habilitada' from [@VID_FESUC]"; } else { s = @"select ""Code"", ""Name"", IFNULL(""U_Habilitada"",'Y') ""Habilitada"" from ""@VID_FESUC"" "; } oRecordSet.DoQuery(s); if (oRecordSet.RecordCount == 0) { if (GlobalSettings.RunningUnderSQLServer) { s = "select Code from [@VID_FESUC] where Code = 'Principal'"; } else { s = @"select ""Code"" from ""@VID_FESUC"" where ""Code"" = 'Principal' "; } oRecordSet.DoQuery(s); if (oRecordSet.RecordCount == 0) { Reg = new TFunctions(); Reg.SBO_f = FSBOf; oDBDSH.Clear(); oDBDSH.InsertRecord(0); oDBDSH.SetValue("Code", 0, "Principal"); oDBDSH.SetValue("Name", 0, "SAP BO"); oDBDSH.SetValue("U_Habilitada", 0, "Y"); if (Reg.FESUCAdd(oDBDSH) == true) { FSBOApp.StatusBar.SetText("Sucursal Principal creada correctamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success); } else { FSBOApp.StatusBar.SetText("Sucursal Principal no ha sido creada", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } } } if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, Name, ISNULL(U_Habilitada,'Y') 'Habilitada' from [@VID_FESUC]"; } else { s = @"select ""Code"", ""Name"", IFNULL(""U_Habilitada"",'Y') ""Habilitada"" from ""@VID_FESUC"" "; } oRecordSet.DoQuery(s); i = 0; oDBDSH.Clear(); while (!oRecordSet.EoF) { oDBDSH.InsertRecord(i); oDBDSH.SetValue("Code", i, (System.String)(oRecordSet.Fields.Item("Code").Value)); oDBDSH.SetValue("Name", i, (System.String)(oRecordSet.Fields.Item("Name").Value)); oDBDSH.SetValue("U_Habilitada", i, (System.String)(oRecordSet.Fields.Item("Habilitada").Value)); oRecordSet.MoveNext(); i++; } oDBDSH.InsertRecord(i); oDBDSH.SetValue("Code", i, ""); oDBDSH.SetValue("Name", i, ""); oDBDSH.SetValue("U_Habilitada", i, "Y"); if (GlobalSettings.RunningUnderSQLServer) { s = @"select FldValue 'Code', Descr 'Name' from UFD1 where TableID = '@VID_FESUC' and FieldID = 0"; } else { s = @"select ""FldValue"" ""Code"", ""Descr"" ""Name"" from ""UFD1"" where ""TableID"" = '@VID_FESUC' and ""FieldID"" = 0"; } oRecordSet.DoQuery(s); oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("Habilitada")); FSBOf.FillComboMtx(oColumn, ref oRecordSet, false); //EditText(oForm.Items.Item('CardCode').Specific).Active := True; oMtx.LoadFromDataSource(); oSetting = oMtx.CommonSetting; i = 1; while (i <= oMtx.RowCount) { if ((System.String)(oDBDSH.GetValue("Code", i - 1)).Trim() != "") { oSetting.SetCellEditable(i, 1, false); } i++; } oForm.Mode = BoFormMode.fm_OK_MODE; oMtx.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
private void fillCBs() { for (int i = 1; i <= 12; i++) { cbHH.ValidValues.Add(i.ToString().PadLeft(2, '0'), i.ToString().PadLeft(2, '0')); cbOTHH.ValidValues.Add(i.ToString().PadLeft(2, '0'), i.ToString().PadLeft(2, '0')); } for (int i = 0; i <= 59; i += 5) { cbMM.ValidValues.Add(i.ToString().PadLeft(2, '0'), i.ToString().PadLeft(2, '0')); cbOTMM.ValidValues.Add(i.ToString().PadLeft(2, '0'), i.ToString().PadLeft(2, '0')); } cbAP.ValidValues.Add("AM", "AM"); cbAP.ValidValues.Add("PM", "PM"); cbOTAP.ValidValues.Add("AM", "AM"); cbOTAP.ValidValues.Add("PM", "PM"); cbEWN.ValidValues.Add("1", "1"); cbEWN.ValidValues.Add("2", "2"); cbEWN.ValidValues.Add("3", "3"); cbEWN.ValidValues.Add("4", "4"); cbHH.Select("12", BoSearchKey.psk_ByValue); cbMM.Select(0, BoSearchKey.psk_Index); cbAP.Select(0, BoSearchKey.psk_Index); cbOTHH.Select("12", BoSearchKey.psk_ByValue); cbOTMM.Select(0, BoSearchKey.psk_Index); cbOTAP.Select(0, BoSearchKey.psk_Index); cbEWN.Select(0, BoSearchKey.psk_Index); System.Data.DataTable dtSP = Program.objHrmsUI.getDataTable("Select slpcode,slpname from oslp", "FillSP"); foreach (System.Data.DataRow dr in dtSP.Rows) { cbSP.ValidValues.Add(dr["slpcode"].ToString(), dr["slpname"].ToString()); } cbSP.Select(0, SAPbouiCOM.BoSearchKey.psk_Index); cbDays.ValidValues.Add("Mon", "Monday"); cbDays.ValidValues.Add("Tue", "Tuesday"); cbDays.ValidValues.Add("Wed", "Wednesday"); cbDays.ValidValues.Add("Thu", "Thursday"); cbDays.ValidValues.Add("Fri", "Friday"); cbDays.ValidValues.Add("Sat", "Saturday"); cbDays.ValidValues.Add("Sun", "Sunday"); cbWeeks.ValidValues.Add("1", "Week 1"); cbWeeks.ValidValues.Add("2", "Week 2"); cbWeeks.ValidValues.Add("3", "Week 3"); cbWeeks.ValidValues.Add("4", "Week 4"); cbWeeks.ValidValues.Add("5", "Week 5"); SAPbouiCOM.Column mtColDay = mtDay.Columns.Item("colDay"); mtColDay.ValidValues.Add("Mon", "Monday"); mtColDay.ValidValues.Add("Tue", "Tuesday"); mtColDay.ValidValues.Add("Wed", "Wednesday"); mtColDay.ValidValues.Add("Thu", "Thursday"); mtColDay.ValidValues.Add("Fri", "Friday"); mtColDay.ValidValues.Add("Sat", "Saturday"); mtColDay.ValidValues.Add("Sun", "Sunday"); SAPbouiCOM.Column mtColWeek = mtDay.Columns.Item("colWeek"); mtColWeek.ValidValues.Add("1", "Week 1"); mtColWeek.ValidValues.Add("2", "Week 2"); mtColWeek.ValidValues.Add("3", "Week 3"); mtColWeek.ValidValues.Add("4", "Week 4"); mtColWeek.ValidValues.Add("5", "Week 5"); }