Текущая версия на 15:21, 22 ноября 2019

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

Добавляем в R113 все изделия ( с возможностью выбора ), которых еще нет в R113

ADDR113()

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

@@ Строка 2: / Строка 2: @@
   Добавляем в [[R113]] все изделия ( с возможностью выбора ), которых еще нет в [[R113]]
 [[ADDR113]]()
-= Текст =
- local sql, flt, _r11, aa, i
- flt := [ USE_STATUS<>1 ]
- sql := [ Select KODPROD ;
-   From [[R113]] ]
- aa := [[SelectSqlToArr]]( sql, {'KODPROD' }, ReflisPath )
- if ![[Empty]]( aa )
-   aa := [[PrepareArr]]( aa, 1 )
- endif
- for i := 1 to [[len]]( aa )
-   flt := flt + [ and KOD <> ] + aa[i]
- next
- _r11 := [[ChoiceRefr]]( 'R11', "[[GrpRecord]]('KOD')", { 'KOD', 'PNAME', 'BKACNT' }, flt, ;
-   ~Title := 'Выберите изделия Alt+F1, Alt+F2' )
- if [[Empty]]( _r11 )
-   return
- endif
- if [[ValType]]( _r11 ) = 'N'
-   _r11 := { _r11 }
- endif
- sql := [ Select KOD,1 KOEF ;
-   From r11 ;
-   Where KOD in ( ] + [[ArrAsString]]( _r11 ) + [ ) ]
- sql := [ Insert into [[R113]]( KODPROD, KOEF ) ] + sql
- [[SimpleSql]]( sql, ReflisPath )
- [[Refresh]]()
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]