PageRenderTime 12ms CodeModel.GetById 9ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/beta/bank/chequePrint.asp

http://github.com/khaneh/Orders
ASP | 131 lines | 122 code | 7 blank | 2 comment | 8 complexity | 843434070b85fd57f23e2141ca006824 MD5 | raw file
  1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>
  2<%
  3PageTitle= "�ǁ �� "
  4SubmenuItem=1
  5if not Auth("A" , 1) then NotAllowdToViewThisPage()
  6
  7sendTo = session("id")
  8%>
  9<!--#include file="top.asp" -->
 10<!--#include File="../include_farsiDateHandling.asp"-->
 11<!--#include File="../include_JS_InputMasks.asp"-->
 12<!--#include File="../include_UtilFunctions.asp"-->
 13<style>
 14	.GenButton { font-family:tahoma; font-size: 9pt; border: 1px solid black; }
 15</style>
 16<%
 17	ID = cint(request("PaidChequesID"))
 18	if ID > 0 then
 19		mySQL="SELECT PaidCheques.*, Accounts.AccountTitle, Bankers.Name as BankOfOrigin FROM PaidCheques INNER JOIN Bankers ON PaidCheques.Banker = Bankers.ID INNER JOIN Payments ON PaidCheques.Payment = Payments.ID INNER JOIN Accounts ON Payments.Account = Accounts.ID WHERE (PaidCheques.ID = "& ID & ")"
 20		Set RS1 = conn.Execute(mySQL)
 21		if not(RS1.eof) then
 22%>
 23			<br><br>
 24			<FORM METHOD=POST ACTION="?PaidChequesID=<%=ID%>&act=Print">
 25				<TABLE align='center'>
 26				<TR>
 27					<TD>����� �� </TD>
 28					<TD> : </TD>
 29					<TD><%=RS1("chequeDate")%></TD>
 30				</TR>
 31				<TR>
 32					<TD>����</TD>
 33					<TD> : </TD>
 34					<TD><%=Separate(RS1("Amount"))%></TD>
 35				</TR>
 36				<TR>
 37					<TD>�� ���</TD>
 38					<TD> : </TD>
 39					<TD><input type='text' name='AccountTitle' value='<% if request.form("AccountTitle") = "" then response.write(RS1("AccountTitle")) else response.write(request.form("AccountTitle"))%>' size='80'></TD>
 40				</TR>
 41				<TR>
 42					<TD>����</TD>
 43					<TD> : </TD>
 44					<TD><input type='text' name='Description' value='<% if request.form("Description") = "" then response.write(RS1("Description")) else response.write(request.form("Description"))%>' size='80'></TD>
 45				</TR>
 46					<TD>����� ��� </TD>
 47					<TD> : </TD>
 48					<TD><input type='checkbox' name='havaleh' <% if request.form("havaleh") = "on" then response.write("checked") else response.write(request.form("havaleh")) %>></TD>
 49				</TR>
 50				<TR>
 51					<TD>����� ��</TD>
 52					<TD> : </TD>
 53					<TD><%=RS1("ChequeNo")%></TD>
 54				</TR>
 55				<TR>
 56					<TD>����� ����</TD>
 57					<TD> : </TD>
 58					<TD><input align='right' style="direction:ltr;" type='text' name='reciptDate' value='<% if request.form("reciptDate") = "" then response.write(RS1("chequeDate")) else response.write(request.form("reciptDate"))%>' size='80'></TD>
 59				</TR>
 60				<TR>
 61					<TD>����</TD>
 62					<TD> : </TD>
 63					<TD>
 64						<%=RS1("BankOfOrigin")%>
 65						<input type='hidden' name='banker' value='<%=RS1("Banker")%>'>
 66					</TD>
 67				</TR>
 68				<TR>
 69					<TD colspan='3' align='center'>
 70						<br/>
 71						<input class='GenButton' name='action' type='submit' value='�ǁ �� �� ��'>
 72						<input class='GenButton' name='action' type='submit' value='�ǁ �ѐ� ����'>
 73						
 74					</TD>
 75				</TR>
 76				<TR>
 77					<TD colspan='3' align='center'>
 78						<br/>
 79						<A HREF="/beta/AP/AccountReport.asp?act=showPayment&payment=<%=RS1("Payment")%>">��Ґ�� �� ���� ������</A>
 80					</TD>
 81				</TR>
 82				</TABLE>
 83			</FORM>
 84
 85<% 
 86		End if
 87		RS1.close
 88	end if
 89	if request("act") = "Print" then
 90		if request.form("action") = "�ǁ �ѐ� ����" then 
 91			AccountTitle =	request.form("AccountTitle")
 92			Description =	request.form("Description")
 93			reciptDate =	request.form("reciptDate")
 94			ID =			cint(request("PaidChequesID"))
 95	%>
 96			<BR>
 97			<BR>
 98			<CENTER>
 99			<% 	ReportLogRow = PrepareReport ("chequeRecipt.rpt", "IDaccountTitleDescriptionreciptDate", ID & "" & accountTitle & "" & Description & "" & reciptDate , "/beta/dialog_printManager.asp?act=Fin") %>
100			<INPUT TYPE="button" value=" �ǁ " Class="GenButton" style="border:1 solid blue;" onclick="printThisReport(this,<%=ReportLogRow%>);">
101
102			</CENTER>
103
104			<BR><iframe name=f1 id=f1 src="/CRReports/?Id=<%=ReportLogRow%>" align=center style="width:750; height:410; border-style: none" border=0 FRAMEBORDER=0 scrollbars=no ></iframe>
105	<%	else 'request.form("action") = "�ǁ �� �� ��" then 
106			AccountTitle =	request.form("AccountTitle")
107			Description =	request.form("Description")
108			reciptDate =	request.form("reciptDate")
109			ID =			cint(request("PaidChequesID"))
110			banker =		request.form("Banker")
111			if request.form("havaleh") = "on" then 
112				havaleh = 1
113			else 
114				havaleh = 0
115			end if
116			'response.write(havaleh)
117			'response.end
118	%>
119			<BR>
120			<BR>
121			<CENTER>
122			<% 	ReportLogRow = PrepareReport ("chequePrint" & banker & ".rpt", "IDaccountTitleDescriptionhavaleh", ID & "" & accountTitle & "" & Description & "" & havaleh , "/beta/dialog_printManager.asp?act=Fin") %>
123			<INPUT TYPE="button" value=" �ǁ " Class="GenButton" style="border:1 solid blue;" onclick="printThisReport(this,<%=ReportLogRow%>);">
124
125			</CENTER>
126
127			<BR><iframe name=f1 id=f1 src="/CRReports/?Id=<%=ReportLogRow%>" align=center style="width:750; height:410; border-style: none" border=0 FRAMEBORDER=0 scrollbars=no ></iframe>
128	<%	end if
129	end if
130%>
131 <!--#include file="tah.asp" -->