Ted,
You could try utilizing a Boolean value that indicates if the oper. record is clean/dirty and suppress the update of the job until the operation update has been completed.
HTH,
Calvin Dekker
Office: 630-672-7688 Ext. 1484
Email: calvin@...<mailto:calvin@...>
http://www.codabears.com<http://www.codabears.com/>
[cid:image001.jpg@01CE893E.93503D10]<http://www.codabears.com/>
Solutions for Epiday living.
"No trees were harmed during the sending of this message, however a large number of electrons were terribly inconvenienced."
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of tkoch77
Sent: Thursday, July 25, 2013 1:22 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: 4GL Loop issue
It seems like I finally got this to work after taking a break for a couple weeks. I added a call to RUN Update IN hJobEntry ( {&input-output_dataset_JobEntryDataSet}). right before RUN GetNewJobOper IN hJobEntry ( {&input-output_dataset_JobEntryDataSet}, input iJobNum, input iAsmSeq).
I'm guessing there is some sort of refresh issue...
You could try utilizing a Boolean value that indicates if the oper. record is clean/dirty and suppress the update of the job until the operation update has been completed.
HTH,
Calvin Dekker
Office: 630-672-7688 Ext. 1484
Email: calvin@...<mailto:calvin@...>
http://www.codabears.com<http://www.codabears.com/>
[cid:image001.jpg@01CE893E.93503D10]<http://www.codabears.com/>
Solutions for Epiday living.
"No trees were harmed during the sending of this message, however a large number of electrons were terribly inconvenienced."
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of tkoch77
Sent: Thursday, July 25, 2013 1:22 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: 4GL Loop issue
It seems like I finally got this to work after taking a break for a couple weeks. I added a call to RUN Update IN hJobEntry ( {&input-output_dataset_JobEntryDataSet}). right before RUN GetNewJobOper IN hJobEntry ( {&input-output_dataset_JobEntryDataSet}, input iJobNum, input iAsmSeq).
I'm guessing there is some sort of refresh issue...
--- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>, Ted Koch <tkoch77@...<mailto:tkoch77@...>> wrote:
>
> I still haven't managed to figure out what is going on with this, I'm trying to get this to run so it can replace a service connect workflow. I have added a message inside the loop to assign data into the new JobOper record. It displays in the logs the correct OpCode but the operation is never added to the job. I'm not sure why it's not adding the operation, if I entered one op to be processed (OP014:Cutting|0~) nothing gets added, if I enter two ops (OP014:Cutting|0~OP012:Mill Manual|0~) the last one always gets added. Can anyone see something wrong with the .p I pasted below?
>
> {Bpm/Bpm.i &OBJECT_NAME="JobEntry"}
> {bo/JobEntry/JobEntry_ds.i}
>
> /*OP014:Cutting|0~OP012:Mill Manual|0~*/
>
> define input parameter iJobNum as character.
> define input parameter iAsmSeq as integer.
> define input parameter iSubcontract as logical.
> define input parameter iOpCode as character.
> define input parameter iOpDesc as character.
> define input parameter iAttchFldr as character.
> define input parameter iVendMtl as character.
>
> {&TRY_PRIVATE}
>
> DEFINE VARIABLE morePages AS LOGICAL.
> DEFINE VARIABLE hJobEntry AS HANDLE.
>
> RUN bo/JobEntry/JobEntry.p PERSISTENT SET hJobEntry.
>
> IF VALID-HANDLE (hJobEntry) THEN
> DO:
> IF iSubcontract THEN
> DO:
>
> END.
> ELSE
> DO:
>
> RUN GetNewJobOper IN hJobEntry ({&input-output_dataset_JobEntryDataSet}, input iJobNum, input iAsmSeq).
>
> FOR EACH ttJobOper WHERE ttJobOper.RowMod = 'A':
> ASSIGN ttJobOper.JobNum = iJobNum.
> ASSIGN ttJobOper.AssemblySeq = iAsmSeq.
> ASSIGN ttJobOper.OpCode = iOpCode.
> ASSIGN ttJobOper.OpDesc = iOpDesc.
>
> MESSAGE ttJobOper.OpDesc.
>
> END.
>
>
>
> RUN Update IN hJobEntry ({&input-output_dataset_JobEntryDataSet}).
>
> END.
> END.
> ELSE
> DO:
> message 'Could not create handle to JobEntry.p!'.
> END.
>
> DELETE OBJECT hJobEntry.
>
> {&CATCH_PRIVATE}
>
>
>
>
> ________________________________
> From: Ted Koch <tkoch77@...<mailto:tkoch77@...>>
> To: "vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>" <vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>>
> Sent: Thursday, June 20, 2013 4:08 PM
> Subject: Re: [Vantage] 4GL Loop issue
>
>
> When I add a new assembly then save, the only rowmod that is showing is U in the standard data directive. I am just going to do this via JobEntry.Update method directive, that should be the only time assemblies are being added. I really wanted to do it with a data directive since I have a bunch of BPMs already on JobEntry.Update
>
>
>
>
> ________________________________
> From: Jose Gomez <jose@...<mailto:jose@...>>
> To: Vantage <vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>>
> Sent: Thursday, June 20, 2013 2:50 PM
> Subject: Re: [Vantage] 4GL Loop issue
>
>
> Add No-ERROR to the find, also are you sure your RowMod='A? you may want to
> display your RowMod to make sure.
>
>
> *Jose C Gomez*
> *Software Engineer*
> *
> *
> *
> *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 Thu, Jun 20, 2013 at 2:35 PM, Ted Koch <tkoch77@...<mailto:tkoch77@...>> wrote:
>
> > **
> >
> >
> > DEF VAR op AS CHARACTER NO-UNDO.
> > DEF VAR opCode AS CHARACTER NO-UNDO.
> > DEF VAR i AS INTEGER.
> > DEF VAR opList AS CHARACTER.
> >
> > FIND FIRST TTJOBASMBL WHERE TTJOBASMBL.RowMod = 'A'.
> > MESSAGE 'HELLO!!!!!!!!!!'.
> >
> > ASSIGN opList = RIGHT-TRIM(TTJOBASMBL.Character04, "~~").
> > REPEAT i = 1 TO NUM-ENTRIES(opList, "~~"):
> > ASSIGN op = ENTRY(i, opList, "~~").
> > ASSIGN opCode = SUBSTRING(op, 1, INDEX(op, ":") - 1).
> > MESSAGE OPCODE.
> > FIND FIRST OPMASTER WHERE OPMASTER.Company =
> > TTJOBASMBL.Company AND OPMASTER.OpCode = opCode NO-LOCK.
> > RUN bpm\TAIT\AddOpsToSubAsm.p (input
> > ttjobasmbl.JobNum, input ttjobasmbl.AssemblySeq, input
> > OPMASTER.Subcontract, input opCode, input OPMASTER.OpDesc, input
> > TTJOBASMBL.Character02, input TTJOBASMBL.Character03).
> > END.
> >
> > ________________________________
> > From: Jose Gomez <jose@...<mailto:jose@...>>
> > To: Vantage <vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>>
> > Sent: Thursday, June 20, 2013 2:24 PM
> >
> > Subject: Re: [Vantage] 4GL Loop issue
> >
> >
> > What code are you using for the search
> >
> > On Thu, Jun 20, 2013 at 2:22 PM, Ted Koch <tkoch77@...<mailto:tkoch77@...>> wrote:
> >
> > > -- ** FIND FIRST/LAST failed for table ttJobAsmbl. (565)
> > >
> > >
> >
> > *Jose C Gomez*
> > *Software Engineer*
> > *
> > *
> > *
> > *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?*
> >
> > [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/.<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]
>
>
>
> ------------------------------------
>
> 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/.<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]
>
>
>
> ------------------------------------
>
> 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/.<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]