'RS1 - cross-tabs data by entry period

external	fentrybox() vloadif()

public	ptstr $per

global	x


MAIN
while true
repaint off
' repaint
single-step off
	vloadif("sun_bu.vws")

	x = fentrybox(" Enter Period to summarise for ",7,"","")
    	if x = -1
     	continue while
	end if
     $per = ptstr

	order change key "[jnl_nr]"
     data query execute "sunbupd.dfq" index "sun_pu.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' ³ QUERY is:  [acc_perd]=$per                                        ³
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	data cross-tab execute "sunbu" smart4 $per
end while