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

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

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

R38_TUM_8( shift [,anal] )

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

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

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

@@ Строка 6: / Строка 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]]