
.script
;
;=============================================================== 
.input ap6300, 8, 64
.placement 1, 1
.title ' Aged Trial Balance ', highlight
.paint _

.field agedat, d8, pos(1,1), prompt("Aging date"), fpos(1,22), -
 help(APAGEDAT), date(today)

.field cutoff, d8, pos(2,1), prompt("Cut-off date"), fpos(2,22), -
 help(APASOFDT), date(today)

.field mode, a1, pos(3,1), prompt("Report sequence"), fpos(3,22), -
 help(APTBMODE), select(1,3,,"ID","Name")

.field detail, a1, pos(4,1), prompt("Report type"), fpos(4,22), -
 help(APTBDORS), select(1,3,,"Detail","Summary","Totals")

.field strven, d8, pos(5,1), prompt("Starting vendor"), fpos(5,22), -
 help(APSTRVEN), default(0), user('#Drill/All/V#'), info("FIND(Lookup)"), -
 drill_method("apvend_find"), change_method("namast_change") 
.field strven_descr, a30, fpos(5,33)

.field endven, d8, pos(6,1), prompt("Ending vendor"), fpos(6,22), -
 help(APENDVEN),default(99999999),user('#Drill/All/V#'),info("FIND(Lookup)"), -
 drill_method("apvend_find"), change_method("namast_change") 
.field endven_descr, a30, fpos(6,33)

.field strgrp, d2, pos(7,1), prompt("Starting group"), fpos(7,22), -
 help(APSTRGRP), default(0)

.field endgrp, d2, pos(8,1), prompt("Ending group"), fpos(8,22), -
 help(APENDGRP),default(99)

.structure rec1, agedat,cutoff,mode,detail,strven,endven,strgrp,endgrp
.set set1, rec1, agedat,cutoff,mode,detail,strven,endven,strgrp,endgrp
.end
;
; 
