I've contacted the CAM but I'm wondering if our being on SQL blocks us from this capability?
--- In vantage@yahoogroups.com, Waffqle <waffqle@...> wrote:
>
> That's an issue with your progress license. As Steve mentioned, your VAR /
> CAM should be able to get you the proper license. We had to pay for it
> several years ago, but I've heard from a number of people that it's free
> now.
>
> There is also another ABL syntax you can use to get around that issue by (I
> believe) calling a BO instead of doing direct table updates.
>
> On Mon, May 16, 2011 at 8:38 PM, CarlH <carl.heeder@...> wrote:
>
> >
> >
> > I get a message that says, "You may not compile programs that update the
> > database in this version (490)"
> >
> > I do have some other errors in the code that I wrote that I should also
> > eliminate but it seems to be hanging on Create UD05. statement
> >
> > I'll look at Joe's solution but was just trying for the simples solution
> > possible.
> >
> >
> > --- In vantage@yahoogroups.com, Waffqle <waffqle@> wrote:
> > >
> > > You should be able to update the tables from a BPM just fine in your
> > > version. Are you getting an error of some sort?
> > >
> > > On Sun, May 15, 2011 at 9:33 AM, Joe Rojas <jrojas@> wrote:
> > >
> > > >
> > > >
> > > > Another approach is to call the BO from within your BPM.
> > > >
> > > > It's more advanced but there are advantages to have the server process
> > > > this for you as opposed to the client.
> > > >
> > > > Below is an example from the advanced programming class I took.
> > > >
> > > > You would put your code in an external .p file, then have your BPM call
> > > > the "synchronously execute ABL code" action and "forward to procedure",
> > > > which would be your .p file.
> > > >
> > > > Admittedly, this is an extremely over simplified set of instructions so
> > > > let me know if you have any questions.
> > > >
> > > > {Bpm/Bpm.i &OBJECT_NAME=AbcCode}
> > > > {bo/UD01_ds.i}
> > > >
> > > > procedure UpdateBefore:
> > > > define input-output parameter table for ttAbcCode.
> > > > {&TRY_PRIVATE}
> > > >
> > > > define variable hUD01 as handle.
> > > >
> > > > find first ttAbccode no-lock no-error.
> > > >
> > > > /*Run UD01 object persistently to inherit standard
> > > > capabilities*/
> > > > RUN bo\UD01.p PERSISTENT SET hUD01.
> > > >
> > > > IF VALID-HANDLE (hUD01) THEN DO:
> > > >
> > > > /*Create new record*/
> > > > RUN GETANEWUD01 IN hUD01 (
> > > > {&input-output_dataset_UD01DataSet} ) NO-ERROR.
> > > >
> > > > find first ttUD01 where ttUD01.ROWMOD = 'A' no-lock
> > > > no-error.
> > > >
> > > > IF available ttUD01 THEN DO:
> > > >
> > > > /*Populate fields*/
> > > > assign ttUD01.Company = CUR-COMP
> > > > ttUD01.Key1 = "AbcCode"
> > > > /*Table that was affected*/
> > > > ttUD01.Key2 = "CountFreq"
> > > > /*Field that was affected*/
> > > > ttUD01.Key3 = STRING(TIME,"HH:MM:SS") /*Time*/
> > > > ttUD01.Key4 = STRING(RECID(ttUD01)) /*To
> > > > make the records unique*/
> > > > ttUD01.Date01 = TODAY /*Date*/
> > > > ttUD01.Number01 = ttAbcCode.CountFreq /*New Value*/
> > > > ttUD01.ShortChar01 = DCD-USERID.
> > > > /*User id*/
> > > >
> > > > /*Commit record*/
> > > > RUN UPDATE IN hUD01 (
> > > > {&input-output_dataset_UD01DataSet} ) NO-ERROR.
> > > >
> > > > END. /*IF available ttUD01*/
> > > >
> > > > /*Clean up*/
> > > > delete object hUD01.
> > > >
> > > > END. /*IF VALID-HANDLE (hUD01)*/
> > > >
> > > > {&CATCH_PRIVATE}
> > > > end procedure.
> > > >
> > > >
> > > > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On
> > Behalf
> > > > Of CarlH
> > > > Sent: Friday, May 13, 2011 6:30 PM
> > > > To: vantage@yahoogroups.com
> > > > Subject: [Vantage] Re: Creating your own log file
> > > >
> > > >
> > > > I guess our version (8.03.409) does not permit updating tables from
> > > > BPM's. Dos anyone else have another idea?
> > > >
> > > > --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
> > > >
> > > > "Kevin Simon" <ksimon@> wrote:
> > > > >
> > > > > Carl,
> > > > >
> > > > >
> > > > >
> > > > > If you have a BPM you can attach this to, add ABL code within the BPM
> > > > that
> > > > > looks like this:
> > > > >
> > > > >
> > > > >
> > > > > For each ttFileName where ttFileName.RowMod = "U":
> > > > >
> > > > > Create UD01.
> > > > >
> > > > > Assign UD01.Company = ttFileName.Company
> > > > >
> > > > > UD01.Key1 = "some key field"
> > > > >
> > > > > UD01.Key2 = "some other key field"
> > > > >
> > > > > UD01.Key3 = string(today) + " " + string(time) /* to make
> > > > > key unique */
> > > > >
> > > > > /* Set rest of fields */
> > > > >
> > > > > Release UD01.
> > > > >
> > > > > End.
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > Hope that helps.
> > > > >
> > > > >
> > > > >
> > > > > Kevin Simon
> > > > >
> > > > >
> > > > >
> > > > > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > > > [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ]
> > On
> > > >
> > > > Behalf Of
> > > > > CarlH
> > > > > Sent: Friday, April 29, 2011 6:59 PM
> > > > > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > > > > Subject: [Vantage] Creating your own log file
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > It is important that we create a log file for the approved vendor
> > > > table
> > > > > (approved vendors from which to buy certain parts).
> > > > >
> > > > > Any thoughts on how to do this. The table is not one that is listed
> > in
> > > > the
> > > > > BAM's
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > [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]
>