VB Forms

Is there anyway to copy a VB form from a test database to a live database?
If so can someone tell me where to find the file.

Thanks

Fredy Venczel
I know this sounds like repetitive redundancy :), but does anyone know how I can launch Job Tracker from a VB Form?
To quote vantagebasic help:

"-any progress frames used must be progress dialogs, not Progres windows"
"-You may not use RUNPROG to run a Vantage program, such as Job Entry."

Job Entry is a vantage program, and uses a Progress Window, not a dialog.
Therefore what you are trying to do is not possible through vantagebasic.

-----Original Message-----
From: silvey3279@... [mailto:silvey3279@...]
Sent: Tuesday, September 25, 2001 1:27 PM
To: vantage@yahoogroups.com
Subject: [Vantage] VB Forms


I know this sounds like repetitive redundancy :), but does anyone know how I
can launch Job Tracker from a VB Form?


Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
Hi
Is it possible to have an alert box in vantage using Vb Forms or any
other way.
E.g
We would like to setup a formula that
if for venders the Percentage of late shipment exceeds the limit Show
me an alert whenever i make a PO that this Vendor is on Hold.

2. We would like to have Purchase requisition form in vantage is it
possible to setup something in Vb to bring the form in requisition
entry.
Hi
Is it possible to have an alert box in vantage using Vb Forms or any
other way.
E.g
We would like to setup a formula that
if for venders the Percentage of late shipment exceeds the limit Show
me an alert whenever i make a PO that this Vendor is on Hold.

2. We would like to have Purchase requisition form in vantage is it
possible to setup something in Vb to bring the form in requisition
entry.
Does anyone know of a command in VB forms to access information from a
Vantage table? I would like to make a drop down list of all engineers in
the Jobhead vbform field (so we can assign an engineer to each job). I
would like to use the empbasic table and filter on the department. Any
ideas would be appreciated. Thanks.

Alex Neutgens
Controller
Circuit Check, Inc.
763-694-4110
On Mon, 18 Feb 2002 Alex Neutgens wrote: Does anyone know of a
command in VB forms to access information from a Vantage table?

This can be done but you need to know a little bit about programming
in Progress. You can call a Progress program from a VB Form and look
up any information from the Vantage Tables that you need. You must
use the Vantage UDF's to transfer the data between the VB Form and
the Progress program. These user defined functions are listed in the
VB.I file located in the \Vantage\VBP\ directory. This was a little
hard for me to understand at first because there is almost no help on
this subject available. If you are familiar with Progress
programming then I would give it a try. Here is a very simple VB
form example to show how the getxxxvalue() and the setxxxvalue()
UDF's are used with a VB Form. This was written for Vantage 4.0, you
might need to change the USERID("vantage") to the name of your DB.


For This Example:
1. Add the following program to your Vantage\VBP directory
as dateuser.p
2. Create any new VB Form available
3. Add an Editor Control from the Palette
(this should default to "EDITOR_1")
4. Add a Push Button Control from the Palette
(this should default to "BUTTON_1")
5. Double click BUTTON-1 and add the command
"runprog dateuser.p" in the command box and save the VBForm.
6. Go to the actual VB Form and press BUTTON-1


/* dateuser.p */
/* To DATE/USER STAMP a VB Form editor control */
/* using a VB Form button control. */

{vbp/vb.i}

DEFINE Variable strEditorContents AS CHARACTER NO-UNDO.

strEditorContents = getStringValue("EDITOR_1").

strEditorContents = strEditorContents + STRING(TODAY) + " "+
CAPS(USERID("vantage")) + ": ".

setStringValue("EDITOR_1.scrvalue":U,strEditorContents).

RETURN.


--- original message ---
Date: Mon, 18 Feb 2002 15:10:35 -0600
From: Alex Neutgens <alex.neutgens@...>
Subject: VB Forms

