Copying Last Cost to Std Cost

we manged to get it working via the costing workbench, thank you Mark.

Strange Epicor never mentioned this but gave us a quote for £'£££'s for customisations......

--- In vantage@yahoogroups.com, Mark Wonsil <mark_wonsil@...> wrote:
>
> Bruce rightfully points out:
>
> >
> > The rollup report is not always very helpful.
> >
>
> True dat! You have to scan it manually and that's not very accurate or
> efficient! Too easy to miss stuff. Excel is a MUCH better tool for the
> job IMHO.
>
> Mark W.
>
Hello,

I've been asked to produce a customized version of the Cost Adjustment screen whereby when a button is clicked it will copy the last cost to the std cost for all purchased parts and create the correct transactions and GL accounts. I have been talking to another guy in another forum that has been a massive help but it is still not quite working. Basically a button is placed on the cost adjustment form, with a click event and the following code:

Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom1.Click
'// ** Place Event Handling Code Here **
'//Checks on the data entry

Dim i as Integer '//Counter for looping through parts selected
Dim sMessage as String '//Message for warning
Dim Result as DialogResult '//Result of Yes/No question


if edvCost.dataview.count = 0 then
MessageBox.Show("You have not picked any parts to update!")
exit sub
end if

sMessage = "You are about to update the part costs selected"
sMessage = sMessage + vbCrLf
sMessage = sMessage + vbCrLf
sMessage = sMessage + "Are you sure?"

Result = MessageBox.Show(sMessage, "Warning", MessageBoxButtons.YesNo)
if Result = DialogResult.No Then
exit sub
end if


'//Loop through the parts
for i = 1 to edvCost.dataview.count
edvCost.dataView(i-1)("StdMtlUnitCost") = edvCost.dataView(i-1)("LastMtlUnitCost")
next i
oTrans.Update
Exit Sub

err:
MessageBox.Show(Err.Description)
Resume Next

End Sub

There is falso orm event code to the button is disabled if the last cost is zero:

Private Sub edvCost_EpiViewNotification(view As EpiDataView, args As EpiNotifyArgs) Handles edvCost.EpiViewNotification If (args.NotifyType = EpiTransaction.NotifyType.Initialize) Then If (args.Row > -1) Then If edvCost.dataView(0)("LastMtlUnitCost") = 0 then BUTTON.Enabled = False Else BUTTON.Enabled = True End If End If End If End Sub


Probem is I keep receiving the below error when the button is clicked:

Exception caught in: Epicor.Mfg.BO.CostAdjustment

Error Detail
============
Message: ttCostAdjustment record not found.
Type: Error
Program: bo/CostAdjustment.p
Method: SetLotCosts
Table: ttCostAdjustment
Row:
Field: RowMod



Stack Trace
===========
at Epicor.Mfg.Proxy.CostAdjustmentImpl.SetCostAdjustment(CostAdjustmentDataSet ds)
at Epicor.Mfg.UI.Adapters.CostAdjustmentAdapter.SetCostAdjustment()
at Epicor.Mfg.UI.App.CostAdjustmentEntry.CostAdjustmentTransaction.Update()


Any ideas?

I am using Vantage 8.03.406 on Progress.

Regards,

Michael
Hi Michael,

Any reason you don't just use the Cost Roll-Up utility? You can load only
purchased parts, base the new costs on Last Cost, run reports to look for
issues, and if good, post it. You're also not introducing variances for
higher level parts.

Mark W.

On Wed, Oct 20, 2010 at 7:21 AM, michael.hutcheson@... <
michael.hutcheson@...> wrote:

