ADDR113 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[ADDR113]] - это программа из справочника [[R266]] | [[ADDR113]] - это программа из справочника [[R266]] | ||
| − | + | Добавляем в [[R113]] все изделия ( с возможностью выбора ), которых еще нет в [[R113]] | |
| − | Добавляем в [[R113]] все изделия ( с возможностью выбора ), которых еще нет в [[R113]] | + | [[ADDR113]]() |
| − | + | ||
= Текст = | = Текст = | ||
| − | |||
local sql, flt, _r11, aa, i | local sql, flt, _r11, aa, i | ||
| Строка 40: | Строка 38: | ||
[[Refresh]]() | [[Refresh]]() | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 10:31, 25 июля 2017
ADDR113 - это программа из справочника R266
Добавляем в 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()
