EpiUltraGrid Customization

Thanks, that's what i was looking for.

--- In vantage@yahoogroups.com, "bw2868bond" <bwalker@...> wrote:
>
> I added this code and the fields are truely read only. If you want
> the background grayed out you will have to set the background color
> of the grid...
>
> Dim dtCO as DataTable = dsCO.Tables(0)
> For Each dcCO as DataColumn in dtCO.Columns
> dcCO.ReadOnly = True
> Next
> '----ugdCO is the name of the UltraGrid---
> ugdEpiCustom1.DataSource = dtCO
>
>
>
> --- In vantage@yahoogroups.com, "laidig.systems" <laidig.systems@>
> wrote:
> >
> > I created my grid using a dataset and i didn't declare any
> dataviews.
> > Here is the code i used to populate the grid:
> > dim recSelected as boolean
> > Dim whereClause as string ="ShortChar01 = 'J06108'"
> > Dim dsCO as DataSet =
> > Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup
> (oTrans,"UD06Adapter",recSelected,False,whereClause)
> > '----ugdCO is the name of the UltraGrid---
> > ugdCO.DataSource = dsCO
> >
> > --- In vantage@yahoogroups.com, Robert Brown <robertb_versa@> wrote:
> > >
> > > Try:
> > >
> > > Sub InitializeCustomCode()
> > >
> > > '// Begin Custom Method Calls
> > >
> > > '// End Custom Method Calls
> > >
> > > SetExtendedProps()
> > >
> > > End Sub
> > >
> > >
> > > Then create that SetExtendedProps() sub (right out of the
> technical
> > users guide) and set it to make the table.columns in your ultrgrid
> to
> > be read-only = true.
> > >
> >
> > '///////////////////////////////////////////////////////////////////
> ////
> > > Private Sub SetExtendedProps()
> > >
> > > Dim edvJO As EpiDataView = CType(oTrans.EpiDataViews
> ("JobOper"),
> > EpiDataView)
> > >
> > > If edvJO.dataView.Table.Columns.Contains("OpComplete") Then
> > >
> > >
> > edvJO.dataView.Table.Columns("OpComplete").ExtendedProperties
> ("ReadOnly")
> > = True
> > >
> > > End If
> > >
> > > End Sub
> > >
> > > Substistute your particular table.columns you want to be read
> only.
> > > You can also enable and disable controls in this sub.
> > >
> > > Rob Brown
> > >
> > > --- On Wed, 6/4/08, laidig.systems <laidig.systems@> wrote:
> > >
> > > From: laidig.systems <laidig.systems@>
> > > Subject: [Vantage] EpiUltraGrid Customization
> > > To: vantage@yahoogroups.com
> > > Date: Wednesday, June 4, 2008, 3:50 PM
> > >
> > >
> > >
> > >
> > >
> > >
> > > I wrote a customization that retrieves a dataset and displays it
> in an
> > > UltraGrid. My only problem is that it looks like it is editable.
> > > Even though it really isn't changing the tables. I have been
> looking
> > > for a way to add code to make my UltraGrid ReadOnly. Does anyone
> know
> > > of a way to do this? I tried:
> > >
> > > UltraGrid1.ReadOnly = True
> > >
> > > but that produces an error when i run it. UltraGrid1.Enabled=
> False
> > > works somewhat but then the scrollbars don't work, and that isn't
> good
> > > either. Does anyone have any suggestions? Do i have to set the
> data
> > > readonly and not the Grid?
> > >
> >
>
I wrote a customization that retrieves a dataset and displays it in an
UltraGrid. My only problem is that it looks like it is editable.
Even though it really isn't changing the tables. I have been looking
for a way to add code to make my UltraGrid ReadOnly. Does anyone know
of a way to do this? I tried:

UltraGrid1.ReadOnly = True

