st_11.visible = false;
st_12.visible = false;
st_14.visible = false;
st_15.visible = false;
trdest = create transaction;
trdest.DBMS = "O84 ORACLE 8.0.4"
trdest.LogPass = "****"
//trdest.ServerName = "***"
trdest.ServerName = server;
trdest.LogId = "****"
trdest.AutoCommit = True
trdest.DBParm = "PBCatalogOwner='****'"
//SQLCA.dbParm = "CharSet = '1251'"
CONNECT USING trdest;

trsrc = create transaction
// Profile Trades
trsrc.DBMS = "ODBC"
trsrc.AutoCommit = true
trsrc.DBParm = "ConnectString='DSN=***'"
CONNECT USING trsrc;
st_1.text = "0"
st_2.text = "0"
st_4.text = "0"
st_1.visible = true;
st_2.visible = true;
st_4.visible = true
st_5.visible = true;
st_6.visible = true;
st_7.visible = true
p_dcc = create p_pipe
p_dcc.DataObject = "pipe_dcc"
st_2.visible = true;
st_1.visible = true;
p_dcc.st_read = st_1
p_dcc.st_written = st_2
p_dcc.st_errors = st_4
st_3.visible = true;
p_dcc.Start(trsrc, trdest, dw_2)

connect using sqlca;


st_3.text = "Ãîòîâ";
st_2.visible = false;
st_1.visible = false;
st_4.visible = false
st_5.visible = false;
st_6.visible = false;
st_7.visible = false
select sysdate into :sysdt from dual;
update tant_admin set dcc_time = :sysdt ;
commit;
st_15.text = string(sysdt)
st_14.visible = true;
st_15.visible = true;