FXApp/ws_objects/l1_uo.pbl.src/getid_saletask.srf

$PBExportHeader$getid_saletask.srf
global type getid_saletask from function_object
end type

forward prototypes
global function string getid_saletask (long argscid, string argctg, date argdate, boolean arg_ifcommit, transaction arg_transaction)
end prototypes

global function string getid_saletask (long argscid, string argctg, date argdate, boolean arg_ifcommit, transaction arg_transaction);// 函数获取一个新的业务编号
String rslt,ls_oldfirststr,ls_datestyle ,ls_typecode,ls_firststr
Long cnt,id
DateTime d1,d2
Long ll_nmbr

argctg = Upper(Trim(argctg))
d1 = DateTime(argDate)
ls_oldfirststr = 'SG'
ls_firststr = argctg

//取新单号
SELECT datestyle
	INTO :ls_datestyle
	FROM u_billcode
	WHERE oldfirststr = :ls_oldfirststr
	Using arg_transaction;
	
IF arg_transaction.SQLCode <> 0 THEN
	ROLLBACK Using arg_transaction;
	rslt = "err"
	GOTO ext
END IF
//

rslt = String(argDate,Trim(ls_datestyle))

CHOOSE CASE ls_datestyle
	CASE 'yymmdd'
		UPDATE  u_bsnno
			SET nmbr = nmbr + 1
			WHERE opDate = :d1
			AND typecode = :ls_firststr
			AND scid = :argscid
			And status = 0 Using arg_transaction;
			
		IF arg_transaction.SQLCode <> 0 THEN
			ROLLBACK Using arg_transaction ;
			rslt = "err"
			GOTO ext
		END IF
		
		IF arg_transaction.SQLNRows = 0 THEN
			INSERT INTO u_bsnno(scid, opdate, typecode, nmbr, status)
				Values (:argscid, :d1, :ls_firststr, 1, 0) Using arg_transaction;
				
			IF arg_transaction.SQLCode <> 0 THEN
				ROLLBACK Using arg_transaction ;
				rslt = "err"
				GOTO ext
			END IF
		END IF
		
		SELECT nmbr
			INTO :ll_nmbr
			FROM  u_bsnno
			WHERE opDate = :d1
			AND typecode = :ls_firststr
			AND scid = :argscid
			And status = 0 Using arg_transaction;
			
		IF argctg = 'TXM' THEN
			rslt = rslt + String(ll_nmbr,"00000")
		ELSE
			rslt = ls_firststr + rslt + String(ll_nmbr,"000")
		END IF
		
	CASE 'yymm'
		d2 = DateTime(Date(String(Year(argDate)) + '-' + String(Month(argDate)) + '-01'))
		
		UPDATE  u_bsnno SET nmbr = nmbr + 1 WHERE opDate = :d2 AND typecode = :ls_firststr
			And scid = :argscid And status = 1 Using arg_transaction;
			
		IF arg_transaction.SQLCode <> 0 THEN
			ROLLBACK Using arg_transaction ;
			rslt = "err"
			GOTO ext
		END IF
		
		IF arg_transaction.SQLNRows = 0 THEN
			INSERT INTO u_bsnno(scid, opdate, typecode, nmbr, status)
				Values (:argscid, :d2, :ls_firststr, 1, 1) Using arg_transaction;
				
			IF arg_transaction.SQLCode <> 0 THEN
				ROLLBACK Using arg_transaction ;
				rslt = "err"
				GOTO ext
			END IF
		END IF
		
		SELECT nmbr
			INTO :ll_nmbr
			FROM  u_bsnno
			WHERE opDate = :d2
			AND typecode = :ls_firststr
			AND scid = :argscid
			And status = 1 Using arg_transaction;
			
		rslt = ls_firststr + rslt + String(ll_nmbr,"00000")
	CASE 'yy'
		d2 = DateTime(Date(String(Year(argDate)) + '-01-01'))
		
		UPDATE  u_bsnno
			SET nmbr = nmbr + 1
			WHERE opDate = :d2
			AND typecode = :ls_firststr
			AND scid = :argscid
			And status = 2 Using arg_transaction;
			
		IF arg_transaction.SQLCode <> 0 THEN
			ROLLBACK Using arg_transaction ;
			rslt = "err"
			GOTO ext
		END IF
		
		IF arg_transaction.SQLNRows = 0 THEN
			INSERT INTO u_bsnno(scid, opdate, typecode, nmbr, status)
				Values (:argscid, :d2, :ls_firststr, 1, 2) Using arg_transaction;
				
			IF arg_transaction.SQLCode <> 0 THEN
				ROLLBACK Using arg_transaction ;
				rslt = "err"
				GOTO ext
			END IF
		END IF
		
		SELECT nmbr
			INTO :ll_nmbr FROM  u_bsnno
			WHERE opDate = :d2
			AND typecode = :ls_firststr
			AND scid = :argscid
			And status = 2 Using arg_transaction;
			
		IF Left(argctg,7) = 'BARCODE' THEN
			rslt = ls_firststr + rslt + String(ll_nmbr,"00000000")
		ELSEIF argctg = 'OUT' THEN
			rslt = rslt + String(ll_nmbr,"000000000")
		ELSE
			rslt = ls_firststr + rslt + String(ll_nmbr,"0000000")
		END IF
		
	CASE 'pbarcode'
		UPDATE  u_bsnno
			SET nmbr = nmbr + 1
			WHERE typecode = :ls_firststr
			AND scid = :argscid
			And status = 0 Using arg_transaction;
			
		IF arg_transaction.SQLCode <> 0 THEN
			ROLLBACK Using arg_transaction ;
			rslt = "err"
			GOTO ext
		END IF
		
		IF arg_transaction.SQLNRows = 0 THEN
			INSERT INTO u_bsnno(scid, typecode, nmbr, status)
				Values (:argscid,  :ls_firststr, 1, 0) Using arg_transaction;
				
			IF arg_transaction.SQLCode <> 0 THEN
				ROLLBACK Using arg_transaction ;
				rslt = "err"
				GOTO ext
			END IF
		END IF
		
		SELECT nmbr
			INTO :ll_nmbr
			FROM  u_bsnno
			WHERE typecode = :ls_firststr
			And scid = :argscid Using arg_transaction;
			
		rslt = ls_firststr + String(ll_nmbr,"000000000")
END CHOOSE

IF rslt = '' THEN rslt = 'err'


IF arg_ifcommit And rslt <> "err" THEN
	COMMIT Using arg_transaction;
END IF

ext:
Return(rslt)















end function