Order Entry Customization

Yahoo Archive
1
We have a few orders we do that are pretty much the same set of
information everytime that I was hoping to create a few buttons to have
auto-populate the orderdtl lines.

Before I get much further into this process, I thought I'd see if you
guys had recommendations for a better way, or if my route is the way to
go. Here's a copy of my test code from the button click event:

Dim salesAdapt As SalesOrderAdapter = New
SalesOrderAdapter(SalesOrderForm)
Dim OrderNum as string = 20000
Try
salesAdapt.BOConnect()
salesAdapt.GetById(OrderNum)
Dim salesOrderDtl As DataRow =
salesAdapt.SalesOrderData.Tables("OrderDtl").NewRow()'Rows(newRowIndex)
salesOrderDtl("OpenLine")=true
salesOrderDtl("VoidLine")=false
salesOrderDtl("Company")="iei"
salesOrderDtl("OrderNum")="20000"
salesOrderDtl("CustNum")="33"
salesOrderDtl("OrderLine")="1"
salesOrderDtl("Rework")=false
salesOrderDtl("LineType")="PART"
salesOrderDtl("PartNum")="TEST"
salesOrderDtl("LineDesc")="Test"
salesOrderDtl("SellingQuantity")=1
salesOrderDtl("LockQty")=false
salesOrderDtl("MktgCampaignID")="DEFAULT"
salesOrderDtl("MktgEvntSeq")="1"
salesOrderDtl("QuoteNum")="0"
salesOrderDtl("QuoteLine")="0"
salesOrderDtl("Reference")=""

salesAdapt.SalesOrderData.Tables("OrderDtl").Rows.Add(salesOrderDtl)
salesAdapt.Update()
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
salesAdapt.Dispose()
End Try

The problem becomes quite apparent that there are about 100 parameters
I'll have to juggle and put defaults in for based on a trace log. Is
there perhaps a way of having the system run it's default processes
based on me saying 'new line, part number, quantity', or is it once I
enter this type of customization I'm on my own and have to do all the
processes manually?

Thanks!


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

Does anybody know how can I use customization to prevent entering
data based on some criteria. Let's say I have some Customers that
are in bad standing and based on their CustID I want to prevent
people from entering an order?

We are using Vantage 8.03.304C.

I am experimenting with the code below but it is not working as
expected:

Private Sub OrderHed_BeforeFieldChange(ByVal sender As object, ByVal
args As DataColumnChangeEventArgs) Handles
OrderHed_Column.ColumnChanging
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "CustomerCustID"
If BannedCustomers(args.ProposedValue) Then
MsgBox("You are not
allowed to make Sales Order for Customer: " & args.ProposedValue,
MsgBoxStyle.Exclamation, "Access Denied!")
'Application.Exit
args.ProposedValue = ""
'SalesOrderForm.Close

End if


Case Else

End Select

End Sub

Any idea appreciated.
3
Why not just put the customer on credit hold.


Patrick Winter



________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of abcdefgsaga
Sent: Wednesday, January 03, 2007 10:01 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Order Entry Customization



Hello

Does anybody know how can I use customization to prevent entering
data based on some criteria. Let's say I have some Customers that
are in bad standing and based on their CustID I want to prevent
people from entering an order?

We are using Vantage 8.03.304C.

I am experimenting with the code below but it is not working as
expected:

Private Sub OrderHed_BeforeFieldChange(ByVal sender As object, ByVal
args As DataColumnChangeEventArgs) Handles
OrderHed_Column.ColumnChanging
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "CustomerCustID"
If BannedCustomers(args.ProposedValue) Then
MsgBox("You are not
allowed to make Sales Order for Customer: " & args.ProposedValue,
MsgBoxStyle.Exclamation, "Access Denied!")
'Application.Exit
args.ProposedValue = ""
'SalesOrderForm.Close

End if


Case Else

End Select

End Sub

Any idea appreciated.






[Non-text portions of this message have been removed]
4
Our management sees customer on credit hold and the feature I am
implementing differently.
The characteristic we would like to implement is for customers that were
specifically selected not to do business with.
On the other hand, credit hold is something that is temporary.

