Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
1) Как быть с переменными, которые должны быть добавлены из OPC-сервера, расположенного на той же машине, где сервер скады? На другой физической машине я их просто не увижу.
2) Как быть с базой данных, которая расположена на на той же машине, где сервер скады?
Здравствуйте. Подскажите пожалуйста по вопросу. Есть скада, модуль ввода и модуль вывода. Как можно через скаду связать два модуля. То есть, при включении кнопки в модули ввода должна включиться выход на модуле вывода
{Заполняем таблицу tblPremix}
procedure Update_tblPremix;
var
aQuery:string;
begin
aQuery := 'SELECT '+
'DP_PRODUCT_ID '+
',AR_NAME '+
',AR_ARTICLECODE '+
// ',CASE DP_PREMIX_STATUS1 WHEN 1 THEN ''X'' ELSE '''' END AS PREMIX_STATUS1 '+
// ',CASE DP_PREMIX_STATUS2 WHEN 1 THEN ''X'' ELSE '''' END AS PREMIX_STATUS2 '+
// ',CASE DP_PREMIX_STATUS3 WHEN 1 THEN ''X'' ELSE '''' END AS PREMIX_STATUS3 '+
// ',CASE DP_PREMIX_STATUS4 WHEN 1 THEN ''X'' ELSE '''' END AS PREMIX_STATUS4 '+
'FROM CFG_DAYPROGRAM '+
'INNER JOIN CFG_ARTICLE ON DP_PRODUCT_ID = AR_ARTICLE_ID '+
'WHERE (DP_BATCHESDONE < DP_BATCHESSET AND DP_LOTNUMBER > 0 AND DP_PRODUCE = 1 AND DP_MODIFYTYPE <> ''D'') '+
'OR DP_LOTNUMBER IN (SELECT DP_LOTNUMBER '+
'FROM CFG_DAYPROGRAM '+
'INNER JOIN CFG_BATCHES ON DP_LOTNUMBER = BD_LOTNUMBER '+
'INNER JOIN CFG_UNITS ON UN_BATCHNUMBER = BD_BATCHNUMBER '+
'WHERE BD_BATCHNUMBER > 1 '+
'AND UN_MODIFYTYPE <> ''D'') '+
'ORDER BY DP_PRODUCTIONNUMBER;';
tblPremix.RunSQL(aQuery, tsSaveFixRow);
end;
begin
if vUpdate_tblPremix.Value = true then // если тру - то выполняем процедуру
begin
Update_tblPremix;
vUpdate_tblPremix.Value := false;
end;
end.