ADDR113

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

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

Текст

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

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