do $$
	declare
		r record;
begin

for r in
	select shop_ip
		from topology_shop
	perform dblink_connect('host='||shop_ip||' dbname=set_loyal user=postgres password=#Pos324011');

	perform dblink_open(
		'applied_uniq_coupons',
		'select card_number
			from loy_discount_cards as ll
			join (select id
				from loy_transaction
				where sale_time > ''2019-04-26 16:25:44''::timestamp
		 	) as tt on ll.transaction_id = tt.id
		where card_type = ''UniqueCoupon''');

	loop
		for r in
		select ccl.guid, data.card_number, data.sale_time, data.cash_number, data.purchase_number, data.shift_number, data.shop_number
			from card_internalcards as cic
			join card_cards as cc on cic.id = cc.cardtype_id
			join (select *
					from dblink_fetch('applied_uniq_coupons', 10000)
					as data (card_number	CHARACTER VARYING(256))) as data on cc.numberfield = data.card_number
		loop
		end loop;

		if not found then
			exit;
		end if;
	end loop;

	perform dblink_close('applied_uniq_coupons');

	perform dblink_disconnect();
end loop;

end $$