Does anyone know of a command in VB forms to access information from
a Vantage table? I would like to make a drop down list of all
engineers in the Jobhead vbform field (so we can assign an engineer
to each job). I would like to use the empbasic table and filter on
the department. Any ideas would be appreciated. Thanks.

Alex Neutgens
Controller
Circuit Check, Inc.
763-694-4110
Is it possible to "pull" data into a VB form from the database? For example, I'm creating a VB form for Quotehed. I would like to have a company field, due date field, and RFQ field all on the form. But I would like to have the data automatically pull in from the Quote header so that way there is no extra typing. Is this possible?

Also, besides screen print and using crystal or RB is it possible to print VB forms?

Thanks everyone!

Wendy Bowen
Network Administrator
Schmald Tool & Die, Inc.
Burton, Michigan
(810) 743-1600 ext.323
wpursche@...

[Non-text portions of this message have been removed]
Wendy,
To answer your first question, yes, you can pull in data from Progress to your VB Form. Sarah Verishi helped me figure this out for the OrderRel Table as follows:

-Insert a field of the type you need onto the Form.
-From within the VBForms Form Designer window, double-click somewhere on the grayspace on the form (not a specific field).
-Next to the 'Commands' filed, set it to 'On Entry'.
-In the white space, enter the following:
set DATE-FIELD_1.scrvalue={OrderRel.NeedByDate.scrvalue}

This fills in that field automatically when you open up the VBForm. I ended up not using this in my case because of the following: if the default value wasn't what needed to be entered, you could override it. But if you needed to go back to the VBForm later, it would once again insert the original date again.

You may be able to translate this into what you need for the QuoteHed table.

Troy Funte
Liberty Electronics



----- Original Message -----
From: Wendy Bowen (Pursche)
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 7:53 AM
Subject: [Vantage] VB Forms


Is it possible to "pull" data into a VB form from the database? For example, I'm creating a VB form for Quotehed. I would like to have a company field, due date field, and RFQ field all on the form. But I would like to have the data automatically pull in from the Quote header so that way there is no extra typing. Is this possible?

Also, besides screen print and using crystal or RB is it possible to print VB forms?

Thanks everyone!

Wendy Bowen
Network Administrator
Schmald Tool & Die, Inc.
Burton, Michigan
(810) 743-1600 ext.323
wpursche@...

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


Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and Crystal Reports and other 'goodies', please goto: http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto: http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto: http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.



[Non-text portions of this message have been removed]
We have an annoying problem every time a global alert needs to be sent.
Outlook 2000 warns "an application is attempting to send an email" and do
you want to allow it to happen? The warning then requires the user to click
yes after about 10 seconds, and it sends the message.

Does anyone have any ideas to fix this issue?

David Gartner
Project Manager
EPG Companies
800-443-7426
dgartner@...
Couldn't you put some extra logic in to only update the field when blank ?
-----Original Message-----
From: Troy Funte [mailto:tfunte@...]
Sent: Friday, 12 April 2002 3:50 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] VB Forms


Wendy,
To answer your first question, yes, you can pull in data from Progress to
your VB Form. Sarah Verishi helped me figure this out for the OrderRel
Table as follows:

-Insert a field of the type you need onto the Form.
-From within the VBForms Form Designer window, double-click somewhere on the
grayspace on the form (not a specific field).
-Next to the 'Commands' filed, set it to 'On Entry'.
-In the white space, enter the following:
set DATE-FIELD_1.scrvalue={OrderRel.NeedByDate.scrvalue}

This fills in that field automatically when you open up the VBForm. I ended
up not using this in my case because of the following: if the default value
wasn't what needed to be entered, you could override it. But if you needed
to go back to the VBForm later, it would once again insert the original date
again.

You may be able to translate this into what you need for the QuoteHed table.

Troy Funte
Liberty Electronics



----- Original Message -----
From: Wendy Bowen (Pursche)
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 7:53 AM
Subject: [Vantage] VB Forms


