Adding option for screen charges to be built in to price...

Scott Donnelly

Oct 29, 2020, 8:48 AM EDT

The option to add the screen charges into the price table so that it doesn't display as a separate (and unexpected) charge when the customer checks out?

It just makes things much more simple, so instead of having a bunch of little brackets, there can just be one price per print, plus the screen charge.

So the price formula for printing would look something like this: (Screen Charge x Number of screens) + printing price = Total

Total/Number of Pieces = per piece cost

About 20 years ago I built a web based shop management program from scratch using Classic ASP written in VB Script with an Access database, and thats exactly how I handled my pricing for screen printing, and it's worked out fabulous for us.

My Code is Below, it's not elegant and probably not efficient because I'm not a programmer, but I learned enough to make it very functional.:

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>


<%
Dim UCII_CartColNames,UCII_ComputedCols,UCII__i
UCII_CartColNames = Array("ProductID","Quantity","Name","Price","Total")
UCII_ComputedCols = Array("","","","","Price")
Set UCII = VBConstuctCart("GetItemIDcart",0,UCII_CartColNames,UCII_ComputedCols)
UCII__i = 0
%>

<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
' UltraCart II Get Unique OrderID Version 1.00
If CStr(UCII.OrderID) = "" Then
Dim UCII_tableName,UCII_fieldName
UCII_tableName = "NewEstimageItemID"
UCII_fieldName = "NewOrderID"
Set UCII_rsId = Server.CreateObject("ADODB.Recordset")
UCII_rsId.ActiveConnection = MM_Network_STRING
UCII_rsId.Source = "SELECT " & UCII_fieldName & " FROM " & UCII_tableName
UCII_rsId.CursorType = 0
UCII_rsId.CursorLocation = 2
UCII_rsId.LockType = 2
UCII_rsId.Open
UCII.OrderID = UCII_rsId.Fields(UCII_fieldName).value
UCII_rsId.Fields(UCII_fieldName).value = UCII_rsId.Fields(UCII_fieldName).value + 1
UCII_rsId.Update
UCII_rsId.Close
Set UCII_rsId = Nothing
UCII.persist()
End If
%>
<%
Dim SessionVar__CoName
SessionVar__CoName = "0"
if (Session("MM_Username") <> "") then SessionVar__CoName = Session("MM_Username")
%>
<%
set SessionVar = Server.CreateObject("ADODB.Recordset")
SessionVar.ActiveConnection = MM_Network_STRING
SessionVar.Source = "SELECT * FROM Customertable WHERE mno LIKE '" + Replace(SessionVar__CoName, "'", "''") + "'"
SessionVar.CursorType = 0
SessionVar.CursorLocation = 2
SessionVar.LockType = 3
SessionVar.Open()
SessionVar_numRows = 0
%>
<%
Dim rsFrontInk1__FrontInk1
rsFrontInk1__FrontInk1 = "0"
if (Request.QueryString("FrontInk1") <> "") then rsFrontInk1__FrontInk1 = Request.QueryString("FrontInk1")
%>
<%
set rsFrontInk1 = Server.CreateObject("ADODB.Recordset")
rsFrontInk1.ActiveConnection = MM_Network_STRING
rsFrontInk1.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFrontInk1__FrontInk1, "'", "''") + "'"
rsFrontInk1.CursorType = 0
rsFrontInk1.CursorLocation = 2
rsFrontInk1.LockType = 3
rsFrontInk1.Open()
rsFrontInk1_numRows = 0
%>
<%
Dim rsFrontInk2__FrontInk2
rsFrontInk2__FrontInk2 = "0"
if (Request.QueryString("FrontInk2") <> "") then rsFrontInk2__FrontInk2 = Request.QueryString("FrontInk2")
%>
<%
set rsFrontInk2 = Server.CreateObject("ADODB.Recordset")
rsFrontInk2.ActiveConnection = MM_Network_STRING
rsFrontInk2.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFrontInk2__FrontInk2, "'", "''") + "'"
rsFrontInk2.CursorType = 0
rsFrontInk2.CursorLocation = 2
rsFrontInk2.LockType = 3
rsFrontInk2.Open()
rsFrontInk2_numRows = 0
%>
<%
Dim rsFlapInk1__FlapInk1
rsFlapInk1__FlapInk1 = "0"
if (Request.QueryString("FlapInk1") <> "") then rsFlapInk1__FlapInk1 = Request.QueryString("FlapInk1")
%>
<%
set rsFlapInk1 = Server.CreateObject("ADODB.Recordset")
rsFlapInk1.ActiveConnection = MM_Network_STRING
rsFlapInk1.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFlapInk1__FlapInk1, "'", "''") + "'"
rsFlapInk1.CursorType = 0
rsFlapInk1.CursorLocation = 2
rsFlapInk1.LockType = 3
rsFlapInk1.Open()
rsFlapInk1_numRows = 0
%>
<%
Dim rsFlapInk2__FlapInk2
rsFlapInk2__FlapInk2 = "0"
if (Request.QueryString("FlapInk2") <> "") then rsFlapInk2__FlapInk2 = Request.QueryString("FlapInk2")
%>
<%
set rsFlapInk2 = Server.CreateObject("ADODB.Recordset")
rsFlapInk2.ActiveConnection = MM_Network_STRING
rsFlapInk2.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFlapInk2__FlapInk2, "'", "''") + "'"
rsFlapInk2.CursorType = 0
rsFlapInk2.CursorLocation = 2
rsFlapInk2.LockType = 3
rsFlapInk2.Open()
rsFlapInk2_numRows = 0
%>
<%
Dim rsStock__StockID2
rsStock__StockID2 = "xxx"
if (Request.QueryString("Stock") <> "") then rsStock__StockID2 = Request.QueryString("Stock")
%>
<%
set rsStock = Server.CreateObject("ADODB.Recordset")
rsStock.ActiveConnection = MM_Network_STRING
rsStock.Source = "SELECT * FROM RegularStock WHERE StockID like '" + Replace(rsStock__StockID2, "'", "''") + "'"
rsStock.CursorType = 0
rsStock.CursorLocation = 2
rsStock.LockType = 3
rsStock.Open()
rsStock_numRows = 0
%>
<%
set rsPlatecost = Server.CreateObject("ADODB.Recordset")
rsPlatecost.ActiveConnection = MM_Network_STRING
rsPlatecost.Source = "SELECT * FROM Process WHERE ProcessName LIKE 'StandardScreenSetup'"
rsPlatecost.CursorType = 0
rsPlatecost.CursorLocation = 2
rsPlatecost.LockType = 3
rsPlatecost.Open()
rsPlatecost_numRows = 0
%>
<%
set rsCloseReg = Server.CreateObject("ADODB.Recordset")
rsCloseReg.ActiveConnection = MM_Network_STRING
rsCloseReg.Source = "SELECT * FROM Process WHERE ProcessName Like 'CloseReg'"
rsCloseReg.CursorType = 0
rsCloseReg.CursorLocation = 2
rsCloseReg.LockType = 3
rsCloseReg.Open()
rsCloseReg_numRows = 0
%>
<%
Dim rsFrontInk3__FrontInk3
rsFrontInk3__FrontInk3 = "0"
if (Request.QueryString("FrontInk3") <> "") then rsFrontInk3__FrontInk3 = Request.QueryString("FrontInk3")
%>
<%
set rsFrontInk3 = Server.CreateObject("ADODB.Recordset")
rsFrontInk3.ActiveConnection = MM_Network_STRING
rsFrontInk3.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFrontInk3__FrontInk3, "'", "''") + "'"
rsFrontInk3.CursorType = 0
rsFrontInk3.CursorLocation = 2
rsFrontInk3.LockType = 3
rsFrontInk3.Open()
rsFrontInk3_numRows = 0
%>
<%
Dim rsFrontInk4__FrontInk4
rsFrontInk4__FrontInk4 = "0"
if (Request.QueryString("FrontInk4") <> "") then rsFrontInk4__FrontInk4 = Request.QueryString("FrontInk4")
%>
<%
set rsFrontInk4 = Server.CreateObject("ADODB.Recordset")
rsFrontInk4.ActiveConnection = MM_Network_STRING
rsFrontInk4.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFrontInk4__FrontInk4, "'", "''") + "'"
rsFrontInk4.CursorType = 0
rsFrontInk4.CursorLocation = 2
rsFrontInk4.LockType = 3
rsFrontInk4.Open()
rsFrontInk4_numRows = 0
%>
<%
Dim rsFrontInk5__FrontInk5
rsFrontInk5__FrontInk5 = "0"
if (Request.QueryString("FrontInk5") <> "") then rsFrontInk5__FrontInk5 = Request.QueryString("FrontInk5")
%>
<%
set rsFrontInk5 = Server.CreateObject("ADODB.Recordset")
rsFrontInk5.ActiveConnection = MM_Network_STRING
rsFrontInk5.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFrontInk5__FrontInk5, "'", "''") + "'"
rsFrontInk5.CursorType = 0
rsFrontInk5.CursorLocation = 2
rsFrontInk5.LockType = 3
rsFrontInk5.Open()
rsFrontInk5_numRows = 0
%>
<%
Dim rsFlapInk3__FlapInk3
rsFlapInk3__FlapInk3 = "0"
if (Request.QueryString("FlapInk3") <> "") then rsFlapInk3__FlapInk3 = Request.QueryString("FlapInk3")
%>
<%
set rsFlapInk3 = Server.CreateObject("ADODB.Recordset")
rsFlapInk3.ActiveConnection = MM_Network_STRING
rsFlapInk3.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFlapInk3__FlapInk3, "'", "''") + "'"
rsFlapInk3.CursorType = 0
rsFlapInk3.CursorLocation = 2
rsFlapInk3.LockType = 3
rsFlapInk3.Open()
rsFlapInk3_numRows = 0
%>
<%
Dim rsFlapInk4__FlapInk4
rsFlapInk4__FlapInk4 = "0"
if (Request.QueryString("FlapInk4") <> "") then rsFlapInk4__FlapInk4 = Request.QueryString("FlapInk4")
%>
<%
set rsFlapInk4 = Server.CreateObject("ADODB.Recordset")
rsFlapInk4.ActiveConnection = MM_Network_STRING
rsFlapInk4.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFlapInk4__FlapInk4, "'", "''") + "'"
rsFlapInk4.CursorType = 0
rsFlapInk4.CursorLocation = 2
rsFlapInk4.LockType = 3
rsFlapInk4.Open()
rsFlapInk4_numRows = 0
%>
<%
Dim rsFlapInk5__FlapInk5
rsFlapInk5__FlapInk5 = "0"
if (Request.QueryString("FlapInk5") <> "") then rsFlapInk5__FlapInk5 = Request.QueryString("FlapInk5")
%>
<%
set rsFlapInk5 = Server.CreateObject("ADODB.Recordset")
rsFlapInk5.ActiveConnection = MM_Network_STRING
rsFlapInk5.Source = "SELECT * FROM Ink WHERE Color like '" + Replace(rsFlapInk5__FlapInk5, "'", "''") + "'"
rsFlapInk5.CursorType = 0
rsFlapInk5.CursorLocation = 2
rsFlapInk5.LockType = 3
rsFlapInk5.Open()
rsFlapInk5_numRows = 0
%>
<%
Dim rsCustomer__CustNo
rsCustomer__CustNo = "xxx"
if (Request.Querystring("selectcustomer") <> "") then rsCustomer__CustNo = Request.Querystring("selectcustomer")
%>
<%
set rsCustomer = Server.CreateObject("ADODB.Recordset")
rsCustomer.ActiveConnection = MM_Network_STRING
rsCustomer.Source = "SELECT * FROM CustomerTable WHERE CustomerNo Like '" + Replace(rsCustomer__CustNo, "'", "''") + "'"
rsCustomer.CursorType = 0
rsCustomer.CursorLocation = 2
rsCustomer.LockType = 3
rsCustomer.Open()
rsCustomer_numRows = 0
%>
<%
set rsPlateChange = Server.CreateObject("ADODB.Recordset")
rsPlateChange.ActiveConnection = MM_Network_STRING
rsPlateChange.Source = "SELECT * FROM Process WHERE ProcessName Like 'PlateChange'"
rsPlateChange.CursorType = 0
rsPlateChange.CursorLocation = 2
rsPlateChange.LockType = 3
rsPlateChange.Open()
rsPlateChange_numRows = 0
%>
<%
Dim rsTurn__Turn
rsTurn__Turn = "xxx"
if (Request.QueryString("Turn") <> "") then rsTurn__Turn = Request.QueryString("Turn")
%>
<%
set rsTurn = Server.CreateObject("ADODB.Recordset")
rsTurn.ActiveConnection = MM_Network_STRING
rsTurn.Source = "SELECT * FROM RushCharge WHERE Rush Like '" + Replace(rsTurn__Turn, "'", "''") + "'"
rsTurn.CursorType = 0
rsTurn.CursorLocation = 2
rsTurn.LockType = 3
rsTurn.Open()
rsTurn_numRows = 0
%>
<%
Dim rsArtwork__Art
rsArtwork__Art = "xxx"
if (Request.QueryString("Artwork") <> "") then rsArtwork__Art = Request.QueryString("Artwork")
%>
<%
set rsArtwork = Server.CreateObject("ADODB.Recordset")
rsArtwork.ActiveConnection = MM_Network_STRING
rsArtwork.Source = "SELECT * FROM Artwork WHERE Type like '" + Replace(rsArtwork__Art, "'", "''") + "'"
rsArtwork.CursorType = 0
rsArtwork.CursorLocation = 2
rsArtwork.LockType = 3
rsArtwork.Open()
rsArtwork_numRows = 0
%>
<%
Dim rsFrontInk6__FrontInk6
rsFrontInk6__FrontInk6 = "0"
If (Request.QueryString("FrontInk6") <> "") Then
rsFrontInk6__FrontInk6 = Request.QueryString("FrontInk6")
End If
%>
<%
Dim rsFrontInk6
Dim rsFrontInk6_numRows

