zoom/DEL_VOU.PRG at master · devraj/zoom · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
hide menu main
hide popup all
@ 0,1 say"Delete old vouchers" color r/w
store 0 to confirm
do confirm in looks
if confirm=0 .or. confirm=2
 close all
 clear window all
 do ctop in looks
 return .t.
endif
_update=zoom_date-60
define window del from 1,0 to 9,60 double shadow
move window del center
activate window del
@ 1,4 say"Zoom Suite 6 is now deleting all old vouchers."
@ 2,4 say"Status: Preparing ..."
@ 4,4 to 6,54
use &data\vouchers shared
_rec=reccount()
_limit=round(_rec/46,0)
_col=5
go top
store 0 to _cntr
@ 2,4 say"Status: Finding and deleting orders ..."
do while .not. eof()
 if vou_date<=_update
  delete
 endif
 _cntr=_cntr+1
 if _cntr>=_limit
  @ 5,_col say"þ" color gr+/b+
  store 0 to _cntr
  store _col+1 to _col
 endif
 skip
enddo
@ 2,4 say"Status: Winding up !                       "
close all
deacti window all
clear window all
do ctop in looks
return .t.