/* Arquvo pre-ems2.p */

def input parameter pi-condicao01 as char.

for each {1}.{2}
    where {1}.{2}.{3} = pi-condicao01
    no-lock:
    display {1}.{2}.{3}
            {1}.{2}.{4}
            .
end.

/* Arquvo Preprocessador-ems2.p */
def var c-campo01       as char format 'x(40)'    init 'it-codigo'.
def var c-campo02       as char format 'x(12)'    init 'desc-item'.
def var c-condicao01    as char no-undo.

def var c-banco     as char init 'mgemp'.
def var c-tabela    as char init 'item'.

assign  c-banco         =   'mgemp'
        c-tabela        =   'item'
        c-condicao01    =   '132.3'
        .

run pre-ems2.p ( input c-condicao01 ) c-banco c-tabela c-campo01 c-campo02
    /* c-banco c-tabela...

DEF VAR ch-ie   AS COM-HANDLE NO-UNDO.
DEF VAR c-url   AS CHAR NO-UNDO.
def var c-data  as char no-undo.

assign  c-data  =   '20150521'
        c-url   =   'http://www4.bcb.gov.br/Download/fechamento/' + c-data + '.csv'.

MESSAGE 'c-url' c-url
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

CREATE "InternetExplorer.Application" ch-ie.
ch-ie:navigate(c-url,,,,).
ch-ie:VISIBLE = TRUE.
/*ch-ie:QUIT().*/
RELEASE OBJECT ch-ie NO-ERROR.