Set rsFrontInk6 = Server.CreateObject("ADODB.Recordset")
rsFrontInk6.ActiveConnection = MM_Network_STRING
rsFrontInk6.Source = "SELECT* FROM Ink Where Color like '" + Replace(rsFrontInk6__FrontInk6, "'", "''") + "' "
rsFrontInk6.CursorType = 0
rsFrontInk6.CursorLocation = 2
rsFrontInk6.LockType = 1
rsFrontInk6.Open()

rsFrontInk6_numRows = 0
%>
<%
Dim rsFlapInk6__FlapInk6
rsFlapInk6__FlapInk6 = "0"
If (Request.QueryString("FlapInk6") <> "") Then
rsFlapInk6__FlapInk6 = Request.QueryString("FlapInk6")
End If
%>
<%
Dim rsFlapInk6
Dim rsFlapInk6_numRows

Set rsFlapInk6 = Server.CreateObject("ADODB.Recordset")
rsFlapInk6.ActiveConnection = MM_Network_STRING
rsFlapInk6.Source = "Select * FROM Ink WHERE Color Like '" + Replace(rsFlapInk6__FlapInk6, "'", "''") + "'"
rsFlapInk6.CursorType = 0
rsFlapInk6.CursorLocation = 2
rsFlapInk6.LockType = 1
rsFlapInk6.Open()

