AMC100 1 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
 
(не показаны 2 промежуточные версии этого же участника)
Строка 3: Строка 3:
 
[[AMC100_1]]()
 
[[AMC100_1]]()
 
= Текст =
 
= Текст =
 +
local temp_path, files, i, data, r20_kod, sql, msg
 +
try
 +
  [[WAITMSG]]( 'Удаление FTL и FRO', msg )
 +
  temp_path := NICE_PATH( EXPANDUNCFILENAME( TempPath ) )
 +
  files := DIRECTORY( temp_path + '*.*', "A" )
 +
  if !ISEMPTY( files )
 +
    files := PREPAREARR( files )
 +
    for i := 1 to LEN( files )
 +
      data := RIGHT( ATR( files[i] ), 14 )
 +
      data := LEFT( data, 10 )
 +
      data := STRTRAN( data, '-', "" )
 +
      data := STOD( data )
 +
      r20_kod := VAL( LEFT( ATR( files[i] ), 5 ) )
 +
      if !IS_FILE( 'DOCP', data )
 +
        OPENFDATA( 'DOCP' + RET_F_EXT( data ), 'DOCP', false, OpdataPath, 'DOCP' )
 +
      endif
 +
      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 )
 +
      sql := [ Delete From DOCP] + RET_F_EXT( data ) + [ Where KINDDOC = 'FRO' and DATDOC = '] + SQLDATE( data ) + [' and ;
 +
        KREFL1 = 'R20 ' and KANAL1 = ] + r20_kod + [ and 'SYSTEM.' = 'SYSTEM.' ]
 +
      SIMPLESQL( sql, OpdataPath )
 +
    next
 +
  endif
 +
finally
 +
  HIDEMSG( msg )
 +
end
 +
// во временной папке файлы содержат дату
 +
// FTL
 +
// FRO
 +
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 09:10, 2 ноября 2017

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

Удаление FTL и FRO

AMC100_1()

Текст

local temp_path, files, i, data, r20_kod, sql, msg
try
  WAITMSG( 'Удаление FTL и FRO', msg )
  temp_path := NICE_PATH( EXPANDUNCFILENAME( TempPath ) )
  files := DIRECTORY( temp_path + '*.*', "A" )
  if !ISEMPTY( files )
    files := PREPAREARR( files )
    for i := 1 to LEN( files )
      data := RIGHT( ATR( files[i] ), 14 )
      data := LEFT( data, 10 )
      data := STRTRAN( data, '-', "" )
      data := STOD( data )
      r20_kod := VAL( LEFT( ATR( files[i] ), 5 ) )
      if !IS_FILE( 'DOCP', data )
        OPENFDATA( 'DOCP' + RET_F_EXT( data ), 'DOCP', false, OpdataPath, 'DOCP' )
      endif
      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 )
      sql := [ Delete From DOCP] + RET_F_EXT( data ) + [ Where KINDDOC = 'FRO' and DATDOC = '] + SQLDATE( data ) + [' and ;
        KREFL1 = 'R20 ' and KANAL1 = ] + r20_kod + [ and 'SYSTEM.' = 'SYSTEM.' ]
      SIMPLESQL( sql, OpdataPath )
    next
  endif
finally
  HIDEMSG( msg )
end
// во временной папке файлы содержат дату
// FTL
// FRO

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

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

Функции Delphi