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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
 
[[R38_TUM_8]] - это программа из справочника [[R266]]
 
[[R38_TUM_8]] - это программа из справочника [[R266]]
 
+
Вернуть табельный номер бригадира по указанной смене
Вернуть табельный номер бригадира по указанной смене
+
 
+
 
[[R38_TUM_8]]( shift  [,anal] )
 
[[R38_TUM_8]]( shift  [,anal] )
  
Строка 8: Строка 6:
  
 
anal - код производства
 
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]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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

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

R38_TUM_8( shift [,anal] )

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

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

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

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

Функции Delphi