but that produces an error when i run it. UltraGrid1.Enabled=False
works somewhat but then the scrollbars don't work, and that isn't good
either. Does anyone have any suggestions? Do i have to set the data
readonly and not the Grid?
You will probably have to set each column to be read only in the dataset

--- In vantage@yahoogroups.com, "laidig.systems" <laidig.systems@...>
wrote:
>
> I wrote a customization that retrieves a dataset and displays it in an
> UltraGrid. My only problem is that it looks like it is editable.
> Even though it really isn't changing the tables. I have been looking
> for a way to add code to make my UltraGrid ReadOnly. Does anyone know
> of a way to do this? I tried:
>
> UltraGrid1.ReadOnly = True
>
> but that produces an error when i run it. UltraGrid1.Enabled=False
> works somewhat but then the scrollbars don't work, and that isn't good
> either. Does anyone have any suggestions? Do i have to set the data
> readonly and not the Grid?
>
Try:

Sub InitializeCustomCode()

'// Begin Custom Method Calls

'// End Custom Method Calls

SetExtendedProps()

End Sub


Then create that SetExtendedProps() sub (right out of the technical users guide) and set it to make the table.columns in your ultrgrid to be read-only = true.

'///////////////////////////////////////////////////////////////////////
Private Sub SetExtendedProps()

Dim edvJO As EpiDataView = CType(oTrans.EpiDataViews("JobOper"), EpiDataView)

If edvJO.dataView.Table.Columns.Contains("OpComplete") Then

edvJO.dataView.Table.Columns("OpComplete").ExtendedProperties("ReadOnly") = True

End If

End Sub

Substistute your particular table.columns you want to be read only.
You can also enable and disable controls in this sub.

Rob Brown

--- On Wed, 6/4/08, laidig.systems <laidig.systems@...> wrote:

From: laidig.systems <laidig.systems@...>
Subject: [Vantage] EpiUltraGrid Customization
To: vantage@yahoogroups.com
Date: Wednesday, June 4, 2008, 3:50 PM






I wrote a customization that retrieves a dataset and displays it in an
UltraGrid. My only problem is that it looks like it is editable.
Even though it really isn't changing the tables. I have been looking
for a way to add code to make my UltraGrid ReadOnly. Does anyone know
of a way to do this? I tried:

UltraGrid1.ReadOnly = True

but that produces an error when i run it. UltraGrid1.Enabled= False
works somewhat but then the scrollbars don't work, and that isn't good
either. Does anyone have any suggestions? Do i have to set the data
readonly and not the Grid?
I created my grid using a dataset and i didn't declare any dataviews.
Here is the code i used to populate the grid:
dim recSelected as boolean
Dim whereClause as string ="ShortChar01 = 'J06108'"
Dim dsCO as DataSet =
Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup(oTrans,"UD06Adapter",recSelected,False,whereClause)
'----ugdCO is the name of the UltraGrid---
ugdCO.DataSource = dsCO

--- In vantage@yahoogroups.com, Robert Brown <robertb_versa@...> wrote:
>
> Try:
>
> Sub InitializeCustomCode()
>
> '// Begin Custom Method Calls
>
> '// End Custom Method Calls
>
> SetExtendedProps()
>
> End Sub
>
>
> Then create that SetExtendedProps() sub (right out of the technical
users guide) and set it to make the table.columns in your ultrgrid to
be read-only = true.
>
> '///////////////////////////////////////////////////////////////////////
> Private Sub SetExtendedProps()
>
> Dim edvJO As EpiDataView = CType(oTrans.EpiDataViews("JobOper"),
EpiDataView)
>
> If edvJO.dataView.Table.Columns.Contains("OpComplete") Then
>
>
edvJO.dataView.Table.Columns("OpComplete").ExtendedProperties("ReadOnly")
= True
>
> End If
>
> End Sub
>
> Substistute your particular table.columns you want to be read only.
> You can also enable and disable controls in this sub.
>
> Rob Brown
>
> --- On Wed, 6/4/08, laidig.systems <laidig.systems@...> wrote:
>
> From: laidig.systems <laidig.systems@...>
> Subject: [Vantage] EpiUltraGrid Customization
> To: vantage@yahoogroups.com
> Date: Wednesday, June 4, 2008, 3:50 PM
>
>
>
>
>
>
> I wrote a customization that retrieves a dataset and displays it in an
> UltraGrid. My only problem is that it looks like it is editable.
> Even though it really isn't changing the tables. I have been looking
> for a way to add code to make my UltraGrid ReadOnly. Does anyone know
> of a way to do this? I tried:
>
> UltraGrid1.ReadOnly = True
>
> but that produces an error when i run it. UltraGrid1.Enabled= False
> works somewhat but then the scrollbars don't work, and that isn't good
> either. Does anyone have any suggestions? Do i have to set the data
> readonly and not the Grid?
>
I added this code and the fields are truely read only. If you want
the background grayed out you will have to set the background color
of the grid...

