DTEAP.WSC
Immediately below ".entry z_109f, "Print 1099/1042 forms", sub”
.entry z_109e, "Export 1099s"


following ap7042
;=============================================================== 

.input ap1099exp, 8, 75

.placement 5, 25

.title ' 1099 Export ', highlight

.paint _

 

.field year, d4, pos(1,1), prompt("Year"), fpos(1,25), -

 help(AP1099YEAR), format('XXXX'), copy



.field cont, a40, pos(2,1), prompt("Contact name"), fpos(2,25)

 

.field phone, a14, pos(3,1), prompt("Telephone number"), fpos(3,25), -

 help("AP1099PHON")



.field emal, a50, pos(4,1), prompt("E-mail"), fpos(4,25)



.field printed, a1, pos(5,1), prompt("Update printed flag"), fpos(5,25), -

 help(UTSELFUN), selwnd(1,3,noyes)



.field test, a1, pos(6,1), prompt("Test submission"), fpos(6,25), -

 selwnd(1,3,noyes)



.field prior, a1, pos(7,1), prompt("Prior year"), fpos(7,25), -

 selwnd(1,3,noyes)

 

.structure rec1, year,cont,phone,emal,printed,test,prior

.set set1, rec1, year,cont,phone,emal,printed,test,prior

.end

;


APMENU.DBL
Immediate below "'Z_19VF': xcall ap7051	; verify 1099 vendors"

'Z_109E': xcall ap1099exp ; export 1099s


APCOMM.GBL
At bottom, above "endglobal"
	ap9exp_name	,a6,	'AP9EXP'	; 1099 export file

	  ap9exp_chan	,d2

	  ap9exp_log	,a1