ORZ — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (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 Сред. кол-во в чеке