>
>
> Hello,
>
> I've been asked to produce a customized version of the Cost Adjustment
> screen whereby when a button is clicked it will copy the last cost to the
> std cost for all purchased parts and create the correct transactions and GL
> accounts. I have been talking to another guy in another forum that has been
> a massive help but it is still not quite working. Basically a button is
> placed on the cost adjustment form, with a click event and the following
> code:
>
> Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As
> System.EventArgs) Handles btnEpiCustom1.Click
> '// ** Place Event Handling Code Here **
> '//Checks on the data entry
>
> Dim i as Integer '//Counter for looping through parts selected
> Dim sMessage as String '//Message for warning
> Dim Result as DialogResult '//Result of Yes/No question
>
> if edvCost.dataview.count = 0 then
> MessageBox.Show("You have not picked any parts to update!")
> exit sub
> end if
>
> sMessage = "You are about to update the part costs selected"
> sMessage = sMessage + vbCrLf
> sMessage = sMessage + vbCrLf
> sMessage = sMessage + "Are you sure?"
>
> Result = MessageBox.Show(sMessage, "Warning", MessageBoxButtons.YesNo)
> if Result = DialogResult.No Then
> exit sub
> end if
>
> '//Loop through the parts
> for i = 1 to edvCost.dataview.count
> edvCost.dataView(i-1)("StdMtlUnitCost") =
> edvCost.dataView(i-1)("LastMtlUnitCost")
> next i
> oTrans.Update
> Exit Sub
>
> err:
> MessageBox.Show(Err.Description)
> Resume Next
>
> End Sub
>
> There is falso orm event code to the button is disabled if the last cost is
> zero:
>
> Private Sub edvCost_EpiViewNotification(view As EpiDataView, args As
> EpiNotifyArgs) Handles edvCost.EpiViewNotification If (args.NotifyType =
> EpiTransaction.NotifyType.Initialize) Then If (args.Row > -1) Then If
> edvCost.dataView(0)("LastMtlUnitCost") = 0 then BUTTON.Enabled = False Else
> BUTTON.Enabled = True End If End If End If End Sub
>
> Probem is I keep receiving the below error when the button is clicked:
>
> Exception caught in: Epicor.Mfg.BO.CostAdjustment
>
> Error Detail
> ============
> Message: ttCostAdjustment record not found.
> Type: Error
> Program: bo/CostAdjustment.p
> Method: SetLotCosts
> Table: ttCostAdjustment
> Row:
> Field: RowMod
>
> Stack Trace
> ===========
> at
> Epicor.Mfg.Proxy.CostAdjustmentImpl.SetCostAdjustment(CostAdjustmentDataSet
> ds)
> at Epicor.Mfg.UI.Adapters.CostAdjustmentAdapter.SetCostAdjustment()
> at Epicor.Mfg.UI.App.CostAdjustmentEntry.CostAdjustmentTransaction.Update()
>
> Any ideas?
>
> I am using Vantage 8.03.406 on Progress.
>
> Regards,
>
> Michael
>
>
>


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

Where is this functionality? Is this is Vantage 8.03.406?

Regards,

Michael

