/beta/bank/CheqBook.asp

http://github.com/khaneh/Orders · ASP · 988 lines · 789 code · 90 blank · 109 comment · 97 complexity · 3aeecbb7031316b15148d61f40f71e29 MD5 · raw file 

    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
    2. 

  2. 'Bank (10 [=A])
    3. 

  3. PageTitle= " "
    4. 

  4. SubmenuItem=8
    5. 

  5. if not Auth("A" , 8) then NotAllowdToViewThisPage()
    6. 

  6. 

  7. %>
    8. 

  8. <!--#include file="top.asp" -->
    9. 

  9. <!--#include File="../include_farsiDateHandling.asp"-->
    10. 

  10. <!--#include File="../include_JS_InputMasks.asp"-->
    11. 

  11. <!--#include File="../include_UtilFunctions.asp"-->
    12. 

  12. <STYLE>
    13. 

  13. 	.RepTable {font-family:tahoma; font-size:9pt; direction: RTL; }
    14. 

  14. 	.RepTable td {vertical-align:top;padding:5;border:1pt solid gray;}
    15. 

  15. 	.RepTable a {text-decoration:none; color:#222288;}
    16. 

  16. 	.RepTable a:hover {text-decoration:underline;}
    17. 

  17. 	.RepTableTitle {background-color: #CCCCEE; text-align: center; font-weight:bold;}
    18. 

  18. 	.RepTableHeader {background-color: #BBBBFF; text-align: center; font-weight:bold;}
    19. 

  19. 	.RepTableFooter {background-color: #BBBBBB; direction: LTR; }
    20. 

  20. 	.RepTR0 {background-color: #DDDDDD;}
    21. 

  21. 	.RepTR1 {background-color: #FFFFFF;}
    22. 

  22. 	.GenInput {width:70px; font-family:tahoma; font-size: 9pt; border: 1 solid black; text-align:left; direction: LTR;}
    23. 

  23. 	.RepTextArea {font-family:tahoma;font-size:8pt;width:300px;height:30px;border:none;backGround:Transparent;}
    24. 

  24. 	.RepROInputs {font-family:tahoma;font-size:8pt;width:70px;border:none;backGround:Transparent;}
    25. 

  25. </STYLE>
    26. 

  26. <%
    27. 

  27. '------------------------------------------------------------------------------
    28. 

  28. '------------------------------------------------------------------ Submit Memo
    29. 

  29. '------------------------------------------------------------------------------
    30. 

  30. if request("act")="submitMemo" then
    31. 

  31. 	Account=	request.form("Account")
    32. 

  32. 	GLAccount=	clng(request.form("GLAccount"))
    33. 

  33. 

  34. 

  35. 	if GLAccount="" then
    36. 

  36. 		response.redirect "?errMsg="&Server.URLEncode("   !")
    37. 

  37. 	end if
    38. 

  38. 

  39. ' ---
    40. 

  40. ' 	Checking input
    41. 

  41. ' ---
    42. 

    43. 

  43. 	GLMemoDate = request.form("GLMemoDate")
    44. 

  44. 

  45. 	'---- Checking wether EffectiveDate is valid in current open GL
    46. 

  46. 	if (GLMemoDate < session("OpenGLStartDate")) OR (GLMemoDate > session("OpenGLEndDate")) then
    47. 

  47. 		Conn.close
    48. 

  48. 		response.redirect "?errMsg=" & Server.URLEncode("!<br>        .")
    49. 

  49. 	end if 
    50. 

  50. 	'----
    51. 

  51. 	'----- Check GL is closed
    52. 

  52. 	if (session("IsClosed")="True") then
    53. 

  53. 		Conn.close
    54. 

  54. 		response.redirect "?errMsg=" & Server.URLEncode("!             .")
    55. 

  55. 	end if 
    56. 

  56. 	'----
    57. 

  57. 	if Account<>"" then
    58. 

  58. 		Account= clng(Account)
    59. 

  59. 		bySubSys=1
    60. 

  60. 	else
    61. 

  61. 		if request.form("CheqNos").count > 0 then
    62. 

  62. 			if request.form("Accounts")(1) <> "" then 
    63. 

  63. 				SubSystemNeeded=True
    64. 

  64. 			else
    65. 

  65. 				SubSystemNeeded=False
    66. 

  66. 			end if
    67. 

  67. 		end if
    68. 

  68. 

  69. 		ContradictionFound=False
    70. 

  70. 		for i=2 to request.form("CheqNos").count 
    71. 

  71. 			if request.form("Accounts")(i) <> "" then 
    72. 

  72. 				thisSubSystemNeeded=True
    73. 

  73. 			else
    74. 

  74. 				thisSubSystemNeeded=False
    75. 

  75. 			end if
    76. 

  76. 			if NOT thisSubSystemNeeded = SubSystemNeeded then
    77. 

  77. 				ContradictionFound=True
    78. 

  78. 				exit for
    79. 

  79. 			end if
    80. 

  80. 		Next
    81. 

  81. 		if ContradictionFound then
    82. 

  82. 			response.redirect "?errMsg="&Server.URLEncode("  !<br><br>ǐ          .")
    83. 

  83. 		end if
    84. 

  84. 		if SubSystemNeeded then
    85. 

  85. 			bySubSys=1
    86. 

  86. 		else
    87. 

  87. 			bySubSys=0
    88. 

  88. 		end if
    89. 

  89. 	end if
    90. 

  90. ' ---
    91. 

    92. 

  92. 	creationDate=shamsiToday()
    93. 

  93. 

  94. 	mySQL="SELECT ISNULL(MAX(GLDocID),0) AS LastMemo FROM GLDocs WHERE GL='"& OpenGL & "'"
    95. 

  95. 	Set RS1=conn.Execute (mySQL)
    96. 

  96. 	GLMemoNo = RS1("LastMemo") + 1
    97. 

  97. 

  98. 	'---- Creating a new GLDoc 
    99. 

  99. 	mySQL="INSERT INTO GLDocs (GL, GLDocID, GLDocDate, CreatedDate, createdBy, BySubSystem, IsTemporary) VALUES ("& openGL & " , "& GLMemoNo & ", N'"& GLMemoDate & "' , N'"& creationDate & "', "& session("ID") & ", "& bySubSys & ", 1);SELECT @@Identity AS NewGLDoc"
    100. 

  100. 	set RS1 = Conn.execute(mySQL).NextRecordSet
    101. 

  101. 	GLDoc = RS1("NewGLDoc")
    102. 

  102. 	RS1.close
    103. 

  103. 	'---- 
    104. 

    105. 

  105. 	if Account="" then
    106. 

  106. 	'
    107. 

  107. 	' When the first line doesn't need a SubSystem Memo
    108. 

  108. 	'
    109. 

  109. 		for i=1 to request.form("CheqNos").count 
    110. 

  110. 			thisAccount=	request.form("Accounts")(i)
    111. 

  111. 			thisGLAccount=	request.form("GLAccounts")(i)
    112. 

  112. 			thisDescription=sqlSafe(request.form("Descriptions")(i))
    113. 

  113. 			thisAmount=		request.form("Amounts")(i)
    114. 

  114. 

  115. 			if request.form("IsCredit")(i) then 
    116. 

  116. 				thisIsCredit=1 
    117. 

  117. 				thisIsDebit=0 
    118. 

  118. 			else 
    119. 

  119. 				thisIsDebit=1 
    120. 

  120. 				thisIsCredit=0
    121. 

  121. 			end if
    122. 

  122. 

  123. 			thisCheqNo=request.form("CheqNos")(i)
    124. 

  124. 			thisCheqDate=request.form("CheqDates")(i)
    125. 

  125. 

  126. 			if thisAccount<>"" then
    127. 

  127. 			'
    128. 

  128. 			'	The seccond line needs a SubSystem Memo
    129. 

  129. 			'	so, we wait for SYS and LINK of the Memo before we insert either of the 2 lines
    130. 

  130. 			'
    131. 

  131. 				' --------------------------------------------------
    132. 

  132. 				' -----------	Creating a Memo and an Item for this
    133. 

  133. 				' --------------------------------------------------
    134. 

  134. 				' -----------	Cheque Return ( )
    135. 

  135. 				' **************************************************
    136. 

  136. 				mySQL = "SELECT ItemReason FROM AXItemReasonGLAccountRelations WHERE (GL = "& openGL & ") AND (GLAccount = "& thisGLAccount & ")"
    137. 

  137. 				Set RS1=Conn.execute(mySQL)
    138. 

  138. 				if RS1.eof then
    139. 

  139. 					'Using default reason (sys: AO, reason: Misc.)
    140. 

  140. 					Reason=6
    141. 

  141. 				else
    142. 

  142. 					Reason=	cint(RS1("ItemReason"))
    143. 

  143. 				end if
    144. 

  144. 				RS1.close
    145. 

  145. 

  146. 				mySQL="SELECT * FROM AXItemReasons WHERE (ID="& Reason & ")"
    147. 

  147. 				Set RS1=Conn.execute(mySQL)
    148. 

  148. 				sys=			RS1("Acron")
    149. 

  149. 				ReasonName =	RS1("Name")
    150. 

  150. 				RS1.close
    151. 

  151. 

  152. 				'*** Memo Type=5 means 'Cheque Return'
    153. 

  153. 				mySQL="INSERT INTO "& sys & "Memo (CreatedDate, CreatedBy, Type, Account, IsCredit, Amount, Description) VALUES (N'"& GLMemoDate & "' , "& session("ID") & ", 5, "& thisAccount & ", "& thisIsCredit & ", "& thisAmount & ", N'"& thisDescription & "');SELECT @@Identity AS NewMemo"
    154. 

  154. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    155. 

  155. 				theMemo = RS1("NewMemo")
    156. 

  156. 				RS1.close
    157. 

  157. 

  158. 				'*** Type = 3 means Item is a Memo
    159. 

  159. 				mySQL="INSERT INTO "& sys & "Items (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, IsCredit, Type, Link, Reason, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount, GL_Update) VALUES ('" &_
    160. 

  160. 				GLAccount & "', "& OpenGL &", '"& thisGLAccount & "', '"& thisAccount & "', N'"& GLMemoDate & "', "& thisIsCredit & ", 3, "& theMemo & ", "& Reason & ", "& thisAmount & ", N'"& creationDate & "', "& session("ID") & ", "& thisAmount & ", 0);SELECT @@Identity AS NewItem"
    161. 

  161. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    162. 

  162. 				theItem = RS1("NewItem")
    163. 

  163. 				RS1.close
    164. 

  164. 				
    165. 

  165. 				if thisIsCredit then
    166. 

  166. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance + '"& thisAmount & "' WHERE (ID='"& thisAccount & "')"
    167. 

  167. 				else
    168. 

  168. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance - '"& thisAmount & "' WHERE (ID='"& thisAccount & "')"
    169. 

  169. 				end if
    170. 

  170. 				conn.Execute(mySQL)
    171. 

  171. 

  172. 				' **************************************************
    173. 

  173. 				' ------ End of Creating a Memo and an Item for this
    174. 

  174. 				' --------------------------------------------------
    175. 

    176. 

  176. 				'First Line:
    177. 

  177. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Amount, Description, IsCredit, Ref1, Ref2, SYS, Link) VALUES ( "&	GLDoc & ", "& GLAccount & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsDebit & ", N'"& thisCheqNo &"', N'"& thisCheqDate & "', '"& sys & "', '"& theItem & "')"
    178. 

  178. 				conn.Execute(mySQL)
    179. 

  179. 

  180. 				'Seccond Line:
    181. 

  181. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Tafsil, Amount, Description, IsCredit, Ref1, Ref2, SYS, Link) VALUES ( "&	GLDoc & ", "& thisGLAccount & ", "& thisAccount & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsCredit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"', '"& sys & "', '"& theItem & "')"
    182. 

  182. 				conn.Execute(mySQL)
    183. 

  183. 			else
    184. 

  184. 			'
    185. 

  185. 			'	Both Lines are only at GL Level
    186. 

  186. 			'
    187. 

  187. 				'First Line:
    188. 

  188. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Amount, Description, IsCredit, Ref1, Ref2) VALUES ( "&	GLDoc & ", "& GLAccount & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsDebit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"')"
    189. 

  189. 				conn.Execute(mySQL)
    190. 

  190. 

  191. 				'Seccond Line:
    192. 

  192. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Amount, Description, IsCredit, Ref1, Ref2) VALUES ( "& GLDoc & ", "& thisGLAccount & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsCredit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"')"
    193. 

  193. 				conn.Execute(mySQL)
    194. 

  194. 			end if
    195. 

  195. 		Next
    196. 

  196. 	else
    197. 

  197. 	'
    198. 

  198. 	' When the first line needs a SubSystem Memo
    199. 

  199. 	'
    200. 

  200. 		for i=1 to request.form("CheqNos").count 
    201. 

  201. 			thisAccount=	request.form("Accounts")(i)
    202. 

  202. 			thisGLAccount=	request.form("GLAccounts")(i)
    203. 

  203. 			thisDescription=sqlSafe(request.form("Descriptions")(i))
    204. 

  204. 			thisAmount=		request.form("Amounts")(i)
    205. 

  205. 

  206. 			if request.form("IsCredit")(i) then 
    207. 

  207. 				thisIsCredit=1 
    208. 

  208. 				thisIsDebit=0 
    209. 

  209. 			else 
    210. 

  210. 				thisIsDebit=1 
    211. 

  211. 				thisIsCredit=0
    212. 

  212. 			end if
    213. 

  213. 

  214. 			thisCheqNo=request.form("CheqNos")(i)
    215. 

  215. 			thisCheqDate=request.form("CheqDates")(i)
    216. 

  216. 

  217. 			if thisAccount="" then
    218. 

  218. 			'
    219. 

  219. 			'	The seccond line doesn't needs a SubSystem Memo
    220. 

  220. 			'	we insert first line , find SYS and LINK of the Memo and then insert the seccond lines
    221. 

  221. 			'
    222. 

  222. 				' --------------------------------------------------
    223. 

  223. 				' -----------	Creating a Memo and an Item for this
    224. 

  224. 				' --------------------------------------------------
    225. 

  225. 				' -----------	Cheque Return ( )
    226. 

  226. 				' **************************************************
    227. 

  227. 				mySQL = "SELECT ItemReason FROM AXItemReasonGLAccountRelations WHERE (GL = "& openGL & ") AND (GLAccount = "& GLAccount & ")"
    228. 

  228. 				Set RS1=Conn.execute(mySQL)
    229. 

  229. 

  230. 				if RS1.eof then
    231. 

  231. 					'Using default reason (sys: AO, reason: Misc.)
    232. 

  232. 					Reason=6
    233. 

  233. 				else
    234. 

  234. 					Reason=	cint(RS1("ItemReason"))
    235. 

  235. 				end if
    236. 

  236. 				RS1.close
    237. 

  237. 

  238. 				mySQL="SELECT * FROM AXItemReasons WHERE (ID="& Reason & ")"
    239. 

  239. 				Set RS1=Conn.execute(mySQL)
    240. 

  240. 				sys=			RS1("Acron")
    241. 

  241. 				ReasonName =	RS1("Name")
    242. 

  242. 				RS1.close
    243. 

  243. 

  244. 				' * Note: This is affecting the first line info (Account) so it must be the opposite of isCredit
    245. 

  245. 				'*** Memo Type=5 means 'Cheque Return'
    246. 

  246. 				mySQL="INSERT INTO "& sys & "Memo (CreatedDate, CreatedBy, Type, Account, IsCredit, Amount, Description) VALUES (N'"& GLMemoDate & "' , "& session("ID") & ", 5, "& Account & ", "& thisIsDebit & ", "& thisAmount & ", N'"& thisDescription & "');SELECT @@Identity AS NewMemo"
    247. 

  247. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    248. 

  248. 				theMemo = RS1("NewMemo")
    249. 

  249. 				RS1.close
    250. 

  250. 

  251. 				'*** Type = 3 means A*Item is a Memo
    252. 

  252. 				mySQL="INSERT INTO "& sys & "Items (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, IsCredit, Type, Link, Reason, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount, GL_Update) VALUES ('" &_
    253. 

  253. 				thisGLAccount & "', "& OpenGL &", '"& GLAccount & "', '"& Account & "', N'"& GLMemoDate & "', "& thisIsDebit & ", 3, "& theMemo & ", "& Reason & ", "& thisAmount & ", N'"& creationDate & "', "& session("ID") & ", "& thisAmount & ", 0);SELECT @@Identity AS NewItem"
    254. 

  254. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    255. 

  255. 				theItem = RS1("NewItem")
    256. 

  256. 				RS1.close
    257. 

  257. 

  258. 				' * Note: This is affecting the first line info (Account) so it must be the opposite of isCredit
    259. 

  259. 				if thisIsDebit then
    260. 

  260. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance + '"& thisAmount & "' WHERE (ID='"& Account & "')"
    261. 

  261. 				else
    262. 

  262. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance - '"& thisAmount & "' WHERE (ID='"& Account & "')"
    263. 

  263. 				end if
    264. 

  264. 				conn.Execute(mySQL)
    265. 

  265. 

  266. 				' **************************************************
    267. 

  267. 				' ------ End of Creating a Memo and an Item for this
    268. 

  268. 				' --------------------------------------------------
    269. 

    270. 

  270. 				'First Line:
    271. 

  271. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Tafsil, Amount, Description, IsCredit, Ref1, Ref2, SYS, Link) VALUES ( "&	GLDoc & ", "& GLAccount & ", "& Account & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsDebit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"', '"& sys & "', '"& theItem & "')"
    272. 

  272. 				conn.Execute(mySQL)
    273. 

  273. 

  274. 

  275. 				'Seccond Line:
    276. 

  276. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Amount, Description, IsCredit, Ref1, Ref2, SYS, Link) VALUES ( "&	GLDoc & ", "& thisGLAccount & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsCredit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"', '"& sys & "', '"& theItem & "')"
    277. 

  277. 				conn.Execute(mySQL)
    278. 

  278. 			else
    279. 

  279. 			'
    280. 

  280. 			'	Both Lines need a SubSystem Memo
    281. 

  281. 			'
    282. 

  282. 				' --------------------------------------------------------------
    283. 

  283. 				' -----------	Creating a Memo and an Item for the first line
    284. 

  284. 				' --------------------------------------------------------------
    285. 

  285. 				' -----------	Transfer Memo ( )
    286. 

  286. 				' **************************************************
    287. 

  287. 				mySQL = "SELECT ItemReason FROM AXItemReasonGLAccountRelations WHERE (GL = "& openGL & ") AND (GLAccount = "& GLAccount & ")"
    288. 

  288. 				Set RS1=Conn.execute(mySQL)
    289. 

  289. 

  290. 				if RS1.eof then
    291. 

  291. 					'Using default reason (sys: AO, reason: Misc.)
    292. 

  292. 					Reason=6
    293. 

  293. 				else
    294. 

  294. 					Reason=	cint(RS1("ItemReason"))
    295. 

  295. 				end if
    296. 

  296. 				RS1.close
    297. 

  297. 

  298. 				mySQL="SELECT * FROM AXItemReasons WHERE (ID="& Reason & ")"
    299. 

  299. 				Set RS1=Conn.execute(mySQL)
    300. 

  300. 				sys=			RS1("Acron")
    301. 

  301. 				ReasonName =	RS1("Name")
    302. 

  302. 				RS1.close
    303. 

  303. 

  304. 				' * Note: This is affecting the first line info (Account) so it must be the opposite of isCredit
    305. 

  305. 				'*** Memo Type=7 means 'Transfer Memo'
    306. 

  306. 				mySQL="INSERT INTO "& sys & "Memo (CreatedDate, CreatedBy, Type, Account, IsCredit, Amount, Description) VALUES (N'"& GLMemoDate & "' , "& session("ID") & ", 7, "& Account & ", "& thisIsDebit & ", "& thisAmount & ", N'"& thisDescription & "');SELECT @@Identity AS NewMemo"
    307. 

  307. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    308. 

  308. 				theMemo = RS1("NewMemo")
    309. 

  309. 				RS1.close
    310. 

  310. 

  311. 				'*** Type = 3 means A*Item is a Memo
    312. 

  312. 				mySQL="INSERT INTO "& sys & "Items (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, IsCredit, Type, Link, Reason, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount, GL_Update) VALUES ('" &_
    313. 

  313. 				thisGLAccount & "', "& OpenGL &", '"& GLAccount & "', '"& Account & "', N'"& GLMemoDate & "', "& thisIsDebit & ", 3, "& theMemo & ", "& Reason & ", "& thisAmount & ", N'"& creationDate & "', "& session("ID") & ", "& thisAmount & ", 0);SELECT @@Identity AS NewItem"
    314. 

  314. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    315. 

  315. 				theItem = RS1("NewItem")
    316. 

  316. 				RS1.close
    317. 

  317. 

  318. 				' * Note: This is affecting the first line info (Account) so it must be the opposite of isCredit
    319. 

  319. 				if thisIsDebit then
    320. 

  320. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance + '"& thisAmount & "' WHERE (ID='"& Account & "')"
    321. 

  321. 				else
    322. 

  322. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance - '"& thisAmount & "' WHERE (ID='"& Account & "')"
    323. 

  323. 				end if
    324. 

  324. 				conn.Execute(mySQL)
    325. 

  325. 

  326. 				firstItem=theItem
    327. 

  327. 				firstMemo=theMemo
    328. 

  328. 				firstSys=sys
    329. 

  329. 

  330. 				' **************************************************
    331. 

  331. 				' ------ End of Creating a Memo and an Item for the first line
    332. 

  332. 				' --------------------------------------------------------------
    333. 

    334. 

  334. 

  335. 				' --------------------------------------------------------------
    336. 

  336. 				' -----------	Creating a Memo and an Item for the seccond line
    337. 

  337. 				' --------------------------------------------------------------
    338. 

  338. 				' -----------	Transfer Memo ( )
    339. 

  339. 				' **************************************************
    340. 

  340. 				mySQL = "SELECT ItemReason FROM AXItemReasonGLAccountRelations WHERE (GL = "& openGL & ") AND (GLAccount = "& thisGLAccount & ")"
    341. 

  341. 				Set RS1=Conn.execute(mySQL)
    342. 

  342. 

  343. 				if RS1.eof then
    344. 

  344. 					'Using default reason (sys: AO, reason: Misc.)
    345. 

  345. 					Reason=6
    346. 

  346. 				else
    347. 

  347. 					Reason=	cint(RS1("ItemReason"))
    348. 

  348. 				end if
    349. 

  349. 				RS1.close
    350. 

  350. 

  351. 				mySQL="SELECT * FROM AXItemReasons WHERE (ID="& Reason & ")"
    352. 

  352. 				Set RS1=Conn.execute(mySQL)
    353. 

  353. 				sys=			RS1("Acron")
    354. 

  354. 				ReasonName =	RS1("Name")
    355. 

  355. 				RS1.close
    356. 

  356. 

  357. 				'*** Memo Type=7 means 'Transfer Memo'
    358. 

  358. 				mySQL="INSERT INTO "& sys & "Memo (CreatedDate, CreatedBy, Type, Account, IsCredit, Amount, Description) VALUES (N'"& GLMemoDate & "' , "& session("ID") & ", 7, "& thisAccount & ", "& thisIsCredit & ", "& thisAmount & ", N'"& thisDescription & "');SELECT @@Identity AS NewMemo"
    359. 

  359. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    360. 

  360. 				theMemo = RS1("NewMemo")
    361. 

  361. 				RS1.close
    362. 

  362. 

  363. 				'*** Type = 3 means A*Item is a Memo
    364. 

  364. 				mySQL="INSERT INTO "& sys & "Items (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, IsCredit, Type, Link, Reason, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount, GL_Update) VALUES ('" &_
    365. 

  365. 				GLAccount & "', "& OpenGL &", '"& thisGLAccount & "', '"& thisAccount & "', N'"& GLMemoDate & "', "& thisIsCredit & ", 3, "& theMemo & ", "& Reason & ", "& thisAmount & ", N'"& creationDate & "', "& session("ID") & ", "& thisAmount & ", 0);SELECT @@Identity AS NewItem"
    366. 

  366. 				set RS1 = Conn.execute(mySQL).NextRecordSet
    367. 

  367. 				theItem = RS1("NewItem")
    368. 

  368. 				RS1.close
    369. 

  369. 

  370. 				if thisIsCredit then
    371. 

  371. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance + '"& thisAmount & "' WHERE (ID='"& thisAccount & "')"
    372. 

  372. 				else
    373. 

  373. 					mySQL="UPDATE Accounts SET "& sys & "Balance = "& sys & "Balance - '"& thisAmount & "' WHERE (ID='"& thisAccount & "')"
    374. 

  374. 				end if
    375. 

  375. 				conn.Execute(mySQL)
    376. 

  376. 

  377. 				seccondItem=theItem
    378. 

  378. 				seccondMemo=theMemo
    379. 

  379. 				seccondSys=sys
    380. 

  380. 

  381. 				' **************************************************
    382. 

  382. 				' ------ End of Creating a Memo and an Item for the first line
    383. 

  383. 				' --------------------------------------------------------------
    384. 

    385. 

  385. 				'---------------------------------------------
    386. 

  386. 				'------------------------------------ Relation
    387. 

  387. 				if thisIsCredit then
    388. 

  388. 					mySQL="INSERT INTO InterMemoRelation (FromItemType, FromItemLink, ToItemType, ToItemLink) VALUES ('"& firstSys & "', "& firstMemo & ", '"& seccondSys & "', "& seccondMemo & ")"
    389. 

  389. 				else
    390. 

  390. 					mySQL="INSERT INTO InterMemoRelation (FromItemType, FromItemLink, ToItemType, ToItemLink) VALUES ('"& seccondSys & "', "& seccondMemo & ", '"& firstSys & "', "& firstMemo & ")"
    391. 

  391. 				end if
    392. 

  392. 				conn.Execute(mySQL)
    393. 

  393. 				'----------------------------- End of Relation
    394. 

  394. 				'---------------------------------------------
    395. 

    396. 

  396. 				'First Line:
    397. 

  397. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Tafsil, Amount, Description, IsCredit, Ref1, Ref2, SYS, Link) VALUES ( "&	GLDoc & ", "& GLAccount & ", "& Account & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsDebit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"', '"& firstSys & "', '"& firstItem & "')"
    398. 

  398. 				conn.Execute(mySQL)
    399. 

  399. 

  400. 

  401. 				'Seccond Line:
    402. 

  402. 				mySQL="INSERT INTO GLRows (GLDoc, GLAccount, Tafsil, Amount, Description, IsCredit, Ref1, Ref2, SYS, Link) VALUES ( "&	GLDoc & ", "& thisGLAccount & ", "& thisAccount & ", "& thisAmount & ", N'"& thisDescription & "', "& thisIsCredit & ", N'"& thisCheqNo &"', N'"& thisCheqDate &"', '"& seccondSys & "', '"& seccondItem & "')"
    403. 

  403. 				conn.Execute(mySQL)
    404. 

  404. 

  405. 			end if
    406. 

  406. 		Next
    407. 

  407. 		
    408. 

  408. 	end if
    409. 

  409. 

  410. 	conn.close
    411. 

  411. 	response.redirect "../accounting/GLMemoDocShow.asp?id="&GLDoc&"&msg="& Server.URLEncode("  ")
    412. 

  412. '------------------------------------------------------------------------------
    413. 

  413. '-------------------------------------------------------------------- Make Memo
    414. 

  414. '------------------------------------------------------------------------------
    415. 

  415. elseif request("act")="makeMemo" then
    416. 

  416. 

  417. 	Account=request.form("Account")
    418. 

  418. 	GLAccount=request.form("GLAccount")
    419. 

  419. 

  420. 	if Account="" and GLAccount="" then
    421. 

  421. 		response.redirect "?errMsg="&Server.URLEncode("  ")
    422. 

  422. 	end if
    423. 

  423. 

  424. 	GLMemoDate = request.form("GLMemoDate")
    425. 

  425. %>
    426. 

  426. 	<br><br>
    427. 

  427. 	<FORM METHOD=POST ACTION="?act=submitMemo" onsubmit="if (document.all.GLMemoDate.value==''){document.all.GLMemoDate.focus();return false;}else{return acceptDate(document.all.GLMemoDate)}">
    428. 

  428. 	<INPUT TYPE="hidden" Name="Account" Value='<%=Account%>'>
    429. 

  429. 	<INPUT TYPE="hidden" Name="GLAccount" Value='<%=GLAccount%>'>
    430. 

  430. 	<table class="RepTable" align='center' width='90%'>
    431. 

  431. 	<tr class="RepTableHeader">
    432. 

  432. 		<td colspan='3' align='left'> :</td>
    433. 

  433. 		<td colspan='2' align='right' ><INPUT class="GenInput" NAME="GLMemoDate" tabIndex="1" TYPE="text" maxlength="10" size="10" value="" onBlur="acceptDate(this)"></td>
    434. 

  434. 	</tr>
    435. 

  435. 	<tr class="RepTableTitle">
    436. 

  436. 		<td>#</td>
    437. 

  437. 		<td></td>
    438. 

  438. 		<td></td>
    439. 

  439. 		<td></td>
    440. 

  440. 		<td></td>
    441. 

  441. 	</tr>
    442. 

  442. <%
    443. 

  443. 	tempCounter=0
    444. 

  444. 	for i=1 to request.form("GLAccounts").count
    445. 

  445. 	  if request.form("GLAccounts")(i)<>0 then
    446. 

  446. 		tempCounter=tempCounter+1
    447. 

  447. 		firstAccount=request.form("FirstAccounts")(i)
    448. 

  448. 		if firstAccount=0 then firstAccount=""
    449. 

  449. 		firstGLAccount=request.form("FirstGLAccounts")(i)
    450. 

  450. 

  451. 		thisAccount=request.form("Accounts")(i)
    452. 

  452. 		if thisAccount=0 then thisAccount=""
    453. 

  453. 		thisGLAccount=request.form("GLAccounts")(i)
    454. 

  454. 		thisDescription=request.form("Descriptions")(i)
    455. 

  455. 		thisAmount=request.form("Amounts")(i)
    456. 

  456. %>
    457. 

  457. 		<tr class='RepTR<%=tempCounter MOD 2%>'>
    458. 

  458. 			<td rowspan=2><%=tempCounter%></td>
    459. 

  459. 			<td><%=firstGLAccount&firstAccount%></td>
    460. 

  460. 			<td><%=thisDescription%></td>
    461. 

  461. 			<%if request.form("IsCredit")(i) then%>
    462. 

  462. 				<td><%=thisAmount%></td>
    463. 

  463. 				<td>&nbsp;</td>
    464. 

  464. 			<%else%>
    465. 

  465. 				<td>&nbsp;</td>
    466. 

  466. 				<td><%=thisAmount%></td>
    467. 

  467. 			<%end if%>
    468. 

  468. 		</tr>
    469. 

  469. 		<tr class='RepTR<%=tempCounter MOD 2%>'>
    470. 

  470. 			<td><%=thisGLAccount&thisAccount%>
    471. 

  471. 				<INPUT TYPE="hidden" Name="FirstAccounts" Value='<%=FirstAccount%>'>
    472. 

  472. 				<INPUT TYPE="hidden" Name="FirstGLAccounts" Value='<%=FirstGLAccount%>'>
    473. 

  473. 				<INPUT TYPE="hidden" Name="Accounts" Value='<%=thisAccount%>'>
    474. 

  474. 				<INPUT TYPE="hidden" Name="GLAccounts" Value='<%=thisGLAccount%>'>
    475. 

  475. 				<INPUT TYPE="hidden" Name="Descriptions" Value='<%=thisDescription%>'>
    476. 

  476. 				<INPUT TYPE="hidden" Name="Amounts" Value='<%=text2value(thisAmount)%>'>
    477. 

  477. 				<INPUT TYPE="hidden" Name="IsCredit" Value='<%=request.form("IsCredit")(i)%>'>
    478. 

  478. 				<INPUT TYPE="hidden" Name="CheqNos" Value='<%=request.form("CheqNos")(i)%>'>
    479. 

  479. 				<INPUT TYPE="hidden" Name="CheqDates" Value='<%=request.form("CheqDates")(i)%>'>
    480. 

  480. 				</td>
    481. 

  481. 			<td><%=thisDescription%></td>
    482. 

  482. 			<%if request.form("IsCredit")(i) then%>
    483. 

  483. 				<td>&nbsp;</td>
    484. 

  484. 				<td><%=thisAmount%></td>
    485. 

  485. 			<%else%>
    486. 

  486. 				<td><%=thisAmount%></td>
    487. 

  487. 				<td>&nbsp;</td>
    488. 

  488. 			<%end if%>
    489. 

  489. 		</tr>
    490. 

  490. <%
    491. 

  491. 	  end if
    492. 

  492. 	Next
    493. 

  493. %>
    494. 

  494. 	<tr class="RepTableHeader">
    495. 

  495. 		<td colspan=5><INPUT TYPE="submit" Value=""class='GenInput' style='text-align:center;'></td>
    496. 

  496. 	</tr>
    497. 

  497. 	</table>
    498. 

  498. 	</FORM>
    499. 

  499. <%
    500. 

  500. '------------------------------------------------------------------------------
    501. 

  501. '------------------------------------------------------------- Show Cheque Book
    502. 

  502. '------------------------------------------------------------------------------
    503. 

  503. elseif request("act")="showBook" then
    504. 

  504. 	Response.CacheControl="no-cache"
    505. 

  505. 	Response.AddHeader "pragma", "no-cache"
    506. 

  506. 	glList=""
    507. 

  507. 	GLAccount=0
    508. 

  508. 	if inStr(request("GLAccount"),",")>1 then 
    509. 

  509. 		glList=replace(request("GLAccount"),","," ")
    510. 

  510. 	else
    511. 

  511. 		GLAccount=request("GLAccount")
    512. 

  512. 	end if
    513. 

  513. 	
    514. 

  514. 	Account=request("Account")
    515. 

  515. 	FromDate=	request("FromDate")
    516. 

  516. 	ToDate=		request("ToDate")
    517. 

  517. 	displayMode=request("displayMode")
    518. 

  518. 	
    519. 

  519. 	if displayMode="" then displayMode=0
    520. 

  520. 

  521. 	if request("ShowRemained")="on" then
    522. 

  522. 		ShowRemained=1
    523. 

  523. 	else
    524. 

  524. 		ShowRemained=0
    525. 

  525. 	end if
    526. 

  526. 

  527. 	if GLAccount="" then
    528. 

  528. 		response.redirect "?errMsg="&Server.URLEncode("  ")
    529. 

  529. 	end if
    530. 

  530. 	
    531. 

  531. 	if Account="" or not isnumeric(Account) then
    532. 

  532. 		Tafsil = ""
    533. 

  533. 	else
    534. 

  534. 		Tafsil = clng(Account)
    535. 

  535. 	end if
    536. 

  536. 

  537. '	Changed By Kid 830812 for using new (partial) stored procedure 
    538. 

    539. 

  539. 	mySQL="EXEC proc_CheqBook "& GLAccount & ", '"& Tafsil & "', '"& FromDate & "', '"& ToDate & "', "& openGL & ", "& ShowRemained & ", " &  displayMode & ", '" &  glList & "'"
    540. 

  540. 	 
    541. 

  541. 	if FromDate="" AND ToDate="" then
    542. 

  542. 		pageTitle="  "
    543. 

  543. 	elseif FromDate="" then
    544. 

  544. 		pageTitle="    " & replace (ToDate,"/",".")
    545. 

  545. 	elseif ToDate="" then
    546. 

  546. 		pageTitle="  "& replace (FromDate,"/",".") & "   "
    547. 

  547. 	else
    548. 

  548. 		pageTitle="  "& replace (FromDate,"/",".") & "   " & replace (ToDate,"/",".")
    549. 

  549. 	end if
    550. 

  550. 'response.write mySQL
    551. 

  551. 	
    552. 

  552. 	Set RS1=Conn.Execute(mySQL).NextRecordset().NextRecordset()
    553. 

  553. 	if not RS1.eof then
    554. 

  554. 		tempCounter=0
    555. 

  555. 		totalCredit=0
    556. 

  556. 		totalDebit=0
    557. 

  557. %>		<br>
    558. 

  558. 		<input type="hidden" Name='tmpDlgArg' value=''>
    559. 

  559. 		<FORM METHOD=POST ACTION="?act=makeMemo">
    560. 

  560. 		<input type="hidden" Name='Account' value='<%=Account%>'>
    561. 

  561. 		<input type="hidden" Name='GLAccount' value='<%=GLAccount%>'>
    562. 

  562. 		<table class="RepTable" align='center'>
    563. 

  563. 		<tbody id='Cheqs'>
    564. 

  564. 		<tr class="RepTableHeader">
    565. 

  565. 			<td colspan="6" style="font-size:14pt;" dir="LTR"><%if GLAccount=0 then response.write glList else response.write GLAccount%><%if Account<>"" then response.write " - " & Account%><span style="font-size:9pt;"><br><br><%=pageTitle%></span></td>
    566. 

  566. 		</tr>
    567. 

  567. 		<tr>
    568. 

  568. 			<td colspan="5">  :<INPUT TYPE="text" class="GenInput" NAME="searchChq" Value="<%=request("cheq")%>" onKeyPress="return handleSearch();"></td>
    569. 

  569. 			<td align=left>
    570. 

  570. 			<% 	
    571. 

  571. 			values = GLAccount&"" 
    572. 

  572. 			if Account="" then values = values & "0" else values = values  & Account
    573. 

  573. 			values  = values  &"" & FromDate &"" &ToDate&""&openGL&""&ShowRemained
    574. 

  574. 			ReportLogRow = PrepareReport ("CheqBook.rpt", "GLAccountTafsilFromDateToDateGLShowRemained", values , "/beta/dialog_printManager.asp?act=Fin") %>
    575. 

  575. 			<INPUT Class="GenButton" style="border:1 solid green;" TYPE="button" TYPE="button" value=" ǁ " onclick="printThisReport(this,<%=ReportLogRow%>);">
    576. 

  576. 			</td>
    577. 

  577. 		</tr>
    578. 

  578. 		<tr class="RepTableHeader">
    579. 

  579. 			<td>#</td>
    580. 

  580. 			<td> </td>
    581. 

  581. 			<td></td>
    582. 

  582. 			<td></td>
    583. 

  583. 			<td></td>
    584. 

  584. 			<td> </td>
    585. 

  585. 		</tr>
    586. 

  586. <%		Do while not RS1.eof
    587. 

  587. 			FirstGLAcc=	RS1("GLAccount")
    588. 

  588. 			FirstAcc=	RS1("Tafsil")
    589. 

  589. 			if isnull(FirstAcc) then FirstAcc=0
    590. 

  590. 			Ref1=		RS1("Ref1")
    591. 

  591. 			Ref2=		RS1("Ref2")
    592. 

  592. 			IsCredit=	RS1("IsCredit")
    593. 

  593. 			Description=RS1("Description")
    594. 

  594. 			GLDocDate=	RS1("GLDocDate")
    595. 

  595. 			Amount=		RS1("Amount")
    596. 

  596. 

  597. 			if IsCredit then
    598. 

  598. 				totalCredit = totalCredit + cdbl(Amount)
    599. 

  599. 			else
    600. 

  600. 				totalDebit = totalDebit + cdbl(Amount)
    601. 

  601. 			end if
    602. 

  602. 

  603. 			if NOT (Ref1="" AND Ref2="") then tempCounter=tempCounter+1
    604. 

  604. 

  605. %>			<tr class='RepTR<%=tempCounter MOD 2%>' onclick="return getData(this);">
    606. 

  606. 

  607. 				<td><%if tempCounter>0 then response.write tempCounter%>
    608. 

  608. 					<INPUT TYPE="hidden" Name="FirstGLAccounts" Value="<%=FirstGLAcc%>">
    609. 

  609. 					<INPUT TYPE="hidden" Name="FirstAccounts" Value="<%=FirstAcc%>">
    610. 

  610. 					<INPUT TYPE="hidden" Name="GLAccounts" Value="0">
    611. 

  611. 					<INPUT TYPE="hidden" Name="Accounts" Value="0"></td>
    612. 

  612. 				<td dir=LTR>
    613. 

  613. 					<INPUT readonly Name="GLDocDates" class="RepROInputs" Value="<%=GLDocDate%>"></td>
    614. 

  614. 				<td>
    615. 

  615. 					<TextArea readonly Name="Descriptions" class="RepTextArea"><%=replace(Description,"/",".")%></TextArea></td>
    616. 

  616. <%			if IsCredit then%>
    617. 

  617. 				<td>
    618. 

  618. 					<INPUT TYPE="hidden" Name="IsCredit" Value="<%=IsCredit%>">
    619. 

  619. 				</td>
    620. 

  620. 				<td>
    621. 

  621. 					<INPUT readonly Name="Amounts" class="RepROInputs" Value="<%=Separate(Amount)%>">
    622. 

  622. 				</td>
    623. 

  623. <%			else%>			
    624. 

  624. 				<td>
    625. 

  625. 					<INPUT readonly Name="Amounts" class="RepROInputs" Value="<%=Separate(Amount)%>">
    626. 

  626. 				</td>
    627. 

  627. 				<td>
    628. 

  628. 					<INPUT TYPE="hidden" Name="IsCredit" Value="<%=IsCredit%>">
    629. 

  629. 				</td>
    630. 

  630. <%			end if%>
    631. 

  631. 				<td dir=LTR>
    632. 

  632. 					<INPUT readonly Name="CheqDates" class="RepROInputs" Value="<%=Ref2%>">
    633. 

  633. 					<INPUT type="hidden" readonly Name="CheqNos" class="RepROInputs" Value="<%=Ref1%>"></td>
    634. 

  634. 			</tr>
    635. 

  635. <%			RS1.MoveNext
    636. 

  636. 		Loop
    637. 

  637. 		tempCounter = tempCounter + 1
    638. 

  638. %>
    639. 

  639. 		<tr class='RepTR<%=tempCounter MOD 2%>'>
    640. 

  640. 			<td>&nbsp;</td>
    641. 

  641. 			<td>&nbsp;</td>
    642. 

  642. 			<td><span style="width:300px;text-align:left;overflow:auto;text-overflow:ellipsis;"><B> :</B></span></td>
    643. 

  643. 			<td><INPUT readonly class="RepROInputs" Value="<%=Separate(totalDebit)%>"></td>
    644. 

  644. 			<td><INPUT readonly class="RepROInputs" Value="<%=Separate(totalCredit)%>"></td>
    645. 

  645. 			<td>&nbsp;</td>
    646. 

  646. 		</tr>
    647. 

  647. 		<tr class="RepTableHeader">
    648. 

  648. 			<td colspan="6"><INPUT TYPE="Button" Value="  " onclick="submit();"></td>
    649. 

  649. 		</tr>
    650. 

  650. 		</tbody>
    651. 

  651. 		</FORM>
    652. 

  652. 		</table>
    653. 

  653. 		<SCRIPT LANGUAGE="JavaScript">
    654. 

  654. 		<!--
    655. 

  655. 

  656. 		function documentKeyDown() {
    657. 

  657. 			var theKey = window.event.keyCode;
    658. 

  658. 			var obj = window.event.srcElement;
    659. 

  659. 			if (theKey == 114) { 
    660. 

  660. 				if (obj.name=="searchChq"){document.all.searchChq.select();};
    661. 

  661. 				window.event.keyCode=0;
    662. 

  662. 				document.all.searchChq.focus();
    663. 

  663. 				return false;
    664. 

  664. 			}
    665. 

  665. 		}
    666. 

  666. 		document.onkeydown = documentKeyDown;
    667. 

  667. 

  668. 		document.all.searchChq.focus();
    669. 

  669. 		//handleSearch();
    670. 

  670. 		//-->
    671. 

  671. 		</SCRIPT>
    672. 

  672. 		<br>
    673. 

  673. <%	else
    674. 

  674. 		RS1.Close
    675. 

  675. 		conn.close
    676. 

  676. 		response.redirect "?errMsg="&Server.URLEncode("   ")
    677. 

  677. 	end if
    678. 

  678. 	RS1.Close
    679. 

  679. %>
    680. 

  680. 	<SCRIPT LANGUAGE="JavaScript">
    681. 

  681. 	<!--
    682. 

  682. 	function handleSearch(){
    683. 

  683. 		var theKey=event.keyCode;
    684. 

  684. 		if (theKey==13){
    685. 

  685. 			searchNo=document.getElementsByName("searchChq")[0].value
    686. 

  686. 			theTable=document.getElementById("Cheqs")
    687. 

  687. 			cheqsVector=document.getElementsByName("CheqNos")
    688. 

  688. 			for(i=0; i<cheqsVector.length; i++){
    689. 

  689. 				if (cheqsVector[i].value==searchNo){
    690. 

  690. 					theTable.getElementsByTagName("TR")[i+2].scrollIntoView();
    691. 

  691. 					return getData(theTable.getElementsByTagName("TR")[i+3])
    692. 

  692. 				}
    693. 

  693. 			}
    694. 

  694. 			
    695. 

  695. 		}
    696. 

  696. 		else if (theKey<48 || theKey>57) // don't accept non-digits
    697. 

  697. 			return false
    698. 

  698. 	}
    699. 

  699. 

  700. 	function getData(src)
    701. 

  701. 	{
    702. 

  702. 		myIndex=src.rowIndex-3;
    703. 

  703. 		if (src.getElementsByTagName("TD")[0].innerText==" ") return false; 
    704. 

  704. 		for(i=0; i<src.getElementsByTagName("TD").length; i++){
    705. 

  705. 			src.getElementsByTagName("TD")[i].setAttribute("bgColor","yellow")
    706. 

  706. 		}
    707. 

  707. 		document.all.tmpDlgArg.value=document.getElementsByName("Descriptions")[myIndex].value + " (: " + document.getElementsByName("Amounts")[myIndex].value +")<br><br>"
    708. 

  708. 		window.showModalDialog('dialog_GetDestination.asp',document.all.tmpDlgArg,'dialogHeight:200px; dialogWidth:440px; dialogTop:; dialogLeft:; edge:None; center:Yes; help:No; resizable:No; status:No;');
    709. 

  709. 		if (document.all.tmpDlgArg.value !="") {
    710. 

  710. 			Arguments=document.all.tmpDlgArg.value.split("#")
    711. 

  711. 			document.getElementsByName("GLAccounts")[myIndex].value=Arguments[0]
    712. 

  712. 			document.getElementsByName("Accounts")[myIndex].value=Arguments[1]
    713. 

  713. 			if (Arguments[1]==0)
    714. 

  714. 				src.setAttribute("title","  " + Arguments[0] +"   .")
    715. 

  715. 			else
    716. 

  716. 				src.setAttribute("title","  "+Arguments[1] + " - " + Arguments[0] +"   .")
    717. 

  717. 		}
    718. 

  718. 		else{
    719. 

  719. 			document.getElementsByName("GLAccounts")[myIndex].value="0"
    720. 

  720. 			document.getElementsByName("Accounts")[myIndex].value="0"
    721. 

  721. 			for(i=0; i<src.getElementsByTagName("TD").length; i++){
    722. 

  722. 				src.getElementsByTagName("TD")[i].setAttribute("bgColor","")
    723. 

  723. 			}
    724. 

  724. 			src.setAttribute("title","")
    725. 

  725. 		}
    726. 

  726. 		return false;
    727. 

  727. 	}
    728. 

  728. 	//-->
    729. 

  729. 	</SCRIPT>
    730. 

  730. <%
    731. 

  731. '------------------------------------------------------------------------------
    732. 

  732. '------------------------------------------------------------------ Find Cheque
    733. 

  733. '------------------------------------------------------------------------------
    734. 

  734. elseif request("act")="findCheq" then
    735. 

  735. 	chqNo = replace(sqlSafe(request("cheque")),".","")
    736. 

  736. 	amount= replace(sqlSafe(request("amount")),".","")
    737. 

  737. 	if isnumeric(chqNo) then
    738. 

  738. 		chqNo=cdbl(chqNo)
    739. 

  739. 		mySQL="SELECT GLDocs.GLDocDate, GLDocs.GLDocID, GLDocs.ID AS GLDoc, GLRows.* FROM GLRows INNER JOIN GLDocs ON GLRows.GLDoc = GLDocs.ID WHERE (GLRows.deleted = 0) AND (CAST(GLRows.Ref1 AS float) = '"& chqNo & "') AND (GLDocs.IsRemoved = 0) AND (GLDocs.deleted = 0) AND (GLDocs.GL = '"& openGL & "') AND NOT(IsTemporary = 0 AND IsFinalized = 0) ORDER BY GLDocs.GLDocDate, GLRows.ID"
    740. 

  740. 	elseif isnumeric(amount) then
    741. 

  741. 		amount=cdbl(amount)
    742. 

  742. 		mySQL="SELECT GLDocs.GLDocDate, GLDocs.GLDocID, GLDocs.ID AS GLDoc, GLRows.* FROM GLRows INNER JOIN GLDocs ON GLRows.GLDoc = GLDocs.ID WHERE (GLRows.deleted = 0) AND (GLRows.Ref1 <> '') AND (GLRows.Amount = '"& amount & "') AND (GLDocs.IsRemoved = 0) AND (GLDocs.deleted = 0) AND (GLDocs.GL = '"& openGL & "') ORDER BY GLDocs.GLDocDate, GLRows.ID"
    743. 

  743. 	else
    744. 

  744. 		conn.close
    745. 

  745. 		response.redirect "?errMsg="&Server.URLEncode("   .")
    746. 

  746. 	end if
    747. 

  747. 

  748. 	Set RS1=Conn.execute(mySQL)
    749. 

  749. 	if RS1.eof then
    750. 

  750. 		conn.close
    751. 

  751. '		response.redirect "?errMsg="&Server.URLEncode("    .")
    752. 

  752. 		response.redirect "?errMsg="&Server.URLEncode("     .")
    753. 

  753. 	else
    754. 

  754. %>
    755. 

  755. 		<br>
    756. 

  756. 		<table class="RepTable" align='center' width='90%'>
    757. 

  757. 		<tr class="RepTableTitle">
    758. 

  758. 			<td>#</td>
    759. 

  759. 			<td></td>
    760. 

  760. 			<td></td>
    761. 

  761. 			<td></td>
    762. 

  762. 			<td></td>
    763. 

  763. 			<td></td>
    764. 

  764. 			<td></td>
    765. 

  765. 		</tr>
    766. 

  766. <%
    767. 

  767. 		tempCounter=0
    768. 

  768. 		Do While NOT RS1.eof
    769. 

  769. 			tempCounter=tempCounter+1
    770. 

  770. 			GLDocDate =		RS1("GLDocDate")
    771. 

  771. 			GLDoc =			RS1("GLDoc")
    772. 

  772. 			GLDocNo =		RS1("GLDocID")
    773. 

  773. 			GLAccount =		RS1("GLAccount")
    774. 

  774. 			Account =		RS1("Tafsil")
    775. 

  775. 			Description =	RS1("Description")
    776. 

  776. 			Ref1 =			RS1("Ref1")
    777. 

  777. 			Ref2 =			RS1("Ref2")
    778. 

  778. 			Amount =		RS1("Amount")
    779. 

  779. 			IsCredit =		RS1("IsCredit")
    780. 

  780. 

  781. 			credit = ""
    782. 

  782. 			debit = ""
    783. 

  783. 			if IsCredit  then 
    784. 

  784. 				credit = Amount 
    785. 

  785. 				totalCredit = totalCredit + cdbl(Amount)
    786. 

  786. 			else
    787. 

  787. 				debit = Amount 
    788. 

  788. 				totalDebit = totalDebit + cdbl(Amount)
    789. 

  789. 			end if
    790. 

  790. %>
    791. 

  791. 			<tr class='RepTR<%=tempCounter MOD 2%>'>
    792. 

  792. 				<td><%=tempCounter%></td>
    793. 

  793. 				<td style='width:60;direction:LTR;'><%=GLDocDate%></td>
    794. 

  794. 

  795. 				<td><A HREF="../accounting/GLMemoDocShow.asp?id=<%=GLDoc%>" Target="_blank"><%=GLDocNo%></A></td>
    796. 

  796. 				<td style="cursor:hand;" onclick="window.location='?act=showBook&Account=<%=Account%>&GLAccount=<%=GLAccount%>&cheq=<%=Ref1%>';"><B><%=GLAccount&Account%></B></td>
    797. 

  797. 				<td><%=Description%></td>
    798. 

  798. 				<%if IsCredit then%>
    799. 

  799. 					<td>&nbsp;</td>
    800. 

  800. 					<td><%=Separate(Amount)%></td>
    801. 

  801. 				<%else%>
    802. 

  802. 					<td><%=Separate(Amount)%></td>
    803. 

  803. 					<td>&nbsp;</td>
    804. 

  804. 				<%end if%>
    805. 

  805. 			</tr>
    806. 

  806. <%
    807. 

  807. 			RS1.moveNext
    808. 

  808. 		Loop
    809. 

  809. %>
    810. 

  810. 		<tr class="RepTableTitle">
    811. 

  811. 			<td colspan=7 height=30>&nbsp;</td>
    812. 

  812. 		</tr>
    813. 

  813. 		</table>
    814. 

  814. <%
    815. 

  815. 	end if 
    816. 

  816. '------------------------------------------------------------------------------
    817. 

  817. '---------------------------------------------------------------------- default
    818. 

  818. '------------------------------------------------------------------------------
    819. 

  819. else
    820. 

  820. %>
    821. 

  821. 	<BR>
    822. 

  822. 	<Center>
    823. 

  823. 	<input type="hidden" Name='tmpDlgArg' value=''>
    824. 

  824. 	<input type="hidden" Name='tmpDlgTxt' value=''>
    825. 

  825. 

  826. 	<FORM METHOD=POST ACTION="?act=showBook" onsubmit="return checkValidation();">
    827. 

  827. 	<TABLE>
    828. 

  828. 	<TR>
    829. 

  829. 		<TD colspan=2 align=center></TD>
    830. 

  830. 		<TD align=center></TD>
    831. 

  831. 	</TR>
    832. 

  832. 	<TR>
    833. 

  833. 		<TD colspan=2><INPUT dir="LTR"  TYPE="text" NAME="Account" ID="Account" maxlength="6" value="<%=Account%>" onKeyPress='return mask(this);' onBlur='check(this);' style="width:250px;border:solid 1pt black" tabindex=2></TD>
    834. 

  834. 		<TD><INPUT dir="LTR"  TYPE="text" NAME="GLAccount" id="GLAccount" maxlength="50" value="<%=GLAccount%>" onKeyPress='return mask(this);' onBlur='check(this);' style="width:100px;border:solid 1pt black" tabindex=1></TD>
    835. 

  835. 	</TR>
    836. 

  836. 	<TR>
    837. 

  837. 		<TD colspan=2><TextArea NAME="AccountName" id="AccountName" readonly style="width:250px;height:40px;font-family:tahoma;font-size:9pt;background:transparent; border:solid 1px white"><%=AccountName%></TextArea></TD>
    838. 

  838. 		<TD><TextArea NAME="GLAccountName" id="GLAccountName" readonly  style="width:100px;height:40px;font-family:tahoma;font-size:9pt;background:transparent; border:solid 1px white;"><%=GLAccountName%></TextArea></TD>
    839. 

  839. 	</TR>
    840. 

  840. 	<tr>
    841. 

  841. 		<td><input type='radio' name='displayMode' value=0 CHECKED><span> </span></td>
    842. 

  842. 		<td><input type='radio' name='displayMode' value=1><span> </span></td>
    843. 

  843. 		<td><input type='radio' name='displayMode' value=2><span> </span></td>
    844. 

  844. 	</tr>
    845. 

  845. 	<TR>
    846. 

  846. 		<TD align=left><INPUT TYPE="checkbox" NAME="ShowRemained" tabindex=5>     .</TD>
    847. 

  847. 		<TD align=left> </TD>
    848. 

  848. 		<TD><INPUT dir="LTR" class="GenInput" NAME="FromDate" id="FromDate" tabIndex="3" TYPE="text" maxlength="10" size="10" value="" onBlur="acceptDate(this);if(this.value!=''){document.all.ShowRemained.checked=true;}else{document.all.ShowRemained.checked=false;}" style="width:100px;"></TD>
    849. 

  849. 	</TR>
    850. 

  850. 	<TR>
    851. 

  851. 		<TD align=center><INPUT TYPE="Submit" Value="  " tabindex=6></TD>
    852. 

  852. 		<TD align=left> </TD>
    853. 

  853. 		<TD><INPUT dir="LTR" class="GenInput" NAME="ToDate" id="ToDate" tabIndex="4" TYPE="text" maxlength="10" size="10" value="" onBlur="acceptDate(this)" style="width:100px;"></TD>
    854. 

  854. 	</TR>
    855. 

  855. 	<TR>
    856. 

  856. 	</TR>
    857. 

  857. 	</FORM>
    858. 

  858. 	</TABLE>
    859. 

  859. 

  860. 	<hr width='80%'>
    861. 

  861. 	<FORM METHOD=POST ACTION="?act=findCheq">
    862. 

  862. 	<TABLE>
    863. 

  863. 	<TR>
    864. 

  864. 		<TD align=center colspan=2> </TD>
    865. 

  865. 	</TR>
    866. 

  866. 	<TR>
    867. 

  867. 		<TD align=center> </TD>
    868. 

  868. 		<TD><INPUT dir="LTR"  TYPE="text" NAME="cheque" maxlength="10" onKeyPress='return mask(this);' onChange='check(this);' style="width:100px;border:solid 1pt black" tabindex=10></TD>
    869. 

  869. 	</TR>
    870. 

  870. 	<TR>
    871. 

  871. 		<TD align=center></TD>
    872. 

  872. 		<TD><INPUT dir="LTR"  TYPE="text" NAME="amount" maxlength="10" onKeyPress='return mask(this);' onChange='check(this);' style="width:100px;border:solid 1pt black" tabindex=10></TD>
    873. 

  873. 	</TR>
    874. 

  874. 	</TABLE>
    875. 

  875. 	<INPUT TYPE="Submit" Value="  " tabindex=11 onkeyDown='if(event.keyCode==9) {document.all.GLAccount.focus(); return false;}'>
    876. 

  876. 	</FORM>
    877. 

  877. 	</Center>
    878. 

  878. 

  879. 	<SCRIPT LANGUAGE="JavaScript">
    880. 

  880. 	<!--
    881. 

  881. 	document.all.GLAccount.focus();
    882. 

  882. 

  883. 	var dialogActive=false;
    884. 

  884. 

  885. 

  886. 	function mask(src){ 
    887. 

  887. 		var theKey=event.keyCode;
    888. 

  888. 		if (theKey==32){
    889. 

  889. 			event.keyCode=9
    890. 

  890. 			document.all.tmpDlgArg.value="#"
    891. 

  891. 			if (src.name=='GLAccount'){
    892. 

  892. 				document.all.tmpDlgTxt.value="     :"
    893. 

  893. 				dialogActive=true
    894. 

  894. 				window.showModalDialog('../dialog_GenInput.asp',document.all.tmpDlgTxt,'dialogHeight:200px; dialogWidth:440px; dialogTop:; dialogLeft:; edge:None; center:Yes; help:No; resizable:No; status:No;');
    895. 

  895. 				dialogActive=false
    896. 

  896. 				if (document.all.tmpDlgTxt.value !="") {
    897. 

  897. 					dialogActive=true
    898. 

  898. 					window.showModalDialog('../accounting/dialog_selectGL.asp?act=select&name='+escape(document.all.tmpDlgTxt.value),document.all.tmpDlgArg,'dialogHeight:500px; dialogWidth:380px; dialogTop:; dialogLeft:; edge:Raised; center:Yes; help:No; resizable:Yes; status:No;');
    899. 

  899. 					dialogActive=false
    900. 

  900. 					if (document.all.tmpDlgArg.value!="#"){
    901. 

  901. 						Arguments=document.all.tmpDlgArg.value.split("#")
    902. 

  902. 						src.value=Arguments[0];
    903. 

  903. 						document.all.GLAccountName.value=Arguments[1];
    904. 

  904. 					}
    905. 

  905. 				}
    906. 

  906. 			}
    907. 

  907. 			else if (src.name=='Account') {
    908. 

  908. 				document.all.tmpDlgTxt.value="     :"
    909. 

  909. 				dialogActive=true
    910. 

  910. 				window.showModalDialog('../dialog_GenInput.asp',document.all.tmpDlgTxt,'dialogHeight:200px; dialogWidth:440px; dialogTop:; dialogLeft:; edge:None; center:Yes; help:No; resizable:No; status:No;');
    911. 

  911. 				dialogActive=false
    912. 

  912. 				if (document.all.tmpDlgTxt.value !="") {
    913. 

  913. 					dialogActive=true
    914. 

  914. 					window.showModalDialog('../AR/dialog_SelectAccount.asp?act=select&search='+escape(document.all.tmpDlgTxt.value), document.all.tmpDlgArg, 'dialogWidth:780px; dialogHeight:500px; dialogTop:; dialogLeft:; edge:Raised; center:Yes; help:No; resizable:Yes; status:No;');
    915. 

  915. 					dialogActive=true
    916. 

  916. 					if (document.all.tmpDlgArg.value!="#"){
    917. 

  917. 						Arguments=document.all.tmpDlgArg.value.split("#")
    918. 

  918. 						src.value=Arguments[0];
    919. 

  919. 						document.all.AccountName.value=Arguments[1];
    920. 

  920. 					}
    921. 

  921. 				}
    922. 

  922. 			}
    923. 

  923. 		}
    924. 

  924. 		else if ((theKey >= 48 && theKey <= 57) || theKey==13 || theKey==44 ) // [0]-[9] and [Enter] are acceptible
    925. 

  925. 			return true;
    926. 

  926. 		else
    927. 

  927. 			return false;
    928. 

  928. 	}
    929. 

  929. 

  930. 	function check(src){ 
    931. 

  931. //--------------------SAM FireFox Compatibility-------------------------------
    932. 

  932. 		if (!dialogActive){
    933. 

  933. 			badCode = false;
    934. 

  934. 			if (window.XMLHttpRequest) {
    935. 

  935. 				var objHTTP=new XMLHttpRequest();
    936. 

  936. 			} else if (window.ActiveXObject) {
    937. 

  937. 				var objHTTP = new ActiveXObject("Microsoft.XMLHTTP");
    938. 

  938. 			}
    939. 

  939. 			if (src.name=='GLAccount' && src.value.indexOf(",")=='-1') {
    940. 

  940. 				objHTTP.open('GET','../accounting/xml_GLAccount.asp?id='+src.value,false)
    941. 

  941. 				objHTTP.send()
    942. 

  942. 				tmpStr = unescape(objHTTP.responseText)
    943. 

  943. 				document.all.GLAccountName.value=tmpStr;
    944. 

  944. 				//if (tmpStr == '   ')
    945. 

  945. 				//	src.value='';
    946. 

  946. 			}
    947. 

  947. 			else if (src.name=='Account') {
    948. 

  948. 				objHTTP.open('GET','../accounting/xml_CustomerAccount.asp?id='+src.value,false)
    949. 

  949. 				objHTTP.send()
    950. 

  950. 				tmpStr = unescape(objHTTP.responseText)
    951. 

  951. 				document.all.AccountName.value=tmpStr;
    952. 

  952. 			}
    953. 

  953. 		}
    954. 

  954. 	}
    955. 

  955. 	function checkValidation(){
    956. 

  956. 	  try{
    957. 

  957. 		box=document.all.GLAccount;
    958. 

  958. 		check(box);
    959. 

  959. 		if (box.value==''){
    960. 

  960. 			box.style.backgroundColor="red";
    961. 

  961. 			alert("   ");
    962. 

  962. 			box.style.backgroundColor="";
    963. 

  963. 			box.focus();
    964. 

  964. 			return false;
    965. 

  965. 		}
    966. 

  966. 		box=document.all.FromDate;
    967. 

  967. 		if (box.value!='' && box.value!=null){
    968. 

  968. 			if (!acceptDate(box))
    969. 

  969. 				return false;
    970. 

  970. 		}
    971. 

  971. 		box=document.all.ToDate;
    972. 

  972. 		if (box.value!='' && box.value!=null){
    973. 

  973. 			if (!acceptDate(box))
    974. 

  974. 				return false;
    975. 

  975. 		}
    976. 

  976. 	  }catch(e){
    977. 

  977. 			alert("  ");
    978. 

  978. 			return false;
    979. 

  979. 	  }
    980. 

  980. 	}
    981. 

  981. 

  982. 	//-->
    983. 

  983. 	</SCRIPT>
    984. 

  984. <%
    985. 

  985. end if
    986. 

  986. %>
    987. 

  987. 

  988. <!--#include file="tah.asp" -->
    989.