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]]

Текущая версия на 08:43, 21 января 2021

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