Part BPM to Control Primary Bin

find ttPartWhse where ttPartWhse.WareHouseCode = '01' and ttPartWhse.rowmod=
'A' or no-lock no-error.
if available ttPartWhse and then do:
assign ttPartWhse.PrimBinNum = 'L1'.
end.



I also had to set up a pre-pros that watched for people changing the bin
from L1 and when this happened it would change it back. That is optional if
you want people to be able to change the bin later.



Changing the 4gl so that it is like:



find ttPartWhse where ttPartWhse.WareHouseCode = '01' and
(ttPartWhse.rowmod= 'A' or ttPartWhse.rowmod= 'U') or no-lock no-error.
if available ttPartWhse and then do:
assign ttPartWhse.PrimBinNum = 'L1'.
end.



May also work for changing it back when people attempt to change it.



~Charlie

_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Matt Caldwell
Sent: Tuesday, May 19, 2009 9:26 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Part BPM to Control Primary Bin








Charlie,

Could you show us your final code? We are very interested in using
this in our system! J TY

From: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
[mailto:vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com] On
Behalf
Of Charlie Wilson
Sent: Tuesday, May 19, 2009 8:22 AM
To: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
Subject: RE: [Vantage] Part BPM to Control Primary Bin

Thanks, I added the rowmod check in as well.

~Charlie

_____

From: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
<mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
<mailto:vantage%40yahoogroups.com> ] On
Behalf Of
Stephen Edginton
Sent: Tuesday, May 19, 2009 8:34 AM
To: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
<mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Part BPM to Control Primary Bin

This is the bit you are missing.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock no-error.
if available ttPartWhse then do:
assign ttPartWhse.PrimBinNum = 'L1'.
end.

Note you should also really be looking at the specific RowMod of the
record you are wishing to default also.

Regards,

Stephen

From: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
[mailto:vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com] On
Behalf
Of Charlie Wilson
Sent: 19 May 2009 13:23
To: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
Subject: [Vantage] Part BPM to Control Primary Bin

All,

I'm working on a BPM that sets the primary bin in the warehouse tab
under
plant to a specific value if the warehouse is a specific code. I seem to
have my code working when I add parts. But if I change any field on the
part
I get an unexpected error check error log statement. It also does this
when
I try to delete the part.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock.

if available ttPartWhse then do:

assign ttPartWhse.PrimBinNum = 'L1'.

end.

I basically have a Post processing directive set on part.update that
executes the above 4gl code.

The error log says this: [09/05/19@08:08:04.472-0400] P-001304 T-002232
1 AS
-- (Procedure: 'UpdatePost1_A1 bo/Part.p' Line:5199) ** ttPartWhse
record
not on file. (138)

Which makes sense because the partwhse dataset wouldn't be in the schema
if
I changed a field back on the parthed or I was deleting the part. I need
to
figure out how to make this code only run when a part has been added or
when
primbinfield has been changed from L1 when the warehousecode = '01' I've
tried any number of combinations of pre and base processing bpms that
would
enable the post but none of them seem to work. \

Any Ideas?

~Charlie

[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]

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





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



I'm working on a BPM that sets the primary bin in the warehouse tab under
plant to a specific value if the warehouse is a specific code. I seem to
have my code working when I add parts. But if I change any field on the part
I get an unexpected error check error log statement. It also does this when
I try to delete the part.



find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock.

if available ttPartWhse then do:

assign ttPartWhse.PrimBinNum = 'L1'.

end.



I basically have a Post processing directive set on part.update that
executes the above 4gl code.



The error log says this: [09/05/19@08:08:04.472-0400] P-001304 T-002232 1 AS
-- (Procedure: 'UpdatePost1_A1 bo/Part.p' Line:5199) ** ttPartWhse record
not on file. (138)



Which makes sense because the partwhse dataset wouldn't be in the schema if
I changed a field back on the parthed or I was deleting the part. I need to
figure out how to make this code only run when a part has been added or when
primbinfield has been changed from L1 when the warehousecode = '01' I've
tried any number of combinations of pre and base processing bpms that would
enable the post but none of them seem to work. \



Any Ideas?



~Charlie





[Non-text portions of this message have been removed]
This is the bit you are missing.



find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock no-error.
if available ttPartWhse then do:
assign ttPartWhse.PrimBinNum = 'L1'.
end.



Note you should also really be looking at the specific RowMod of the
record you are wishing to default also.



Regards,

Stephen



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Charlie Wilson
Sent: 19 May 2009 13:23
To: vantage@yahoogroups.com
Subject: [Vantage] Part BPM to Control Primary Bin








All,

I'm working on a BPM that sets the primary bin in the warehouse tab
under
plant to a specific value if the warehouse is a specific code. I seem to
have my code working when I add parts. But if I change any field on the
part
I get an unexpected error check error log statement. It also does this
when
I try to delete the part.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock.

