CREATE FUNCTION new_cards (text, integer, integer, double precision, integer, integer) RETURNS integer
    AS '
DECLARE

    crd_type ALIAS FOR $1;
    __begin ALIAS FOR $2;
    _count ALIAS FOR $3;
    _cost ALIAS FOR $4;
    _service_type ALIAS FOR $5;
    _cgid ALIAS FOR $6;

    rec RECORD;
    i integer;
    _login text;
    dopt_st integer;
    cbst integer;
    _passwd bigint;
    _open_num text;
        _card_id integer;
        _dialup_service_id integer;
BEGIN

    FOR i IN __begin .. __begin+_count-1 LOOP
        LOOP
		
		_login=round(random()*1000000000000);
		_passwd=round(random()*1000000000000);
		RAISE NOTICE ''login = %'', _login;
		RAISE NOTICE ''password = %'', _passwd;
		_open_num=crd_type||''-''||i;
 
		SELECT INTO rec
			id
		FROM
			service
		WHERE
			name = _login;

		IF rec.id IS NULL
		THEN 
			IF _passwd>100000000000
			THEN
				select into _card_id max(id_cards) from cards;
				INSERT INTO cards(id_cards,status_id,packet_type_id,card_login,card_passwd,open_number,value)
					VALUES (_card_id+1, 1, _service_type, _login,_passwd, _open_num,_cost);

				INSERT INTO service (name, currency, maintarifplan, client, service_type, cgid)
					VALUES (_login, 2, _service_type, 390, _service_type, _cgid);

				select into _dialup_service_id max(id) from service;
					
				INSERT INTO statistics_service (service, login, pswd)
					VALUES (_dialup_service_id, _login, _passwd);

				INSERT INTO dialup_service (id, service, login, pswd)
					VALUES (_dialup_service_id, _dialup_service_id, _login, _passwd);

				INSERT INTO payment (payment, paymentwb, rest, _limit, flag, paymenttype, _begin, _end, pri, service, type, pst)
					VALUES (_cost, _cost, _cost, 0, 3, 2, now(), now(), 1, _dialup_service_id, 2, 1)

				INSERT INTO dialopt (service, type, val)
					VALUES (_dialup_service_id, 1, 32);

				INSERT INTO dialopt (service, type, val)
					VALUES (_dialup_service_id, 2, 4);
				EXIT;
			END IF;
		END IF;
            RAISE NOTICE ''Такой логин уже существует !!! Генерим новый'';
        END LOOP;
    END LOOP;
    RETURN 0;
END;
'
    LANGUAGE plpgsql;