Is it possible to "pull" data into a VB form from the database? For
example, I'm creating a VB form for Quotehed. I would like to have a
company field, due date field, and RFQ field all on the form. But I would
like to have the data automatically pull in from the Quote header so that
way there is no extra typing. Is this possible?

Also, besides screen print and using crystal or RB is it possible to print
VB forms?

Thanks everyone!

Wendy Bowen
Network Administrator
Schmald Tool & Die, Inc.
Burton, Michigan
(810) 743-1600 ext.323
wpursche@...
>Couldn't you put some extra logic in to only update the field when blank ?
VantageBasic doesn't support logic.

~Thaddeus
-----Original Message-----
From: Michael Miles [mailto:mmiles@...]
Sent: Thursday, April 11, 2002 3:59 PM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] VB Forms


Couldn't you put some extra logic in to only update the field when blank ?
-----Original Message-----
From: Troy Funte [mailto:tfunte@...]
Sent: Friday, 12 April 2002 3:50 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] VB Forms


Wendy,
To answer your first question, yes, you can pull in data from Progress to
your VB Form. Sarah Verishi helped me figure this out for the OrderRel
Table as follows:

-Insert a field of the type you need onto the Form.
-From within the VBForms Form Designer window, double-click somewhere on the
grayspace on the form (not a specific field).
-Next to the 'Commands' filed, set it to 'On Entry'.
-In the white space, enter the following:
set DATE-FIELD_1.scrvalue={OrderRel.NeedByDate.scrvalue}

This fills in that field automatically when you open up the VBForm. I ended
up not using this in my case because of the following: if the default value
wasn't what needed to be entered, you could override it. But if you needed
to go back to the VBForm later, it would once again insert the original date
again.

You may be able to translate this into what you need for the QuoteHed table.

Troy Funte
Liberty Electronics



----- Original Message -----
From: Wendy Bowen (Pursche)
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 7:53 AM
Subject: [Vantage] VB Forms


Is it possible to "pull" data into a VB form from the database? For
example, I'm creating a VB form for Quotehed. I would like to have a
company field, due date field, and RFQ field all on the form. But I would
like to have the data automatically pull in from the Quote header so that
way there is no extra typing. Is this possible?

Also, besides screen print and using crystal or RB is it possible to print
VB forms?

Thanks everyone!

Wendy Bowen
Network Administrator
Schmald Tool & Die, Inc.
Burton, Michigan
(810) 743-1600 ext.323
wpursche@...




Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
One could, however, launch a progress procedure containing the appropriate
logic.
If only I knew the extra logic ...

Thad, I got a good chuckle on the ''VB doesn't support logic" :-)

Troy Funte

----- Original Message -----
From: Michael Miles
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 6:58 PM
Subject: RE: [Vantage] VB Forms


Couldn't you put some extra logic in to only update the field when blank ?
-----Original Message-----
From: Troy Funte [mailto:tfunte@...]
Sent: Friday, 12 April 2002 3:50 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] VB Forms


Wendy,
To answer your first question, yes, you can pull in data from Progress to
your VB Form. Sarah Verishi helped me figure this out for the OrderRel
Table as follows:

-Insert a field of the type you need onto the Form.
-From within the VBForms Form Designer window, double-click somewhere on the
grayspace on the form (not a specific field).
-Next to the 'Commands' filed, set it to 'On Entry'.
-In the white space, enter the following:
set DATE-FIELD_1.scrvalue={OrderRel.NeedByDate.scrvalue}

This fills in that field automatically when you open up the VBForm. I ended
up not using this in my case because of the following: if the default value
wasn't what needed to be entered, you could override it. But if you needed
to go back to the VBForm later, it would once again insert the original date
again.

You may be able to translate this into what you need for the QuoteHed table.

Troy Funte
Liberty Electronics



----- Original Message -----
From: Wendy Bowen (Pursche)
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 7:53 AM
Subject: [Vantage] VB Forms


