| Subject | Re: requery problem (semi reason) |
| From | Andy Taylor <andy.taylor.1959@outlook.com> |
| Date | Tue, 21 Jul 2020 05:02:16 -0400 |
| Newsgroups | dbase.getting-started |
| Attachment(s) | ZapOrEmpty.wfm |
Tony, form.YourQueryName.active = false will remove the table usage via the query. form.YourQueryName.active = true will start it again. In your previous thread I posted the attached form (ZaporEmpty.wfm) which used this technique. Please look at that form again and come back with any questions - we've all been in your learning curve. :-) Andy > I have written the following code and need to "empty Table" after the print is finished - The code included does it all except emptying the table for next printing session. A couple of trial coding at the end but I get errors. I need to change from "query" to exclusive use I think, but not sure how ?? > > Tony h > > function PUSHBUTTON1_onClick() > // Print Batch Report for Batcher > > Public Ingnum, Batchsize, FormName > Public Pcode1, Pcode2, Pcode3, Pcode4, Pcode5, Pcode6, Pcode7, Pcode8 > Public Pcode9, Pcode10, Pcode11, Pcode12,Pcode13, Pcode14, Pcode15 > Public ingrval1, ingrval2, ingrval3, ingrval4, ingrval5, ingrval6 > Public ingrval7, ingrval8, ingrval9, ingrval10, ingrval11, ingrval12 > Public ingrval13, ingrval14, ingrval15, rCount, pCount, dCount > FormName = \" \" > > use EXCLUSIVE batch.dbf > > // form.rowset = form.batch1.rowset > > ingnum = 0 > // Set up printer for report on Batch Ingredients > form.batch1.rowset.first() > rCount = form.batch1.rowset.count() > // rCount = 6 > pCount = rCount > dCount = rCount > form.Batch1.rowset.first() > if rCount > 0 > FormName = form.batch1.rowset.fields[\"FormName\"].value > BatchSize = form.batch1.rowset.fields[\"BatchSize\"].value > Scode1 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval1 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode2 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval2 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode3 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval3 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode4 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval4 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode5 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval5 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode6 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval6 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > > if rCount > 0 > Scode7 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval7 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode8 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval8 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode9 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval9 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode10 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval10 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode11 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval11 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode12 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval12 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode13 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval13 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > > if rCount > 0 > Scode14 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval14 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > if rCount > 0 > Scode15 = form.batch1.rowset.fields[\"Scode1\"].value > Ingrval15 = form.batch1.rowset.fields[\"ingrval1\"].value > > form.batch1.rowset.next() > rCount = rCount -1 > endif > > choosePrinter() > _copies=2 > _peject=\"None\" > _plineno=3 > _pmargin=3 > ingnum = 3 > set printer on > // msgbox(\"Printer On\") > set margin to 10 > > printjob > ? \" \" + FormName + Date() > ? > ? > ? \" Ingredient Amt\" + \" Stock Code \" + \" Batch Size \" > ? > ? > if pCount > 0 > ? Ingrval1 Picture \"999.999\" + \" \" + Scode1 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval2 Picture \"999.999\" + \" \" + Scode2 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval3 Picture \"999.999\" + \" \" + Scode3 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval4 Picture \"999.999\" + \" \" + Scode4 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval5 Picture \"999.999\" + \" \" + Scode5 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval6 Picture \"999.999\" + \" \" + Scode6 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval7 Picture \"999.999\" + \" \" + Scode7 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval8 Picture \"999.999\" + \" \" + Scode8 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval9 Picture \"999.999\" + \" \" + Scode9 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval10 Picture \"999.999\" + \" \" + Scode10 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval11 Picture \"999.999\" + \" \" + Scode11 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval12 Picture \"999.999\" + \" \" + Scode12 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval13 Picture \"999.999\" + \" \" + Scode13 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval14 Picture \"999.999\" + \" \" + Scode14 + \" \" + BatchSize > pCount = pCount - 1 > endif > ? > if pCount > 0 > ? Ingrval15 Picture \"999.999\" + \" \" + Scode15 + \" \" + BatchSize > pCount = pCount - 1 > endif > > _app.databases[ 1 ].emptyTable( \"Batch\" ) > > // use EXCLUSIVE batch.dbf > > endprintjob > close printer > set printer off > > > > > //ZAP > return | |