VIDEO 2 - История изменений

Hisava в 07:22, 21 июля 2017

2017-07-21T07:22:49Z

2017-01-18T06:13:03Z

‎Текст программы

2017-01-18T05:54:11Z

‎Текст программы

2017-01-18T05:54:01Z

‎Текст программы

2017-01-18T05:53:55Z

‎Текст программы

2017-01-18T05:53:45Z

‎Текст программы

2017-01-18T05:53:10Z

‎Текст программы

2017-01-18T05:52:53Z

‎Текст программы

2017-01-18T05:52:41Z

‎Текст программы

2017-01-18T05:52:31Z

‎Текст программы

@@ Строка 1: / Строка 1: @@
-VIDEO_2 - это программа из справочника [[R266]]
+[[VIDEO_2]] - это программа из справочника [[R266]]
+ Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath
-Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath
+= Текст =
-−
-= Текст программы =
-−
   local year, myarch, temp_path, fld, _, file_name, sql, tbl, key, ip
@@ Строка 48: / Строка 45: @@
   // Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath
 [[Функции Delphi]]

@@ Строка 25: / Строка 25: @@
     sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + [[SqlDate]]( ip[1] ) + [' and '] + [[SqlDate]]( ip[2] )+ [' ]
-    [[SimpleSql]]( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _3 ) ] + sql, temp_path )
+    [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _1, _2, _3 ) ] + sql, temp_path )
     ( _ )->( [[DbGoTop]]() )

@@ Строка 27: / Строка 27: @@
     [[SimpleSql]]( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _3 ) ] + sql, temp_path )
-    ( _ )->( DbGoTop() )
+    ( _ )->( [[DbGoTop]]() )
     tbl := { { 'Title', 'Видеосчетчик' }, { 'ShowType', 2 } }

@@ Строка 37: / Строка 37: @@
     key := { { { 'KeyName', 'F6' } }, { { 'KeyName', 'F8' } } }
-    MyGrid( _, tbl, fld, key, ~Modal := true )
+    [[MyGrid]]( _, tbl, fld, key, ~Modal := true )
   finally

@@ Строка 40: / Строка 40: @@
   finally
-    CloseTable( _ )
+    [[CloseTable]]( _ )
   end

@@ Строка 24: / Строка 24: @@
     _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
-    sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + SqlDate( ip[1] ) + [' and '] + SqlDate( ip[2] )+ [' ]
+    sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + [[SqlDate]]( ip[1] ) + [' and '] + [[SqlDate]]( ip[2] )+ [' ]
-    SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _3 ) ] + sql, temp_path )
+    [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _1, _2, _3 ) ] + sql, temp_path )
     ( _ )->( DbGoTop() )

@@ Строка 18: / Строка 18: @@
   [[RunProcess]]( [winrar a -dh -ep ] + myarch + [ \\DESKTOP-U722OCJ\Base\] + file_name )
-  RunProcess( [winrar x -y ] + myarch + [ ] + temp_path )
+  [[RunProcess]]( [winrar x -y ] + myarch + [ ] + temp_path )
   fld := ' _1,D,4; _2,C,5; _3,N,6'
   try
-    _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
+    _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
     sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + SqlDate( ip[1] ) + [' and '] + SqlDate( ip[2] )+ [' ]

@@ Строка 14: / Строка 14: @@
   year := Year( [[Date]]() )
   file_name := "0001" + year + ".dbf"
-  temp_path := [[Nice_Path]]( [[ExpandUNCFileName]]( [[TempPath]] ) )
+  temp_path := [[Nice_Path]]( [[ExpandUNCFileName]]( TempPath ) )
   myarch := temp_path + 'myarch'
-  RunProcess( [winrar a -dh -ep ] + myarch + [ \\DESKTOP-U722OCJ\Base\] + file_name )
+  [[RunProcess]]( [winrar a -dh -ep ] + myarch + [ \\DESKTOP-U722OCJ\Base\] + file_name )
   RunProcess( [winrar x -y ] + myarch + [ ] + temp_path )