Is it possible to "pull" data into a VB form from the database? For
example, I'm creating a VB form for Quotehed. I would like to have a
company field, due date field, and RFQ field all on the form. But I would
like to have the data automatically pull in from the Quote header so that
way there is no extra typing. Is this possible?

Also, besides screen print and using crystal or RB is it possible to print
VB forms?

Thanks everyone!

Wendy Bowen
Network Administrator
Schmald Tool & Die, Inc.
Burton, Michigan
(810) 743-1600 ext.323
wpursche@...



Yahoo! Groups Sponsor
ADVERTISEMENT




Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and Crystal Reports and other 'goodies', please goto: http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto: http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto: http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.



[Non-text portions of this message have been removed]
You could have VB Form start a special written program, which would do the
logical portion and save the outcome to the clipboard. You could use Visual
Basic or other programming tools. Then the VB form would write the
information into Vantage.

Mike Tonoyan


----- Original Message -----
From: "Michael Miles" <mmiles@...>
To: <vantage@yahoogroups.com>
Sent: Thursday, April 11, 2002 3:58 PM
Subject: RE: [Vantage] VB Forms


> Couldn't you put some extra logic in to only update the field when blank ?
> -----Original Message-----
> From: Troy Funte [mailto:tfunte@...]
> Sent: Friday, 12 April 2002 3:50 AM
> To: vantage@yahoogroups.com
> Subject: Re: [Vantage] VB Forms
>
>
> Wendy,
> To answer your first question, yes, you can pull in data from Progress
to
> your VB Form. Sarah Verishi helped me figure this out for the OrderRel
> Table as follows:
>
> -Insert a field of the type you need onto the Form.
> -From within the VBForms Form Designer window, double-click somewhere on
the
> grayspace on the form (not a specific field).
> -Next to the 'Commands' filed, set it to 'On Entry'.
> -In the white space, enter the following:
> set DATE-FIELD_1.scrvalue={OrderRel.NeedByDate.scrvalue}
>
> This fills in that field automatically when you open up the VBForm. I
ended
> up not using this in my case because of the following: if the default
value
> wasn't what needed to be entered, you could override it. But if you needed
> to go back to the VBForm later, it would once again insert the original
date
> again.
>
> You may be able to translate this into what you need for the QuoteHed
table.
>
> Troy Funte
> Liberty Electronics
>
>
>
> ----- Original Message -----
> From: Wendy Bowen (Pursche)
> To: vantage@yahoogroups.com
> Sent: Thursday, April 11, 2002 7:53 AM
> Subject: [Vantage] VB Forms
>
>
> Is it possible to "pull" data into a VB form from the database? For
> example, I'm creating a VB form for Quotehed. I would like to have a
> company field, due date field, and RFQ field all on the form. But I would
> like to have the data automatically pull in from the Quote header so that
> way there is no extra typing. Is this possible?
>
> Also, besides screen print and using crystal or RB is it possible to
print
> VB forms?
>
> Thanks everyone!
>
> Wendy Bowen
> Network Administrator
> Schmald Tool & Die, Inc.
> Burton, Michigan
> (810) 743-1600 ext.323
> wpursche@...
>
>
>
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
have already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
> (2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
> (3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
Well, the best tool for the job is Progress, or if you get really creative
an executable.

Oleg Tumarkin
Intelligent Systems Integration
(330) 335-5291
olegt@...

"Making Intelligent Use of Technology"

-----Original Message-----
From: Troy Funte [mailto:tfunte@...]
Sent: Thursday, April 11, 2002 10:10 PM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] VB Forms


If only I knew the extra logic ...

Thad, I got a good chuckle on the ''VB doesn't support logic" :-)

Troy Funte

----- Original Message -----
From: Michael Miles
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 6:58 PM
Subject: RE: [Vantage] VB Forms


Couldn't you put some extra logic in to only update the field when blank ?
-----Original Message-----
From: Troy Funte [mailto:tfunte@...]
Sent: Friday, 12 April 2002 3:50 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] VB Forms


