Текущая версия на 08:35, 2 октября 2020

R38_TUM_8 - это программа из справочника R266

Вернуть табельный номер бригадира по указанной смене

R38_TUM_8( shift [,anal] )

shift - смена в формате ггггммддс

anal - код производства

Смотрите также

@@ Строка 1: / Строка 1: @@
 [[R38_TUM_8]] - это программа из справочника [[R266]]
+ Вернуть табельный номер бригадира по указанной смене
-Вернуть табельный номер бригадира по указанной смене
 [[R38_TUM_8]]( shift  [,anal] )
@@ Строка 8: / Строка 6: @@
 anal - код производства
-= Текст программы =
- parameters shift, anal
- local sql, aa
- if [[Empty]]( anal )
-   anal := 1
- endif
- sql := [ Select [[Convert]]( CATTR10, sql_integer ) TAB ;
-   From DOCP] + [[Ret_f_ext]]( [[StoD]]( shift ) ) + [ ;
-   Where KINDDOC = 'PAC' and LVLNUM = '1' and DREFL1 = 'R10 ' and ;
-     DANAL1 = ] + anal + [ and DSHIFT = '] + shift + [' ]
- aa := [[SqlToArr]]( sql, { 'TAB' } )
- if ![[IsEmpty]]( aa )
-   result := aa[1,1]
- endif
 = Смотрите также =
+[[Полезные функции]]
 [[Функции Delphi]]
-[[Полезные функции]]