Версия 14:40, 7 сентября 2020

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

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

R71_R264_MODIFY()

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

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

@@ Строка 3: / Строка 3: @@
 [[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]]