Default checkbox

system · March 20, 2009, 1:24am

Instead of doing this, you could create a part template for the different
types of parts that you will be making.
Nice thing about this is that you can set up part class, product group and
check boxes.

Then, to make a new part just start with the template and do a
Action->Duplicate
Whole lot easier then doing some VB.Net code

Bruce

_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
teaglem
Sent: Thursday, March 19, 2009 10:07 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Default checkbox

Hi, this is the code we have in one of our part customizations, hope it
helps

'//**************************************************
'// Custom VB.NET code for PartForm
'// Created: 18/07/2007 15:06:35
'//**************************************************
Imports System
Imports System.Data
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Imports Epicor.Mfg.UI
Imports Epicor.Mfg.UI.FrameWork
Imports Epicor.Mfg.UI.ExtendedProps
Imports Epicor.Mfg.UI.FormFunctions
Imports Epicor.Mfg.UI.Customization
Imports Epicor.Mfg.UI.Adapters
Imports Epicor.Mfg.UI.Searches
Imports Epicor.Mfg.BO

Module Script

'// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard
Added Module Level Variables' Comments! **
'// Begin Wizard Added Module Level Variables **

Private WithEvents edvPart As EpiDataView
'// End Wizard Added Module Level Variables **

'// Add Custom Module Level Variables Here **

Sub InitializeCustomCode()

'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
Added Variable Intialization' lines **
'// Begin Wizard Added Variable Intialization

edvPart = CType(oTrans.EpiDataViews("Part"), EpiDataView)
'// End Wizard Added Variable Intialization
'// Begin Custom Method Calls

Sub DestroyCustomCode()

'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
Added Object Disposal' lines **
'// Begin Wizard Added Object Disposal

'// End Wizard Added Object Disposal
'// Begin Custom Code Disposal

'// End Custom Code Disposal
End Sub

Private Sub edvPart_EpiViewNotification(view As EpiDataView, args As
EpiNotifyArgs) Handles edvPart.EpiViewNotification
'// ** Argument Properties and Uses **
'// view.dataView(args.Row)("[FieldName]")
'// args.Row, args.Column, args.Sender, args.NotifyType
'// NotifyType.Initialize, NotifyType.AddRow,
NotifyType.DeleteRow, NotifyType.InitLastView,
NotifyType.InitAndResetTreeNodes
If (args.NotifyType = EpiTransaction.NotifyType.AddRow) Then
If (args.Row > -1) Then

Dim partView As EpiDataView = CType(oTrans.EpiDataViews("Part"),
EpiDataView)
partView.dataView(partView.Row)("NonStock") = "TRUE"
End If
End If
End Sub

End Module

--- In vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com,
"kirsty2179" <dobby01@...> wrote:

>
> Thanks have tried this it says please save new part and when you open

up new part form it still not ticked.

>
>
> --- In vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com, Tony

Hughes thughes281@ wrote:

> >
> > I think all forms work this way, try this:
> > Check the box you want as default, from Tools menu click Save

Layouts.

> > Now every time you open the form, the box should be checked.
> >
> >
> >
> >
> >
> > ________________________________
> > From: kirsty2179 dobby01@
> > To: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
> > Sent: Thursday, March 19, 2009 4:43:07 AM
> > Subject: [Vantage] Default checkbox
> >
> >
> > Hello,
> >
> > Can anyone help ,need to set tick box for non stock to automallay

tick like qty bearing when new part is enter how do i do this in
custamations?

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

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

system · March 19, 2009, 5:43am

Hello,

Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?

system · March 19, 2009, 8:04am

I think all forms work this way, try this:
Check the box you want as default, from Tools menu click Save Layouts.
Now every time you open the form, the box should be checked.

________________________________
From: kirsty2179 <dobby01@...>
To: vantage@yahoogroups.com
Sent: Thursday, March 19, 2009 4:43:07 AM
Subject: [Vantage] Default checkbox

Hello,

Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?

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

system · March 19, 2009, 8:41am

Thanks have tried this it says please save new part and when you open up new part form it still not ticked.

