l_lov:=    show_lov('find_vrno_edit');
    if not l_lov  then
        go_item('pb_block.pb_new_vr');
    else        
           :parameter.editmode:=1;
        if (:itemtran_head.vrno) is not null then
                        set_block_property('itemtran_head',default_where,'  tcode=:parameter.tcode and entity_code=:parameter.entity_code and vrno = ' ||''''||:itemtran_head.vrno||''''  );
                        go_block('itemtran_head');
                        execute_query(no_validate);
                        synchronize;
                        :itemtran_body.editqty:=:reachedqty;
                end if;
end if;