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

'AR (6)

PageTitle="���� �������"

SubmenuItem=1

%>

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

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

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



<%

function ShowErrorMessage(msg)

	response.write "<table align='center' cellpadding='5'><tr><td bgcolor='#FFCCCC' dir='rtl' align='center'> ��� ! <br>"& msg & "<br></td></tr></table><br>"

end function



function Link2Trace(OrderNo)

	Link2Trace="<A HREF='../order/TraceOrder.asp?act=show&order="& OrderNo & "' target='_balnk'>"& OrderNo & "</A>"

end function



%>

<style>

	Table { font-size: 9pt;}

	.InvRowInput { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0F0F0; text-align:right;}

	.InvHeadInput { font-family:tahoma; font-size: 9pt; border: none; background-color: #CCCC88; text-align:center;}

	.InvRowInput2 { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0FFF0; text-align:right;}

	.InvHeadInput2 { font-family:tahoma; font-size: 9pt; border: none; background-color: #AACC77; text-align:center;}

	.InvHeadInput3 { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0F0F0; text-align:right;}

	.InvGenInput  { font-family:tahoma; font-size: 9pt; border: none; }

	.InvGenButton { font-family:tahoma; font-size: 9pt; border: 1px solid black; }

</style>

<SCRIPT LANGUAGE="JavaScript">

<!--

var okToProceed=false;

var currentRow=0;

//-->

</SCRIPT>

<%



if request("act")="submitsearch" then

'	response.redirect "AccountReport.asp?act=showInvoice&invoice="	 & InvoiceID

	if isnumeric(request("inquiry")) then

		response.redirect "AccountReport.asp?act=showInquiry&inquiry=" & request("inquiry")

	elseif trim(request("query")) = "" then

		Conn.close

		response.redirect "?errmsg=" & Server.URLEncode("���� �э �������!")

	end if

	

	if isnumeric(request("query")) then

		'User has entered an ORDER NUMBER

		OrderID=clng(request("query"))

		mySQL="SELECT InquiryOrderRelations.Inquiry FROM InquiryOrderRelations INNER JOIN Inquiries ON InquiryOrderRelations.Inquiry = Inquiries.ID WHERE (InquiryOrderRelations.[Order] = '"& OrderID & "') AND (Inquiries.IsReverse = 0) AND (Inquiries.Voided = 0)"

		Set rs = Server.CreateObject("ADODB.Recordset")

		rs.open mySQL, Conn, 3, 3

		if rs.eof then

			rs.close

			mySQL="SELECT InquiryOrderRelations.Inquiry FROM InqueryOrderRelations INNER JOIN Inquiries ON InquiryOrderRelations.Inquiry = Inquires.ID WHERE (InquiryOrderRelations.[Order] = '"& OrderID & "') AND (Inquiries.IsReverse = 0)"

			rs.open mySQL, Conn, 3, 3

			if not rs.eof then

				InquiryID=rs("Inquiry")

				Conn.close

				response.redirect "AccountReport.asp?act=showInquiry&inquiry=" & InquiryID

			else

				Conn.close

				response.redirect "?errmsg=" & Server.URLEncode("����� ����� �� �� ������� ���� ���.")

			end if

		else

			if rs.RecordCount>1 then

				tempWriteAnd=""

				inquiryList="��� ����� �� ��� ������ ��� ����� ���:<br>"

				Do While not rs.eof 

					inquiryList=inquiryList & tempWriteAnd & "<A HREF='AccountReport.asp?act=showInquiry&inquiry="& rs("inquiry") &"' target='_blank'>" & rs("inquiry") & "</A>"

					tempWriteAnd=" � "

					rs.moveNext

				Loop 

				inquiryList=inquiryList & "<br>�� ��� ����"

				response.write "<br><br>"

				call showAlert (inquiryList ,CONST_MSG_ALERT) 

			else

				InquiryID=rs("Inquiry")

				Conn.close

				response.redirect "AccountReport.asp?act=showInquiry&inquiry=" & InquiryID

			end if

		end if

	else

		'User has entered an ACCOUNT NAME

		SA_TitleOrName=request("query")

		SA_Action="return true;"

		SA_SearchAgainURL="InquiryInput.asp"

		SA_StepText="��� ��� : ������ ����"

%>

		<FORM METHOD=POST ACTION="?act=showInquiries">

		<!--#include File="include_SelectAccount.asp"-->

		</FORM>

<%

	end if

elseif request("act")="showInquiry" then

	cusID=request("selectedCustomer")

	if cusID <> "" and isnumeric(cusID) then

		mySQL="SELECT TOP 1 AccountTitle FROM Accounts WHERE (ID = '"& clng(cusID) & "')"

		set RS1=Conn.execute(mySQL)

		AccountTitle = RS1("AccountTitle")

%>

		<br><br>

		<!--#include file="include_CustomerInquiries.asp" -->

<%

	end if

else%>

	<br>

	<br>

	<FORM METHOD=POST ACTION="?act=submitsearch">

	<div dir='rtl'><B><FONT SIZE="" COLOR="red"> &nbsp;����� �������: </FONT><BR>����� ���� ��� ���� �� ����� �����</B>

		<INPUT TYPE="text" NAME="query" onfocus="document.getElementsByName('inquiry')[0].value='';">&nbsp;

		<INPUT class="GenButton" TYPE="submit" Name="submitShow" value="�����">&nbsp;&nbsp;&nbsp;����� �������:

		<INPUT style="font-family:Tahoma;width:100px;" TYPE="text" NAME="inquiry">&nbsp;

	</div>

	</FORM>

<!-- ����� ���� ��� ���� �� ����� �����-->

	<%if Auth(6 , 1) then %>

	<br>

	<hr width="90%" align="center">

	<br>

	<FORM METHOD=POST ACTION="InquiryInput.asp?act=submitsearch">

	<div dir='rtl'><B><FONT SIZE="" COLOR="red"> &nbsp;������� ����: </FONT><BR>����� ���� ��� ���� �� ����� �����</B>

		<INPUT TYPE="text" NAME="query">&nbsp;

		<INPUT class="GenButton" TYPE="submit" value="�����"><br>

	</div>

	</FORM>

	<%end if %>

<!-- ����� ���� ������� -->

	<%if Auth(6 , 3) then %>

	<br>

	<hr width="90%" align="center">

	<br>

	<br>

	<FORM METHOD=POST ACTION="InquiryEdit.asp?act=search">

	<div dir='rtl'>&nbsp;<B><FONT SIZE="" COLOR="red">����� �������:</FONT><BR> ����� ����� �� ���� ����</B>

		<INPUT style="font-family:Tahoma;" TYPE="text" NAME="order" onfocus="document.getElementsByName('inquiry')[1].value='';">&nbsp;

		<INPUT class="GenButton" TYPE="submit" value="�����...">&nbsp;&nbsp;&nbsp;����� �������:

		<INPUT style="font-family:Tahoma;width:100px;" TYPE="text" NAME="inquiry">&nbsp;

	</div>

	</FORM>

	<%end if %>



	<SCRIPT LANGUAGE="JavaScript">

	<!--

		document.getElementsByName("query")[0].focus();

	//-->

	</SCRIPT>

<%

end if

conn.Close

%>

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