--- In vantage@yahoogroups.com, Tony Hughes <thughes281@...> wrote:
>
> I think all forms work this way, try this:
> Check the box you want as default, from Tools menu click Save Layouts.
> Now every time you open the form, the box should be checked.
>
>
>
>
>
> ________________________________
> From: kirsty2179 <dobby01@...>
> To: vantage@yahoogroups.com
> Sent: Thursday, March 19, 2009 4:43:07 AM
> Subject: [Vantage] Default checkbox
>
>
> Hello,
>
> Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

system · March 19, 2009, 9:46am

You might not have the right to personalize the forms.
Ask your admin if you have "Allow Personalization" security for your user account.

________________________________
From: kirsty2179 <dobby01@...>
To: vantage@yahoogroups.com
Sent: Thursday, March 19, 2009 7:36:44 AM
Subject: [Vantage] Re: Default checkbox

Thanks have tried this it says please save new part and when you open up new part form it still not ticked.

--- In vantage@yahoogroups .com, Tony Hughes <thughes281@ ...> wrote:
>
> I think all forms work this way, try this:
> Check the box you want as default, from Tools menu click Save Layouts.
> Now every time you open the form, the box should be checked.
>
>
>
>
>
> ____________ _________ _________ __
> From: kirsty2179 <dobby01@... >
> To: vantage@yahoogroups .com
> Sent: Thursday, March 19, 2009 4:43:07 AM
> Subject: [Vantage] Default checkbox
>
>
> Hello,
>
> Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

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

system · March 19, 2009, 10:58am

Quite a few apps ignore the the customization wizard/properties setting of defaults.

In the case of autosetting a part to qty bearing, I understand as this value is a result of the part record loaded (even if it is a new partially completed record).

Part Entry touches so many tables (and in a specific required field order when constructing a new part record during new part entry) that you'll have to trace the part creation process to find a before or after method event that is sufficiently 'deep' into the record creation process to be suitable for checking the current state of the epidateview.field, and setting that qtybearing field to true (if not already) - and then writing it to the db with an otrans.update().

