csharp llenar grid zh SAP B1

Posted 2021-05-12

     TTransaction _Transaccion = TRutinas.CreaTransaccion();
            
            TQuery _Query = new TQuery(_Transaccion.Conexion);
            SAPbobsCOM.Recordset recset;
            recset = (SAPbobsCOM.Recordset)TConstantes.SBOLDObjeto.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);

            EditText txtEdit;
            txtEdit = (EditText)pForma.Items.Item("txtFamCod").Specific;

            TJoin _JoinSubFamDet = new TJoin(TTipoJoin.Inner, "@LDT_SUBFAM_DET", "C");
            _JoinSubFamDet.Where(new TField("C", "Code"), OperadoresFiltros.Igual, new TField("A", "U_LDT_Cod_SubFam"));

            TJoin _JoinSubFaamilia = new TJoin(TTipoJoin.Inner, "@LDT_SUBFAMILIA", "B");
            _JoinSubFaamilia.Where(new TField("B", "Code"), OperadoresFiltros.Igual, new TField("A", "U_LDT_Cod_SubFam"));

            _Query.Selected(new TField("C", "Code"));
            _Query.Selected(new TField("C", "LineId"));
            _Query.Selected(new TField("C", "U_LDT_Cod_SubDiv"));
            _Query.Selected(new TField("B", "Name"));
            _Query.From(new TFrom("@LDT_FAMILIA_DET", "A"));
            _Query.From(_JoinSubFamDet);
            _Query.From(_JoinSubFaamilia);
            _Query.Where(new TField("A", "Code"), OperadoresFiltros.Igual, new TValue(txtEdit.String));
            if (_Query.Open())
            {
        
                    Grid grid;
                    grid = (Grid)pForma.Items.Item("Max4").Specific;
                    DataTable dataTable;

                    dataTable = pForma.DataSources.DataTables.Add("dataTable");
                    dataTable.ExecuteQuery(_Query.SQL);

                    grid.DataTable = dataTable;

            }