Adam Gwizdz
Manager, Corporate IT Systems
Main Tape Company
1 Capital Drive, Suite 101
Cranbury, NJ 08512
(800)718-8273 x332


_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Winter, Patrick
Sent: Wednesday, January 03, 2007 11:20 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Order Entry Customization



Why not just put the customer on credit hold.


Patrick Winter

________________________________

From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
Of abcdefgsaga
Sent: Wednesday, January 03, 2007 10:01 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: [Vantage] Order Entry Customization

Hello

Does anybody know how can I use customization to prevent entering
data based on some criteria. Let's say I have some Customers that
are in bad standing and based on their CustID I want to prevent
people from entering an order?

We are using Vantage 8.03.304C.

I am experimenting with the code below but it is not working as
expected:

Private Sub OrderHed_BeforeFieldChange(ByVal sender As object, ByVal
args As DataColumnChangeEventArgs) Handles
OrderHed_Column.ColumnChanging
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "CustomerCustID"
If BannedCustomers(args.ProposedValue) Then
MsgBox("You are not
allowed to make Sales Order for Customer: " & args.ProposedValue,
MsgBoxStyle.Exclamation, "Access Denied!")
'Application.Exit
args.ProposedValue = ""
'SalesOrderForm.Close

End if

Case Else

End Select

End Sub

Any idea appreciated.

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






[Non-text portions of this message have been removed]
5
We're on 6.1 and had a similar need where I used a BAM and a VB form to
resolve. On the VB form I gave them 2 text fields to enter whatever
they wish. I then wrote a BAM to fire when a new order header record is
created. If text has been entered then a message is displayed. Maybe
something similar could work for you. Here is the code:



/***********************************************************************
***

Description: This program reminds order entry when special cusotmer
test exists.



Created By:

Butch Menge

Revision History:

Initial revision

Vantage 6.10

-----------------

Rev 2.0

Changed program to look at Character09 for text first.

************************************************************************
***/



{ud/GlbAlert.i &TableName = "OrderHed"}



FIND Customer WHERE Customer.CustNum = OrderHed.CustNum no-lock.



if (Customer.Character09 <> "") THEN DO:

Message "For " + Customer.Name + " Notice 1: " +
Customer.Character09 + "; Notice 2: " +

Customer.Character10 + "." View-as alert-box information
buttons ok.

END.



Return "Cancel Send":U.



Return.



Butch



________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Gwizdz, Adam
Sent: Wednesday, January 03, 2007 12:52 PM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Order Entry Customization



Our management sees customer on credit hold and the feature I am
implementing differently.
The characteristic we would like to implement is for customers that were
specifically selected not to do business with.
On the other hand, credit hold is something that is temporary.

Adam Gwizdz
Manager, Corporate IT Systems
Main Tape Company
1 Capital Drive, Suite 101
Cranbury, NJ 08512
(800)718-8273 x332


_____

From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
Of Winter, Patrick
Sent: Wednesday, January 03, 2007 11:20 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Order Entry Customization

Why not just put the customer on credit hold.

Patrick Winter

________________________________

From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com> ] On
Behalf
Of abcdefgsaga
Sent: Wednesday, January 03, 2007 10:01 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
Subject: [Vantage] Order Entry Customization

Hello

Does anybody know how can I use customization to prevent entering
data based on some criteria. Let's say I have some Customers that
are in bad standing and based on their CustID I want to prevent
people from entering an order?

We are using Vantage 8.03.304C.

I am experimenting with the code below but it is not working as
expected:

Private Sub OrderHed_BeforeFieldChange(ByVal sender As object, ByVal
args As DataColumnChangeEventArgs) Handles
OrderHed_Column.ColumnChanging
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "CustomerCustID"
If BannedCustomers(args.ProposedValue) Then
MsgBox("You are not
allowed to make Sales Order for Customer: " & args.ProposedValue,
MsgBoxStyle.Exclamation, "Access Denied!")
'Application.Exit
args.ProposedValue = ""
'SalesOrderForm.Close

End if

Case Else

End Select

End Sub

Any idea appreciated.

[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]
6
That is a great idea to create A FK View, but this will only display a
warning message.

What I would like to do is not to allow saving entered data.

