Различия

Здесь показаны различия между двумя версиями данной страницы.

@@ Строка 1: / Строка 1: @@
+====== Перевод на нал ======
+<code sql>
+execute block
+/*
+ * Скрипт автоматического перевода пациентов в наличный расчет,
+ * если прикрепления по СК закончились
+ *
+ * Автор Коробка А.А.
+ */
+as
+declare pcode type of column clients.pcode;
+begin
+  for select first 1100 pcode from clients c where 1=1
+         /* не нал */
+         and coalesce(grtype,0)!=1
+         /* все прикрепления закончились */
+         and not exists(select * from clhistnum cl
+                         where cl.pcode=c.pcode and coalesce(cl.datecancel,cl.fdate,current_timestamp)>current_date)
+  into pcode do
+  begin
+    update clients
+       set GRTYPE=1, JID=null, SECTID=4363, JID0=null, LSTID=null, NSP=null, modifydate=current_timestamp
+     where pcode= :pcode;
+  end
+end
+</code>

Наверх

администрирование/скрипты/цбд/юл/перевод.на.нал.txt · Последние изменения: 2019/07/04 08:14 (внешнее изменение)