I would maybe suggest trying this from another angle. That invTrans table gives me heartache too because it seems to act more like a view (to me anyway). I have a customization on the menu that auto populates the From info to the actual bin the part is in.
So what I did was to set the ttCallContextBpmData.ShortChar01 to the iPartNum. Then execute some ABL code, setting ttCallContextBpmData fields to the values I got in the code and then allowing the BPM to do the update: Yours is a little different, but you can get the basic drift.
Pre-Processing Directive "SetMe"
Conditions - NONE
Actions: set the ShortChar01 field of BPM Data to the iPartNum expression
Post-Processing Directive "AssignWareHs"
Conditions - the iPartNum argument begins with the "T-" expression
Actions:
synchronously execute ABL FIND FIRST ttCallContextBpmData exclusiv ... record nothing
and set the InvTrans.FromWarehouseCode field of all rows to the ttCallContextBpmData.ShortChar02 expression
and set the InvTrans.FromBinNum field of all rows to the ttCallContextBpmData.ShortChar03... expression
and set the InvTrans.FromLotNumber field of all rows to the ttCallContextBpmData.ShortChar04... expression
ABL CODE:
FIND FIRST ttCallContextBpmData exclusive-lock.
FIND FIRST Part WHERE (Part.Company = CUR-COMP) AND (Part.PartNum = ttCallContextBpmData.ShortChar01) no-error.
IF AVAILABLE Part THEN DO:
FIND FIRST PartBin WHERE (PartBin.Company = CUR-COMP) AND (PartBin.PartNum = Part.PartNum)no-error.
IF AVAILABLE PartBin THEN DO:
Assign ttCallContextBpmData.ShortChar02 = PartBin.WarehouseCode.
ttCallContextBpmData.ShortChar03 = PartBin.BinNum.
ttCallContextBpmData.ShortChar04 = PartBin.LotNum.
END.
Brenda
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Drew
Sent: Thursday, May 23, 2013 9:04 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: ABL Code Error messages Help
This is what it looks like now and still getting same errors.
/*Add source code that should be executed before the designed actions here*/
FOR EACH ttInvTrans WHERE (ttInvTrans.RowMod = 'U') OR (ttInvTrans.RowMod =
'A') no-lock.
FIND FIRST PlantWhse WHERE (PlantWhse.Company = CUR-COMP) AND (PlantWhse.PartNum=
ttInvTrans.PartNum) AND (PlantWhse.WarehouseCode = "RACOMAIN") AND (ttInvTrans.ToWarehouseCode = "RACOMAIN") NO-ERROR.
IF AVAILABLE PlantWhse THEN DO:
FOR EACH ttCallContextBpmData WHERE ttCallContextBpmData.Checkbox01 = True.
Run lib\UpdateTableBuffer.p(input BUFFER PlantWhse:HANDLE, 'PartWhse.PrimBinNum',
ttinvtrans.ToBinNum).
END.
END.
end.
end.
/*Add source code that should be executed after the designed actions here*/
So what I did was to set the ttCallContextBpmData.ShortChar01 to the iPartNum. Then execute some ABL code, setting ttCallContextBpmData fields to the values I got in the code and then allowing the BPM to do the update: Yours is a little different, but you can get the basic drift.
Pre-Processing Directive "SetMe"
Conditions - NONE
Actions: set the ShortChar01 field of BPM Data to the iPartNum expression
Post-Processing Directive "AssignWareHs"
Conditions - the iPartNum argument begins with the "T-" expression
Actions:
synchronously execute ABL FIND FIRST ttCallContextBpmData exclusiv ... record nothing
and set the InvTrans.FromWarehouseCode field of all rows to the ttCallContextBpmData.ShortChar02 expression
and set the InvTrans.FromBinNum field of all rows to the ttCallContextBpmData.ShortChar03... expression
and set the InvTrans.FromLotNumber field of all rows to the ttCallContextBpmData.ShortChar04... expression
ABL CODE:
FIND FIRST ttCallContextBpmData exclusive-lock.
FIND FIRST Part WHERE (Part.Company = CUR-COMP) AND (Part.PartNum = ttCallContextBpmData.ShortChar01) no-error.
IF AVAILABLE Part THEN DO:
FIND FIRST PartBin WHERE (PartBin.Company = CUR-COMP) AND (PartBin.PartNum = Part.PartNum)no-error.
IF AVAILABLE PartBin THEN DO:
Assign ttCallContextBpmData.ShortChar02 = PartBin.WarehouseCode.
ttCallContextBpmData.ShortChar03 = PartBin.BinNum.
ttCallContextBpmData.ShortChar04 = PartBin.LotNum.
END.
Brenda
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Drew
Sent: Thursday, May 23, 2013 9:04 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: ABL Code Error messages Help
This is what it looks like now and still getting same errors.
/*Add source code that should be executed before the designed actions here*/
FOR EACH ttInvTrans WHERE (ttInvTrans.RowMod = 'U') OR (ttInvTrans.RowMod =
'A') no-lock.
FIND FIRST PlantWhse WHERE (PlantWhse.Company = CUR-COMP) AND (PlantWhse.PartNum=
ttInvTrans.PartNum) AND (PlantWhse.WarehouseCode = "RACOMAIN") AND (ttInvTrans.ToWarehouseCode = "RACOMAIN") NO-ERROR.
IF AVAILABLE PlantWhse THEN DO:
FOR EACH ttCallContextBpmData WHERE ttCallContextBpmData.Checkbox01 = True.
Run lib\UpdateTableBuffer.p(input BUFFER PlantWhse:HANDLE, 'PartWhse.PrimBinNum',
ttinvtrans.ToBinNum).
END.
END.
end.
end.
/*Add source code that should be executed after the designed actions here*/
--- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>, brenda mohr <brenda@...<mailto:brenda@...>> wrote:
>
> I would write it like this: (with a . (period) not a : (Colon) and FIND FIRST not just FIND
>
> FOR EACH ttInvTrans WHERE (ttInvTrans.RowMod = 'U') OR (ttInvTrans.RowMod =
> 'A') no-lock.
>
> FIND FIRST PlantWhse WHERE (PlantWhse.Company = CUR-COMP) AND (PlantWhse.PartNum =
> ttInvTrans.PartNum) AND (PlantWhse.WarehouseCode = "RACOMAIN") AND
> (ttInvTrans.ToWarehouseCode = "RACOMAIN") NO-ERROR.
>
> Brenda
>
> From: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>] On Behalf Of Drew
> Sent: Wednesday, May 22, 2013 5:02 PM
> To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] Re: ABL Code Error messages Help
>
>
>
> /*Add source code that should be executed before the designed actions here*/
> for each ttInvTrans where ttInvTrans.RowMod = 'U' or ttinvtrans.RowMod =
> 'A':
>
> find PlantWhse where PlantWhse.Company = CUR-COMP and PlantWhse.PartNum =
> ttinvtrans.PartNum and PlantWhse.WarehouseCode = "RACOMAIN" and
> ttinvtrans.ToWarehouseCode = "RACOMAIN" NO-ERROR.
>
> IF AVAILABLE PlantWhse THEN DO:
> FOR EACH ttCallContextBpmData WHERE ttCallContextBpmData.Checkbox01 = True.
>
> Run lib\UpdateTableBuffer.p(input BUFFER PlantWhse:HANDLE, 'PartWhse.PrimBinNum',
> ttinvtrans.ToBinNum).
> END.
> END.
>
> {&CALL_DESIGNED_ACTIONS}
> end.
>
> end.
> /*Add source code that should be executed after the designed actions here*/
>
> Error Detail
> ============
> ** Cannot find NEXT LEAVE RETY or UNDO label on appropriate clock.(209)
> ** Could not understand line 1.(196)
> ** Unknown Field or Variable name - exceptionOccured__.(201)
> ** Could not understand line 1.(196)
>
> --- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>, brenda mohr <brenda@<mailto:brenda@>> wrote:
> >
> > Can you send the current code w/ all the changes?
> >
> > Brenda
> >
> > From: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>] On Behalf Of Drew
> > Sent: Wednesday, May 22, 2013 2:58 PM
> > To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>
> > Subject: [Vantage] Re: ABL Code Error messages Help
> >
> >
> >
> > I know get these errors
> >
> > ** Cannot find NEXT LEAVE RETY or UNDO label on appropriate clock.(209)
> > ** Could not understand line 1.(196)
> > ** Unknown Field or Variable name - exceptionOccured__.(201)
> > ** Could not understand line 1.(196)
> >
> > --- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>, "justincalbraze" <justint@<mailto:justint@>> wrote:
> > >
> > > I've always wrote them like:
> > >
> > > For Each Table WHERE ( Table.Field = True) no-lock.
> > >
> > > Using the parenthesis and period at the end of the line.
> > >
> > > --- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>, "Drew" <ahsalloum@> wrote:
> > > >
> > > > Thanks Chris,
> > > >
> > > > Does True need to be in quotes? I get different errors when TRUE is in quotes or not.
> > > >
> > > > --- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>, "Chris Robisch" <bluewine@> wrote:
> > > > >
> > > > > add a period after 'true'.
> > > > > ----- Original Message -----
> > > > > From: "Drew" <ahsalloum@>
> > > > > To: <vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>>
> > > > > Sent: Wednesday, May 22, 2013 9:17 AM
> > > > > Subject: [Vantage] Re: ABL Code Error messages Help
> > > > >
> > > > >
> > > > > > Joshua,
> > > > > > I really appreciate the help, but I am still getting a couple of errors
> > > > > > with this code. Like I said, I don't know how to code so I can't figure
> > > > > > this out.
> > > > > >
> > > > > >
> > > > > > I am getting these errors;
> > > > > >
> > > > > > ** Unable to understand after -- "ttCallContextBpmData.Checkbox01". (247)
> > > > > > ** C:\EpicorData\20915011212172376287237252138253242157.p Line
> > > > > > 23 --Invalid FOR, DO, REPEAT, or EDITING statement. (194)
> > > > > >
> > > > > > ================================
> > > > > > The code is;
> > > > > >
> > > > > > /*Add source code that should be executed before the designed actions
> > > > > > here*/
> > > > > > for each ttInvTrans where ttInvTrans.RowMod = 'U' or ttinvtrans.RowMod =
> > > > > > 'A':
> > > > > >
> > > > > >
> > > > > > find PlantWhse where PlantWhse.Company = CUR-COMP and PlantWhse.PartNum =
> > > > > > ttinvtrans.PartNum and PlantWhse.WarehouseCode = "RACOMAIN" and
> > > > > > ttinvtrans.ToWarehouseCode = "RACOMAIN" NO-ERROR.
> > > > > >
> > > > > > IF AVAILABLE PlantWhse THEN DO:
> > > > > > FOR EACH ttCallContextBpmData WHERE ttCallContextBpmData.Checkbox01 =
> > > > > > True
> > > > > >
> > > > > > Run lib\UpdateTableBuffer.p(input BUFFER PlantWhse:HANDLE,
> > > > > > 'PartWhse.PrimBinNum',
> > > > > > ttinvtrans.ToBinNum).
> > > > > > END.
> > > > > > END.
> > > > > >
> > > > > >
> > > > > >
> > > > > > {&CALL_DESIGNED_ACTIONS}
> > > > > > end.
> > > > > >
> > > > > > end.
> > > > > > /*Add source code that should be executed after the designed actions
> > > > > > here*/
> > > > > >
> > > > > > What do you think?
> > > > > >
> > > > > > --- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>, Joshua Giese <jgiese@> wrote:
> > > > > >>
> > > > > >> FOR EACH ttCallContextBpmData WHERE ttCallContextBpmData.Checkbox01 =
> > > > > >> True
> > > > > >>
> > > > > >>
> > > > > >>
> > > > > >>
> > > > > >> Joshua Giese
> > > > > >>
> > > > > >> CTO
> > > > > >>
> > > > > >> 920.437.6400 Ext. 337
> > > > > >>
> > > > > >> Site ID: 27450-E905700B2-SQL64
> > > > > >>
> > > > > >> ----- Original Message -----
> > > > > >>
> > > > > >> From: "Drew" <ahsalloum@>
> > > > > >> To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com>
> > > > > >> Sent: Wednesday, March 27, 2013 10:49:45 AM
> > > > > >> Subject: [Vantage] Re: ABL Code Error messages Help
> > > > > >>
> > > > > >>
> > > > > >>
> > > > > >> What would that where statement say?
> > > > > >>
> > > > > >> --- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com><mailto:vantage%40yahoogroups.com> , Jose Gomez <jose@> wrote:
> > > > > >> >
> > > > > >> > You are missing a where clause on your for each its FOR EACH
> > > > > >> > ttCalContext
> > > > > >> > "WHERE" et.c..
> > > > > >> >
> > > > > >> >
> > > > > >> > *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 Wed, Mar 27, 2013 at 11:46 AM, Drew <ahsalloum@> wrote:
> > > > > >> >
> > > > > >> > > **
> > > > > >> > >
> > > > > >> > >
> > > > > >> > > Hey everyone. I have added a checkbox(CallContextBpmData.Checkbox01)
> > > > > >> > > to
> > > > > >> > > the Hand Held "Move Inventory" Screen in the "To" group. Once the
> > > > > >> > > checkbox
> > > > > >> > > is selected, I want a BPM to make the "To" Bin the primary
> > > > > >> > > bin(PartWhse.PrimBinNum) for the part being transferred. I am getting
> > > > > >> > > a
> > > > > >> > > couple of errors and can't figure out how to fix them.
> > > > > >> > >
> > > > > >> > > Please take in consideration that I got this from someone else. I
> > > > > >> > > don't
> > > > > >> > > know this language and this is my companies first BPM. Here is the
> > > > > >> > > code and
> > > > > >> > > error messages;
> > > > > >> > >
> > > > > >> > > Error Detail
> > > > > >> > > ============
> > > > > >> > > ** Unable to understand after -- "ttCallContextBpmData.Checkbox01".
> > > > > >> > > (247)
> > > > > >> > > ** C:\EpicorData\20915011212172376287237252138253242157.p Line 23
> > > > > >> > > --Invalid FOR, DO, REPEAT, or EDITING statement. (194)
> > > > > >> > >
> > > > > >> > > Code
> > > > > >> > > ============
> > > > > >> > >
> > > > > >> > > /*Add source code that should be executed before the designed actions
> > > > > >> > > here*/
> > > > > >> > > for each ttInvTrans where ttInvTrans.RowMod = 'U' or
> > > > > >> > > ttinvtrans.RowMod =
> > > > > >> > > 'A':
> > > > > >> > >
> > > > > >> > > find PlantWhse where PlantWhse.Company = CUR-COMP and
> > > > > >> > > PlantWhse.PartNum =
> > > > > >> > > ttinvtrans.PartNum and PlantWhse.WarehouseCode = "RACOMAIN" and
> > > > > >> > > ttinvtrans.ToWarehouseCode = "RACOMAIN" NO-ERROR.
> > > > > >> > >
> > > > > >> > > IF AVAILABLE PlantWhse THEN DO:
> > > > > >> > > FOR EACH ttCallContextBpmData.Checkbox01 = True
> > > > > >> > >
> > > > > >> > > Run lib\UpdateTableBuffer.p(input BUFFER PlantWhse:HANDLE,
> > > > > >> > > 'PartWhse.PrimBinNum',
> > > > > >> > > ttinvtrans.ToBinNum).
> > > > > >> > > END.
> > > > > >> > > END.
> > > > > >> > >
> > > > > >> > > {&CALL_DESIGNED_ACTIONS}
> > > > > >> > > end.
> > > > > >> > >
> > > > > >> > > end.
> > > > > >> > > /*Add source code that should be executed after the designed actions
> > > > > >> > > here*/
> > > > > >> > >
> > > > > >> > > Thanks,
> > > > > >> > > Andrew
> > > > > >> > >
> > > > > >> > >
> > > > > >> > >
> > > > > >> >
> > > > > >> >
> > > > > >> > [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/><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
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > -----
> > > > > > No virus found in this message.
> > > > > > Checked by AVG - www.avg.com<http://www.avg.com>
> > > > > > Version: 2013.0.3343 / Virus Database: 3162/6347 - Release Date: 05/22/13
> > > > > >
> > > > >
> > > >
> > >
> >
> >
> >
> > [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]