Текущая версия на 15:45, 27 июля 2021

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

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

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

@@ Строка 1: / Строка 1: @@
-XHC_20160505 - это процедура из справочника [[R266]]
+[[XHC_20160505]] - это процедура из справочника [[R266]]
+ Найти всех покупателей с 01.01.2015 года
+= Смотрите также =
+[[Полезные функции]]
-Найти всех покупателей с 01.01.2015 года
+[[Функции Delphi]]
-= Текст программы =
- 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( 'Успешно завершено' )