Adam Gwizdz
Manager, Corporate IT Systems
Main Tape Company
1 Capital Drive, Suite 101
Cranbury, NJ 08512
(800)718-8273 x332



_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Michael McWilliams
Sent: Wednesday, January 03, 2007 4:30 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Order Entry Customization



What if you Put a field in the customer table to check if you do not
want to sell them use CheckBox01 if not in use. Then Create A FK View
on the Sales order form called Customer. Try the following:
Dim Customer As EpiDataView =
Ctype(oTrans.EpiDataViews ("Customer"),EpiDataView) **THIS SHOULD
COME RIGHT AFTER THE EPIDATAVIEW = ABOVE******

If Customer.dataView(Customer.Row)("CheckBox01") = True Then
MessageBox.Show("This Customer Cannot Be Sold To")
Else
End If
Select Case args.Column.ColumnName

Case "CustomerCustID"

Case Else

End Select

End Sub

--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Gwizdz, Adam" <Adam.Gwizdz@...>
wrote:
>
> Our management sees customer on credit hold and the feature I am
> implementing differently.
> The characteristic we would like to implement is for customers that
were
> specifically selected not to do business with.
> On the other hand, credit hold is something that is temporary.
>
> Adam Gwizdz
> Manager, Corporate IT Systems
> Main Tape Company
> 1 Capital Drive, Suite 101
> Cranbury, NJ 08512
> (800)718-8273 x332
>
>
> _____
>
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
> Of Winter, Patrick
> Sent: Wednesday, January 03, 2007 11:20 AM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> Subject: RE: [Vantage] Order Entry Customization
>
>
>
> Why not just put the customer on credit hold.
>
>
> Patrick Winter
>
> ________________________________
>
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%
40yahoogroups.com> ] On
> Behalf
> Of abcdefgsaga
> Sent: Wednesday, January 03, 2007 10:01 AM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] Order Entry Customization
>
> Hello
>
> Does anybody know how can I use customization to prevent entering
> data based on some criteria. Let's say I have some Customers that
> are in bad standing and based on their CustID I want to prevent
> people from entering an order?
>
> We are using Vantage 8.03.304C.
>
> I am experimenting with the code below but it is not working as
> expected:
>
> Private Sub OrderHed_BeforeFieldChange(ByVal sender As object,
ByVal
> args As DataColumnChangeEventArgs) Handles
> OrderHed_Column.ColumnChanging
> '// ** Argument Properties and Uses **
> '// args.Row("[FieldName]")
> '// args.Column, args.ProposedValue, args.Row
> '
> 'Add Event Handler Code
> '
> Select Case args.Column.ColumnName
>
> Case "CustomerCustID"
> If BannedCustomers(args.ProposedValue) Then
> MsgBox("You are not
> allowed to make Sales Order for Customer: " & args.ProposedValue,
> MsgBoxStyle.Exclamation, "Access Denied!")
> 'Application.Exit
> args.ProposedValue = ""
> 'SalesOrderForm.Close
>
> End if
>
> Case Else
>
> End Select
>
> End Sub
>
> Any idea appreciated.
>
> [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]
7
So you want them to not save what they enter, what about if
you did not allow them to enter data in the first place if the
Customer was not OK to sell to?
--- In vantage@yahoogroups.com, "Gwizdz, Adam" <Adam.Gwizdz@...>
wrote:
>
> That is a great idea to create A FK View, but this will only
display a
> warning message.
>
> What I would like to do is not to allow saving entered data.
>
> Adam Gwizdz
> Manager, Corporate IT Systems
> Main Tape Company
> 1 Capital Drive, Suite 101
> Cranbury, NJ 08512
> (800)718-8273 x332
>
>
>
> _____
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On
Behalf
> Of Michael McWilliams
> Sent: Wednesday, January 03, 2007 4:30 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Re: Order Entry Customization
>
>
>
> What if you Put a field in the customer table to check if you do
not
> want to sell them use CheckBox01 if not in use. Then Create A FK
View
> on the Sales order form called Customer. Try the following:
> Dim Customer As EpiDataView =
> Ctype(oTrans.EpiDataViews ("Customer"),EpiDataView) **THIS SHOULD
> COME RIGHT AFTER THE EPIDATAVIEW = ABOVE******
>
> If Customer.dataView(Customer.Row)("CheckBox01") = True Then
> MessageBox.Show("This Customer Cannot Be Sold To")
> Else
> End If
> Select Case args.Column.ColumnName
>
> Case "CustomerCustID"
>
> Case Else
>
> End Select
>
> End Sub
>
> --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
> "Gwizdz, Adam" <Adam.Gwizdz@>
> wrote:
> >
> > Our management sees customer on credit hold and the feature I am
> > implementing differently.
> > The characteristic we would like to implement is for customers
that
> were
> > specifically selected not to do business with.
> > On the other hand, credit hold is something that is temporary.
> >
> > Adam Gwizdz
> > Manager, Corporate IT Systems
> > Main Tape Company
> > 1 Capital Drive, Suite 101
> > Cranbury, NJ 08512
> > (800)718-8273 x332
> >
> >
> > _____
> >
> > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> [mailto:vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com> ] On
> Behalf
> > Of Winter, Patrick
> > Sent: Wednesday, January 03, 2007 11:20 AM
> > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > Subject: RE: [Vantage] Order Entry Customization
> >
> >
> >
> > Why not just put the customer on credit hold.
> >
> >
> > Patrick Winter
> >
> > ________________________________
> >
> > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com>
> > [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%
> 40yahoogroups.com> ] On
> > Behalf
> > Of abcdefgsaga
> > Sent: Wednesday, January 03, 2007 10:01 AM
> > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com>
> > Subject: [Vantage] Order Entry Customization
> >
> > Hello
> >
> > Does anybody know how can I use customization to prevent entering
> > data based on some criteria. Let's say I have some Customers that
> > are in bad standing and based on their CustID I want to prevent
> > people from entering an order?
> >
> > We are using Vantage 8.03.304C.
> >
> > I am experimenting with the code below but it is not working as
> > expected:
> >
> > Private Sub OrderHed_BeforeFieldChange(ByVal sender As object,
> ByVal
> > args As DataColumnChangeEventArgs) Handles
> > OrderHed_Column.ColumnChanging
> > '// ** Argument Properties and Uses **
> > '// args.Row("[FieldName]")
> > '// args.Column, args.ProposedValue, args.Row
> > '
> > 'Add Event Handler Code
> > '
> > Select Case args.Column.ColumnName
> >
> > Case "CustomerCustID"
> > If BannedCustomers(args.ProposedValue) Then
> > MsgBox("You are not
> > allowed to make Sales Order for Customer: " & args.ProposedValue,
> > MsgBoxStyle.Exclamation, "Access Denied!")
> > 'Application.Exit
> > args.ProposedValue = ""
> > 'SalesOrderForm.Close
> >
> > End if
> >
> > Case Else
> >
> > End Select
> >
> > End Sub
> >
> > Any idea appreciated.
> >
> > [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]
>
8
How can I stop them from entering data?


