Automate Data Entry into Vantage 6.1 With Outside Program/Databa

Yahoo Archive
1
It looks like it would take a bit of work to strip out the company
specific information and non-relevant queries and reports, but the
needed query is pretty straightforward. Here is the sql statement:



SELECT PUB_CostPart.PartNum, PUB_CostPart.StdMaterialCost,
tblNewStandards.NewStandardCost

FROM PUB_CostPart LEFT JOIN tblNewStandards ON PUB_CostPart.PartNum =
tblNewStandards.PartNum

WHERE (((PUB_CostPart.GroupID)="FY08Stds") AND
((PUB_CostPart.TypeCode)="P"));



As you can see I link to the CostPart table which stores the cost set
entry part information. I then created my own table with the new
standard cost.



I hope this is enough information to get your started.



Butch



________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Toby Boogerd
Sent: Wednesday, October 24, 2007 9:29 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database



would it be possible for you to upload your database to the user group?
The code is nice but we can't see your fields or what is in the query
you are referencing.


Toby Boogerd
Information Systems
712-324-4854 x1119

NOTICE: This email may contain confidential and proprietary information
of Rosenboom Machine & Tool, Inc. By opening any enclosed files, the
recipient agrees not to use, reproduce, disclose, or manufacture its
contents, in whole or in part, without prior written consent of
Rosenboom Machine & Tool, Inc.

________________________________

From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
Of Butch Menge
Sent: Wednesday, October 24, 2007 11:27 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database

There has been several good solutions posted about automation. I use
Microsoft Access for mine. As an example, we recently had to update our
standards costs in Cost Set Entry so here is the code to automate the
data entry (what a life saver too because we had to enter them several
times because of master part table errors that needed to be fixed):

Public Function AdjustStandards()

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("qryStandardCostAutomation")

AppActivate "Cost Set Entry - Group FY08 Standards", False

'Move to first field

SendKeys "{Tab}", True

Wait (2)

While Not rs.EOF

If rs!StdMaterialCost <> Nz(rs!NewStandardCost,
rs!StdMaterialCost) Then

SendKeys rs!NewStandardCost, True

End If

SendKeys "{Enter}", True

Wait 0.1

rs.MoveNext

Wend

End Function

Sub Wait(PauseTime)

Dim Start

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents ' Let other processes run

Loop

End Sub

Hope this helps,

Butch

________________________________

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 John
Sent: Wednesday, October 24, 2007 9:04 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
<mailto:vantage%40yahoogroups.com>
Subject: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database

Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.

[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]
2
Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.
3
VB & VbScript should support the various dynamic data exhange functions such as DDEConnect, etc.,. These are often more reliable than SendKeys if the receiving app supports them..

Info on them (with code examples) are readily available on MS' technet.com and vantage tech support should be able to give you guidance on whether they would work with 6.1

We are 8.03 so I have no idea how compatible this would be with 6.1.

Rob Brown
Versa Products


----- Original Message ----
From: John <john@...>
To: vantage@yahoogroups.com
Sent: Wednesday, October 24, 2007 12:04:16 PM
Subject: [Vantage] Automate Data Entry into Vantage 6.1 With Outside Program/Database

Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.




__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

[Non-text portions of this message have been removed]
4
There has been several good solutions posted about automation. I use
Microsoft Access for mine. As an example, we recently had to update our
standards costs in Cost Set Entry so here is the code to automate the
data entry (what a life saver too because we had to enter them several
times because of master part table errors that needed to be fixed):



Public Function AdjustStandards()



Dim db As Database

Dim rs As Recordset



Set db = CurrentDb()

Set rs = db.OpenRecordset("qryStandardCostAutomation")



AppActivate "Cost Set Entry - Group FY08 Standards", False



'Move to first field

SendKeys "{Tab}", True

Wait (2)



While Not rs.EOF

If rs!StdMaterialCost <> Nz(rs!NewStandardCost,
rs!StdMaterialCost) Then

SendKeys rs!NewStandardCost, True

End If

SendKeys "{Enter}", True

Wait 0.1

rs.MoveNext

Wend



End Function



Sub Wait(PauseTime)



Dim Start



Start = Timer ' Set start time.



Do While Timer < Start + PauseTime

DoEvents ' Let other processes run

Loop



End Sub



Hope this helps,

Butch

________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of John
Sent: Wednesday, October 24, 2007 9:04 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database



Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.





