Group, I had created an EDI load process for a client a couple of years ago. The client decided to change their edi provider (you can see where this is going).
The old files looked like this ISA*00* *00* *08*9254110060 *12*9933358077 *091229*0431*U*00307*000001932*0*P*>~ GS*RA*5137624388*9933358077*20091229*0431*1932*T*004010UCS~ The new format looks like this (it may wrap weird). Basically it comes in one long line. ISA*00* *00* *08*9254110060 *12*9933358077 *091229*0431*U*00307*000001932*0*P*>~GS*RA*5137624388*9933358077*20091229*0431*1932*T*004010UCS~ It appears that there is a line end character of ~. My old routine took advantage of a line never being more than 120 characters wide. It simply did a LOAD tEDILoad FROM .vFileName AS FORMATTED USING EDIRawLoad 1 120 Once I can get the file into R:BASE, I'm pretty sure that the original routine will work. I'm drawing a blank as how to load this file. This is in an older version of 7.6 (don't ask). Jan -----Original Message----- From: "Mike Byerley" <[email protected]> To: [email protected] (RBASE-L Mailing List) Date: Wed, 9 Jun 2010 10:49:54 -0400 Subject: [RBASE-L] - Re: OLE 2 in rbase ? I would guess that the EfilmObj is an ActiveX viewer. You could convert your VB code to VBScript with no difficulty, since late binding is the method of Object creation and simply call the VBS file from RBase using the "Launch" command. To take it a step further, you can store the VBS file in a VarChar data field in the database and retrieve it, write it to disk and run it, deleting it after the run, to keep the file from anyone fooling with the source code. If you aren't familiar with scripting, the main difference in VBScript is all variables are Variants, so when you do variable declaration, you omit the "as DataType" assignment. ----- Original Message ----- From: "Luc Delcoigne" <[email protected]> To: "RBASE-L Mailing List" <[email protected]> Sent: Wednesday, June 09, 2010 10:18 AM Subject: [RBASE-L] - OLE 2 in rbase ? Hello again, in the database that I am converting from Access to R:BAse 9.0 we have a procedure that links our database with Efilm X-ray filmviewer. This is the procedure : Public Sub Efilm() Dim EfilmObj As Object Dim var As Boolean Dim varefilm As Boolean Dim vpatID As String, vcon As String, bCloseCurWindow As Boolean, bAddToWindow As Boolean, nSeriesRows As Integer, nSeriesCols As Integer, nImageRows As Integer, nImageCols As Integer, bAutoSeriesFormat As Boolean, bAutoImageFormat As Boolean Set EfilmObj = CreateObject("Efilm.Document") vpatID = Forms![InterfaceNieuw]![Patiënten].Form![Punieknummer] vcon = Forms![InterfaceNieuw]![Consultatie].Form![Consultnummer] bCloseCurWindow = True bAutoSeriesFormat = False bAutoImageFormat = False nSeriesRows = 1 nSeriesCols = 2 nImageRows = 1 nImageCols = 1 varefilm = EfilmObj.oleOpenStudy(vpatID, vcon, bCloseCurWindow, bAddToWindow, nSeriesRows, nSeriesCols, nImageRows, nImageCols, bAutoSeriesFormat, bAutoImageFormat) varefilm = EfilmObj.oleSetForegroundWindow End Sub How could I get the same functionality in R:base to link to Efilm and automatically open all the required film-documents based on the 'Punieknummer' and the 'Consultnummer' ? Many, many, many thanks ;-) Luc Delcoigne