--- In vantage@yahoogroups.com, Mark Wonsil <mark_wonsil@...> wrote:
>
> Hi Michael,
>
> Any reason you don't just use the Cost Roll-Up utility? You can load only
> purchased parts, base the new costs on Last Cost, run reports to look for
> issues, and if good, post it. You're also not introducing variances for
> higher level parts.
>
> Mark W.
>
> On Wed, Oct 20, 2010 at 7:21 AM, michael.hutcheson@... <
> michael.hutcheson@...> wrote:
>
> >
> >
> > Hello,
> >
> > I've been asked to produce a customized version of the Cost Adjustment
> > screen whereby when a button is clicked it will copy the last cost to the
> > std cost for all purchased parts and create the correct transactions and GL
> > accounts. I have been talking to another guy in another forum that has been
> > a massive help but it is still not quite working. Basically a button is
> > placed on the cost adjustment form, with a click event and the following
> > code:
> >
> > Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As
> > System.EventArgs) Handles btnEpiCustom1.Click
> > '// ** Place Event Handling Code Here **
> > '//Checks on the data entry
> >
> > Dim i as Integer '//Counter for looping through parts selected
> > Dim sMessage as String '//Message for warning
> > Dim Result as DialogResult '//Result of Yes/No question
> >
> > if edvCost.dataview.count = 0 then
> > MessageBox.Show("You have not picked any parts to update!")
> > exit sub
> > end if
> >
> > sMessage = "You are about to update the part costs selected"
> > sMessage = sMessage + vbCrLf
> > sMessage = sMessage + vbCrLf
> > sMessage = sMessage + "Are you sure?"
> >
> > Result = MessageBox.Show(sMessage, "Warning", MessageBoxButtons.YesNo)
> > if Result = DialogResult.No Then
> > exit sub
> > end if
> >
> > '//Loop through the parts
> > for i = 1 to edvCost.dataview.count
> > edvCost.dataView(i-1)("StdMtlUnitCost") =
> > edvCost.dataView(i-1)("LastMtlUnitCost")
> > next i
> > oTrans.Update
> > Exit Sub
> >
> > err:
> > MessageBox.Show(Err.Description)
> > Resume Next
> >
> > End Sub
> >
> > There is falso orm event code to the button is disabled if the last cost is
> > zero:
> >
> > Private Sub edvCost_EpiViewNotification(view As EpiDataView, args As
> > EpiNotifyArgs) Handles edvCost.EpiViewNotification If (args.NotifyType =
> > EpiTransaction.NotifyType.Initialize) Then If (args.Row > -1) Then If
> > edvCost.dataView(0)("LastMtlUnitCost") = 0 then BUTTON.Enabled = False Else
> > BUTTON.Enabled = True End If End If End If End Sub
> >
> > Probem is I keep receiving the below error when the button is clicked:
> >
> > Exception caught in: Epicor.Mfg.BO.CostAdjustment
> >
> > Error Detail
> > ============
> > Message: ttCostAdjustment record not found.
> > Type: Error
> > Program: bo/CostAdjustment.p
> > Method: SetLotCosts
> > Table: ttCostAdjustment
> > Row:
> > Field: RowMod
> >
> > Stack Trace
> > ===========
> > at
> > Epicor.Mfg.Proxy.CostAdjustmentImpl.SetCostAdjustment(CostAdjustmentDataSet
> > ds)
> > at Epicor.Mfg.UI.Adapters.CostAdjustmentAdapter.SetCostAdjustment()
> > at Epicor.Mfg.UI.App.CostAdjustmentEntry.CostAdjustmentTransaction.Update()
> >
> > Any ideas?
> >
> > I am using Vantage 8.03.406 on Progress.
> >
> > Regards,
> >
> > Michael
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>
I believe it's under Product Management | Engineering | General Operations |
Costing Workbench.

Mark W.

On Wed, Oct 20, 2010 at 10:12 AM, michael.hutcheson@... <
michael.hutcheson@...> wrote:

