Carry custom field value from OrdHead to ShipHead

I had to do something similar to pull a field from OrderHed to ShipHead. I use a BPM that fires everytime the packing slip is saved. Let's assume the custom field you use is ShortChar01. The BPM would execute the following 4GL code:

for each ttshiphead where

ttshiphead.RowMod = 'U' and
ttshiphead.ShortChar01 = "":


find first OrderHed where

OrderHed.company = ttshiphead.company and
OrderHed.OrderNum = ttshiphead.OrderNum.

if available OrderHed then do:
assign ttshiphead.ShortChar01 = OrderHed.ShortChar01.
end.
end.

-Adam

--- In vantage@yahoogroups.com, "Joel Kolling" <jkolling@...> wrote:
>
> I created a custom field in the Order Entry screen but need this value
> to carry to the OrdHead for use on a shipping label but I'm unsure on
> how to do this. Can anyone give some tips?
>
>
>
>
>
> Joel Kolling
> IT Manager
> ITC Manufacturing, Inc.
> Phone: 602-648-0021
> Cell: 480-861-2009
> Fax: 602-415-1444
>
>
>
> [Non-text portions of this message have been removed]
>
I created a custom field in the Order Entry screen but need this value
to carry to the OrdHead for use on a shipping label but I'm unsure on
how to do this. Can anyone give some tips?





Joel Kolling
IT Manager
ITC Manufacturing, Inc.
Phone: 602-648-0021
Cell: 480-861-2009
Fax: 602-415-1444



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