Thank you Bernie. As some point in the future I would like for carriers to send me their invoices this way. This will help in figuring out how to do it. :)
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bernard Lis Sent: Monday, August 25, 2003 4:30 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: How to fill a HTML form from a RBW app ? ----- 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
