XHC 20160505

Материал из Фабиус wiki
Версия от 13:31, 19 сентября 2016; Hisava (обсуждение | вклад) (Текст программы)

Перейти к: навигация, поиск

XHC_20160505 - это процедура из справочника R266

Найти всех покупателей с 01.01.2015 года

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

if !YesNo( 'Запустить поиск покупателей с 01.01.2015 года?', false )
  return
endif

local data, m, i, _, fld, sql, msg, aa

fld := ' _1,N,5; '

m := 12 + 5
data := StoD( '20150101' )

try
  msg := WaitMsg( 'Обработка данных' )
  _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )

  for i := 0 to m - 1
    sql := [ Select DISTINCT ANAL From MTUN] + Ret_f_ext( data,, i ) + [ Where Left( BKACNT, 2 ) = '62' and REFLANAL = 'R01 ' and ANAL > 0 ]
    SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1 ) ] + sql, OpdataPath )
  next

  sql := [ Select DISTINCT _1 From ] + TmpFilePath( _ )
  aa := SqlToArr( sql, { '_1' } )

finally
  CloseTable( _ )
  HideMsg( msg )
end

if !IsEmpty( aa )
  aa := PrepareArr( aa )
  for i := 1 to len( aa )
    ChangeRef( 'R01', aa[i], 'CODEGROUP', 1, '02        ' )
  next
endif

Message( 'Успешно завершено' )

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

Функции Delphi

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