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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
Строка 3: Строка 3:
 
[[OHC_171018]]()
 
[[OHC_171018]]()
 
= Вызов =
 
= Вызов =
[[Магазин]] - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка
+
[[Магазин]] - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка
= Текст =
+
local taskanal
+
taskanal := 0
+
// [[R20]]_KOD
+
if TASKNAME == 'SHOP'
+
  taskanal := GETPARAM( 'TASKANAL' )
+
endif
+
+
local r603, temp_path, path, files, i, r20_kod, msg, ip, my, end_data
+
temp_path := NICE_PATH( EXPANDUNCFILENAME( TempPath ) )
+
CLEARDIR( temp_path )
+
ip := INPUTPERIOD( true )
+
if EMPTY( ip )
+
  return
+
endif
+
my := STOD( ip[1] )
+
end_data := STOD( ip[2] ) + 1
+
while my <> end_data
+
  try
+
    WAITMSG( 'Анализ папки за период', msg )
+
    r603 := OPENKLSF( 'R603' )
+
    ( r603 )->( DBGOTOP() )
+
    while !( r603 )->( EOF() )
+
      r20_kod := ( r603 )->R20_KOD
+
      if !EMPTY( taskanal )
+
        if r20_kod <> taskanal
+
          ( r603 )->( DBSKIP() )
+
          loop
+
        endif
+
      endif
+
      path := NICE_PATH( ( ( r603 )->FOLDERATOL ) )
+
      files := DIRECTORY( path + '*' + SQLDATE( my ) + '.dbf', "A" )
+
      if !ISEMPTY( files )
+
        files := PREPAREARR( files )
+
        for i := 1 to LEN( files )
+
          COPYFILE( path + files[i], temp_path + r20_kod + files[i] )
+
        next
+
      endif
+
      ( r603 )->( DBSKIP() )
+
    end
+
  finally
+
    CLOSETABLE( r603 )
+
    HIDEMSG( msg )
+
  end
+
  my := my + 1
+
end
+
// http://wiki.sftserv.ru/index.php/Загрузка_продаж_в_фабиус_(_ОРЕХОВОХЛЕБ_)
+
// AMC100_1()
+
// OHC_171019()
+
// OHC_171102()
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 12:09, 6 декабря 2019

OHC_171018 - это программа из справочника R266

path -> temp

OHC_171018()

Вызов

Магазин - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка

Смотрите также

Полезные функции

Функции Delphi