Пример #1
0
        // toggle all checkbox in matrix
        private void checkAllMat(SAPbouiCOM.Matrix theMatrix)
        {
            try
            {
                _oForm.Freeze(true);
                if (!toggleGridCheckBox)
                {
                    for (int i = 0; i < _dt_VendorMatrix.Rows.Count; i++)
                    {
                        _dt_VendorMatrix.SetValue("Check", i, "Y");
                    }

                    theMatrix.LoadFromDataSource();

                    toggleGridCheckBox = true;
                }
                else
                {
                    for (int i = 0; i < _dt_VendorMatrix.Rows.Count; i++)
                    {
                        _dt_VendorMatrix.SetValue("Check", i, "N");
                    }

                    theMatrix.LoadFromDataSource();

                    toggleGridCheckBox = false;
                }
            }
            catch (Exception ex) { eCommon.SBO_Application.MessageBox(ex.Message); }

            _oForm.Freeze(false);
        }
Пример #2
0
        private void fillLevels()
        {
            Hashtable hp = new Hashtable();

            //  string strDelete = " CALL GET_AM_F();  ";
            //  Program.objHrmsUI.ExecQuery(strDelete, "Creating Level");
            //   System.Data.DataTable dtRoot = Program.objHrmsUI.getDataTableQryCode("AM_FillAM", hp, "Fill Root");
            System.Data.DataTable dtRoot = Program.objHrmsUI.getDataTable("CALL GET_AM_F();", "Fill Root");
            dtRoot = Program.objHrmsUI.getDataTable("SELECT * FROM \"@B1_AM_F\"", "Fill Root");

            dtCA.Rows.Clear();

            if (dtRoot.Rows.Count > 0)
            {
                dtCA.Rows.Add(dtRoot.Rows.Count);
                int i = 0;
                foreach (System.Data.DataRow dr in dtRoot.Rows)
                {
                    dtCA.SetValue("Code", i, dr["Code"].ToString());
                    dtCA.SetValue("Name", i, dr["Name"].ToString());
                    i++;
                }
            }
            else
            {
                addRoot();
            }
            oApplication.StatusBar.SetText("Level updated successfully", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
        }
Пример #3
0
        private void InitiallizeForm()
        {
            isForLoading = true;
            oForm.Freeze(true);

            tab1 = (SAPbouiCOM.Folder)oForm.Items.Item("21").Specific;
            tab3 = (SAPbouiCOM.Folder)oForm.Items.Item("19").Specific;
            tab4 = (SAPbouiCOM.Folder)oForm.Items.Item("35").Specific;

            dtHead  = oForm.DataSources.DataTables.Item("dtHead");
            Animals = oForm.DataSources.DataTables.Item("Animals");
            DTRpt   = oForm.DataSources.DataTables.Item("DTRpt");
            dtPro   = oForm.DataSources.DataTables.Item("dtPro");
            dtReqT  = oForm.DataSources.DataTables.Item("dtReqT");
            dtTypeS = oForm.DataSources.DataTables.Item("dtTypeS");


            ocflCard = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("cflCard");
            cflcardcode(ocflCard, "cflCard");


            mtAnimals = (SAPbouiCOM.Matrix)oForm.Items.Item("mtAnimals").Specific;
            mtReqT    = (SAPbouiCOM.Matrix)oForm.Items.Item("mtReqT").Specific;

            mtRpt     = (SAPbouiCOM.Matrix)oForm.Items.Item("mtRpt").Specific;
            mtProd    = (SAPbouiCOM.Matrix)oForm.Items.Item("mtProd").Specific;
            mtTypePRO = (SAPbouiCOM.Matrix)oForm.Items.Item("mtTypePRO").Specific;


            cbAT = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbAT").Specific;
            cbAC = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbAC").Specific;


            txQtyT     = (SAPbouiCOM.EditText)oForm.Items.Item("29").Specific;
            txSupplier = (SAPbouiCOM.EditText)oForm.Items.Item("47").Specific;

            chSO  = (SAPbouiCOM.CheckBox)oForm.Items.Item("chSO").Specific;
            chPRO = (SAPbouiCOM.CheckBox)oForm.Items.Item("crRPRO").Specific;

            dtHead.Rows.Add(1);
            dtHead.SetValue("DocDate", 0, DateTime.Now);
            dtHead.SetValue("PoDate", 0, DateTime.Now);

            dtHead.SetValue("stDate", 0, DateTime.Now.AddDays(1));
            dtHead.SetValue("eDate", 0, DateTime.Now.AddDays(4));
            oForm.Freeze(false);
            fillCB();

            txQtyT.Item.Enabled = false;
            oForm.PaneLevel     = 4;
            tab4.Select();
            isForLoading = false;
            fillPO();
            mtProd.Item.Visible = false;
            fillAThash();
            RefreshForm();
        }
Пример #4
0
        /// <summary>
        /// Forma el formulario de documentos, con los campos necesarios.
        /// </summary>
        private void CargarFormulario(String FormUID)
        {
            SAPbouiCOM.Form   oForm   = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
            SAPbouiCOM.Matrix oMatrix = oForm.Items.Item("Item_0").Specific;
            oMatrix.Layout        = SAPbouiCOM.BoMatrixLayoutType.mlt_Normal;
            oMatrix.SelectionMode = SAPbouiCOM.BoMatrixSelect.ms_Single;

            // Datasource para blindear matrix
            oForm.DataSources.DataTables.Add("FILAS");
            SAPbouiCOM.DataTable dt = oForm.DataSources.DataTables.Item("FILAS");

            dt.Columns.Add("co_LineNum", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Serv", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Tot", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Imp", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Cta", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Esp", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Var", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Categ", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Catpa", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);
            dt.Columns.Add("co_Rolp", SAPbouiCOM.BoFieldsType.ft_AlphaNumeric);

            Int32 Index = 0;

            foreach (Filas fil in ListaFilas.ListFilas)
            {
                dt.Rows.Add();
                dt.SetValue("co_LineNum", Index, fil.LineNum.ToString());
                dt.SetValue("co_Serv", Index, fil.Servicio);
                dt.SetValue("co_Tot", Index, String.Format(System.Globalization.CultureInfo.GetCultureInfo("es-CL"), "{0:C0}", fil.Total));
                dt.SetValue("co_Imp", Index, fil.Impuesto);
                dt.SetValue("co_Cta", Index, String.Empty);
                dt.SetValue("co_Esp", Index, String.Empty);
                dt.SetValue("co_Var", Index, String.Empty);
                dt.SetValue("co_Categ", Index, String.Empty);
                dt.SetValue("co_Catpa", Index, String.Empty);
                dt.SetValue("co_Rolp", Index, String.Empty);
                Index++;
            }

            oMatrix.Columns.Item("col_lin").DataBind.Bind("FILAS", "co_LineNum");
            oMatrix.Columns.Item("col_Serv").DataBind.Bind("FILAS", "co_Serv");
            oMatrix.Columns.Item("col_Tot").DataBind.Bind("FILAS", "co_Tot");
            oMatrix.Columns.Item("col_Imp").DataBind.Bind("FILAS", "co_Imp");
            oMatrix.Columns.Item("col_Cta").DataBind.Bind("FILAS", "co_Cta");
            oMatrix.Columns.Item("col_Esp").DataBind.Bind("FILAS", "co_Esp");
            oMatrix.Columns.Item("col_Var").DataBind.Bind("FILAS", "co_Var");
            oMatrix.Columns.Item("col_Cat").DataBind.Bind("FILAS", "co_Categ");
            oMatrix.Columns.Item("col_Catpa").DataBind.Bind("FILAS", "co_Catpa");
            oMatrix.Columns.Item("col_Rolp").DataBind.Bind("FILAS", "co_Rolp");

            oMatrix.LoadFromDataSource();
        }
Пример #5
0
        private void gvRecDocuments_ClickAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
        {
            if (currentRecItemCode != string.Empty)
            {
                PopulateRecBatchTables();
            }
            if (pVal.Row >= 0)
            {
                string itemCode  = dtRecDocuments.GetValue("ItemCode", pVal.Row).ToString();
                string whsCode   = dtRecDocuments.GetValue("WhsCode", pVal.Row).ToString();
                double avgPrice  = Convert.ToDouble(dtRecDocuments.GetValue("AvgPrice", pVal.Row));
                double addAmount = Convert.ToDouble(dtRecDocuments.GetValue("AddAmount", pVal.Row));
                double quantity  = Convert.ToDouble(dtRecDocuments.GetValue("Quantity", pVal.Row));

                currentRecDocumentIndex = pVal.Row;
                currentRecItemCode      = itemCode;
                currentRecWhsCode       = whsCode;

                //CHECK IF THE SELECTED BATCHES TABLE HAS BEEN POPULATED BEFORE
                var selectedBatches = receiptBatchDataSources.Where(x => x.ItemCode == currentRecItemCode && x.WhsCode == currentRecWhsCode && x.Index == currentRecDocumentIndex);
                if (selectedBatches.Count() > 0)
                {
                    dtRecBatches.Rows.Clear();
                    this.UIAPIRawForm.Freeze(true);
                    for (int x = 0; x < selectedBatches.First().SelectedBatches.Rows.Count; x++)
                    {
                        dtRecBatches.Rows.Add(1);
                        dtRecBatches.SetValue("Batch", x, selectedBatches.First().SelectedBatches.Rows[x]["Batch"]);
                        dtRecBatches.SetValue("Selected Qty", x, selectedBatches.First().SelectedBatches.Rows[x]["Selected Qty"]);
                    }
                    this.UIAPIRawForm.Freeze(false);
                }
                else
                {
                    dtRecBatches.Rows.Clear();
                    //System.Data.DataTable dt = CopyBatchesDataTable(dtRecBatches);
                    var bds = new SelectedBatchDataSources()
                    {
                        AddAmount       = addAmount,
                        AvgPrice        = Convert.ToDouble(avgPrice),
                        Quantity        = Convert.ToDouble(quantity),
                        Index           = currentRecDocumentIndex,
                        ItemCode        = currentRecItemCode,
                        WhsCode         = currentRecWhsCode,
                        SelectedBatches = CopySelectedBatchesDataTable(dtRecBatches)
                    };
                    receiptBatchDataSources.Add(bds);
                }
            }
            gvRecBatches.AddLine();
        }
Пример #6
0
        private SAPbouiCOM.DataTable Convert_SAP_DataTable(System.Data.DataTable pDataTable)
        {
            SAPbouiCOM.DataTable oDT   = null;
            SAPbouiCOM.Form      oForm = SAPbouiCOM.Framework.Application.SBO_Application.Forms.ActiveForm;
            if (CheckExistUniqueID(oForm, "DT_SubList"))
            {
                oDT = oForm.DataSources.DataTables.Item("DT_SubList");
                oDT.Clear();
            }
            else
            {
                oDT = oForm.DataSources.DataTables.Add("DT_SubList");
            }
            //Add column to DataTable
            foreach (System.Data.DataColumn c in pDataTable.Columns)
            {
                try
                {
                    if (c.DataType.ToString() == "System.DateTime")
                    {
                        oDT.Columns.Add(c.ColumnName, SAPbouiCOM.BoFieldsType.ft_Date);
                    }
                    else
                    {
                        oDT.Columns.Add(c.ColumnName, SAPbouiCOM.BoFieldsType.ft_Text);
                    }
                }
                catch
                { }
            }
            //Add row to DataTable
            foreach (System.Data.DataRow r in pDataTable.Rows)
            {
                oDT.Rows.Add();
                foreach (System.Data.DataColumn c in pDataTable.Columns)
                {
                    if (c.DataType.ToString() == "System.DateTime")
                    {
                        oDT.SetValue(c.ColumnName, oDT.Rows.Count - 1, r[c.ColumnName]);
                    }
                    else
                    {
                        oDT.SetValue(c.ColumnName, oDT.Rows.Count - 1, r[c.ColumnName].ToString());
                    }
                }
            }

            return(oDT);
        }
Пример #7
0
        public static void Unir_DataTables(SAPbouiCOM.DataTable DT1, SAPbouiCOM.DataTable DT2)
        {
            try
            {
                for (int iRow = 0; iRow <= DT2.Rows.Count - 1; iRow++)
                {
                    DT1.Rows.Add();
                    int nRow = DT1.Rows.Count - 1;

                    for (int iCol = 0; iCol <= DT2.Columns.Count - 1; iCol++)
                    {
                        try
                        {
                            DT1.SetValue(iCol, nRow, DT2.GetValue(iCol, iRow));
                        }
                        catch (Exception)
                        {
                        }
                    }
                }
            }
            catch (Exception)
            {
            }
        }
        public SAPbouiCOM.DataTable GenerarEncabezado(SAPbouiCOM.DataTable DT_SQL, SAPbouiCOM.DataTable DT_HEAD)
        {
            try
            {
                string   FechaPago     = DT_SQL.GetValue(0, 0).ToString();
                string   CantidadPagos = DT_SQL.GetValue(0, 1).ToString();
                string   MontoPagos    = DT_SQL.GetValue(0, 2).ToString();//.Replace(".","");
                string[] SeparaTotal   = MontoPagos.Split('.');
                string   MontoEntero   = SeparaTotal[0];
                string   MontoDecimal  = SeparaTotal.Count() == 1 ? "00" : MontoPagos.Split('.')[1];

                string sql = @"EXEC	[dbo].[Min_Bancos_Generar_Encabezado_Archivo_PagoTXT]
		                        @U_FechaPago = N'"         + FechaPago + @"',
		                        @U_CantidadPago = N'"         + CantidadPagos + @"',
		                        @U_MontoTotal = N'"         + MontoEntero + MontoDecimal + "'";
                DT_HEAD.ExecuteQuery(sql);

                //Hay que establecer la columana de tipo TEXT para que puedan agregarse posteriormente los rgistros de detalle
                string RC = DT_HEAD.GetValue(0, 0).ToString().Trim();
                DT_HEAD.Clear();
                DT_HEAD.Columns.Add("Info", SAPbouiCOM.BoFieldsType.ft_Text);

                DT_HEAD.Rows.Add(1);
                DT_HEAD.SetValue("Info", 0, RC);
                //DT_HEAD.SetValue("Info", 0, "RC00354803021120160000100000000016184000578509689910000968991000                     [email protected]");
            }
            catch (Exception) {}

            return(DT_HEAD);
        }
Пример #9
0
        /// <summary>
        /// Loads the sellers list into the matrix.
        /// </summary>
        /// <param name="pFolio">The auction's folio.</param>
        public void LoadSellers(string pFolio)
        {
            mLstSellers = mAuctionDAO.GetAuctionSellers(pFolio, mIntUserSign);
            mDtSellers.Rows.Clear();
            int i = 0;

            foreach (AuctionSellerDTO lObjAuctionSeller in mLstSellers)
            {
                mDtSellers.Rows.Add();
                mDtSellers.SetValue("Name", i, lObjAuctionSeller.CardName);
                mDtSellers.SetValue("Amount", i, lObjAuctionSeller.Amount);
                i++;
            }

            mMtxSellers.LoadFromDataSource();
            mMtxSellers.AutoResizeColumns();
        }
Пример #10
0
        private void addEmptyRow(SAPbouiCOM.Matrix mt, SAPbouiCOM.DataTable dt, string firstCol)
        {
            if (dt.Rows.Count == 0)
            {
                dt.Rows.Add(2);
                dt.Rows.Remove(1);
                dt.SetValue("Id", 0, "1");
                mt.AddRow(1, mt.RowCount + 1);
            }
            else
            {
                if (Convert.ToString(dt.GetValue(firstCol, dt.Rows.Count - 1)) == "")
                {
                    string strCostCode = Convert.ToString(dt.GetValue(firstCol, dt.Rows.Count - 1));
                }
                else
                {
                    mt.AddRow(1, mt.RowCount + 1);
                    mt.SetLineData(mt.RowCount);
                    mt.FlushToDataSource();


                    dt.SetValue("Id", dt.Rows.Count - 1, dt.Rows.Count.ToString());
                    dt.SetValue(firstCol, dt.Rows.Count - 1, "");



                    BOQD.SetValue("STD", dt.Rows.Count - 1, "");
                    BOQD.SetValue("ETD", dt.Rows.Count - 1, "");
                    BOQD.SetValue("WBL", dt.Rows.Count - 1, "");
                    BOQD.SetValue("WBD", dt.Rows.Count - 1, "");
                    BOQD.SetValue("Type", dt.Rows.Count - 1, "");
                    BOQD.SetValue("Code", dt.Rows.Count - 1, "");
                    BOQD.SetValue("Name", dt.Rows.Count - 1, "");
                    BOQD.SetValue("Remarks", dt.Rows.Count - 1, "");
                    BOQD.SetValue("Qty", dt.Rows.Count - 1, "0");
                    BOQD.SetValue("UP", dt.Rows.Count - 1, "0");
                    BOQD.SetValue("BGTC", dt.Rows.Count - 1, "0");



                    mt.SetLineData(mt.RowCount);
                }
            }
            //    mt.LoadFromDataSource();
        }
Пример #11
0
        private void Seleccion(Boolean bvalor)
        {
            try
            {
                oForm.Freeze(true);

                SAPbouiCOM.Grid      oGrid   = (SAPbouiCOM.Grid)oForm.Items.Item("Grid").Specific;
                SAPbouiCOM.DataTable DT_GRID = oForm.DataSources.DataTables.Item("dt");


                for (Int32 i = 0; i <= DT_GRID.Rows.Count - 1; i++)
                {
                    if (oGrid.CommonSetting.GetCellEditable(i + 1, 1))
                    {
                        if (bvalor)
                        {
                            DT_GRID.SetValue("Selec.", i, "Y");
                        }
                        else
                        {
                            DT_GRID.SetValue("Selec.", i, "N");
                        }
                    }
                }
                CheckBox1.Item.Visible = true; //debe estar "visible" para camibar el checked

                if (((SAPbouiCOM.CheckBox)oForm.Items.Item("chk_sel").Specific).Checked)
                {
                    ((SAPbouiCOM.CheckBox)oForm.Items.Item("chk_sel").Specific).Checked = false;
                }
                else
                {
                    ((SAPbouiCOM.CheckBox)oForm.Items.Item("chk_sel").Specific).Checked = true;
                }
                CheckBox1.Item.Visible = false;
            }
            catch (Exception e)
            {
                Application.SBO_Application.StatusBar.SetText(e.Message + " ** Trace: " + e.StackTrace, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
                log.AddLog(e.Message + " ** Trace: ");
            }
            oForm.Freeze(false);
        }
Пример #12
0
        public override void etAfterClick(ref SAPbouiCOM.ItemEvent pVal, ref bool BubbleEvent)
        {
            base.etAfterClick(ref pVal, ref BubbleEvent);
            if (pVal.ItemUID.Contains("mt"))
            {
                try
                {
                    if (chSO.Checked)
                    {
                        oForm.Settings.MatrixUID = pVal.ItemUID;
                        oForm.Settings.Enabled   = true;
                    }
                }
                catch { }
            }
            if (pVal.ItemUID == "1")
            {
            }
            if (pVal.ItemUID == "43")
            {
                RefreshForm();
            }
            if (pVal.ItemUID == "btCreate")
            {
                oApplication.MessageBox("Creating Sp ");


                createProductionOrder();
                fillAnimals();
                getReport();
            }
            if (pVal.ItemUID == "34")
            {
                int poResult = createTypePurchaseOrder();
                if (poResult != 0)
                {
                    int createProduction = oApplication.MessageBox("PO not created for a supplier. Do you still want to add production order?(Y/N)", 2, "Yes", "No");
                    if (createProduction == 2)
                    {
                        return;
                    }
                }
                createTypeProductionOrder();
                // createSPProductionOrder();
                //  createProductionOrder();
                dtHead.SetValue("TodayQty", 0, "0");
                fillAnimals();
                getReport();
                fillPO();
                oApplication.StatusBar.SetText("Operation Completed Successfully!", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
            }
            if (pVal.ItemUID == "btCalcT")
            {
                CalcToday();
            }
        }
Пример #13
0
        private void fillAddons()
        {
            dtHead.Rows.Clear();

            string strSql = "Select * from [@DEM_MODULES]";

            System.Data.DataTable dtModules = Program.objHrmsUI.getDataTable(strSql, "Filling Module");
            int i = 0;

            foreach (System.Data.DataRow dr in dtModules.Rows)
            {
                dtHead.Rows.Add(1);
                dtHead.SetValue("Id", i, (i + 1).ToString());
                dtHead.SetValue("AC", i, dr["CODE"].ToString());
                dtHead.SetValue("AN", i, dr["NAME"].ToString());
                dtHead.SetValue("LK", i, dr["U_LicenseKey"].ToString());
                dtHead.SetValue("Active", i, dr["U_Enabled"].ToString());
                i++;
            }
            mtAddon.LoadFromDataSource();
        }
Пример #14
0
        private void ApplySearch()
        {
            int i = 0;

            string searchString = txSAtt.Value.ToString(); // Convert.ToString(dtHeads.GetValue("Search", 0));

            System.Data.DataRow[] rows = AllRules.Select("RULE like '" + searchString + "*'", "VisOrder Asc");
            if (rows.Count() > 0)
            {
                dtAtrr.Rows.Clear();
                foreach (System.Data.DataRow dr in rows)
                {
                    i++;
                    dtAtrr.Rows.Add(1);
                    dtAtrr.SetValue("Id", i - 1, i.ToString());
                    dtAtrr.SetValue("Code", i - 1, dr["RULE"].ToString());
                    dtAtrr.SetValue("Name", i - 1, dr["Descr"].ToString());
                }
                mtAttr.LoadFromDataSource();
                //  ini_controls();
            }
        }
Пример #15
0
        private void fillLavels()
        {
            dtCA.Rows.Add(1);
            dtCA.SetValue("Code", dtCA.Rows.Count - 1, rootGroup);

            dtCA.SetValue("Name", dtCA.Rows.Count - 1, rootGroupName);

            fillChilds(rootGroup, ".      ");

            //System.Data.DataTable dtRoot = Program.objHrmsUI.getDataTable("Select * from [@B1_ITB] where U_Father='" + rootGroup + "'", "Fill Root");

            //if (dtRoot.Rows.Count > 0)
            //{
            //    foreach (System.Data.DataRow dr in dtRoot.Rows)
            //    {
            //        dtCA.Rows.Add(1);
            //        dtCA.SetValue("Code", dtCA.Rows.Count - 1, dr["Code"].ToString());

            //        fillChilds(dr["Code"].ToString(), ".    ");
            //    }
            //}
        }
Пример #16
0
        private void ApplySearch()
        {
            int i = 0;

            SAPbouiCOM.EditText txSearch = (SAPbouiCOM.EditText)oForm.Items.Item("19").Specific;

            string searchString = txSearch.Value.ToString(); // Convert.ToString(dtHeads.GetValue("Search", 0));

            System.Data.DataRow[] rows = AllRules.Select("RULE like '" + searchString + "*'");
            if (rows.Count() > 0)
            {
                dtRM.Rows.Clear();
                foreach (System.Data.DataRow dr in rows)
                {
                    i++;
                    dtRM.Rows.Add(1);
                    dtRM.SetValue("Id", i - 1, i.ToString());
                    dtRM.SetValue("RN", i - 1, dr["RULE"].ToString());
                }
                mtR.LoadFromDataSource();
                //  ini_controls();
            }
        }
Пример #17
0
        private void getSchedule()
        {
            string strGet = "Select * from [@B1_CONFIG] where [Code]='0001'";

            System.Data.DataTable dtSch = Program.objHrmsUI.getDataTable(strGet, "Loading Data");

            foreach (System.Data.DataRow dr in dtSch.Rows)
            {
                dtHead.SetValue("SchDays", 0, dr["U_SchDays"].ToString());
                dtHead.SetValue("LNOrdr", 0, dr["U_NLastOrdr"].ToString());
                dtHead.SetValue("MSOrdr", 0, dr["U_NMSI"].ToString());
                dtHead.SetValue("DCHistory", 0, dr["U_NDTH"].ToString());
                dtHead.SetValue("NRP", 0, dr["U_NRP"].ToString());
                dtHead.SetValue("SDD", 0, dr["U_SED"].ToString());
                dtHead.SetValue("dbPath", 0, dr["U_DBPATH"].ToString());
                dtHead.SetValue("CP", 0, dr["U_AlwPriceCh"].ToString());
            }
        }
        public SAPbouiCOM.DataTable GenerarArchivoDT(SAPbouiCOM.DataTable DT_HEAD, SAPbouiCOM.DataTable DT_ROWS, SAPbouiCOM.DataTable DT_TXT)
        {
            try
            {
                for (int j = 0; j <= DT_ROWS.Rows.Count - 1; j++)
                {
                    string Linea = Convert.ToString(DT_ROWS.GetValue(0, j));
                    DT_HEAD.Rows.Add();
                    DT_HEAD.SetValue(0, DT_HEAD.Rows.Count - 1, DT_ROWS.GetValue(0, j).ToString());
                    //Linea = Convert.ToString(DT_HEAD.GetValue(0, DT_HEAD.Rows.Count - 1));
                }
                DT_TXT.CopyFrom(DT_HEAD);
            }
            catch (Exception) { }

            return(DT_TXT);
        }
Пример #19
0
        private void ConvertListIntoDataTable(List <Nomina> pLstNomina)
        {
            // var timer = Stopwatch.StartNew();
            ProgressBarManager lObjProgressBar = null;

            SAPbouiCOM.DataTable lObjDataTable = this.UIAPIRawForm.DataSources.DataTables.Item("DT_0");
            try
            {
                Parallel.For(0, pLstNomina.Count, _ =>
                {
                    lObjDataTable.Rows.Add();
                });

                lObjProgressBar = new ProgressBarManager(Application.SBO_Application, "Cargando", pLstNomina.Count);


                Parallel.ForEach(Partitioner.Create(0, pLstNomina.Count), (range, state) =>
                {
                    for (int i = range.Item1; i < range.Item2; i++)
                    {
                        Parallel.ForEach(pLstNomina[0].GetType().GetProperties(), property =>
                        {
                            if (property.Name != "NNOM" && property.Name != "NRFC")
                            {
                                lObjDataTable.SetValue(property.Name, i, pLstNomina[i].GetType().GetProperty(property.Name).GetValue(pLstNomina[i], null));
                            }
                        });
                    }
                    lObjProgressBar.NextPosition();
                });
            }
            catch (Exception lObjException)
            {
                throw lObjException;
            }
            finally
            {
                if (lObjProgressBar != null)
                {
                    lObjProgressBar.Stop();
                    lObjProgressBar.Dispose();
                }
            }
        }
Пример #20
0
 private void PopulateDocumentsDatatable(List <BatchRow> batchesList, SAPbouiCOM.DataTable control)
 {
     foreach (BatchRow br in batchesList)
     {
         control.Rows.Add(1);
         var rowIndex = control.Rows.Count - 1;
         control.SetValue("ItemCode", rowIndex, br.ItemCode);
         control.SetValue("WhsCode", rowIndex, br.WhsCode);
         control.SetValue("Quantity", rowIndex, br.Quantity);
         control.SetValue("TotalNeeded", rowIndex, br.Quantity);
         control.SetValue("AvgPrice", rowIndex, br.AvgPrice);
         control.SetValue("AddAmount", rowIndex, br.AddAmount);
     }
 }
Пример #21
0
        private void gvRecBatches_ValidateBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
        {
            var    bubbleEventResult   = true;
            var    enteredValue        = dtRecBatches.GetValue(pVal.ColUID, pVal.Row).ToString();
            var    totalQuantityNeeded = Convert.ToDouble(dtRecDocuments.GetValue("TotalNeeded", currentRecDocumentIndex));
            double totalSelectedValue  = 0;

            if (pVal.ColUID.Equals("Selected Qty"))
            {
                if (enteredValue == string.Empty || !Utilities.IsNumber(enteredValue))
                {
                    Application.SBO_Application.MessageBox("Only numbers allowed");
                    bubbleEventResult = false;
                }
                else
                {
                    for (int i = 0; i < dtRecBatches.Rows.Count; i++)
                    {
                        var selectedQuantity = (string)dtRecBatches.GetValue("Selected Qty", i) == string.Empty ? 0 : Convert.ToDouble(dtRecBatches.GetValue("Selected Qty", i));

                        totalSelectedValue += selectedQuantity;
                    }
                    if (totalSelectedValue > totalQuantityNeeded)
                    {
                        bubbleEventResult = false;
                        Application.SBO_Application.MessageBox("Quantity is over needed.");
                    }
                    else
                    {
                        dtRecDocuments.SetValue("TotalSelected", currentRecDocumentIndex, totalSelectedValue);
                    }
                }
            }
            else
            {
                bubbleEventResult = true;
            }
            BubbleEvent = bubbleEventResult;
        }
Пример #22
0
        private void fillReport()
        {
            SAPbouiCOM.StaticText lblLoading = (SAPbouiCOM.StaticText)oForm.Items.Item("lblLoad").Specific;
            int GoldenColor = 0xFFC908;// System.Drawing.Color.DarkGoldenrod.ToArgb() - 255;
            int redColor    = System.Drawing.Color.Red.R | (System.Drawing.Color.Red.G << 8) | (System.Drawing.Color.Red.B << 16);
            int greenColor  = System.Drawing.Color.Green.R | (System.Drawing.Color.Green.G << 8) | (System.Drawing.Color.Green.B << 16);



            lblLoading.Item.Visible   = true;
            lblLoading.Item.FontSize  = 14;
            lblLoading.Item.BackColor = GoldenColor;
            lblLoading.Item.ForeColor = greenColor;

            oForm.Freeze(true);
            dtRpt.Rows.Clear();
            string strCritaria = " Where (owor.status  <> 'L' and owor.status  <> 'C') ";
            //  strCritaria = " Where 'Y' = 'Y'  ";
            string dtField = "owor.postDate";

            if (opDd.Selected)
            {
                dtField = "owor.DueDate";
            }


            if (txFrom.Value != "" || txTo.Value == "")
            {
                if (txFrom.Value != "")
                {
                    strCritaria += " And " + dtField + " >= '" + txFrom.Value + "'";
                }
                if (txTo.Value != "")
                {
                    strCritaria += " And " + dtField + " <= '" + txTo.Value + "'";
                }
            }
            if (cbPL.Value.ToString().Trim() != "0")
            {
                strCritaria += " And isnull(U_PMX_PLCD,'') = '" + cbPL.Value.ToString() + "'";
            }
            if (txProduct.Value != "")
            {
                strCritaria += " And isnull(owor.itemcode,'') Like  '" + txProduct.Value.ToString() + "%'";
            }
            else
            {
            }
            if (opREL.Selected)
            {
                strCritaria += " and owor.status = 'R' ";
            }


            if (opPL.Selected)
            {
                strCritaria += " and owor.status = 'P' ";
            }

            string strSelect = "Select owor.DocNum as DocNum, case  owor.type when 'S' then 'Standard' when 'P' then 'Special' when 'D' then 'Disassembly' else 'UD' end as Type , case owor.status when 'P' then 'Planned' when 'R' then 'Released' else 'Closed' end as Status,owor.itemcode,oitm.itemname ";

            strSelect += " , owor.postdate, owor.duedate , owor.plannedQty , U_PMX_PLCD , U_B1_Label,U_B1_SEQ, U_B1_FrTxt,isnull(U_B1_DispPos,owor.docentry) as Pos, owor.DocEntry ";
            strSelect += " from owor inner join oitm on oitm.itemcode = owor.itemcode ";

            string strOrderBy = "  order by  case isnull(U_PMX_PLCD,'') when '' then '999' else U_PMX_PLCD end , convert(int, case  isnull(U_B1_SEQ,'') when '' then '99' else  U_B1_SEQ end)";

            System.Data.DataTable sboDtRpt = Program.objHrmsUI.getDataTable(strSelect + strCritaria + strOrderBy, "Open POS");

            int i      = 0;
            int rowCnt = sboDtRpt.Rows.Count;

            if (rowCnt > 0)
            {
                dtRpt.Rows.Add(rowCnt);
            }
            foreach (System.Data.DataRow dr in sboDtRpt.Rows)
            {
                i++;
                string seq = "";
                if (dr["U_B1_SEQ"].ToString() != "")
                {
                    seq = dr["U_B1_SEQ"].ToString();
                }
                dtRpt.SetValue("Id", i - 1, i.ToString());
                dtRpt.SetValue("Type", i - 1, dr["type"].ToString());
                dtRpt.SetValue("DocNum", i - 1, dr["DocNum"].ToString());
                dtRpt.SetValue("OD", i - 1, Convert.ToDateTime(dr["postdate"]));
                dtRpt.SetValue("DueDate", i - 1, Convert.ToDateTime(dr["DueDate"]));
                dtRpt.SetValue("PlannedQty", i - 1, Convert.ToString(dr["PlannedQty"]));

                dtRpt.SetValue("Status", i - 1, dr["Status"].ToString());

                dtRpt.SetValue("ItemCode", i - 1, dr["ItemCode"].ToString());
                dtRpt.SetValue("ItemName", i - 1, dr["ItemName"].ToString());
                dtRpt.SetValue("ProdLine", i - 1, dr["U_PMX_PLCD"].ToString());
                dtRpt.SetValue("Label", i - 1, dr["U_B1_Label"].ToString());

                dtRpt.SetValue("Seq", i - 1, seq);
                dtRpt.SetValue("FreeText", i - 1, dr["U_B1_FrTxt"].ToString());
                dtRpt.SetValue("Pos", i - 1, dr["Pos"].ToString());
                dtRpt.SetValue("DocEntry", i - 1, dr["DocEntry"].ToString());
            }
            mtReport.LoadFromDataSource();

            chApply();

            oForm.Freeze(false);
            lblLoading.Item.Visible = false;

            if (mtReport.RowCount > 0)
            {
                mtReport.SelectRow(1, true, false);
            }
        }
        public SAPbouiCOM.DataTable ObtenerParametrosTXT(SAPbouiCOM.DataTable DT_PARAM)
        {
            SAPbobsCOM.GeneralService    oGeneralService;
            SAPbobsCOM.GeneralData       oGeneralData = null;
            SAPbobsCOM.GeneralDataParams oGeneralParams;
            SAPbobsCOM.CompanyService    oCmpSrv;
            SAPbobsCOM.Company           oCompany = Conexion.oCompany;

            try
            {
                //get company service
                if (!oCompany.Connected)
                {
                    Funciones.Conectar_Aplicacion();
                }

                oCmpSrv = oCompany.GetCompanyService();

                //Get GeneralService - Main UDO - Retrieve the relevant service
                oGeneralService = oCmpSrv.GetGeneralService("Z_MIN_TXTPAGOS");

                //GetByKey
                oGeneralParams = (SAPbobsCOM.GeneralDataParams)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralDataParams);

                oGeneralParams.SetProperty("Code", "1");
                oGeneralData = oGeneralService.GetByParams(oGeneralParams);

                DT_PARAM.Clear();
                DT_PARAM.Columns.Add("Info", SAPbouiCOM.BoFieldsType.ft_Text);

                DT_PARAM.Rows.Add(13);
                DT_PARAM.SetValue("Info", 0, oGeneralData.GetProperty("U_TipoRegistro"));
                DT_PARAM.SetValue("Info", 1, oGeneralData.GetProperty("U_Multifecha"));
                DT_PARAM.SetValue("Info", 2, oGeneralData.GetProperty("U_Modalidad"));
                DT_PARAM.SetValue("Info", 3, oGeneralData.GetProperty("U_Convenio"));
                DT_PARAM.SetValue("Info", 4, oGeneralData.GetProperty("U_TipoPago"));
                DT_PARAM.SetValue("Info", 5, oGeneralData.GetProperty("U_CodigoPlantilla"));
                DT_PARAM.SetValue("Info", 6, oGeneralData.GetProperty("U_RUTEmpresa"));
                DT_PARAM.SetValue("Info", 7, oGeneralData.GetProperty("U_RUTFilial"));
                DT_PARAM.SetValue("Info", 8, oGeneralData.GetProperty("U_CorreoEmp"));
                DT_PARAM.SetValue("Info", 9, oGeneralData.GetProperty("U_PlantillaRendici"));
                DT_PARAM.SetValue("Info", 10, oGeneralData.GetProperty("U_DirectorioBanco"));
                DT_PARAM.SetValue("Info", 11, oGeneralData.GetProperty("U_DirectorioRespaldo"));
                DT_PARAM.SetValue("Info", 12, oGeneralData.GetProperty("U_FlujoActivo"));
            }
            catch (Exception) {}

            return(DT_PARAM);
        }
        public SAPbouiCOM.DataTable GenerarRegistros(SAPbouiCOM.DataTable DT_SQL, SAPbouiCOM.DataTable DT_DATOS, SAPbouiCOM.DataTable DT_ROWS)
        {
            try
            {
                oCompany = Program.oCompany;
                SAPbobsCOM.Recordset recordset = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
                string sql       = "";
                string sNumPago  = "";
                int    iNumAviso = 0;
                DT_SQL.Clear();
                DT_ROWS.Clear();
                DT_ROWS.Columns.Add("Info", SAPbouiCOM.BoFieldsType.ft_Text);

                for (int i = 0; i <= DT_DATOS.Rows.Count - 1; i++)
                {
                    string val = DT_DATOS.GetValue(0, i).ToString();
                    if (DT_DATOS.GetValue(0, i).ToString() == "Y") //Registros Seleccionados
                    {
                        iNumAviso += 1;
                        sNumPago   = DT_DATOS.GetValue(2, i).ToString();
                        //sql = @"EXEC [dbo].[Min_Bancos_Generar_Detalle_Pagos_Archivo_PagoTXT_Formato610]
                        // @NumPago = N'" + sNumPago + @"'
                        //      ,@NumeroAviso = '" + iNumAviso.ToString() + "'";

                        //DT_SQL.ExecuteQuery(sql);
                        //recordset.DoQuery(sql);
                        //recordset.MoveFirst();

                        //if (!DT_SQL.IsEmpty)
                        //{
                        //    for (int j = 0; j <= DT_SQL.Rows.Count - 1; j++)
                        //    {
                        //        var Linea = DT_SQL.GetValue(0, j);
                        //        var Linea2 = recordset.Fields.Item(0).Value;
                        //        recordset.MoveNext();
                        //        DT_ROWS.Rows.Add();
                        //        DT_ROWS.SetValue(0, DT_ROWS.Rows.Count - 1, DT_SQL.GetValue(0, j).ToString());
                        //        //Linea = Convert.ToString(DT_ROWS.GetValue(0, DT_ROWS.Rows.Count - 1));
                        //    }
                        //}

                        // SE DEBIO USAR System.Dat.DataTable porque el DT de SAP truncaba los resultado del SP
                        DataTable     DtResultado = new DataTable();
                        SqlConnection SlqCon      = new SqlConnection();

                        try
                        {
                            string sp = @"EXEC [" + oCompany.CompanyDB + @"].[dbo].[Min_Bancos_Generar_Detalle_Pagos_Archivo_PagoTXT_Formato610]
                                         @NumPago = N'" + sNumPago + @"'
                                        ,@NumeroAviso = '" + iNumAviso.ToString() + "'";

                            SlqCon.ConnectionString = Conexion.CnSQL;
                            SqlCommand SqlCmd = new SqlCommand(sp, SlqCon);

                            SlqCon.Open();
                            //SqlCmd.CommandType = CommandType.Text;
                            //SqlCmd.Parameters.AddWithValue("@NumPago", sNumPago);
                            //SqlCmd.Parameters.AddWithValue("@NumeroAviso", iNumAviso.ToString());

                            SqlDataAdapter SqlDat = new SqlDataAdapter(SqlCmd);
                            SqlDat.Fill(DtResultado);
                        }
                        catch
                        {
                            DtResultado = null;
                        }
                        finally
                        {
                            if (SlqCon.State == ConnectionState.Open)
                            {
                                SlqCon.Close();
                            }
                        }


                        if (DtResultado.Rows.Count > 0)
                        {
                            for (int j = 0; j <= DtResultado.Rows.Count - 1; j++)
                            {
                                var Linea = DtResultado.Rows[j][0];
                                DT_ROWS.Rows.Add();
                                DT_ROWS.SetValue(0, DT_ROWS.Rows.Count - 1, Linea);
                                //Linea = Convert.ToString(DT_ROWS.GetValue(0, DT_ROWS.Rows.Count - 1));
                            }
                        }
                    }
                }
            }
            catch (Exception) { }

            return(DT_ROWS);
        }
Пример #25
0
        private void btnSelect_ClickAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
        {
            try
            {
                var quantityNeeded = Convert.ToDouble(dtDocuments.GetValue("TotalNeeded", currentDocumentIndex));
                //var selectedRows = gvBatches.Rows.SelectedRows.Cast<SAPbouiCOM.GridRows>().AsQueryable();

                for (int i = 0; i < dtBatches.Rows.Count; i++)
                {
                    var requestedBatchesQuantity = Convert.ToDouble(dtBatches.GetValue("Selected Qty", i));
                    var availableBatchesQuantity = Convert.ToDouble(dtBatches.GetValue("Quantity", i));

                    double selectedQuantity = 0;
                    if (gvBatches.Rows.IsSelected(i))
                    {
                        bool isAvailable = false;
                        for (int t = 0; t < dtSelected.Rows.Count; t++)
                        {
                            selectedQuantity = Convert.ToDouble(dtSelected.GetValue("Selected Qty", t));

                            if (dtSelected.GetValue("Batch", t).ToString().Equals(dtBatches.GetValue("DistNumber", i).ToString()))
                            {
                                if (availableBatchesQuantity >= requestedBatchesQuantity)
                                {
                                    if (requestedBatchesQuantity > 0)
                                    {
                                        if (requestedBatchesQuantity < quantityNeeded)
                                        {
                                            dtSelected.SetValue("Selected Qty", t, Convert.ToDouble(selectedQuantity) + Convert.ToDouble(requestedBatchesQuantity));
                                            dtBatches.SetValue("Quantity", i, availableBatchesQuantity - requestedBatchesQuantity);
                                            dtDocuments.SetValue("TotalNeeded", currentDocumentIndex, quantityNeeded - requestedBatchesQuantity);
                                        }
                                        else
                                        {
                                            dtSelected.SetValue("Selected Qty", t, quantityNeeded + selectedQuantity);
                                            dtBatches.SetValue("Quantity", i, availableBatchesQuantity - quantityNeeded);
                                            dtDocuments.SetValue("TotalNeeded", currentDocumentIndex, 0);
                                        }
                                    }
                                }
                                isAvailable = true;
                            }
                        }
                        if (!isAvailable)
                        {
                            if (requestedBatchesQuantity <= availableBatchesQuantity)
                            {
                                if (requestedBatchesQuantity > 0)
                                {
                                    dtSelected.Rows.Add(1);

                                    dtSelected.SetValue("Batch", dtSelected.Rows.Count - 1, dtBatches.GetValue("DistNumber", i));

                                    if (requestedBatchesQuantity < quantityNeeded)
                                    {
                                        dtSelected.SetValue("Selected Qty", dtSelected.Rows.Count - 1, dtBatches.GetValue("Selected Qty", i));
                                        dtBatches.SetValue("Quantity", i, availableBatchesQuantity - requestedBatchesQuantity);
                                        dtDocuments.SetValue("TotalNeeded", currentDocumentIndex, quantityNeeded - requestedBatchesQuantity);
                                    }
                                    else
                                    {
                                        dtSelected.SetValue("Selected Qty", dtSelected.Rows.Count - 1, quantityNeeded);
                                        dtBatches.SetValue("Quantity", i, availableBatchesQuantity - quantityNeeded);
                                        dtDocuments.SetValue("TotalNeeded", currentDocumentIndex, 0);
                                    }
                                }
                            }
                            else
                            {
                                Application.SBO_Application.MessageBox("The quantity selected is large.");
                            }
                        }
                    }
                }
            }
            catch (Exception ex)
            {
            }
        }
Пример #26
0
        private SAPbouiCOM.DataTable Convert_SAP_DataTable(System.Data.DataTable pDataTable)
        {
            SAPbouiCOM.DataTable oDT   = null;
            SAPbouiCOM.Form      oForm = oApp.Forms.ActiveForm;
            if (CheckExistUniqueID(oForm, "DT_BALS"))
            {
                oDT = oForm.DataSources.DataTables.Item("DT_BALS");
                oDT.Clear();
            }
            else
            {
                oDT = oForm.DataSources.DataTables.Add("DT_BALS");
            }

            //Add column to DataTable
            foreach (System.Data.DataColumn c in pDataTable.Columns)
            {
                try
                {
                    if (c.DataType.ToString() == "System.DateTime")
                    {
                        oDT.Columns.Add(c.ColumnName, SAPbouiCOM.BoFieldsType.ft_Date);
                    }
                    //else if (c.DataType.ToString() == "System.Int16")
                    //{
                    //    oDT.Columns.Add(c.ColumnName, SAPbouiCOM.BoFieldsType.ft_Integer);
                    //}
                    //else if (c.DataType.ToString() == "System.Decimal")
                    //{
                    //    oDT.Columns.Add(c.ColumnName, SAPbouiCOM.BoFieldsType.ft_Sum);
                    //}
                    else
                    {
                        oDT.Columns.Add(c.ColumnName, SAPbouiCOM.BoFieldsType.ft_Text);
                    }
                }
                catch
                { }
            }
            //Add row to DataTable
            foreach (System.Data.DataRow r in pDataTable.Rows)
            {
                oDT.Rows.Add();
                //foreach (System.Data.DataColumn c in pDataTable.Columns)
                for (int i = 0; i < pDataTable.Columns.Count; i++)
                {
                    //oDT.SetValue(  c.ColumnName, oDT.Rows.Count - 1, r[c.ColumnName].ToString());
                    string Col_Name = pDataTable.Columns[i].ColumnName;
                    if (i > 3)
                    {
                        decimal tmp = 0;
                        decimal.TryParse(r[Col_Name].ToString(), out tmp);
                        if (tmp != 0)
                        {
                            oDT.SetValue(Col_Name, oDT.Rows.Count - 1, tmp.ToString("N0").Replace(',', '.'));
                        }
                    }
                    else
                    {
                        oDT.SetValue(Col_Name, oDT.Rows.Count - 1, r[Col_Name].ToString());
                    }
                }
            }

            return(oDT);
        }
Пример #27
0
 private void SearchChecks()
 {
     try
     {
         IList <CheckDTO> lLstChecks = mCheckDAO.GetChecks();
         int i = 0;
         mDtChecks.Rows.Clear();
         string   lStrSelected = mCmbMvType.Value;
         DateTime lStartDate   = this.GetDataSourceValue <DateTime>("UD_DtStr");
         DateTime lEndDate     = this.GetDataSourceValue <DateTime>("UD_DtFnl");
         foreach (CheckDTO lObjCheck in lLstChecks)
         {
             if (mEdtCheckNum.Value != "" && mEdtCheckNum.Value != lObjCheck.CheckNum.ToString())
             {
                 continue;
             }
             // Skip checks that are not deposited
             if (lStrSelected == "Y" && lObjCheck.Deposited != "C")
             {
                 continue;
             }
             // Skip checks taht are deposited
             if (lStrSelected == "N" && lObjCheck.Deposited == "C")
             {
                 continue;
             }
             // Filter checks newer than start date
             if (lStartDate > lObjCheck.CheckDate)
             {
                 continue;
             }
             // Filter older than end date
             if (lEndDate < lObjCheck.CheckDate && lEndDate != default(DateTime))
             {
                 continue;
             }
             mDtChecks.Rows.Add();
             mDtChecks.SetValue("#", i, i + 1);
             mDtChecks.SetValue("C_CheckNum", i, lObjCheck.CheckNum);
             mDtChecks.SetValue("C_CheckSum", i, lObjCheck.CheckSum);
             mDtChecks.SetValue("C_CardName", i, lObjCheck.CardName);
             mDtChecks.SetValue("C_CheckDt", i, lObjCheck.CheckDate);
             mDtChecks.SetValue("C_CheckCur", i, lObjCheck.Currency);
             // Not visible
             mDtChecks.SetValue("C_CheckKey", i, lObjCheck.CheckKey);
             mDtChecks.SetValue("C_CardCode", i, lObjCheck.CardCode);
             mDtChecks.SetValue("C_BankAcc", i, lObjCheck.BankAcct);
             if (lObjCheck.Deposited == "C")
             {
                 mDtChecks.SetValue("C_Status", i, "Depositado");
             }
             else
             {
                 mDtChecks.SetValue("C_Status", i, "Ventanilla");
             }
             i++;
         }
         mMtxChecks.LoadFromDataSource();
         mMtxChecks.AutoResizeColumns();
     }
     catch (Exception lObjException)
     {
         LogUtility.WriteError(string.Format("[BouncedChecks - SearchChecks] Error: {0}", lObjException.Message));
         throw lObjException;
     }
 }
Пример #28
0
        public override void etAfterCfl(ref SAPbouiCOM.ItemEvent pVal, ref bool BubbleEvent)
        {
            base.etAfterCfl(ref pVal, ref BubbleEvent);
            SAPbouiCOM.IChooseFromListEvent oCFLEvento = (SAPbouiCOM.IChooseFromListEvent)pVal;
            SAPbouiCOM.DataTable            dtSel      = oCFLEvento.SelectedObjects;
            if (pVal.ItemUID == txCode.Item.UniqueID)
            {
                if (dtSel.Rows.Count > 0)
                {
                    string strCode        = dtSel.GetValue("Code", 0).ToString();
                    string strName        = dtSel.GetValue("Name", 0).ToString();
                    string Remarks        = dtSel.GetValue("U_Remarks", 0).ToString();
                    string AllocationRule = dtSel.GetValue("U_AR", 0).ToString();
                    BOQH.SetValue("ItemCode", 0, strCode);
                    BOQH.SetValue("ItemName", 0, strName);
                    BOQH.SetValue("Remarks", 0, Remarks);
                    BOQH.SetValue("AR", 0, AllocationRule);
                    fillDetails(strCode);
                    addEmptyRow(mtDC, BOQD, "CostCode");
                }
            }

            if (pVal.ItemUID == mtDC.Item.UniqueID && pVal.ColUID == "cCode")
            {
                if (dtSel.Rows.Count > 0)
                {
                    SAPbouiCOM.ComboBox cbColType = (SAPbouiCOM.ComboBox)mtDC.Columns.Item("cType").Cells.Item(pVal.Row).Specific;
                    if (cbColType.Selected.Value == "I")
                    {
                        string strCode = dtSel.GetValue("ItemCode", 0).ToString();
                        string strName = dtSel.GetValue("ItemName", 0).ToString();
                        BOQD.SetValue("Code", pVal.Row - 1, strCode);
                        BOQD.SetValue("Name", pVal.Row - 1, strName);
                    }
                    if (cbColType.Selected.Value == "S")
                    {
                        string strCode = dtSel.GetValue("AcctCode", 0).ToString();
                        string strName = dtSel.GetValue("AcctName", 0).ToString();
                        BOQD.SetValue("Code", pVal.Row - 1, strCode);
                        BOQD.SetValue("Name", pVal.Row - 1, strName);
                    }
                    mtDC.LoadFromDataSource();
                }
            }
        }
Пример #29
0
        private void dtToMtProcess(System.Data.DataTable dtReportTwo)
        {
            SAPbouiCOM.Matrix     mt = mtNote;
            System.Data.DataTable dt = dtReportTwo;

            int OldColCnt = mt.Columns.Count;

            dtNote.Rows.Clear();
            mt.LoadFromDataSource();
            oForm.Freeze(true);
            for (int i = 0; i < OldColCnt; i++)
            {
                mt.Columns.Remove(0);
                dtNote.Columns.Remove(0);
            }

            // add new colum with all dt Cols
            string colId = "col0";

            SAPbouiCOM.DataColumn sboDc = dtNote.Columns.Add(colId, SAPbouiCOM.BoFieldsType.ft_Integer, 100);
            SAPbouiCOM.Column     mCol  = mt.Columns.Add(colId, SAPbouiCOM.BoFormItemTypes.it_EDIT);
            mCol.TitleObject.Caption = "#";
            mCol.DataBind.Bind(dtNote.UniqueID, colId);
            mCol.Width          = 20;
            mCol.Editable       = false;
            mCol.RightJustified = true;


            //  mCol.ColumnSetting.SumValue = "T";


            int j = 1;

            foreach (System.Data.DataColumn dc in dt.Columns)
            {
                colId = "col" + j.ToString();

                sboDc = dtNote.Columns.Add(colId, SAPbouiCOM.BoFieldsType.ft_AlphaNumeric, 100);



                mCol = mt.Columns.Add(colId, SAPbouiCOM.BoFormItemTypes.it_EDIT);
                mCol.TitleObject.Caption = dc.ColumnName;
                if (j == 1)
                {
                    mCol.Width = 150;
                }
                else
                {
                    mCol.Width = 80;
                }
                mCol.TitleObject.Sortable = true;
                mCol.Editable             = false;
                mCol.DataBind.Bind(dtNote.UniqueID, colId);


                j++;
            }
            int row = 0;
            int col = 0;

            foreach (System.Data.DataRow dr in dt.Rows)
            {
                dtNote.Rows.Add(1);
                dtNote.SetValue("col0", row, (row + 1).ToString());

                col = 1;
                foreach (System.Data.DataColumn dc in dt.Columns)
                {
                    dtNote.SetValue("col" + col.ToString(), row, dr[dc.ColumnName]);
                    col++;
                }
                row++;
            }



            int m = 1;

            //  mt.LoadFromDataSource();
            oForm.Freeze(false);
            //  mt.LoadFromDataSource();

            mt.LoadFromDataSource();
        }