sql-tools/批量开卡 (2).sql

use chongqingchunyi
 /* 
 
 SELECT * FROM sysobjects where type = 'u' ORDER BY Name 
 
 
DROP TABLE #CardInfo
  
CREATE TABLE #CardInfo
(
FBillTime DATETIME,
FCompNo VARCHAR(50),
FCardNo VARCHAR(50),
FName VARCHAR(50),
FMobile VARCHAR(50),
FAcctNo VARCHAR(50),
FAcctId BIGINT,
FDeposit DECIMAL(18,6),
FPayTypeNo VARCHAR(50),
FPayTypeId BIGINT,
FPayAmt DECIMAL(18,6),
FCardTypeNo VARCHAR(50),
FCardTypeId BIGINT,
FEmpNo VARCHAR(50),
FPW VARCHAR(50),
FMemo VARCHAR(2000),
FUserNo VARCHAR(50),
FCardExpiredDate DATETIME,
FAcctExpiredDate DATETIME,
FBizType VARCHAR(20),
FBizTypeName VARCHAR(20)
) 

update TCardInfo set <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD> = DATEADD(YEAR,100,GETDATE()) WHERE <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD> = '' OR <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD> = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
update TCardInfo set <EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD> = NULL WHERE <EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD> = '' OR <EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD> = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'

INSERT #CardInfo (FBizTypeName,FBillTime,FCompNo,FCardNo,FName,FMobile,FAcctNo,FDeposit,FPayTypeNo,FPayAmt,FCardTypeNo,FCardExpiredDate,FAcctExpiredDate,FPW,FMemo,FEmpNo,FUserNo)
SELECT ҵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>,<EFBFBD>ŵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD>ֻ<EFBFBD>,<EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,֧<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,֧<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD>,<EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע,<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<EFBFBD><EFBFBD>¼<EFBFBD>û<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FROM TCardInfo

--<EFBFBD>˻<EFBFBD>
UPDATE A
   SET A.FAcctId = B.FId
  FROM TPayAccount AS B,#CardInfo AS A
 WHERE A.FAcctNo = B.FNo
 

UPDATE A
   SET A.FAcctId = B.FId
  FROM TPayAccount AS B,#CardInfo AS A
 WHERE A.FAcctNo = B.FName
   AND ISNULL(A.FAcctId,0) = 0

--֧<EFBFBD><EFBFBD>
UPDATE A
   SET A.FPayTypeId = B.FId
  FROM TPayAccount AS B,#CardInfo AS A
 WHERE A.FPayTypeNo = B.FNo
   AND ISNULL(A.FPayTypeId,0) = 0


UPDATE A
   SET A.FPayTypeId = B.FId
  FROM TPayAccount AS B,#CardInfo AS A
 WHERE A.FPayTypeNo = B.FName
   AND ISNULL(A.FPayTypeId,0) = 0

--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
UPDATE A
   SET A.FCardTypeId = B.FId
  FROM TMemberCardType AS B,#CardInfo AS A
 WHERE A.FCardTypeNo = B.FNo
   AND ISNULL(A.FCardTypeId,0) = 0
 
UPDATE A
   SET A.FCardTypeId = B.FId
  FROM TMemberCardType AS B,#CardInfo AS A
 WHERE A.FCardTypeNo = B.FName
   AND ISNULL(A.FCardTypeId,0) = 0

UPDATE A
   SET A.FCardTypeId = B.FId
  FROM TMemberCardType AS B,#CardInfo AS A
 WHERE A.FCardTypeNo = B.FNo + '-' + B.FName
   AND ISNULL(A.FCardTypeId,0) = 0
   
 
   select * from tCardInfo
   
  SELECT * FROM #CardInfo 

  UPDATE #CardInfo  SET FUserNo = 'admin'
  UPDATE #CardInfo  SET FBizType = 'CardRchg' WHERE FBizTypeName = '<EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'
  UPDATE #CardInfo  SET FBizType = 'CardSale' WHERE FBizTypeName = '<EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
  
--<EFBFBD><EFBFBD><EFBFBD>ɿ<EFBFBD><EFBFBD><EFBFBD>  

 
DECLARE @BillTime DATETIME
SELECT @BillTime = GETDATE()
DECLARE @From INT
DECLARE @Count INT

SELECT @From = 50020223
SELECT @Count = 0
WHILE @Count < 200
BEGIN
 
PRINT @From
    INSERT #CardInfo(FBillTime,FCompNo,FCardNo,FName,FMobile,FAcctId,FDeposit,FPayTypeId,FPayAmt,
FCardTypeNo,FEmpNo,FPW,FMemo,FUserNo,FCardExpiredDate,FAcctExpiredDate)
    SELECT @BillTime,'001',@From,'<EFBFBD>Ź<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','',5564130390216603050,600,0,0,
'1014','01010','111111','<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼۻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>Ƴ̵<EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD>۵<EFBFBD>2<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','Admin','2119-04-25','2022-04-25'
    
    SELECT @From = @From + 1
    IF @From LIKE '%4'
        SELECT @From = @From + 1
    
    
    SET @Count = @Count + 1  
END

*/
 

  