Wendy,
To answer your first question, yes, you can pull in data from Progress
to
your VB Form. Sarah Verishi helped me figure this out for the OrderRel
Table as follows:

-Insert a field of the type you need onto the Form.
-From within the VBForms Form Designer window, double-click somewhere on
the
grayspace on the form (not a specific field).
-Next to the 'Commands' filed, set it to 'On Entry'.
-In the white space, enter the following:
set DATE-FIELD_1.scrvalue={OrderRel.NeedByDate.scrvalue}

This fills in that field automatically when you open up the VBForm. I
ended
up not using this in my case because of the following: if the default
value
wasn't what needed to be entered, you could override it. But if you needed
to go back to the VBForm later, it would once again insert the original
date
again.

You may be able to translate this into what you need for the QuoteHed
table.

Troy Funte
Liberty Electronics



----- Original Message -----
From: Wendy Bowen (Pursche)
To: vantage@yahoogroups.com
Sent: Thursday, April 11, 2002 7:53 AM
Subject: [Vantage] VB Forms


Is it possible to "pull" data into a VB form from the database? For
example, I'm creating a VB form for Quotehed. I would like to have a
company field, due date field, and RFQ field all on the form. But I would
like to have the data automatically pull in from the Quote header so that
way there is no extra typing. Is this possible?

Also, besides screen print and using crystal or RB is it possible to
print
VB forms?

Thanks everyone!

Wendy Bowen
Network Administrator
Schmald Tool & Die, Inc.
Burton, Michigan
(810) 743-1600 ext.323
wpursche@...



Yahoo! Groups Sponsor
ADVERTISEMENT




Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
have already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
<http://groups.yahoo.com/group/vantage/files/.>
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
<http://groups.yahoo.com/group/vantage/messages>
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links
<http://groups.yahoo.com/group/vantage/links>

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.



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



Yahoo! Groups Sponsor

ADVERTISEMENT

<http://rd.yahoo.com/M=194081.1994012.3473453.1261774/D=egroupweb/S=17050071
83:HM/A=1036972/R=0/*http://www.ediets.com/start.cfm?code=3466> Click Here!


<http://us.adserver.yahoo.com/l?M=194081.1994012.3473453.1261774/D=egroupmai
l/S=1705007183:HM/A=1036972/rand=924486929>

Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
<http://groups.yahoo.com/group/vantage/files/.>
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
<http://groups.yahoo.com/group/vantage/messages>
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links
<http://groups.yahoo.com/group/vantage/links>

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
<http://docs.yahoo.com/info/terms/> .




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

I believe your code is good...

setDecimalValue("OrderDtl.NUMBER-FIELD_6.SCRVALUE":U, 1.05).

...will work fine. Two things you need to check:
1. Is the field on the VB Form set to have 2 decimal places.
2. Try making the field much wider and see if the data is actually there,
but is just covered up (when I tried your code this was the solution for
me).

AE

-----Original Message-----
From: Ron Newell [mailto:rnewell@...]
Sent: Wednesday, May 15, 2002 9:04 AM
To: vantage@yahoogroups.com
Subject: [Vantage] VB Forms


Good Morning,

Would anyone be willing to take a look at my code and tell me why my
returned values will not display the decimal places? For example the
last line of code "
setDecimalValue("OrderDtl.NUMBER-FIELD_6.SCRVALUE":U, 1.05)." will only
display 1. Not 1.05. Any help would be much appreciated.


Ron Newell
IT Manager
Neon Products
1695 Sargent Ave.
Winnipeg, MB R3H 0C4

http://www.neon-products.com/ <http://www.neon-products.com/>
mailto:rnewell@...


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


*/

/* include vbp/vb.i so VantageBasic functions are accessible. */
{vbp/vb.i}