rsFlapInk6_numRows = 0
%>
<%
Dim rsSCREENPRINT
Dim rsSCREENPRINT_numRows

Set rsSCREENPRINT = Server.CreateObject("ADODB.Recordset")
rsSCREENPRINT.ActiveConnection = MM_Network_STRING
rsSCREENPRINT.Source = "SELECT * FROM ScreenPrintingCosts"
rsSCREENPRINT.CursorType = 0
rsSCREENPRINT.CursorLocation = 2
rsSCREENPRINT.LockType = 1
rsSCREENPRINT.Open()

rsSCREENPRINT_numRows = 0
%>

<%
'Counts Plates for price analysis
Dim PlateCount1
PlateCount1 = rsFrontInk1.Fields.Item("PlateCount").Value*"1"
Dim PlateCount2
PlateCount2 = rsFrontInk2.Fields.Item("PlateCount").Value*"1"
Dim PlateCount3
PlateCount3 = rsFrontInk3.Fields.Item("PlateCount").Value*"1"
Dim PlateCount4
PlateCount4 = rsFrontInk4.Fields.Item("PlateCount").Value*"1"
Dim PlateCount5
PlateCount5 = rsFrontInk5.Fields.Item("PlateCount").Value*"1"
Dim PlateCount6extra
PlateCount6extra = 1
If Request.QueryString("FrontInk6") = "None" Then PlateCount6extra = 0 End If
Dim PlateCount6
PlateCount6 = rsFlapInk1.Fields.Item("PlateCount").Value*"1"
Dim PlateCount7
PlateCount7 = rsFlapInk2.Fields.Item("PlateCount").Value*"1"
Dim PlateCount8
PlateCount8 = rsFlapInk3.Fields.Item("PlateCount").Value*"1"
Dim PlateCount9
PlateCount9 = rsFlapInk4.Fields.Item("PlateCount").Value*"1"
Dim PlateCount10
PlateCount10 = rsFlapInk5.Fields.Item("PlateCount").Value*"1"
Dim PlateCount12
PlateCount12 = 1
If Request.QueryString("FlapInk6") = "None" Then PlateCount12 = 0 End If

'Adds up Screen Making Charges
Dim PlateCountFront
If Request.QueryString("screensside1") = "Charge" Then
PlateCountFront = PlateCount1 + PlateCount2 + PlateCount3 + PlateCount4 + PlateCount5 + PlateCount6extra
Else PlateCountFront = 0
End If

Dim PlateCountBack
If Request.QueryString("screensside2") = "Charge" Then
PlateCountBack = PlateCount6 + PlateCount7 + PlateCount8 + PlateCount9 + PlateCount10 + PlateCount12
Else PlateCountBack = 0
End If

'Adds up Screen Setup Charges
Dim ScreenSetupCountFront
If Request.QueryString("ScreenSetupFront") = "Charge" Then
ScreenSetupCountFront = PlateCount1 + PlateCount2 + PlateCount3 + PlateCount4 + PlateCount5 + PlateCount6extra
Else ScreenSetupCountFront = 0
End If