>
>
> Hi Mark,
>
> Where is this functionality? Is this is Vantage 8.03.406?
>
> Regards,
>
> Michael
>
>
> --- In vantage@yahoogroups.com <vantage%40yahoogroups.com>, Mark Wonsil
> <mark_wonsil@...> wrote:
> >
> > Hi Michael,
> >
> > Any reason you don't just use the Cost Roll-Up utility? You can load only
> > purchased parts, base the new costs on Last Cost, run reports to look for
> > issues, and if good, post it. You're also not introducing variances for
> > higher level parts.
> >
> > Mark W.
> >
> > On Wed, Oct 20, 2010 at 7:21 AM, michael.hutcheson@... <
> > michael.hutcheson@...> wrote:
> >
> > >
> > >
> > > Hello,
> > >
> > > I've been asked to produce a customized version of the Cost Adjustment
> > > screen whereby when a button is clicked it will copy the last cost to
> the
> > > std cost for all purchased parts and create the correct transactions
> and GL
> > > accounts. I have been talking to another guy in another forum that has
> been
> > > a massive help but it is still not quite working. Basically a button is
> > > placed on the cost adjustment form, with a click event and the
> following
> > > code:
> > >
> > > Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As
> > > System.EventArgs) Handles btnEpiCustom1.Click
> > > '// ** Place Event Handling Code Here **
> > > '//Checks on the data entry
> > >
> > > Dim i as Integer '//Counter for looping through parts selected
> > > Dim sMessage as String '//Message for warning
> > > Dim Result as DialogResult '//Result of Yes/No question
> > >
> > > if edvCost.dataview.count = 0 then
> > > MessageBox.Show("You have not picked any parts to update!")
> > > exit sub
> > > end if
> > >
> > > sMessage = "You are about to update the part costs selected"
> > > sMessage = sMessage + vbCrLf
> > > sMessage = sMessage + vbCrLf
> > > sMessage = sMessage + "Are you sure?"
> > >
> > > Result = MessageBox.Show(sMessage, "Warning", MessageBoxButtons.YesNo)
> > > if Result = DialogResult.No Then
> > > exit sub
> > > end if
> > >
> > > '//Loop through the parts
> > > for i = 1 to edvCost.dataview.count
> > > edvCost.dataView(i-1)("StdMtlUnitCost") =
> > > edvCost.dataView(i-1)("LastMtlUnitCost")
> > > next i
> > > oTrans.Update
> > > Exit Sub
> > >
> > > err:
> > > MessageBox.Show(Err.Description)
> > > Resume Next
> > >
> > > End Sub
> > >
> > > There is falso orm event code to the button is disabled if the last
> cost is
> > > zero:
> > >
> > > Private Sub edvCost_EpiViewNotification(view As EpiDataView, args As
> > > EpiNotifyArgs) Handles edvCost.EpiViewNotification If (args.NotifyType
> =
> > > EpiTransaction.NotifyType.Initialize) Then If (args.Row > -1) Then If
> > > edvCost.dataView(0)("LastMtlUnitCost") = 0 then BUTTON.Enabled = False
> Else
> > > BUTTON.Enabled = True End If End If End If End Sub
> > >
> > > Probem is I keep receiving the below error when the button is clicked:
> > >
> > > Exception caught in: Epicor.Mfg.BO.CostAdjustment
> > >
> > > Error Detail
> > > ============
> > > Message: ttCostAdjustment record not found.
> > > Type: Error
> > > Program: bo/CostAdjustment.p
> > > Method: SetLotCosts
> > > Table: ttCostAdjustment
> > > Row:
> > > Field: RowMod
> > >
> > > Stack Trace
> > > ===========
> > > at
> > >
> Epicor.Mfg.Proxy.CostAdjustmentImpl.SetCostAdjustment(CostAdjustmentDataSet
> > > ds)
> > > at Epicor.Mfg.UI.Adapters.CostAdjustmentAdapter.SetCostAdjustment()
> > > at
> Epicor.Mfg.UI.App.CostAdjustmentEntry.CostAdjustmentTransaction.Update()
> > >
> > > Any ideas?
> > >
> > > I am using Vantage 8.03.406 on Progress.
> > >
> > > Regards,
> > >
> > > Michael
> > >
> > >
> > >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>


[Non-text portions of this message have been removed]
mmmmmmm this just shows groups though - it doesn't appear you can just bring in Purchased parts and it doesn't allow you to copy the last to the standard.....unless I'm missing something?

