R71 R264 MODIFY — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 2: Строка 2:
 
  Изменить справочники R71 и R264
 
  Изменить справочники R71 и R264
 
[[R71_R264_MODIFY]]()
 
[[R71_R264_MODIFY]]()
 +
[[Плановый отдел]] - [[Справочники]] - Убрать красноту в рецептурах
  
var_num := 100000 * KODPROD + VAR_NUM
+
  var_num := 100000 * KODPROD + VAR_NUM
= Текст =
+
  local r71, var_num, msg, r264
+
+
// r71
+
try
+
  r71 := OpenKlsf( '[[R71]]' )
+
  ( r71 )->( DbGoTop() )
+
  while !( r71 )->( eof() )
+
    var_num := 100000 * ( r71 )->KODPROD + ( r71 )->VAR_NUM
+
    if !Empty( var_num )
+
      if ( r71 )->R264KOD <> var_num
+
        WaitMsg( a_s( var_num ), msg )
+
        ( r71 )->R264KOD := var_num
+
      endif
+
    endif
+
    ( r71 )->( DbSkip() )
+
  end
+
finally
+
  CloseKlsf( 'R71' )
+
  HideMsg( msg )
+
end
+
+
// r264
+
try
+
  r264 := OpenKlsf( '[[R264]]' )
+
  ( r264 )->( DbGoTop() )
+
  while !( r264 )->( eof() )
+
    var_num := 100000 * ( r264 )->KODPROD + ( r264 )->VAR_NUM
+
    if !Empty( var_num )
+
      if ( r264 )->KOD <> var_num
+
        WaitMsg( a_s( var_num ), msg )
+
        ( r264 )->KOD := var_num
+
      endif
+
    endif
+
    ( r264 )->( DbSkip() )
+
  end
+
finally
+
  CloseKlsf( 'R264' )
+
  HideMsg( msg )
+
end
+
+
Message( 'Успешно завершено' )
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 14:40, 7 сентября 2020

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

Изменить справочники R71 и R264

R71_R264_MODIFY()

Плановый отдел - Справочники - Убрать красноту в рецептурах
var_num := 100000 * KODPROD + VAR_NUM

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

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

Функции Delphi