R38 TUM 8 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 21: Строка 21:
 
  sql := [ Select Convert( CATTR10, sql_integer ) TAB ;
 
  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 ;
 
     DANAL1 = ] + anal + [ and DSHIFT = '] + shift + [' ]
 
     DANAL1 = ] + anal + [ and DSHIFT = '] + shift + [' ]
 
  aa := [[SqlToArr]]( sql, { 'TAB' } )
 
  aa := [[SqlToArr]]( sql, { 'TAB' } )

Версия 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

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

Функции Delphi

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