private kms_1,kms_2,kms_3,kms_4,kms_5,kms_6
private date_1,date_2,date_3,date_4,date_5,date_6
store 0 to kms_1,kms_2,kms_3,kms_4,kms_5,kms_6
store {  /  /  } to date_1,date_2,date_3,date_4,date_5,date_6
do set_menu
= get_pdt('WARRANTY CLAIM FORM')
do wait_msg
set orde to issue_no in issuebod
sele issue
set rela to issue_no into issuebod
set skip to issuebod
sele client
set orde to dealer_cod in dealer
set rela to dealer_cod into dealer addi
sele issuebod
set orde to item_no in itemmast
set rela to item_no into itemmast addi
sele job_mast
set orde to client_no in client
set rela to client_no into client addi
set orde to jobcard_no in issue
set rela to jobcard_no into issue addi
set skip to issue
set orde to common_no in common
set rela to jobcard_no + 'M' into common addi
use (year_path) + 'COMMON' orde common_no in 0 agai alia common_a
set rela to jobcard_no + 'R' into common_a addi
loca for betw(job_mast.job_dt,date1,date2) ;
		and issuebod.warranty = 'C'
if ! found()
	deac wind wait
	do alert with '!!! ATTENTION !!!;No Job Card found with Given Condition'
else
  do prinrepo with 'WWR_CLAI','WR_CLAIM',"betw(job_mast.job_dt,date1,date2) and inli(job_mast.SERVICETYP,'W','F') and job_mast.category = 'W' and issuebod.warranty = 'C'",'','','.T.'
endif
set skip to 
set rela off into issue
set rela off into client
set rela off into common
set rela off into common_a
use in common_a
sele issuebod
set rela off into itemmast
sele client
set rela off into dealer
sele issue
set rela off into issuebod
do cls_menu