Arctic reports (reporting system - Windows)

Developed or developing a new product in PureBasic? Tell the world about it.
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Re: Arctic reports (reporting system - Windows)

Post by srod »

Hi,

the SQL only needs an '=' at the beginning if it is in the form of an nxReport expression which does not seem to be the case here (at least not with the code you have listed) and so I do not know the reason for the failure to preview?

As for the crash, I have had exactly the same problem you have described only on XP when using PB's drawing commands with those theming library calls.
I may look like a mule, but I'm not a complete ass.
User avatar
captain_skank
Enthusiast
Enthusiast
Posts: 636
Joined: Fri Oct 06, 2006 3:57 pm
Location: England

Re: Arctic reports (reporting system - Windows)

Post by captain_skank »

Hi Srod,

when using :

Code: Select all

report\PrintWithDialog()
is there any way to specify the position of the printer dialogue window ??

windows seems to be arbitrarily popping it up anywhere.
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Re: Arctic reports (reporting system - Windows)

Post by srod »

Afraid not. I would need to over-ride the dialog template which is not something I think worth doing in this case.
I may look like a mule, but I'm not a complete ass.
User avatar
captain_skank
Enthusiast
Enthusiast
Posts: 636
Joined: Fri Oct 06, 2006 3:57 pm
Location: England

Re: Arctic reports (reporting system - Windows)

Post by captain_skank »

Ah, thought the might be the case.

Ok i've kludged up a workaround using a thread

Code: Select all

Procedure check_for_print_dialog()
  
  Repeat
    ; find windows...
    Debug "checking"
  EnumWindows_(@EnumProcedure(), 0)  ; the 0 will be passed in Paremeter.l to the procedure
  Until EnumWindows_(@EnumProcedure(), 0) = 0
  
EndProcedure

Procedure.l EnumProcedure(WindowHandle.l, Parameter.l)
 
  ; get Title by windowhandle...
  Title$ = Space(200)
  GetWindowText_(WindowHandle, @Title$, 200)
 
  ; do whatever to check...
  If Title$ = "Print"
    
    ExamineDesktops()
    
    WindowRect.RECT
    GetWindowRect_(WindowHandle, WindowRect)
     
    x = (DesktopWidth(0)/2) - ((WindowRect\right - WindowRect\left)/2)
    y = (DesktopHeight(0)/2) - ((WindowRect\bottom - WindowRect\top)/2)
    
    SetWindowPos_(WindowHandle, #HWND_TOP, x, y, #NUL, #NUL, #SWP_NOSIZE); 
    BringWindowToTop_(WindowHandle)
    
    ; returning 0 will stop the search
    ProcedureReturn 0
  Else
 
    ; returning <> 0 will continue till all windows are searched
    ProcedureReturn 1
  EndIf
 
EndProcedure

Most of the above code was originaly coded by FREAK, which i hacked around a bit

I then place

Code: Select all

my_thread = CreateThread(@check_for_print_dialog(), 153)
before i use

Code: Select all

report\PrintWithDialog()
which works, but will probably have a mare if multiple print windows are open. :)

Quite proud of myself with this as i've never used a thread before :P
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Re: Arctic reports (reporting system - Windows)

Post by srod »

Nice one. Well done. :)
I may look like a mule, but I'm not a complete ass.
sphinx
Enthusiast
Enthusiast
Posts: 120
Joined: Thu Oct 26, 2006 6:34 pm
Contact:

Re: Arctic reports (reporting system - Windows)

Post by sphinx »

srod, any news about bar code support?!
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Re: Arctic reports (reporting system - Windows)

Post by srod »

No news I'm afraid. Too busy with non-coding endeavours at the moment.
I may look like a mule, but I'm not a complete ass.
sphinx
Enthusiast
Enthusiast
Posts: 120
Joined: Thu Oct 26, 2006 6:34 pm
Contact:

Re: Arctic reports (reporting system - Windows)

Post by sphinx »

:(

Anyway, best of luck!
User avatar
falsam
Enthusiast
Enthusiast
Posts: 630
Joined: Wed Sep 21, 2011 9:11 am
Location: France
Contact:

Re: Arctic reports (reporting system - Windows)

Post by falsam »

Hi srod. Is artic report (Pyrex) dead ?

➽ Windows 11 64-bit - PB 6.0 x64 - AMD Ryzen 7 - NVIDIA GeForce GTX 1650 Ti

Sorry for my bad english and the Dunning–Kruger effect.
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Re: Arctic reports (reporting system - Windows)

Post by srod »

It is gathering dust at the moment for sure. Reluctant to say that it is dead considering the effort involved in creating the thing, but I can't see it going anywhere any time soon. :)
I may look like a mule, but I'm not a complete ass.
sphinx
Enthusiast
Enthusiast
Posts: 120
Joined: Thu Oct 26, 2006 6:34 pm
Contact:

Re: Arctic reports (reporting system - Windows)

Post by sphinx »

Release it?!
User avatar
captain_skank
Enthusiast
Enthusiast
Posts: 636
Joined: Fri Oct 06, 2006 3:57 pm
Location: England

Re: Arctic reports (reporting system - Windows)

Post by captain_skank »

Anybody know a way to force a report to print in DUPLEX ??

I can see that PrintToNamedPrinter() has a flags option but I dont think this is what these are intended for.

Can I set the duplex mode before calling PrintToNamedPrinter() ??

Any help appreciated.
nicolaus
Enthusiast
Enthusiast
Posts: 456
Joined: Tue Aug 05, 2003 11:30 pm
Contact:

Re: Arctic reports (reporting system - Windows)

Post by nicolaus »

@srod,

where i can find and download you report system?
Your web side www.nssoftware.com is offline.

Thanks,
Nico
imtcb
User
User
Posts: 12
Joined: Sun Jan 21, 2007 6:37 am

Re: Arctic reports (reporting system - Windows)

Post by imtcb »

@Nico,

Did srod get you information? I just sent him a PM in the hopes that he has alerts enabled and actually gets it.

Alternatively, does anyone else have a copy of the demo they could make available for me to download so I know for sure if this will meet my needs?

Thank you,
tcb
t57042
Enthusiast
Enthusiast
Posts: 203
Joined: Fri Feb 22, 2008 12:28 pm
Location: Belgium

Re: Arctic reports (reporting system - Windows)

Post by t57042 »

can anyone tell if this software still available?
richard
Post Reply