private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal) { SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralDataParams oGeneralParams = null; SAPbobsCOM.CompanyService sCmp = null; SAPbobsCOM.GeneralData oGeneralData = null; SAPbobsCOM.GeneralData oChild = null; SAPbobsCOM.GeneralDataCollection oChildren = null; sCmp = oCompany.GetCompanyService(); oGeneralService = sCmp.GetGeneralService("BaseLine"); //Create data for new row in main UDO oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); //Financial Project oGeneralData.SetProperty("U_FProject", FProject); //Date oGeneralData.SetProperty("U_BaseDate", DateTime.Today); //Note oGeneralData.SetProperty("U_Note", EditText2.Value.Trim()); //Add Quy trinh duyet DataTable rs = Get_Approve_Process_BASELINE(); if (rs.Rows.Count > 0) { oChildren = oGeneralData.Child("BASELINE_APPR"); foreach (DataRow r in rs.Rows) { oChild = oChildren.Add(); oChild.SetProperty("U_Level", r["LEVEL"].ToString()); oChild.SetProperty("U_Posistion", r["Position"].ToString()); oChild.SetProperty("U_DeptName", r["DeptName"].ToString()); oChild.SetProperty("U_PosName", r["PosName"].ToString()); } } oGeneralParams = oGeneralService.Add(oGeneralData); if (!string.IsNullOrEmpty(oGeneralParams.GetProperty("DocEntry").ToString())) { int BaseLine_DocEntry = 0; int.TryParse(oGeneralParams.GetProperty("DocEntry").ToString(), out BaseLine_DocEntry); //Add BaseLine Data Add_Data(BaseLine_DocEntry); oApp.SetStatusBarMessage("Add Completed - DocEntry: " + oGeneralParams.GetProperty("DocEntry").ToString(), SAPbouiCOM.BoMessageTime.bmt_Medium, false); this.UIAPIRawForm.Close(); } }
//private static void LoadInfo(SAPbouiCOM.Form oForm) //{ // SAPbobsCOM.Recordset oRecordset = null; // SAPbouiCOM.Matrix oMatrix = null; // SAPbouiCOM.Matrix oMatrixMm = null; // try // { // oForm.Freeze(true); // oRecordset = Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset); // oMatrix = oForm.Items.Item("Mtx1").Specific; // oMatrixMm = oForm.Items.Item("Mtx_Mn").Specific; // oRecordset.DoQuery("SELECT \"DocNum\" FROM \"@SEI_SETVALH\" "); // if (oRecordset.RecordCount > 0 ) // { // SAPbouiCOM.EditText oedit = null; // oForm.Mode = SAPbouiCOM.BoFormMode.fm_FIND_MODE; // oedit = oForm.Items.Item("DocNum").Specific; // oedit.Value = "1"; // oForm.EnableMenu("1281", false);// 1281 --> Buscar // oForm.EnableMenu("1282", false);// 1282 --> Crear // oForm.Items.Item("1").Click(SAPbouiCOM.BoCellClickType.ct_Regular); // oForm.Items.Item("DocNum").Enabled = false; // oForm.Items.Item("DocNum").Visible = false; // } // else // { // oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE; // oMatrix.AddRow(2); // //lines // ((SAPbouiCOM.EditText)(oMatrix.Columns.Item("Col_0").Cells.Item(1).Specific)).Value = "Entrada de mercancias"; // ((SAPbouiCOM.CheckBox)(oMatrix.Columns.Item("Col_1").Cells.Item(1).Specific)).Checked = true; // ((SAPbouiCOM.EditText)(oMatrix.Columns.Item("Col_2").Cells.Item(1).Specific)).Value = "1"; // ((SAPbouiCOM.EditText)(oMatrix.Columns.Item("Col_0").Cells.Item(2).Specific)).Value = "Oferta de compra"; // ((SAPbouiCOM.CheckBox)(oMatrix.Columns.Item("Col_1").Cells.Item(2).Specific)).Checked = true; // ((SAPbouiCOM.EditText)(oMatrix.Columns.Item("Col_2").Cells.Item(1).Specific)).Value = "2"; // ((SAPbouiCOM.CheckBox)(oForm.Items.Item("cbSentAcep").Specific)).Checked = true; // oMatrixMm.AddRow(); // ((SAPbouiCOM.EditText)(oMatrixMm.Columns.Item("Col_0").Cells.Item(1).Specific)).Value = "0"; // ((SAPbouiCOM.EditText)(oMatrixMm.Columns.Item("Col_1").Cells.Item(1).Specific)).Value = "0"; // } // oForm.Items.Item("Mtx1").Visible = false; // oForm.Freeze(false); // } // catch(Exception ex) // { // oForm.Freeze(false); // } //} private static void UpdateInfo(SAPbouiCOM.Form oForm) { SAPbouiCOM.Matrix oMatrix = null; SAPbouiCOM.Matrix oMatrixMm = null; SAPbobsCOM.GeneralService oDocGeneralService = null; SAPbobsCOM.CompanyService oCompService = null; SAPbobsCOM.GeneralData oDocGeneralData = null; SAPbobsCOM.GeneralDataCollection oDocLinesCollection = null; SAPbobsCOM.GeneralData oDocLineGeneralData = null; string sDocEntry = null, sCode = null, sDscrp = null; bool Check = false; try { #region fm_UPDATE_MODE Validaciones //MODIFICAR Setting Validaciones sCode = oForm.DataSources.DBDataSources.Item("@SEI_SETVALH").GetValue("Code", 0); sDocEntry = oForm.DataSources.DBDataSources.Item("@SEI_SETVALH").GetValue("DocEntry", 0); SAPbobsCOM.GeneralDataParams oGeneralDataParams = null; Conexion_SBO.m_oCompany.StartTransaction(); oCompService = Conexion_SBO.m_oCompany.GetCompanyService(); oDocGeneralService = oCompService.GetGeneralService("SEI_SETVAL"); oGeneralDataParams = oDocGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralDataParams); oGeneralDataParams.SetProperty("Code", sCode); oDocGeneralData = oDocGeneralService.GetByParams(oGeneralDataParams); //oDocGeneralData.SetProperty("U_FechaParada", dtFechP.ToString("yyyy-MM-dd")); //oDocGeneralData.SetProperty("U_Turno", strTurP); #region Lines validaciones oDocLinesCollection = oDocGeneralData.Child("SEI_SETVALL"); oMatrix = oForm.Items.Item("Mtx1").Specific; for (int reg = 1; reg <= oMatrix.RowCount; reg++) { #region Asignacion de Valores sDscrp = ((SAPbouiCOM.EditText)(oMatrix.Columns.Item("Col_0").Cells.Item(reg).Specific)).Value; Check = ((SAPbouiCOM.CheckBox)(oMatrix.Columns.Item("Col_1").Cells.Item(reg).Specific)).Checked; #endregion Asignacion de Valores #region Crear Lista de validaciones oDocLineGeneralData = oDocLinesCollection.Item(reg - 1); oDocLineGeneralData.SetProperty("U_Dscr", sDscrp); oDocLineGeneralData.SetProperty("U_Validar", (Check == true ?"Y" : "N")); #endregion Crear Lista de validaciones } //oDocGeneralService.Add(oDocGeneralData); #endregion Lines validaciones oDocGeneralService.Update(oDocGeneralData); if (Conexion_SBO.m_oCompany.InTransaction) { Conexion_SBO.m_oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit); } oCompService = null; GC.Collect(); #endregion fm_UPDATE_MODE Validaciones } catch (Exception ex) { if (Conexion_SBO.m_oCompany.InTransaction) { Conexion_SBO.m_oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit); } } }
private void Form_DataAddAfter(ref SAPbouiCOM.BusinessObjectInfo pVal) { //throw new System.NotImplementedException(); if (pVal.ActionSuccess) { //Get Batch Num has created XmlDocument xmldoc = new XmlDocument(); xmldoc.LoadXml(((SAPbouiCOM.BusinessObjectInfo)pVal).ObjectKey); XmlNodeList nodeList = xmldoc.GetElementsByTagName("BatchNum"); string BatchNum = string.Empty; try { if (nodeList.Count > 0) { BatchNum = nodeList.Item(0).InnerText; } } catch { BatchNum = string.Empty; } if (!string.IsNullOrEmpty(BatchNum)) { //Check if exist in JV_APPROVE if (!Check_Approve_Process_Exist(BatchNum)) { //Get Info BatchNum SAPbobsCOM.Recordset oR_RecordSet = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset); oR_RecordSet.DoQuery("Select top 1 U_LCP,Project from OBTF where BatchNum=" + BatchNum + " order by TransID desc"); string U_LCP = oR_RecordSet.Fields.Item("U_LCP").Value.ToString(); //string BCH = oR_RecordSet.Fields.Item("U_CP").Value.ToString(); string FProject = oR_RecordSet.Fields.Item("Project").Value.ToString(); string Type_JV = ""; DataTable tb_lstappr = null; if (U_LCP == "VP") { Type_JV = "VP"; } else if (U_LCP == "BCH") { Type_JV = "BCH"; } if (Type_JV == "VP" || Type_JV == "BCH") { if (Check_Accountant()) { Button0.Item.Visible = false; } } else { if (Check_Accountant()) { Button0.Item.Visible = true; } } tb_lstappr = GetList_Approve(FProject, Type_JV); if (tb_lstappr.Rows.Count > 0) { SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralDataParams oGeneralParams = null; SAPbobsCOM.CompanyService sCmp = null; SAPbobsCOM.GeneralData oGeneralData = null; SAPbobsCOM.GeneralData oChild = null; SAPbobsCOM.GeneralDataCollection oChildren = null; sCmp = oCompany.GetCompanyService(); oGeneralService = sCmp.GetGeneralService("JVAPPROVE"); //Create data for new row in main UDO oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); oGeneralData.SetProperty("U_JVBatchNum", int.Parse(BatchNum)); oGeneralData.SetProperty("U_Type", Type_JV); //Create data for a row in the child table oChildren = oGeneralData.Child("JV_APROVE_D"); foreach (DataRow r in tb_lstappr.Rows) { oChild = oChildren.Add(); oChild.SetProperty("U_Level", r["LEVEL"].ToString()); oChild.SetProperty("U_Position", r["Position"].ToString()); } oGeneralParams = oGeneralService.Add(oGeneralData); if (!String.IsNullOrEmpty(oGeneralParams.GetProperty("DocEntry").ToString())) { oApp.SetStatusBarMessage("Approve Process Added !!!", SAPbouiCOM.BoMessageTime.bmt_Medium, false); if (Check_Accountant()) { Button0.Item.Visible = false; } } else { //Close Voucher //SAPbobsCOM.JournalVouchers oVoucher = (SAPbobsCOM.JournalVouchers)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oJournalVouchers); } } } } } }
//Add Button private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal) { SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralDataParams oGeneralParams = null; SAPbobsCOM.CompanyService sCmp = null; SAPbobsCOM.GeneralData oGeneralData = null; SAPbobsCOM.GeneralData oChild = null; SAPbobsCOM.GeneralDataCollection oChildren = null; try { BpCode = EditText0.Value; Get_BpName(); sCmp = oCompany.GetCompanyService(); oGeneralService = sCmp.GetGeneralService("BILLVP"); //Create data for new row in main UDO oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); //Financial Project oGeneralData.SetProperty("U_FProject", ComboBox0.Selected.Value); //Project Name oGeneralData.SetProperty("U_ProjectName", EditText1.Value); //BpCode oGeneralData.SetProperty("U_BPCode", BpCode); //BpName oGeneralData.SetProperty("U_BPName", BpName); //Bill Type int btype = 2; int.TryParse(ComboBox1.Selected.Value, out btype); oGeneralData.SetProperty("U_BType", btype); //Date From oGeneralData.SetProperty("U_DateFr", DateTime.ParseExact(EditText3.Value, "yyyyMMdd", CultureInfo.InvariantCulture)); //Date To oGeneralData.SetProperty("U_DateTo", DateTime.ParseExact(EditText4.Value, "yyyyMMdd", CultureInfo.InvariantCulture)); //Period oGeneralData.SetProperty("U_Period", EditText2.Value); //Remarks oGeneralData.SetProperty("Remark", EditText7.Value); //Add Bill Tam ung if (ComboBox1.Selected.Value == "1") { Double tmp_tu = 0; Double.TryParse(EditText5.Value, out tmp_tu); oGeneralData.SetProperty("U_Tamung", tmp_tu); } //Add Bill thanh toan else if (ComboBox1.Selected.Value == "2") { //Khau tru tam ung Double tmp_ktu = 0; Double.TryParse(EditText6.Value, out tmp_ktu); oGeneralData.SetProperty("U_KhautruTU", tmp_ktu); DataTable rs = Get_Data_BILLVP(ComboBox0.Selected.Value, DateTime.ParseExact(EditText4.Value, "yyyyMMdd", CultureInfo.InvariantCulture), BpCode); Double t = 0; if (rs.Rows.Count > 0) { //Create data for a row in the child table oChildren = oGeneralData.Child("BILLVP1"); foreach (DataRow r in rs.Rows) { oChild = oChildren.Add(); //So chung tu oChild.SetProperty("U_GRPO_Key", int.Parse(r["GRPOKey"].ToString())); //Line details oChild.SetProperty("U_GRPO_Line", int.Parse(r["GRPORowKey"].ToString())); //Ma phong ban oChild.SetProperty("U_DistRule", r["MaPB"].ToString()); //Ten phong ban oChild.SetProperty("U_DisRule_Name", r["TenPB"].ToString()); //Du an oChild.SetProperty("U_Project", r["DA"].ToString()); //Level 1 oChild.SetProperty("U_Level1", r["U_ParentID1"].ToString()); //Level 1 Name oChild.SetProperty("U_Level1Name", r["Name1"].ToString()); //Level 2 oChild.SetProperty("U_Level2", r["U_ParentID2"].ToString()); //Level 2 Name oChild.SetProperty("U_Level2Name", r["Name2"].ToString()); //Level 3 oChild.SetProperty("U_Level3", r["U_ParentID3"].ToString()); //Level 3 Name oChild.SetProperty("U_Level3Name", r["Name3"].ToString()); //Level 4 oChild.SetProperty("U_Level4", r["U_ParentID4"].ToString()); //Level 4 Name oChild.SetProperty("U_Level4Name", r["Name4"].ToString()); //Level 5 oChild.SetProperty("U_Level5", r["U_ParentID5"].ToString()); //Level 5 Name oChild.SetProperty("U_Level5Name", r["Name5"].ToString()); //Ma CP oChild.SetProperty("U_MaCP", r["MaCP"].ToString()); //Ten CP oChild.SetProperty("U_TenCP", r["TenCP"].ToString()); //Noi dung oChild.SetProperty("U_Noidung", r["DetailsName"].ToString()); //GT t = 0; Double.TryParse(r["Gross_Total"].ToString(), out t); oChild.SetProperty("U_GrossTotal", t); //GT no VAT t = 0; Double.TryParse(r["Total"].ToString(), out t); oChild.SetProperty("U_Total", t); } } } //Add Quy trinh duyet DataTable rs2 = Get_Approve_Process_BILLVP(); if (rs2.Rows.Count > 0) { oChildren = oGeneralData.Child("BILLVP2"); foreach (DataRow r in rs2.Rows) { oChild = oChildren.Add(); oChild.SetProperty("U_Level", r["LEVEL"].ToString()); oChild.SetProperty("U_Position", r["Position"].ToString()); oChild.SetProperty("U_DeptName", r["DeptName"].ToString()); oChild.SetProperty("U_PosName", r["PosName"].ToString()); } } //Add UDO oGeneralParams = oGeneralService.Add(oGeneralData); if (!string.IsNullOrEmpty(oGeneralParams.GetProperty("DocEntry").ToString())) { oApp.SetStatusBarMessage("Add Completed - DocEntry: " + oGeneralParams.GetProperty("DocEntry").ToString(), SAPbouiCOM.BoMessageTime.bmt_Medium, false); Load_Grid_Period(BpCode, ComboBox0.Selected.Value); CheckBox0.Checked = false; } } catch (Exception ex) { oApp.MessageBox(ex.Message, 1, "OK"); } }