XHC 20160505 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 14: | Строка 14: | ||
m := 12 + 5 | m := 12 + 5 | ||
| − | data := StoD( '20150101' ) | + | data := [[StoD]]( '20150101' ) |
try | try | ||
| − | msg := WaitMsg( 'Обработка данных' ) | + | msg := [[WaitMsg]]( 'Обработка данных' ) |
| − | _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) | + | _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true ) |
for i := 0 to m - 1 | for i := 0 to m - 1 | ||
| Строка 29: | Строка 29: | ||
finally | finally | ||
| − | CloseTable( _ ) | + | [[CloseTable]]( _ ) |
| − | HideMsg( msg ) | + | [[HideMsg]]( msg ) |
end | end | ||
if !IsEmpty( aa ) | if !IsEmpty( aa ) | ||
| − | aa := PrepareArr( aa ) | + | aa := [[PrepareArr]]( aa ) |
for i := 1 to len( aa ) | for i := 1 to len( aa ) | ||
| − | ChangeRef( 'R01', aa[i], 'CODEGROUP', 1, '02 ' ) | + | [[ChangeRef]]( 'R01', aa[i], 'CODEGROUP', 1, '02 ' ) |
next | next | ||
endif | endif | ||
| − | Message( 'Успешно завершено' ) | + | [[Message]]( 'Успешно завершено' ) |
= Смотрите также = | = Смотрите также = | ||
Версия 13:32, 19 сентября 2016
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( 'Успешно завершено' )