Dim ScreenSetupCountBack
If Request.QueryString("ScreenSetupBack") = "Charge" Then
ScreenSetupCountBack = PlateCount6 + PlateCount7 + PlateCount8 + PlateCount9 + PlateCount10 + PlateCount12
Else ScreenSetupCountBack = 0
End If

Dim PlateCount
PlateCount = PlateCountFront + PlateCountBack

'Adds up Screen Setup Charges
Dim PlateSetupCount
PlateSetupCount = PlateCount1 + PlateCount2 + PlateCount3 + PlateCount4 + PlateCount5 + PlateCount6 + PlateCount6extra + PlateCount7 + PlateCount8 + PlateCount9 + PlateCount10 + PlateCount12

'Adds up Number of Sides
Dim Sides
If Request.QueryString("FrontInk1") <> "None" Then
Sides = 1
End If
If Request.QueryString("FlapInk1") <> "None" Then
Sides = Sides + 1
End If

'Figures manual Discount amount
Dim Discountable
Discountable = 1 - Request.QueryString("Discount2")

'Totals all setup Cost
Dim SetUpCost
'Adds order fee for special papers
SetUpCost = rsStock.Fields.Item("OrderFee").Value

'Adds Screen Manufacturing cost
If PlateCount = 1 Then
SetUpCost = SetUpCost + (PlateCount*(rsSCREENPRINT.Fields.Item("Screen1").Value))
End If

If (PlateCountFront = 1) And (PlateCountBack = 1) Then
SetUpCost = SetUpCost + (PlateCount*(rsSCREENPRINT.Fields.Item("Screen1").Value))
End If

If (PlateCountFront > 1) And (PlateCountBack > 1) Then
SetUpCost = SetUpCost + (PlateCount*(rsSCREENPRINT.Fields.Item("ExtraScreen").Value)) - (((rsSCREENPRINT.Fields.Item("ExtraScreen").Value-rsSCREENPRINT.Fields.Item("Screen1").Value))*2)
End If

If ((PlateCountFront > 1) And (PlateCountBack = 1)) OR ((PlateCountBack > 1) And (PlateCountFront = 1)) Then
SetUpCost = SetUpCost + (PlateCount*(rsSCREENPRINT.Fields.Item("ExtraScreen").Value)) - (((rsSCREENPRINT.Fields.Item("ExtraScreen").Value-rsSCREENPRINT.Fields.Item("Screen1").Value))*2)
End If

If ((PlateCountFront > 1) And (PlateCountBack = 0)) OR ((PlateCountBack > 1) And (PlateCountFront = 0)) Then
SetUpCost = SetUpCost + (PlateCount*(rsSCREENPRINT.Fields.Item("ExtraScreen").Value)) - (((rsSCREENPRINT.Fields.Item("ExtraScreen").Value-rsSCREENPRINT.Fields.Item("Screen1").Value))*1)
End If

'Adds for Screen setup cost on machine
SetUpCost = SetUpCost + (ScreenSetupCountFront*(rsSCREENPRINT.Fields.Item("ScreenSetup1").Value)) + (ScreenSetupCountBack*(rsSCREENPRINT.Fields.Item("ScreenSetup1").Value))

'Adds additional cost if nessasary
SetUpCost = SetUpCost + Request.QueryString("OtherChargesDescriptionCost")
SetUpCost = SetUpCost + Request.QueryString("TypesettingCost")
SetUpCost = SetUpCost + rsArtwork.Fields.Item("Cost").Value
%>

<%'this section figures incremental cost of manufacturing each Item
'Adds up the ink run charges
Dim InkCost
InkCost = 0*1

If request.QueryString("FrontInk1") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color1").Value)
End If
If request.QueryString("FrontInk2") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("FrontInk3") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("FrontInk4") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("FrontInk5") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("FrontInk6") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If

If request.QueryString("Flapink1") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color1").Value)
End If
If request.QueryString("Flapink2") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("Flapink3") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("Flapink4") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("Flapink5") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If
If request.QueryString("Flapink6") <> "None" then
InkCost = InkCost + (rsSCREENPRINT.Fields.Item("Color2").Value)
End If

Dim StockCost
StockCost = 1*1
StockCost = (rsStock.Fields.Item("UnitCost").Value)*(rsSCREENPRINT.Fields.Item("StockMarkup").Value)

If request.QueryString("Pockets") = "Pockets" Then
StockCost = StockCost + (rsSCREENPRINT.Fields.Item("Pockets").Value)
End If
If request.QueryString("Colored") = "Colored" Then
StockCost = StockCost + (rsSCREENPRINT.Fields.Item("Colored").Value)
End If

Dim AdditionalPerPieceCost
AdditionalPerPieceCost = 1*1
AdditionalPerPieceCost = (Request.QueryString("OtherChargesPieceCost"))*1

'Figures actual cost for chart
Dim PrintingCostActualLabor
PrintingCostActualLabor = PrintingCost*.40
Dim PrintingCostChemicalMachine
PrintingCostChemicalMachine = PrintingCost*.1
%>

<% 'this section computes cost for quantity one
Quantity = Request.QueryString("Quantity")

Dim Cost
Cost = Quantity*(InkCost + StockCost + AdditionalPerPieceCost)
Cost = Cost + SetUpCost
%>

<% 'this section computes cost for quantity TWO
Quantity2 = Request.QueryString("Quantity2")
Cost2 = Quantity2*(InkCost + StockCost + AdditionalPerPieceCost)
Cost2 = Cost2 + SetUpCost
%>

<% 'this section computes cost for quantity THREE
Quantity3 = Request.QueryString("Quantity3")
Cost3 = Quantity3*(InkCost + StockCost + AdditionalPerPieceCost)
Cost3 = Cost3 + SetUpCost
%>

<% 'this section computes cost for quantity Four
Quantity4 = Request.QueryString("Quantity4")
Cost4 = Quantity4*(InkCost + StockCost + AdditionalPerPieceCost)
Cost4 = Cost4 + SetUpCost
%>

<% 'this section computes cost for quantity FIVE
Quantity5 = Request.QueryString("Quantity5")
Cost5 = Quantity5*(InkCost + StockCost + AdditionalPerPieceCost)
Cost5 = Cost5 + SetUpCost
%>

