Inventory Valuation based on a SIM cost set

[Chris Kelleher]

Mfg/pro 8.5F
Progress 8.3b

We have a simulated cost set that we would like to run against current
inventory as an experiment. Is there an easy way to do this w/out making
the Sim Cost set active? I've been told there isn't.

Steven Lesniak

Shepherd Caster Corp.
SLesniak@shepherdcasters.com

 

[Chris Kelleher]

There is not. I just had the same issue at one of our sites. To determine
the value you can join in_mstr to sct_det by in_part = sct_part and in_site
= sct_site and sct_sim = your simulated cost set.

As a non-progress person, I wrote extracts (in progress) from in_mstr and
sct_det (one for sim costset, one for standard) and imported them into
Access where I could sum the data, slice and dice at will and analyze the
variances a little easier.

If anyone has written a cusotmized version of the Inventory Valuation Report
that takes the cost set as a run time criteria I would love to have a copy
(8.6c or e).


Brendan Kehoe
Crane Co. SWAT Team
Phone: (203) 363-7261
Mobile: (914) 414-6287
Fax: (203) 363-7246

 

[Chris Kelleher]

Hello,

I'm happy to tell you that I did this in a previous assignment. I did it
for 8.5F but it will work for 8.6.

Add this to your code (ppptrp03.p):

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>
/* define variable */
define variable csset like cs_set.

/* add this at the bottom of the frame definition */
csset colon 15 " BLANK = Current" skip(1)
with frame a side-labels width 80 attr-space THREE-D.

/* add this at the end of the UPDATE statement */
csset
WITH frame a.

/* add this at the end of the "mfquoter.i" list */
{mfquoter.i csset}

/* add this block of code... */
if csset <> "" then do:
find sct_det where sct_sim = csset
and sct_part = in_part
and sct_site = in_site no-lock no-error.
assign curcst = if avail sct_det then sct_cst_tot else 0.
end.

/* after this... around line 215 */

if available pl_mstr and not first-prod
then view frame phead1.
first-prod = no.

/* ... end before this */

ext_std = round(total_qty_oh * glxcst,2).
ext_cur = round(total_qty_oh * curcst,2).
cost_var = 0.
[/code]

If you do not have a browse for the "csset" variable try to add this record
in 36.7.21 (Window Help Maintenance):
<BLOCKQUOTE><font size="1" face="Arial, Verdana">quote:</font><HR>

+--------------------------------------------------------------------+
| Window Help Maintenance (1-Procedure Help) 12/14/99|
+--------------------------------------------------------------------+
+--------------------------------------------------------------------+
| Field: csset |
| Calling Procedure: |
+--------------------------------------------------------------------+
+ Description -------------------------------------------------------+
| Description: Cost Set |
| Procedure To Execute: cslu001.p |
| Window Starts At Row: 7 |
| Lines In Window: 6 |
+--------------------------------------------------------------------+
<HR></BLOCKQUOTE>

It the browse still does not work, try to find a variable that "looks" like
"csset" and attach the browse to it.


Hope this will help!!

Regards,


Rejean Drouin, CDID USA
418-226-6790 (cell)

 

[Chris Kelleher]

We don't have a customized version of the Inventory Valuation Report
but I think it would be easy for a Progress programmer to do. It
appears that all s/he has to do is clone a version of the include file
gpsct03.i which selects the cost sets. It's not complicated.

With a only a little more work, the cost sets could be added to the
selection criteria and users could select the cost sets for themselves
(we've done that for many reports).

See your friendly Progress programmer (everybody should have one).

Good luck.

Jack Kaufman