private lctmpwind

lctmpwind = sys(2015)

sele transect
set order to tran_no
set order to client_no in client
set order to account_no in ledger
set rela to transect.account2 into client addi
set rela to transect.account1 into ledger addi

defi wind (lctmpwind) from 1,1 to 23,80 
brow fields date :h= 'Date' :r,voucher_no :h='Voucher No.' :r ,;
     client.client :h = 'Client' :r,ledger.account :h='Credit A/c' :r,;
     cheque_no :h='Cheque No.' :r,;
     Amount :r;
     for source = 'JMR' ;
     in wind (lctmpwind) ;
     title 'Receipt for Credit Jobcards' ;
     noap node nomo nome ;

set rela off into ledger
set rela off into client