CREATE PROCEDURE SPA_CHANGE_BILLCODE
(@N_CO_CD VARCHAR(4),
 @N_YM    VARCHAR(6),
 @N_OLD   NUMERIC(5,0),
 @N_NEW   NUMERIC(5,0))
AS
BEGIN
  IF NOT EXISTS (SELECT 1 FROM ADOCUSEQ 
	WHERE CO_CD = @N_CO_CD AND DOCU_MM = @N_YM AND MM_SQ = @N_OLD)
    BEGIN
	RAISERROR 202001 '原凭证号不存在，证号修改失败！'
	ROLLBACK TRANSACTION
    END
  IF EXISTS (SELECT 1 FROM ADOCUSEQ 
	WHERE CO_CD = @N_CO_CD AND DOCU_MM = @N_YM AND MM_SQ = @N_NEW)
    BEGIN
	RAISERROR 202002 '新凭证号已存在，证号修改失败！'
	ROLLBACK TRANSACTION
    END
  ELSE
    UPDATE ADOCUSEQ SET MM_SQ = @N_NEW
	WHERE CO_CD = @N_CO_CD AND DOCU_MM = @N_YM AND MM_SQ = @N_OLD
END

------------------------------------------------------------------------------------------------------------------------------
--修改凭证号
:SQL_BEGIN
  SELECT '执行完毕！'
:SQL_END
[01]:@T月份@H(YM);
[02]:@T原凭证号@H(NUMERIC);
[03]:@T新凭证号@H(NUMERIC);
[PROCEDURE]:SPA_CHANGE_BILLCODE(:[00],:[01],:[02],:[03]);