ORZ

Материал из Фабиус wiki
Версия от 08:40, 6 декабря 2017; Hisava (обсуждение | вклад) (CTRL+F6)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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 Сред. кол-во в чеке