Group,
Ok. Thanks for all the suggestions.
I have the PowerPack but the client doesn't so I can't (and won't)
explore that option.
I decided to explore the EDICleanse.exe suggested by Dennis. I had a
great conversation
with the guy because I couldn't get the help to work. The utility
works great.
The challenge now is the passing of the parameter to EDIClean.exe.
This utility requires an input file name and an output filename
seperated by the ; character.
I could get the utility to work from the Windows command prompt but
couldn't get it to work from within R:BASE.
I finally narrowed it down to the ; character. I have no problem
building the command line
The question now is how to handle the ; and I'm looking for ideas.
I believe this is a global setting so I'm formulating my question that
way.
I can get the utility to work in either of 2 ways.
SET SEMI=NULL
&vCommandLine
SET SEMI=;
or
SET SEMI OFF
&vCommandLine
SET SEMI ON
I think both of these can be potentially hazardous.
What are your thoughts?
Jan
-----Original Message-----
From: "jan johansen" <[email protected]>
To: [email protected] (RBASE-L Mailing List)
Date: Wed, 09 Jun 2010 11:54:28 -0700
Subject: [RBASE-L] - Re: File Load
Thanks to all who have responded.
I will explore the suggestions and let you know.
Jan
-----Original Message-----
From: [email protected]
To: [email protected] (RBASE-L Mailing List)
Date: Wed, 9 Jun 2010 18:24:45 +0000 (UTC)
Subject: [RBASE-L] - Re: File Load
Jan,
I do a lot of EDI and this is not an uncommon situation. Most
EDI packages have the option
to use CR or the "long line" format you describe.
If you have the Power Pack, there is no problem. Use the
RSearchandReplace.rbl.
*SET* *VAR* vfilename *TEXT*
*set var vNewChar = (CHAR(013))*
* SET* *VAR* vcommand *TEXT* *= *+
*('PLUGIN rsearchandreplace.rbl ' *+ *.vquote *+
'vError|FILE_NAME ' *+ *. vfilename *+ *+
' |OLD_PATTERN ' *+ *. vchar *+ '|NEW_PATTERN' +
.vNewChar|REPLACE_ALL ON+******* ******
|IGNORE_CASE ON|WHOLE_WORD OFF' *+ *. vquote* )
*&vcommand
----- Original Message -----
From: "jan johansen" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Wednesday, June 9, 2010 11:41:00 AM GMT -06:00 US/Canada
Central
Subject: [RBASE-L] - File Load
****
Your file will now be as you want.
-Bob
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
*= *. v850file
*SET* *VAR* vquote *= *(CVAL( 'QUOTES'*))
*SET* *VAR* vOldchar *TEXT* *= *'~'****** *
