/beta/CRM/INCLUDE_CRM_PRIMDATA.ASP

http://github.com/khaneh/Orders · ASP · 246 lines · 239 code · 7 blank · 0 comment · 10 complexity · 613c54b1e4bd1ae09c5fdf77616fd3d9 MD5 · raw file 

    

  1. <Tr><Td colspan="2" height="10px">
    2. 

  2. <STYLE>
    3. 

  3. 	.GetCustTbl {font-family:tahoma; background-color: #DDDDDD; width:630; direction: RTL; }
    4. 

  4. 	.GetCustTbl td {padding:2; font-size: 9pt; height:25;}
    5. 

  5. 	.GetCustInp { font-family:tahoma; font-size: 9pt;}
    6. 

  6. 	.CusTableHeader {background-color: #33AACC; text-align: center; font-weight:bold;}
    7. 

  7. 	.CustContactTable {font-family:tahoma; width:100%; border:1 solid black; direction: RTL; background-color:#CCCCCC;}
    8. 

  8. 	.CustContactTable td {padding:5;}
    9. 

  9. 	.CustTable {font-family:tahoma; width:80%; border:1 solid black; direction: RTL; background-color:black;}
    10. 

  10. 	.CustTable td {padding:5;}
    11. 

  11. 	.CustTable a {text-decoration:none;color:#000088}
    12. 

  12. 	.CustTable a:hover {text-decoration:underline;}
    13. 

  13. 	.CusTD1 {background-color: #CCCC66; text-align: left; font-weight:bold;}
    14. 

  14. 	.CusTD2 {background-color: #DDDDDD; direction: LTR; text-align: right; font-size:9pt;}
    15. 

  15. 	.CusTD3 {background-color: #DDDDDD; direction: LTR; text-align: center; font-size:9pt;}
    16. 

  16. 	.CusTD4 {background-color: #CCCC66; direction: LTR; text-align: center; font-size:9pt;}
    17. 

  17. 	.CusTD5 {background-color: yellow; direction: LTR; text-align: center; font-size:9pt;}
    18. 

  18. 	.from {color: blue;}
    19. 

  19. 	.to {color: red;}
    20. 

  20. </STYLE>
    21. 

  21. 

  22. 

  23. 	  &nbsp;</Td></Tr>
    24. 

  24. 	  <Tr>
    25. 

  25. 		<Td colspan="2" valign="top" align="center">
    26. 

  26. 				<% if Auth(1 , 3) then %><input class="GenButton" type="button" value="" onclick="window.location='../CRM/AccountEdit.asp?act=editaccount&selectedCustomer=<%=cusID%>';"><% end if %>
    27. 

  27. 				<input class="GenButton" type="button" value=" "onclick="window.location = '../home/message.asp?sendTo=<%=RS1("CSR")%>&RelatedTable=accounts&RelatedID=<%=cusID%>&retURL=<%=Server.URLEncode("../CRM/AccountInfo.asp?act=show&selectedCustomer="&RS1("ID"))%>';">
    28. 

  28. 				<BR><BR>
    29. 

  29. 		</Td>
    30. 

  30. 	  </Tr>
    31. 

  31. 

  32. 	  <Tr><Td valign="top" align="left">
    33. 

  33. 		<table class="CustTable3" cellspacing='1' cellspacing='1'>
    34. 

  34. <!-- 		<tr>
    35. 

  35. 			<td class="CusTD1" width="80">  : </td>
    36. 

  36. 			<td class="CusTD2"><span dir="RTL"><%=RS1("AccountTitle")%></span></td>
    37. 

  37. 		</tr> -->
    38. 

  38. 		<tr>
    39. 

  39. 			<td class="CusTD1">  :</td>
    40. 

  40. 			<td class="CusTD2"><%=RS1("ID")%></td>
    41. 

  41. 		</tr>
    42. 

  42. <%		if not RS1("IsPersonal") then %>
    43. 

  43. 			<tr>
    44. 

  44. 				<td class="CusTD1">  : </td>
    45. 

  45. 					<td class="CusTD2"><%=RS1("CompanyName")%></td>
    46. 

  46. 			</tr>
    47. 

  47. <%		end if%>
    48. 

  48. 		<tr>
    49. 

  49. 			<td class="CusTD1">  : </td>
    50. 

  50. 			<td class="CusTD2"><%=RS1("CreatedDate")%></td>
    51. 

  51. 		</tr>
    52. 

  52. 		<tr>
    53. 

  53. 			<td class="CusTD1">  : </td>
    54. 

  54. 			<td class="CusTD2"><%=RS1("CSRName")%></td>
    55. 

  55. 		</tr>
    56. 

  56. 		<tr>
    57. 

  57. 			<td class="CusTD1">  : </td>
    58. 

  58. 			<td class="CusTD2"><%=Separate(RS1("ARBalance"))%></td>
    59. 

  59. 		</tr>
    60. 

  60. 		<tr>
    61. 

  61. 			<td class="CusTD1"> : </td>
    62. 

  62. 			<td class="CusTD2"><%=Separate(RS1("APBalance"))%></td>
    63. 

  63. 		</tr>
    64. 

  64. 		<%if Auth("B" , 0) then %>
    65. 

  65. 		<tr>
    66. 

  66. 			<td class="CusTD1"> :</td>
    67. 

  67. 			<td class="CusTD2"><%=Separate(RS1("AOBalance"))%></td>
    68. 

  68. 		</tr>
    69. 

  69. 		<%end if %>
    70. 

  70. 		<tr>
    71. 

  71. 			<td class="CusTD1">  : </td>
    72. 

  72. 			<td class="CusTD2"><%=separate(RS1("CreditLimit"))%></td>
    73. 

  73. 		</tr>
    74. 

  74. 		<tr>
    75. 

  75. 			<td class="CusTD1"> () : </td>
    76. 

  76. 			<td class="CusTD2"><%=separate(RS1("maxCreditDay"))%></td>
    77. 

  77. 		</tr>
    78. 

  78. 		<tr>
    79. 

  79. 			<td class="CusTD1"> () : </td>
    80. 

  80. 			<td class="CusTD2"><%=separate(RS1("maxChequeAmount"))%></td>
    81. 

  81. 		</tr>
    82. 

  82. 		<tr>
    83. 

  83. 		<td class="CusTD1"> (/) : </td>
    84. 

  84. 			<td class="CusTD2"><%=separate(RS1("maxChequeDay"))%></td>
    85. 

  85. 		</tr>
    86. 

  86. 		<tr>
    87. 

  87. 			<td class="CusTD1"><%If CBool(RS1("IsPersonal")) Then response.write " :" Else response.write " :" End if%></td>
    88. 

  88. 			<td class="CusTD2"><%=RS1("NorRCode")%></td>
    89. 

  89. 		</tr>
    90. 

  90. 		<tr>
    91. 

  91. 			<td class="CusTD1"> : </td>
    92. 

  92. 			<td class="CusTD2"><%=RS1("EconomicalCode")%></td>
    93. 

  93. 		</tr>
    94. 

  94. 		<%
    95. 

  95. 		dim typeColor(4)
    96. 

  96. 		typeColor(1)="blue"
    97. 

  97. 		typeColor(2)="fuchsia"
    98. 

  98. 		typeColor(3)="red"
    99. 

  99. 		typeColor(4)="lime"
    100. 

  100. 		set rs2= conn.Execute("select * from accountGroupRelations inner join AccountGroups on accountGroupRelations.AccountGroup=AccountGroups.id where account="&RS1("ID"))
    101. 

  101. 		if not rs2.eof then 
    102. 

  102. 

  103. 		%>
    104. 

  104. 		<tr>
    105. 

  105. 			<td class="CusTD1"><%If CBool(rs2("isPartner")) Then response.write "" Else response.write "" End if%></td>
    106. 

  106. 			<td class="CusTD2"><%=rs2("Name")%></td>			
    107. 

  107. 		</tr>
    108. 

  108. 		<%
    109. 

  109. 		end if
    110. 

  110. 		rs2.close
    111. 

  111. 		set rs2=nothing
    112. 

  112. 		%>
    113. 

  113. 		</table>
    114. 

  114. 	  </Td>
    115. 

  115. 	  <Td valign="top" align="center">
    116. 

  116. 		<table class="CustTable3" cellspacing='1'>
    117. 

  117. 		<tr>
    118. 

  118. 			<td class="CusTD1" valign="top">  : 
    119. 

  119. 			
    120. 

  120. 			<BR><BR><BR><BR>
    121. 

  121. 			 <INPUT TYPE="checkbox" NAME="postable1" disabled <% if RS1("postable1") then response.write "checked" %> >
    122. 

  122. 			</td>
    123. 

  123. 			<td style="background-color: <%=typeColor(cint(rs1("type")))%>;">
    124. 

  124. 				<TABLE class="CustContactTable">
    125. 

  125. 					<TR>
    126. 

  126. 						<TD><%=RS1("Dear1")%> - <%=RS1("FirstName1")%> - <%=RS1("LastName1")%></TD>
    127. 

  127. 						<TD width="140" style="border-right:1 solid black;"> : <%=echoTels(RS1("Tel1"))%></TD>
    128. 

  128. 					</TR>
    129. 

  129. 					<TR>
    130. 

  130. 						<TD rowspan="2" valign="top"> : <%=RS1("City1")%> - <%=RS1("Address1")%></TD>
    131. 

  131. 						<TD style="border-right:1 solid black;"> : <%=echoTels(RS1("Fax1"))%></TD>
    132. 

  132. 					</TR>
    133. 

  133. 					<TR>
    134. 

  134. 						<TD style="border-right:1 solid black;"> : 
    135. 

  135. 							<span><%=RS1("Email1")%></span>
    136. 

  136. 							<%if RS1("email1")<>"" then %>
    137. 

  137. 							<span title="                     ">
    138. 

  138. 								<form method="post" action="http://my.pdhco.com/sendMail.php">
    139. 

  139. 									<input type="hidden" name="id" value="<%=RS1("ID")%>">
    140. 

  140. 									<input type="hidden" name="Email" value="<%=RS1("Email1")%>">
    141. 

  141. 									<input type="hidden" name="AccountTitle" value="<%=RS1("AccountTitle")%>">
    142. 

  142. 									<input type="hidden" name="Dear" value="<%=RS1("Dear1")%>">
    143. 

  143. 									<input type="hidden" name="FirstName" value="<%=RS1("FirstName1")%>">
    144. 

  144. 									<input type="hidden" name="LastName" value="<%=RS1("LastName1")%>">
    145. 

  145. 									<input type="submit" name="jameSend" value="   ">
    146. 

  146. 								</form>
    147. 

  147. 							</span>
    148. 

  148. 							<%end if%>
    149. 

  149. 						</TD>
    150. 

  150. 					</TR>
    151. 

  151. 					<TR>
    152. 

  152. 						<TD>ρ: <%=RS1("PostCode1")%></TD>
    153. 

  153. 						<TD style="border-right:1 solid black;">: <span  Dir="LTR"><%=echoTels(RS1("Mobile1"))%></span></TD>
    154. 

  154. 					</TR>
    155. 

  155. 				</TABLE>
    156. 

  156. 			</td>
    157. 

  157. 		</tr>
    158. 

  158. 		<tr>
    159. 

  159. 			<td class="CusTD1" valign="top">  : 
    160. 

  160. 			
    161. 

  161. 			<BR><BR><BR><BR>
    162. 

  162. 			 <INPUT TYPE="checkbox" NAME="postable2" disabled <% if RS1("postable2") then response.write "checked" %> >
    163. 

  163. 			
    164. 

  164. 			</td>
    165. 

  165. 			<td style="background-color: <%=typeColor(cint(rs1("type")))%>;">
    166. 

  166. 				<TABLE class="CustContactTable">
    167. 

  167. 					<TR>
    168. 

  168. 						<TD><%=RS1("Dear2")%> - <%=RS1("FirstName2")%> - <%=RS1("LastName2")%></TD>
    169. 

  169. 						<TD width="140"> : <%=echoTels(RS1("Tel2"))%></TD>
    170. 

  170. 					</TR>
    171. 

  171. 					<TR>
    172. 

  172. 						<TD rowspan="2" valign="top"> : <%=RS1("City2")%> - <%=RS1("Address2")%></TD>
    173. 

  173. 						<TD> : <%=echoTels(RS1("Fax2"))%></TD>
    174. 

  174. 					</TR>
    175. 

  175. 					<TR>
    176. 

  176. 						<TD> : 
    177. 

  177. 							<span><%=RS1("Email2")%></span>
    178. 

  178. 							<%if RS1("email2")<>"" then %>
    179. 

  179. 							<span title="                     ">
    180. 

  180. 								<form method="post" action="http://my.pdhco.com/sendMail.php">
    181. 

  181. 									<input type="hidden" name="id" value="<%=RS1("ID")%>">
    182. 

  182. 									<input type="hidden" name="Email" value="<%=RS1("Email2")%>">
    183. 

  183. 									<input type="hidden" name="AccountTitle" value="<%=RS1("AccountTitle")%>">
    184. 

  184. 									<input type="hidden" name="Dear" value="<%=RS1("Dear2")%>">
    185. 

  185. 									<input type="hidden" name="FirstName" value="<%=RS1("FirstName2")%>">
    186. 

  186. 									<input type="hidden" name="LastName" value="<%=RS1("LastName2")%>">
    187. 

  187. 									<input type="submit" name="jameSend" value="   ">
    188. 

  188. 								</form>
    189. 

  189. 							</span>
    190. 

  190. 							<%end if%>
    191. 

  191. 						</TD>
    192. 

  192. 					</TR>
    193. 

  193. 					<TR>
    194. 

  194. 						<TD>ρ: <%=RS1("PostCode2")%></TD>
    195. 

  195. 						<TD>: <span  Dir="LTR"><%=RS1("Mobile2")%></span></TD>
    196. 

  196. 					</TR>
    197. 

  197. 				</TABLE>
    198. 

  198. 			</td>
    199. 

  199. 		</tr>
    200. 

  200. 		</table>
    201. 

  201. 	  </Td></Tr>
    202. 

  202. 	  <Tr>
    203. 

  203. 	  	<Td colspan="2"><BR><BR>
    204. 

  204. 			<div id="orderMessages"></div>
    205. 

  205. 			<input id="customerID" type="hidden" value="<%=RS1("ID")%>"/>
    206. 

  206. 			<script type="text/javascript">
    207. 

  207. 				$(document).ready(function(){
    208. 

  208. 					TransformXmlURL("/service/xml_getMessage.asp?act=related&table=accounts&id=" + $("#customerID").val(),"/xsl.<%=version%>/showRelatedMessage.xsl", function(result){
    209. 

  209. 						$("#orderMessages").html(result);
    210. 

  210. 						$("td.msgBody").each(function(i){
    211. 

  211. 							$(this).html($(this).html().replace(/\n/gi,"<br/>"));
    212. 

  212. 							});
    213. 

  213. 							$("input[name=addNewMessage]").click(function(){
    214. 

  214. 								document.location="../home/message.asp?RelatedTable=accounts&RelatedID=" + $("#customerID").val() + "&retURL=" + escape("../CRM/AccountInfo.asp?act=show&selectedCustomer=" + $("#customerID").val());
    215. 

  215. 						});
    216. 

  216. 					});
    217. 

  217. 				});
    218. 

  218. 			</script>	  	
    219. 

  219. <BR><BR>
    220. 

  220. 			<%
    221. 

  221. 			mySQL="SELECT AccountsEditLog.EditOn, AccountsEditLog.AutoKey, Users.RealName FROM AccountsEditLog INNER JOIN Users ON AccountsEditLog.EditBy = Users.ID where AccountsEditLog.id=" & cusID & " ORDER BY AccountsEditLog.AutoKey"
    222. 

  222. 			Set RS1 = conn.execute(mySQL)
    223. 

  223. 			if not RS1.eof then
    224. 

  224. 			%>
    225. 

  225. 			<table class="CustTable" cellspacing='1'>
    226. 

  226. 				<tr>
    227. 

  227. 					<td colspan="2" class="CusTableHeader">΍     </td>
    228. 

  228. 				</tr>
    229. 

  229. 				<%
    230. 

  230. 				tmpCounter=0
    231. 

  231. 				while not RS1.eof 
    232. 

  232. 					tmpCounter=tmpCounter+1
    233. 

  233. 				%>
    234. 

  234. 					<tr class="<%if (tmpCounter MOD 2) = 1 then response.write "CusTD3" else response.write "CusTD4" %>">
    235. 

  235. 						<td dir=ltr><%=RS1("EditOn")%></td>
    236. 

  236. 						<td dir=rtl>
    237. 

  237. 						<span style="cursor:hand" onclick="window.open('AccountsEditLogViewer.asp?AutoKey=<%=RS1("AutoKey")%>','AccLog','menubar=no, width=500')"> <%=RS1("RealName")%></span>
    238. 

  238. 						</td>
    239. 

  239. 					</tr>
    240. 

  240. 				<%
    241. 

  241. 					RS1.moveNext
    242. 

  242. 				wend
    243. 

  243. 				%>
    244. 

  244. 			</table><BR><BR>
    245. 

  245. 			<% end if %>
    246. 

  246. 	  </Td></Tr>
    247.