PageRenderTime 26ms CodeModel.GetById 21ms RepoModel.GetById 0ms app.codeStats 0ms

/BO/m010q0301b.asp

http://github.com/boss2009/ASP-site
ASP | 238 lines | 225 code | 13 blank | 0 comment | 21 complexity | a7fe48f9196edf99c8c04f0298bdac28 MD5 | raw file
    

  1. <%@language="JAVASCRIPT"%>
    2. 

  2. <!--#include file="../inc/ASPUtility.inc" -->
    3. 

  3. <!--#include file="../inc/ASPCheckLogin.inc" -->
    4. 

  4. <!--#include file="../Connections/cnnASP02.asp" -->
    5. 

  5. <%
    6. 

  6. var gst = 0;
    7. 

  7. var pst = 0;
    8. 

  8. var shipping = 0;
    9. 

  9. 

  10. var rsGST = Server.CreateObject("ADODB.Recordset");
    11. 

  11. rsGST.ActiveConnection = MM_cnnASP02_STRING;
    12. 

  12. rsGST.Source = "{call dbo.cp_charge_rate(1,'',0,0.0,1,'Q',0)}";
    13. 

  13. rsGST.CursorType = 0;
    14. 

  14. rsGST.CursorLocation = 2;
    15. 

  15. rsGST.LockType = 3;
    16. 

  16. rsGST.Open();
    17. 

  17. if (!rsGST.EOF) gst = Number(rsGST.Fields.Item("fltPercentage").Value);
    18. 

  18. rsGST.Close();
    19. 

  19. 

  20. var rsPST = Server.CreateObject("ADODB.Recordset");
    21. 

  21. rsPST.ActiveConnection = MM_cnnASP02_STRING;
    22. 

  22. rsPST.Source = "{call dbo.cp_charge_rate(2,'',0,0.0,1,'Q',0)}";
    23. 

  23. rsPST.CursorType = 0;
    24. 

  24. rsPST.CursorLocation = 2;
    25. 

  25. rsPST.LockType = 3;
    26. 

  26. rsPST.Open();
    27. 

  27. if (!rsPST.EOF) pst = Number(rsPST.Fields.Item("fltPercentage").Value);
    28. 

  28. rsPST.Close();
    29. 

  29. 

  30. var rsShipping = Server.CreateObject("ADODB.Recordset");
    31. 

  31. rsShipping.ActiveConnection = MM_cnnASP02_STRING;
    32. 

  32. rsShipping.Source = "{call dbo.cp_charge_rate(3,'',0,0.0,1,'Q',0)}";
    33. 

  33. rsShipping.CursorType = 0;
    34. 

  34. rsShipping.CursorLocation = 2;
    35. 

  35. rsShipping.LockType = 3;
    36. 

  36. rsShipping.Open();
    37. 

  37. if (!rsShipping.EOF) shipping = Number(rsShipping.Fields.Item("fltPercentage").Value);
    38. 

  38. rsShipping.Close();
    39. 

  39. 

  40. var rsInventorySold = Server.CreateObject("ADODB.Recordset");
    41. 

  41. rsInventorySold.ActiveConnection = MM_cnnASP02_STRING;
    42. 

  42. rsInventorySold.Source = "select * from tbl_buyout_equip_sold where intBuyout_req_id = " + Request.QueryString("intBuyout_req_id");
    43. 

  43. rsInventorySold.CursorType = 0;
    44. 

  44. rsInventorySold.CursorLocation = 2;
    45. 

  45. rsInventorySold.LockType = 3;
    46. 

  46. rsInventorySold.Open();
    47. 

  47. var rsInventorySold_total = 0;
    48. 

  48. while (!rsInventorySold.EOF) {
    49. 

  49. 	rsInventorySold_total++;
    50. 

  50. 	rsInventorySold.MoveNext();
    51. 

  51. }
    52. 

  52. rsInventorySold.Requery();
    53. 

  53. %>
    54. 

  54. <html>
    55. 

  55. <head>
    56. 

  56. 	<title>Equipment Sold</title>
    57. 

  57. 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    58. 

  58. 	<link rel="stylesheet" href="../css/MyStyle.css" type="text/css">
    59. 

  59. 	<Script language="Javascript">
    60. 

  60. 	if (window.focus) self.focus();
    61. 

  61. 	function openWindow(page, name){
    62. 

  62. 		if (page!='nothing') win1=window.open(page, "", "width=750,height=500,scrollbars=1,left=0,top=0,status=1");
    63. 

  63. 		return ;
    64. 

  64. 	}
    65. 

  65. 	</Script>
    66. 

  66. </head>
    67. 

  67. <body>
    68. 

  68. <h5>Equipment Sold</h5>
    69. 

  69. <table cellspacing="1">
    70. 

  70.     <tr> 
    71. 

  71. 		<td nowrap width="450"><a href="javascript: openWindow('m010a0301.asp?intBuyout_req_id=<%=Request.QueryString("intBuyout_req_id")%>','w010A02');">Add Equipment Sold</a></td>			
    72. 

  72.     	<td nowrap align="left">Displaying <b><%=(rsInventorySold_total)%></b> Records.</td>
    73. 

  73. 	</tr>
    74. 

  74. </table>
    75. 

  75. <hr>
    76. 

  76. <div class="BrowsePanel" style="width: 100%; height: 221px"> 
    77. 

  77.   <table cellpadding="2" cellspacing="1">
    78. 

  78.     <tr> 
    79. 

  79. 		<th nowrap class="headrow" align="left">Inventory Name</th>
    80. 

  80. 		<th nowrap class="headrow" align="left">Inventory ID</th>
    81. 

  81. 		<th nowrap class="headrow" align="left">Status</th>
    82. 

  82. 		<th nowrap class="headrow" align="left">Date Processed</th>
    83. 

  83. 		<th nowrap class="headrow" align="left">Sold Price</th>
    84. 

  84. 		<th nowrap class="headrow" align="left">Equipment Cost</th>
    85. 

  85. 		<th nowrap class="headrow" align="left">Serial Number</th>
    86. 

  86. 		<th nowrap class="headrow" align="left">Model Number</th>		
    87. 

  87. 		<th nowrap class="headrow" align="left">PR Number</th>
    88. 

  88. 		<th nowrap class="headrow" align="left">Vendor</th>
    89. 

  89. 		<th nowrap class="headrow" align="left">Date Returned</th>
    90. 

  90. 		<th nowrap class="headrow" align="left">Returned By</th>
    91. 

  91. 		<th nowrap class="headrow" align="left">Comments</th>
    92. 

  92.     </tr>
    93. 

  93. <% 
    94. 

  94. //Getting Date Processed from shipping detail
    95. 

  95. var rsBuyout = Server.CreateObject("ADODB.Recordset");
    96. 

  96. rsBuyout.ActiveConnection = MM_cnnASP02_STRING;
    97. 

  97. rsBuyout.Source = "{call dbo.cp_Buyout_request3("+ Request.QueryString("intBuyout_Req_id") + ",0,0,'',0,'',0,0,0,0,1,'Q',0)}";
    98. 

  98. rsBuyout.CursorType = 0;
    99. 

  99. rsBuyout.CursorLocation = 2;
    100. 

  100. rsBuyout.LockType = 3;
    101. 

  101. rsBuyout.Open();
    102. 

  102. 

  103. var intShip_dtl_id = 0;
    104. 

  104. if (!rsBuyout.EOF) {
    105. 

  105. 	if (rsBuyout.Fields.Item("intShip_dtl_id").Value != null) intShip_dtl_id = rsBuyout.Fields.Item("intShip_dtl_id").Value;
    106. 

  106. } 
    107. 

  107. 

  108. var rsMethod = Server.CreateObject("ADODB.Recordset");
    109. 

  109. rsMethod.ActiveConnection = MM_cnnASP02_STRING;
    110. 

  110. rsMethod.Source = "{call dbo.cp_buyout_ship_method3("+ intShip_dtl_id + ",0,0,'',0,0,0,'',0,0,'','',0,0,'Q',0)}";
    111. 

  111. rsMethod.CursorType = 0;
    112. 

  112. rsMethod.CursorLocation = 2;
    113. 

  113. rsMethod.LockType = 3;
    114. 

  114. rsMethod.Open();
    115. 

  115. 

  116. var IsNew = ((rsMethod.EOF)?true:false);
    117. 

  117. 

  118. var total_sold_price = 0;
    119. 

  119. var total_cost = 0;
    120. 

  120. var tax = 0;
    121. 

  121. var total_shipping = 0;
    122. 

  122. var Vendor = "";
    123. 

  123. var ReturnedBy = "";
    124. 

  124. var DateProcessed = "";
    125. 

  125. if (!IsNew) DateProcessed = FilterDate(rsMethod.Fields.Item("dtsUser_Ship_date").Value);
    126. 

  126. 

  127. while (!rsInventorySold.EOF) { 
    128. 

  128. 	var rsInventoryDetail = Server.CreateObject("ADODB.Recordset");
    129. 

  129. 	rsInventoryDetail.ActiveConnection = MM_cnnASP02_STRING;
    130. 

  130. 	rsInventoryDetail.Source = "{call dbo.cp_Get_EqCls_Inventory(1,0,'',1," + rsInventorySold.Fields.Item("intEquip_set_id").Value + ",0)}";	
    131. 

  131. 	rsInventoryDetail.CursorType = 0;
    132. 

  132. 	rsInventoryDetail.CursorLocation = 2;
    133. 

  133. 	rsInventoryDetail.LockType = 3;
    134. 

  134. 	rsInventoryDetail.Open();
    135. 

  135. 

  136. 	if ((rsInventoryDetail.Fields.Item("intRequisition_no").Value > 0) && (rsInventoryDetail.Fields.Item("intRequisition_no").Value < 30000)){	 
    137. 

  137. 		var rsPurchaseHeader = Server.CreateObject("ADODB.Recordset");
    138. 

  138. 		rsPurchaseHeader.ActiveConnection = MM_cnnASP02_STRING;
    139. 

  139. 		rsPurchaseHeader.Source = "{call dbo.cp_FrmHdr(14,"+rsInventoryDetail.Fields.Item("intRequisition_no").Value+")}";
    140. 

  140. 		rsPurchaseHeader.CursorType = 0;
    141. 

  141. 		rsPurchaseHeader.CursorLocation = 2;
    142. 

  142. 		rsPurchaseHeader.LockType = 3;
    143. 

  143. 		rsPurchaseHeader.Open();
    144. 

  144. 		if (!rsPurchaseHeader.EOF) {
    145. 

  145. 			Vendor = Trim(rsPurchaseHeader.Fields.Item("chvVendor").Value);
    146. 

  146. 		} else {
    147. 

  147. 			Vendor = "";
    148. 

  148. 		}
    149. 

  149. 	} else {
    150. 

  150. 		Vendor = "";
    151. 

  151. 	}
    152. 

  152. 			
    153. 

  153. 	if (rsInventorySold.Fields.Item("insRtned_by_id").Value > 0) {
    154. 

  154. 		var rsStaff = Server.CreateObject("ADODB.Recordset");
    155. 

  155. 		rsStaff.ActiveConnection = MM_cnnASP02_STRING;
    156. 

  156. 		rsStaff.Source = "{call dbo.cp_staff2("+rsInventorySold.Fields.Item("insRtned_by_id").Value+",0,'','',0,'','',0,0,0,0,0,0,0,0,0,1,0,'',1,'Q',0)}"
    157. 

  157. 		rsStaff.CursorType = 0;
    158. 

  158. 		rsStaff.CursorLocation = 2;
    159. 

  159. 		rsStaff.LockType = 3;
    160. 

  160. 		rsStaff.Open();	
    161. 

  161. 		if (!rsStaff.EOF) {
    162. 

  162. 			ReturnedBy = Trim(rsStaff.Fields.Item("chvFst_Name").Value) + " " + Trim(rsStaff.Fields.Item("chvLst_Name").Value);
    163. 

  163. 		} else {
    164. 

  164. 			ReturnedBy = "";
    165. 

  165. 		}
    166. 

  166. 	} else {
    167. 

  167. 		ReturnedBy = "";
    168. 

  168. 	}
    169. 

  169. 	
    170. 

  170. 	switch (String(rsInventoryDetail.Fields.Item("chvSbjTotax").Value)) {
    171. 

  171. 		//pst
    172. 

  172. 		case "1":
    173. 

  173. 			tax = tax + (rsInventorySold.Fields.Item("fltEqp_Sold_Price").Value * (pst/100));
    174. 

  174. 		break;
    175. 

  175. 		//gst
    176. 

  176. 		case "2":
    177. 

  177. 			tax = tax + (rsInventorySold.Fields.Item("fltEqp_Sold_Price").Value * (gst/100));		
    178. 

  178. 		break;
    179. 

  179. 		//both
    180. 

  180. 		case "3":
    181. 

  181. 			tax = tax + (rsInventorySold.Fields.Item("fltEqp_Sold_Price").Value * ((gst+pst)/100));		
    182. 

  182. 		break;
    183. 

  183. 	}
    184. 

  184. 

  185. 	total_cost += rsInventoryDetail.Fields.Item("fltPurchase_Cost").Value;
    186. 

  186. 	total_sold_price += rsInventorySold.Fields.Item("fltEqp_Sold_Price").Value;		
    187. 

  187. %>
    188. 

  188.     <tr> 
    189. 

  189. 		<td nowrap align="left"><a href="m010e0301.asp?intBO_Eqp_Sold_id=<%=rsInventorySold.Fields.Item("intBO_Eqp_Sold_id").Value%>&intBuyout_req_id=<%=Request.QueryString("intBuyout_req_id")%>"><%=(rsInventoryDetail.Fields.Item("chvInventory_Name").Value)%></a>&nbsp;</td>
    190. 

  190. 		<td nowrap align="center"><%=ZeroPadFormat(rsInventoryDetail.Fields.Item("intBar_Code_no").Value,8)%>&nbsp;</td>
    191. 

  191. 		<td nowrap align="left"><%=(rsInventoryDetail.Fields.Item("chvEqp_Status").Value)%>&nbsp;</td>		
    192. 

  192. 		<td nowrap align="center"><%=DateProcessed%>&nbsp;</td>		
    193. 

  193. 		<td nowrap align="right"><%=FormatCurrency(rsInventorySold.Fields.Item("fltEqp_Sold_Price").Value)%>&nbsp;</td>				
    194. 

  194. 		<td nowrap align="right"><%=FormatCurrency(rsInventoryDetail.Fields.Item("fltPurchase_Cost").Value)%>&nbsp;</td>		
    195. 

  195. 		<td nowrap align="left"><%=(rsInventoryDetail.Fields.Item("chvSerial_Number").Value)%>&nbsp;</td>
    196. 

  196. 		<td nowrap align="left"><%=(rsInventoryDetail.Fields.Item("chvModel_Number").Value)%>&nbsp;</td>
    197. 

  197. 		<td nowrap align="center"><%=ZeroPadFormat(rsInventoryDetail.Fields.Item("intRequisition_no").Value,8)%>&nbsp;</td>						
    198. 

  198. 		<td nowrap align="left"><%=(Vendor)%>&nbsp;</td>		
    199. 

  199. 		<td nowrap align="center"><%=FilterDate(rsInventorySold.Fields.Item("dtsDate_Returned").Value)%>&nbsp;</td>
    200. 

  200. 		<td nowrap align="left"><%=(ReturnedBy)%>&nbsp;</td>
    201. 

  201. 		<td nowrap align="left"><%=(rsInventorySold.Fields.Item("chvComments").Value)%>&nbsp;</td>
    202. 

  202.     </tr>
    203. 

  203. <%
    204. 

  204. 	rsInventorySold.MoveNext();
    205. 

  205. }
    206. 

  206. total_shipping = total_sold_price * (shipping/100);
    207. 

  207. %>
    208. 

  208.   </table>
    209. 

  209. </div>
    210. 

  210. <div style="position: absolute; top: 310px">
    211. 

  211. <table cellpadding="0" cellspacing="1">
    212. 

  212. 	<tr>
    213. 

  213. 		<td width="350"><b>Total Equipment Cost:</b></td>
    214. 

  214. 		<td align="right"><b><%=FormatCurrency(total_cost)%></b></td>
    215. 

  215. 	</tr>
    216. 

  216. 	<tr>
    217. 

  217. 		<td width="350"><b>Total Sold Cost without taxes/shipping:</b></td>
    218. 

  218. 		<td align="right"><b><%=FormatCurrency(total_sold_price)%></b></td>
    219. 

  219. 	</tr>
    220. 

  220. 	<tr>
    221. 

  221. 		<td width="350"><b>Taxes:</b></td>
    222. 

  222. 		<td align="right"><b><%=FormatCurrency(tax)%></b></td>
    223. 

  223. 	</tr>
    224. 

  224. 	<tr>
    225. 

  225. 		<td width="350"><b>Shipping:</b></td>
    226. 

  226. 		<td align="right"><b><%=FormatCurrency(total_shipping)%></b></td>
    227. 

  227. 	</tr>	
    228. 

  228. 	<tr>	
    229. 

  229. 		<td width="350"><b>Total Buyout Cost with taxes/shipping:</b></td>
    230. 

  230. 		<td align="right"><b><%=FormatCurrency(total_sold_price+tax+total_shipping)%></b></td>
    231. 

  231. 	</tr>
    232. 

  232. </table>
    233. 

  233. </div>
    234. 

  234. </body>
    235. 

  235. </html>
    236. 

  236. <%
    237. 

  237. rsInventorySold.Close();
    238. 

  238. %>
    239.