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.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement