Customization Update for Order Tracker

Jim,
 Sure. That shouldn't be too much effort?! :(  OR.... I could take a copy of Order Entry and make a customization that hides everything but the fields(s) I want updated. Thanks for getting back on the question. I thought the VB would open up that field independent of the read-only nature of the tracker. Good info. -Karl


________________________________
From: jckinneman <jckinneman@...>
To: vantage@yahoogroups.com
Sent: Thursday, June 14, 2012 6:10 AM
Subject: [Vantage] Re: Customization Update for Order Tracker


Â
missed it on the first read. Order tracker by default is a read only transaction so you probably can't make any field writable. You could put an unbound control on the screen for the user to enter the value and then have a button to run code to do the actual write. You'd have to initialize an adapter to the order, along with a getbyid and an update separate from the current transaction. After that a otrans.refresh() to refresh the current view on the tracker.

Jim Kinneman
Encompass Solutions, Inc

--- In vantage@yahoogroups.com, Karl Dash <dashkarl@...> wrote:
>
> I have a UD field attached to OrderHed that gets filled in Order Entry. Now I want a very select number of users to update this field without disturbing anything else. It occurred to me to use Order tracker and let that one field be updateable. Using a customization that has been referenced in messages before and the User Guide, I put the following in InitializeCustomCode():
> Â
> '// End Custom Method Calls
> Â Â Â Â Â Â Â SetExtendedProps()
> Â Â Â Â Â End Sub
> Â
> Then before the end of the module, went the following sub:
> Â
> Private Sub SetExtendedProps()
> Â Â Â Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"), EpiDataView)Â Â Â Â
>    If edv.dataview.Table.Columns.Contains("UserDate1") Then  Â
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("ReadOnly") = False
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("Enabled") = True
> Â Â Â End If
> End Sub
> End Module
> Â
> So far, so good. It compiles with no errors, BUT the field does not show up as editable (I have used Menu Maintenance to make the customization the default for this Tracker).
> Â
> I am on Progress, 803.408. Any thoughts, comments, suggestions?
> Â
> Regards -Karl
>
> [Non-text portions of this message have been removed]
>




[Non-text portions of this message have been removed]
I have a UD field attached to OrderHed that gets filled in Order Entry. Now I want a very select number of users to update this field without disturbing anything else. It occurred to me to use Order tracker and let that one field be updateable. Using a customization that has been referenced in messages before and the User Guide, I put the following in InitializeCustomCode():
Â
'// End Custom Method Calls
       SetExtendedProps()
     End Sub
Â
Then before the end of the module, went the following sub:
Â
Private Sub SetExtendedProps()
   Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"), EpiDataView)   Â
   If edv.dataview.Table.Columns.Contains("UserDate1") Then  Â
       edv.dataView.Table.Columns("UserDate1").ExtendedProperties("ReadOnly") = False
       edv.dataView.Table.Columns("UserDate1").ExtendedProperties("Enabled") = True
   End If
End Sub
End Module
Â
So far, so good. It compiles with no errors, BUT the field does not show up as editable (I have used Menu Maintenance to make the customization the default for this Tracker).
Â
I am on Progress, 803.408. Any thoughts, comments, suggestions?
Â
Regards -Karl

[Non-text portions of this message have been removed]
Should "userdate1" be "UDdate01"?

Jim Kinneman
Encompass Solutions, Inc

--- In vantage@yahoogroups.com, Karl Dash <dashkarl@...> wrote:
>
> I have a UD field attached to OrderHed that gets filled in Order Entry. Now I want a very select number of users to update this field without disturbing anything else. It occurred to me to use Order tracker and let that one field be updateable. Using a customization that has been referenced in messages before and the User Guide, I put the following in InitializeCustomCode():
> Â
> '// End Custom Method Calls
> Â Â Â Â Â Â Â SetExtendedProps()
> Â Â Â Â Â End Sub
> Â
> Then before the end of the module, went the following sub:
> Â
> Private Sub SetExtendedProps()
> Â Â Â Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"), EpiDataView)Â Â Â Â
>    If edv.dataview.Table.Columns.Contains("UserDate1") Then  Â
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("ReadOnly") = False
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("Enabled") = True
> Â Â Â End If
> End Sub
> End Module
> Â
> So far, so good. It compiles with no errors, BUT the field does not show up as editable (I have used Menu Maintenance to make the customization the default for this Tracker).
> Â
> I am on Progress, 803.408. Any thoughts, comments, suggestions?
> Â
> Regards -Karl
>
> [Non-text portions of this message have been removed]
>
missed it on the first read. Order tracker by default is a read only transaction so you probably can't make any field writable. You could put an unbound control on the screen for the user to enter the value and then have a button to run code to do the actual write. You'd have to initialize an adapter to the order, along with a getbyid and an update separate from the current transaction. After that a otrans.refresh() to refresh the current view on the tracker.

Jim Kinneman
Encompass Solutions, Inc