/* Here define variables */
DEFINE VARIABLE EstimatedSalePrice AS DECIMAL NO-UNDO.
DEFINE VARIABLE Terms AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompLeasePrice AS DECIMAL NO-UNDO.
DEFINE VARIABLE SaleLeasePrice AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompLcr AS DECIMAL NO-UNDO.
DEFINE VARIABLE Lcr AS DECIMAL NO-UNDO.
DEFINE VARIABLE Maintenance AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompFinance AS DECIMAL NO-UNDO.
DEFINE VARIABLE Finance AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompDefdAdmin AS DECIMAL NO-UNDO.
DEFINE VARIABLE DefdAdmin AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompCsv AS DECIMAL NO-UNDO.
DEFINE VARIABLE SaleCsv AS DECIMAL NO-UNDO.
DEFINE VARIABLE Sale-CUT AS DECIMAL NO-UNDO.
DEFINE VARIABLE SalesCsv-Val AS DECIMAL NO-UNDO.


/* GET SCREEN VALUES AND SAVE INTO WORKING VARIABLES*/

ASSIGN EstimatedSalePrice =
getDecimalValue("OrderDtl.CHAR-FIELD_4.SCRVALUE":U)
Terms = getDecimalValue("OrderDtl.CHAR-FIELD_5.SCRVALUE":U)
SaleLeasePrice =
getDecimalValue("OrderDtl.CHAR-FIELD_7.SCRVALUE":U)
CompLcr =
getDecimalValue("OrderDtl.NUMBER-FIELD_5.SCRVALUE":U).


/* do the calculation */

CompDefdAdmin = CompLcr * .04.
SalesCsv-Val = (EstimatedSalePrice * Terms).


/* Set the screen value. */
setDecimalValue("OrderDtl.NUMBER-FIELD_10.SCRVALUE":U, SalesCsv-Val).
setDecimalValue("OrderDtl.NUMBER-FIELD_7.SCRVALUE":U, CompDefdAdmin).
setDateValue("OrderDtl.DATE-FIELD_1.SCRVALUE":U, TODAY).
setDecimalValue("OrderDtl.NUMBER-FIELD_6.SCRVALUE":U, 1.05).

RETURN.



This information sent is intended only for the person or entity to which it
is addressed and may contain confidential and/or privileged material. Any
review, retransmission, dissemination or other use of, or talking of any
action in reliance upon, this information by persons or entities other than
the intended recipient is prohibited. If you received this in error, please
contact the sender and delete the material from any storage devices.

This message was checked by Norton AntiVirus for all known Viruses .
www.neon-products.com



Yahoo! Groups Sponsor


ADVERTISEMENT



<http://rd.yahoo.com/M=194081.2053425.3521449.1829184/D=egroupweb/S=17050071
83:HM/A=1046314/R=1/*http://www.ediets.com/start.cfm?code=3225>

<http://rd.yahoo.com/M=194081.2053425.3521449.1829184/D=egroupweb/S=17050071
83:HM/A=1046314/R=2/*http://www.ediets.com/start.cfm?code=3225>
Height: 4 5 6 7 ft 0 1 2 3 4 5 6 7 8 9 10 11 in
Weight:
Sex: F M


<http://us.adserver.yahoo.com/l?M=194081.2053425.3521449.1829184/D=egroupmai
l/S=1705007183:HM/A=1046314/rand=507768825>

Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
<http://groups.yahoo.com/group/vantage/files/.>
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
<http://groups.yahoo.com/group/vantage/messages>
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links
<http://groups.yahoo.com/group/vantage/links>

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
<http://docs.yahoo.com/info/terms/> .




[Non-text portions of this message have been removed]
Field Width, Who would have thought? Thanks so much....

Ron Newell
IT Manager
Neon Products
1695 Sargent Ave.
Winnipeg, MB R3H 0C4

http://www.neon-products.com/
mailto:rnewell@...


-----Original Message-----
From: Adam Ellis [mailto:adame@...]
Sent: Wednesday, May 15, 2002 8:33 AM
To: 'vantage@yahoogroups.com'
Subject: RE: [Vantage] VB Forms

Ron,

I believe your code is good...

setDecimalValue("OrderDtl.NUMBER-FIELD_6.SCRVALUE":U, 1.05).

...will work fine. Two things you need to check:
1. Is the field on the VB Form set to have 2 decimal places.
2. Try making the field much wider and see if the data is actually
there,
but is just covered up (when I tried your code this was the solution for
me).

AE

-----Original Message-----
From: Ron Newell [mailto:rnewell@...]
Sent: Wednesday, May 15, 2002 9:04 AM
To: vantage@yahoogroups.com
Subject: [Vantage] VB Forms


Good Morning,

Would anyone be willing to take a look at my code and tell me why my
returned values will not display the decimal places? For example the
last line of code "
setDecimalValue("OrderDtl.NUMBER-FIELD_6.SCRVALUE":U, 1.05)." will only
display 1. Not 1.05. Any help would be much appreciated.


Ron Newell
IT Manager
Neon Products
1695 Sargent Ave.
Winnipeg, MB R3H 0C4

http://www.neon-products.com/ <http://www.neon-products.com/>
mailto:rnewell@...


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


*/

