XHC 20160505 - История изменений

Hisava в 12:45, 27 июля 2021

2021-07-27T12:45:08Z

Hisava в 07:13, 21 июля 2017

2017-07-21T07:13:38Z

Hisava: /* Смотрите также */

2017-01-16T07:43:34Z

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

Hisava: /* Текст программы */

2016-09-19T10:32:04Z

‎Текст программы

Hisava: /* Текст программы */

2016-09-19T10:31:01Z

‎Текст программы

Hisava: /* Текст программы */

2016-09-12T08:15:13Z

‎Текст программы

Hisava: Новая страница: «XHC_20160505 - это процедура из справочника R266 Найти всех покупателей с 01.01.2015 года = Текст п…»

2016-05-10T08:49:46Z

Новая страница: «XHC_20160505 - это процедура из справочника R266 Найти всех покупателей с 01.01.2015 года = Текст п…»

Новая страница

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( 'Успешно завершено' )

@@ Строка 1: / Строка 1: @@
 [[XHC_20160505]] - это процедура из справочника [[R266]]
   Найти всех покупателей с 01.01.2015 года
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-XHC_20160505 - это процедура из справочника [[R266]]
+[[XHC_20160505]] - это процедура из справочника [[R266]]
+ Найти всех покупателей с 01.01.2015 года
-Найти всех покупателей с 01.01.2015 года
+= Текст =
-−
-= Текст программы =
-−
   if ![[YesNo]]( 'Запустить поиск покупателей с 01.01.2015 года?', false )
     return
@@ Строка 41: / Строка 38: @@
   [[Message]]( 'Успешно завершено' )
 [[Функции Delphi]]

@@ Строка 43: / Строка 43: @@
 = Смотрите также =
 [[Функции Delphi]]
 [[Полезные функции]]

← Предыдущая		Версия 08:15, 12 сентября 2016
Строка 41:		Строка 41:

	Message( 'Успешно завершено' )		Message( 'Успешно завершено' )
		+
		+	= Смотрите также =
		+
		+	[[Функции Delphi]]
		+
		+	[[Полезные функции]]

@@ Строка 14: / Строка 14: @@
   m := 12 + 5
-  data := StoD( '20150101' )
+  data := [[StoD]]( '20150101' )
   try
-    msg := WaitMsg( 'Обработка данных' )
+    msg := [[WaitMsg]]( 'Обработка данных' )
-    _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
+    _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
     for i := 0 to m - 1
@@ Строка 29: / Строка 29: @@
   finally
-    CloseTable( _ )
+    [[CloseTable]]( _ )
-    HideMsg( msg )
+    [[HideMsg]]( msg )
   end
   if !IsEmpty( aa )
-    aa := PrepareArr( aa )
+    aa := [[PrepareArr]]( aa )
     for i := 1 to len( aa )
-      ChangeRef( 'R01', aa[i], 'CODEGROUP', 1, '02        ' )
+      [[ChangeRef]]( 'R01', aa[i], 'CODEGROUP', 1, '02        ' )
     next
   endif
-  Message( 'Успешно завершено' )
+  [[Message]]( 'Успешно завершено' )
 = Смотрите также =