.input ap4020, 5, 34
.placement 3, 5
.title ' A/P Transaction Posting ', highlight
.paint _
 
.text Text1, pos(1,10)
Account
.text Text2, pos(1,23)
Div
.text Text3, pos(1,28)
Dept
 
.field apacct, a6, pos(2,1), prompt("A/P"), fpos(2,11), -
 help(APINVPST), user("#Drill/Req#"), drill_method("GLACCT_FIND")
.field apacct_div, a4, fpos(2,23), -
 help(APINVPSTDIV)
.field apacct_dept, a4, fpos(2,28), -
 help(APINVPSTDPT)

.field ccdacct, a6, pos(3,1), prompt("Cred card"), fpos(3,11), -
 help(APCCDPST), user("#Drill/Req#"), drill_method("GLACCT_FIND")
.field ccdacct_div, a4, fpos(3,23), -
 help(APCCDPSTDIV)
.field ccdacct_dept, a4, fpos(3,28), -
 help(APCCDPSTDPT)
 
.field cshacct, a6, pos(4,1), prompt("Cash"), fpos(4,11), -
 help(APCSHPST), user("#Drill/Req#"), drill_method("GLACCT_FIND")
.field cshacct_div, a4, fpos(4,23), -
 help(APCSHPSTDIV)
.field cshacct_dept, a4, fpos(4,28), -
 help(APCSHPSTDPT)
 
.field dscacct, a6, pos(5,1), prompt("Discount"), fpos(5,11), -
 help(APDSCPST), user("#Drill/Opt#"), drill_method("GLACCT_FIND")
.field dscacct_div, a4, fpos(5,23), -
 help(APDSCPSTDIV)
.field dscacct_dpt, a4, fpos(5,28), -
 help(APDSCPSTDPT)
 
.end
;;
;===ap4000============================================================ 
.input ap4000i, 15, 66
.placement 1, 1
.title ' Invoice Entry ', highlight
.line Line1, 66, pos(4,1), horizontal
.paint _

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

.field invcnum, a12, pos(2,1), prompt("Invoice number"), fpos(2,20), -
 help(APINVNUM), required, arrive_method("ANYFLD_ARRIVE"), -
 change_method("ANYFLD_CHANGE"), drill_method("AP4000_RECUR"), -
 info("FIND(Lookup)")

.field type, a1, pos(3,1), prompt("Type"), fpos(3,20), -
 help(APTRTYPE), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"1-Invoice","2-Prepaid","3-CR memo","4-Wire transfer", -
 "5-Credit Card","9-Void check")

.field termsc, a3, pos(5,1), prompt("Terms code"), fpos(5,20), -
 help(APTRANTC), copy, user('#Drill/Req/Y#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)"), -
 arrive_method("ANYFLD_ARRIVE")
.field termsc_descr, a25, fpos(5,26)

.field invdate, d8, pos(6,1), prompt("Invoice date"), fpos(6,20), -
 help(APINVCDATE), date(today), change_method("ANYFLD_CHANGE")

.field duedate, d8, pos(7,1), prompt("Due date"), fpos(7,20), -
 help(APDUEDTE), date, required

.field dscdate, d8, pos(8,1), prompt("Discount date"), fpos(8,20), -
 help(APDSCDTE), date

.field dstdate, d8, pos(9,1), prompt("Distribution date"), fpos(9,20), -
 help(APESPDTE), date, required, change_method("ANYFLD_CHANGE")

.field invamt, d9.2, pos(10,1), prompt("Invoice amount"), fpos(10,20), -
 help(APINVAMT), format("Z,ZZZ,ZZZ.XX-"), negative, required, -
 change_method("ANYFLD_CHANGE")

.field netamt, d8.2, pos(11,1), prompt("Non-discount amt"), fpos(11,20), -
 help(APNETAMT), format("ZZZ,ZZZ.XX-"), negative, -
 change_method("ANYFLD_CHANGE")

.field discamt, d8.2, pos(12,1), prompt("Discount amount"), fpos(12,20), -
 help(APDSCAMT), format("ZZZ,ZZZ.XX-"), negative, -
 change_method("ANYFLD_CHANGE")

.field pono, d6, pos(13,1), prompt("Purchase order"), fpos(13,20), -
 help(APPONUM), change_method("ANYFLD_CHANGE")

.field invdesc, a25, pos(14,1), prompt("Invoice comments"), fpos(14,20), -
 help(APINVDESC), arrive_method("ANYFLD_ARRIVE")

.field checkno, d6, pos(15,1), prompt("Check number"), fpos(15,20), -
 help(APCHKNUM)

.field checkdt, d8, pos(15,30), prompt("Check date"), fpos(15,42), -
 help(APCHKDTE), date(today), change_method("ANYFLD_CHANGE")

.field userid, a3, fpos(1,64)

.structure rec1, <2>,vendor,invcnum,type,<4>,invdate,termsc,-
	duedate,dscdate,dstdate,invamt,netamt,discamt,checkno,-
	checkdt,<6>,pono,invdesc,<7>,userid
.set set_add, rec1, vendor,invcnum,type,termsc,invdate,duedate,-
	dscdate,dstdate,invamt,netamt,discamt,pono,invdesc,checkno,checkdt
.set set_chg, rec1, termsc,invdate,duedate,-
	dscdate,dstdate,invamt,netamt,discamt,pono,invdesc,checkno,checkdt
.set set_show, rec1, vendor,invcnum,type,termsc,invdate,duedate,dscdate,-
	dstdate,invamt,netamt,discamt,pono,invdesc,checkno,checkdt,userid
.button detl, text("Entries")
.button_set bottom, end
.end
;
; 
