R38 TUM 8
Материал из Фабиус wiki
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