UPDATE #CardInfo SET FBillTime = Getdate(),FCompNo = '001',FPayTypeId = 8,FPayAmt = FDeposit,FEmpNo = '01001',FPW  = '',FMemo = '',FUserNo = 'Admin',FCardExpiredDate = '2119-04-25'
UPDATE #CardInfo SET FBizType = 'CardRchg'

 

BEGIN TRAN
 
 
DECLARE @BillTime DATETIME
DECLARE @CardNo VARCHAR(50)
DECLARE @CompNo VARCHAR(50)
DECLARE @UserNo VARCHAR(50)
DECLARE @Name VARCHAR(50)
DECLARE @Mobile VARCHAR(50)
DECLARE @Deposit DECIMAL(18,6)
DECLARE @CardTypeId BIGINT
DECLARE @EmpNo VARCHAR(50)
DECLARE @EmpId BIGINT
DECLARE @PW VARCHAR(50)
DECLARE @Memo VARCHAR(2000)
DECLARE @CompId BIGINT
DECLARE @UserId BIGINT
DECLARE @CardExpiredDate DATETIME
DECLARE @DeptId BIGINT
DECLARE @AcctExpiredDate DATETIME
DECLARE @PayTypeId BIGINT
DECLARE @PayAmt DECIMAL(18,6)
DECLARE @AcctId BIGINT
DECLARE @BizType VARCHAR(30)
    
DECLARE List CURSOR FOR 
SELECT FBillTime,FUserNo,FCompNo,FCardNo,Fname,Fmobile,FDeposit,FCardTypeId,FEmpNo,FPW,Fmemo,FCardExpiredDate,FAcctExpiredDate,FPayTypeId,FPayAmt,FAcctId,FBizType FROM #CardInfo
OPEN List
FETCH List INTO @BillTime,@UserNo,@CompNo,@CardNo,@Name,@Mobile,@Deposit,@CardTypeId,@EmpNo,@PW,@Memo,@CardExpiredDate,@AcctExpiredDate,@PayTypeId,@PayAmt,@AcctId,@BizType
WHILE @@FETCH_STATUS = 0
BEGIN
    DECLARE @NewBillId BIGINT
    DECLARE @NewCardId BIGINT
    DECLARE @NewMemId BIGINT
    DECLARE @NewBillNo VARCHAR(200)
    DECLARE @WorkDate VARCHAR(200)
 
    SELECT @WorkDate =  CONVERT(VARCHAR,@BillTime,23)
    SELECT @CompId = FId FROM TCompany WHERE FNo=@CompNo
    SELECT @UserId = FId FROM TUser WHERE FNo = @UserNo
    SELECT @EmpId = FId,@DeptId = ISNULL(FDeptId,0) FROM TEmployee WHERE FNo = @EmpNo
 
    SELECT @NewBillId = dbo.FNNewId()
    
    IF @BizType = 'CardSale'
    BEGIN
		SELECT @NewCardId = dbo.FNNewId()
		SELECT @NewMemId = dbo.FNNewId()
	END
	ELSE IF @BizType = 'CardRchg'
	BEGIN
		SELECT @NewMemId = FMemId,@NewCardId = FCardId FROM TMemberCard WHERE FCardNo = @CardNo
	END
	SELECT @DeptId = ISNULL(@DeptId,0)
 
    EXEC PGetNewBillNo @CompId,@WorkDate,'TMemberSaleBill','Company+YYMMDD+9999','',@NewBillNo OUTPUT
     
 
    INSERT TMemberSaleBill(FBillId,FCompId,FBillTime,FBillNo,FSerialNo,FBizType,FCustSourceId,FMemId,FMemNo,FMemState,FPayCardId,FPayCardTypeId,FPayCardNo,FDues,FNeedPoint,FPoint,FInvoiceNo,FOrderBillId,FRegBillId,FBillMemo,
FCreateTime,FCreatorId,FState,FAuditTime,FAuditorId,FInvalidTime,FInvaliderId,FModifiedFlag,FWorkDate)
    SELECT @NewBillId,@CompId,@BillTime,@NewBillNo,@NewBillNo,'CardRchg',0,@NewMemId,@CardNo,1,0,0,'',0,0,0,'',0,0,'<EFBFBD><EFBFBD>̨<EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