<%
'Sets Cost to nothing if quantity is nothing
If Quantity = 0 Then
Cost = 0
End if
If Quantity2 = 0 Then
Cost2 = 0
End if
If Quantity3 = 0 Then
Cost3 = 0
End if
If Quantity4 = 0 Then
Cost4 = 0
End if
If Quantity5 = 0 Then
Cost5 = 0
End if
%>

<html>
<head>
<title>Screen Printing Quote</title><META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
<p align="center"><b><font size="5" face="Verdana, Arial, Helvetica, sans-serif">Quote
for Estimate #<%= Request.QueryString("estimateno") %> for <%=(rsCustomer.Fields.Item("Name").Value)%></font></b><br>
This will be item # <%= Request.QueryString("estimateno") & "-" & (UCII.OrderID) %></p>
<table width="95%" border="1">
<tr>
<td bgcolor="#FFFFCC"><div align="center"><font size="2"><strong>Quantity</strong></font></div></td>
<td bgcolor="#00FFFF"><div align="center"><font size="2"><strong>Price Quoted</strong></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2"><strong>Recomended
Price</strong></font></div></td>
<td bgcolor="#00FFFF"><div align="center"><font size="2"><strong>Cost Per
Item*</strong></font></div></td>
<td bgcolor="#99FFCC"><div align="center"><font size="2"><strong>% COGS</strong></font></div></td>
<td bgcolor="#99FFCC"><div align="center"><font size="2"><strong>Materials
Cost</strong></font></div></td>
<td bgcolor="#99FFCC"><div align="center"><font size="2"><strong>Labor Cost</strong></font></div></td>
<td bgcolor="#99FFCC"> <div align="center"><font size="2"><strong>Overhead</strong></font></div></td>
<td bgcolor="#FFFF66"><strong><font size="2">J/D</font></strong></td>
<td bgcolor="#FFFF66"><div align="center"><font size="2"><strong>Profit<br>
(Loss) </strong></font></div></td>
<td bgcolor="#00FFFF"><div align="center"><font size="2"><strong>Modify
Price</strong></font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("Quantity")%>
</font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost)*(Discountable))%></font></td>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency(Cost)%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%If Quantity <> 0 Then CostPerItem = (Cost/Quantity)*(Discountable) Else CostPerItem = 0 %>
<%=FormatCurrency(CostPerItem)%></font></td>
<td bgcolor="#99FFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% 'this section estimates actual manufacturing cost for table - does not effect sales price

Dim MaterialCost

Dim InkCostReal
InkCostReal = .02

Dim PocketColors
PocketColors = 0
If request.QueryString("Pockets") = "Pockets" Then
PocketColors = PocketColors +((rsSCREENPRINT.Fields.Item("Pockets").Value)*.5)
End If
If request.QueryString("Colored") = "Colored" Then
PocketColors = PocketColors + ((rsSCREENPRINT.Fields.Item("Colored").Value)*.5)
End If

Dim StockPriceEstimate
StockPriceEstimate = 0
StockPriceEstimate = rsStock.Fields.Item("UnitCost").Value
StockPriceEstimate = StockPriceEstimate + PocketColors

If PlateSetupCount = 1 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.25)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 2 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.27)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 3 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.28)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 4 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.29)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 5 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.30)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 6 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.31)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 7 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.32)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 8 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.33)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 9 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.34)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 10 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.35)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 11 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.36)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 12 Then
MaterialCost = (Quantity*(StockPriceEstimate)*(1.37)) + (InkCostReal)*(Quantity)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if

If (PlateCountFront > 0) And (PlateCountBack > 0) Then
MaterialCost = MaterialCost*1.1
End if

If Quantity = 0 Then COG = 0 End If
If Quantity <> 0 Then COG = MaterialCost/((Cost)*(Discountable)) End If
If Quantity = 0 Then MaterialCost = 0 End If %>
<%=Round(COG, 2)%> </font></div></td>
<td bgcolor="#99FFCC"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%=FormatCurrency(MaterialCost)%></font></td>
<td bgcolor="#99FFCC"><p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim LaborCost
'based on just on person doing everything - .834 minutes ( .57 seconds for one color once side shirt plus .05 minutes (3 seconds) for each additional color - all time in minutes, labor figured at $19.28/productive hr (.321/minute INCLUDES FOR 1 PRODUCTION WORKER Only), Each plate takes about 40 minutes of CSR time
LaborCostMinutes = ((Quantity*Sides*.95) + (Quantity*Sides*.05*PlateSetupCount) + (PlateCount*20) + (PlateSetupCount*10) + (PlateSetupCount*40))
LaborCost = LaborCostMinutes*.321
If Quantity = 0 then LaborCost = 0 End If
%>
</font></p>
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=FormatCurrency(LaborCost)%></font></p></td>
<td bgcolor="#99FFCC"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim OverheadCost 'Managers Salary $60k, Owners Profit $60k, Rent 30k, inusr/equip/taxes/util/Misc/adv/Maint/Cleanup/r&d/training/downtime 40k = 190k/2=95k plus screen printing equipment $18k = $113k total screen printing overhead /250 working days/7 productive hours/60 minutes = 1.08/minute / 2 people in screen printing = .54
OverheadCost = LaborCostMinutes*(.54)
%>
<%=FormatCurrency(OverheadCost)%></font></td>
<td bgcolor="#FFFF66">
<%If Request.QueryString("Quantity")<>"0" Then%>
<%Time1=840/LaborCostMinutes%>
<%End If%>
<%JPD=(Round(Time1,2))*1%>
<%=JPD%> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%JPDProfit=((Cost*Discountable)-MaterialCost-LaborCost-OverheadCost)%>
<%ProfitPerDay=(JPDProfit)*(JPD)%>
/<%=(FormatCurrency(ProfitPerDay))%> </font></td>
<td bgcolor="#FFFF66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency(((Cost)*(Discountable))-MaterialCost-LaborCost-OverheadCost)%>
</font></td>
<td bgcolor="#00FFFF"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="UnitCost" type="text" value="<%=Round((Cost)*(Discountable) , 2)%>" size="9" maxlength="9">
</font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("Quantity2")%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost2)*(Discountable))%></font></td>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost2))%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%If Quantity2 <> 0 Then CostPerItem2 = (Cost2/Quantity2)*(Discountable) Else CostPerItem2 = 0 %>
<%=FormatCurrency(CostPerItem2)%> </font></td>
<td bgcolor="#99FFCC"><p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% Dim MaterialCost2