Sometimes it is like pulling teeth trying to find a sutibale method as the event trigger (as the method may be used under conditions you DON'T want to incurr the overhead of checking the qtybearing value and updating if 'wrong').

In those cases, find a suitable table field where a change (or row load) can act as you event trigger.

(Each app yeilds to one of these technique once you've done the tracing howework.)

Rob

--- On Thu, 3/19/09, kirsty2179 <dobby01@...> wrote:

From: kirsty2179 <dobby01@...>
Subject: [Vantage] Re: Default checkbox
To: vantage@yahoogroups.com
Date: Thursday, March 19, 2009, 8:36 AM

Thanks have tried this it says please save new part and when you open up new part form it still not ticked.

--- In vantage@yahoogroups .com, Tony Hughes <thughes281@ ...> wrote:
>
> I think all forms work this way, try this:
> Check the box you want as default, from Tools menu click Save Layouts.
> Now every time you open the form, the box should be checked.
>
>
>
>
>
> ____________ _________ _________ __
> From: kirsty2179 <dobby01@... >
> To: vantage@yahoogroups .com
> Sent: Thursday, March 19, 2009 4:43:07 AM
> Subject: [Vantage] Default checkbox
>
>
> Hello,
>
> Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

system · March 19, 2009, 10:58am

Quite a few apps ignore the the customization wizard/properties setting of defaults.

In the case of autosetting a part to qty bearing, I understand as this value is a result of the part record loaded (even if it is a new partially completed record).

Part Entry touches so many tables (and in a specific required field order when constructing a new part record during new part entry) that you'll have to trace the part creation process to find a before or after method event that is sufficiently 'deep' into the record creation process to be suitable for checking the current state of the epidateview.field, and setting that qtybearing field to true (if not already) - and then writing it to the db with an otrans.update().

Sometimes it is like pulling teeth trying to find a sutibale method as the event trigger (as the method may be used under conditions you DON'T want to incurr the overhead of checking the qtybearing value and updating if 'wrong').

In those cases, find a suitable table field where a change (or row load) can act as you event trigger.

(Each app yeilds to one of these technique once you've done the tracing howework.)

Rob

--- On Thu, 3/19/09, kirsty2179 <dobby01@...> wrote:

From: kirsty2179 <dobby01@...>
Subject: [Vantage] Re: Default checkbox
To: vantage@yahoogroups.com
Date: Thursday, March 19, 2009, 8:36 AM

Thanks have tried this it says please save new part and when you open up new part form it still not ticked.

--- In vantage@yahoogroups .com, Tony Hughes <thughes281@ ...> wrote:
>
> I think all forms work this way, try this:
> Check the box you want as default, from Tools menu click Save Layouts.
> Now every time you open the form, the box should be checked.
>
>
>
>
>
> ____________ _________ _________ __
> From: kirsty2179 <dobby01@... >
> To: vantage@yahoogroups .com
> Sent: Thursday, March 19, 2009 4:43:07 AM
> Subject: [Vantage] Default checkbox
>
>
> Hello,
>
> Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

system · March 19, 2009, 11:29am

Hi, this is the code we have in one of our part customizations, hope it
helps

'//**************************************************
'// Custom VB.NET code for PartForm
'// Created: 18/07/2007 15:06:35
'//**************************************************
Imports System
Imports System.Data
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Imports Epicor.Mfg.UI
Imports Epicor.Mfg.UI.FrameWork
Imports Epicor.Mfg.UI.ExtendedProps
Imports Epicor.Mfg.UI.FormFunctions
Imports Epicor.Mfg.UI.Customization
Imports Epicor.Mfg.UI.Adapters
Imports Epicor.Mfg.UI.Searches
Imports Epicor.Mfg.BO

Module Script

'// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard
Added Module Level Variables' Comments! **
'// Begin Wizard Added Module Level Variables **

Private WithEvents edvPart As EpiDataView
'// End Wizard Added Module Level Variables **

'// Add Custom Module Level Variables Here **

Sub InitializeCustomCode()

'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
Added Variable Intialization' lines **
'// Begin Wizard Added Variable Intialization

edvPart = CType(oTrans.EpiDataViews("Part"), EpiDataView)
'// End Wizard Added Variable Intialization
'// Begin Custom Method Calls

Sub DestroyCustomCode()

'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
Added Object Disposal' lines **
'// Begin Wizard Added Object Disposal

'// End Wizard Added Object Disposal
'// Begin Custom Code Disposal

'// End Custom Code Disposal
End Sub

Private Sub edvPart_EpiViewNotification(view As EpiDataView, args As
EpiNotifyArgs) Handles edvPart.EpiViewNotification
'// ** Argument Properties and Uses **
'// view.dataView(args.Row)("[FieldName]")
'// args.Row, args.Column, args.Sender, args.NotifyType
'// NotifyType.Initialize, NotifyType.AddRow,
NotifyType.DeleteRow, NotifyType.InitLastView,
NotifyType.InitAndResetTreeNodes
If (args.NotifyType = EpiTransaction.NotifyType.AddRow) Then
If (args.Row > -1) Then

Dim partView As EpiDataView = CType(oTrans.EpiDataViews("Part"),
EpiDataView)
partView.dataView(partView.Row)("NonStock") = "TRUE"
End If
End If
End Sub

End Module

--- In vantage@yahoogroups.com, "kirsty2179" <dobby01@...> wrote:
>
> Thanks have tried this it says please save new part and when you open
up new part form it still not ticked.
>
>
> --- In vantage@yahoogroups.com, Tony Hughes thughes281@ wrote:
> >
> > I think all forms work this way, try this:
> > Check the box you want as default, from Tools menu click Save
Layouts.
> > Now every time you open the form, the box should be checked.
> >
> >
> >
> >
> >
> > ________________________________
> > From: kirsty2179 dobby01@
> > To: vantage@yahoogroups.com
> > Sent: Thursday, March 19, 2009 4:43:07 AM
> > Subject: [Vantage] Default checkbox
> >
> >
> > Hello,
> >
> > Can anyone help ,need to set tick box for non stock to automallay
tick like qty bearing when new part is enter how do i do this in
custamations?
> >
> >
> >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>

system · March 19, 2009, 11:45am

Hi, this is the code we have in one of our part customizations, hope it
helps

'//**************************************************
'// Custom VB.NET code for PartForm
'// Created: 18/07/2007 15:06:35
'//**************************************************
Imports System
Imports System.Data
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Imports Epicor.Mfg.UI
Imports Epicor.Mfg.UI.FrameWork
Imports Epicor.Mfg.UI.ExtendedProps
Imports Epicor.Mfg.UI.FormFunctions
Imports Epicor.Mfg.UI.Customization
Imports Epicor.Mfg.UI.Adapters
Imports Epicor.Mfg.UI.Searches
Imports Epicor.Mfg.BO

Module Script

'// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard
Added Module Level Variables' Comments! **
'// Begin Wizard Added Module Level Variables **

Private WithEvents edvPart As EpiDataView
'// End Wizard Added Module Level Variables **

'// Add Custom Module Level Variables Here **

Sub InitializeCustomCode()

'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
Added Variable Intialization' lines **
'// Begin Wizard Added Variable Intialization

edvPart = CType(oTrans.EpiDataViews("Part"), EpiDataView)
'// End Wizard Added Variable Intialization
'// Begin Custom Method Calls

Sub DestroyCustomCode()

'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
Added Object Disposal' lines **
'// Begin Wizard Added Object Disposal

'// End Wizard Added Object Disposal
'// Begin Custom Code Disposal

'// End Custom Code Disposal
End Sub

Private Sub edvPart_EpiViewNotification(view As EpiDataView, args As
EpiNotifyArgs) Handles edvPart.EpiViewNotification
'// ** Argument Properties and Uses **
'// view.dataView(args.Row)("[FieldName]")
'// args.Row, args.Column, args.Sender, args.NotifyType
'// NotifyType.Initialize, NotifyType.AddRow,
NotifyType.DeleteRow, NotifyType.InitLastView,
NotifyType.InitAndResetTreeNodes
If (args.NotifyType = EpiTransaction.NotifyType.AddRow) Then
If (args.Row > -1) Then

Dim partView As EpiDataView = CType(oTrans.EpiDataViews("Part"),
EpiDataView)
partView.dataView(partView.Row)("NonStock") = "TRUE"
End If
End If
End Sub

End Module

--- In vantage@yahoogroups.com, "kirsty2179" <dobby01@...> wrote:
>
> Thanks have tried this it says please save new part and when you open
up new part form it still not ticked.
>
>
> --- In vantage@yahoogroups.com, Tony Hughes thughes281@ wrote:
> >
> > I think all forms work this way, try this:
> > Check the box you want as default, from Tools menu click Save
Layouts.
> > Now every time you open the form, the box should be checked.
> >
> >
> >
> >
> >
> > ________________________________
> > From: kirsty2179 dobby01@
> > To: vantage@yahoogroups.com
> > Sent: Thursday, March 19, 2009 4:43:07 AM
> > Subject: [Vantage] Default checkbox
> >
> >
> > Hello,
> >
> > Can anyone help ,need to set tick box for non stock to automallay
tick like qty bearing when new part is enter how do i do this in
custamations?
> >
> >
> >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>

system · March 19, 2009, 3:19pm

Do you have access to set up a BPM? We utilize these in some cases such as unchecking 'Credit Hold' for new customers (setting 'Credit Hold' to False actually).

--- In vantage@yahoogroups.com, "kirsty2179" <dobby01@...> wrote:
>
> Thanks have tried this it says please save new part and when you open up new part form it still not ticked.
>
>
> --- In vantage@yahoogroups.com, Tony Hughes <thughes281@> wrote:
> >
> > I think all forms work this way, try this:
> > Check the box you want as default, from Tools menu click Save Layouts.
> > Now every time you open the form, the box should be checked.
> >
> >
> >
> >
> >
> > ________________________________
> > From: kirsty2179 <dobby01@>
> > To: vantage@yahoogroups.com
> > Sent: Thursday, March 19, 2009 4:43:07 AM
> > Subject: [Vantage] Default checkbox
> >
> >
> > Hello,
> >
> > Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?
> >
> >
> >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>

system · March 19, 2009, 3:40pm

This is also a classic application for a BPM as well, and a fairly simple one. let me know if you need help with it if you choose that route.

--- In vantage@yahoogroups.com, "kirsty2179" <dobby01@...> wrote:
>
> Hello,
>
> Can anyone help ,need to set tick box for non stock to automallay tick like qty bearing when new part is enter how do i do this in custamations?
>