[raus]

Сообщение от belov-evgenii

в редакторе,

а в твоей программе для запросов к БД не пойдет?

[belov-evgenii]

нет

[raus]

Сообщение от belov-evgenii

нет

таки жаль

[sarapul-mro]

Сообщение от belov-evgenii

в редакторе, думаю нужно обновить http://www.ibexpert.com/rus/ibe_sfx.exe

Спасибо огромное!
Женя только теперь он отбирает все ИП и те которое оконченны.
Нужно чтобы ИП было на остатке.
И еще можно добавить колонку СПИ и ФИО должника.

Пробывал как с другими запросами которые ты писал, добавить эти поля но тут почему то не получается, хотя в других запросах которые без условия суммы в ответе все работало.

[belov-evgenii]

За тебя делать все не буду. Пробуй, если что-то не будет получаться, покажешь как делал и какие ошибки появляются.

execute ibeblock 
returns (npp integer, 
	summ numeric(15,2))							  --тут нужно добавлять столбцы для вывода 
as 
declare variable text varchar(500); 
begin 
	reSumString = ibec_re_Create('сумма: [0-9]{1,}.[0-9]{2};'); 
	reSum = ibec_re_Create('[0-9]{1,}.[0-9]{2}'); 
	--re = ibec_re_Create('[0-3][0-9]\.[0-1][0-9]\.(19|20)[0-9]{2}'); 
 
	for select IP.NPP, ZAPROS.TEXT								   --сюда добавлять поля, которые хочешь вывести наружу 
	from IP 
	join ZAPROS on IP.PK = ZAPROS.FK_IP 
	where ZAPROS.RESULT = 5 and								   --тут нужно добавлять условия (окончено/) 
		  IP.date_ip_out is not null and								 --а вот и твои оконченные 
		  IP.SUM_ is not null and 
		  IP.SUM_ > 0 and 
		  not exists (select * from 
					  document 
					  where ip.pk = document.fk 
						and document.kod = 10 
						and document.date_doc + 30 < current_timestamp) and 
		  ZAPROS.DATE_RES = (select max(Z.DATE_RES) 
							 from ZAPROS Z 
							 where ZAPROS.FK_IP = Z.FK_IP 
							 group by Z.FK_IP) 
	into :npp, :text do begin																	  --не забыть сюда включить переменные на выход (returns вверху) 
		if (:text is not null) then begin 
			res = ibec_re_Exec(reSumString, :text);			 /* ищем вхождения 'сумма: 0.00;' */ 
			while (res) do begin 
				SumString = ibec_re_Match(reSumString, 0);	  /* SumString = 'сумма: 0.00;' */ 
				res2 = ibec_re_Exec(reSum, SumString);		  /* ищем вхождения '0.00' */ 
				sum_as_string = ibec_re_Match(reSum, 0);		/* sum_as_string = '0.00' */ 
				Summ = cast(sum_as_string as numeric(15,2));	/* Summ = 0.00 */ 
				if (Summ > 50) then suspend;					/* если больше 50 - выводим */ 
				suspend; 
				res = ibec_re_ExecNext(reSumString); 
			end 
		end; 
	end; 
	ibec_re_Free(reSumString); 
	ibec_re_Free(reSum); 
end

[raus]

belov-evgenii (иже с ним) а вот эту конструкцию execute ibeblock нельзя ли как то напрямую делать из Ексель - в связке Ексель - драйвер БД - макрос, который скармливает скрипт.
Почему так хоцца?
Потому что пользователь умеет общаться с Ексель - а обучить нажать одну кнопочку, вызывающую макрос очень просто - и вуаля - результат на лицо.....

ЗЫ - только узнать бы какой драйвер можно сюда присобачить, чтобы понимал это....

[belov-evgenii]

ibeblock это фичи IBExpert

[raus]

Сообщение от belov-evgenii

ibeblock это фичи IBExpert

да, я понимаю, но хотелсь бы из Екселя сразу....

Попробую найти адекватный драйвер и синтаксис изучить.....

[belov-evgenii]

ЭТО ФИЧИ IBEXPERT!!!!!1111

[raus]

Женя, в связи с тем что гугл говорит что ты единственный, кто а рунете использует ibec_re_Create и иже с ним, а английскую мову я не очень знаю - не мог бы провести небольшой ликбез.
Вот кстати чуть попроще эту хрень нашел

	 execute ibeblock (any_text varchar(10000)) 
	 returns (email varchar(100)) 
	 as 
	 begin 
	   re = ibec_re_Create('[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+'); 
	   try 
		 Res = ibec_re_Exec(re, any_text); 
		 while (Res) do 
		 begin 
		   email = ibec_re_Match(re, 0); 
		   suspend; 
		   Res = ibec_re_ExecNext(re); 
		 end 
	   finally 
		 ibec_re_Free(re); 
	   end 
	 end

которая возвращает из любой строки емейл, но в синтаксис почто то не въезжаю...