GETDATE(),@UserId,0,NULL,0,NULL,0,0,@WorkDate
    
	INSERT TMemberSaleCard(FBillId,FCardId,FCardNo,FCardTypeId,FCardValueType,FOrigPrice,FCardFee,FSalePrice,FAcctId,FDeposit,FAcctId2,FDeposit2,FTimes,FMemo,FExpiredDate,FAcctExpiredDate,FAcctExpiredDate2,FOldExpiredDate,FOldAcctExpiredDate,FOldAcctExpiredDate2,
	FIsUpgrade,FNewCardTypeId,FNewCardValueType,FNewCardNo,FOldCardNo,FDeptId)
	SELECT @NewBillId,@NewCardId,@CardNo,@CardTypeId,1,@PayAmt,0,@PayAmt,@AcctId,@Deposit,0,0,0,@Memo,@CardExpiredDate,@AcctExpiredDate,null,null,null,null,
	0,0,0,'','',0

INSERT TMemberSaleEmployee( FId,FBillId,FDetailId,FWorkType,FDeptId,FEmpId,FShareRate,FPerf,FComm)
SELECT dbo.FNNewId(),@NewBillId,0,12001,@DeptId,@EmpId,1,@PayAmt,0

	IF @BizType = 'CardSale'
	BEGIN
		INSERT TMemberSaleInfo(FBillId,FName,FGender,FBirthdayType,FBirthday,FMobilePhone,FTelephone,FQQ,FWeChat,FIdCard,FAddress,FPlateNo,FDriverLicense,
		FVehicleLicense,FInsurer,FPW,FValidationMode,FMemo,FRecvConsSMS,FRecvBulkSMS,FIntrId)
			SELECT @NewBillId,@Name,0,'G',NULL,@Mobile,'','','','','','','',
		'',0,@PW,1,'',1,1,0
	END

IF @PayTypeId != 0 AND @PayAmt != 0
BEGIN
INSERT TMemberSalePayment( FId,FBillId,FPayTypeId,FPayAmt,FMemo)
SELECT dbo.FNNewId(),@NewBillId,@PayTypeId,@PayAmt,''
    END
    EXEC PAuditMemberSaleBill @NewBillId,1,@UserId 
   
	    
	FETCH List INTO @BillTime,@UserNo,@CompNo,@CardNo,@Name,@Mobile,@Deposit,@CardTypeId,@EmpNo,@PW,@Memo,@CardExpiredDate,@AcctExpiredDate,@PayTypeId,@PayAmt,@AcctId,@BizType
	 
END
CLOSE LIST
DEALLOCATE List
--ROLLBACK TRAN
 
--COMMIT TRAN