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

Hisava в 07:32, 2 июля 2019

2019-07-02T07:32:23Z

2019-03-12T11:06:33Z

2017-07-20T12:41:08Z

2016-12-07T12:50:14Z

‎Полный текст функции

2016-12-07T12:49:54Z

‎Полный текст функции

2016-12-07T12:49:41Z

‎Полный текст функции

2016-12-07T12:49:25Z

‎Полный текст функции

2016-12-07T12:43:46Z

‎Полный текст функции

2016-12-07T12:43:34Z

‎Полный текст функции

2016-10-21T07:11:57Z

‎Полный текст функции

@@ Строка 8: / Строка 8: @@
 shift - текущая смена
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 8: / Строка 8: @@
 shift - текущая смена
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-LastProdShift - это функция из справочника [[R266]]
+[[LASTPRODSHIFT]] - это функция из справочника [[R266]]
+ Поиск предыдущей смены производства
-LASTPRODSHIFT( prod,  shift )
+[[LASTPRODSHIFT]]( prod,  shift )
-−
-Поиск предыдущей смены производства
 ( возвращает дату предыдущей смены в виде ггггддммс )
@@ Строка 10: / Строка 8: @@
 shift - текущая смена
+= Текст =
-= Полный текст функции =
-−
   Parameters prod, shift
@@ Строка 48: / Строка 44: @@
   endif
   // *** ПРОШЛЫЙ МЕСЯЦ ***
 = Смотрите также =
 [[Функции Delphi]]

@@ Строка 37: / Строка 37: @@
     sql := [ Select MAX( DSHIFT ) last_shift ;
       From ] + [[RetDbName]]( 'PAC', [[TimeBack]]( [[StoD]]( shift ), -1 ) ) + ;
-        Ret_f_ext( TimeBack( StoD( shift ), -1 ) ) + [ ;
+        [[Ret_f_ext]]( [[TimeBack]]( [[StoD]]( shift ), -1 ) ) + [ ;
       Where KINDDOC = 'PAC' and LVLNUM = '1' and DANAL1 = ] + prod
-    aa := SelectSqlToArr( sql, { 'last_shift' }, OpdataPath, false )
+    aa := [[SelectSqlToArr]]( sql, { 'last_shift' }, OpdataPath, false )
-    if !Empty( aa )
+    if ![[Empty]]( aa )
-      if !Empty( aa[1,1] )
+      if ![[Empty]]( aa[1,1] )
         result := aa[1,1]
         return

@@ Строка 34: / Строка 34: @@
   // --- ПРОШЛЫЙ МЕСЯЦ ---
-  if Empty( result )
+  if [[Empty]]( result )
     sql := [ Select MAX( DSHIFT ) last_shift ;
-      From ] + [[RetDbName]]( 'PAC', TimeBack( StoD( shift ), -1 ) ) + ;
+      From ] + [[RetDbName]]( 'PAC', [[TimeBack]]( [[StoD]]( shift ), -1 ) ) + ;
         Ret_f_ext( TimeBack( StoD( shift ), -1 ) ) + [ ;
       Where KINDDOC = 'PAC' and LVLNUM = '1' and DANAL1 = ] + prod

@@ Строка 21: / Строка 21: @@
   // --- ТЕКУЩИЙ МЕСЯЦ ---
   sql := [ Select [[MAX]]( DSHIFT ) last_shift ;
-    From ] + [[RetDbName]]( 'PAC', [[StoD]]( shift ) ) + Ret_f_ext( StoD( shift ) ) + [ ;
+    From ] + [[RetDbName]]( 'PAC', [[StoD]]( shift ) ) + [[Ret_f_ext]]( StoD( shift ) ) + [ ;
     Where KINDDOC = 'PAC' and LVLNUM = '1' and DANAL1 = ] + prod + [ and ;
       DSHIFT < '] + shift + [' ]
-  aa := SelectSqlToArr( sql, { 'last_shift' }, OpdataPath, false )
+  aa := [[SelectSqlToArr]]( sql, { 'last_shift' }, OpdataPath, false )
   if !Empty( aa )
     if !Empty( aa[1,1] )