|
|
| Строка 1: |
Строка 1: |
| | [[XHC_20160505]] - это процедура из справочника [[R266]] | | [[XHC_20160505]] - это процедура из справочника [[R266]] |
| | Найти всех покупателей с 01.01.2015 года | | Найти всех покупателей с 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]] | | [[Функции Delphi]] |
Текущая версия на 15:45, 27 июля 2021
XHC_20160505 - это процедура из справочника R266
Найти всех покупателей с 01.01.2015 года
Смотрите также
Полезные функции
Функции Delphi
