WRITE MV IF EMPTY — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 2: Строка 2:
 
  Заполнить мемо поле, если оно еще не заполнено
 
  Заполнить мемо поле, если оно еще не заполнено
 
[[WRITE_MV_IF_EMPTY]]( memofield_name, memofield_new_value )
 
[[WRITE_MV_IF_EMPTY]]( memofield_name, memofield_new_value )
= Текст =
+
= Пример =
  parameters memofield_name, memofield_new_value
+
  [[WRITE_MV_IF_EMPTY]]( 'CATTR11', SEEKREF( 'R143', KANAL2, 'OKOF', 1 ) )       // окоф
if [[EMPTY]]( memofield_new_value )
+
  return
+
endif
+
local aa
+
aa := READMV( memofield_name )
+
+
if EMPTY( aa )
+
  WRITEMV( memofield_name, memofield_new_value )
+
endif
+
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Версия 15:01, 20 февраля 2019

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

Заполнить мемо поле, если оно еще не заполнено

WRITE_MV_IF_EMPTY( memofield_name, memofield_new_value )

Пример

WRITE_MV_IF_EMPTY( 'CATTR11', SEEKREF( 'R143', KANAL2, 'OKOF', 1 ) )        // окоф

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

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

Функции Delphi