ORZ — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→CTRL+F6) |
||
| Строка 25: | Строка 25: | ||
|} | |} | ||
== CTRL+F6 == | == CTRL+F6 == | ||
| + | if !YESNO( 'Загрузить продажи из EXCEL ( Такском-Касса )', false ) | ||
| + | return | ||
| + | endif | ||
| + | local aa, fld, _, i, sql, msg | ||
| + | aa := RANGEFROMEXCEL() | ||
| + | fld := ' _1,N,5; _2,C,40; _3,N,14,4; _4,N,14,4; _5,C,10; _6,N,14,4; _7,N,14,4; _8,N,5; _9,N,14,4; ' | ||
| + | try | ||
| + | WAITMSG( 'Обработка данных', msg ) | ||
| + | _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) | ||
| + | for i := 9 to LEN( aa[1] ) - 2 | ||
| + | ( _ )->( DBAPPEND() ) | ||
| + | ( _ )->_1 := aa[1,i] | ||
| + | ( _ )->_2 := aa[2,i] | ||
| + | ( _ )->_3 := aa[3,i] | ||
| + | ( _ )->_4 := aa[4,i] | ||
| + | ( _ )->_5 := aa[5,i] | ||
| + | ( _ )->_6 := aa[6,i] | ||
| + | ( _ )->_7 := aa[7,i] | ||
| + | ( _ )->_8 := aa[8,i] | ||
| + | ( _ )->_9 := aa[9,i] | ||
| + | next | ||
| + | fld := { 'NATTR1', 'D2NAME', 'SUM', 'NATTR2', 'CATTR1', 'NATTR3', 'AMNT', 'NATTR4', 'NATTR5' } | ||
| + | sql := [ Select _1 NATTR1, _2 D2NAME, _3 "SUM", _4 NATTR2, _5 CATTR1, _6 NATTR3, _7 AMNT, _8 NATTR4, _9 NATTR5 From ] + TmpFilePath( _ ) | ||
| + | aa := SQLTOARR( sql, fld ) | ||
| + | finally | ||
| + | CLOSETABLE( _ ) | ||
| + | HIDEMSG( msg ) | ||
| + | end | ||
| + | if !ISEMPTY( aa ) | ||
| + | ADDALL( 'ORZ', '2', DOCS1->RGNUM,, fld, aa ) | ||
| + | endif | ||
| + | |||
| + | // _1 NATTR1 Ранг | ||
| + | // _2 D2NAME Наименование позиции | ||
| + | // _3 SUM Выручка | ||
| + | // _4 NATTR2 НДС | ||
| + | // _5 CATTR1 Ставка НДС | ||
| + | // _6 NATTR3 Возвраты | ||
| + | // _7 AMNT Кол-во единиц | ||
| + | // _8 NATTR4 Кол-во чеков | ||
| + | // _9 NATTR5 Сред. кол-во в чеке | ||
Текущая версия на 08:40, 6 декабря 2017
ORZ2 Продажи
| Идентификатор реквизита | Наименование |
|---|---|
| AMNT | Кол-во единиц |
| CATTR1 | Ставка НДС |
| D2NAME | Наименование позиции |
| NATTR1 | Ранг |
| NATTR2 | НДС |
| NATTR3 | Возвраты |
| NATTR4 | Кол-во чеков |
| NATTR5 | Сред. кол-во в чеке |
| NUMDOC | Номер |
| SUM | Выручка |
CTRL+F6
if !YESNO( 'Загрузить продажи из EXCEL ( Такском-Касса )', false )
return
endif
local aa, fld, _, i, sql, msg
aa := RANGEFROMEXCEL()
fld := ' _1,N,5; _2,C,40; _3,N,14,4; _4,N,14,4; _5,C,10; _6,N,14,4; _7,N,14,4; _8,N,5; _9,N,14,4; '
try
WAITMSG( 'Обработка данных', msg )
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
for i := 9 to LEN( aa[1] ) - 2
( _ )->( DBAPPEND() )
( _ )->_1 := aa[1,i]
( _ )->_2 := aa[2,i]
( _ )->_3 := aa[3,i]
( _ )->_4 := aa[4,i]
( _ )->_5 := aa[5,i]
( _ )->_6 := aa[6,i]
( _ )->_7 := aa[7,i]
( _ )->_8 := aa[8,i]
( _ )->_9 := aa[9,i]
next
fld := { 'NATTR1', 'D2NAME', 'SUM', 'NATTR2', 'CATTR1', 'NATTR3', 'AMNT', 'NATTR4', 'NATTR5' }
sql := [ Select _1 NATTR1, _2 D2NAME, _3 "SUM", _4 NATTR2, _5 CATTR1, _6 NATTR3, _7 AMNT, _8 NATTR4, _9 NATTR5 From ] + TmpFilePath( _ )
aa := SQLTOARR( sql, fld )
finally
CLOSETABLE( _ )
HIDEMSG( msg )
end
if !ISEMPTY( aa )
ADDALL( 'ORZ', '2', DOCS1->RGNUM,, fld, aa )
endif
// _1 NATTR1 Ранг
// _2 D2NAME Наименование позиции
// _3 SUM Выручка
// _4 NATTR2 НДС
// _5 CATTR1 Ставка НДС
// _6 NATTR3 Возвраты
// _7 AMNT Кол-во единиц
// _8 NATTR4 Кол-во чеков
// _9 NATTR5 Сред. кол-во в чеке
