vbscript Manejo de grid SAP

Posted 2021-05-21

 public string OnBeforeKeyDown(Form pForma, ItemEvent pVal)
        {

            Grid Grid;
            Grid = (Grid)pForma.Items.Item("Max4").Specific;
            DataTable dtSubFamilia = Grid.DataTable;

           

            string Columna = (pVal.ColUID.Replace("Col", ""));
            CellPosition Ubicacion_Actual = Grid.GetCellFocus();

            pForma.Freeze(true);
           

            string CodSubFam = dtSubFamilia.GetValue(EColCodArt.CodSubFam, pVal.Row).ToString();
            string  NombreSubFAm = dtSubFamilia.GetValue(EColCodArt.NomSubFam, pVal.Row).ToString();
            string SubDivsion = dtSubFamilia.GetValue(EColCodArt.SubDivision, pVal.Row).ToString();
            string editable = dtSubFamilia.GetValue(EColCodArt.Editable, pVal.Row).ToString();
            int codSubdivision = (int)(EColCodArt.SubDivision);
            int nomSubdivision = (int)(EColCodArt.NomDivision);

            if (SubDivsion.Length > 50)
            {
                dtSubFamilia.SetValue(Ubicacion_Actual.ColumnIndex, Ubicacion_Actual.rowIndex, "");
                return TConstantes.SBOLDObjeto.RetornoError + " " + "La subdivisión no puede contener mas de 50 carecteres";
            }

            if (CodSubFam != "")
            {
                if (Columna == "2")
                {
                    if (SubDivsion == "" && editable == "" || editable == "N")
                    {
                        Globales.LlamarCustomCFL(CodSubFam, pVal.Row, "LDCODART", (codSubdivision).ToString(), nomSubdivision.ToString(), "Max4");



                        pForma.Freeze(false);
                        return TConstantes.SBOLDObjeto.RetornoCancel;
                    }

                }

            }
                
            
            pForma.Freeze(false);
            return "";
        }