Adam Gwizdz
Manager, Corporate IT Systems
Main Tape Company
1 Capital Drive, Suite 101
Cranbury, NJ 08512
(800)718-8273 x332



_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Michael McWilliams
Sent: Thursday, January 04, 2007 9:41 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Order Entry Customization



So you want them to not save what they enter, what about if
you did not allow them to enter data in the first place if the
Customer was not OK to sell to?
--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Gwizdz, Adam" <Adam.Gwizdz@...>
wrote:
>
> That is a great idea to create A FK View, but this will only
display a
> warning message.
>
> What I would like to do is not to allow saving entered data.
>
> Adam Gwizdz
> Manager, Corporate IT Systems
> Main Tape Company
> 1 Capital Drive, Suite 101
> Cranbury, NJ 08512
> (800)718-8273 x332
>
>
>
> _____
>
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
> Of Michael McWilliams
> Sent: Wednesday, January 03, 2007 4:30 PM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] Re: Order Entry Customization
>
>
>
> What if you Put a field in the customer table to check if you do
not
> want to sell them use CheckBox01 if not in use. Then Create A FK
View
> on the Sales order form called Customer. Try the following:
> Dim Customer As EpiDataView =
> Ctype(oTrans.EpiDataViews ("Customer"),EpiDataView) **THIS SHOULD
> COME RIGHT AFTER THE EPIDATAVIEW = ABOVE******
>
> If Customer.dataView(Customer.Row)("CheckBox01") = True Then
> MessageBox.Show("This Customer Cannot Be Sold To")
> Else
> End If
> Select Case args.Column.ColumnName
>
> Case "CustomerCustID"
>
> Case Else
>
> End Select
>
> End Sub
>
> --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com> ,
> "Gwizdz, Adam" <Adam.Gwizdz@>
> wrote:
> >
> > Our management sees customer on credit hold and the feature I am
> > implementing differently.
> > The characteristic we would like to implement is for customers
that
> were
> > specifically selected not to do business with.
> > On the other hand, credit hold is something that is temporary.
> >
> > Adam Gwizdz
> > Manager, Corporate IT Systems
> > Main Tape Company
> > 1 Capital Drive, Suite 101
> > Cranbury, NJ 08512
> > (800)718-8273 x332
> >
> >
> > _____
> >
> > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%
40yahoogroups.com> ] On
> Behalf
> > Of Winter, Patrick
> > Sent: Wednesday, January 03, 2007 11:20 AM
> > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> > Subject: RE: [Vantage] Order Entry Customization
> >
> >
> >
> > Why not just put the customer on credit hold.
> >
> >
> > Patrick Winter
> >
> > ________________________________
> >
> > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com>
> > [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> <mailto:vantage%
> 40yahoogroups.com> ] On
> > Behalf
> > Of abcdefgsaga
> > Sent: Wednesday, January 03, 2007 10:01 AM
> > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com>
> > Subject: [Vantage] Order Entry Customization
> >
> > Hello
> >
> > Does anybody know how can I use customization to prevent entering
> > data based on some criteria. Let's say I have some Customers that
> > are in bad standing and based on their CustID I want to prevent
> > people from entering an order?
> >
> > We are using Vantage 8.03.304C.
> >
> > I am experimenting with the code below but it is not working as
> > expected:
> >
> > Private Sub OrderHed_BeforeFieldChange(ByVal sender As object,
> ByVal
> > args As DataColumnChangeEventArgs) Handles
> > OrderHed_Column.ColumnChanging
> > '// ** Argument Properties and Uses **
> > '// args.Row("[FieldName]")
> > '// args.Column, args.ProposedValue, args.Row
> > '
> > 'Add Event Handler Code
> > '
> > Select Case args.Column.ColumnName
> >
> > Case "CustomerCustID"
> > If BannedCustomers(args.ProposedValue) Then
> > MsgBox("You are not
> > allowed to make Sales Order for Customer: " & args.ProposedValue,
> > MsgBoxStyle.Exclamation, "Access Denied!")
> > 'Application.Exit
> > args.ProposedValue = ""
> > 'SalesOrderForm.Close
> >
> > End if
> >
> > Case Else
> >
> > End Select
> >
> > End Sub
> >
> > Any idea appreciated.
> >
> > [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]
>






