.script
;
;=============================================================== 
.input ar6800, 4, 35
.placement 3, 25
.title ' A/R to G/L Distribution Report ', highlight
.paint _

.field enddat, d8, pos(1,1), prompt("Period-ending date"), fpos(1,22), -
 help(ARGLPRDT), date(today)

.field stracct, a6, pos(2,1), prompt("Starting account"), fpos(2,22), -
 help(ARSTRACCT), default("*")

.field endacct, a6, pos(3,1), prompt("Ending account"), fpos(3,22), -
 help(ARENDACCT), default("*")

.field totals, a1, pos(4,1), prompt("Totals only"), fpos(4,22), -
 help(ARTOTALS), selwnd(1,3,'NOYES')

.structure rec1, enddat,stracct,endacct,totals
.set set1, rec1, enddat,stracct,endacct,totals
.end
;

;=============================================================== 
.input ar8800, 2, 32
.placement 3, 5
.title ' Import Maestro Data ', highlight
.paint _

.field begdat, d8, pos(1,1), prompt("Starting date"), fpos(1,18), -
 help(ARSTRDAT), date(today)

.field endoff, d8, pos(2,1), prompt("Ending date"), fpos(2,18), -
 help(ARENDDAT), date(today)

.end
;
;=============================================================== 
.input ar8400, 5, 45
.placement 3,35
.title ' Clear A/R to G/L Distribution ', highlight
.paint _

.text Text1, pos(1,2)
This procedure clears all G/L distribution 
.text Text2, pos(2,2)
    records through the date entered.

.field enddat, d8, pos(4,5), prompt("Period-ending date"), fpos(4,27), -
 help(ARGLPUDT), date(today)

.field confirm, a3, pos(5,5), prompt("Confirm"), fpos(5,27), -
 help(UTCONFRM), default("NO"), uc, allow(YES,NO), match(exact)

.end
;