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);
}
}
