Различия

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

--- администрирование:скрипты:разное:зп.отчет [2019/06/13 19:10]
a.korobka создано
+++ администрирование:скрипты:разное:зп.отчет [2019/06/13 21:01] (текущий)
@@ Строка 1: / Строка 1: @@
-====== sd ==
+====== Скрипт расчета ЗП по отчету ======
 <code sql>
+execute block
-      calc.SQL.Insert(0,'  inList = '+#39+IntToStr(uid)+#39+';');
+returns (
-      Page3.Visible := False;
+  DCODE integer,
-    end;
+  DNAME varchar(48),
+  BDATE date,
-  calc.SQL.Insert(0,'  inbdate = '+#39+(<bdate>)+#39+';');
+  FDATE date,
-  calc.SQL.Insert(1,'  infdate = '+#39+(<fdate>)+#39+';');
+  RAZDEL integer,
+  depname type of column buh$zarplata_calc.depname,
-  {***********************************************************************************}
+  FILIAL integer,
+  FNAME varchar(48),
-  {***********************************************************************************}
+  SECTID integer,
-  // Проверка на список - вставка в текст заголовка
+  CSECT varchar(128),
-  calc.SQL.Insert( 0,'execute block');
+  SCHTYPEID integer,
-  calc.SQL.Insert( 1,'returns (');
+  SCHTYPE varchar(48),
-  calc.SQL.Insert( 2,'  DCODE integer,');
+  SPECCODE integer,
-  calc.SQL.Insert( 3,'  DNAME varchar(48),');
+  SPECNAME varchar(255),
-  calc.SQL.Insert( 4,'  BDATE date,');
+  wday int,
-  calc.SQL.Insert( 5,'  FDATE date,');
+  wdayname varchar(24),
-  calc.SQL.Insert( 6,'  RAZDEL integer,');
+  CALCTYPE integer,               --  ( 1 - выработка, 2 - списание, 3 - экспертиза СК, 7 - zaved line ) (+0 - invis / +10 - visible)
-  calc.SQL.Insert( 7,'  depname type of column buh$zarplata_calc.depname,');
+  SUMMA_NACH_DOCT NUMERIC(10,2),
-  calc.SQL.Insert( 8,'  FILIAL integer,');
+  SUMMA_NACH NUMERIC(10,2),
-  calc.SQL.Insert( 9,'  FNAME varchar(48),');
+  schcount integer,
-  calc.SQL.Insert(10,'  SECTID integer,');
+  PROC_MINUS NUMERIC(10,2),
-  calc.SQL.Insert(11,'  CSECT varchar(128),');
+  PROC_ZP NUMERIC(10,2),
-  calc.SQL.Insert(12,'  SCHTYPEID integer,');
+  SUMMA_ZP NUMERIC(10,2),
-  calc.SQL.Insert(13,'  SCHTYPE varchar(48),');
+  DCODE_ZAVED integer,
-  calc.SQL.Insert(14,'  SPECCODE integer,');
+  SUMMA_ZAVED NUMERIC(10,2)
-  calc.SQL.Insert(15,'  SPECNAME varchar(255),');
+)
-  calc.SQL.Insert(16,'  wday int,');
+as
-  calc.SQL.Insert(17,'  wdayname varchar(24),');
+--
-  calc.SQL.Insert(18,'  CALCTYPE integer,               --  ( 1 - выработка, 2 - списание, 3 - экспертиза СК, 7 - zaved line ) (+0 - invis / +10 - visible)');
+declare inbdate date;
-  calc.SQL.Insert(19,'  SUMMA_NACH_DOCT NUMERIC(10,2),');
+declare infdate date;
-  calc.SQL.Insert(20,'  SUMMA_NACH NUMERIC(10,2),');
+declare inList  ttext16k;
-  calc.SQL.Insert(21,'  schcount integer,');
+declare ch char(1);
-  calc.SQL.Insert(22,'  PROC_MINUS NUMERIC(10,2),');
+--
-  calc.SQL.Insert(23,'  PROC_ZP NUMERIC(10,2),');
+declare doclist  ttext16k;
-  calc.SQL.Insert(24,'  SUMMA_ZP NUMERIC(10,2),');
+declare sqlText  ttext16k;
-  calc.SQL.Insert(25,'  DCODE_ZAVED integer,');
+declare sqlText2 ttext16k;
-  calc.SQL.Insert(26,'  SUMMA_ZAVED NUMERIC(10,2)');
+declare tmp_date date;
-  calc.SQL.Insert(27,')');
+--
+declare wday0 int;
+declare wday1 int;
+declare wday2 int;
+declare wday3 int;
+declare wday4 int;
+declare wday5 int;
+declare wday6 int;
+declare wday7 int;
+declare wday11 int;
+declare wday17 int;
+--
+begin
+  inbdate = '<bdate>';
+  infdate = '<fdate>';
+  inList  = '<DoctorList>';
   --

Наверх

администрирование/скрипты/разное/зп.отчет.1560442242.txt.gz · Последние изменения: 2019/06/13 19:10 — a.korobka