----- Original Message -----
From: "Claudine Robbins"
> Bernie, that is soooo interesting. Can you post the macro here please?
Here you are Claudine:
*( wage detail report Michigan unemployment )
conn \payroll\payrl
run GtPrintr.mac
set mess off
set err mess off
cls
set var Sid text, Txyr text, NumEmp int, TotGrs curr
*( header record )
dialog 'Enter Quarter Number' QtrNo=1 vkey 1
sel comesc,TaxYear into Sid,Txyr from company where limit=1
sel count(*), sum(qtdgross) into NumEmp, TotGrs from employee where
QtdGross > 0
set var HdrRec = 'E'
set var HdrRec = (sput(.HdrRec,.Sid,2))
set var HdrRec = (sput(.HdrRec,'000',9))
set var HdrRec = (sput(.HdrRec,.Txyr,12))
set var HdrRec = (sput(.HdrRec,.QtrNo,16))
set var HdrRec = (sput(.HdrRec,(format(.NumEmp,'[-]0000000')),41))
set var igrs int = (.Totgrs * 1000/10 + .005)
*( right justify & zero fill into an 11 digit text field )
set var HdrRec = (sput(.HdrRec,(format(.igrs,'[-]0000000000000')),48))
out WgDetl.dta
write .HdrRec
*( employee records )
drop cursor e1
declare e1 cursor for sel ssn,firstnm,lastnm,QtdGross +
from Employee where Qtdgross > 0 order by lastnm,firstnm
open e1
fetch e1 into ssn,fnm,lnm,grs
while sqlcode <> 100 then
set var ln='S'
set var ln = (sput(.ln,.Sid,2))
set var ln = (sput(.ln,'000',9))
set var ln = (sput(.ln,.Txyr,12))
set var ln = (sput(.ln,.QtrNo,16))
*( eliminate the dash in ssn, if exists )
Label again2
set var ipos = (sloc(.ssn,'-'))
if ipos > 0 then
set var lngth = (slen(.ssn))
set var nchar = (.lngth - .ipos)
set var ssn = (smove(.ssn,(.ipos+1),.nchar,.ssn,.ipos))
set var ssn = (sput(.ssn,' ',.lngth))
goto again2
endif
set var ln = (sput(.ln,.ssn,17))
set var ln = (sput(.ln,.lnm,33))
set var ln = (sput(.ln,.fnm,49))
set var igrs int = (.grs * 1000/10 + .005)
*( right justify & zero fill into an 10 digit text field )
set var ln = (sput(.ln,(format(.igrs,'[-]0000000000')),62))
write .ln
fetch e1 into ssn,fnm,lnm,grs
endwhile
out screen
drop cursor e1
cls
out printer with screen
write ' '
write ' '
write ' Total QTD Gross=', .TotGrs at 10 26
write ' '
write ' '
write ' Send the file c:\payroll\WgDetl.dta to' at 12 6
write ' '
write ' '
write '
HTTP://b2g.unemployment.state.mi.us/NASApp/emi-efs/pub/jsp/efs.jsp' at 14 6
write ' '
write ' '
write ' Click on "Submit file" and Check 72 byte record' at 16 6
out screen
pause 2 using 'You will now be taken to the web site to submit your file' at
20 26
pause 2 using 'When you get there, Click on "submit a file" on the left hand
side' at 20 26
pause 2 using 'Then select the "72 byte" record type' at 20 26
dialog 'Do you wish to transmit this file now?' yesno vkey yes at 24 50
if yesno = 'yes' then
launch
'https://b2g.unemployment.state.mi.us/NASApp/emi-efs/pub/jsp/efs.jsp'
endif
clear all var
return
