
;=============================================================== 
.input ap4500, 9, 70
.placement 6, 5
.title ' Manually Pay Invoice ', highlight
.line Line1, 70, pos(4,1), horizontal
.line Line2, 6, pos(4,38), vertical
.paint _

.field vendor, d8, pos(1,1), prompt("Vendor ID"), fpos(1,20), -
 help(APTRANVN), user('#Drill/Req/V#'), info("FIND(Lookup)"), -
 drill_method("APVEND_FIND"), change_method("NAMAST_CHANGE")
.field vendor_descr, a30, fpos(1,30)

.field vochnum, d6, pos(2,1), prompt("Voucher number"), fpos(2,20), -
 help(APVOCHNO), default(999999)

.field invcnum, a12, pos(3,1), prompt("Invoice number"), fpos(3,20), -
 help(APINVCNO), default("*"), -
 arrive_method("ANYFLD_ARRIVE")

.field status, a1, pos(3,40), prompt("Status"), fpos(3,48), -
 arrive_method("ANYFLD_ARRIVE")
.field status_descr, a20, fpos(3,50)

.field invdate, d8, pos(5,1), prompt("Invoice date"), fpos(5,20), -
 date

.field duedate, d8, pos(6,1), prompt("Due date"), fpos(6,20), -
 date

.field invamt, d9.2, pos(7,1), prompt("Invoice amount"), fpos(7,20), -
 negative, format("Z,ZZZ,ZZZ.XX-")

.field discamt, d8.2, pos(8,1), prompt("Discount amount"), fpos(8,22), -
 format("ZZZ,ZZZ.XX-")

.field paytype ,a1, pos(5,40), prompt("Pay type"), fpos(5,56), -
 help(APPAYTP), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"0=Check","1=Wire transfer","2=Credit card")
.field pay_descr, a11, fpos(5,58)
 
.field checkno, d6, pos(6,40), prompt("Check number"), fpos(6,56), -
 help(APCHKNUM), change_method("ANYFLD_CHANGE")

.field checkdt, d8, pos(7,40), prompt("Check date"), fpos(7,56), -
 help(APCHKDTE), date(today), required

.field chkamt, d9.2, pos(8,40), prompt("Check amount"), fpos(8,56), -
 help(APCHKAMT), copy, format("Z,ZZZ,ZZZ.XX-"), required, negative

.field disctakn, d8.2, pos(9,40), prompt("Discount taken"), fpos(9,56), -
 help(APCHKDSC), format("ZZZ,ZZZ.XX-"), negative

.structure rec1, <2>,vendor,vochnum,<1>,invcnum,invdate,<3>,duedate,-
	<8>,invamt,discamt,status,checkno,checkdt,chkamt,disctakn,<53>,paytype
.set set_chg, rec1, paytype,checkno,checkdt,chkamt,disctakn
.set set_show, rec1, vendor,vochnum,invcnum,invdate,duedate,-
	invamt,discamt,status,paytype,checkno,checkdt,chkamt,disctakn
.end
;
; 
