Maybe the working stuff inside the form engine is out of place. Unload and reload the form to a different name. The reloading should place every thing in the proper place. Compare action of both forms; same or different? RRR
----- Original Message ----- From: "Tom Grimshaw" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, September 11, 2002 2: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/
