[RBASE-L] - RE: transmit

[paul]

Thank you Razzak for the example.  This another project that is new to me. You 
will know when it is operational because after show and tell they need to RSap 
and get more licenses. So great for both of us. 


Have a great day

Paul D. 
Sent from my Verizon Wireless BlackBerry

-----Original Message-----
From: "A. Razzak Memon" <raz...@rbase.com>
Date: Sat, 03 Oct 2009 13:30:01 
To: RBASE-L Mailing List<rbase-l@rbase.com>
Subject: [RBASE-L] - RE: transmit

At 12:00 PM 10/3/2009, Paul Dewey wrote:

>Now the question(s) if you use FTP I always send a file. I am sure
>once you establish a connect by FTP what process would be done after?


Paul,

Here's how:

-- Example to Upload File on Remote FTP Server using R:FTP Client

-- Define file name
    SET VAR vEDI_FileName TEXT = 'whatever.edi'

-- Define String for R:FTPClient UPLOAD Parameter
    SET VAR vQuote TEXT = (CVAL('QUOTES'))
    SET VAR vFileNameString TEXT = +
    (.vQuote+'vResult|FTP_UPLOAD'&.vEDI_FileName+.vQuote)

-- Now upload file to FTP location/server
    CLS
    PLUGIN RFTPClient.rbl 'vResult|SHOW PROGRESS'
    PLUGIN RFTPClient.rbl 'vResult|CLEAR PROGRESS'
    PLUGIN RFTPClient.rbl 'vResult|FTP_USERNAME username'
    PLUGIN RFTPClient.rbl 'vResult|FTP_PASSWORD userpassword'
    PLUGIN RFTPClient.rbl 'vResult|FTP_HOST ftp.sitename.com'
    PLUGIN RFTPClient.rbl 'vResult|FTP_PORT 21'
    PLUGIN RFTPClient.rbl 'vResult|FTP_CONNECT'
    IF vResult <> 'OK' THEN
       GOTO ShowErrors
    ENDIF
    PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
    PLUGIN RFTPClient.rbl 'vResult|FTP_CHDIR ftpdirectoryname'
    IF vResult <> 'OK' THEN
       GOTO ShowErrors
    ENDIF
    PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
    PLUGIN RFTPClient.rbl 'vResult|CHDIR localdirectoryname'
    IF vResult <> 'OK' THEN
       GOTO ShowErrors
    ENDIF
    PLUGIN RFTPClient.rbl &vFileNameString
    IF vResult <> 'OK' THEN
       PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
       PLUGIN RFTPClient.rbl 'vResult|CHDIR ..'
       PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
       GOTO ShowErrors
    ENDIF
    PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
    PLUGIN RFTPClient.rbl 'vResult|CHDIR ..'
    PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
    PLUGIN RFTPClient.rbl 'vResult|FTP_DISCONNECT'
    PLUGIN RFTPClient.rbl 'vResult|CLEAR PROGRESS'
    PLUGIN RFTPClient.rbl 'vResult|HIDE PROGRESS'
    IF vResult <> 'OK' THEN
       GOTO ShowErrors
    ELSE
       CLS
       PAUSE 2 USING 'EDI File Uploaded Successfully!' +
       CAPTION 'Upload EDI File' +
       ICON CONFIRM BUTTON 'Click here to continue ...' +
       OPTION MESSAGE_FONT_NAME Verdana +
       |MESSAGE_FONT_COLOR GREEN +
       |MESSAGE_FONT_SIZE 9 +
       |MESSAGE_FONT_BOLD ON +
       |BUTTON_COLOR WHITE +
       |BUTTON_FONT_COLOR GREEN +
       |THEMENAME R:BASE Rocks!
       GOTO Done
    ENDIF

LABEL ShowErrors
       CLS
       PAUSE 2 USING .vResult CAPTION 'Upload EDI File' +
       ICON WARNING Button 'Press any key to continue ...' +
       OPTION BACK_COLOR WHITE +
       |MESSAGE_COLOR WHITE +
       |MESSAGE_FONT_COLOR RED +
       |BUTTON_COLOR WHITE
       PLUGIN RFTPClient.rbl 'vResult|FTP_DISCONNECT'
       PLUGIN RFTPClient.rbl 'vResult|CLEAR PROGRESS'
       PLUGIN RFTPClient.rbl 'vResult|HIDE PROGRESS'

LABEL Done
CLS
CLEAR VAR vEDI_FileName,vFileNameString,vResult
RETURN

That's all there is to it!

Very Best R:egards,

Razzak.

P.S.
Make sure that you are using the latest updates of R:FTPClient or
R:SFTPClient.