RET ALC NAME — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «RET_ALC_NAME - это функция из справочника R266 RET_ALC_NAME(num_grp) По номеру группы алкоголя вернуть…»)
 
м (Пример)
Строка 12: Строка 12:
  
 
[[Файл:18-11-2016 10-29-21.png]]
 
[[Файл:18-11-2016 10-29-21.png]]
 +
 +
= Текст программы =
 +
 +
parameters num_grp
 +
 +
local aa, sql
 +
 +
sql := [ Select NUMBER, COMPONENT ;
 +
  From R202 ;
 +
  Where KOD = '243' and COMPONENT like '%] + num_grp + [%' ]
 +
aa := [[SqlToArr]]( sql, { 'NUMBER', 'COMPONENT' }, ReflisPath )
 +
 +
if ![[IsEmpty]]( aa )
 +
  aa := [[StrToArray]]( aa[1,2], "'" )
 +
  result := aa[2]
 +
endif
  
 
= Смотрите также =
 
= Смотрите также =

Версия 10:37, 18 ноября 2016

RET_ALC_NAME - это функция из справочника R266

RET_ALC_NAME(num_grp)

По номеру группы алкоголя вернуть наименование группы

num_grp - номер группы

Пример

RET_ALC_NAME( 405 )

18-11-2016 10-29-21.png

Текст программы

parameters num_grp

local aa, sql

sql := [ Select NUMBER, COMPONENT ;
  From R202 ;
  Where KOD = '243' and COMPONENT like '%] + num_grp + [%' ]
aa := SqlToArr( sql, { 'NUMBER', 'COMPONENT' }, ReflisPath )

if !IsEmpty( aa )
  aa := StrToArray( aa[1,2], "'" )
  result := aa[2]
endif

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

Функции Delphi

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