If PlateSetupCount = 1 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.25)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 2 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.27)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 3 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.28)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 4 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.29)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 5 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.30)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 6 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.31)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 7 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.32)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 8 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.33)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 9 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.34)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 10 Then
MaterialCost2 = (Quantity2*(rsStock.Fields.Item("UnitCost").Value)*(1.35)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 11 Then
MaterialCost2 = (Quantity2*(StockPriceEstimate)*(1.36)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 12 Then
MaterialCost2 = (Quantity2*(rsStock.Fields.Item("UnitCost").Value)*(1.37)) + (InkCostReal)*(Quantity2)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if

If (PlateCountFront > 0) And (PlateCountBack > 0) Then
MaterialCost2 = MaterialCost2*1.1
End if

If Quantity2 = 0 Then COG2 = 0 End If
If Quantity2 <> 0 Then COG2 = MaterialCost2/((Cost2)*(Discountable)) End If
If Quantity2 = 0 Then MaterialCost2 = 0 End If %>
<%=Round(COG2, 2)%></font></p></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%=FormatCurrency(MaterialCost2)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim LaborCost2
LaborCostMinutes2 = ((Quantity2*Sides*.95) + (Quantity2*Sides*.05*PlateSetupCount) + (PlateCount*20) + (PlateSetupCount*10) + (PlateSetupCount*40))
LaborCost2 = LaborCostMinutes2*.321
If Quantity2 = 0 then LaborCost2 = 0 End If
%>
<%=FormatCurrency(LaborCost2)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim OverheadCost2

OverheadCost2 = LaborCostMinutes2*(.54)
%>
<%=FormatCurrency(OverheadCost2)%></font></td>
<td bgcolor="#FFFF66">
<%If Request.QueryString("Quantity2")<>"0" Then%>
<%Time2=840/LaborCostMinutes2%>
<%JPD2=(Round(Time2,2))*1%>
<%=JPD2%>
<%End If%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%JPDProfit2=((Cost2*Discountable)-MaterialCost2-LaborCost2-OverheadCost2)%>
<%ProfitPerDay2=(JPDProfit2)*(JPD2)%>
/<%=(FormatCurrency(ProfitPerDay2))%> </font> </td>
<td bgcolor="#FFFF66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency(((Cost2)*(Discountable))-MaterialCost2-LaborCost2-OverheadCost2)%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input name="UnitCost2" type="text" value="<%=Round((Cost2)*(Discountable) , 2)%>" size="9" maxlength="9">
</font></td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("Quantity3")%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost3)*(Discountable))%></font></td>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost3))%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%If Quantity3 <> 0 Then CostPerItem3 = (Cost3/Quantity3)*(Discountable) Else CostPerItem3 = 0 %>
<%=FormatCurrency(CostPerItem3)%> </font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% Dim MaterialCost3

If PlateSetupCount = 1 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.25)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 2 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.27)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 3 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.28)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 4 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.29)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 5 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.30)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 6 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.31)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 7 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.32)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 8 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.33)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 9 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.34)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 10 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.35)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 11 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.36)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 12 Then
MaterialCost3 = (Quantity3*(StockPriceEstimate)*(1.37)) + (InkCostReal)*(Quantity3)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if

If (PlateCountFront > 0) And (PlateCountBack > 0) Then
MaterialCost3 = MaterialCost3*1.1
End if

If Quantity3 = 0 Then COG3 = 0 End If
If Quantity3 <> 0 Then COG3 = MaterialCost3/((Cost3)*(Discountable)) End If
If Quantity3 = 0 Then MaterialCost3 = 0 End If %>
<%=Round(COG3, 2)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%=FormatCurrency(MaterialCost3)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim LaborCost3
LaborCostMinutes3 = ((Quantity3*Sides*.95) + (Quantity3*Sides*.05*PlateSetupCount) + (PlateCount*20) + (PlateSetupCount*10) + (PlateSetupCount*40))
LaborCost3 = LaborCostMinutes3*.321
If Quantity3 = 0 then LaborCost3 = 0 End If
%>
<%=FormatCurrency(LaborCost3)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim OverheadCost3
OverheadCost3 = LaborCostMinutes3*(.54)
%>
<%=FormatCurrency(OverheadCost3)%></font></td>
<td bgcolor="#FFFF66">
<%If Request.QueryString("Quantity3")<>"0" Then%>
<%Time3=840/LaborCostMinutes3%>
<%JPD3=(Round(Time3,2))*1%>
<%=JPD3%>
<%End If%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%JPDProfit3=((Cost3*Discountable)-MaterialCost3-LaborCost3-OverheadCost3)%>
<%ProfitPerDay3=(JPDProfit3)*(JPD3)%>
/<%=(FormatCurrency(ProfitPerDay3))%> </font> </td>
<td bgcolor="#FFFF66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency(((Cost3)*(Discountable))-MaterialCost3-LaborCost3-OverheadCost3)%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input name="UnitCost3" type="text" value="<%=Round((Cost3)*(Discountable) , 2)%>" size="9" maxlength="9">
</font></td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("Quantity4")%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost4)*(Discountable))%></font></td>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost4))%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%If Quantity4 <> 0 Then CostPerItem4 = (Cost4/Quantity4)*(Discountable) Else CostPerItem4 = 0 %>
<%=FormatCurrency(CostPerItem4)%> </font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% Dim MaterialCost4

If PlateSetupCount = 1 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.25)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 2 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.27)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 3 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.28)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 4 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.29)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 5 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.30)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 6 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.31)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 7 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.32)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 8 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.33)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 9 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.34)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 10 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.35)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 11 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.36)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 12 Then
MaterialCost4 = (Quantity4*(StockPriceEstimate)*(1.37)) + (InkCostReal)*(Quantity4)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if

If (PlateCountFront > 0) And (PlateCountBack > 0) Then
MaterialCost4 = MaterialCost4*1.1
End if