/* include vbp/vb.i so VantageBasic functions are accessible. */
{vbp/vb.i}

/* Here define variables */
DEFINE VARIABLE EstimatedSalePrice AS DECIMAL NO-UNDO.
DEFINE VARIABLE Terms AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompLeasePrice AS DECIMAL NO-UNDO.
DEFINE VARIABLE SaleLeasePrice AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompLcr AS DECIMAL NO-UNDO.
DEFINE VARIABLE Lcr AS DECIMAL NO-UNDO.
DEFINE VARIABLE Maintenance AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompFinance AS DECIMAL NO-UNDO.
DEFINE VARIABLE Finance AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompDefdAdmin AS DECIMAL NO-UNDO.
DEFINE VARIABLE DefdAdmin AS DECIMAL NO-UNDO.
DEFINE VARIABLE CompCsv AS DECIMAL NO-UNDO.
DEFINE VARIABLE SaleCsv AS DECIMAL NO-UNDO.
DEFINE VARIABLE Sale-CUT AS DECIMAL NO-UNDO.
DEFINE VARIABLE SalesCsv-Val AS DECIMAL NO-UNDO.


/* GET SCREEN VALUES AND SAVE INTO WORKING VARIABLES*/

ASSIGN EstimatedSalePrice =
getDecimalValue("OrderDtl.CHAR-FIELD_4.SCRVALUE":U)
Terms = getDecimalValue("OrderDtl.CHAR-FIELD_5.SCRVALUE":U)
SaleLeasePrice =
getDecimalValue("OrderDtl.CHAR-FIELD_7.SCRVALUE":U)
CompLcr =
getDecimalValue("OrderDtl.NUMBER-FIELD_5.SCRVALUE":U).


/* do the calculation */

CompDefdAdmin = CompLcr * .04.
SalesCsv-Val = (EstimatedSalePrice * Terms).


/* Set the screen value. */
setDecimalValue("OrderDtl.NUMBER-FIELD_10.SCRVALUE":U, SalesCsv-Val).
setDecimalValue("OrderDtl.NUMBER-FIELD_7.SCRVALUE":U, CompDefdAdmin).
setDateValue("OrderDtl.DATE-FIELD_1.SCRVALUE":U, TODAY).
setDecimalValue("OrderDtl.NUMBER-FIELD_6.SCRVALUE":U, 1.05).

RETURN.



This information sent is intended only for the person or entity to which
it
is addressed and may contain confidential and/or privileged material.
Any
review, retransmission, dissemination or other use of, or talking of any
action in reliance upon, this information by persons or entities other
than
the intended recipient is prohibited. If you received this in error,
please
contact the sender and delete the material from any storage devices.