--- In vantage@yahoogroups.com, Mark Wonsil <mark_wonsil@...> wrote:
>
> I believe it's under Product Management | Engineering | General Operations |
> Costing Workbench.
>
> Mark W.
>
> On Wed, Oct 20, 2010 at 10:12 AM, michael.hutcheson@... <
> michael.hutcheson@...> wrote:
>
> >
> >
> > Hi Mark,
> >
> > Where is this functionality? Is this is Vantage 8.03.406?
> >
> > Regards,
> >
> > Michael
> >
> >
> > --- In vantage@yahoogroups.com <vantage%40yahoogroups.com>, Mark Wonsil
> > <mark_wonsil@> wrote:
> > >
> > > Hi Michael,
> > >
> > > Any reason you don't just use the Cost Roll-Up utility? You can load only
> > > purchased parts, base the new costs on Last Cost, run reports to look for
> > > issues, and if good, post it. You're also not introducing variances for
> > > higher level parts.
> > >
> > > Mark W.
> > >
> > > On Wed, Oct 20, 2010 at 7:21 AM, michael.hutcheson@ <
> > > michael.hutcheson@> wrote:
> > >
> > > >
> > > >
> > > > Hello,
> > > >
> > > > I've been asked to produce a customized version of the Cost Adjustment
> > > > screen whereby when a button is clicked it will copy the last cost to
> > the
> > > > std cost for all purchased parts and create the correct transactions
> > and GL
> > > > accounts. I have been talking to another guy in another forum that has
> > been
> > > > a massive help but it is still not quite working. Basically a button is
> > > > placed on the cost adjustment form, with a click event and the
> > following
> > > > code:
> > > >
> > > > Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As
> > > > System.EventArgs) Handles btnEpiCustom1.Click
> > > > '// ** Place Event Handling Code Here **
> > > > '//Checks on the data entry
> > > >
> > > > Dim i as Integer '//Counter for looping through parts selected
> > > > Dim sMessage as String '//Message for warning
> > > > Dim Result as DialogResult '//Result of Yes/No question
> > > >
> > > > if edvCost.dataview.count = 0 then
> > > > MessageBox.Show("You have not picked any parts to update!")
> > > > exit sub
> > > > end if
> > > >
> > > > sMessage = "You are about to update the part costs selected"
> > > > sMessage = sMessage + vbCrLf
> > > > sMessage = sMessage + vbCrLf
> > > > sMessage = sMessage + "Are you sure?"
> > > >
> > > > Result = MessageBox.Show(sMessage, "Warning", MessageBoxButtons.YesNo)
> > > > if Result = DialogResult.No Then
> > > > exit sub
> > > > end if
> > > >
> > > > '//Loop through the parts
> > > > for i = 1 to edvCost.dataview.count
> > > > edvCost.dataView(i-1)("StdMtlUnitCost") =
> > > > edvCost.dataView(i-1)("LastMtlUnitCost")
> > > > next i
> > > > oTrans.Update
> > > > Exit Sub
> > > >
> > > > err:
> > > > MessageBox.Show(Err.Description)
> > > > Resume Next
> > > >
> > > > End Sub
> > > >
> > > > There is falso orm event code to the button is disabled if the last
> > cost is
> > > > zero:
> > > >
> > > > Private Sub edvCost_EpiViewNotification(view As EpiDataView, args As
> > > > EpiNotifyArgs) Handles edvCost.EpiViewNotification If (args.NotifyType
> > =
> > > > EpiTransaction.NotifyType.Initialize) Then If (args.Row > -1) Then If
> > > > edvCost.dataView(0)("LastMtlUnitCost") = 0 then BUTTON.Enabled = False
> > Else
> > > > BUTTON.Enabled = True End If End If End If End Sub
> > > >
> > > > Probem is I keep receiving the below error when the button is clicked:
> > > >
> > > > Exception caught in: Epicor.Mfg.BO.CostAdjustment
> > > >
> > > > Error Detail
> > > > ============
> > > > Message: ttCostAdjustment record not found.
> > > > Type: Error
> > > > Program: bo/CostAdjustment.p
> > > > Method: SetLotCosts
> > > > Table: ttCostAdjustment
> > > > Row:
> > > > Field: RowMod
> > > >
> > > > Stack Trace
> > > > ===========
> > > > at
> > > >
> > Epicor.Mfg.Proxy.CostAdjustmentImpl.SetCostAdjustment(CostAdjustmentDataSet
> > > > ds)
> > > > at Epicor.Mfg.UI.Adapters.CostAdjustmentAdapter.SetCostAdjustment()
> > > > at
> > Epicor.Mfg.UI.App.CostAdjustmentEntry.CostAdjustmentTransaction.Update()
> > > >
> > > > Any ideas?
> > > >
> > > > I am using Vantage 8.03.406 on Progress.
> > > >
> > > > Regards,
> > > >
> > > > Michael
> > > >
> > > >
> > > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>
> mmmmmmm this just shows groups though - it doesn't appear you can just bring in Purchased parts and
> it doesn't allow you to copy the last to the standard.....unless I'm missing something?

