void Load_Data() { SAPbobsCOM.Recordset rs = (SAPbobsCOM.Recordset)oCom.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset); rs.DoQuery(string.Format("Select AbsID from OOAT where Number ='{0}' and BpType = '{1}' and Status ='D' and Cancelled ='N'", Blanket_Agreement_No, Blanket_Type)); AbsID = rs.Fields.Item("AbsID").Value.ToString(); SAPbobsCOM.CompanyService oCompSer = oCom.GetCompanyService(); SAPbobsCOM.BlanketAgreementsService oBAService = (SAPbobsCOM.BlanketAgreementsService)oCompSer.GetBusinessService(SAPbobsCOM.ServiceTypes.BlanketAgreementsService); SAPbobsCOM.BlanketAgreementParams oParams = (SAPbobsCOM.BlanketAgreementParams)oBAService.GetDataInterface(SAPbobsCOM.BlanketAgreementsServiceDataInterfaces.basBlanketAgreementParams); oParams.AgreementNo = int.Parse(AbsID); SAPbobsCOM.BlanketAgreement oBA = oBAService.GetBlanketAgreement(oParams); EditText1.Value = oBA.UserFields.Item("U_PRJ").Value.ToString(); EditText2.Value = oBA.DocNum.ToString(); }
public void AddLogSap(SAPbobsCOM.Company oCompany, String Comentario, String Archivo, double Cantidad, String Code, String Razon, String Ref1, String Ref2, String Ref4, String Orden, String ItemCode, String ASN, String LPN, String Carton) { SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralData oGeneralData = null; SAPbobsCOM.GeneralDataParams oGeneralParams = null; SAPbobsCOM.CompanyService oCompanyService = null; try { oCompanyService = oCompany.GetCompanyService(); // Get GeneralService (oCmpSrv is the CompanyService) oGeneralService = oCompanyService.GetGeneralService("LOGSAP"); // Create data for new row in main UDO oGeneralData = ((SAPbobsCOM.GeneralData)(oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData))); oGeneralData.SetProperty("U_Archivo", Archivo); oGeneralData.SetProperty("U_Cantidad", Cantidad); oGeneralData.SetProperty("U_Code", Code); oGeneralData.SetProperty("U_Razon", Razon); oGeneralData.SetProperty("U_Ref1", Ref1); oGeneralData.SetProperty("U_Ref2", Ref2); oGeneralData.SetProperty("U_Ref4", Ref4); oGeneralData.SetProperty("U_Orden", Orden); oGeneralData.SetProperty("U_ItemCode", ItemCode); oGeneralData.SetProperty("U_ASN", ASN); oGeneralData.SetProperty("U_LPN", LPN); oGeneralData.SetProperty("U_Carton", Carton); oGeneralData.SetProperty("U_Comentario", Comentario); oGeneralParams = oGeneralService.Add(oGeneralData); } catch (Exception ex) { AddLog(ex.Message + "Error Exception"); } }
/// <summary> /// add record to udo /// </summary> /// <param name="oCompany"></param> /// <param name="sUDOCode">udo key</param> /// <returns></returns> //private bool AddUDORecord(string sUDOKey) //{ // bool ret = false; // SAPbobsCOM.GeneralService oGeneralService = null; // SAPbobsCOM.GeneralData oGeneralData = null; // SAPbobsCOM.GeneralDataParams oGeneralParams = null; // SAPbobsCOM.CompanyService oCompanyService = null; // int i = 0; // try // { // oCompanyService = oCompany.GetCompanyService(); // oGeneralService = oCompanyService.GetGeneralService(sUDOKey); // // Create data for new row in main UDO // oGeneralData = ((SAPbobsCOM.GeneralData)(oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData))); // oGeneralData.SetProperty("U_ItemCode", ""); // oGeneralData.SetProperty("U_Content", ""); // oGeneralParams = oGeneralService.Add(oGeneralData); // string txtCode = System.Convert.ToString(oGeneralParams.GetProperty("DocEntry")); // ret = true; // } // catch (Exception ex) // { // throw (ex); // } // return ret; //} /// <summary> /// del record of udo by docentry /// </summary> /// <param name="sDocEntry"></param> /// <param name="sUDOKey">UDO的key</param> public void DeleteUDORecord(string sDocEntry, string sUDOKey) { SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralDataParams oGeneralParams = null; SAPbobsCOM.CompanyService sCmp = null; sCmp = oCompany.GetCompanyService(); try { oGeneralService = sCmp.GetGeneralService(sUDOKey); // Delete UDO record oGeneralParams = ((SAPbobsCOM.GeneralDataParams)(oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralDataParams))); oGeneralParams.SetProperty("DocEntry", sDocEntry); oGeneralService.Delete(oGeneralParams); } catch (Exception ex) { throw (ex); } }
private void Form_LoadAfter(SAPbouiCOM.SBOItemEventArg pVal) { //throw new System.NotImplementedException(); SAPbobsCOM.Company oCompany = (SAPbobsCOM.Company)Application.SBO_Application.Company.GetDICompany(); SAPbobsCOM.CompanyService oCompServ = (SAPbobsCOM.CompanyService)oCompany.GetCompanyService(); SAPbobsCOM.UserMenuService oUmServ = (SAPbobsCOM.UserMenuService)oCompServ.GetBusinessService(SAPbobsCOM.ServiceTypes.UserMenuService); //SAPbobsCOM.UserMenuItems oUserMenuItems = oUmServ.GetCurrentUserMenu(); //SAPbobsCOM.UserMenuItem oUserMenuItem = oUserMenuItems.Item(1); SAPbobsCOM.UserMenuParams oUmPara = (SAPbobsCOM.UserMenuParams)oUmServ.GetDataInterface(SAPbobsCOM.UserMenuServiceDataInterfaces.umsdiUserMenuParams); oUmPara.UserID = 1; SAPbobsCOM.UserMenuItems oUserMenuItems = oUmServ.GetUserMenu(oUmPara); }
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 void CrearRegistroLog(string codError, string descError, string nroPed) { SAPbobsCOM.CompanyService oCompanyService = null; SAPbobsCOM.GeneralData oGeneralData = null; SAPbobsCOM.GeneralService oGeneralService = null; oCompanyService = oCompany.GetCompanyService(); oGeneralService = oCompanyService.GetGeneralService("EXXLOGCASTPEDID"); oGeneralData = ((SAPbobsCOM.GeneralData)(oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData))); oGeneralData.SetProperty("U_EXX_CodError", codError); oGeneralData.SetProperty("U_EXX_DescError", descError); oGeneralData.SetProperty("U_EXX_NroPed", nroPed); oGeneralData.SetProperty("U_EXX_Fecha", String.Format("{0:G}", DateTime.Now.ToString())); SAPbobsCOM.GeneralDataParams oGeneralParams = null; oGeneralParams = oGeneralService.Add(oGeneralData); dbSap.LiberarObjeto(oCompanyService); dbSap.LiberarObjeto(oGeneralData); dbSap.LiberarObjeto(oGeneralService); dbSap.LiberarObjeto(oGeneralParams); }
public string SPA_AddCase_AddPropertyEnquiry(DataTable dtDatatable) { string sFuncName = string.Empty; string sReturnResult = string.Empty; //int sCode = 1; string sCode = string.Empty; string sSql = string.Empty; SAPbobsCOM.Recordset oRecSet; try { sFuncName = "SPA_AddCase_AddPropertyEnquiry"; DataTable results = new DataTable(); SqlConnection con = new SqlConnection(ConnectionString); SqlCommand command = con.CreateCommand(); //command.CommandText = "select Count(CODE) from [@AE_PROPERTY]"; command.CommandText = "SELECT REPLICATE('0', (12-LEN(ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)))) " + " + CONVERT(VARCHAR, ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)) [Code] FROM [@AE_PROPERTY] WITH (NOLOCK)"; con.Open(); SqlDataAdapter dataAdapter = new SqlDataAdapter(command); dataAdapter.Fill(results); if (results.Rows[0][0].ToString().Length > 0) { //sCode = Convert.ToInt32(results.Rows[0][0].ToString()) + 1; sCode = results.Rows[0][0].ToString(); } con.Close(); if (p_iDebugMode == DEBUG_ON) oLog.WriteToDebugLogFile("Connecting to target company ", sFuncName); oDICompany = oLogin.ConnectToTargetCompany(ConnectionString); SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralData oGeneralData; SAPbobsCOM.CompanyService oCompanyService = oDICompany.GetCompanyService(); oGeneralService = oCompanyService.GetGeneralService("PROPERTY"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); //Adding the Informations oGeneralData.SetProperty("Code", sCode.ToString()); oGeneralData.SetProperty("U_TITLETYPE", dtDatatable.Rows[0]["TITLETYPE"].ToString()); oGeneralData.SetProperty("U_TITLENO", dtDatatable.Rows[0]["TITLENO"].ToString()); oGeneralData.SetProperty("U_LOTTYPE", dtDatatable.Rows[0]["LOTTYPE"].ToString()); oGeneralData.SetProperty("U_LOTNO", dtDatatable.Rows[0]["LOTNO"].ToString()); oGeneralData.SetProperty("U_FORMERLY_KNOWN_AS", dtDatatable.Rows[0]["FORMERLY_KNOWN_AS"].ToString()); oGeneralData.SetProperty("U_BPM", dtDatatable.Rows[0]["BPM"].ToString()); oGeneralData.SetProperty("U_STATE", dtDatatable.Rows[0]["STATE"].ToString()); oGeneralData.SetProperty("U_AREA", dtDatatable.Rows[0]["AREA"].ToString()); oGeneralData.SetProperty("U_LOTAREA", dtDatatable.Rows[0]["LOTAREA"].ToString()); //oGeneralData.SetProperty("U_LASTUPDATEDON", dtDatatable.Rows[0]["LASTUPDATEDON"].ToString()); oGeneralData.SetProperty("U_DEVELOPER", dtDatatable.Rows[0]["DEVELOPER"].ToString()); oGeneralData.SetProperty("U_DVLPR_CODE", dtDatatable.Rows[0]["DVLPR_CODE"].ToString()); oGeneralData.SetProperty("U_PROJECT_CODE", dtDatatable.Rows[0]["PROJECT_CODE"].ToString()); oGeneralData.SetProperty("U_PROJECTNAME", dtDatatable.Rows[0]["PROJECTNAME"].ToString()); oGeneralData.SetProperty("U_DEVLICNO", dtDatatable.Rows[0]["DEVLICNO"].ToString()); oGeneralData.SetProperty("U_DEVSOLICTOR", dtDatatable.Rows[0]["DEVSOLICTOR"].ToString()); oGeneralData.SetProperty("U_DVLPR_SOL_CODE", dtDatatable.Rows[0]["DVLPR_SOL_CODE"].ToString()); oGeneralData.SetProperty("U_DVLPR_LOC", dtDatatable.Rows[0]["DVLPR_LOC"].ToString()); oGeneralData.SetProperty("U_LSTCHG_BANKCODE", dtDatatable.Rows[0]["LSTCHG_BANKCODE"].ToString()); oGeneralData.SetProperty("U_LSTCHG_BANKNAME", dtDatatable.Rows[0]["LSTCHG_BANKNAME"].ToString()); oGeneralData.SetProperty("U_LSTCHG_BRANCH", dtDatatable.Rows[0]["LSTCHG_BRANCH"].ToString()); oGeneralData.SetProperty("U_LSTCHG_PANO", dtDatatable.Rows[0]["LSTCHG_PANO"].ToString()); oGeneralData.SetProperty("U_LSTCHG_PRSTNO", dtDatatable.Rows[0]["LSTCHG_PRSTNO"].ToString()); oGeneralData.SetProperty("U_TITLE_LINK", dtDatatable.Rows[0]["TITLELINK"].ToString()); oGeneralData.SetProperty("U_LSTCHG_PRSTLINK", dtDatatable.Rows[0]["LSTCHG_PRSTLINK"].ToString()); if (dtDatatable.Rows[0]["PROPERTYCHARGED"].ToString() == "Y") { oGeneralData.SetProperty("U_PROPERTY_CHARGED", "Y"); oGeneralData.SetProperty("U_PROPERTY_FREE", "N"); } else { oGeneralData.SetProperty("U_PROPERTY_CHARGED", "N"); oGeneralData.SetProperty("U_PROPERTY_FREE", "Y"); } oGeneralService.Add(oGeneralData); //SqlConnection con = new SqlConnection(ConnectionString); //SqlCommand command = con.CreateCommand(); command.CommandText = "Update [AE_OCRD] set U_PROPERTY_CODE ='" + sCode + "', U_PURCHPRICE = '" + dtDatatable.Rows[0]["PurchasePrice"].ToString() + "' where Code ='" + dtDatatable.Rows[0]["CARDCODE"].ToString() + "'"; if (p_iDebugMode == DEBUG_ON) oLog.WriteToDebugLogFile("Executing the Query : " + command.CommandText, sFuncName); con.Open(); command.ExecuteNonQuery(); con.Close(); command.CommandType = CommandType.StoredProcedure; command.CommandText = "AE_SPA029_Mobile_AddCase_UpdateTitleLink"; command.Parameters.Add("@PropertyCode", SqlDbType.VarChar).Value = sCode; command.Connection = con; con.Open(); command.ExecuteNonQuery(); con.Close(); sReturnResult = "SUCCESS"; } catch (Exception Ex) { sErrDesc = Ex.Message.ToString(); oLog.WriteToErrorLogFile(sErrDesc, sFuncName); if (p_iDebugMode == DEBUG_ON) oLog.WriteToDebugLogFile("Completed With ERROR ", sFuncName); throw Ex; } return sReturnResult; }
public string SPA_AddCase_AddIndividual(DataTable dtDatatable, string sType) { string sFuncName = string.Empty; string sReturnResult = string.Empty; string sCode = string.Empty; string sResult = string.Empty; string sExistingCheck = string.Empty; int iLoopCount = 0; try { sFuncName = "SPA_AddCase_AddIndividual"; foreach (DataRow item in dtDatatable.Rows) { iLoopCount = iLoopCount + 1; DataTable results = new DataTable(); DataTable ExistingCheck = new DataTable(); SqlConnection con = new SqlConnection(ConnectionString); SqlCommand command = con.CreateCommand(); con.Open(); command.CommandText = "select Code from [@AE_RELATEDPARTY] WITH (NOLOCK) where U_IDNO_F1 = '" + item["IDNo1"].ToString().Replace("\n", "").ToString() + "'"; SqlDataAdapter dataAdapter1 = new SqlDataAdapter(command); dataAdapter1.Fill(ExistingCheck); con.Close(); //if (ExistingCheck.Rows[0][0].ToString().Length == 0) //{ if (item["IDType"].ToString() == "INDIVIDUAL") { if (p_iDebugMode == DEBUG_ON) oLog.WriteToDebugLogFile("Connecting to target company ", sFuncName); oDICompany = oLogin.ConnectToTargetCompany(ConnectionString); SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralData oGeneralData; SAPbobsCOM.CompanyService oCompanyService = oDICompany.GetCompanyService(); SAPbobsCOM.GeneralDataParams oGeneralParams = null; oGeneralService = oCompanyService.GetGeneralService("RELATEDPARTY"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); con.Open(); command.CommandText = "SELECT REPLICATE('0', (12-LEN(ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)))) " + " + CONVERT(VARCHAR, ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)) [Code] FROM [@AE_RELATEDPARTY] WITH (NOLOCK)"; SqlDataAdapter dataAdapter = new SqlDataAdapter(command); dataAdapter.Fill(results); if (results.Rows[0][0].ToString().Length > 0) { sCode = results.Rows[0][0].ToString(); } con.Close(); string[] sIDSplitUp = item["IDNo1"].ToString().Split('-'); string sIDNo2 = item["IDNo1"].ToString(); string sAddressId = item["IDAddress1"].ToString() + System.Environment.NewLine + item["IDAddress2"].ToString() + System.Environment.NewLine + item["IDAddress3"].ToString() + System.Environment.NewLine + item["IDAddress4"].ToString() + System.Environment.NewLine + item["IDAddress5"].ToString(); string sCorrespondAddressId = item["CorresAddr1"].ToString() + System.Environment.NewLine + item["CorresAddr2"].ToString() + System.Environment.NewLine + item["CorresAddr3"].ToString() + System.Environment.NewLine + item["CorresAddr4"].ToString() + System.Environment.NewLine + item["CorresAddr5"].ToString(); if (ExistingCheck.Rows.Count > 0) { if (ExistingCheck.Rows[0][0].ToString().Length == 0) { //Adding the Informations //oGeneralData.SetProperty("DocEntry", item["DocEntry"].ToString()); oGeneralData.SetProperty("Code", sCode); oGeneralData.SetProperty("U_NAME", item["EmployeeName"].ToString()); oGeneralData.SetProperty("U_INDIVIDUAL_TITLE", item["Title"].ToString()); oGeneralData.SetProperty("U_GENDER", item["Gender"].ToString()); oGeneralData.SetProperty("U_IDNO_F1", item["IDNo1"].ToString()); oGeneralData.SetProperty("U_IDNO_F2", sIDNo2.Replace("-", "")); oGeneralData.SetProperty("U_IDNO_F3", item["IDNo3"].ToString()); if (sIDSplitUp.Length > 0) { if (sIDSplitUp.Length >= 1) { oGeneralData.SetProperty("U_IDSEC1", sIDSplitUp[0]); } if (sIDSplitUp.Length >= 2) { oGeneralData.SetProperty("U_IDSEC2", sIDSplitUp[1]); } if (sIDSplitUp.Length >= 3) { oGeneralData.SetProperty("U_IDSEC3", sIDSplitUp[2]); } } oGeneralData.SetProperty("U_IDTYPE", "INDIVIDUAL"); oGeneralData.SetProperty("U_TAXNOFORMAT1", item["TaxNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_MOBILE", item["MobileNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_TELEPHONE", item["Telephone"].ToString()); oGeneralData.SetProperty("U_SYARIKATNO", item["OfficeNo"].ToString()); oGeneralData.SetProperty("U_ADDSEG1", item["IDAddress1"].ToString()); oGeneralData.SetProperty("U_ADDSEG2", item["IDAddress2"].ToString()); oGeneralData.SetProperty("U_ADDSEG3", item["IDAddress3"].ToString()); oGeneralData.SetProperty("U_ADDSEG4", item["IDAddress4"].ToString()); oGeneralData.SetProperty("U_ADDSEG5", item["IDAddress5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_ID", sAddressId); oGeneralData.SetProperty("U_CADDSEG1", item["CorresAddr1"].ToString()); oGeneralData.SetProperty("U_CADDSEG2", item["CorresAddr2"].ToString()); oGeneralData.SetProperty("U_CADDSEG3", item["CorresAddr3"].ToString()); oGeneralData.SetProperty("U_CADDSEG4", item["CorresAddr4"].ToString()); oGeneralData.SetProperty("U_CADDSEG5", item["CorresAddr5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_CORRESPOND", sCorrespondAddressId); oGeneralData.SetProperty("U_ADDRESS_TOUSE", item["AddressToUse"].ToString()); oGeneralData.SetProperty("U_BANK", "N"); oGeneralData.SetProperty("U_DEVELOPER", "N"); oGeneralData.SetProperty("U_SOLICITOR", "N"); //oGeneralData.SetProperty("LastUpdatedOn", item["LastUpdatedOn"].ToString()); oGeneralData.SetProperty("U_IDSCAN1", item["ScanFrontICLocation"].ToString()); oGeneralData.SetProperty("U_IDSCAN2", item["ScanBackICLocation"].ToString()); oGeneralService.Add(oGeneralData); } else { //Updating the Informations oGeneralParams = (SAPbobsCOM.GeneralDataParams)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralDataParams); oGeneralParams.SetProperty("Code", ExistingCheck.Rows[0][0].ToString()); oGeneralData = oGeneralService.GetByParams(oGeneralParams); //oGeneralData.SetProperty("DocEntry", item["DocEntry"].ToString()); oGeneralData.SetProperty("U_NAME", item["EmployeeName"].ToString()); oGeneralData.SetProperty("U_INDIVIDUAL_TITLE", item["Title"].ToString()); oGeneralData.SetProperty("U_GENDER", item["Gender"].ToString()); oGeneralData.SetProperty("U_IDNO_F1", item["IDNo1"].ToString()); oGeneralData.SetProperty("U_IDNO_F2", sIDNo2.Replace("-", "")); oGeneralData.SetProperty("U_IDNO_F3", item["IDNo3"].ToString()); if (sIDSplitUp.Length > 0) { if (sIDSplitUp.Length >= 1) { oGeneralData.SetProperty("U_IDSEC1", sIDSplitUp[0]); } if (sIDSplitUp.Length >= 2) { oGeneralData.SetProperty("U_IDSEC2", sIDSplitUp[1]); } if (sIDSplitUp.Length >= 3) { oGeneralData.SetProperty("U_IDSEC3", sIDSplitUp[2]); } } oGeneralData.SetProperty("U_IDTYPE", "INDIVIDUAL"); oGeneralData.SetProperty("U_TAXNOFORMAT1", item["TaxNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_MOBILE", item["MobileNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_TELEPHONE", item["Telephone"].ToString()); oGeneralData.SetProperty("U_SYARIKATNO", item["OfficeNo"].ToString()); oGeneralData.SetProperty("U_ADDSEG1", item["IDAddress1"].ToString()); oGeneralData.SetProperty("U_ADDSEG2", item["IDAddress2"].ToString()); oGeneralData.SetProperty("U_ADDSEG3", item["IDAddress3"].ToString()); oGeneralData.SetProperty("U_ADDSEG4", item["IDAddress4"].ToString()); oGeneralData.SetProperty("U_ADDSEG5", item["IDAddress5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_ID", sAddressId); oGeneralData.SetProperty("U_CADDSEG1", item["CorresAddr1"].ToString()); oGeneralData.SetProperty("U_CADDSEG2", item["CorresAddr2"].ToString()); oGeneralData.SetProperty("U_CADDSEG3", item["CorresAddr3"].ToString()); oGeneralData.SetProperty("U_CADDSEG4", item["CorresAddr4"].ToString()); oGeneralData.SetProperty("U_CADDSEG5", item["CorresAddr5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_CORRESPOND", sCorrespondAddressId); oGeneralData.SetProperty("U_ADDRESS_TOUSE", item["AddressToUse"].ToString()); oGeneralData.SetProperty("U_BANK", "N"); oGeneralData.SetProperty("U_DEVELOPER", "N"); oGeneralData.SetProperty("U_SOLICITOR", "N"); //oGeneralData.SetProperty("LastUpdatedOn", item["LastUpdatedOn"].ToString()); oGeneralData.SetProperty("U_IDSCAN1", item["ScanFrontICLocation"].ToString()); oGeneralData.SetProperty("U_IDSCAN2", item["ScanBackICLocation"].ToString()); oGeneralService.Update(oGeneralData); // Update the Value } } else { //Adding the Informations //oGeneralData.SetProperty("DocEntry", item["DocEntry"].ToString()); oGeneralData.SetProperty("Code", sCode); oGeneralData.SetProperty("U_NAME", item["EmployeeName"].ToString()); oGeneralData.SetProperty("U_INDIVIDUAL_TITLE", item["Title"].ToString()); oGeneralData.SetProperty("U_GENDER", item["Gender"].ToString()); oGeneralData.SetProperty("U_IDNO_F1", item["IDNo1"].ToString()); oGeneralData.SetProperty("U_IDNO_F2", sIDNo2.Replace("-", "")); oGeneralData.SetProperty("U_IDNO_F3", item["IDNo3"].ToString()); if (sIDSplitUp.Length > 0) { if (sIDSplitUp.Length >= 1) { oGeneralData.SetProperty("U_IDSEC1", sIDSplitUp[0]); } if (sIDSplitUp.Length >= 2) { oGeneralData.SetProperty("U_IDSEC2", sIDSplitUp[1]); } if (sIDSplitUp.Length >= 3) { oGeneralData.SetProperty("U_IDSEC3", sIDSplitUp[2]); } } oGeneralData.SetProperty("U_IDTYPE", "INDIVIDUAL"); oGeneralData.SetProperty("U_TAXNOFORMAT1", item["TaxNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_MOBILE", item["MobileNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_TELEPHONE", item["Telephone"].ToString()); oGeneralData.SetProperty("U_SYARIKATNO", item["OfficeNo"].ToString()); oGeneralData.SetProperty("U_ADDSEG1", item["IDAddress1"].ToString()); oGeneralData.SetProperty("U_ADDSEG2", item["IDAddress2"].ToString()); oGeneralData.SetProperty("U_ADDSEG3", item["IDAddress3"].ToString()); oGeneralData.SetProperty("U_ADDSEG4", item["IDAddress4"].ToString()); oGeneralData.SetProperty("U_ADDSEG5", item["IDAddress5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_ID", sAddressId); oGeneralData.SetProperty("U_CADDSEG1", item["CorresAddr1"].ToString()); oGeneralData.SetProperty("U_CADDSEG2", item["CorresAddr2"].ToString()); oGeneralData.SetProperty("U_CADDSEG3", item["CorresAddr3"].ToString()); oGeneralData.SetProperty("U_CADDSEG4", item["CorresAddr4"].ToString()); oGeneralData.SetProperty("U_CADDSEG5", item["CorresAddr5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_CORRESPOND", sCorrespondAddressId); oGeneralData.SetProperty("U_ADDRESS_TOUSE", item["AddressToUse"].ToString()); oGeneralData.SetProperty("U_BANK", "N"); oGeneralData.SetProperty("U_DEVELOPER", "N"); oGeneralData.SetProperty("U_SOLICITOR", "N"); //oGeneralData.SetProperty("LastUpdatedOn", item["LastUpdatedOn"].ToString()); oGeneralData.SetProperty("U_IDSCAN1", item["ScanFrontICLocation"].ToString()); oGeneralData.SetProperty("U_IDSCAN2", item["ScanBackICLocation"].ToString()); oGeneralService.Add(oGeneralData); } // The following code is update the Related Party data in the Temp table sResult = SPA_AddCase_Purch_UpdatePropInTemp(sType, iLoopCount.ToString(), item["CardCode"].ToString(), sCode, item["IDNo1"].ToString(), item["EmployeeName"].ToString(), item["TaxNo"].ToString(), item["MobileNo"].ToString(), "INDIVIDUAL"); } else { sCode = item["CardCode"].ToString(); sResult = SPA_AddCase_Purch_UpdatePropInTemp(sType, iLoopCount.ToString(), sCode, item["Code"].ToString(), item["IDNo1"].ToString(), item["EmployeeName"].ToString(), item["TaxNo"].ToString(), item["MobileNo"].ToString(), "CORPORATE"); } if (sResult != "SUCCESS") { sReturnResult = sResult; break; } sReturnResult = "SUCCESS"; } } catch (Exception Ex) { sErrDesc = Ex.Message.ToString(); oLog.WriteToErrorLogFile(sErrDesc, sFuncName); if (p_iDebugMode == DEBUG_ON) oLog.WriteToDebugLogFile("Completed With ERROR ", sFuncName); throw Ex; } return sReturnResult; }
//Approve Button private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal) { if (DocEntry_ODRF > 0) { SAPbobsCOM.ApprovalRequestsService oApprovalRequestsService = (SAPbobsCOM.ApprovalRequestsService)oCompany.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.ApprovalRequestsService); SAPbobsCOM.ApprovalRequestsParams oApprovalRequestsParams = (SAPbobsCOM.ApprovalRequestsParams)oApprovalRequestsService.GetDataInterface(SAPbobsCOM.ApprovalRequestsServiceDataInterfaces.arsApprovalRequestsParams); SAPbobsCOM.ApprovalRequest oApprovalRequest = (SAPbobsCOM.ApprovalRequest)oApprovalRequestsService.GetDataInterface(SAPbobsCOM.ApprovalRequestsServiceDataInterfaces.arsApprovalRequest); SAPbobsCOM.ApprovalRequestParams oApprovalRequestParams = (SAPbobsCOM.ApprovalRequestParams)oApprovalRequestsService.GetDataInterface(SAPbobsCOM.ApprovalRequestsServiceDataInterfaces.arsApprovalRequestParams); oApprovalRequestParams.Code = WddCode; //Approve request oApprovalRequest = oApprovalRequestsService.GetApprovalRequest(oApprovalRequestParams); oApprovalRequest.ApprovalRequestDecisions.Add(); oApprovalRequest.ApprovalRequestDecisions.Item(0).Remarks = EditText0.Value; oApprovalRequest.ApprovalRequestDecisions.Item(0).Status = SAPbobsCOM.BoApprovalRequestDecisionEnum.ardApproved; try { oApprovalRequestsService.UpdateRequest(oApprovalRequest); oApp.MessageBox("Phê duyệt thành công"); oApprovalRequest = oApprovalRequestsService.GetApprovalRequest(oApprovalRequestParams); if (oApprovalRequest.Status == SAPbobsCOM.BoApprovalRequestStatusEnum.arsApproved) { try { //Approved Document Add to Valid Document SAPbobsCOM.Documents oDraft = (SAPbobsCOM.Documents)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDrafts); oDraft.GetByKey(oApprovalRequest.ObjectEntry); int ErrorCode = oDraft.SaveDraftToDocument(); if (ErrorCode == 0) { oApp.SetStatusBarMessage("Document added successfully", SAPbouiCOM.BoMessageTime.bmt_Medium, false); } else { oApp.SetStatusBarMessage(ErrorCode.ToString() + "|" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, true); } } catch { } } } catch (Exception ex) { oApp.MessageBox("Phê duyệt không thành công |" + ex.Message); } } }
public string SPA_AddIndividual(DataTable dtDatatable) { string sFuncName = string.Empty; string sReturnResult = string.Empty; string sCode = string.Empty; string sExistingCheck = string.Empty; DataTable ExistingCheck = new DataTable(); try { sFuncName = "SPA_AddIndividual"; SqlConnection con = new SqlConnection(ConnectionString); SqlCommand command = con.CreateCommand(); con.Open(); command.CommandText = "select Code, DocEntry from [@AE_RELATEDPARTY] WITH (NOLOCK) where U_IDNO_F1 = '" + dtDatatable.Rows[0]["IDNo1"].ToString().Replace("\n", "").ToString() + "'"; SqlDataAdapter dataAdapter1 = new SqlDataAdapter(command); dataAdapter1.Fill(ExistingCheck); con.Close(); if (ExistingCheck.Rows.Count == 0) { //if (ExistingCheck.Rows[0][0].ToString().Length == 0) //{ DataTable results = new DataTable(); command.CommandText = "SELECT REPLICATE('0', (12-LEN(ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)))) " + " + CONVERT(VARCHAR, ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)) [Code] FROM [@AE_RELATEDPARTY] WITH (NOLOCK)"; con.Open(); SqlDataAdapter dataAdapter = new SqlDataAdapter(command); dataAdapter.Fill(results); if (results.Rows[0][0].ToString().Length > 0) { sCode = results.Rows[0][0].ToString(); } con.Close(); if (p_iDebugMode == DEBUG_ON) { oLog.WriteToDebugLogFile("Connecting to target company ", sFuncName); } oDICompany = oLogin.ConnectToTargetCompany(ConnectionString); SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralData oGeneralData; SAPbobsCOM.CompanyService oCompanyService = oDICompany.GetCompanyService(); oGeneralService = oCompanyService.GetGeneralService("RELATEDPARTY"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); string[] sIDSplitUp = dtDatatable.Rows[0]["IDNo1"].ToString().Split('-'); string sIDNo2 = dtDatatable.Rows[0]["IDNo1"].ToString(); string sAddressId = dtDatatable.Rows[0]["IDAddress1"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["IDAddress2"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["IDAddress3"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["IDAddress4"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["IDAddress5"].ToString(); string sCorrespondAddressId = dtDatatable.Rows[0]["CorresAddr1"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["CorresAddr2"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["CorresAddr3"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["CorresAddr4"].ToString() + System.Environment.NewLine + dtDatatable.Rows[0]["CorresAddr5"].ToString(); //Adding the Informations oGeneralData.SetProperty("Code", sCode); //oGeneralData.SetProperty("DocEntry", dtDatatable.Rows[0]["DocEntry"].ToString()); oGeneralData.SetProperty("U_NAME", dtDatatable.Rows[0]["EmployeeName"].ToString()); oGeneralData.SetProperty("U_INDIVIDUAL_TITLE", dtDatatable.Rows[0]["Title"].ToString()); oGeneralData.SetProperty("U_GENDER", dtDatatable.Rows[0]["Gender"].ToString()); oGeneralData.SetProperty("U_IDNO_F1", dtDatatable.Rows[0]["IDNo1"].ToString()); oGeneralData.SetProperty("U_IDNO_F2", sIDNo2.Replace("-", "")); oGeneralData.SetProperty("U_IDNO_F3", dtDatatable.Rows[0]["IDNo3"].ToString()); if (sIDSplitUp.Length > 0) { if (sIDSplitUp.Length >= 1) { oGeneralData.SetProperty("U_IDSEC1", sIDSplitUp[0]); } if (sIDSplitUp.Length >= 2) { oGeneralData.SetProperty("U_IDSEC2", sIDSplitUp[1]); } if (sIDSplitUp.Length >= 3) { oGeneralData.SetProperty("U_IDSEC3", sIDSplitUp[2]); } } oGeneralData.SetProperty("U_IDTYPE", "INDIVIDUAL"); oGeneralData.SetProperty("U_TAXNOFORMAT1", dtDatatable.Rows[0]["TaxNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_MOBILE", dtDatatable.Rows[0]["MobileNo"].ToString()); oGeneralData.SetProperty("U_CONTACT_TELEPHONE", dtDatatable.Rows[0]["Telephone"].ToString()); oGeneralData.SetProperty("U_SYARIKATNO", dtDatatable.Rows[0]["OfficeNo"].ToString()); oGeneralData.SetProperty("U_ADDSEG1", dtDatatable.Rows[0]["IDAddress1"].ToString()); oGeneralData.SetProperty("U_ADDSEG2", dtDatatable.Rows[0]["IDAddress2"].ToString()); oGeneralData.SetProperty("U_ADDSEG3", dtDatatable.Rows[0]["IDAddress3"].ToString()); oGeneralData.SetProperty("U_ADDSEG4", dtDatatable.Rows[0]["IDAddress4"].ToString()); oGeneralData.SetProperty("U_ADDSEG5", dtDatatable.Rows[0]["IDAddress5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_ID", sAddressId); oGeneralData.SetProperty("U_CADDSEG1", dtDatatable.Rows[0]["CorresAddr1"].ToString()); oGeneralData.SetProperty("U_CADDSEG2", dtDatatable.Rows[0]["CorresAddr2"].ToString()); oGeneralData.SetProperty("U_CADDSEG3", dtDatatable.Rows[0]["CorresAddr3"].ToString()); oGeneralData.SetProperty("U_CADDSEG4", dtDatatable.Rows[0]["CorresAddr4"].ToString()); oGeneralData.SetProperty("U_CADDSEG5", dtDatatable.Rows[0]["CorresAddr5"].ToString()); oGeneralData.SetProperty("U_ADDRESS_CORRESPOND", sCorrespondAddressId); oGeneralData.SetProperty("U_ADDRESS_TOUSE", dtDatatable.Rows[0]["AddressToUse"].ToString()); oGeneralData.SetProperty("U_BANK", "N"); oGeneralData.SetProperty("U_DEVELOPER", "N"); oGeneralData.SetProperty("U_SOLICITOR", "N"); //oGeneralData.SetProperty("LastUpdatedOn", dtDatatable.Rows[0]["LastUpdatedOn"].ToString()); oGeneralData.SetProperty("U_IDSCAN1", dtDatatable.Rows[0]["ScanFrontICLocation"].ToString()); oGeneralData.SetProperty("U_IDSCAN2", dtDatatable.Rows[0]["ScanBackICLocation"].ToString()); oGeneralData.SetProperty("U_MaritalStatus", dtDatatable.Rows[0]["MaritalStatus"].ToString()); oGeneralData.SetProperty("U_OCCUPATION", dtDatatable.Rows[0]["Occupation"].ToString()); oGeneralData.SetProperty("U_IdentityType", dtDatatable.Rows[0]["IdentityType"].ToString()); oGeneralService.Add(oGeneralData); //} //else //{ // SPA_EditIndividual(dtDatatable, ExistingCheck.Rows[0][0].ToString(), ExistingCheck.Rows[0][1].ToString()); //} } else { SPA_EditIndividual(dtDatatable, ExistingCheck.Rows[0][0].ToString(), ExistingCheck.Rows[0][1].ToString()); } sReturnResult = "SUCCESS"; } catch (Exception Ex) { sErrDesc = Ex.Message.ToString(); oLog.WriteToErrorLogFile(sErrDesc, sFuncName); if (p_iDebugMode == DEBUG_ON) { oLog.WriteToDebugLogFile("Completed With ERROR ", sFuncName); } throw Ex; } return(sReturnResult); }
private static void Main(string[] args) { try { SAPbouiCOM.Framework.Application oApp = null; if (args.Length < 1) { oApp = new SAPbouiCOM.Framework.Application(); } else { oApp = new SAPbouiCOM.Framework.Application(args[0]); } #region Log string AddOn = AppDomain.CurrentDomain.FriendlyName.Replace(".exe", ""); string User = Environment.UserName + "." + Environment.UserDomainName; string PId = System.Diagnostics.Process.GetCurrentProcess().Id.ToString(); string Path = $"C:\\ProgramData\\SAP\\SAP Business One\\Log\\{AddOn}\\{User}"; System.Threading.Tasks.Task.Run(() => CommonFunctions.DeleteOldLogFiles(Path)); if (!Directory.Exists(Path)) { Directory.CreateDirectory(Path); } LogFile = $"{Path}\\{AddOn}.{DateTime.Now.ToString("yyyyMMdd_HH.mm.ss")}.pid{PId}.log.csv"; #endregion Log sbo_application = SAPbouiCOM.Framework.Application.SBO_Application; sbo_company = (SAPbobsCOM.Company)sbo_application.Company.GetDICompany(); #if DEBUG sbo_application.StatusBar.SetText(string.Format("{0} = {1}", DateTime.Now.ToString("yyyy-MM-dd hh:mm:ss"), "Conectando al SL"), SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); #endif sessionId = sbo_application.Company.GetServiceLayerConnectionContext(ServiceLayer.Address); #if DEBUG sbo_application.StatusBar.SetText(string.Format("{0} = {1}", DateTime.Now.ToString("yyyy-MM-dd hh:mm:ss"), "SL conectado"), SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); #endif oNumberFormatInfo.NumberDecimalSeparator = sbo_company.GetCompanyService().GetAdminInfo().DecimalSeparator; oNumberFormatInfo.NumberGroupSeparator = sbo_company.GetCompanyService().GetAdminInfo().ThousandsSeparator; RemoveMenus(); AddMenuItems(); sbo_application.MenuEvent += new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(SBO_Application_MenuEvent); sbo_application.AppEvent += new SAPbouiCOM._IApplicationEvents_AppEventEventHandler(SBO_Application_AppEvent); sbo_application.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(SBO_Application_ItemEvent); sbo_application.FormDataEvent += new SAPbouiCOM._IApplicationEvents_FormDataEventEventHandler(SBO_Application_FormDataEvent); sbo_application.ReportDataEvent += new SAPbouiCOM._IApplicationEvents_ReportDataEventEventHandler(SBO_Application_ReportDataEvent); sbo_application.PrintEvent += new SAPbouiCOM._IApplicationEvents_PrintEventEventHandler(SBO_Application_PrintEvent); sbo_application.RightClickEvent += new SAPbouiCOM._IApplicationEvents_RightClickEventEventHandler(SBO_Application_RightClickEvent); sbo_application.ProgressBarEvent += new SAPbouiCOM._IApplicationEvents_ProgressBarEventEventHandler(SBO_Application_ProgressBarEvent); sbo_application.StatusBar.SetText(string.Format("Revisando la estructura de la base de datos"), SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //System.Threading.Tasks.Task.Run(() => LoadUserTablesMDToXmlFile(AddonNamespace)); //System.Threading.Tasks.Task.Run(() => LoadUserFieldMDToXmlFile(AddonNamespace)); //System.Threading.Tasks.Task.Run(() => LoadUserObjectsMDToXmlFile(AddonNamespace)); //try{LoadUserTablesMDFromXmlFile(UserTablesFile);} catch (Exception e) {sbo_application.StatusBar.SetText(e.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);} //try{LoadUserFieldMDFromXmlFile(UserFieldsFile);} catch (Exception e) {sbo_application.StatusBar.SetText(e.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);} //try{LoadUserObjectMDFromXmlFile(UserObjectsFile);} catch (Exception e) {sbo_application.StatusBar.SetText(e.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);} CommonFunctions.GET(ServiceLayer.ActivityLocations, null, null, sessionId, out _); sbo_application.StatusBar.SetText(string.Format("Revision completada"), SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); sbo_application.StatusBar.SetText($"Addon {AddOnName} conectado", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); #if DEBUG Console.WriteLine(string.Format("{0} = {1}", DateTime.Now.ToString("yyyy-MM-dd hh:mm:ss"), "Addon cargado")); #endif oApp.Run(); } catch (Exception ex) { System.Windows.Forms.MessageBox.Show(ex.Message); } }
public string SPA_AddPropertyEnquiry(DataTable dtDatatable) { string sFuncName = string.Empty; string sReturnResult = string.Empty; //int sCode = 1; string sCode = string.Empty; try { sFuncName = "SPA_AddPropertyEnquiry"; DataTable results = new DataTable(); SqlConnection con = new SqlConnection(ConnectionString); SqlCommand command = con.CreateCommand(); //command.CommandText = "select Count(CODE) from [@AE_PROPERTY]"; command.CommandText = "SELECT REPLICATE('0', (12-LEN(ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)))) " + " + CONVERT(VARCHAR, ISNULL(MAX(SUBSTRING(Code,4,LEN(Code)))+1,1)) [Code] FROM [@AE_PROPERTY] WITH (NOLOCK)"; con.Open(); SqlDataAdapter dataAdapter = new SqlDataAdapter(command); dataAdapter.Fill(results); if (results.Rows[0][0].ToString().Length > 0) { //sCode = Convert.ToInt32(results.Rows[0][0].ToString()) + 1; sCode = results.Rows[0][0].ToString(); } con.Close(); if (p_iDebugMode == DEBUG_ON) { oLog.WriteToDebugLogFile("Connecting to target company ", sFuncName); } oDICompany = oLogin.ConnectToTargetCompany(ConnectionString); SAPbobsCOM.GeneralService oGeneralService = null; SAPbobsCOM.GeneralData oGeneralData; SAPbobsCOM.CompanyService oCompanyService = oDICompany.GetCompanyService(); oGeneralService = oCompanyService.GetGeneralService("PROPERTY"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); //Adding the Informations oGeneralData.SetProperty("Code", sCode.ToString()); oGeneralData.SetProperty("U_TITLETYPE", dtDatatable.Rows[0]["TITLETYPE"].ToString()); oGeneralData.SetProperty("U_TITLENO", dtDatatable.Rows[0]["TITLENO"].ToString()); oGeneralData.SetProperty("U_LOTTYPE", dtDatatable.Rows[0]["LOTTYPE"].ToString()); oGeneralData.SetProperty("U_LOTNO", dtDatatable.Rows[0]["LOTNO"].ToString()); oGeneralData.SetProperty("U_FORMERLY_KNOWN_AS", dtDatatable.Rows[0]["FORMERLY_KNOWN_AS"].ToString()); oGeneralData.SetProperty("U_BPM", dtDatatable.Rows[0]["BPM"].ToString()); oGeneralData.SetProperty("U_STATE", dtDatatable.Rows[0]["STATE"].ToString()); oGeneralData.SetProperty("U_AREA", dtDatatable.Rows[0]["AREA"].ToString()); oGeneralData.SetProperty("U_LOTAREA", dtDatatable.Rows[0]["LOTAREA"].ToString()); //oGeneralData.SetProperty("U_LASTUPDATEDON", dtDatatable.Rows[0]["LASTUPDATEDON"].ToString()); oGeneralData.SetProperty("U_DEVELOPER", dtDatatable.Rows[0]["DEVELOPER"].ToString()); oGeneralData.SetProperty("U_DVLPR_CODE", dtDatatable.Rows[0]["DVLPR_CODE"].ToString()); oGeneralData.SetProperty("U_PROJECT_CODE", dtDatatable.Rows[0]["PROJECT_CODE"].ToString()); oGeneralData.SetProperty("U_PROJECTNAME", dtDatatable.Rows[0]["PROJECTNAME"].ToString()); if (dtDatatable.Rows[0]["DEVLICNO"].ToString() != strSelect.ToString()) { oGeneralData.SetProperty("U_DEVLICNO", dtDatatable.Rows[0]["DEVLICNO"].ToString()); } oGeneralData.SetProperty("U_DEVSOLICTOR", dtDatatable.Rows[0]["DEVSOLICTOR"].ToString()); oGeneralData.SetProperty("U_DVLPR_SOL_CODE", dtDatatable.Rows[0]["DVLPR_SOL_CODE"].ToString()); oGeneralData.SetProperty("U_DVLPR_LOC", dtDatatable.Rows[0]["DVLPR_LOC"].ToString()); oGeneralData.SetProperty("U_LSTCHG_BANKCODE", dtDatatable.Rows[0]["LSTCHG_BANKCODE"].ToString()); oGeneralData.SetProperty("U_LSTCHG_BANKNAME", dtDatatable.Rows[0]["LSTCHG_BANKNAME"].ToString()); oGeneralData.SetProperty("U_LSTCHG_BRANCH", dtDatatable.Rows[0]["LSTCHG_BRANCH"].ToString()); oGeneralData.SetProperty("U_LSTCHG_PANO", dtDatatable.Rows[0]["LSTCHG_PANO"].ToString()); oGeneralData.SetProperty("U_LSTCHG_PRSTNO", dtDatatable.Rows[0]["LSTCHG_PRSTNO"].ToString()); if (dtDatatable.Rows[0]["PROPERTYCHARGED"].ToString() == "Y") { oGeneralData.SetProperty("U_PROPERTY_CHARGED", "Y"); oGeneralData.SetProperty("U_PROPERTY_FREE", "N"); } else { oGeneralData.SetProperty("U_PROPERTY_CHARGED", "N"); oGeneralData.SetProperty("U_PROPERTY_FREE", "Y"); } oGeneralService.Add(oGeneralData); sReturnResult = "SUCCESS"; } catch (Exception Ex) { sErrDesc = Ex.Message.ToString(); oLog.WriteToErrorLogFile(sErrDesc, sFuncName); if (p_iDebugMode == DEBUG_ON) { oLog.WriteToDebugLogFile("Completed With ERROR ", sFuncName); } throw Ex; } return(sReturnResult); }
public void AddRecord(RegInspeccionHeader cabRegistro) { SAPbobsCOM.GeneralService oGeneralService; SAPbobsCOM.GeneralData oGeneralData; SAPbobsCOM.CompanyService oCompService; oCompService = oCompany.GetCompanyService(); oCompany.StartTransaction(); oGeneralService = oCompService.GetGeneralService("VID_CONTROLCH"); oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); //Setting Data to Master Data Table Fields oGeneralData.SetProperty("U_FecIngr", cabRegistro.fecIngr); oGeneralData.SetProperty("U_FecContr", cabRegistro.fecContr); oGeneralData.SetProperty("U_FecIni", cabRegistro.fecIni); oGeneralData.SetProperty("U_FecFin", cabRegistro.fecFin); oGeneralData.SetProperty("DocNum", cabRegistro.docNum); oGeneralData.SetProperty("U_ItemCode", cabRegistro.itemCode); oGeneralData.SetProperty("U_NumTras", cabRegistro.numTras); oGeneralData.SetProperty("U_ItemName", cabRegistro.itemName); oGeneralData.SetProperty("U_WhsCode", cabRegistro.whsCode); oGeneralData.SetProperty("U_WhsDest", cabRegistro.whsDest); oGeneralData.SetProperty("U_NoLote", cabRegistro.noLote); oGeneralData.SetProperty("U_CorrLote", cabRegistro.corrLote); oGeneralData.SetProperty("U_Cantidad", cabRegistro.cantidad); oGeneralData.SetProperty("U_Bultos", cabRegistro.bultos); oGeneralData.SetProperty("U_BultosMu", cabRegistro.bultosMu); oGeneralData.SetProperty("U_ContraMu", cabRegistro.contraMu); oGeneralData.SetProperty("U_MuestDes", cabRegistro.muesDes); oGeneralData.SetProperty("U_Traslado", cabRegistro.traslado); oGeneralData.SetProperty("U_Reanalis", cabRegistro.reanalis); oGeneralData.SetProperty("U_CorrAnal", cabRegistro.corrAnal); oGeneralData.SetProperty("U_FecUltIn", cabRegistro.fecUltIn); oGeneralData.SetProperty("U_UM", cabRegistro.unidadM); oGeneralData.SetProperty("U_CtaCalid", cabRegistro.ctaCalidad); oGeneralData.SetProperty("U_CCCode", cabRegistro.cCCode); oGeneralData.SetProperty("U_Estado", cabRegistro.estado); oGeneralData.SetProperty("U_TipResul", cabRegistro.tipResul); oGeneralData.SetProperty("U_PrjCode", cabRegistro.prjCode); oGeneralData.SetProperty("U_Comment", cabRegistro.comment); oGeneralData.SetProperty("U_NumTras", cabRegistro.numTras); }
public static void CreatePriceList(string _Code, string _Name) { SAPbobsCOM.GeneralService oDocGeneralService; SAPbobsCOM.GeneralData oDocGeneralData; SAPbobsCOM.GeneralDataCollection oDocLinesCollection; SAPbobsCOM.GeneralData oDocLineGeneralData; SAPbobsCOM.CompanyService oCompService; oCompService = oCompany.GetCompanyService(); // Retrieve the relevant service oDocGeneralService = oCompService.GetGeneralService("OCRP"); // Point to the Header of the Doc UDO oDocGeneralData = (SAPbobsCOM.GeneralData)oDocGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData); // Insert values to the Header properties oDocGeneralData.SetProperty("Code", _Code); oDocGeneralData.SetProperty("Name", _Name); string _sqlPriceList; DataTable _tblPriceList = new DataTable(); _sqlPriceList = @" SELECT A.ItmsGrpCod, A.ItmsGrpNam , 0.00 AS [VISMIN DISC %] , 0.00 AS [GMA DISC %] FROM OITB A "; _tblPriceList = clsSQLClientFunctions.DataList(clsDeclaration.sSAPConnection, _sqlPriceList); foreach (DataRow row in _tblPriceList.Rows) { string _ItmsGrpNam = row["ItmsGrpNam"].ToString(); string _VisMinDisc = row["VISMIN DISC %"].ToString(); string _GMADisc = row["GMA DISC %"].ToString(); oDocLinesCollection = oDocGeneralData.Child("OCPL"); oDocLineGeneralData = oDocLinesCollection.Add(); oDocLineGeneralData.SetProperty("U_Category", _ItmsGrpNam); oDocLineGeneralData.SetProperty("U_VisMinDisc", _VisMinDisc); oDocLineGeneralData.SetProperty("U_GMADisc", _GMADisc); } _sqlPriceList = @" SELECT A.ItemCode, A.ItemName FROM OITM A "; _tblPriceList = clsSQLClientFunctions.DataList(clsDeclaration.sSAPConnection, _sqlPriceList); foreach (DataRow row in _tblPriceList.Rows) { string _ItemCode = row["ItemCode"].ToString(); string _ItemName = row["ItemName"].ToString(); string _Value = "0.00"; oDocLinesCollection = oDocGeneralData.Child("OIPL"); oDocLineGeneralData = oDocLinesCollection.Add(); oDocLineGeneralData.SetProperty("U_ItemCode", _ItemCode); oDocLineGeneralData.SetProperty("U_ItemName", _ItemName); oDocLineGeneralData.SetProperty("U_VisMinPrice", _Value); oDocLineGeneralData.SetProperty("U_GMAPrice", _Value); oDocLineGeneralData.SetProperty("U_VisMinDisc", _Value); oDocLineGeneralData.SetProperty("U_GMADisc", _Value); oDocLineGeneralData.SetProperty("U_VisMinNet", _Value); oDocLineGeneralData.SetProperty("U_GMANet", _Value); } // Insert Values to the Lines properties try try { oDocGeneralService.Add(oDocGeneralData); } catch (Exception ex) { MessageBox.Show(ex.Message); //oDocGeneralService.Update(oDocGeneralData); } if (oCompany.InTransaction) { oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit); //SBO_Application.MessageBox("Add Doc UDO Header and Lines successfully", 1, "", "", ""); } else { //SBO_Application.MessageBox("Error adding object", 1, "", "", ""); } }
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"); } }
private static void Main(string[] args) { string AddOn = AppDomain.CurrentDomain.FriendlyName.Replace(".exe", ""); string User = Environment.UserName + "." + Environment.UserDomainName; string PId = System.Diagnostics.Process.GetCurrentProcess().Id.ToString(); string Path = $"C:\\ProgramData\\SAP\\SAP Business One\\Log\\{AddOn}\\{User}"; LogFile = $"{Path}\\Addon.{DateTime.Now.ToString("yyyyMMdd_HH.mm.ss")}.pid{PId}.log.csv"; try { if (!Directory.Exists(Path)) { Directory.CreateDirectory(Path); } System.Threading.Tasks.Task.Run(() => CommonFunctions.DeleteOldLogFiles(Path)); SAPbouiCOM.Framework.Application oApp = null; if (args.Length < 1) { oApp = new SAPbouiCOM.Framework.Application(); } else { oApp = new SAPbouiCOM.Framework.Application(args[0]); } sbo_application = SAPbouiCOM.Framework.Application.SBO_Application; sbo_company = (SAPbobsCOM.Company)sbo_application.Company.GetDICompany(); oNumberFormatInfo.NumberDecimalSeparator = sbo_company.GetCompanyService().GetAdminInfo().DecimalSeparator; oNumberFormatInfo.NumberGroupSeparator = sbo_company.GetCompanyService().GetAdminInfo().ThousandsSeparator; RemoveMenus(); AddMenuItems(); sbo_application.MenuEvent += new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(SBO_Application_MenuEvent); sbo_application.AppEvent += new SAPbouiCOM._IApplicationEvents_AppEventEventHandler(SBO_Application_AppEvent); sbo_application.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(SBO_Application_ItemEvent); sbo_application.FormDataEvent += new SAPbouiCOM._IApplicationEvents_FormDataEventEventHandler(SBO_Application_FormDataEvent); sbo_application.ReportDataEvent += new SAPbouiCOM._IApplicationEvents_ReportDataEventEventHandler(SBO_Application_ReportDataEvent); sbo_application.PrintEvent += new SAPbouiCOM._IApplicationEvents_PrintEventEventHandler(SBO_Application_PrintEvent); sbo_application.RightClickEvent += new SAPbouiCOM._IApplicationEvents_RightClickEventEventHandler(SBO_Application_RightClickEvent); sbo_application.ProgressBarEvent += new SAPbouiCOM._IApplicationEvents_ProgressBarEventEventHandler(SBO_Application_ProgressBarEvent); sbo_application.StatusBar.SetText(string.Format("Revisando la estructura de la base de datos"), SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //System.Threading.Tasks.Task.Run(() => LoadUserTablesMDToXmlFile(AddonNamespace)); //System.Threading.Tasks.Task.Run(() => LoadUserFieldMDToXmlFile(AddonNamespace)); //System.Threading.Tasks.Task.Run(() => LoadUserObjectsMDToXmlFile(AddonNamespace)); //try { LoadUserTablesMDFromXmlFile(UserTablesFile); } catch (Exception e) { sbo_application.StatusBar.SetText(e.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); } //try { LoadUserFieldMDFromXmlFile(UserFieldsFile); } catch (Exception e) { sbo_application.StatusBar.SetText(e.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); } //try { LoadUserObjectMDFromXmlFile(UserObjectsFile); } catch (Exception e) { sbo_application.StatusBar.SetText(e.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); } sbo_application.StatusBar.SetText(string.Format("Revision completada"), SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); sbo_application.StatusBar.SetText($"Addon {AddOnName} conectado", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); #if DEBUG sbo_application.StatusBar.SetText(string.Format("{0} = {1}", DateTime.Now.ToString("yyyy-MM-dd hh:mm:ss"), "Conectando al SL"), SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); #endif try { sessionId = sbo_application.Company.GetServiceLayerConnectionContext(ServiceLayer.Address); } catch { ShowInputDialog(ref UsrPass); if (string.IsNullOrEmpty(UsrPass)) { sbo_application.MessageBox("Debe ingresar su contraseña SAP, salga y vuelva a entrar"); Environment.Exit(0); } var log = new Login { CompanyDB = sbo_company.CompanyDB, UserName = sbo_company.UserName, Password = UsrPass }; sessionId = CommonFunctions.POST(ServiceLayer.Login, log, null, out System.Net.HttpStatusCode statusCode); if (statusCode != System.Net.HttpStatusCode.OK) { sbo_application.MessageBox("Clave incorrecta, salga y vuelva a entrar"); Environment.Exit(0); } } #if DEBUG sbo_application.StatusBar.SetText(string.Format("{0} = {1}", DateTime.Now.ToString("yyyy-MM-dd hh:mm:ss"), "SL conectado"), SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); #endif oApp.Run(); } catch (Exception ex) { CommonFunctions.LogFile(LogFile, ex.Message); MessageBox.Show(ex.Message); } }