[Non-text portions of this message have been removed]
5
would it be possible for you to upload your database to the user group?
The code is nice but we can't see your fields or what is in the query
you are referencing.




Toby Boogerd
Information Systems
712-324-4854 x1119

NOTICE: This email may contain confidential and proprietary information
of Rosenboom Machine & Tool, Inc. By opening any enclosed files, the
recipient agrees not to use, reproduce, disclose, or manufacture its
contents, in whole or in part, without prior written consent of
Rosenboom Machine & Tool, Inc.



________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Butch Menge
Sent: Wednesday, October 24, 2007 11:27 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database



There has been several good solutions posted about automation. I use
Microsoft Access for mine. As an example, we recently had to update our
standards costs in Cost Set Entry so here is the code to automate the
data entry (what a life saver too because we had to enter them several
times because of master part table errors that needed to be fixed):

Public Function AdjustStandards()

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("qryStandardCostAutomation")

AppActivate "Cost Set Entry - Group FY08 Standards", False

'Move to first field

SendKeys "{Tab}", True

Wait (2)

While Not rs.EOF

If rs!StdMaterialCost <> Nz(rs!NewStandardCost,
rs!StdMaterialCost) Then

SendKeys rs!NewStandardCost, True

End If

SendKeys "{Enter}", True

Wait 0.1

rs.MoveNext

Wend

End Function

Sub Wait(PauseTime)

Dim Start

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents ' Let other processes run

Loop

End Sub

Hope this helps,

Butch

________________________________

From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
Of John
Sent: Wednesday, October 24, 2007 9:04 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database

Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.

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






[Non-text portions of this message have been removed]
6
You can run a 'windows' program from a Vantage Basic form 'button', to insert records from your 'outside' app/datasource ( MS Access in our case) into Vantage ( using ADO, ODBC).
We insert 'Shipping' info from MS Access into Vantage, using a custom VB 6.0 application (we export from UPS Worldship into Access- Tracking Numbers and Misc Charges).We open up (2) recordsets ( Access & Vantage sources) and update the Vantage 'rs' with the Access 'rs'.

John <john@...> wrote:
Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.





__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

[Non-text portions of this message have been removed]
7
Good stuff. I have found SendKeys (as it is timing sensitive) gets a little dicey when too many processes are running.

DDE offers a more sure, less time sensitive passing of data.

General vbScript examples available at: http://support.microsoft.com/kb/213626




----- Original Message ----
From: Butch Menge <bmenge@...>
To: vantage@yahoogroups.com
Sent: Wednesday, October 24, 2007 12:27:20 PM
Subject: RE: [Vantage] Automate Data Entry into Vantage 6.1 With Outside Program/Database

There has been several good solutions posted about automation. I use
Microsoft Access for mine. As an example, we recently had to update our
standards costs in Cost Set Entry so here is the code to automate the
data entry (what a life saver too because we had to enter them several
times because of master part table errors that needed to be fixed):

Public Function AdjustStandards( )

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset( "qryStandardCost Automation" )

AppActivate "Cost Set Entry - Group FY08 Standards", False

'Move to first field

SendKeys "{Tab}", True

Wait (2)

While Not rs.EOF

If rs!StdMaterialCost <> Nz(rs!NewStandardCo st,
rs!StdMaterialCost) Then

SendKeys rs!NewStandardCost, True

End If

SendKeys "{Enter}", True

Wait 0.1

rs.MoveNext

Wend

End Function

Sub Wait(PauseTime)

Dim Start

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents ' Let other processes run

Loop

End Sub

Hope this helps,

Butch

____________ _________ _________ __

From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com] On Behalf
Of John
Sent: Wednesday, October 24, 2007 9:04 AM
To: vantage@yahoogroups .com
Subject: [Vantage] Automate Data Entry into Vantage 6.1 With Outside
Program/Database

Does anyone have a solution for entering data automatically into
Vantage 6.1 with some kind of outside program and data source. We do
several inventory transfers a day and they are already collected into
an outside database. I would like a way to automatically enter them
into Vantage to eliminate the work of typing them in again. Right now
our solution is a program that works like a "SendKeys" macro, but it is
not really error proof. I didn't know if there is a way to create a VB
form or evan a VB program that would read from the outside file and
interface with the transfer screen. Maybe this is a dead horse, but I
am new to the user group and couldn't find any threads about this topic.

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




__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

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