private void GetDataFromDataSource() { oMatrix.Clear(); oMatrix.AutoResizeColumns(); oDBDataSource.Query(null); oUserDataSource.Value = "Telefone com prefixo"; oMatrix.LoadFromDataSource(); }
///<summary> Loads matrix data from document. </summary> ///<remarks> Amartinez, 08/05/2017. </remarks> ///<param name="pstrAlias"> The pstr alias. </param> ///<param name="pstrCond"> The pstr condition. </param> public SAPbouiCOM.DBDataSource LoadMatrixConditions(string pstrAlias, string pstrCond, SAPbouiCOM.DBDataSource pDBDataSourceD) { SAPbouiCOM.Conditions lObjCons = null; SAPbouiCOM.Condition lObjCon = null; //PL001 1 lObjCons = new SAPbouiCOM.Conditions(); lObjCon = lObjCons.Add(); lObjCon.BracketOpenNum = 1; lObjCon.Alias = pstrAlias; lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL; lObjCon.CondVal = pstrCond; lObjCon.BracketCloseNum = 1; ///Validacion para cargar solo las lineas abiertas lObjCon.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND; lObjCon = lObjCons.Add(); lObjCon.BracketOpenNum = 1; lObjCon.Alias = "LineStatus"; lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL; lObjCon.CondVal = "O"; lObjCon.BracketCloseNum = 1; pDBDataSourceD.Query(lObjCons); //Validacion para evitar lineas sin cantidades pendientes lObjCon.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND; lObjCon = lObjCons.Add(); lObjCon.BracketOpenNum = 1; lObjCon.Alias = "OpenQty"; lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_GRATER_THAN; lObjCon.CondVal = "0"; lObjCon.BracketCloseNum = 1; pDBDataSourceD.Query(lObjCons); return(pDBDataSourceD); }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { //SAPbouiCOM.ComboBox oCombo; TFunctions Param; SAPbouiCOM.CheckBox oCheckBox; SAPbouiCOM.EditText oEditText; // // obetener recurso // try // ..... // finally // liberar recurso // end bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); try { //Lista := New list<string>; FSBOf.LoadForm(xmlPath, "strCnn.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All //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); oDBDSHeader = (DBDataSource)(oForm.DataSources.DBDataSources.Item("@VID_FEPARAM")); if (!GlobalSettings.RunningUnderSQLServer) { oForm.Items.Item("btnProcFE").Visible = false; } else { oForm.Items.Item("btnProcFE").Visible = true; } //s := 'Select count(*) cant from [@VID_FEPARAM]'; if (GlobalSettings.RunningUnderSQLServer) { s = @"Select count(*) CANT ,U_UserED ,U_PwdED ,U_UserWS ,U_PassWS from [@VID_FEPARAM] group by U_UserED ,U_PwdED ,U_UserWS ,U_PassWS"; } else { s = @"Select count(*) ""CANT"" ,""U_UserED"" ,""U_PwdED"" ,""U_UserWS"" ,""U_PassWS"" from ""@VID_FEPARAM"" group by ""U_UserED"" ,""U_PwdED"" ,""U_UserWS"" ,""U_PassWS"""; } oRecordSet.DoQuery(s); if ((System.Int32)(oRecordSet.Fields.Item("CANT").Value) > 0) { Param = new TFunctions(); Param.SBO_f = FSBOf; oForm.SupportedModes = 1; oForm.Mode = BoFormMode.fm_UPDATE_MODE; oDBDSHeader.Query(null); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_UserED").Value).ToString().Trim()); oDBDSHeader.SetValue("U_UserED", 0, s); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_PwdED").Value).ToString().Trim()); oDBDSHeader.SetValue("U_PwdED", 0, s); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_UserWS").Value).ToString().Trim()); oDBDSHeader.SetValue("U_UserWS", 0, s); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_PassWS").Value).ToString().Trim()); oDBDSHeader.SetValue("U_PassWS", 0, s); } else { oForm.SupportedModes = 3; oForm.Mode = BoFormMode.fm_ADD_MODE; oForm.PaneLevel = 106; } } 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) { 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_MenuConf.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.Visible = true; oForm.AutoManaged = true; oForm.SupportedModes = -1; ((StaticText)oForm.Items.Item("18").Specific).Caption = "Conexión a HANA"; oForm.Mode = BoFormMode.fm_ADD_MODE; oDBDSHeader = oForm.DataSources.DBDataSources.Item("@VID_MENUSU"); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT Code FROM [@VID_MENUSU]"; } else { s = @"SELECT ""Code"" FROM ""@VID_MENUSU"" "; } oRecordSet.DoQuery(s); if (oRecordSet.RecordCount == 0) { if (((System.String)oRecordSet.Fields.Item("Code").Value) == "1") { oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE; } else { oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE; } } else { oDBDSHeader.Query(null); oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE; } } 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) { //SAPbouiCOM.ComboBox oCombo; TFunctions Param; SAPbouiCOM.CheckBox oCheckBox; SAPbouiCOM.EditText oEditText; // // obetener recurso // try // ..... // finally // liberar recurso // end bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); try { //Lista := New list<string>; FSBOf.LoadForm(xmlPath, "strCnn.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All //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); oDBDSHeader = (DBDataSource)(oForm.DataSources.DBDataSources.Item("@VID_FEPARAM")); oCheckBox = (CheckBox)(oForm.Items.Item("chkMon").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("chkDteTra").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; //oCheckBox = (CheckBox)(oForm.Items.Item("chkCrearD").Specific); //oCheckBox.ValOn = "Y"; //oCheckBox.ValOff = "N"; //oCheckBox = (CheckBox)(oForm.Items.Item("chkCrearDS").Specific); //oCheckBox.ValOn = "Y"; //oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("chkPrint").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("chkDistrib").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("chkVal90").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("MultiSoc").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("ValDescL").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("GeneraT").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("SubirSuc").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("AbrirDoc").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oCheckBox = (CheckBox)(oForm.Items.Item("chkFProv").Specific); oCheckBox.ValOn = "Y"; oCheckBox.ValOff = "N"; oEditText = (EditText)(oForm.Items.Item("Pasword").Specific); oEditText.IsPassword = true; //Configuración RadioButtons DSOpDif = oForm.DataSources.UserDataSources.Add("rbOpDif", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); ((OptionBtn)oForm.Items.Item("opDifPor").Specific).DataBind.SetBound(true, "", "rbOpDif"); //1 ((OptionBtn)oForm.Items.Item("opDifMon").Specific).DataBind.SetBound(true, "", "rbOpDif"); //2 ((OptionBtn)oForm.Items.Item("opDifMon").Specific).GroupWith("opDifPor"); if (!GlobalSettings.RunningUnderSQLServer) { oForm.Items.Item("btnProcFE").Visible = false; } else { oForm.Items.Item("btnProcFE").Visible = true; } //s := 'Select count(*) cant from [@VID_FEPARAM]'; if (GlobalSettings.RunningUnderSQLServer) { s = @"Select count(*) CANT ,U_Usuario ,U_Password ,U_UserWSCL ,U_PassWSCL ,ISNULL(U_TipoDif,'M') 'U_TipoDif' from [@VID_FEPARAM] group by U_Usuario ,U_Password ,U_UserWSCL ,U_PassWSCL ,ISNULL(U_TipoDif,'M')"; } else { s = @"Select count(*) ""CANT"" ,""U_Usuario"" ,""U_Password"" ,""U_UserWSCL"" ,""U_PassWSCL"" ,IFNULL(""U_TipoDif"",'M') ""U_TipoDif"" from ""@VID_FEPARAM"" group by ""U_Usuario"" ,""U_Password"" ,""U_UserWSCL"" ,""U_PassWSCL"" ,IFNULL(""U_TipoDif"",'M') "; } oRecordSet.DoQuery(s); if ((System.Int32)(oRecordSet.Fields.Item("CANT").Value) > 0) { Param = new TFunctions(); Param.SBO_f = FSBOf; oForm.SupportedModes = 1; oForm.Mode = BoFormMode.fm_UPDATE_MODE; oDBDSHeader.Query(null); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Usuario").Value).ToString().Trim()); oDBDSHeader.SetValue("U_Usuario", 0, s); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Password").Value).ToString().Trim()); oDBDSHeader.SetValue("U_Password", 0, s); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_UserWSCL").Value).ToString().Trim()); oDBDSHeader.SetValue("U_UserWSCL", 0, s); s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_PassWSCL").Value).ToString().Trim()); oDBDSHeader.SetValue("U_PassWSCL", 0, s); oForm.PaneLevel = 101; if (((System.String)oDBDSHeader.GetValue("U_MultiSoc", 0)).Trim() == "Y") { oForm.Items.Item("chkDistrib").Visible = false; oForm.Items.Item("AbrirDoc").Visible = true; } else if (((System.String)oDBDSHeader.GetValue("U_MultiSoc", 0)).Trim() == "N") { oForm.Items.Item("chkDistrib").Visible = true; oForm.Items.Item("AbrirDoc").Visible = false; } oForm.Freeze(false); if (((System.String)oRecordSet.Fields.Item("U_TipoDif").Value).Trim() == "M") { DSOpDif.Value = "2"; } //((OptionBtn)oForm.Items.Item("opDifMon").Specific).Selected = true; else { DSOpDif.Value = "1"; } //((OptionBtn)oForm.Items.Item("opDifPor").Specific).Selected = true; } else { oForm.SupportedModes = 3; oForm.Mode = BoFormMode.fm_ADD_MODE; oForm.PaneLevel = 101; ((OptionBtn)oForm.Items.Item("opDifMon").Specific).Selected = true; } } 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