
DO SET_MENU

= GET_PNAM('WARRANTY CLAIM FORM')

DEFINE WINDOW LWFRMTO FROM 0,0 TO 14,78 
ACTIVATE WINDOW LWFRMTO
MOVE WINDOW LWFRMTO CENT

*DO WAIT_MSG
WAIT WIND '!!! WAIT !!! GATHERING DATA USING SQL ...' NOWA


* write query

IF _TALLY > 0
	WAIT WINDOW 'GENERATING REPORT.........' NOWAIT
	DO PRINREPO WITH 'WWAR_CLAI','WAR_CLAI','','',0,.F.
ENDIF

DO CLS_MENU