<%Option Explicit%>
<%
' (SS,7/5/21) for testing delivery changes, i.e. new interpolated
%>
<!--#include file="dbfunctions.asp"-->
<!--#include file="apputils.asp"-->
<!--#include file="customutils.asp"-->
<%
DoDeliveryTest
Finalise

Sub DoDeliveryTest

  ' all orders this year, for payment received
  ' get order no, date time ordered, delivery option grandtotal, delivery, delivery exc VAT,
  ' delivery option ignored, untracked assumed, i.e. CustomGetDelivery not called
  
  Dim LSQL
  LSQL = "SELECT * FROM orders WHERE PaymentReceived AND YEAR(DateTimeOrdered) = 2021 ORDER BY OrderNo"
  Dim LDelivery, LTotalWeight, LDeliveryCountry, LRegionCode
  
  Dim LDeliveryFromTableNonInterpolated, LDeliveryFromTableInterpolated
  
  Dim LDeliveryAgentCost, LDateTime, LDateTimeStr
  
  ' empty existing table
  ExecuteQuery("TRUNCATE tmp_delivery_test")
  
  OpenQuery LSQL
  Do While Not EndOfQuery
    Response.Write GetQueryValue("OrderNo") & ", " & GetQueryValue("DateTimeOrdered") & ", " & GetQueryValue("GrandTotal")
    
    LDelivery = GetQueryValue("Delivery")
    LTotalWeight = GetQueryValue("TotalWeight")
    LDeliveryCountry = GetQueryValue("DeliveryCountry")
    If LDeliveryCountry = "" Then LDeliveryCountry = GetQueryValue("Country")    
    
    Response.Write ", " & GetQueryValue("TotalWeight")
    
    Response.Write ", " & GetQueryValue("Delivery")    
    Response.Write ", " & Round2dp(LDelivery / 1.20)
    
    LRegionCode = GetRegionCode(LDeliveryCountry)
    If LRegionCode = "" Then LRegionCode = GetPostalArea(LDeliveryCountry)
    
    FDeliveryInterpolationEnabled = False
    LDeliveryFromTableNonInterpolated = GetDeliveryFromTable(LRegionCode, False, "W", LTotalWeight)
    
    FDeliveryInterpolationEnabled = True
    LDeliveryFromTableInterpolated = GetDeliveryFromTable(LRegionCode, False, "W", LTotalWeight)
    
    Response.Write ", " & LDeliveryFromTableNonInterpolated  
    Response.Write ", " & LDeliveryFromTableInterpolated 
        
    LDeliveryAgentCost = GetQueryValue("DeliveryAgentCost")
    If LDeliveryAgentCost & "" = "" Then LDeliveryAgentCost = "NULL"
    
    'Response.Write ", DeliveryAgentCost:" & GetQueryValue("DeliveryAgentCost")
    
    Response.Write BR
    
    LDateTime = GetQueryValue("DateTimeOrdered")
    LDateTimeStr = ConvertUKToMySQLDate(LDateTime)
    LDateTimeStr = LDateTimeStr & Right("0" & DatePart("h", LDateTime), 2) & Right("0" & DatePart("n", LDateTime), 2) & Right("0" & DatePart("s", LDateTime), 2)
    
    LSQL = "INSERT INTO tmp_delivery_test SET OrderNo = " & GetQueryValue("OrderNo") & ", DateOrdered=" & ConvertUKToMySQLDate(GetQueryValue("DateTimeOrdered"))
    LSQL = LSQL & ", DateTimeOrdered='" & LDateTimeStr & "'"
    LSQL = LSQL & ", TotalWeight=" & LTotalWeight & ", Delivery=" & LDelivery & ", DeliveryExVAT=" & Round2dp(LDelivery / 1.20)
    LSQL = LSQL & ", Subtotal=" & GetQueryValue("Subtotal")
    LSQL = LSQL & ", GrandTotal=" & GetQueryValue("GrandTotal")
    LSQL = LSQL & ", DeliveryNonInterpolated=" & LDeliveryFromTableNonInterpolated
    LSQL = LSQL & ", DeliveryInterpolated=" & LDeliveryFromTableInterpolated
    LSQL = LSQL & ", DeliveryCountry='" & LDeliveryCountry & "'"
    LSQL = LSQL & ", RegionCode='" & LRegionCode & "'"
    LSQL = LSQL & ", DeliveryOption='" & GetQueryValue("DeliveryOption") & "'"
    LSQL = LSQL & ", DeliveryAgentName='" & GetQueryValue("DeliveryAgentName") & "'"
    LSQL = LSQL & ", Courier='" & GetQueryValue("Courier") & "'"
    LSQL = LSQL & ", DeliveryAgentCost=" & LDeliveryAgentCost
    LSQL = LSQL & ", DeliveryDiff='" & Round2dp(LDeliveryFromTableInterpolated - LDeliveryFromTableNonInterpolated) & "'"
    
    ExecuteQuery(LSQL)
    
    
    
    NextQueryRecord
  Loop
  
  CloseQuery

End Sub

%>