TAKE FROM FTP1 - История изменений

Hisava: Содержимое страницы заменено на «TAKE_FROM_FTP1 - это программа из справочника R266 Удалить FTL и FRO TAKE_FROM_FTP1()…»

2019-06-27T12:49:36Z

Содержимое страницы заменено на «TAKE_FROM_FTP1 - это программа из справочника R266 Удалить FTL и FRO TAKE_FROM_FTP1()…»

Hisava: /* Текст */

2017-05-04T09:56:21Z

‎Текст

Hisava: /* Использование */

2017-05-04T09:54:15Z

‎Использование

Hisava: /* Текст */

2017-05-04T08:21:59Z

‎Текст

Hisava в 08:21, 4 мая 2017

2017-05-04T08:21:02Z

Hisava: Новая страница: «TAKE_FROM_FTP1 - это программа из справочника R266 Удалить FTL и FRO TAKE_FROM_FTP1() = Использование…»

2017-05-04T08:18:29Z

Новая страница: «TAKE_FROM_FTP1 - это программа из справочника R266 Удалить FTL и FRO TAKE_FROM_FTP1() = Использование…»

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

[[TAKE_FROM_FTP1]] - это программа из справочника [[R266]]
Удалить FTL и FRO
[[TAKE_FROM_FTP1]]()

= Использование =
[[TAKE_FROM_FTP]]
= Смотрите также =
[[Полезные функции]]

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

@@ Строка 8: / Строка 8: @@
   try
-    WaitMsg( 'Удаление', msg )
+    [[WaitMsg]]( 'Удаление', msg )
-    temp_path := Nice_Path( ExpandUNCFileName( TempPath ) )
+    temp_path := [[Nice_Path]]( [[ExpandUNCFileName]]( TempPath ) )
-    aaa := Directory( temp_path + '*', "D" )
+    aaa := [[Directory]]( temp_path + '*', "D" )
-    for ii := 1 to len( aaa )
+    for ii := 1 to [[len]]( aaa )
-      if val( aaa[ii,1] ) > 0
+      if [[val]]( aaa[ii,1] ) > 0
-        r20_kod := val( aaa[ii,1] )
+        r20_kod := [[val]]( aaa[ii,1] )
-        r20_kod := SeekRef( 'R603', r20_kod, 'R20_KOD', 1 )
+        r20_kod := [[SeekRef]]( '[[R603]]', r20_kod, '[[R20]]_KOD', 1 )
-        if Empty( r20_kod )
+        if [[Empty]]( r20_kod )
           loop
         endif
         folder := temp_path + aaa[ii,1]
-        file_name := Directory( folder + '\*rep*', "A" )
+        file_name := [[Directory]]( folder + '\*rep*', "A" )
-        if Empty( file_name )
+        if [[Empty]]( file_name )
           loop
         endif
         file_name := file_name[1,1]
-        path := Nice_Path( folder )
+        path := [[Nice_Path]]( folder )
         file_name := path + file_name
         fld := ' _0,C,200; _1,D,4; _2,C,20; '
         try
-          WaitMsg( 'Обработка данных' + file_name, msg )
+          [[WaitMsg]]( 'Обработка данных' + file_name, msg )
-          _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
+          _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
-          file_frontol := AssignFile( file_name )
+          file_frontol := [[AssignFile]]( file_name )
-          if Empty( file_frontol )
+          if [[Empty]]( file_frontol )
             loop
           endif
-          TextReset( file_frontol )
+          [[TextReset]]( file_frontol )
-          aa := ReadLn( file_frontol )
+          aa := [[ReadLn]]( file_frontol )
           // заполнение временной таблицы
-          while !TextEof( file_frontol )
+          while ![[TextEof]]( file_frontol )
-            aa := ReadLn( file_frontol )
+            aa := [[ReadLn]]( file_frontol )
-            WaitMsg( Left( aa, 16 ), msg )
+            [[WaitMsg]]( [[Left]]( aa, 16 ), msg )
-            if len( aa ) > 10
+            if [[len]]( aa ) > 10
-              ( _ )->( DbAppend() )
+              ( _ )->( [[DbAppend]]() )
               ( _ )->_0 := aa
-              ( _ )->_1 := CtoD( Token( aa, 2 ) )
+              ( _ )->_1 := [[CtoD]]( [[Token]]( aa, 2 ) )
-              ( _ )->_2 := Right( file_name, 20 )
+              ( _ )->_2 := [[Right]]( file_name, 20 )
             endif
           end
-          sql := [ Select DISTINCT _1 From ] + TmpFilePath( _ )
+          sql := [ Select DISTINCT _1 From ] + [[TmpFilePath]]( _ )
-          aa := SqlToArr( sql, { '_1' } )
+          aa := [[SqlToArr]]( sql, { '_1' } )
-          aa := PrepareArr( aa )
+          aa := [[PrepareArr]]( aa )
-          for i := 1 to len( aa )
+          for i := 1 to [[len]]( aa )
             data := aa[i]
-            WaitMsg( 'Удаление ранее загруженных данных за ' + aa[i], msg )
+            [[WaitMsg]]( 'Удаление ранее загруженных данных за ' + aa[i], msg )
-            if !Is_File( 'DOCP', data )
+            if ![[Is_File]]( '[[DOCP]]', data )
-              OpenFData( 'DOCP' + Ret_f_ext( data ), 'DOCP', false, OpdataPath, 'DOCP' )
+              [[OpenFData]]( '[[DOCP]]' + [[Ret_f_ext]]( data ), '[[DOCP]]', false, OpdataPath, '[[DOCP]]' )
             endif
             // FTL
-            sql := [ Delete From DOCP] + Ret_f_ext( data ) + [ Where KINDDOC = 'FTL' and DATDOC = '] + SQlDate( data ) + [' and ;
+            sql := [ Delete From [[DOCP]]] + [[Ret_f_ext]]( data ) + [ Where KINDDOC = '[[FTL]]' and DATDOC = '] + [[SQlDate]]( data ) + [' and ;
               DREFL1 = '[[R20]] ' and DANAL1 = ] + r20_kod + [ and 'SYSTEM.' = 'SYSTEM.' ]
             SimpleSql( sql, OpdataPath )

@@ Строка 4: / Строка 4: @@
 = Использование =
 [[TAKE_FROM_FTP]]
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]