Просмотр сообщений
1
Ваши вопросы / Re: Перестали приходить сообщения в Telegram
« : 13 Октября 2025, 14:44:34 »1. Время на ПК соответствует текущему времени?1. Время соответствует текущему, Пермский край +2 МСК.
2. Какой "Имя компьютера" задано в ОС?
3. Откройте в проводнике Windows путь "%ProgramData%\Simple-Scada 2" и перейдите в папку с проектом. В ней есть файлы с именами "doneRepXX.pdf"?
4. Какой именно код используется для отправки сообщений?
5. Отправка сообщений без вложений выполняется сервером скады?
6. Проблема возникает только на одном ПК, или на других тоже?
2. Имя компьютера RUS-EKONIVA
3. В указанной папке есть 1 файл doneRep176 сформированный сегодня в 15.50, в это же время есть ошибке на сервере с неотправленными отчетами в Телеграм
4. Отчет отправляется в скрипте Done_SQL
Код: (delphi)
30:
begin
if not DataSet.IsEmpty then
begin
if DataSet[3].AsInt = UNL_Port.Value then
begin
aStr := 'Готов';
SelIdRecipe.Value := DataSet[0].AsInt;
StartTimeSQL.Value := MySQLDateTime(TimeStartRecipes.Value, dttMillisecond);
EndTimeSQL.Value := MySQLDateTime(TimeEndRecipes.Value, dttMillisecond);
StartTimeSQL.Value := StringReplace(StartTimeSQL.Value, Chr(39), '', [rfReplaceAll, rfIgnoreCase]);
EndTimeSQL.Value := StringReplace(EndTimeSQL.Value, Chr(39), '', [rfReplaceAll, rfIgnoreCase]);
aReport := ReportBuild("Отчёт по заказу подробный"); //строим отчет
aTelegram := SendTelegram('Отчет по заказу №'+DataSet[0].AsStr); // создаём telegram сообщение
aTelegram.AttachReport(aReport, 'Отчёт по заказу подробный'); // прикрепляем отчет к telegram сообщению
end
else aStr := 'Выполняется';
if DataSet[1].AsInt <> UNL_Port.Value then
begin
aSngl := UNL_Weight.Value + DataSet[2].AsFloat;
RunSQL('UPDATE `orders` SET `portdone` = '+QuotedStr(IntToStr(UNL_Port.Value))+' , '+
'`status` = '+QuotedStr(aStr)+' , '+
'`wdone` = '+QuotedStr(FloatToStr(aSngl))+
' WHERE `id` = '+QuotedStr(DataSet[0].AsStr),nil,20);
if DataSet[3].AsInt = UNL_Port.Value then
begin
UNL_Port.Value := 0;
UNL_OrderNum.Value := 0;
end;
end;
UNL_Weight.Value := 0;
end;
end;
6. На другом ПК проверить нет возможности.
Повторюсь - отправка исправно работала 1,5 года без каких-либо изменений в проекте и конфигурации компьютера.