Thanks Nigel. I'll give this a try when I can get some time.
Thanks,
Blake Clemens
DMC
________________________________
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Nigel Kerley
Sent: Wednesday, February 25, 2009 11:29 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: User Defined Table/BPM/Service Connect Question
Hi Blake,
I really don't know where you'd start to learn 4GL code. I have some
previous programming experience so I've picked it up from looking at
the code included in postings to this group (and trial & error,
obviously).
There's also a couple of books which you can download from the
Progress website - do a search for OpenEdge 4GL Handbook and OpenEdge
4GL Reference. They're not "tutorial"-type books though, more "I know
there's a command to do this, I just don't know what it is"-type
books.
For your immediate issue, I would:
* create a post-processing directive on the UD##.Update BO
* with no conditions
* with an action "sychronously execute 4GL <below> record nothing
* and the code (assuming table=UD02, ordernum=Key1, new date=Date01):
find first ttUD02 no-lock no-error.
if available ttUD02 then do:
for each OrderHed where OrderHed.Company=ttUD02.Company and
OrderHed.OpenOrder = True and OrderHed.OrderNum = integer
(ttUD02.Key1) no-lock:
if available OrderHed then do:
/* Change Header*/
Run lib\UpdateTableBuffer.p(input BUFFER OrderHed:HANDLE,
'NeedByDate',ttUD02.Date01).
/* Change Detail Lines */
for each OrderDtl where OrderDtl.Company=ttUD02.Company and
OrderDtl.OpenLine = True and OrderDtl.OrderNum = integer(ttUD02.Key1)
no-lock:
Run lib\UpdateTableBuffer.p(input BUFFER OrderDtl:HANDLE,
'NeedByDate',ttUD02.Date01).
end.
/* Change Releases */
for each OrderRel where OrderRel.Company=ttUD02.Company and
OrderRel.OpenRelease = True and OrderRel.OrderNum = integer
(ttUD02.Key1) no-lock:
Run lib\UpdateTableBuffer.p(input BUFFER OrderRel:HANDLE,
'NeedByDate',ttUD02.Date01).
end.
end.
{lib/PublishInfoMsg.i &InfoMsg = "'Done.'"}
end.
end.
I have *not* tested the code, so make sure you try it out on your
test system first.
HTH,
Nigel.
--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Blake Clemens" <blake.clemens@...>
wrote:
Behalf
Thanks,
Blake Clemens
DMC
________________________________
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Nigel Kerley
Sent: Wednesday, February 25, 2009 11:29 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: User Defined Table/BPM/Service Connect Question
Hi Blake,
I really don't know where you'd start to learn 4GL code. I have some
previous programming experience so I've picked it up from looking at
the code included in postings to this group (and trial & error,
obviously).
There's also a couple of books which you can download from the
Progress website - do a search for OpenEdge 4GL Handbook and OpenEdge
4GL Reference. They're not "tutorial"-type books though, more "I know
there's a command to do this, I just don't know what it is"-type
books.
For your immediate issue, I would:
* create a post-processing directive on the UD##.Update BO
* with no conditions
* with an action "sychronously execute 4GL <below> record nothing
* and the code (assuming table=UD02, ordernum=Key1, new date=Date01):
find first ttUD02 no-lock no-error.
if available ttUD02 then do:
for each OrderHed where OrderHed.Company=ttUD02.Company and
OrderHed.OpenOrder = True and OrderHed.OrderNum = integer
(ttUD02.Key1) no-lock:
if available OrderHed then do:
/* Change Header*/
Run lib\UpdateTableBuffer.p(input BUFFER OrderHed:HANDLE,
'NeedByDate',ttUD02.Date01).
/* Change Detail Lines */
for each OrderDtl where OrderDtl.Company=ttUD02.Company and
OrderDtl.OpenLine = True and OrderDtl.OrderNum = integer(ttUD02.Key1)
no-lock:
Run lib\UpdateTableBuffer.p(input BUFFER OrderDtl:HANDLE,
'NeedByDate',ttUD02.Date01).
end.
/* Change Releases */
for each OrderRel where OrderRel.Company=ttUD02.Company and
OrderRel.OpenRelease = True and OrderRel.OrderNum = integer
(ttUD02.Key1) no-lock:
Run lib\UpdateTableBuffer.p(input BUFFER OrderRel:HANDLE,
'NeedByDate',ttUD02.Date01).
end.
end.
{lib/PublishInfoMsg.i &InfoMsg = "'Done.'"}
end.
end.
I have *not* tested the code, so make sure you try it out on your
test system first.
HTH,
Nigel.
--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Blake Clemens" <blake.clemens@...>
wrote:
>new to
> Nigel,
>
>
>
> I was hoping someone would say something like that. We're pretty
> the BPM/4GL code writing aspect here at Delmarva. I wasn't evensure if
> that was possible. Where and how would I begin to write the code?[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
>
>
>
> Thanks,
>
> Blake Clemens
>
> DMC
>
>
>
>
>
>
>
> ________________________________
>
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Behalf
> Of Nigel KerleyQuestion
> Sent: Wednesday, February 25, 2009 6:03 AM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] Re: User Defined Table/BPM/Service Connect
>onto
>
>
> Hi Blake,
>
> Why bother with the SC part. Why not just add a 4GL code action
> the BPM and have that change the dates?<mailto:vantage%40yahoogroups.com> ,
>
> Nigel.
>
> --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> "Blake Clemens" <blake.clemens@>us
> wrote:
> >
> > I would like some opinions on the following issue. Please let me
> know if
> > there is a better way to do this.
> >
> >
> >
> > We created a menu utility using a User Defined Table that allows
> toto
> > modify the "Need By" date on a Sales Order. It is a very basic
> menu...
> > enter order number, enter new date, check process. At this point,
> we
> > are hoping, a BPM will export the order number and modified date
> > Service Connect. Service Connect will take this information andnamed
> update
> > the need by date in Vantage. Does this sound like a practical way
> to do
> > what we need or are we over thinking it by using Service Connect?
> Any
> > ideas, questions, comments would be very helpful. Thanks in
> advance.
> >
> >
> >
> >
> >
> >
> >
> > Thanks,
> >
> > Blake Clemens
> >
> > IT Systems Engineer
> >
> > Delmarva Millwork Corporation
> >
> > (800) 360-2364 x132
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > ***Privileged & Confidential***
> >
> >
> >
> > This email, together with any attachments, is intended for the
> > recipient(s) only and may contain privileged and confidentialintended
> > information. If received in error, please inform the sender as
> quickly
> > as possible and delete this email and any copies. If not an
> > recipient of this email, you must not copy, distribute or rely onthe
> it,
> > and any form of disclosure, modification, distribution and/or
> > publication of this email is prohibited.
> >
> > Unless stated otherwise, this email represents only the views of
> > sender and not the views of Delmarva Millwork Corporation.[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]
>