<%
dim varQty,varVal,varRate,varCheckValue,varCheckValueAgp,varTariffRate,varBDT
dim varEXPT,varStr,varStr1,intLen,varTV,varOptionValue,varCUR,varTEST
varQty=Request.Form("txtCpcQty")
varVal=Request.Form("txtCpcVal")
varRate=Request.Form("txtCpcRate")
varBDT=Request.Form("txtBDT")
varTV=Request.Form("txtTV")
varEXPT=Request.Form("expt")
varCUR=Request.Form("txtCUR")
if varBDT<>"" then
session("varMONTH") = Request.QueryString("month_id")
elseif Request("cmdGo")="Go" then
session("varMONTH") =Request("month_hd")
elseif Request("cmdSubmit")="Calculate" then
session("varMONTH") =Request("month_hd")
else
session("varMONTH") = Request.QueryString("month_id")
end if
if varBDT<>"" then
session("varYEAR") = Request.QueryString("year_id")
elseif Request("cmdGo")="Go" then
session("varYEAR") = Request("year_hd")
elseif Request("cmdSubmit")="Calculate" then
session("varYEAR") = Request("year_hd")
else
session("varYEAR") = Request.QueryString("year_id")
end if
varCheckValue=Request.Form("CheckValue")
varTariffRate = Request.Form("txtTariffRate")
if Request.QueryString("varHSCode") <> "" then
session("HSCodeNumber") = Request.QueryString("varHSCode")
end if
if Request.QueryString("varHSCode") <> "" then
session("HSCodeNumber") = Request.QueryString("varHSCode")
end if
set Conn=server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/HSCode.mdb")
if varTariffRate<>"" then
session("TariffRate")=varTariffRate
else
session("TariffRate")=Request("txtTariffRate")
end if
if varCheckValue<>"" then
session("CheckValue")=varCheckValue
else
session("CheckValue")=Request("txtCheckValue")
end if
if varQty<>"" then
session("ItemQty")=varQty
else
session("ItemQty") = Request("txtItemQty")
end if
if varVal<>"" then
session("ItemValue")=varVal
else
session("ItemValue") = Request("txtItemValue")
end if
if varRate<>"" then
session("TaxRate")=varRate
else
varStr= Request("currency")
intLen = Len(varStr)
varStr1 = Mid(varStr,5,intLen)
session("TaxRate") = varStr1
end if
if varBDT<>"" then
session("BDT")=varBDT
else
if (session("TaxRate")<>"") AND (session("ItemValue")<>"") AND (Request("cmdGo")<>"Go")then
session("BDT") = FormatNumber(cdbl(session("TaxRate"))*cdbl(session("ItemValue")),2)
else
session("BDT") =""
end if
end if
%>
<%
dim sqlText,TotalRate
dim varCD,varSD
sqlText = "select HSCODE, HS_DESC, UNIT_CODE, CD_PER, SD_PER, VAT_PER, AIT_PER, LF_PER, DSC_PER, RD_PER, AD_PER, CV_PER,DF_PER,PSI_PER,FP_PER,AVAT_PER from TARIFF where HSCODE = '" & session("HSCodeNumber") & "'"
set rsSearchDetail = Server.CreateObject("ADODB.Recordset")
rsSearchDetail.Open sqlText,Conn
sqlText = "SELECT * FROM AGRCPCCOD WHERE HSCODE ='" & session("HSCodeNumber") & "'"
set rsCheck = Server.CreateObject("ADODB.Recordset")
rsCheck.Open sqlText,Conn
sqlText = "SELECT * FROM AGRCPCCOD WHERE HSCODE ='" & session("HSCodeNumber") & _
"' AND LISTCODE='" & session("CheckValue") & "'"
set rsCpc = Server.CreateObject("ADODB.Recordset")
rsCpc.Open sqlText,Conn
sqlText = "SELECT * FROM AGRCPCCOD WHERE HSCODE ='" & session("HSCodeNumber") & _
"' AND LISTCODE='" & session("CheckValue") & "'"
set rsAgp = Server.CreateObject("ADODB.Recordset")
rsAgp.Open sqlText,Conn
sqlText = "SELECT * FROM YEAR_TB ORDER BY YEAR_ID"
set rsYear = Server.CreateObject("ADODB.Recordset")
rsYear.Open sqlText,Conn
sqlText = "SELECT * FROM MONTH_TB ORDER BY MONTH_ID"
set rsMonth = Server.CreateObject("ADODB.Recordset")
rsMonth.Open sqlText,Conn
if Request("cmdGo")="Go" or session("CheckValue") <> "" then
sqlText = "SELECT CURR_CODE,CONV_RATE,CURR_DESC FROM CURRENCY_CODE_BAK WHERE MONTH_ID = "& request("month")& _
" AND YEAR_ID= " & request("year")& " ORDER BY CURR_CODE ASC"
set rsCurrency = Server.CreateObject("ADODB.Recordset")
rsCurrency.Open sqlText,Conn
else
sqlText = "SELECT CURR_CODE,CONV_RATE,CURR_DESC FROM CURRENCY_CODE_BAK WHERE MONTH_ID = "& session("varMONTH")& _
" AND YEAR_ID=" & session("varYEAR") & " ORDER BY CURR_CODE ASC"
set rsCurrency = Server.CreateObject("ADODB.Recordset")
rsCurrency.Open sqlText,Conn
end if
if session("CheckValue")<>"" and rsCpc.EOF=false then
TotalRate= rsCpc("TAXTOTAL")
elseif session("CheckValue")<>"" and rsAgp.EOF=false then
TotalRate= rsCpc("TAXTOTAL")
elseif session("CheckValue")<>"" then
TotalRate = Session("TariffRate")
end if
function GetTotalValue()
dim varVat,varAIT,varIDSC,varPSISC,varRD,varDF,AssedValue
if (session("TaxRate")<>"") And (session("ItemValue")<>"") then
AssedValue=cdbl(session("TaxRate"))*CDbl(session("ItemValue"))
if rsCpc.EOF=true And (session("CheckValueAgp") = "") and (session("CheckValueAgp")= "") then
varRD = cdbl(AssedValue) * cdbl(rsSearchDetail("RD_PER"))/100
varCD = cdbl(AssedValue) * cdbl(rsSearchDetail("CD_PER"))/100
varSD = (cdbl(AssedValue) + cdbl(varCD) + cdbl(varRD)) * cdbl(rsSearchDetail("SD_PER"))/100
varVat = (cdbl(AssedValue) + varCD + cdbl(varSD) + cdbl(varRD)) * cdbl(rsSearchDetail("VAT_PER"))/100
varAIT = cdbl(AssedValue) * cdbl(rsSearchDetail("AIT_PER"))/100
varDSC = cdbl(AssedValue) * cdbl(rsSearchDetail("DSC_PER"))/100
GetTotalValue= varCD + varSD + varVat + varRD + varAIT + varDSC
elseif session("CheckValueAgp") <> "" then
varRD = (cdbl(AssedValue)* cdbl(rsAgp("RD")))/100
varCD = cdbl(AssedValue) * cdbl(rsAgp("CD"))/100
varSD = (cdbl(AssedValue) + cdbl(varCD) + cdbl(varRD))* cdbl(rsAgp("SD"))/100
varVat = (cdbl(AssedValue)+ CDbl(varCD)+CDbl(varSD) + cdbl(varRD)) * cdbl(rsAgp("VAT"))/100
varAIT = (cdbl(AssedValue)* cdbl(rsAgp("AIT")))/100
varIDSC = (cdbl(AssedValue)* cdbl(rsAgp("IDSC")))/100
GetTotalValue= varCD+varSD+varVat+varAIT+varIDSC+varRD+varDF
elseif session("CheckValue") <> "" then
varRD = (cdbl(AssedValue)* cdbl(rsCpc("RD")))/100
varCD = cdbl(AssedValue) * cdbl(rsCpc("CD"))/100
varSD = (cdbl(AssedValue) + cdbl(varCD)+ cdbl(varRD))* cdbl(rsCpc("SD"))/100
varVat = (cdbl(AssedValue)+ CDbl(varCD)+ CDbl(varSD)+ cdbl(varRD)) * cdbl(rsCpc("VAT"))/100
varAIT = (cdbl(AssedValue)* cdbl(rsCpc("AIT")))/100
varIDSC = (cdbl(AssedValue)* cdbl(rsCpc("IDSC")))/100
GetTotalValue= varCD+varSD+varVat+varAIT+varIDSC+varRD+varDF
end if
end if
end function
if Request("cmdSubmit")="Calculate" then
Response.Redirect "DetailTaxInfo.asp?Qty=" + Request("txtItemQty") + "&Val=" + Request("txtItemValue")+ "&Rate=" +session("TaxRate")+ "&ChkValue=" + session("CheckValue")+ "&BDT=" + session("BDT")+ "&CUR=" + request("optinoValue")+ "&TV=" + FormatNumber(GetTotalValue,2)+ "&month_id=" +session("varMONTH")+ "&year_id=" +session("varYEAR")
end if
%>
