/beta/bank/dialog_GetDestination.asp

http://github.com/khaneh/Orders · ASP · 170 lines · 158 code · 8 blank · 4 comment · 45 complexity · 87927c0d102e653e61dc3e7e0f772488 MD5 · raw file 

    

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

    2. 

  2. <HTML>

    3. 

  3. <HEAD>

    4. 

  4. <meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

    5. 

  5. <meta http-equiv="Content-Language" content="fa">

    6. 

  6. <style>

    7. 

  7. 	Table { font-size: 9pt;}

    8. 

  8. 	Input { font-family:tahoma; font-size: 9pt;}

    9. 

  9. </style>

    10. 

  10. <TITLE> </TITLE>

    11. 

  11. <script language="JavaScript">

    12. 

  12. <!--

    13. 

  13. var Arguments = new Array(2)

    14. 

  14. 

    15. 

  15. function documentKeyDown() {

    16. 

  16. 	var theKey = event.keyCode;

    17. 

  17. 	var GLA = 0

    18. 

  18. 	var Acc = 0

    19. 

  19. 	if (theKey == 27) { 

    20. 

  20. 		window.close();

    21. 

  21. 	}

    22. 

  22. 	else if (theKey == 13){

    23. 

  23. 		check(document.all.GLAccount);

    24. 

  24. 		if ((document.all.GLAccountName.value != "  " ) && (document.all.GLAccountName.value != "! " ) && (document.all.GLAccountName.value != "   " ))

    25. 

  25. 			GLA=document.all.GLAccount.value

    26. 

  26. 		check(document.all.Account);

    27. 

  27. 		if ((document.all.AccountName.value != "  " ) && (document.all.AccountName.value != "! " ) && (document.all.AccountName.value != "   " ))

    28. 

  28. 			Acc=document.all.Account.value

    29. 

  29. 		if (GLA != 0){

    30. 

  30. 			window.dialogArguments.value=GLA+"#"+Acc;

    31. 

  31. 			window.close();

    32. 

  32. 		}

    33. 

  33. 	}

    34. 

  34. 	else if (theKey==9){

    35. 

  35. 		event.keyCode=0;

    36. 

  36. 		if (document.all.GLAccount.value=="")

    37. 

  37. 			document.all.GLAccount.focus();

    38. 

  38. 		else if (document.all.Account.value=="")

    39. 

  39. 			document.all.Account.focus();

    40. 

  40. 		else

    41. 

  41. 			document.all.GLAccount.focus();

    42. 

  42. 	}

    43. 

  43. }

    44. 

  44. 

    45. 

  45. document.onkeydown = documentKeyDown;

    46. 

  46. 

    47. 

  47. function onMyLoad(){

    48. 

  48. 	if (window.dialogArguments){

    49. 

  49. 		document.getElementById('dlgDispTxt').innerHTML=window.dialogArguments.value;

    50. 

  50. 		window.dialogArguments.value=""

    51. 

  51. 		window.dialogArguments.value=""

    52. 

  52. 	}

    53. 

  53. 	document.all.GLAccount.focus();

    54. 

  54. }

    55. 

  55. 

    56. 

  56. //-->

    57. 

  57. </script>

    58. 

  58. <!--#include file="../config.asp" -->

    59. 

  59. </HEAD>

    60. 

  60. <BODY leftmargin=0 topmargin=0 bgcolor='#DDDDFF' onload="onMyLoad()" style="font-family:tahoma;" DIR=RTL>

    61. 

  61. <BR>

    62. 

  62. <Center>

    63. 

  63. <TABLE>

    64. 

  64. <TR>

    65. 

  65. 	<TD colspan='2'><span id='dlgDispTxt' style="width:350px;">  </span></TD>

    66. 

  66. </TR>

    67. 

  67. <TR>

    68. 

  68. 	<TD align=center></TD>

    69. 

  69. 	<TD align=center></TD>

    70. 

  70. </TR>

    71. 

  71. <TR>

    72. 

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

    73. 

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

    74. 

  74. </TR>

    75. 

  75. <TR>

    76. 

  76. 	<TD><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>

    77. 

  77. 	<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>

    78. 

  78. </TR>

    79. 

  79. </TABLE>

    80. 

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

    81. 

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

    82. 

  82. <SCRIPT LANGUAGE="JavaScript">

    83. 

  83. <!--

    84. 

  84. var dialogActive=false;

    85. 

  85. 

    86. 

  86. 	function mask(src){ 

    87. 

  87. 		var theKey=event.keyCode;

    88. 

  88. 		if (theKey==32){

    89. 

  89. 			event.keyCode=9

    90. 

  90. 			document.all.tmpDlgArg.value="#"

    91. 

  91. 			if (src.name=='GLAccount'){

    92. 

  92. 				document.all.tmpDlgTxt.value="     :"

    93. 

  93. 				dialogActive=true

    94. 

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

    95. 

  95. 				dialogActive=false

    96. 

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

    97. 

  97. 					dialogActive=true

    98. 

  98. 					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;');

    99. 

  99. 					dialogActive=false

    100. 

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

    101. 

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

    102. 

  102. 						src.value=Arguments[0];

    103. 

  103. 						document.all.GLAccountName.value=Arguments[1];

    104. 

  104. 					}

    105. 

  105. 				}

    106. 

  106. 			}

    107. 

  107. 			else if (src.name=='Account') {

    108. 

  108. 				document.all.tmpDlgTxt.value="     :"

    109. 

  109. 				dialogActive=true

    110. 

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

    111. 

  111. 				dialogActive=false

    112. 

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

    113. 

  113. 					dialogActive=true

    114. 

  114. 					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;');

    115. 

  115. 					dialogActive=true

    116. 

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

    117. 

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

    118. 

  118. 						src.value=Arguments[0];

    119. 

  119. 						document.all.AccountName.value=Arguments[1];

    120. 

  120. 					}

    121. 

  121. 				}

    122. 

  122. 			}

    123. 

  123. 		}

    124. 

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

    125. 

  125. 			return true;

    126. 

  126. 		else

    127. 

  127. 			return false;

    128. 

  128. 	}

    129. 

  129. 

    130. 

  130. function check(src){ 

    131. 

  131. 	if (!dialogActive){

    132. 

  132. 		badCode = false;

    133. 

  133. 		if (window.XMLHttpRequest) {

    134. 

  134. 				var objHTTP=new XMLHttpRequest();

    135. 

  135. 			} else if (window.ActiveXObject) {

    136. 

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

    137. 

  137. 			}

    138. 

  138. 		if (src.name=='GLAccount') {

    139. 

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

    140. 

  140. 			objHTTP.send()

    141. 

  141. 			tmpStr = unescape(objHTTP.responseText)

    142. 

  142. 			document.all.GLAccountName.value=tmpStr;

    143. 

  143. 		}

    144. 

  144. 		else if (src.name=='Account') {

    145. 

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

    146. 

  146. 			objHTTP.send()

    147. 

  147. 			tmpStr = unescape(objHTTP.responseText)

    148. 

  148. 			document.all.AccountName.value=tmpStr;

    149. 

  149. 		}

    150. 

  150. 	}

    151. 

  151. }

    152. 

  152. //-->

    153. 

  153. </SCRIPT></BODY>

    154. 

  154. </HTML>

    155. 

  155. <% 

    156. 

  156. Response.CacheControl="no-cache"

    157. 

  157. Response.AddHeader "pragma", "no-cache"

    158. 

  158. Server.ScriptTimeout = 600

    159. 

  159. Response.Expires= -1

    160. 

  160. if (session("ID")="") then

    161. 

  161. 	session.abandon

    162. 

  162. 	response.redirect "../login.asp?err=       "

    163. 

  163. end if

    164. 

  164. 

    165. 

  165. 'conStr="DRIVER={SQL Server};SERVER=(local);DATABASE=sefareshat;UID=sefadmin; PWD=5tgb;"

    166. 

  166. 'conStr = "Provider=SQLNCLI10.1;Persist Security Info=False;User ID=sefadmin;Initial Catalog=sefareshat;Data Source=(local);PWD=5tgb;"

    167. 

  167. 

    168. 

  168. 'Set conn = Server.CreateObject("ADODB.Connection")

    169. 

  169. 'conn.open conStr

    170. 

  170. %>
    171.