Queue look - История изменений

Agk: /* Нет поля status в таблице g$profiles */

2017-09-01T12:15:51Z

‎Нет поля status в таблице g$profiles

Agk: /* Создаем файл difference_look.php */

2017-09-01T12:15:05Z

‎Создаем файл difference_look.php

Agk: /* Создаем файл queue_look.php в папке с синхронизацией */

2017-09-01T12:14:17Z

‎Создаем файл queue_look.php в папке с синхронизацией

Agk: /* Создаем процедуру UTPR_QUEUE_LOOK */

2017-09-01T12:13:43Z

‎Создаем процедуру UTPR_QUEUE_LOOK

Koboox в 13:38, 12 сентября 2016

2016-09-12T13:38:26Z

Koboox в 13:38, 12 сентября 2016

2016-09-12T13:38:16Z

Koboox в 13:37, 12 сентября 2016

2016-09-12T13:37:45Z

Aleksnick: /* Создаем процедуру UTPR_EXTRACT_DT_VER */

2016-08-22T06:50:30Z

‎Создаем процедуру UTPR_EXTRACT_DT_VER

Aleksnick в 06:48, 22 августа 2016

2016-08-22T06:48:25Z

Agk: /* Правим configs на нашем сервере */

2016-08-22T06:38:30Z

‎Правим configs на нашем сервере

@@ Строка 231: / Строка 231: @@
 =Возможные проблемы=
-==Нет поля status в таблице g$profiles==
+==Нет полей в таблице g$profiles==
-Тогда нужно добавить это поле в этой базе и отправить всем по g$tasks
+Тогда нужно добавить эти поля в этой базе и отправить всем по g$tasks
 <pre>
-ALTER TABLE G$PROFILES
+ALTER TABLE G$PROFILES ADD STATUS DM_STATUS;
-ADD STATUS DM_STATUS
+ALTER TABLE G$PROFILES ADD SUBKONTO1 DM_TEXT;
 </pre>
@@ Строка 243: / Строка 245: @@
 --update g$profiles set status=0
 </pre>
 ==Нет таблицы warebase==

@@ Строка 182: / Строка 182: @@
 ===Создаем файл difference_look.php===
   <nowiki>
-<h1>Аптеки Удмуртии Расхождения</h1>
+<h1>Имя клиента Расхождения</h1>
 <?php
 //<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
@@ Строка 220: / Строка 220: @@
    echo "</table>";
 ?>
 </nowiki>

@@ Строка 135: / Строка 135: @@
    echo "Время сервера: ".$row[0]."<br>";
-   $sqltext="select CMNT,PROFILE_ID,SPROFILE,EXEVER,INSERTDT,MSECS,ENDFLAG,ENDTEXT,G\$TASKS_COUNT from UTPR_QUEUE_LOOK";
+   $sqltext="select CMNT,PROFILE_ID,SPROFILE,EXEVER,INSERTDT,MSECS,ENDFLAG,ENDTEXT,VIP from UTPR_QUEUE_LOOK";
    $qList = ibase_query($it, $sqltext);
    if (!$qList) {die(" error ".ibase_errmsg()."(".$sqltext.")");}
@@ Строка 141: / Строка 141: @@
    echo "<table class=\"table table-bordered table-hover table-striped\"><tr><td>##</td><td>Комментарий</td><td>Профиль</td><td>Версия</td><td>Дата</td><td>Время обработки</td><td>Флаг завершения</td></tr>";
    $i=0;
-  while ($row = ibase_fetch_row($qList))
+    while ($row = ibase_fetch_row($qList))
+   {
      $i++;
-     echo "<tr>";
+     if ($row[8]==1) {
 	echo "<td>".$i."</td>";
 	echo "<td>".$row[0]."</td>";
@@ Строка 150: / Строка 155: @@
 	echo "<td>".$row[3]."</td>";
 	echo "<td>".$row[4]."</td>";
 	echo "<td>".$row[5]."</td>";
 	echo "<td>".$row[6]."</td>";
 	echo "</tr>";
+   }

@@ Строка 44: / Строка 44: @@
      MSECS integer,
      ENDFLAG integer,
-     ENDTEXT DM_BLOBTEXT)
+     ENDTEXT DM_BLOBTEXT,
 as
 begin
-   for select id, caption||' ('||DBSECUREKEY||')' from g$profiles where status=0 and caption is not null and id not in (0,1) and DBSECUREKEY is not null into :profile_id,:sprofile do
+   for
    begin
      cmnt='-'; EXEVER=0;INSERTDT='01.01.2000'; ENDFLAG=0;ENDTEXT='';
      select first 1 q.insertdt, datediff(millisecond,q.startdt,q.commitdt), endflag, endtext,
        (select ver from utpr_extract_dt_ver(q.params))
-       from g$queue q where q.profile_id=:profile_id and q.endflag is not null order by id desc
+       from g$queue q where q.profile_id=:profile_id  and ENDFLAG is not null order by id desc
        into :INSERTDT,:MSECS,:ENDFLAG,:ENDTEXT,:exever;
      cmnt='';
-     if (:exever<1.552) then
+     if ((coalesce(:EXEVER,0) > 0) and (:EXEVER < 1.552)) then
        cmnt=cmnt || 'Версия! ';
@@ Строка 64: / Строка 75: @@
 --      cmnt=cmnt || 'Сейчас в обработке... Проверь позже. ';
      if (endflag=-1) then
-       cmnt=cmnt || 'Ошибка загрузки пакета! ';
+       --begin
      if (endflag=1 and (datediff(hour,insertdt,current_timestamp)>1)) then
      begin
-       if (datediff(day,insertdt,current_timestamp)>0) then
+       if (datediff(hour,insertdt,current_timestamp)>24) then
-         cmnt=cmnt || 'Уже больше суток нИ слухом нИ духом!! ';
+         cmnt=cmnt || 'Не на связи больше суток: ' ||  cast((datediff(hour,insertdt,current_timestamp) / 24) as integer) || ' дн ' ||
        else
-         cmnt=cmnt || 'Не на связи больше часа! ';
+         cmnt=cmnt || 'Не на связи больше часа: ' || datediff(hour,insertdt,current_timestamp) || ' ч';
      end
@@ Строка 88: / Строка 107: @@
 /* Following GRANT statetements are generated automatically */
 GRANT SELECT ON G$PROFILES TO PROCEDURE UTPR_QUEUE_LOOK;
 GRANT EXECUTE ON PROCEDURE UTPR_EXTRACT_DT_VER TO PROCEDURE UTPR_QUEUE_LOOK;
 GRANT SELECT ON WAREBASE TO PROCEDURE UTPR_QUEUE_LOOK;

@@ Строка 1: / Строка 1: @@
 Инструкция о том, как настроить страницу, которая будет показывать проблемные точки с синхронизацией.<br>
 Скрипты, которые написаны ниже, нужно выполнять на '''серверной базе'''.
   Инструкция по настройке службы очереди '''[[Синхронизация:Очередь загрузки|тут]]'''
-−
 =Создаем процедуру UTPR_EXTRACT_DT_VER=

@@ Строка 14: / Строка 14: @@
 declare variable I integer;
 begin
    ver=null;
    i=position('exever=',params);
@@ Строка 38: / Строка 28: @@
 GRANT EXECUTE ON PROCEDURE UTPR_EXTRACT_DT_VER TO SYSDBA;
 </pre>
 =Создаем процедуру UTPR_QUEUE_LOOK=

@@ Строка 206: / Строка 206: @@
 <pre>
   файл \\192.168.67.30\web\sinhro\configs\clients.ini по аналогии
 </pre>
 =Возможные проблемы=