ODBC: podesavanje baze 1
math
0|0
22
Epodesi_baze=1
TODBCDSN	E"Bloomberg"
TnumHandler	EODBCOpen( ODBCDSN, "Admin" , "", "t1", "" , "" )
T	E
Todbcbind_rez	EODBCBindCol( numHandler, "Time_Stamp", "SQL_TIMESTAMP", "Indeksi_0" )
Todbcbind_rez	EODBCBindCol( numHandler, "I0", "SQL_NUMERIC", "indeksi_0" )
TnumHandler_valute	EODBCOpen( ODBCDSN, "Admin" , "", "t2", "" , "" )
Todbcbind_rez	EODBCBindCol( numHandler_valute, "Time_Stamp", "SQL_TIMESTAMP", "valute_0" )
Todbcbind_rez	EODBCBindCol( numHandler_valute, "V0", "SQL_NUMERIC", "valute_0" )
TnumHandler_PI	EODBCOpen( ODBCDSN, "Admin" , "", "PI", "" , "" )
Todbcbind_rez	EODBCBindCol(numHandler_PI, "vrsta", "SQL_NUMERIC", "postavkei" )
T	E
TnumHandler_PV	EODBCOpen( ODBCDSN, "Admin" , "", "PV", "" , "" )
Todbcbind_rez	EODBCBindCol( numHandler_PV, "vrsta", "SQL_NUMERIC", "postavkev" )
TODBCQUERY_REZ	EODBCQuery( numHandler )
TODBCQUERY_REZ1	EODBCQuery( numHandler_valute )
TODBCQUERY_REZ2	EODBCQuery( numHandler_pi )
TODBCQUERY_REZ3	EODBCQuery( numHandler_pv )
Taktivna_baza	Eif(ODBCQUERY_REZ=0,1,0)
Tpodesi_baze	Eif(ODBCQUERY_REZ=3  AND aktivna_baza<>2 ,2)
Tpodesi_baze	Eif(ODBCQUERY_REZ=4  AND aktivna_baza<>2 ,2)
T	E
Tpodesi_baze	E0
