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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
(не показана одна промежуточная версия этого же участника)
Строка 3: Строка 3:
 
[[R71_R264_MODIFY]]()
 
[[R71_R264_MODIFY]]()
 
  [[Плановый отдел]] - [[Справочники]] - Убрать красноту в рецептурах
 
  [[Плановый отдел]] - [[Справочники]] - Убрать красноту в рецептурах
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( 'Успешно завершено' )
 
  
 +
var_num := 100000 * KODPROD + VAR_NUM
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

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

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

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

R71_R264_MODIFY()

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

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

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

Функции Delphi