Версия 15:24, 20 сентября 2017

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

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

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( 'Успешно завершено' )

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

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

Функции Delphi