Imports RGBC_Forecast.QFGen

Partial Public Class zSandbox
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

  End Sub

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Response.Write(Date.Now.ToString("yyyy/MM/dd HH:mm:ss"))
    'Dim qfGen As New QFGen(2010, 6)
    'qfGen.GenerateBrand()

    Dim qfGen As QFGen
    Try

      If False Then
        qfGen = New QFGen(2012, 64)
        qfGen.GenerateBrand()
      Else
        qfGen = New QFGen(2012, 64)
        qfGen.CopyBrand(47)
      End If

    Catch ex As Exception

    End Try
    Response.Write("<BR>")
    Response.Write(Date.Now.ToString("yyyy/MM/dd HH:mm:ss"))

  End Sub

  Protected Sub btnTestXtab_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTestXtab.Click
    Dim s, a, v As New Collection
    s.Add("intFiscalYear", "intFiscalYear")
    s.Add("Period", "Period")
    a.Add("left(mstPeriod.strMonth,3)", "Period")
    v.Add("Sum(dwfSales.dbl9lTotal)")
    v.Add("dbl9lTotal")

    Dim sql As String = "SELECT mstPeriod.intFiscalYear, left(mstPeriod.strMonth,3) AS Period, intFiscalMonth, Sum(dwfSales.dbl9lTotal) as dbl9lTotal " & _
      "FROM mstPeriod INNER JOIN (dwdCustomer INNER JOIN (dwfSales INNER JOIN dwdProduct ON dwfSales.refProdCode = dwdProduct.strProdCode) ON dwdCustomer.strCustomerNo = dwfSales.refCustomerNo) ON mstPeriod.strPeriod = dwfSales.refPeriod  " & _
      "WHERE (((dwdProduct.refBrandID)=6) AND ((dwfSales.refPeriod)>='200707')) " & _
      "GROUP BY mstPeriod.intFiscalYear, mstPeriod.strMonth, intFiscalMonth " & _
      "UNION ALL " & _
      "SELECT 0000 AS intFiscalYear, left(mstPeriod.strMonth,3) AS Period,  intFiscalMonth, Sum(dwfSales.dbl9lTotal) as dbl9lTotal " & _
      "FROM mstPeriod INNER JOIN (dwdCustomer INNER JOIN (dwfSales INNER JOIN dwdProduct ON dwfSales.refProdCode = dwdProduct.strProdCode) ON dwdCustomer.strCustomerNo = dwfSales.refCustomerNo) ON mstPeriod.strPeriod = dwfSales.refPeriod " & _
      "WHERE (((dwdProduct.refBrandID)=6) AND ((dwfSales.refPeriod)>='200707')) " & _
      "GROUP BY mstPeriod.strMonth, intFiscalMonth " & _
      "ORDER BY intFiscalYear DESC, intFiscalMonth"

    db.doQueryXTab(sql, s, "Period", v, a)
  End Sub
End Class