I may have spoken too soon. Right after I sent the email the DOS screen appeared and I can't seem to get it to go away.
-----Original Message----- From: Dennis McGrath <[email protected]> To: [email protected] (RBASE-L Mailing List) Date: Thu, 10 Jun 2010 11:32:28 -0500 Subject: [RBASE-L] - Re: File Load So the redirect prevents the DOS screen from poping up? From: [email protected] [mailto:[email protected]] On Behalf Of jan johansen Sent: Thursday, June 10, 2010 10:28 AM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: File Load Dennis, Here is another tidbit then. EDIClean when run opens a DOS command prompt window which I thought might be distracting to users. So I added a redirect to a text file of the screen. Here is the whole sequence. SET VAR vFileName TEXT = NULL PLUGINS LoadFileNamePlus.RBL "vFileName + |FULLPATH ON + |TITLE Select File + |VIEW_MODE DETAILS + |FILTER EDI Text Files (*.edi)#*.edi" IF vFileName CONT "[Esc]" THEN RETURN ENDIF SET VAR vOutputFile TEXT = (SRPL(.vFileName,".EDI",".TXT",0)) SET VAR vSemi TEXT = ";" SET VAR vCommandLine TEXT = + ("LAUNCH EDICLEAN.exe|"+.vFileName+.vSemi+.vOutputFile+">screen.txt|W") SET VAR vPauseMsg = + ((CHAR(009))+(CHAR(009))&"EDI File loading ..."+(CHAR(009))+(CHAR(013))+ + (CHAR(013))+ + (CHAR(009))+(CHAR(009))&"Please Stand By ..."+(CHAR(009))) CLS PAUSE 3 USING .vPauseMsg + CAPTION " Patience is a virtue ... " + OPTION GAUGE_VISIBLE ON + |GAUGE_COLOR GREEN + |GAUGE_INTERVAL 10 + |BACK_COLOR WHITE + |MESSAGE_COLOR WHITE + |MESSAGE_FONT_NAME ARIAL + |MESSAGE_FONT_COLOR RED + |MESSAGE_FONT_SIZE 10 + |MESSAGE_FONT_BOLD ON &vCommandLine Jan -----Original Message----- From: Dennis McGrath <[email protected]> To: [email protected] (RBASE-L Mailing List) Date: Thu, 10 Jun 2010 09:01:15 -0500 Subject: [RBASE-L] - Re: File Load I’m glad EDIClean.exe worked for you. I found the info by googling “EDI file utility” I learned a lot. Chances are, I will use this knowledge too. Dennis McGrath From: [email protected] [mailto:[email protected]] On Behalf Of jan johansen Sent: Wednesday, June 09, 2010 5:32 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: File Load 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 = '~'
