> &zCmd
> -- As an example, if FldNm3, zCmd just sets itself to null
>
> Return
Should have been --
if FldNm2, zCmd just sets itself to null
On 12 Sep 2002, at 7:29, Ben Petersen wrote:
> Tom,
>
> I think David is right on here, not that what I think means much, just
> ask my wife... but when I replied to your post yesterday I was trying
> to understand why I hadn't experienced some of the same things.
> David's post turned on the lights.
>
> A while back I got fed up with trying to keep track of all the eeps I
> was generating, and limited myself to one per form. If Exit were
> pressed, nothing else would have the opportunity to execute (see
> below). So, typically, my eeps look something like this (and life got
> a _lot_ easier):
>
>
> SET v zCmd = 'Set v zCmd = Null'
> -- zCmd executes based on switch or while blocks
>
> SET v zLastFld TEXT
> -- This is the field that the eep was executed from the LAST time it
> was run
>
> SET v zLastKey = (LASTKEY(1))
> -- Sometimes I want to know what key was used to enter the field
>
> SET v zFldNm = (CVAL('form_field_name'))
> -- Which field was entered
>
> If zFldNm = 'Exit' Then
> goto EndEep
> EndIf
>
> Switch (.zFldNm)
> Case 'FldNm1'
> Do stuff
> Set v zCmd = 'UPdate ...'
> Break
>
> Case 'FldNm2'
> Do Stuff
> Break
>
> Case 'FldNm3'
> Do Stuff
> Set v zCmd = 'Run ...'
> ...
> EndSw
>
> Label EndEep
>
> Set v zLastFld = .zFldNm
>
> Clear var xx, yy, zz, ...
>
> &zCmd
> -- As an example, if FldNm3, zCmd just sets itself to null
>
> Return
>
>
> Ben Petersen
>
>
> On 12 Sep 2002, at 8:17, David M. Blocker wrote:
>
> > Tom
> >
> > Re your form:
> >
> > 1. If running the field entry eep is a problem on saving the row, a
> > work around is to do the following:
> > In the calling program, set a variable vWhatNow TEXT = 'RUN'
> > In the EEP on your EXIT button, add in:
> > SET VAR vWhatNow = "EXIT"
> > In the field entry eep, start with:
> > IF vWhatNow = "EXIT" THEN
> > GOTO bottom
> > ENDIF
> > where there is a LABEL BOTTOM at the end of the EEP before the
> > CLE VAR
> > and RETURN commands
> >
> > 2. The first issue is to figure out what the error message is
> > actually referring to. From your posting it sounds like you are
> > trying to save a row in the region, and in the form there are
> > expressions setting the table columns to form variables, is that
> > true?
> > If so, then look at the table into which you are saving: are
> > there any
> > FK's defined? If yes, check each of them to see which could be
> > getting messed up.
> >
> > 3. Have you TRACEd to see exactly where the error is occuring?
> >
> > David Blocker
> >
> > ----- Original Message -----
> > From: "Tom Grimshaw" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Wednesday, September 11, 2002 4:48 PM
> > Subject: HEEEEEEEELP!!!!
> >
> >
> > > G'day,
> > >
> > > Using the latest and greatest RBWin on W2K machine.
> > >
> > > I have been working over the point of sale module of BizMan
> > > I have created a data entry form that can be used with or
> > > without a barcode scanner.
> > >
> > > I am hitting brick walls trying to get R:BASE to do what I want,
> > > specifically to display the sum of the item prices in a variable.
> > >
> > > It is a single table form with a tiered region based on
> > > TranDetail. On the first filed of the region there is a field
> > > level eep that clears the variables so the current row does not
> > > display the data for the previous row.
> > >
> > > PROBLEM 1.
> > > This eep is being run when I am in the last field of the region
> > > and click on the exit button.!@#$%
> > >
> > > The custom action for the exit button is this:
> > >
> > > SET VAR vScrnMsgChoice TEXT = 'Y'
> > > CLOSEWINDOW
> > > RETURN
> > >
> > > Any idea why the field level eep would be run on exit from the
> > > row\form? (Same happens for a row level eep.)
> > >
> > > PROBLEM 2.
> > > On the second last field there is some code that gets the cost
> > > price, qty, charge and tax rates and extends the detail line.
> > > When I try to save this row using SAVEROW after the calcs are done
> > > the error msg R:BASE returns is "No rows exist or satisfy the
> > > specified clause." even though the variable vDetailID is set at
> > > the form level and the row DOES exist if I abort during TRACE at
> > > that point and check the table.
> > >
> > > Here is the eep:
> > >
> > > IF vProdServID IS NULL THEN
> > > SET VAR vScreenMsg TEXT = 'No or invalid ProdServID.|+
> > > Press [F4] to find product by part of description.'
> > > RUN ScrnMsg2 IN GlobBlok.apx
> > > SKIP -1
> > > RETURN
> > > ENDIF
> > > IF vBarCode IS NULL AND vProdServID > 0 THEN
> > > RUN PSPrice1 IN PntOSale.apx
> > > SET VAR vSellPrice CURRENCY = .vExtCrGross
> > > SELECT ItemName,ItemBrand,ModelNumb,ProdServDesc INTO +
> > > vItemName IND vi1, +
> > > vBrand IND vi2, +
> > > vModel IND vi3, +
> > > vProdServDesc IND vi4 +
> > > FROM ProductsServices +
> > > WHERE ProdServID = .vProdServID
> > > ENDIF
> > > UPDATE TranDetail SET +
> > > UnitCr = .vUnitCr, +
> > > UnitDr = .vUnitDr, +
> > > TaxRate = .vTaxRate, +
> > > TaxAmtTD = .vTaxAmt, +
> > > ExtCrNet = .vExtCrNet, +
> > > ExtCrGross = .vExtCrGross +
> > > WHERE DetailID = .vDetailID
> > > SELECT SUM(ExtCrGross) INTO +
> > > vSalePrice IND vi1 +
> > > FROM TranDetail +
> > > WHERE HeaderID = .vTranID_I
> > > SAVEROW
> > > NEXTROW
> > > RECALC TABLES
> > > RECALC VARIABLES
> > > RETURN
> > >
> > > As you can see I've thrown SAVEROWs and RECALC TABLES and RECALC
> > > VARIABLES at it in places they logically should not be needed an
> > > attempt to solve
> > the
> > > problem to no avail.
> > >
> > >
> > > Warmest regards,
> > >
> > >
> > > Tom Grimshaw
> > > coy: Just For You Software
> > > tel: 612 9552 3311
> > > fax: 612 9566 2164
> > > mobile: 0414 675 903
> > >
> > > post: PO Box 470 Glebe NSW 2037 Australia
> > > street: 3/66 Wentworth Park Rd Glebe NSW 2037
> > >
> > > email: [EMAIL PROTECTED]
> > > web: www.just4usoftware.com.au
> > >
> > > "... the control of impulse -- is the first principle of
> > > civilization."-- Will Durant, Pulitzer Prize winning philosopher,
> > > writer and historian
> > >
> > > the most needed product in the world can be found at
> > > www.thewaytohappiness.org
> > >
> > > This email and any files transmitted with it are confidential to
> > > the intended recipient and may be privileged. If you have received
> > > this email inadvertently or you are not the intended recipient,
> > > you may not disseminate, distribute, copy or in any way rely on
> > > it. Further, you
> > should
> > > notify the sender immediately and delete the email from your
> > > computer. Whilst we have taken precautions to alert us to the
> > > presence of computer viruses, we cannot guarantee that this email
> > > and any files transmitted
> > with
> > > it are free from such viruses.
> > >
> > > ================================================
> > > TO SEE MESSAGE POSTING GUIDELINES:
> > > Send a plain text email to [EMAIL PROTECTED]
> > > In the message body, put just two words: INTRO rbase-l
> > > ================================================
> > > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > > ================================================ TO SEARCH
> > > ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/
> > >
> >
> >
> > ================================================
> > TO SEE MESSAGE POSTING GUIDELINES:
> > Send a plain text email to [EMAIL PROTECTED]
> > In the message body, put just two words: INTRO rbase-l
> > ================================================
> > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > ================================================ TO SEARCH ARCHIVES:
> > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> >
>
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In
> the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================ TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
