R38 TUM 8

Материал из Фабиус wiki
Версия от 11:28, 9 января 2017; Hisava (обсуждение | вклад) (Текст программы)

Перейти к: навигация, поиск

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

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

R38_TUM_8( shift [,anal] )

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

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

Полезные функции