if available ttPartWhse then do:

assign ttPartWhse.PrimBinNum = 'L1'.

end.

I basically have a Post processing directive set on part.update that
executes the above 4gl code.

The error log says this: [09/05/19@08:08:04.472-0400] P-001304 T-002232
1 AS
-- (Procedure: 'UpdatePost1_A1 bo/Part.p' Line:5199) ** ttPartWhse
record
not on file. (138)

Which makes sense because the partwhse dataset wouldn't be in the schema
if
I changed a field back on the parthed or I was deleting the part. I need
to
figure out how to make this code only run when a part has been added or
when
primbinfield has been changed from L1 when the warehousecode = '01' I've
tried any number of combinations of pre and base processing bpms that
would
enable the post but none of them seem to work. \

Any Ideas?

~Charlie

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





[Non-text portions of this message have been removed]
Thanks, I added the rowmod check in as well.



~Charlie

_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Stephen Edginton
Sent: Tuesday, May 19, 2009 8:34 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Part BPM to Control Primary Bin








This is the bit you are missing.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock no-error.
if available ttPartWhse then do:
assign ttPartWhse.PrimBinNum = 'L1'.
end.

Note you should also really be looking at the specific RowMod of the
record you are wishing to default also.

Regards,

Stephen

From: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
[mailto:vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com] On
Behalf
Of Charlie Wilson
Sent: 19 May 2009 13:23
To: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
Subject: [Vantage] Part BPM to Control Primary Bin

All,

I'm working on a BPM that sets the primary bin in the warehouse tab
under
plant to a specific value if the warehouse is a specific code. I seem to
have my code working when I add parts. But if I change any field on the
part
I get an unexpected error check error log statement. It also does this
when
I try to delete the part.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock.

if available ttPartWhse then do:

assign ttPartWhse.PrimBinNum = 'L1'.

end.

I basically have a Post processing directive set on part.update that
executes the above 4gl code.

The error log says this: [09/05/19@08:08:04.472-0400] P-001304 T-002232
1 AS
-- (Procedure: 'UpdatePost1_A1 bo/Part.p' Line:5199) ** ttPartWhse
record
not on file. (138)

Which makes sense because the partwhse dataset wouldn't be in the schema
if
I changed a field back on the parthed or I was deleting the part. I need
to
figure out how to make this code only run when a part has been added or
when
primbinfield has been changed from L1 when the warehousecode = '01' I've
tried any number of combinations of pre and base processing bpms that
would
enable the post but none of them seem to work. \

Any Ideas?

~Charlie

[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]
Charlie,

Could you show us your final code? We are very interested in using
this in our system! J TY



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Charlie Wilson
Sent: Tuesday, May 19, 2009 8:22 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Part BPM to Control Primary Bin








Thanks, I added the rowmod check in as well.

~Charlie

_____

From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf Of
Stephen Edginton
Sent: Tuesday, May 19, 2009 8:34 AM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Part BPM to Control Primary Bin

This is the bit you are missing.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock no-error.
if available ttPartWhse then do:
assign ttPartWhse.PrimBinNum = 'L1'.
end.

Note you should also really be looking at the specific RowMod of the
record you are wishing to default also.

Regards,

Stephen

From: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
[mailto:vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com] On
Behalf
Of Charlie Wilson
Sent: 19 May 2009 13:23
To: vantage@yahoogroups <mailto:vantage%40yahoogroups.com> .com
Subject: [Vantage] Part BPM to Control Primary Bin

All,

I'm working on a BPM that sets the primary bin in the warehouse tab
under
plant to a specific value if the warehouse is a specific code. I seem to
have my code working when I add parts. But if I change any field on the
part
I get an unexpected error check error log statement. It also does this
when
I try to delete the part.

find ttPartWhse where ttPartWhse.WareHouseCode = '01' no-lock.

if available ttPartWhse then do:

assign ttPartWhse.PrimBinNum = 'L1'.

end.

I basically have a Post processing directive set on part.update that
executes the above 4gl code.

The error log says this: [09/05/19@08:08:04.472-0400] P-001304 T-002232
1 AS
-- (Procedure: 'UpdatePost1_A1 bo/Part.p' Line:5199) ** ttPartWhse
record
not on file. (138)

Which makes sense because the partwhse dataset wouldn't be in the schema
if
I changed a field back on the parthed or I was deleting the part. I need
to
figure out how to make this code only run when a part has been added or
when
primbinfield has been changed from L1 when the warehousecode = '01' I've
tried any number of combinations of pre and base processing bpms that
would
enable the post but none of them seem to work. \

Any Ideas?

~Charlie

[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]





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