local wh,_ad,_vr

wh= 99 
_ad=karta.adr_id
_vr=thisform._lpuvr
eq=SQLEXEC(con,"{DO ?@wh=delete_one_lpu(?@_ad,?@_vr);}")
?wh

CREATE DEFINER=`root`@`localhost` FUNCTION `delete_one_lpu`(
    	_adr INT, _lpuvr SMALLINT) RETURNS TINYINT( 3 )
BEGIN
	DECLARE yn SMALLINT;
	CALL update_uch_adrbook_one(_adr, 9999 );
	SET yn=IFNULL((SELECT uch FROM adrbook a1 WHERE adr_id=_adr), 99 );
	
	IF yn<> 99  THEN
	    BEGIN
		RETURN  0 ;
	    END;
	ELSE 
		BEGIN
			SELECT COUNT(flu_id) INTO @kkol FROM karta WHERE vr<>_lpuvr AND adr_id=_adr;
			IF @kkol> 0  THEN 
				BEGIN
					DELETE FROM karta WHERE adr_id=_adr AND vr=_lpuvr;
					RETURN  1 ;
				END;
			ELSE 
				DELETE FROM karta WHERE adr_id=_adr AND vr=_lpuvr;
				DELETE FROM adrbook WHERE adr_id=_adr;
				RETURN  2 ;
			END IF;
		END;
	END IF;
END$$

wh= 99 
_ad=karta.adr_id
_vr=thisform._lpuvr
eq=SQLEXEC(con,"{DO ?@wh=delete_one_lpu(?@_ad,?@_vr);}")
?wh