ADDR113 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[ADDR113]] - это программа из справочника [[R266]] | [[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]]() | ||
= Смотрите также = | = Смотрите также = | ||
Версия 08:43, 23 января 2017
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()