If Quantity4 = 0 Then COG4 = 0 End If
If Quantity4 <> 0 Then COG4 = MaterialCost4/((Cost4)*(Discountable)) End If
If Quantity4 = 0 Then MaterialCost4 = 0 End If %>
<%=Round(COG4, 2)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%=FormatCurrency(MaterialCost4)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim LaborCost4
LaborCostMinutes4 = ((Quantity4*Sides*.95) + (Quantity4*Sides*.05*PlateSetupCount) + (PlateCount*20) + (PlateSetupCount*10) + (PlateSetupCount*40))
LaborCost4 = LaborCostMinutes4*.321
If Quantity4 = 0 then LaborCost4 = 0 End If
%>
<%=FormatCurrency(LaborCost4)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim OverheadCost4
OverheadCost4 = LaborCostMinutes4*(.54)
%>
<%=FormatCurrency(OverheadCost4)%></font></td>
<td bgcolor="#FFFF66">
<%If Request.QueryString("Quantity4")<>"0" Then%>
<%Time4=840/LaborCostMinutes4%>
<%JPD4=(Round(Time4,2))*1%>
<%=JPD4%>
<%End If%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%JPDProfit4=((Cost4*Discountable)-MaterialCost4-LaborCost4-OverheadCost4)%>
<%ProfitPerDay4=(JPDProfit4)*(JPD4)%>
/<%=(FormatCurrency(ProfitPerDay4))%> </font> </td>
<td bgcolor="#FFFF66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency(((Cost4)*(Discountable))-MaterialCost4-LaborCost4-OverheadCost4)%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input name="UnitCost4" type="text" value="<%=Round((Cost4)*(Discountable) , 2)%>" size="9" maxlength="9">
</font></td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.QueryString("Quantity5")%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost5)*(Discountable))%></font></td>
<td bgcolor="#FFFFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency((Cost5))%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%If Quantity5 <> 0 Then CostPerItem5 = (Cost5/Quantity5)*(Discountable) Else CostPerItem5 = 0 %>
<%=FormatCurrency(CostPerItem5)%> </font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% Dim MaterialCost5

If PlateSetupCount = 1 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.25)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 2 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.27)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 3 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.28)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 4 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.29)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 5 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.30)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 6 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.31)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 7 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.32)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 8 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.33)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 9 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.34)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 10 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.35)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 11 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.36)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if
If PlateSetupCount = 12 Then
MaterialCost5 = (Quantity5*(StockPriceEstimate)*(1.37)) + (InkCostReal)*(Quantity5)*(PlateCount) + (PlateCount*5) + (PlateSetupCount*2)
End if

If (PlateCountFront > 0) And (PlateCountBack > 0) Then
MaterialCost5 = MaterialCost5*1.1
End if

