//Inclusão em tabela customizada por objeto, passar nome da tabela e coleção de parâmetros(Nome do campo e valor) protected void Incluir(string nomeObjeto, Dictionary <string, string> parametros) { try { oCompService = oCompany.GetCompanyService(); oCompany.StartTransaction(); oGeneralService = oCompService.GetGeneralService(nomeObjeto); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(GeneralServiceDataInterfaces.gsGeneralData); if (parametros != null && parametros.Count > 0) { foreach (var item in parametros) { oGeneralData.SetProperty(item.Key.ToString(), item.Value.ToString()); } oGeneralService.Add(oGeneralData); } if (oCompany.InTransaction) { oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit); } } catch (Exception e) { if (oCompany.InTransaction) { oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack); } throw e; } }
/// <summary> Adds pObjRecord. </summary> /// <remarks> Ranaya, 26/05/2017. </remarks> /// <exception cref="TableException"> Thrown when a Table error condition occurs. </exception> /// <param name="pObjRecord"> The Object record to add. </param> public void Add(T pObjRecord) { SAPbobsCOM.GeneralService lObjGeneralService = null; SAPbobsCOM.GeneralData lObjGeneralData = null; SAPbobsCOM.GeneralDataParams lObjGeneralDataParams = null; SAPbobsCOM.CompanyService lObjCompanyService = null; try { //Initialize variables lObjCompanyService = DIApplication.Company.GetCompanyService(); lObjGeneralService = lObjCompanyService.GetGeneralService(GetObjectCode()); lObjGeneralData = ((SAPbobsCOM.GeneralData)(lObjGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData))); //Set data lObjGeneralData = PopulateGeneralData(lObjGeneralData, pObjRecord); //Add data lObjGeneralDataParams = lObjGeneralService.Add(lObjGeneralData); } catch (Exception e) { throw new TableException(e.Message, e); } finally { MemoryUtility.ReleaseComObject(lObjGeneralService, lObjGeneralData, lObjGeneralDataParams, lObjCompanyService); } }
/// <summary> /// Click button replace /// </summary> private void ChangeCompItm_Replace(string formUID, ref ItemEvent pVal, ref bool bubbleEvent) { if (bubbleEvent) { if (pVal.BeforeAction == false && pVal.ActionSuccess == true)// && pVal.EventType == BoEventTypes.et_CLICK) { // Checkk Validation string errorMsg = string.Empty; if (IsBlocReplace(formUID, out errorMsg)) { oSBOApplication.StatusBar.SetText(errorMsg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); } else { Form oForm = oSBOApplication.Forms.Item(formUID); oForm.Freeze(true); SAPbobsCOM.ProductionOrders oProd; oProd = oSBOCompany.GetBusinessObject(BoObjectTypes.oProductionOrders); SAPbobsCOM.GeneralService oGenService = oSBOCompany.GetCompanyService().GetGeneralService("COMPITM"); SAPbobsCOM.GeneralData compLog = (SAPbobsCOM.GeneralData)oGenService.GetDataInterface(GeneralServiceDataInterfaces.gsGeneralData); Recordset oRec = oSBOCompany.GetBusinessObject(BoObjectTypes.BoRecordset); Matrix oMtx = oForm.Items.Item("mt_1").Specific; ProgressBar oProgressBar = oSBOApplication.StatusBar.CreateProgressBar("Replace Work Order", oMtx.RowCount, true); oProgressBar.Text = "Replace Work Order..."; int progress = 0; try { for (int i = 1; i <= oMtx.RowCount; i++) { string check = string.Empty; if (oMtx.Columns.Item("cCheck").Cells.Item(i).Specific.Checked == true) { check = "Y"; } if (check == "Y") { string query = "SELECT \"DocEntry\" FROM OWOR WHERE \"DocNum\" = '" + oMtx.Columns.Item("cNoWo").Cells.Item(i).Specific.Value + "'"; oRec.DoQuery(query); int docEntry = 0; if (oRec.RecordCount > 0) { docEntry = oRec.Fields.Item("DocEntry").Value; } oProd.GetByKey(docEntry); for (int j = 0; j < oProd.Lines.Count; j++) { string b = oForm.Items.Item("tComItmCd").Specific.Value; if (oProd.Lines.ItemNo == b) { oProd.Lines.SetCurrentLine(j); oProd.Lines.ItemNo = oForm.Items.Item("tAltItmCd").Specific.Value; string altQty = oMtx.Columns.Item("cAltQty").Cells.Item(i).Specific.Value; oProd.Lines.PlannedQuantity = Convert.ToDouble(altQty.Replace(".", ",")); int retCode = oProd.Update(); if (retCode == 0) { compLog.SetProperty("Code", GetLogCode()); compLog.SetProperty("U_SOL_DOCNUM", oMtx.Columns.Item("cNoWo").Cells.Item(i).Specific.Value); compLog.SetProperty("U_SOL_RPLDATE", DateTime.Now.Date); compLog.SetProperty("U_SOL_ITEMCODE", oForm.Items.Item("tComItmCd").Specific.Value); compLog.SetProperty("U_SOL_ITEMNAME", oForm.Items.Item("tComItmNm").Specific.Value); compLog.SetProperty("U_SOL_ITMCODE", oForm.Items.Item("tAltItmCd").Specific.Value); compLog.SetProperty("U_SOL_ITMNAME", oForm.Items.Item("tAltItmNm").Specific.Value); compLog.SetProperty("U_SOL_COMPQTY", oMtx.Columns.Item("cComQty").Cells.Item(i).Specific.Value); compLog.SetProperty("U_SOL_ALTQTY", oMtx.Columns.Item("cAltQty").Cells.Item(i).Specific.Value); oGenService.Add(compLog); if (oSBOCompany.InTransaction) { oSBOCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit); } } else { throw new Exception(); } break; } else { oProd.Lines.SetCurrentLine(j + 1); } } } progress += 1; oProgressBar.Value = progress; } oSBOApplication.StatusBar.SetText("Success change component item.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); } catch (Exception ex) { bubbleEvent = false; oSBOApplication.MessageBox(ex.Message); oSBOCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack); } finally { TemplateLoad(ref oForm); oProgressBar.Stop(); if (oForm != null) { oForm.Freeze(false); } } } } } }
public bool InsertMonitoring(MonitoringEntity monitoring) { bool success = false; try { oCompService = oCompany.GetCompanyService(); oCompany.StartTransaction(); oGeneralService = oCompService.GetGeneralService("UD_INT_MONITORING"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(GeneralServiceDataInterfaces.gsGeneralData); oGeneralData.SetProperty("Code", monitoring.DocCode); oGeneralData.SetProperty("U_SketchInv", monitoring.Sketch_Invoice); oGeneralData.SetProperty("U_DocDate", DateTime.Now.ToString("yyyyMMdd")); oGeneralData.SetProperty("U_DocTotal", monitoring.DocTot); if (monitoring.BL != null) { oGeneralData.SetProperty("U_Bl", monitoring.BL); } if (monitoring.BLId != null) { oGeneralData.SetProperty("U_BlId", monitoring.BLId); } if (monitoring.Draft != null) { oGeneralData.SetProperty("U_Draft", monitoring.Draft); } if (monitoring.Branch != null) { oGeneralData.SetProperty("U_Branch", monitoring.Branch); } if (monitoring.BranchId != null) { oGeneralData.SetProperty("U_BranchId", monitoring.BranchId); } oGeneralData.SetProperty("U_StatusId", monitoring.StatusId); oGeneralData.SetProperty("U_Status", monitoring.Status); oGeneralData.SetProperty("U_XMLPath", monitoring.XMLPath); oGeneralData.SetProperty("U_Message", monitoring.Message); oGeneralService.Add(oGeneralData); } catch (Exception e) { if (oCompany.InTransaction) { oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack); } LogDAL _log = new LogDAL(); _log.WriteEntry("InsertMonitoring error: " + e.Message); throw e; } if (oCompany.InTransaction) { oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit); } return(success); }