vSQL = vSQL & " And Price > 0 "
      vSQL = vSQL & " And Amt = 0 "
      vSQL = vSQL & "   AND ( RefKPType is NULL or RefKPType <> 'NI' )"
     vSQL = vSQL & "   AND i.ItemType <> 'NI' "

   ''在日報表要考慮OCHECK.BillTime <> ''