home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.databases.paradox      To crash or not to crash, asks Borland      9,834 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 9,691 of 9,834   
   Jim Giner to Kenneth   
   Re: Report print problem...?   
   07 Apr 09 09:54:51   
   
   From: jim.giner@suny.edu   
      
   During your trial and error(s), you probably have a "hidden" report on your   
   desktop.  Remove the hide parm of the load and debug your script - that way   
   you'll know if you have something still open on that table.   
   "Kenneth"  wrote in message   
   news:gjkmt4tapc4qkaq35ht3mt05rgpmqbqins@4ax.com...   
   > On 6 Apr 2009 17:03:39 -0400, "Jim Moseley"   
   >  wrote:   
   >   
   >>   
   >>Kenneth,   
   >>   
   >>You need to test the result of the Save().   
   >>   
   >>But, really, why are you saving the report?  Since you used Load(), you   
   >>can   
   >>adjust it however you want, then directly Run() it.   
   >>   
   >>Also, if this is a multi-user application, you might be overwriting each   
   >>other's report.   
   >>   
   >>Here's my suggested fix:   
   >>   
   >>;r.save()    ; <- do not need   
   >>;if not r.close() then; ; <- do not need   
   >>; errorShow() ; <- do not need   
   >>;return   ; <- do not need   
   >>;endIf   ; <- do not need   
   >>   
   >>if not r.run() then    ; <- add   
   >>   errorShow()         ; <- add   
   >>   return              ; <- add   
   >>endif                  ; <- add   
   >>   
   >>if not r.print(":MONEY:Invoice") then   
   >> errorShow()   
   >> return   
   >>endIf   
   >>   
   >>   
   >>HTH,   
   >>Jim Moseley   
   >   
   > Hi Jim,   
   >   
   > I'm making progress (of a sort), but the report still won't   
   > print.   
   >   
   > Here's the current code:   
   >   
   >   
   > qInv = Query   
   >   
   > ANSWER: :MONEY:INVOICE.DB   
   >   
   > :MONEY:INVOICES.DB | Num          | InvNumber           | Replaces | Last   
   > | First  |   
   > | Check _join1 | Check ~newInvNumber | Check |   
   > Check as LastNameField  | Check  |   
   >   
   > :MONEY:INVOICES.DB | Adr    | Purpose | InvDate | DueDate | DUE    |   
   > RECEIVED |   
   > | Check  | Check   | Check   | Check   | Check   
   > | Check    |   
   >   
   > :MONEY:INVOICES.DB | Balance | Tag    | Comment | ReplaceNote |   
   > | Check   | Check  | Check   | Check       |   
   >   
   > ADDRESS.DB | Num    | L7     | L6     | L5     | L4     | L3   
   > | L2     |   
   >   | _join1 | Check  | Check  | Check  | Check  | Check   
   > | Check  |   
   >   
   > ADDRESS.DB | L1     | City   | State  | Zip    | Inv  |   
   >   | Check  | Check  | Check  | Check  | True |   
   >   
   > EndQuery   
   >   
   >   
   > if not executeQBE(qInv) then   
   > errorShow()   
   > return   
   > endIf   
   >   
   > if not r.load(":MONEY:Invoice",winStyleHidden) then   
   > errorShow()   
   > sleep(2000)   
   > return   
   > endIf   
   >   
   > r.pastDueText.visible=FALSE   
   > r.pastDueBox.visible=FALSE   
   > r.balanceLabel.visible=FALSE   
   > r.balance.FONT.COLOR=WHITE   
   > r.receivedLabel.visible=FALSE   
   > r.received.FONT.COLOR=WHITE   
   > r.matures.visible=true   
   > r.line.visible=false   
   >   
   > if not r.run()   
   > then   
   >   errorShow()   
   >      return   
   > endIf   
   >   
   > if not r.print(":MONEY:Invoice") then   
   > errorShow()   
   > return   
   > endIf   
   >   
   >   
   > When I run the code, I get an error on the query telling me   
   > that it can't run because its destination table,   
   > :MONEY:INVOICE.DB, is "in use."   
   >   
   > Nothhing anywhere else points to that table, so I am having   
   > trouble understand how it could be "in use." (And, when I   
   > try to open it manually, it opens properly, and appears   
   > empty.)   
   >   
   > What might be an appropriate next step in sorting this out?   
   >   
   > Many thanks, as before,   
   > --   
   > Kenneth   
   >   
   > If you email... Please remove the "SPAMLESS."   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca