R38 TUM 8 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 19: | Строка 19: | ||
endif | endif | ||
| − | sql := [ Select | + | sql := [ Select Convert( CATTR10, sql_integer ) TAB ; |
From DOCP] + [[Ret_f_ext]]( [[StoD]]( shift ) ) + [ ; | From DOCP] + [[Ret_f_ext]]( [[StoD]]( shift ) ) + [ ; | ||
Where KINDDOC = 'PAC' and LVLNUM = '1' and DREFL1 = 'R10 ' and ; | Where KINDDOC = 'PAC' and LVLNUM = '1' and DREFL1 = 'R10 ' and ; | ||
Версия 11:29, 9 января 2017
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
