@sss=sql_connect("adata","scada","") ;открываем сессию к источнику ADATA на SQL сервере
@conn=sss:vconnection_id ;запоминаем номер конекции ;@table_name="tbl_ТИТ_"+dec(month,1)+"_"+dec(year,1) ;формируем имя таблицы ТИТ
@table_name="Измерения_"+dec(day,1)+"_"+dec(month,1)+"_"+dec(year,1) ;формируем имя таблицы ТИТ
;@table_name="'ln'" ;формируем имя таблицы ТИТ ;TESTING OI
@OI_TEST=LOCATE(%OI,",")
#IF %OI_TEST<>0 #THEN #BLOCK
@OI_COMM=SUBSTR(%OI,%OI_TEST,1)
@STR_TXT=REPLACE(%OI,%OI_COMM," ")
@STR_OI=SEPARATE(%STR_TXT,",")
#BLOCK_END #ELSE_IF %OI_TEST==0 #THEN #BLOCK
@STR_OI=SEPARATE(%OI,",")
#BLOCK_END ;готовим переменные для записи в БД
@s_rt=" '' "+ collect(vector(times(%t)), " ") +" '' " ;преобразуем время в вектор, затем в текст и добавим апострофы
@s_oi=" '' "+ collect(vector(%oi), " ") +" '' " ;преобразуем OI в вектор, затем в текст и добавим апострофы
@s_ov=" '' "+ collect(vector(dec(%ov,6,3)), " ") +" '' " ;преобразуем OV в вектор, затем в текст и добавим апострофы
@s_ln=" '' "+ %tmp_ln +" '' " ;добавим апострофы k LN ;пишем в БД
@result=sql_execute(%conn,"INSERT INTO 'table_name'(datatime, object, value, LN) VALUES('s_rt','s_oi','s_ov','s_ln')") #if result:vstatus==SQL_SUCCESS OR-
result:vstatus==SQL_SUCCESS_WITH_INFO-
#then #block
@k=sql_disconnect(%conn) ;закрываем сессию
#block_end #else #block
@table=sql_execute(%conn,"CREATE TABLE 'table_name'(datatime char(50), object char(30), value char(30), LN char(15) )")
#block_end
| 
