SELECT TRANSECT 
GO TOP
SET FILTER TO SOURCE = 'TR'
GO TOP
REPLACE ALL voucher_no WITH SUBSTR(voucher_no,1,3) + PADL(ALLTRIM(SUBSTR(voucher_no,4)),LEN(voucher_no) -3,'0')
SELECT TRANSECT 
SET FILTER TO 
