Vantage Screen Customization

Yahoo Archive
1
Thank You Charles. The code you supplied worked great. It is much
appreciated.

Thanks,
Brad
--- In vantage@yahoogroups.com, "Charles Carden" <ccarden@...> wrote:
>
> The easiest way to accomplish this is with an after field changed
event.
> It would look similar to the following, just change the table name
to
> the appropriate table.
>
>
>
> Private Sub UD12_AfterFieldChange(ByVal sender As object, ByVal
args As
> DataColumnChangeEventArgs) Handles UD12_Column.ColumnChanged
>
> Dim edvUd12 As EpiDataView = CType(oTrans.EpiDataViews("UD12"),
> EpiDataView)
>
> Select Case args.Column.ColumnName
>
> Case "Date02"
>
> If edvUD12.dataview(edvUD12.Row)("Date04") is System.DBNull.Value
Then
>
> edvUd12.dataView(edvUd12.Row)("Date04") =
> edvUd12.dataView(edvUd12.Row)("Date02")
>
> End If
>
> Case Else
>
> End Select
>
> End Sub
>
>
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On
Behalf
> Of brad.ebright
> Sent: Monday, June 09, 2008 3:07 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Vantage Screen Customization
>
>
>
> We have customized the order entry screen by adding a new tab to
the
> line level for our engineers to use. We have a couple date fields
> (Date02 and Date04) on it. The engineers are suppose to fill in the
one
> date field and we would like it to copy the information in Date02
to
> Date04, but only if Date04 is blank. Is there a way to do this.
>
> We have a program that then runs and send email alerts to our job
> scheduler and sales saying that the engineering dates have been
changed
> so they can make changes in the appropiate schedules.
>
> We are running 8.00.
>
> Thanks
>
>
>
> Charles Carden
> Manager, MIS
> Manitex, Inc.
> Phone: 512-942-3086
> Fax: 512-942-3089
>
>
> DISCLAIMER:
> This e-mail, including attachments, may include confidential and/or
> proprietary information, and may be used only by the person or
entity to
> which it is addressed. If the reader of this e-mail is not the
intended
> recipient or his or her authorized agent, the reader is hereby
notified
> that any dissemination, distribution or copying of this e-mail is
> prohibited. If you have received this e-mail in error, please
notify the
> sender by replying to this message and delete this e-mail
immediately.
>
>
>
> [Non-text portions of this message have been removed]
>
2
We have customized the order entry screen by adding a new tab to the
line level for our engineers to use. We have a couple date fields
(Date02 and Date04) on it. The engineers are suppose to fill in the one
date field and we would like it to copy the information in Date02 to
Date04, but only if Date04 is blank. Is there a way to do this.

We have a program that then runs and send email alerts to our job
scheduler and sales saying that the engineering dates have been changed
so they can make changes in the appropiate schedules.

We are running 8.00.

Thanks
3
The easiest way to accomplish this is with an after field changed event.
It would look similar to the following, just change the table name to
the appropriate table.



Private Sub UD12_AfterFieldChange(ByVal sender As object, ByVal args As
DataColumnChangeEventArgs) Handles UD12_Column.ColumnChanged

Dim edvUd12 As EpiDataView = CType(oTrans.EpiDataViews("UD12"),
EpiDataView)

Select Case args.Column.ColumnName

Case "Date02"

If edvUD12.dataview(edvUD12.Row)("Date04") is System.DBNull.Value Then

edvUd12.dataView(edvUd12.Row)("Date04") =
edvUd12.dataView(edvUd12.Row)("Date02")

End If

Case Else

End Select

End Sub





From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of brad.ebright
Sent: Monday, June 09, 2008 3:07 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Vantage Screen Customization



We have customized the order entry screen by adding a new tab to the
line level for our engineers to use. We have a couple date fields
(Date02 and Date04) on it. The engineers are suppose to fill in the one
date field and we would like it to copy the information in Date02 to
Date04, but only if Date04 is blank. Is there a way to do this.

We have a program that then runs and send email alerts to our job
scheduler and sales saying that the engineering dates have been changed
so they can make changes in the appropiate schedules.

We are running 8.00.

Thanks



Charles Carden
Manager, MIS
Manitex, Inc.
Phone: 512-942-3086
Fax: 512-942-3089


DISCLAIMER:
This e-mail, including attachments, may include confidential and/or
proprietary information, and may be used only by the person or entity to
which it is addressed. If the reader of this e-mail is not the intended
recipient or his or her authorized agent, the reader is hereby notified
that any dissemination, distribution or copying of this e-mail is
prohibited. If you have received this e-mail in error, please notify the
sender by replying to this message and delete this e-mail immediately.



[Non-text portions of this message have been removed]
4
In order to prevent app errors, don't you also need a test in there to NOT act on the guts of the code when row goes to -1 (say on a clear screen action)?

I've found that to be a sporadic (annoying) issue (depending upon the app, adapters and tables involved).

Rob Brown

--- On Mon, 6/9/08, Charles Carden <ccarden@...> wrote:
From: Charles Carden <ccarden@...>
Subject: RE: [Vantage] Vantage Screen Customization
To: vantage@yahoogroups.com
Date: Monday, June 9, 2008, 5:43 PM











The easiest way to accomplish this is with an after field changed event.

It would look similar to the following, just change the table name to

the appropriate table.



Private Sub UD12_AfterFieldChan ge(ByVal sender As object, ByVal args As

DataColumnChangeEve ntArgs) Handles UD12_Column. ColumnChanged



Dim edvUd12 As EpiDataView = CType(oTrans. EpiDataViews( "UD12"),

EpiDataView)



Select Case args.Column. ColumnName



Case "Date02"



If edvUD12.dataview( edvUD12.Row) ("Date04" ) is System.DBNull. Value Then



edvUd12.dataView( edvUd12.Row) ("Date04" ) =

edvUd12.dataView( edvUd12.Row) ("Date02" )



End If



Case Else



End Select



End Sub



From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com] On Behalf

Of brad.ebright

Sent: Monday, June 09, 2008 3:07 PM

To: vantage@yahoogroups .com

Subject: [Vantage] Vantage Screen Customization



We have customized the order entry screen by adding a new tab to the

line level for our engineers to use. We have a couple date fields

(Date02 and Date04) on it. The engineers are suppose to fill in the one

date field and we would like it to copy the information in Date02 to

Date04, but only if Date04 is blank. Is there a way to do this.



We have a program that then runs and send email alerts to our job

scheduler and sales saying that the engineering dates have been changed

so they can make changes in the appropiate schedules.



We are running 8.00.



Thanks



Charles Carden

Manager, MIS

Manitex, Inc.

Phone:

Fax:



DISCLAIMER:

This e-mail, including attachments, may include confidential and/or

proprietary information, and may be used only by the person or entity to

which it is addressed. If the reader of this e-mail is not the intended

recipient or his or her authorized agent, the reader is hereby notified

that any dissemination, distribution or copying of this e-mail is

prohibited. If you have received this e-mail in error, please notify the

sender by replying to this message and delete this e-mail immediately.



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