/beta/AR/MemoInput.asp

http://github.com/khaneh/Orders · ASP · 266 lines · 238 code · 17 blank · 11 comment · 22 complexity · 4fdc3f1208cfe3432e6b86be47c22564 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. 'AR (6)
  3. PageTitle=" "
  4. SubmenuItem=2
  5. if not Auth(6 , 2) then NotAllowdToViewThisPage()
  6. %>
  7. <!--#include file="top.asp" -->
  8. <!--#include File="../include_farsiDateHandling.asp"-->
  9. <!--#include File="../include_JS_InputMasks.asp"-->
  10. <%
  11. function Link2Trace(OrderNo)
  12. Link2Trace="<A HREF='../order/orderEdit.asp?e=n&radif="& OrderNo & "' target='_balnk'>"& OrderNo & "</A>"
  13. end function
  14. %>
  15. <HTML>
  16. <HEAD>
  17. <meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
  18. <meta http-equiv="Content-Language" content="fa">
  19. <style>
  20. .MmoTable { font-family:tahoma; font-size: 9pt; border:0; padding:0; direction: right-to-left;}
  21. .MmoMainTable { font-family:tahoma; font-size: 9pt; border:0; padding:0; background-color: #558855; text-align:right; direction: RTL;}
  22. .MmoMainTableTH { background-color: #C3C300;}
  23. .MmoMainTableTR { background-color: #CCCC88; border: 0; }
  24. .MmoRowInput { font-family:tahoma; font-size: 9pt; border: 1px solid black; background-color: #F0F0F0; text-align:right;}
  25. .MmoRowInput2 { font-family:tahoma; font-size: 9pt; border: 1px solid black; background-color: #F0F0F0; text-align:right;}
  26. .MmoHeadInput { font-family:tahoma; font-size: 9pt; border: none; background-color: #CCCC88; text-align:center;}
  27. .MmoHeadInput2 { font-family:tahoma; font-size: 9pt; border: none; background-color: #AACC77; text-align:center;}
  28. .MmoHeadInput3 { font-family:tahoma; font-size: 9pt; border: 1px solid black; background-color: #D0E0FF; text-align:right; direction: RTL;}
  29. .MmoGenInput { font-family:tahoma; font-size: 9pt; border: none; text-align:right; direction: LTR;}
  30. .GenButton { font-family:tahoma; font-size: 9pt; border: 1px solid black; }
  31. </style>
  32. <TITLE> </TITLE>
  33. </HEAD>
  34. <SCRIPT LANGUAGE="JavaScript">
  35. <!--
  36. var okToProceed=false;
  37. var currentRow=null;
  38. //-->
  39. </SCRIPT>
  40. <BODY bgcolor="#F0F0F0">
  41. <font face="tahoma">
  42. <%
  43. if request("act")="submitsearch" then
  44. if request("CustomerNameSearchBox") <> "" then
  45. SA_TitleOrName=request("CustomerNameSearchBox")
  46. SA_Action="return true;"
  47. SA_SearchAgainURL="MemoInput.asp"
  48. SA_StepText=" : "
  49. %>
  50. <FORM METHOD=POST ACTION="MemoInput.asp?act=getMemo">
  51. <!--#include File="include_SelectAccount.asp"-->
  52. </FORM>
  53. <%
  54. end if
  55. elseif request("act")="selectOrder" then
  56. if request("selectedCustomer") <> "" then
  57. SO_Customer=request("selectedCustomer")
  58. SO_Action="return true;"
  59. SO_StepText=" :"
  60. %>
  61. <FORM METHOD=POST ACTION="MemoInput.asp?act=getMemo">
  62. <!--#include File="include_SelectOrder.asp"-->
  63. </FORM>
  64. <%
  65. end if
  66. elseif request("act")="getMemo" then
  67. customerID=request("selectedCustomer")
  68. mySQL="SELECT * FROM Accounts WHERE (ID='"& CustomerID & "')"
  69. Set RS1 = conn.Execute(mySQL)
  70. AccountNo=RS1("ID")
  71. customerName=RS1("AccountTitle")
  72. creationDate=shamsiToday()
  73. creationTime=time
  74. ' creationTime=Hour(creationTime)&":"&Minute(creationTime)
  75. ' if instr(creationTime,":")<3 then creationTime="0" & creationTime
  76. ' if len(creationTime)<5 then creationTime=Left(creationTime,3) & "0" & Right(creationTime,1)
  77. %><BR><BR><BR>
  78. <div align=center dir='rtl'><B> : </B>
  79. </div>
  80. <!-- -->
  81. <br>
  82. <input type="hidden" Name='tmpDlgArg' value=''>
  83. <table class="MmoMainTable" Cellspacing="1" Cellpadding="5" Width="500" align="center">
  84. <FORM METHOD=POST ACTION="MemoInput.asp?act=submitMemo" onsubmit="if (document.all.AccountTitle.value=='') return false;">
  85. <tr class="MmoMainTableTH">
  86. <TD colspan="10"><TABLE class="MmoTable" Border="0" Width="100%" Cellspacing="1" Cellpadding="0"><TR>
  87. <TD align="left">:</TD>
  88. <TD align="right" width="5">
  89. <INPUT class="MmoGenInput" disabled TYPE="text" value="<%=customerID%>" maxlength="5" size="5" tabIndex="1">
  90. </TD>
  91. <TD align="right">
  92. <INPUT TYPE="hidden" NAME="customerID" value="<%=customerID%>"><%=CustomerName%>.
  93. </TD>
  94. <TD align="left">:</TD>
  95. <TD><TABLE class="MmoTable">
  96. <TR>
  97. <TD dir="LTR">
  98. <INPUT class="MmoGenInput" style="text-align:left;" NAME="MemoDate" TYPE="text" maxlength="10" size="10" value="<%=CreationDate%>" onblur="acceptDate(this)">
  99. </TD>
  100. <TD dir="RTL"><%=weekdayname(weekday(date))%></TD>
  101. </TR>
  102. </TABLE></TD>
  103. </TR></TABLE></TD>
  104. </tr>
  105. <tr class="MmoMainTableTH" height="25">
  106. <TD> </TD>
  107. <TD> / </TD>
  108. <TD> </TD>
  109. <TD> </TD>
  110. </tr>
  111. <tr class="MmoMainTableTR">
  112. <TD valign="top">
  113. <SELECT class="MmoRowInput" NAME="MemoType">
  114. <%
  115. mySQL="SELECT * FROM AXMemoTypes WHERE Display=1"
  116. Set RS1=conn.execute(mySQL)
  117. while not RS1.eof
  118. %>
  119. <OPTION Value="<%=RS1("ID")%>"><%=RS1("Name")%></OPTION>
  120. <%
  121. RS1.moveNext
  122. wend
  123. %>
  124. </SELECT>
  125. </TD>
  126. <TD valign="top">
  127. <SELECT class="MmoRowInput" NAME="IsCredit">
  128. <OPTION Value="0"></OPTION>
  129. <OPTION Value="1" selected ></OPTION>
  130. </SELECT>
  131. </TD>
  132. <TD valign="top"><TEXTAREA class="MmoRowInput" dir="RTL" NAME="Description" ROWS="3" COLS="30"></TEXTAREA></TD>
  133. <TD valign="top"><INPUT class="MmoRowInput" Dir="LTR" NAME="Amount" TYPE="text" size="15" onblur="setPrice(this);" onKeyPress="return mask(this);"></TD>
  134. </tr>
  135. </table><br>
  136. <TABLE class="MmoTable" align=center Border="0" Cellspacing="5" Cellpadding="1">
  137. <tr>
  138. <td align='center' bgcolor="#000000"><INPUT class="MmoGenInput" style="text-align:center" TYPE="button" value="" onclick="submit();"></td>
  139. <td align='center' bgcolor="#000000"><INPUT class="MmoGenInput" style="text-align:center" TYPE="button" value="" onclick="window.location='MemoInput.asp';"></td>
  140. </tr>
  141. </TABLE>
  142. </FORM>
  143. <SCRIPT LANGUAGE="JavaScript">
  144. <!--
  145. // document.all.CashAmount.focus();
  146. //-->
  147. </SCRIPT>
  148. <%elseif request("act")="submitMemo" then
  149. ON ERROR RESUME NEXT
  150. MemoDate= sqlSafe(request.form("MemoDate"))
  151. CustomerID= clng(request.form("CustomerID"))
  152. Amount= cdbl(text2value(request.form("Amount")))
  153. Description=sqlSafe(request.form("Description"))
  154. MemoType= cint(request.form("MemoType"))
  155. IsCredit= cbool(request.form("IsCredit"))
  156. if IsCredit then IsCredit=1 else IsCredit=0 end if
  157. if Err.Number<>0 then
  158. Err.clear
  159. conn.close
  160. response.redirect "top.asp?errMsg=" & Server.URLEncode("!")
  161. end if
  162. ON ERROR GOTO 0
  163. '---- Checking wether EffectiveDate is valid in current open GL
  164. if (MemoDate < session("OpenGLStartDate")) OR (MemoDate > session("OpenGLEndDate")) then
  165. Conn.close
  166. response.redirect "?act=getMemo&selectedCustomer="& CustomerID & "&errMsg=" & Server.URLEncode("!<br> .")
  167. end if
  168. '----
  169. '----- Check GL is closed
  170. if (session("IsClosed")="True") then
  171. Conn.close
  172. response.redirect "?errMsg=" & Server.URLEncode("! .")
  173. end if
  174. '----
  175. if (trim(Description)="") then
  176. Conn.close
  177. response.redirect "?errMsg=" & Server.URLEncode("! .")
  178. end if
  179. creationDate= shamsiToday()
  180. GLAccount= "91001" 'This must be changed... (Sales A)
  181. firstGLAccount= "13003" 'This must be changed... (Business Debitors)
  182. mySQL="INSERT INTO ARMemo (CreatedDate, CreatedBy, Account, Type, IsCredit, Description, Amount) VALUES (N'" &_
  183. MemoDate & "', '"& session("ID") & "', '"& CustomerID & "', '"& MemoType & "', '"& IsCredit & "', N'"& Description & "', '"& Amount & "');SELECT @@Identity AS NewMemo"
  184. Set RS1 = conn.Execute(mySQL).NextRecordSet
  185. MemoID=RS1("NewMemo")
  186. RS1.close
  187. '**************************** Creating ARItem for Memo ****************
  188. '*** Type = 3 means ARItem is a Memo
  189. mySQL="INSERT INTO ARItems (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, IsCredit, Type, Link, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount) VALUES ('" &_
  190. GLAccount & "', '"& OpenGL & "', '"& firstGLAccount & "', '"& CustomerID & "', N'"& MemoDate & "', '"& IsCredit & "', '3', '"& MemoID & "', '"& Amount & "', N'"& creationDate & "', '"& session("ID") & "', '"& Amount & "')"
  191. conn.Execute(mySQL)
  192. '***------------------------- Creating ARItem for Memo ----------------
  193. if IsCredit then
  194. mySQL="UPDATE Accounts SET ARBalance = ARBalance + '"& Amount & "' WHERE (ID='"& CustomerID & "')"
  195. else
  196. mySQL="UPDATE Accounts SET ARBalance = ARBalance - '"& Amount & "' WHERE (ID='"& CustomerID & "')"
  197. end if
  198. conn.Execute(mySQL)
  199. conn.close
  200. response.redirect "AccountReport.asp?act=showMemo&sys=AR&memo=" & MemoID &"&msg=" & Server.URLEncode(" .")
  201. else%>
  202. <!-- -->
  203. <FORM METHOD=POST ACTION="MemoInput.asp?act=submitsearch" onsubmit="if (document.all.CustomerNameSearchBox.value=='') return false;"><BR><BR>
  204. <div dir='rtl'>&nbsp;<B> : </B>
  205. <INPUT TYPE="text" NAME="CustomerNameSearchBox">&nbsp;
  206. <INPUT class="GenButton" TYPE="submit" value=""><br>
  207. </div>
  208. </FORM>
  209. <SCRIPT LANGUAGE="JavaScript">
  210. <!--
  211. document.all.CustomerNameSearchBox.focus();
  212. //-->
  213. </SCRIPT>
  214. <%
  215. end if
  216. conn.Close
  217. %>
  218. </font>
  219. </BODY>
  220. </HTML>
  221. <% if request("act")="getMemo" then %>
  222. <script language="JavaScript">
  223. <!--
  224. function delRow(rowNo){
  225. chqTable=document.getElementById("ChequeLines");
  226. theRow=chqTable.getElementsByTagName("tr")[rowNo];
  227. chqTable.removeChild(theRow);
  228. for (rowNo=0; rowNo < document.getElementsByName("ChequeNos").length; rowNo++){
  229. chqTable.getElementsByTagName("tr")[rowNo].getElementsByTagName("td")[0].innerText= rowNo+1;
  230. }
  231. }
  232. function setPrice(src){
  233. if (echoNum(getNum($(src).val()))=="NaN")
  234. $(src).val(0);
  235. else
  236. $(src).val(echoNum(getNum($(src).val())));
  237. }
  238. function mask(src){
  239. var theKey=event.keyCode;
  240. if (theKey==13){
  241. return true;
  242. }
  243. else if (theKey < 48 || theKey > 57) { // 0-9 are acceptible
  244. return false;
  245. }
  246. }
  247. //-->
  248. </script>
  249. <%end if%>