What I found was allorawin express. This allowed me to via ODBC map the appropriate columns to the elements via drop and drag (like in the query wizard). Click on the muster icon and way hay submission file created instantly according to the schema.
Now this also works for HTML as well as XML. Yes I could have sat down and created a submission file but time is not on outr side. There are some 2500 invoices that need to be sent each month. Its works, setup is simple BUT it costs. This is just for info ... on how we went about submitted data to a site.
the software details can be found at Hitsoftware.com if you want to have a look but like I said it costs and we used it for an XML solution.
At 05:26 PM 8/25/2003 -0500, you wrote:
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
Tony Luck
Brisbane Australia
