Tom, I have a mostly working POS Form and DB that I did in 95-96 for demo to a lumber co. It all zips to about 970K. The Form works pretty good with the Item detail displayed at the top with the line item details enumerated in the lower part of the form. It sums as items are added and you can remove items from the detail section easily. The form can even be used to return items to inventory. It saves incomplete sales as estimates to be retrieved later for dispensation (sale or delete), blah, blah. You are welcome to the whole bailiwick if it will help you stay dry.....
----- 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/