--- In vantage@yahoogroups.com, Karl Dash <dashkarl@...> wrote:
>
> I have a UD field attached to OrderHed that gets filled in Order Entry. Now I want a very select number of users to update this field without disturbing anything else. It occurred to me to use Order tracker and let that one field be updateable. Using a customization that has been referenced in messages before and the User Guide, I put the following in InitializeCustomCode():
> Â
> '// End Custom Method Calls
> Â Â Â Â Â Â Â SetExtendedProps()
> Â Â Â Â Â End Sub
> Â
> Then before the end of the module, went the following sub:
> Â
> Private Sub SetExtendedProps()
> Â Â Â Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"), EpiDataView)Â Â Â Â
>    If edv.dataview.Table.Columns.Contains("UserDate1") Then  Â
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("ReadOnly") = False
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("Enabled") = True
> Â Â Â End If
> End Sub
> End Module
> Â
> So far, so good. It compiles with no errors, BUT the field does not show up as editable (I have used Menu Maintenance to make the customization the default for this Tracker).
> Â
> I am on Progress, 803.408. Any thoughts, comments, suggestions?
> Â
> Regards -Karl
>
> [Non-text portions of this message have been removed]
>
Jim,
 No, that is a legitimate field in OrderHed. Thanks. -Karl


________________________________
From: jckinneman <jckinneman@...>
To: vantage@yahoogroups.com
Sent: Thursday, June 14, 2012 6:07 AM
Subject: [Vantage] Re: Customization Update for Order Tracker


Â
Should "userdate1" be "UDdate01"?

Jim Kinneman
Encompass Solutions, Inc

--- In vantage@yahoogroups.com, Karl Dash <dashkarl@...> wrote:
>
> I have a UD field attached to OrderHed that gets filled in Order Entry. Now I want a very select number of users to update this field without disturbing anything else. It occurred to me to use Order tracker and let that one field be updateable. Using a customization that has been referenced in messages before and the User Guide, I put the following in InitializeCustomCode():
> Â
> '// End Custom Method Calls
> Â Â Â Â Â Â Â SetExtendedProps()
> Â Â Â Â Â End Sub
> Â
> Then before the end of the module, went the following sub:
> Â
> Private Sub SetExtendedProps()
> Â Â Â Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"), EpiDataView)Â Â Â Â
>    If edv.dataview.Table.Columns.Contains("UserDate1") Then  Â
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("ReadOnly") = False
> Â Â Â Â Â Â Â edv.dataView.Table.Columns("UserDate1").ExtendedProperties("Enabled") = True
> Â Â Â End If
> End Sub
> End Module
> Â
> So far, so good. It compiles with no errors, BUT the field does not show up as editable (I have used Menu Maintenance to make the customization the default for this Tracker).
> Â
> I am on Progress, 803.408. Any thoughts, comments, suggestions?
> Â
> Regards -Karl
>
> [Non-text portions of this message have been removed]
>




[Non-text portions of this message have been removed]
You can't do it in tracker, put a simple BPM in palce if field x change
from any to any and user not in security group XYZ then raise eror.

*Jose C Gomez*
*Software Engineer*
*
*
*checkout my new blog <http://www.usdoingstuff.com> *
*
*T: 904.469.1524 mobile
E: jose@...
http://www.josecgomez.com
<http://www.linkedin.com/in/josecgomez> <http://www.facebook.com/josegomez>
<http://www.google.com/profiles/jose.gomez> <http://www.twitter.com/joc85>
<http://www.josecgomez.com/professional-resume/>
<http://www.josecgomez.com/feed/>
<http://www.usdoingstuff.com>

*Quis custodiet ipsos custodes?*



On Thu, Jun 14, 2012 at 9:51 AM, Karl Dash <dashkarl@...> wrote:

> **
>
>
> Jim,
> No, that is a legitimate field in OrderHed. Thanks. -Karl
>
> ________________________________
> From: jckinneman <jckinneman@...>
> To: vantage@yahoogroups.com
> Sent: Thursday, June 14, 2012 6:07 AM
> Subject: [Vantage] Re: Customization Update for Order Tracker
>
>
>
> Should "userdate1" be "UDdate01"?
>
> Jim Kinneman
> Encompass Solutions, Inc
>
> --- In vantage@yahoogroups.com, Karl Dash <dashkarl@...> wrote:
> >
> > I have a UD field attached to OrderHed that gets filled in Order Entry.
> Now I want a very select number of users to update this field without
> disturbing anything else. It occurred to me to use Order tracker and let
> that one field be updateable. Using a customization that has been
> referenced in messages before and the User Guide, I put the following in
> InitializeCustomCode():
> >
> > '// End Custom Method Calls
> > SetExtendedProps()
> > End Sub
> >
> > Then before the end of the module, went the following sub:
> >
> > Private Sub SetExtendedProps()
> > Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"),
> EpiDataView)
> > If edv.dataview.Table.Columns.Contains("UserDate1") Then
> >
> edv.dataView.Table.Columns("UserDate1").ExtendedProperties("ReadOnly") =
> False
> >
> edv.dataView.Table.Columns("UserDate1").ExtendedProperties("Enabled") = True
> > End If
> > End Sub
> > End Module
> >
> > So far, so good. It compiles with no errors, BUT the field does not show
> up as editable (I have used Menu Maintenance to make the customization the
> default for this Tracker).
> >
> > I am on Progress, 803.408. Any thoughts, comments, suggestions?
> >
> > Regards -Karl
> >
> > [Non-text portions of this message have been removed]
> >
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]