客戶點數的計算(In BHQ )
FirstDate:計算基準日期(in Cust)

1.分店交易資料檔載入作業->客戶點數結轉作業
2.計算點數的方式

  a.先找出在VIPPointI內的點數
  b.再計算OCheck內的消費金額，並轉換成點數
    
	.轉換點數時的選項
  	.兌換率
  	.可依據單張帳單或消費總金額

  c.上面二者合計即為該客戶目前的點數
  
  d.點數產生的日期必需大於或等於計算基準日期
    OCheck-OPDate , VIPPointI-TransDate
  
  e.新的點數會更新到Cust-TPoint

3.在總部資料重整作業(BHQ001)內，也可以計算客戶點數，
  但與上述方式有三點不同。
  a.多加上點數有效日(PointValidDate)的條件
    點數產生的日期必需大於點數有效日
  b.在統計VIPPointI的點數時，凡是ItemType為"結算"的記錄，
    都不會被統計到
  c.目前的點數 = Cust-Point + VIPPointI + OCheck

  PS.本來是為了加速RT在計算點數的時間，但後來沒有使用

4.點數結算作業( IN 總部資料重整作業) -目前沒有客戶使用
  a.計算上次結算日到本次結算日之內所產生的點數
  b.加上上次結算日時的點數(Cust-Point)，即為本次結算的結果
  c.在VIPPointI中新增此次結算的記錄(ItemType=結算)
  d.更新Cust-Point 

前台作業
1.目前未使用點數抵扣的功能，目前的紅利扣點，均使用Cust-TBonusAmt
2.輸入客戶編號時
    
    CustCheckType = 1
    查詢客戶的點數，如果本機資料庫查不到，可以連線到線公司查    

    vSQL = "select CustNo, CustName, BirthDate, GoodThru, BNo, Tel1, Dept, TPoint, Remark, Remark1 "
    vSQL = vSQL & " From CUST "
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)

    CustCheckType = 2
    僅在本機資料庫查詢紅利
    vSQL = "select CustNo, CustName, Dept, Tel1, IDNo, BNo, TBonusAmt, GoodThru "
    vSQL = vSQL & " From CUST "
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
    
    CustCheckType = 3
    預付款抵扣
    vSQL = "Select CustName, BirthDate, PREAMT, GoodThru, BNo  "
    vSQL = vSQL & " From CUST "
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
  
    CustCheckType = 5
    查詢客戶的折扣率，並確認會員卡號是否在有效期內
    vSQL = "select CustNo, CustName, GoodThru, DiscRate from cust"
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
  
    CustCheckType =7, 8 
    基本同CustCheckType=5的狀況，但額外查詢客戶的消費次數和金額，並Show出客戶的相片

3.按下紅利/預付抵扣的按紐
  CustCheckType = 2
  呼叫fmDeduct，抵扣紅利

  CustCheckType = 3
  呼叫fmDeduct，頂上，使用寄款餘額
  
  CustCheckType = 4  
  呼叫BKRMV.EXE，連線到總公司抵扣紅利
  
  CustCheckType = 8
  呼叫fmDeductIC，卡登IC卡介面

收銀作業
1.基本上只有處理CustCheckType = 6的狀況(好像是向陽房要的功能)
  CustCheckType = 6 : 會員點數 50元計一點
 
2.輸入客戶編號時
    
    CustCheckType = 1 
    查詢客戶的點數，並判斷是否過期或即將過期
    vSQL = "select CustNo, CustName, BirthDate, GoodThru, BNo, Tel1, Dept, TPoint "
    vSQL = vSQL & " From CUST "
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
    
    CustCheckType = 5
    查詢客戶的折扣率，並確認會員卡號是否在有效期內
    vSQL = "select CustNo, CustName, GoodThru, DiscRate from cust"
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
    vSQL = "select CustNo, CustName, GoodThru, DiscRate from cust"
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
  
    CustCheckType = 6
    查詢客戶資料
    vSQL = "select CustNo, CustName, BirthDate, GoodThru, BNo, Tel1, Dept, TPoint "
    vSQL = vSQL & " From CUST "
    vSQL = vSQL & " Where CustNo = " & QuotStr(vVIPNo)
   
3.CustCheckType = 6 時，會在發票上印出本次累積的點數