Method Directive on UD103

Yahoo Archive
1
I wanted to populate the some fields from the part lot table and the customer if the job is made to order. I have managed to do this in the post processing method for issue material. Just doing some testing on the method


Sent from Yahoo! Mail on Android



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

I'm a little bit stuck with something. I am trying to create a method directive
which runs before GetaNewUD103. What I want to do is to populate some of the
ShortChar fields before the record is saved. When the line
find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
is run ttUD103 does not become available. (if avail ttUD103 then do:)
If I change the statement to
find first ttUD103 no-lock no-error.
I still do not get a ttUD103 table to add values to.
Can anyone point me in the right direction. I have included the complete code
below

Kind Regards
Mark



{Bpm/Bpm.i &OBJECT_NAME=UD103}
{actions/ud/csgBPMException.i}
{actions/ud/csgBPMDataStore.i}

procedure GetaNewUD103Before:
define input-output parameter table for ttUD103.
define input-output parameter table for ttUD103Attch.
define input-output parameter table for ttUD103A.
{&TRY_PRIVATE}


find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.

if avail ttUD103 then do:

find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock no-error.

if avail Jobhead then do:
ttUD103.ShortChar02 = Jobhead.jobnum.
find last parttran where parttran.JobNum = ttUD103.Key1 and parttran.lotnum > ''
no-lock no-error.
if avail parttran then do:
ttUD103.ShortChar01 = parttran.LotNum.
find first partlot where partlot.lotnum = parttran.LotNum no-lock no-error.
if avail partlot then do:
ttUD103.shortchar03 = partlot.shortchar01.
end.
end.
if ttUD103.shortchar04 > '' then do:
find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock no-error.
if avail jobprod then do:
if jobprod.OrderNum > 0 then do:
find first orderhed where orderhed.ordernum = jobprod.ordernum.
if avail orderhed then do:
find first customer where customer.CustNum = orderhed.CustNum.
if avail customer then do:
ttUD103.shortchar04 = customer.CustID.
end.
end.
end.
else do:
throwexception('3','Please manually type in Customer ID. Job is being made to
stock').
end.
end.
end.
end.
else do:
throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
end.
end.



{&CATCH_PRIVATE}
end procedure.

[Non-text portions of this message have been removed]
3
You can't run pre processing on GetNew because yo don't yet have the data.

*Jose C Gomez*
*Software Engineer*
*
*
*checkout my new blog <http://www.usdoingstuff.com> *
*
*T: 904.469.1524 mobile
E: jose@...
http://www.josecgomez.com
<http://www.linkedin.com/in/josecgomez> <http://www.facebook.com/josegomez>
<http://www.google.com/profiles/jose.gomez> <http://www.twitter.com/joc85>
<http://www.josecgomez.com/professional-resume/>
<http://www.josecgomez.com/feed/>
<http://www.usdoingstuff.com>

*Quis custodiet ipsos custodes?*



On Sat, Jul 16, 2011 at 10:16 AM, Mark Kamsika <m.kamsika@...>wrote:

> **
>
>
> Hi all,
>
> I'm a little bit stuck with something. I am trying to create a method
> directive
> which runs before GetaNewUD103. What I want to do is to populate some of
> the
> ShortChar fields before the record is saved. When the line
> find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> is run ttUD103 does not become available. (if avail ttUD103 then do:)
> If I change the statement to
> find first ttUD103 no-lock no-error.
> I still do not get a ttUD103 table to add values to.
> Can anyone point me in the right direction. I have included the complete
> code
> below
>
> Kind Regards
> Mark
>
> {Bpm/Bpm.i &OBJECT_NAME=UD103}
> {actions/ud/csgBPMException.i}
> {actions/ud/csgBPMDataStore.i}
>
> procedure GetaNewUD103Before:
> define input-output parameter table for ttUD103.
> define input-output parameter table for ttUD103Attch.
> define input-output parameter table for ttUD103A.
> {&TRY_PRIVATE}
>
> find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
>
> if avail ttUD103 then do:
>
> find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock no-error.
>
> if avail Jobhead then do:
> ttUD103.ShortChar02 = Jobhead.jobnum.
> find last parttran where parttran.JobNum = ttUD103.Key1 and parttran.lotnum
> > ''
> no-lock no-error.
> if avail parttran then do:
> ttUD103.ShortChar01 = parttran.LotNum.
> find first partlot where partlot.lotnum = parttran.LotNum no-lock no-error.
> if avail partlot then do:
> ttUD103.shortchar03 = partlot.shortchar01.
> end.
> end.
> if ttUD103.shortchar04 > '' then do:
> find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock no-error.
> if avail jobprod then do:
> if jobprod.OrderNum > 0 then do:
> find first orderhed where orderhed.ordernum = jobprod.ordernum.
> if avail orderhed then do:
> find first customer where customer.CustNum = orderhed.CustNum.
> if avail customer then do:
> ttUD103.shortchar04 = customer.CustID.
> end.
> end.
> end.
> else do:
> throwexception('3','Please manually type in Customer ID. Job is being made
> to
> stock').
> end.
> end.
> end.
> end.
> else do:
> throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
> end.
> end.
>
> {&CATCH_PRIVATE}
> end procedure.
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]
4
there is no ttUD103 in pre-process
The method is GetANewUD103 - it doesn't exist yet
it will be there Post process and you should be able to set your fields before it makes it to the UI

--- In vantage@yahoogroups.com, Mark Kamsika <m.kamsika@...> wrote:
>
> Hi all,
>
> I'm a little bit stuck with something. I am trying to create a method directive
> which runs before GetaNewUD103. What I want to do is to populate some of the
> ShortChar fields before the record is saved. When the line
> find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> is run ttUD103 does not become available. (if avail ttUD103 then do:)
> If I change the statement to
> find first ttUD103 no-lock no-error.
> I still do not get a ttUD103 table to add values to.
> Can anyone point me in the right direction. I have included the complete code
> below
>
> Kind Regards
> Mark
>
>
>
> {Bpm/Bpm.i &OBJECT_NAME=UD103}
> {actions/ud/csgBPMException.i}
> {actions/ud/csgBPMDataStore.i}
>
> procedure GetaNewUD103Before:
> define input-output parameter table for ttUD103.
> define input-output parameter table for ttUD103Attch.
> define input-output parameter table for ttUD103A.
> {&TRY_PRIVATE}
>
>
> find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
>
> if avail ttUD103 then do:
>
> find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock no-error.
>
> if avail Jobhead then do:
> ttUD103.ShortChar02 = Jobhead.jobnum.
> find last parttran where parttran.JobNum = ttUD103.Key1 and parttran.lotnum > ''
> no-lock no-error.
> if avail parttran then do:
> ttUD103.ShortChar01 = parttran.LotNum.
> find first partlot where partlot.lotnum = parttran.LotNum no-lock no-error.
> if avail partlot then do:
> ttUD103.shortchar03 = partlot.shortchar01.
> end.
> end.
> if ttUD103.shortchar04 > '' then do:
> find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock no-error.
> if avail jobprod then do:
> if jobprod.OrderNum > 0 then do:
> find first orderhed where orderhed.ordernum = jobprod.ordernum.
> if avail orderhed then do:
> find first customer where customer.CustNum = orderhed.CustNum.
> if avail customer then do:
> ttUD103.shortchar04 = customer.CustID.
> end.
> end.
> end.
> else do:
> throwexception('3','Please manually type in Customer ID. Job is being made to
> stock').
> end.
> end.
> end.
> end.
> else do:
> throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
> end.
> end.
>
>
>
> {&CATCH_PRIVATE}
> end procedure.
>
> [Non-text portions of this message have been removed]
>
5
The data will be there in post processing, but that will usually mess with
the UI. Post Processing directives will often generate the 'Record has been
modified by another user' error. So test them before you devote to much dev
time.

On Sat, Jul 16, 2011 at 10:37 AM, bw2868bond <bwalker@...>wrote:

> **
>
>
> there is no ttUD103 in pre-process
> The method is GetANewUD103 - it doesn't exist yet
> it will be there Post process and you should be able to set your fields
> before it makes it to the UI
>
>
> --- In vantage@yahoogroups.com, Mark Kamsika <m.kamsika@...> wrote:
> >
> > Hi all,
> >
> > I'm a little bit stuck with something. I am trying to create a method
> directive
> > which runs before GetaNewUD103. What I want to do is to populate some of
> the
> > ShortChar fields before the record is saved. When the line
> > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> > is run ttUD103 does not become available. (if avail ttUD103 then do:)
> > If I change the statement to
> > find first ttUD103 no-lock no-error.
> > I still do not get a ttUD103 table to add values to.
> > Can anyone point me in the right direction. I have included the complete
> code
> > below
> >
> > Kind Regards
> > Mark
> >
> >
> >
> > {Bpm/Bpm.i &OBJECT_NAME=UD103}
> > {actions/ud/csgBPMException.i}
> > {actions/ud/csgBPMDataStore.i}
> >
> > procedure GetaNewUD103Before:
> > define input-output parameter table for ttUD103.
> > define input-output parameter table for ttUD103Attch.
> > define input-output parameter table for ttUD103A.
> > {&TRY_PRIVATE}
> >
> >
> > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> >
> > if avail ttUD103 then do:
> >
> > find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock no-error.
> >
> > if avail Jobhead then do:
> > ttUD103.ShortChar02 = Jobhead.jobnum.
> > find last parttran where parttran.JobNum = ttUD103.Key1 and
> parttran.lotnum > ''
> > no-lock no-error.
> > if avail parttran then do:
> > ttUD103.ShortChar01 = parttran.LotNum.
> > find first partlot where partlot.lotnum = parttran.LotNum no-lock
> no-error.
> > if avail partlot then do:
> > ttUD103.shortchar03 = partlot.shortchar01.
> > end.
> > end.
> > if ttUD103.shortchar04 > '' then do:
> > find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock no-error.
> > if avail jobprod then do:
> > if jobprod.OrderNum > 0 then do:
> > find first orderhed where orderhed.ordernum = jobprod.ordernum.
> > if avail orderhed then do:
> > find first customer where customer.CustNum = orderhed.CustNum.
> > if avail customer then do:
> > ttUD103.shortchar04 = customer.CustID.
> > end.
> > end.
> > end.
> > else do:
> > throwexception('3','Please manually type in Customer ID. Job is being
> made to
> > stock').
> > end.
> > end.
> > end.
> > end.
> > else do:
> > throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
> > end.
> > end.
> >
> >
> >
> > {&CATCH_PRIVATE}
> > end procedure.
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>



--
*Waffqle Driggers*
*High End Dev, System Design, Profit Drinking
*
*:: 904.962.2887*
*:: waffqle@...*
*:: NO FAXES*

*

*


[Non-text portions of this message have been removed]
6
Actually, the post processing directives usually only mess with the UI if
you're changing the actual table (UD103), not the temporary table (ttUD103).
It looks like what he's trying to do here, he can accomplish by setting the
ttUD103, so he shouldn't have any issues with the "row has been modified".

Kevin Simon

-----Original Message-----
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Waffqle
Sent: Saturday, July 16, 2011 11:18 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Re: Method Directive on UD103

The data will be there in post processing, but that will usually mess with
the UI. Post Processing directives will often generate the 'Record has been
modified by another user' error. So test them before you devote to much dev
time.

On Sat, Jul 16, 2011 at 10:37 AM, bw2868bond
<bwalker@...>wrote:

> **
>
>
> there is no ttUD103 in pre-process
> The method is GetANewUD103 - it doesn't exist yet
> it will be there Post process and you should be able to set your fields
> before it makes it to the UI
>
>
> --- In vantage@yahoogroups.com, Mark Kamsika <m.kamsika@...> wrote:
> >
> > Hi all,
> >
> > I'm a little bit stuck with something. I am trying to create a method
> directive
> > which runs before GetaNewUD103. What I want to do is to populate some of
> the
> > ShortChar fields before the record is saved. When the line
> > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> > is run ttUD103 does not become available. (if avail ttUD103 then do:)
> > If I change the statement to
> > find first ttUD103 no-lock no-error.
> > I still do not get a ttUD103 table to add values to.
> > Can anyone point me in the right direction. I have included the complete
> code
> > below
> >
> > Kind Regards
> > Mark
> >
> >
> >
> > {Bpm/Bpm.i &OBJECT_NAME=UD103}
> > {actions/ud/csgBPMException.i}
> > {actions/ud/csgBPMDataStore.i}
> >
> > procedure GetaNewUD103Before:
> > define input-output parameter table for ttUD103.
> > define input-output parameter table for ttUD103Attch.
> > define input-output parameter table for ttUD103A.
> > {&TRY_PRIVATE}
> >
> >
> > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> >
> > if avail ttUD103 then do:
> >
> > find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock no-error.
> >
> > if avail Jobhead then do:
> > ttUD103.ShortChar02 = Jobhead.jobnum.
> > find last parttran where parttran.JobNum = ttUD103.Key1 and
> parttran.lotnum > ''
> > no-lock no-error.
> > if avail parttran then do:
> > ttUD103.ShortChar01 = parttran.LotNum.
> > find first partlot where partlot.lotnum = parttran.LotNum no-lock
> no-error.
> > if avail partlot then do:
> > ttUD103.shortchar03 = partlot.shortchar01.
> > end.
> > end.
> > if ttUD103.shortchar04 > '' then do:
> > find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock no-error.
> > if avail jobprod then do:
> > if jobprod.OrderNum > 0 then do:
> > find first orderhed where orderhed.ordernum = jobprod.ordernum.
> > if avail orderhed then do:
> > find first customer where customer.CustNum = orderhed.CustNum.
> > if avail customer then do:
> > ttUD103.shortchar04 = customer.CustID.
> > end.
> > end.
> > end.
> > else do:
> > throwexception('3','Please manually type in Customer ID. Job is being
> made to
> > stock').
> > end.
> > end.
> > end.
> > end.
> > else do:
> > throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
> > end.
> > end.
> >
> >
> >
> > {&CATCH_PRIVATE}
> > end procedure.
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>



--
*Waffqle Driggers*
*High End Dev, System Design, Profit Drinking
*
*:: 904.962.2887*
*:: waffqle@...*
*:: NO FAXES*

*

*


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



------------------------------------

Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links
7
Thank you for your replies,

As I understand the GetANewUd103 a ttUD103 record is created but the contents of
this are not saved to the data until the record is saved. How else can I pre
populate the UD103 fields in the UI prior to saving. I know it is not possible
to update the fields from a BAQ.

Kind Regards
Mark



________________________________
From: Waffqle <waffqle@...>
To: vantage@yahoogroups.com
Sent: Sat, 16 July, 2011 16:18:11
Subject: Re: [Vantage] Re: Method Directive on UD103

The data will be there in post processing, but that will usually mess with
the UI. Post Processing directives will often generate the 'Record has been
modified by another user' error. So test them before you devote to much dev
time.

On Sat, Jul 16, 2011 at 10:37 AM, bw2868bond <bwalker@...>wrote:

> **
>
>
> there is no ttUD103 in pre-process
> The method is GetANewUD103 - it doesn't exist yet
> it will be there Post process and you should be able to set your fields
> before it makes it to the UI
>
>
> --- In vantage@yahoogroups.com, Mark Kamsika <m.kamsika@...> wrote:
> >
> > Hi all,
> >
> > I'm a little bit stuck with something. I am trying to create a method
> directive
> > which runs before GetaNewUD103. What I want to do is to populate some of
> the
> > ShortChar fields before the record is saved. When the line
> > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> > is run ttUD103 does not become available. (if avail ttUD103 then do:)
> > If I change the statement to
> > find first ttUD103 no-lock no-error.
> > I still do not get a ttUD103 table to add values to.
> > Can anyone point me in the right direction. I have included the complete
> code
> > below
> >
> > Kind Regards
> > Mark
> >
> >
> >
> > {Bpm/Bpm.i &OBJECT_NAME=UD103}
> > {actions/ud/csgBPMException.i}
> > {actions/ud/csgBPMDataStore.i}
> >
> > procedure GetaNewUD103Before:
> > define input-output parameter table for ttUD103.
> > define input-output parameter table for ttUD103Attch.
> > define input-output parameter table for ttUD103A.
> > {&TRY_PRIVATE}
> >
> >
> > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> >
> > if avail ttUD103 then do:
> >
> > find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock no-error.
> >
> > if avail Jobhead then do:
> > ttUD103.ShortChar02 = Jobhead.jobnum.
> > find last parttran where parttran.JobNum = ttUD103.Key1 and
> parttran.lotnum > ''
> > no-lock no-error.
> > if avail parttran then do:
> > ttUD103.ShortChar01 = parttran.LotNum.
> > find first partlot where partlot.lotnum = parttran.LotNum no-lock
> no-error.
> > if avail partlot then do:
> > ttUD103.shortchar03 = partlot.shortchar01.
> > end.
> > end.
> > if ttUD103.shortchar04 > '' then do:
> > find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock no-error.
> > if avail jobprod then do:
> > if jobprod.OrderNum > 0 then do:
> > find first orderhed where orderhed.ordernum = jobprod.ordernum.
> > if avail orderhed then do:
> > find first customer where customer.CustNum = orderhed.CustNum.
> > if avail customer then do:
> > ttUD103.shortchar04 = customer.CustID.
> > end.
> > end.
> > end.
> > else do:
> > throwexception('3','Please manually type in Customer ID. Job is being
> made to
> > stock').
> > end.
> > end.
> > end.
> > end.
> > else do:
> > throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
> > end.
> > end.
> >
> >
> >
> > {&CATCH_PRIVATE}
> > end procedure.
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>



--
*Waffqle Driggers*
*High End Dev, System Design, Profit Drinking
*
*:: 904.962.2887*
*:: waffqle@...*
*:: NO FAXES*

*

*


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



------------------------------------

Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.

(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links



[Non-text portions of this message have been removed]
8
There are many ways around it, post processing o UD should work,
Customization after Adapter Call should work too. What exactly are you
trying to do? IE what are the conditions that must be met? Also if you are
just trying to populate something before the record is saved, run it in Pre
Processing Update.

*Jose C Gomez*
*Software Engineer*
*
*
*checkout my new blog <http://www.usdoingstuff.com> *
*
*T: 904.469.1524 mobile
E: jose@...
http://www.josecgomez.com
<http://www.linkedin.com/in/josecgomez> <http://www.facebook.com/josegomez>
<http://www.google.com/profiles/jose.gomez> <http://www.twitter.com/joc85>
<http://www.josecgomez.com/professional-resume/>
<http://www.josecgomez.com/feed/>
<http://www.usdoingstuff.com>

*Quis custodiet ipsos custodes?*



On Sun, Jul 17, 2011 at 4:02 PM, Mark Kamsika <m.kamsika@...> wrote:

> **
>
>
> Thank you for your replies,
>
> As I understand the GetANewUd103 a ttUD103 record is created but the
> contents of
> this are not saved to the data until the record is saved. How else can I
> pre
> populate the UD103 fields in the UI prior to saving. I know it is not
> possible
> to update the fields from a BAQ.
>
> Kind Regards
> Mark
>
> ________________________________
> From: Waffqle <waffqle@...>
> To: vantage@yahoogroups.com
> Sent: Sat, 16 July, 2011 16:18:11
>
> Subject: Re: [Vantage] Re: Method Directive on UD103
>
> The data will be there in post processing, but that will usually mess with
> the UI. Post Processing directives will often generate the 'Record has been
> modified by another user' error. So test them before you devote to much dev
> time.
>
> On Sat, Jul 16, 2011 at 10:37 AM, bw2868bond <bwalker@...
> >wrote:
>
> > **
> >
> >
> > there is no ttUD103 in pre-process
> > The method is GetANewUD103 - it doesn't exist yet
> > it will be there Post process and you should be able to set your fields
> > before it makes it to the UI
> >
> >
> > --- In vantage@yahoogroups.com, Mark Kamsika <m.kamsika@...> wrote:
> > >
> > > Hi all,
> > >
> > > I'm a little bit stuck with something. I am trying to create a method
> > directive
> > > which runs before GetaNewUD103. What I want to do is to populate some
> of
> > the
> > > ShortChar fields before the record is saved. When the line
> > > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> > > is run ttUD103 does not become available. (if avail ttUD103 then do:)
> > > If I change the statement to
> > > find first ttUD103 no-lock no-error.
> > > I still do not get a ttUD103 table to add values to.
> > > Can anyone point me in the right direction. I have included the
> complete
> > code
> > > below
> > >
> > > Kind Regards
> > > Mark
> > >
> > >
> > >
> > > {Bpm/Bpm.i &OBJECT_NAME=UD103}
> > > {actions/ud/csgBPMException.i}
> > > {actions/ud/csgBPMDataStore.i}
> > >
> > > procedure GetaNewUD103Before:
> > > define input-output parameter table for ttUD103.
> > > define input-output parameter table for ttUD103Attch.
> > > define input-output parameter table for ttUD103A.
> > > {&TRY_PRIVATE}
> > >
> > >
> > > find first ttUD103 where ttUD103.RowMod ne '' no-lock no-error.
> > >
> > > if avail ttUD103 then do:
> > >
> > > find first JobHead where jobhead.jobnum = ttUD103.Key1 no-lock
> no-error.
> > >
> > > if avail Jobhead then do:
> > > ttUD103.ShortChar02 = Jobhead.jobnum.
> > > find last parttran where parttran.JobNum = ttUD103.Key1 and
> > parttran.lotnum > ''
> > > no-lock no-error.
> > > if avail parttran then do:
> > > ttUD103.ShortChar01 = parttran.LotNum.
> > > find first partlot where partlot.lotnum = parttran.LotNum no-lock
> > no-error.
> > > if avail partlot then do:
> > > ttUD103.shortchar03 = partlot.shortchar01.
> > > end.
> > > end.
> > > if ttUD103.shortchar04 > '' then do:
> > > find first jobprod where jobprod.JobNum = ttUD103.Key1 no-lock
> no-error.
> > > if avail jobprod then do:
> > > if jobprod.OrderNum > 0 then do:
> > > find first orderhed where orderhed.ordernum = jobprod.ordernum.
> > > if avail orderhed then do:
> > > find first customer where customer.CustNum = orderhed.CustNum.
> > > if avail customer then do:
> > > ttUD103.shortchar04 = customer.CustID.
> > > end.
> > > end.
> > > end.
> > > else do:
> > > throwexception('3','Please manually type in Customer ID. Job is being
> > made to
> > > stock').
> > > end.
> > > end.
> > > end.
> > > end.
> > > else do:
> > > throwexception('3','Job ' + ttUD103 .Key1 + ' does not exist').
> > > end.
> > > end.
> > >
> > >
> > >
> > > {&CATCH_PRIVATE}
> > > end procedure.
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
> >
> >
>
> --
> *Waffqle Driggers*
> *High End Dev, System Design, Profit Drinking
> *
> *:: 904.962.2887*
> *:: waffqle@...*
> *:: NO FAXES*
>
> *
>
> *
>
> [Non-text portions of this message have been removed]
>
> ------------------------------------
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
> already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report Builder and
> Crystal Reports and other 'goodies', please goto:
> http://groups.yahoo.com/group/vantage/files/.
>
> (2) To search through old msg's goto:
> http://groups.yahoo.com/group/vantage/messages
> (3) To view links to Vendors that provide Vantage services goto:
> http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links
>
> [Non-text portions of this message have been removed]
>
>
>


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