OHC 171018 - История изменений

Hisava в 09:09, 6 декабря 2019

2019-12-06T09:09:52Z

Hisava: /* Текст */

2017-11-13T08:14:38Z

‎Текст

Hisava: /* Текст */

2017-11-01T05:26:03Z

‎Текст

Hisava в 05:16, 1 ноября 2017

2017-11-01T05:16:14Z

Hisava: Новая страница: «OHC_171018 - это программа из справочника R266 = Смотрите также = Полезные функции Функц…»

2017-11-01T05:14:07Z

Новая страница: «OHC_171018 - это программа из справочника R266 = Смотрите также = Полезные функции Функц…»

Новая страница

[[OHC_171018]] - это программа из справочника [[R266]]
= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]

@@ Строка 3: / Строка 3: @@
 [[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]]

@@ Строка 5: / Строка 5: @@
 [[Магазин]] - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка
 = Текст =
   local r603, temp_path, path, files, i, r20_kod, msg, ip, my, end_data
-  temp_path := [[NICE_PATH]]( EXPANDUNCFILENAME( TempPath ) )
+  temp_path := NICE_PATH( EXPANDUNCFILENAME( TempPath ) )
   CLEARDIR( temp_path )
   ip := INPUTPERIOD( true )
@@ Строка 17: / Строка 24: @@
     try
       WAITMSG( 'Анализ папки за период', msg )
-      r603 := OPENKLSF( '[[R603]]' )
+      r603 := OPENKLSF( 'R603' )
       ( r603 )->( DBGOTOP() )
       while !( r603 )->( EOF() )
         r20_kod := ( r603 )->R20_KOD
         path := NICE_PATH( ( ( r603 )->FOLDERATOL ) )
         files := DIRECTORY( path + '*' + SQLDATE( my ) + '.dbf', "A" )
@@ Строка 38: / Строка 51: @@
   end
   // http://wiki.sftserv.ru/index.php/Загрузка_продаж_в_фабиус_(_ОРЕХОВОХЛЕБ_)
-  AMC100_1()
+  // AMC100_1()
-  OHC_171019()
+  // OHC_171019()
 = Смотрите также =

@@ Строка 17: / Строка 17: @@
     try
       WAITMSG( 'Анализ папки за период', msg )
-      r603 := OPENKLSF( 'R603' )
+      r603 := OPENKLSF( '[[R603]]' )
       ( r603 )->( DBGOTOP() )
       while !( r603 )->( EOF() )
@@ Строка 40: / Строка 40: @@
   AMC100_1()
   OHC_171019()
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]