PRODTYPE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Полный текст функции)
м (Смотрите также)
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
 
[[PRODTYPE]] - это функция из справочника [[R266]]
 
[[PRODTYPE]] - это функция из справочника [[R266]]
 +
Возвращает вид изделия
 +
[[PRODTYPE]]( код изделия  [, справочник] )
  
[[PRODTYPE]]( код изделия  [, справочник] )
+
Parameters Prod, Refl := '[[R11]] '
  
Parameters Prod, Refl := 'R11 '
+
Вид изделия - это код из справочника [[R73]]
 
+
= Текст =
Возвращает вид изделия. Вид изделия - это код из справочника [[R73]]
+
  Parameters  Prod, Refl:='[[R11]] '
 
+
= Полный текст функции =
+
 
+
  Parameters  Prod, Refl:='R11 '
+
 
  result:=0
 
  result:=0
  if  [[padr]](Refl,4)='R11 '; result:=[[SeekRef]](Refl,Prod,'[[PROD_TYPE]]',1,0);  endif
+
  if  [[padr]](Refl,4)='[[R11]] '; result:=[[SeekRef]](Refl,Prod,'[[PROD_TYPE]]',1,0);  endif
  
 
= Пример =
 
= Пример =
 
 
  [[PRODTYPE]]( DANAL2 )
 
  [[PRODTYPE]]( DANAL2 )
 
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
 
[[Функции Delphi]]
 
  
 
[[R73]]
 
[[R73]]

Текущая версия на 08:59, 24 ноября 2023

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

Возвращает вид изделия

PRODTYPE( код изделия [, справочник] )

Parameters Prod, Refl := 'R11 '

Вид изделия - это код из справочника R73

Текст

Parameters  Prod, Refl:='R11 '
result:=0
if  padr(Refl,4)='R11 '; result:=SeekRef(Refl,Prod,'PROD_TYPE',1,0);  endif

Пример

PRODTYPE( DANAL2 )

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

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

R73