
.script
;
;=============================================================== 
.input na2001, 17, 78
.placement 1, 2
.title 'Vendor', highlight
.line Line1, 78, pos(2,1), horizontal
.line Line2, 8, pos(2,47), vertical
.line Line3, 32, pos(9,47), horizontal
.paint _
 
.field id, d8, pos(1,1), prompt("ID"), fpos(1,6)
.field name, a30, fpos(1,18)
 
.field status, a1, pos(3,1), prompt("Status"), fpos(3,16), -
 help(APVNSTUS), required, select(1,3,,"Active","Inactive")
 
.field v1099, a1, pos(4,1), prompt("Print 1099"), fpos(4,16), -
 help(APVN1099), required, selwnd(1,3,noyes)
 
.field hist, a1, pos(5,1), prompt("Retain history"), fpos(5,16), -
 help(APVNHIST), required, selwnd(1,3,yesno)
 
.field ssn, a11, pos(6,1), prompt("SSN or Fed ID"), fpos(6,16), -
 help(APVNFSSN)
 
.field term, a3, pos(7,1), prompt("Terms code"), fpos(7,16), -
 help(APVNTERM), copy, user('#Drill/Req/Y#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 hyperlink_method("SMCODE_HYPER"), info("FIND(Lookup) ... ^A(Maintenance)")
.field term_descr, a25, fpos(7,22)
 
.field contact, d2, pos(8,1), prompt("Contact"), fpos(8,16), -
 help(APVNCONT), user('#Drill/Opt#'), drill_method("NACONT_FIND"), -
 change_method("NACONT_CHANGE"), info("FIND(Lookup)")
.field contact_descr, a25, fpos(8,22), paint(" ")
 
.field contact_phone, a14, pos(9,6), prompt("Telephone"), fpos(9,16), -
 format('(@@@)@@@-@@@@/@@@@'), paint(" ")
 
.field contact_fax, a10, pos(10,6), prompt("Fax"), fpos(10,16), -
 format('(@@@)@@@-@@@@'), paint(" ")
 
.field defacct, a6, pos(11,1), prompt("Default acct"), fpos(11,16), -
 help(GLGENACT), user('#Drill/Opt#'), drill_method("GLACCT_FIND"), -
 change_method("GLACCT_CHANGE"), info("FIND(Lookup)")
.field defacct_descr, a30, fpos(11,25)
 
.field defdiv, a4, pos(12,1), prompt("Default div"), fpos(12,16), -
 help(GLDIVSNO), user('#Drill/Opt/1#'), drill_method("GLDIVS_FIND"), -
 change_method("GLDIVS_CHANGE"), info("FIND(Lookup)")
.field defdiv_descr, a28, fpos(12,23)
 
.field defdept, a4, pos(13,1), prompt("Default dept"), fpos(13,16), -
 help(GLDEPTNO), user('#Drill/Opt/2#'), drill_method("GLDEPT_FIND"), -
 change_method("GLDEPT_CHANGE"), info("FIND(Lookup)")
.field defdept_descr, a30, fpos(13,23)
 
.field def1099, a3, pos(14,1), prompt("Default 1099"), fpos(14,16), -
 help(AP1099CODE), selwnd(0,1,code1099)
 
.field oneinvc, a1, pos(15,1), prompt("One invc/check"), fpos(15,16), -
 help(APONEINVC), selwnd(1,3,noyes)
 
.field poreqd, a1, pos(16,1), prompt("PO required"), fpos(16,16), -
 help(APPOREQD), selwnd(1,3,noyes)
 
.field group, d2, pos(17,1), prompt("Group"), fpos(17,16), -
 help(APGROUP), required, default(01)

.field remit,  a1, pos(3,49), prompt("Remit To"), fpos(3,59), -
 help(APREMITTO), selwnd(1,3,noyes)
 
.field rname,  a30, fpos(4,49), -
 help(NANAME)
 
.field radd1, a30, fpos(5,49), -
 help(NAADDR1)
 
.field radd2, a30, fpos(6,49), -
 help(NAADDR2)
 
.field rcity, a20, pos(7,49), prompt("City"), fpos(7,55), -
 help(NAMCITY)
 
.field rstate, a2, pos(8,49), prompt("State"), fpos(8,55), -
 help(NASTATE), uc
 
.field rzip, a10, pos(8,58), prompt("Zip"), fpos(8,63), -
 help(NAMZIPCODE)
 
.structure rec1, <2>,id,<10>,contact,status,v1099,term,hist,ssn,<16>, -
        def1099,defacct,defdiv,defdept,rname,radd1,radd2,rstate,rcity, -
	rzip,remit,oneinvc,poreqd,group
.set set_add, rec1, status,v1099,hist,ssn,term,contact,defacct,defdiv, -
        defdept,def1099,oneinvc,poreqd,group,remit,rname,radd1,radd2,-
	rcity,rstate,rzip
.set set_chg, rec1, status,v1099,hist,ssn,term,contact,defacct,defdiv, -
        defdept,def1099,oneinvc,poreqd,group,remit,rname,radd1,radd2,-
	rcity,rstate,rzip
.set set_show, rec1, status,v1099,hist,ssn,term,contact,defacct, -
        defdiv,defdept,def1099,oneinvc,poreqd,group,remit,rname,radd1,-
	radd2,rcity, -
	rstate,rzip
.end
;
;
