Exemple #1
0
        private void getOSCNDetail()
        {
            int selRow = mtSelRow(mtOSCN);

            if (selRow > 0)
            {
                string cardCode   = dtHead.GetValue("CardCode", 0).ToString();
                string ItemCode   = dtOSCN.GetValue("ItemCode", selRow - 1).ToString();
                string Substitute = dtOSCN.GetValue("CAT", selRow - 1).ToString();


                SAPbobsCOM.AlternateCatNum catNum = (SAPbobsCOM.AlternateCatNum)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oAlternateCatNum);
                catNum.GetByKey(ItemCode, cardCode, Substitute);


                dtHead.SetValue("OSCNCS", 0, catNum.UserFields.Fields.Item("U_CutSpec").Value);
                dtHead.SetValue("OSCNPS", 0, catNum.UserFields.Fields.Item("U_PecSpec").Value);
                dtHead.SetValue("OSCNCHS", 0, catNum.UserFields.Fields.Item("U_CheSpec").Value);
                dtHead.SetValue("SL", 0, catNum.UserFields.Fields.Item("U_SL").Value);

                dtHead.SetValue("Img", 0, oCompany.AttachMentPath.ToString() + "\\" + catNum.UserFields.Fields.Item("U_Img").Value);
            }
            else
            {
                oApplication.MessageBox("Please select an item");
            }
        }
Exemple #2
0
        private void updateOSCN()
        {
            int selRow = mtSelRow(mtOSCN);

            if (selRow > 0)
            {
                string cardCode   = dtHead.GetValue("CardCode", 0).ToString();
                string ItemCode   = dtOSCN.GetValue("ItemCode", selRow - 1).ToString();
                string Substitute = dtOSCN.GetValue("CAT", selRow - 1).ToString();
                string cutSpec    = dtHead.GetValue("OSCNCS", 0).ToString();
                string PackSpec   = dtHead.GetValue("OSCNPS", 0).ToString();
                string Chepec     = dtHead.GetValue("OSCNCHS", 0).ToString();
                string img        = dtHead.GetValue("Img", 0).ToString();
                string SL         = dtHead.GetValue("SL", 0).ToString();


                string sSourcePath = "";
                string sFile       = "";
                string sExt        = "";


                SAPbobsCOM.AlternateCatNum catNum = (SAPbobsCOM.AlternateCatNum)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oAlternateCatNum);
                catNum.GetByKey(ItemCode, cardCode, Substitute);

                catNum.UserFields.Fields.Item("U_PecSpec").Value = PackSpec;
                catNum.UserFields.Fields.Item("U_CutSpec").Value = cutSpec;
                catNum.UserFields.Fields.Item("U_CheSpec").Value = Chepec;
                catNum.UserFields.Fields.Item("U_SL").Value      = Convert.ToInt32(SL);


                if (img != "")
                {
                    splitPath(img, out sFile, out sExt, out sSourcePath);
                    catNum.UserFields.Fields.Item("U_Img").Value = sFile + "." + sExt;
                }
                catNum.Update();
                oApplication.SetStatusBarMessage("Catalog Updated Successfully", SAPbouiCOM.BoMessageTime.bmt_Short, false);
            }
            else
            {
                oApplication.MessageBox("Please select an item");
            }
        }
Exemple #3
0
        private void addOSCN()
        {
            string strCardCode = dtHead.GetValue("CardCode", 0).ToString();

            if (strCardCode == "")
            {
                oApplication.MessageBox("Customer Not Selected");
                return;
            }
            else
            {
                string itemCode = dtHead.GetValue("OSCNCode", 0).ToString();
                string CAT      = dtHead.GetValue("OSCNCat", 0).ToString();

                SAPbobsCOM.AlternateCatNum catNum = (SAPbobsCOM.AlternateCatNum)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oAlternateCatNum);

                catNum.ItemCode   = itemCode;
                catNum.CardCode   = strCardCode;
                catNum.Substitute = CAT;
                if (catNum.Add() != 0)
                {
                    int    erroCode = 0;
                    string errDescr = "";
                    Program.objHrmsUI.oCompany.GetLastError(out erroCode, out errDescr);
                    oApplication.StatusBar.SetText("Failed to add BP Catalog  : " + errDescr);
                }
                else
                {
                    dtHead.SetValue("OSCNCode", 0, "");
                    dtHead.SetValue("OSCNCat", 0, "");
                    txOICODE.Active = true;
                    oApplication.SetStatusBarMessage("Catalog Added Successfully", SAPbouiCOM.BoMessageTime.bmt_Short, false);
                    getOSCN();
                }
            }
        }