CREATE OR REPLACE PROCEDURE SP_XM_YYQFXM (
  V_SFXMID IN NUMBER,
  V_FLAG00 IN NUMBER )    ---1:启用欠费   0:停止欠费
 as
begin
  if V_flag00=0 then
    update BM_YYQFXM set TZRQ00=to_char(sysdate,'YYMMDD'),TZSJ00=to_char(sysdate,'HH24:MI:SS')
      where SFXMID=V_SFXMID and TZRQ00 is null and TZSJ00 is null;
  end if;
  if V_flag00=1 then
    insert into BM_YYQFXM(SFXMID,QYRQ00,QYSJ00,MZZYBZ)
      values(V_SFXMID,to_char(sysdate,'YYYYMMDD'),to_char(sysdate,'HH24:MI:SS'),'1');
  end if;
  commit;
EXCEPTION
   WHEN OTHERS THEN
          RAISE_APPLICATION_ERROR(-20001,'设置项目欠费出错 '||SQLCODE||SQLERRM);
          ROLLBACK;
end;