This message was checked by Norton AntiVirus for all known Viruses .
www.neon-products.com



Yahoo! Groups Sponsor


ADVERTISEMENT



<http://rd.yahoo.com/M=194081.2053425.3521449.1829184/D=egroupweb/S=1705
0071
83:HM/A=1046314/R=1/*http://www.ediets.com/start.cfm?code=3225>

<http://rd.yahoo.com/M=194081.2053425.3521449.1829184/D=egroupweb/S=1705
0071
83:HM/A=1046314/R=2/*http://www.ediets.com/start.cfm?code=3225>

Height: 4 5 6 7 ft 0 1 2 3 4 5 6 7 8 9 10 11 in
Weight:
Sex: F M


<http://us.adserver.yahoo.com/l?M=194081.2053425.3521449.1829184/D=egrou
pmai
l/S=1705007183:HM/A=1046314/rand=507768825>

Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder
and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
<http://groups.yahoo.com/group/vantage/files/.>
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
<http://groups.yahoo.com/group/vantage/messages>
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links
<http://groups.yahoo.com/group/vantage/links>

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
<http://docs.yahoo.com/info/terms/> .




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



Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
have already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder
and Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/


This information sent is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of, or talking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from any storage devices.

This message was checked by Norton AntiVirus for all known Viruses .
www.neon-products.com
Can I do a calculation within VB Forms? I have 8 number fields in my VB
Forms. I want to total them and put the total into a ninth number field by
the user clicking a 'total' button. I can't seem to figure it out. I know
how to use the set command and can get the button to make the ninth field
equal the contents of one of the other fields but can't figure out how to
get it to add multiple fields together within that command window. Anybody
know how to do this?

Thanks!
-Sarah
Sarah,
The following is something I posted awhile back. While it deals with Date fields, you could do something similar with number fields. Instead of executing the Progress program "ON OK" you could execute it "ON Entry" and have the fields input into the Progress program, then return the result to the VB Form.
Here's what I did:....

The goal was to use a VBForm to:
A. Enter a Date labeled "Planned Ship Date" (Date01) on the OrderRel VB
Form. Then,
B. "On OK" (Exit) of the VBForm, change the Orderrel.NeedByDate to be 42
days prior to the Entered Date01.

The result was that in the "On OK" area of the VB Form I called a progress program (using the "runprog Date.p" command) which looks like the following:

/**************************************************************************
_Name: Date.p
_Description: This program is designed to back off the OrderRel.Date01date
by 42 days and copy that new date to the
OrderRel.NeedByDate.
_Created By: Troy Funte
*/

/* include vbp/vb.i so VantageBasic functions are accessible. */
{vbp/vb.i}

/* Here define your own variables */
DEFINE VARIABLE Date-Val AS DATE.

/* do the calculation (Date01 - 42 days) */
Date-Val = getDateValue("DATE-FIELD_1") - 42.

/* Set the screen value of OrderRel.NeedbyDate to be the Date-Val variable. */
setDateValue("orderrel.needbydate.scrvalue":U,Date-Val).

RETURN.
/* end of Date.p routine */

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

Troy Funte
Liberty Electronics

----- Original Message -----
From: sarah.vareschi@...
To: vantage@yahoogroups.com
Sent: Friday, May 17, 2002 11:24 AM
Subject: [Vantage] VB Forms


Can I do a calculation within VB Forms? I have 8 number fields in my VB
Forms. I want to total them and put the total into a ninth number field by
the user clicking a 'total' button. I can't seem to figure it out. I know
how to use the set command and can get the button to make the ninth field
equal the contents of one of the other fields but can't figure out how to
get it to add multiple fields together within that command window. Anybody
know how to do this?

Thanks!
-Sarah


Yahoo! Groups Sponsor
ADVERTISEMENT




Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and Crystal Reports and other 'goodies', please goto: http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto: http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto: http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.



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