If Quantity5 = 0 Then COG5 = 0 End If
If Quantity5 <> 0 Then COG5 = MaterialCost5/((Cost5)*(Discountable)) End If
If Quantity5 = 0 Then MaterialCost5 = 0 End If %>
<%=Round(COG5, 2)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%=FormatCurrency(MaterialCost5)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim LaborCost5
LaborCostMinutes5 = ((Quantity5*Sides*.95) + (Quantity5*Sides*.05*PlateSetupCount) + (PlateCount*20) + (PlateSetupCount*10) + (PlateSetupCount*40))
LaborCost5 = LaborCostMinutes5*.321
If Quantity5 = 0 then LaborCost5 = 0 End If
%>
<%=FormatCurrency(LaborCost5)%></font></td>
<td bgcolor="#99FFCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim OverheadCost5
OverheadCost5 = LaborCostMinutes5*(.54)
%>
<%=FormatCurrency(OverheadCost5)%></font></td>
<td bgcolor="#FFFF66">
<%If Request.QueryString("Quantity5")<>"0" Then%>
<%Time5=840/LaborCostMinutes5%>
<%JPD5=(Round(Time5,2))*1%>
<%=JPD5%>
<%End If%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%JPDProfit5=((Cost5*Discountable)-MaterialCost5-LaborCost5-OverheadCost5)%>
<%ProfitPerDay5=(JPDProfit5)*(JPD5)%>
/<%=(FormatCurrency(ProfitPerDay5))%> </font> </td>
<td bgcolor="#FFFF66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=FormatCurrency(((Cost5)*(Discountable))-MaterialCost5-LaborCost5-OverheadCost5)%></font></td>
<td bgcolor="#00FFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input name="UnitCost5" type="text" value="<%=Round((Cost5)*(Discountable) , 2)%>" size="9" maxlength="9">
</font></td>
</tr>
</table>
<%Time5=420/LaborCostMinutes5%>
<%=pocketcolors%> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font>
<p>The incremental cost for this job is <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%If Quantity <> 0 Then SmallIncrement = (StockCost + AdditionalPerPieceCost + InkCost)*(Discountable) Else PrintingCost = 0 %>
<%=FormatCurrency(SmallIncrement)%></font></p>
<p> </p>
<p>extrascreen-screen1/ExtraScreen/Screen1 <%=rsSCREENPRINT.Fields.Item("ExtraScreen").Value-rsSCREENPRINT.Fields.Item("Screen1").Value%>, <%=rsSCREENPRINT.Fields.Item("ExtraScreen").Value%>, <%=rsSCREENPRINT.Fields.Item("Screen1").Value%> , screen setup count front - <%=Request.QueryString("screensside2")%> </p>
<p>Estimate Valid for
<input type="text" name="RequoteDays" size="4" value="90">
Days. Display in Custom Catalog
<select name="Display">
<option value="Display" selected>Display</option>
<option value="NoDisplay">NoDisplay</option>
</select>
<input type="submit" name="Submit" value="Add to Estimate">
<input type="hidden" name="Customer" value="<%= Request.QueryString("selectcustomer") %>">
<input type="hidden" name="estimateno" value="<%= Request.QueryString("estimateno") %>">
<input type="hidden" name="estimateProductID" value="<%= Request.QueryString("estimateno") & "-" & (UCII.OrderID) %>">
<input type="hidden" name="ProductCatagory" value="Screen_Printing">
<input type="hidden" name="ProductDetails" value="<%=Request.QueryString("Name")%>">
<input type="hidden" name="UnitSize" value="<%=Request.QueryString("Quantity")%>">
<input type="hidden" name="UnitSize2" value="<%=Request.QueryString("Quantity2")%>">
<input type="hidden" name="UnitSize3" value="<%=Request.QueryString("Quantity3")%>">
<input type="hidden" name="UnitSize4" value="<%=Request.QueryString("Quantity4")%>">
<input type="hidden" name="UnitSize5" value="<%=Request.QueryString("Quantity5")%>">
<input type="hidden" name="FrontInk1" value="<%=Request.QueryString("FrontInk1") %>">
<input type="hidden" name="FrontInk2" value="<%=Request.QueryString("FrontInk2") %>">
<input type="hidden" name="FrontInk3" value="<%=Request.QueryString("FrontInk3") %>">
<input type="hidden" name="FrontInk4" value="<%=Request.QueryString("FrontInk4") %>">
<input type="hidden" name="FrontInk5" value="<%=Request.QueryString("FrontInk5") %>">
<input type="hidden" name="BackInk1" value="<%=Request.QueryString("FlapInk1") %>">
<input type="hidden" name="BackInk2" value="<%=Request.QueryString("FlapInk2") %>">
<input type="hidden" name="BackInk3" value="<%=Request.QueryString("FlapInk3") %>">
<input type="hidden" name="BackInk4" value="<%=Request.QueryString("FlapInk4") %>">
<input type="hidden" name="BackInk5" value="<%=Request.QueryString("FlapInk5") %>">
<input type="hidden" name="PlateChanges" value="0">
<input type="hidden" name="HQFront" value="Poly">
<input type="hidden" name="HQBack" value="Poly">
<input type="hidden" name="CloseRegFront" value="<%=Request.QueryString("CloseRegFront") %>">
<input type="hidden" name="CloseRegBack" value="<%=Request.QueryString("CloseRegFlap") %>">
<input type="hidden" name="OtherPerJobChargeDescription" value="<%=Request.QueryString("OtherChargesDescription") %>">
<input type="hidden" name="OtherPerJobCost" value="<%=Request.QueryString("OtherChargesDescriptionCost") %>">
<input type="hidden" name="OtherPerPieceDescription" value="<%=Request.QueryString("OtherPieceDescription") %>">
<input type="hidden" name="OtherPerPieceCost" value="<%=Request.QueryString("OtherChargesPieceCost") %>">
<input type="hidden" name="TypesettingCost" value="<%=Request.QueryString("TypesettingCost") %>">
<input type="hidden" name="Discount" value="<%=Request.QueryString("Discount2") %>">
<input type="hidden" name="StockID" value="<%=Request.QueryString("Stock") %>">
<input type="hidden" name="Turn" value="<%=Request.QueryString("Turn") %>">
<input type="hidden" name="Artwork" value="<%=Request.QueryString("Artwork") %>">
<input type="hidden" name="ShowD" value="<%=Request.QueryString("ShowD") %>">
<input name="ShowTypeCost" type="hidden" value="<%=Request.Querystring("ShowTypeCost")%>">
<input name="ShowPerPiece" type="hidden" value="<%=Request.Querystring("ShowPerPiece")%>">
<input name="ShowPerJob" type="hidden" value="<%=Request.Querystring("ShowPerJob")%>">
<input name="ScreenChargeFront" type="hidden" value="<%=Request.Querystring("screensside1")%>">
<input name="ScreenChargeBack" type="hidden" value="<%=Request.Querystring("screensside2")%>">
<input name="ScreenChargeSetupFront" type="hidden" value="<%=Request.Querystring("ScreenSetupFront")%>">
<input name="ScreenChargeSetupBack" type="hidden" value="<%=Request.Querystring("ScreenSetupBack")%>">
<input type="hidden" name="FrontInk6" value="<%=Request.QueryString("FrontInk6") %>">
<input type="Hidden" name="FlapInk6" value="<%=Request.QueryString("FlapInk6") %>">
<input type="hidden" name="TotalSetup" value="<%=SetupCost%>">
<input type="hidden" name="Incremental" value="<%=SmallIncrement%>">
<input type="hidden" name="Incremental2" value="<%=BigIncrement%>">
<input type="hidden" name="Pockets" value="<%=Request.QueryString("Pockets") %>">
<input type="hidden" name="Colored" value="<%=Request.QueryString("Colored") %>">
</p>
<p>
<input type="hidden" name="MM_insert" value="form1">
<input type="hidden" name="TypesettingMakereadyDesign" value="<%=Request.QueryString("TyesettingDescription") %>">
</p>
<p>* Price Cost Per Item (all setup cost averaged in)</p>
<p>**Price Per Item (not including setup costs)</p>
<p><strong>Notes:</strong> "Material Cost" includes for chemicals/inks/stock,
"Labor Cost" includes printing, screen making and reclaiming/machine
setup/printing and an average of 40 minutes csr time per color per location,
"Overhead Cost" is based on $453.60/day overhead for screen printing
department (maintance/management + utilities + building + equipment + etc.)</p>
</form>
<p> </p>
<p> </p>
</body>
</html>
<%
SessionVar.Close()
%>
<%
rsFrontInk1.Close()
%>
<%
rsFrontInk2.Close()
%>
<%
rsFlapInk1.Close()
%>
<%
rsFlapInk2.Close()
%>
<%
rsStock.Close()
%>
<%
rsPlatecost.Close()
%>
<%
rsCloseReg.Close()
%>
<%
rsFrontInk3.Close()
%>
<%
rsFrontInk4.Close()
%>
<%
rsFrontInk5.Close()
%>
<%
rsFlapInk3.Close()
%>
<%
rsFlapInk4.Close()
%>
<%
rsFlapInk5.Close()
%>
<%
rsCustomer.Close()
%>
<%
rsPlateChange.Close()
%>
<%
rsTurn.Close()
%>
<%
rsArtwork.Close()
%>
<%
rsFrontInk6.Close()
Set rsFrontInk6 = Nothing
%>
<%
rsFlapInk6.Close()
Set rsFlapInk6 = Nothing
%>
<%
rsSCREENPRINT.Close()
Set rsSCREENPRINT = Nothing
%>

<%
' UltraCart II Destroy Cart Contents
UCII.Destroy()
%>

コメント