Yes, you are. ;-)

I'm not in the office today but the work is all on the Actions Menu:

- Open a new group.
- On Actions, pick Load Parts; choose only Purchase Parts and select
Last Cost radio Button; included unlinked parts
- Do a cost roll
- Print the report that shows variances
- If good, post

Mark W.
Looks like I might me : -D

I will have a look and get back to you....

Thanks,

Michael

--- In vantage@yahoogroups.com, Mark Wonsil <mark_wonsil@...> wrote:
>
> > mmmmmmm this just shows groups though - it doesn't appear you can just bring in Purchased parts and
> > it doesn't allow you to copy the last to the standard.....unless I'm missing something?
>
> Yes, you are. ;-)
>
> I'm not in the office today but the work is all on the Actions Menu:
>
> - Open a new group.
> - On Actions, pick Load Parts; choose only Purchase Parts and select
> Last Cost radio Button; included unlinked parts
> - Do a cost roll
> - Print the report that shows variances
> - If good, post
>
> Mark W.
>
I am not always comfortable with costing workbench. Occasionally (ok
quite often) purchasing neglects to include purchase prices on PO's
prior to receipt for (in)valid reasons. GIGO.



For my processes, I typically run a Crystal Report showing last cost &
standard cost, calculate a difference, export to Excel, look at the
heavy hitters (difference-wise), format Excel to mirror grid in Cost
Entry, adjust appropriately, and perform a grid entry. Always test one
entry prior to shot-gunning the rest through to make sure the fields are
lining up like you would expect.



I plan on evolving this process to the costing workbench where I will be
generating a own Crystal report for export against the cost workbench
data (we do this now for mfg rolling).



Bruce B.



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Mark Wonsil
Sent: Wednesday, October 20, 2010 10:09 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Re: Copying Last Cost to Std Cost





> mmmmmmm this just shows groups though - it doesn't appear you can just
bring in Purchased parts and
> it doesn't allow you to copy the last to the standard.....unless I'm
missing something?

Yes, you are. ;-)

I'm not in the office today but the work is all on the Actions Menu:

- Open a new group.
- On Actions, pick Load Parts; choose only Purchase Parts and select
Last Cost radio Button; included unlinked parts
- Do a cost roll
- Print the report that shows variances
- If good, post

Mark W.





[Non-text portions of this message have been removed]
> I am not always comfortable with costing workbench. Occasionally (ok
> quite often) purchasing neglects to include purchase prices on PO's
> prior to receipt for (in)valid reasons. GIGO.

We have a BAQ that links CostPart with PartCost and we do the same as
Bruce - export to Excel and compare the Std. with what the new Std
would be.

Mark W.
The rollup report is not always very helpful.



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Mark Wonsil
Sent: Thursday, October 21, 2010 3:28 PM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Re: Copying Last Cost to Std Cost





> I am not always comfortable with costing workbench. Occasionally (ok
> quite often) purchasing neglects to include purchase prices on PO's
> prior to receipt for (in)valid reasons. GIGO.

We have a BAQ that links CostPart with PartCost and we do the same as
Bruce - export to Excel and compare the Std. with what the new Std
would be.

Mark W.





[Non-text portions of this message have been removed]
Bruce rightfully points out:

>
> The rollup report is not always very helpful.
>

True dat! You have to scan it manually and that's not very accurate or
efficient! Too easy to miss stuff. Excel is a MUCH better tool for the
job IMHO.

Mark W.