'WKLYCASH - Monday morning routine to list cash received in past 7 days

external   vkeybox() sch scw progress() messbox() vloadif() cpath statemntpath
external   vunloadif() dpath fentrybox() chkdate() remove()
external   findpopup() messboxwait() $drive Background()
external   _SWIP_Crystal() lpath

public     ptstr choice sum_date br_name psa dsa #banking strtdate end_date $date $pdf X_path Xreppath

global     x DailyCash() i


MAIN
single-step off

'	lpath="C:\srvrprog\lib\"          'function library path

	load lpath|"swip.rf3" in-memory

	X_path = "C:\SW2000\Xtal_data\"             'data for Crystal reports
	Xreppath="C:\SW2000\XReports\"

'	Background()

	strtdate=days(today)-30
	end_date=days(today)-1

' 	x=date2(end_date)						'message "x is:"&str(x)
' 	$date=left(date2(end_date),2)				'message "$date is:"&str($date)
	$date=left(date2(end_date),2)|mid(date2(end_date),4,2)|right(date2(end_date),2)	' message "$date is:"&str($date)
  	$pdf=statemntpath|"WE"|$date|".pdf"        'message "$pdf is:"&str($pdf)

	x=remove($pdf)							'message "x is:"&str(x)

	DailyCash()

	file unload all

'  	Background()

END MAIN


FUNCTION DailyCash()     ' show keybox() listing each shop (& ALL)
' local br_dir repdate cashrep

'    	if dayname(today)="Monday"
	  	vloadif(dpath|"cashrcvd.vws")
    		order change key "[Date_Of_Receipt]"
		progress(15,10," Preparing Weekly Cash Received Report ",0)
    		data query execute "wklycash.dfq" index "totcash2.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' days([Date_Of_Receipt])>=strtdate
' and
' days([Date_Of_Receipt])<=end_date
'   and
'   not (deleted)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    		if cerror
      		messboxwait(" No Cash/cheques to summarise/pay in ",0,0,1)
      		return (1)
    		end if

    		remove("X_wkycsh.*")
		data cross-tab execute "wklycash.dfw" Smart4 "X_wkycsh"
 		progress(15,10," Please wait ... preparing Weekly Cash report ",0)

    		vunloadif("Xwklycsh.vws")
    		remove(X_path|"Xwklycsh.*")
      	data query execute "not_del.dfq" Smart4 X_path|"Xwklycsh" fields "[wklycash;FULHAM;PUTNEY;RAYNES;SHEEN;Warehouse;Total]"
    		vunloadif("X_cshrcd.vws")

' 	     _SWIP_Crystal(Xreppath|"wklycash","S",0,1,"") ' draft report

		x=_SWIP_Crystal(Xreppath|"wklycash","EP",0,1,$pdf)		'message "x is:"&str(x)
		vloadif(dpath|"cshrcvd1.vw")

 '   	end if
END FUNCTION ' DailyCash()