Hi David

Thanks, I probably wouldn't go back either, but there are a few frutrating things in VFP8...anyway, the code is as follows. The case statement that was executed is for mnOption=1. Yes these forms were converted from 2.6 using a neat converter that I had to tweak a bit to work satisfactorily:

PRIVATE mlTaxInv, mcReps, i
* set by rep07/rep03
mlTaxInv=.f.
mcReps=''

do case
case mnOption=1
for i=1 to 10
mcReps=mcReps+iif(maSR[i], 'Y', 'N')
endfor

=WriteLog('Standard reports ['+mcReps+']')

* printer prompts
if maSR[50]
mcPrompt='prompt'
else
mcPrompt=''
endif

if maSR[1]
set message to 'Pay Input Audit Trail'
do rep01
endif

if maSR[2]
set message to 'Payroll Summary Report'
do rep02
endif

if maSR[3]
set message to 'Payslips'
if inlist(company.pstype, 3, 5, 6)
* use cItem cursor for all employees in one go
do rep07
else
* use cPayslip cursor - one per employee
do rep03 with .f.
endif

* print any tax invoices
if mlTaxInv
do rep03 with .t.
endif
endif

if maSR[4]
set message to 'Allowance/deduction/banking schedules'
do rep04
endif

if maSR[5]
set message to 'Ledger account analysis'
do rep05
endif

if maSR[6]
set message to 'Enterprise analysis'
do rep06
endif

if maSR[7]
set message to 'Employer schedules'
do rep08
endif

set message to

=messagebox('Your selected reports have been produced.','Status',64)

case mnOption=2
set safety off
save to masr all like maSR
set safety on

mlModified=.f.
thisform.refresh26()
thisform.refresh()

case mnOption=3
help

otherwise
thisform.release()
endcase


Matt.