Thank you Tony. Still in the future for us. Will first wait for R:HTML to see what it can do :)
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tony Luck Sent: Monday, August 25, 2003 6:04 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: How to fill a HTML form from a RBW app ? Myself and a client have are in the midst of setting up data to be submitted via a web site although it is an XML submission that is validated via the schema provided to us. Firstly the people that are receiving the data wanted it submitted is a special format not just a metadata format which RB7 can easily supply so what we did was went hunting for a tool to help generate the file accordingly. 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