[Non-text portions of this message have been removed]
9
Do not forget to setup the same thing with quote entry (If you use
quote module.) Orders can be entered by using the get from quote.
This will bypass any logic in the order entry screen.

--- In vantage@yahoogroups.com, "Michael McWilliams"
<mmcwilliams22@...> wrote:
>
> So you want them to not save what they enter, what about if
> you did not allow them to enter data in the first place if the
> Customer was not OK to sell to?
> --- In vantage@yahoogroups.com, "Gwizdz, Adam" <Adam.Gwizdz@>
> wrote:
> >
> > That is a great idea to create A FK View, but this will only
> display a
> > warning message.
> >
> > What I would like to do is not to allow saving entered data.
> >
> > Adam Gwizdz
> > Manager, Corporate IT Systems
> > Main Tape Company
> > 1 Capital Drive, Suite 101
> > Cranbury, NJ 08512
> > (800)718-8273 x332
> >
> >
> >
> > _____
> >
> > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On
> Behalf
> > Of Michael McWilliams
> > Sent: Wednesday, January 03, 2007 4:30 PM
> > To: vantage@yahoogroups.com
> > Subject: [Vantage] Re: Order Entry Customization
> >
> >
> >
> > What if you Put a field in the customer table to check if you do
> not
> > want to sell them use CheckBox01 if not in use. Then Create A FK
> View
> > on the Sales order form called Customer. Try the following:
> > Dim Customer As EpiDataView =
> > Ctype(oTrans.EpiDataViews ("Customer"),EpiDataView) **THIS SHOULD
> > COME RIGHT AFTER THE EPIDATAVIEW = ABOVE******
> >
> > If Customer.dataView(Customer.Row)("CheckBox01") = True Then
> > MessageBox.Show("This Customer Cannot Be Sold To")
> > Else
> > End If
> > Select Case args.Column.ColumnName
> >
> > Case "CustomerCustID"
> >
> > Case Else
> >
> > End Select
> >
> > End Sub
> >
> > --- In vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com> ,
> > "Gwizdz, Adam" <Adam.Gwizdz@>
> > wrote:
> > >
> > > Our management sees customer on credit hold and the feature I am
> > > implementing differently.
> > > The characteristic we would like to implement is for customers
> that
> > were
> > > specifically selected not to do business with.
> > > On the other hand, credit hold is something that is temporary.
> > >
> > > Adam Gwizdz
> > > Manager, Corporate IT Systems
> > > Main Tape Company
> > > 1 Capital Drive, Suite 101
> > > Cranbury, NJ 08512
> > > (800)718-8273 x332
> > >
> > >
> > > _____
> > >
> > > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > [mailto:vantage@yahoogroups.com <mailto:vantage%
> 40yahoogroups.com> ] On
> > Behalf
> > > Of Winter, Patrick
> > > Sent: Wednesday, January 03, 2007 11:20 AM
> > > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > > Subject: RE: [Vantage] Order Entry Customization
> > >
> > >
> > >
> > > Why not just put the customer on credit hold.
> > >
> > >
> > > Patrick Winter
> > >
> > > ________________________________
> > >
> > > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > <mailto:vantage%40yahoogroups.com>
> > > [mailto:vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com>
> > <mailto:vantage%
> > 40yahoogroups.com> ] On
> > > Behalf
> > > Of abcdefgsaga
> > > Sent: Wednesday, January 03, 2007 10:01 AM
> > > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > <mailto:vantage%40yahoogroups.com>
> > > Subject: [Vantage] Order Entry Customization
> > >
> > > Hello
> > >
> > > Does anybody know how can I use customization to prevent
entering
> > > data based on some criteria. Let's say I have some Customers
that
> > > are in bad standing and based on their CustID I want to prevent
> > > people from entering an order?
> > >
> > > We are using Vantage 8.03.304C.
> > >
> > > I am experimenting with the code below but it is not working as
> > > expected:
> > >
> > > Private Sub OrderHed_BeforeFieldChange(ByVal sender As object,
> > ByVal
> > > args As DataColumnChangeEventArgs) Handles
> > > OrderHed_Column.ColumnChanging
> > > '// ** Argument Properties and Uses **
> > > '// args.Row("[FieldName]")
> > > '// args.Column, args.ProposedValue, args.Row
> > > '
> > > 'Add Event Handler Code
> > > '
> > > Select Case args.Column.ColumnName
> > >
> > > Case "CustomerCustID"
> > > If BannedCustomers(args.ProposedValue) Then
> > > MsgBox("You are not
> > > allowed to make Sales Order for Customer: " &
args.ProposedValue,
> > > MsgBoxStyle.Exclamation, "Access Denied!")
> > > 'Application.Exit
> > > args.ProposedValue = ""
> > > 'SalesOrderForm.Close
> > >
> > > End if
> > >
> > > Case Else
> > >
> > > End Select
> > >
> > > End Sub
> > >
> > > Any idea appreciated.
> > >
> > > [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]
> >
>
10
> How can I stop them from entering data?

I'm just starting to experiment with the new BPM module in 8.03. In it there
is a method to look for certain conditions and then to put "Holds" on the
process. You attach actions to object events like SalesOrder.Update or
SalesOrder.GetByID. If a certain condition is true, you're suppose to be able
to send an email, call some custom .Net or 4GL code, or put a process on
"Hold".

Something to consider...

Mark W.