Просмотр исходного текста страницы XHC 20160505

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]]

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