XHC 20160505 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (→‎Текст программы)
м
 
(не показаны 2 промежуточные версии этого же участника)
Строка 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

Источник — «https://wiki.sftserv.ru/index.php?title=XHC_20160505&oldid=40875»