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/