Dim dtCO as DataTable = dsCO.Tables(0)
For Each dcCO as DataColumn in dtCO.Columns
dcCO.ReadOnly = True
Next
'----ugdCO is the name of the UltraGrid---
ugdEpiCustom1.DataSource = dtCO



--- In vantage@yahoogroups.com, "laidig.systems" <laidig.systems@...>
wrote:
>
> I created my grid using a dataset and i didn't declare any
dataviews.
> Here is the code i used to populate the grid:
> dim recSelected as boolean
> Dim whereClause as string ="ShortChar01 = 'J06108'"
> Dim dsCO as DataSet =
> Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup
(oTrans,"UD06Adapter",recSelected,False,whereClause)
> '----ugdCO is the name of the UltraGrid---
> ugdCO.DataSource = dsCO
>
> --- In vantage@yahoogroups.com, Robert Brown <robertb_versa@> wrote:
> >
> > Try:
> >
> > Sub InitializeCustomCode()
> >
> > '// Begin Custom Method Calls
> >
> > '// End Custom Method Calls
> >
> > SetExtendedProps()
> >
> > End Sub
> >
> >
> > Then create that SetExtendedProps() sub (right out of the
technical
> users guide) and set it to make the table.columns in your ultrgrid
to
> be read-only = true.
> >
>
> '///////////////////////////////////////////////////////////////////
////
> > Private Sub SetExtendedProps()
> >
> > Dim edvJO As EpiDataView = CType(oTrans.EpiDataViews
("JobOper"),
> EpiDataView)
> >
> > If edvJO.dataView.Table.Columns.Contains("OpComplete") Then
> >
> >
> edvJO.dataView.Table.Columns("OpComplete").ExtendedProperties
("ReadOnly")
> = True
> >
> > End If
> >
> > End Sub
> >
> > Substistute your particular table.columns you want to be read
only.
> > You can also enable and disable controls in this sub.
> >
> > Rob Brown
> >
> > --- On Wed, 6/4/08, laidig.systems <laidig.systems@> wrote:
> >
> > From: laidig.systems <laidig.systems@>
> > Subject: [Vantage] EpiUltraGrid Customization
> > To: vantage@yahoogroups.com
> > Date: Wednesday, June 4, 2008, 3:50 PM
> >
> >
> >
> >
> >
> >
> > I wrote a customization that retrieves a dataset and displays it
in an
> > UltraGrid. My only problem is that it looks like it is editable.
> > Even though it really isn't changing the tables. I have been
looking
> > for a way to add code to make my UltraGrid ReadOnly. Does anyone
know
> > of a way to do this? I tried:
> >
> > UltraGrid1.ReadOnly = True
> >
> > but that produces an error when i run it. UltraGrid1.Enabled=
False
> > works somewhat but then the scrollbars don't work, and that isn't
good
> > either. Does anyone have any suggestions? Do i have to set the
data
> > readonly and not the Grid?
> >
>