editGL.asp - This ASP code generates a web page for managin…

/beta/admin/editGL.asp

http://github.com/khaneh/Orders · ASP · 559 lines · 420 code · 47 blank · 92 comment · 28 complexity · 2fd6a78bb4bed3a7c0e0fe9736ca5f59 MD5 · raw file

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

' Admin

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

SubmenuItem=9



%>

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

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

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



<%



' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * *   Account 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 



'-----------------------------------------------------------------------------------------------------

'----------------------------------------------------------------------------- Edit GL Accounts submit

'-----------------------------------------------------------------------------------------------------

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

	ACCID = request("ACCID")

	name = request("name")

	GroupID = request("GroupID")

	accountType = request("accountType")

	If request("tafsil")="on" Then 

		tafsil = 1

	Else 

		tafsil = 0

	End If 



	conn.Execute("UPDATE GLAccounts SET Name = N'"& name & "', HasAppendix = "&tafsil&", accountType=" & accountType & " WHERE (ID = "& ACCID & ") AND (GL = "& OpenGL & ")")

	response.redirect "AccountInfo.asp?act=account&GroupID=" & GroupID



'-----------------------------------------------------------------------------------------------------

'------------------------------------------------------------------------------ Add GL Accounts submit

'-----------------------------------------------------------------------------------------------------

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

	ACCID = request("ACCID")

	name = request("name")

	GroupID = request("GroupID")



	Set RS2 = conn.Execute("SELECT * FROM GLAccounts WHERE ID="& ACCID & " AND GL="& OpenGL )

	if not RS2.EOF then

		response.write "<BR><BR><BR><BR><CENTER>���! ��� ����� ���� ���� ����"

		response.write "<BR><BR><A HREF='AccountInfo.asp?act=editAccountForms&GroupID="& GroupID & "&submit=������ ����'>�ѐ��</A></CENTER>"

		response.end

	else

		conn.Execute("INSERT INTO GLAccounts (GLGroup, Name, GL, ID) VALUES ("& GroupID & ", N'"& name & "',"& OpenGL & ", "& ACCID & ")")

		response.redirect "AccountInfo.asp?act=account&GroupID=" & GroupID

	end if



'-----------------------------------------------------------------------------------------------------

'---------------------------------------------------------------- Add / Delete / Edit GL Accounts Form

'-----------------------------------------------------------------------------------------------------

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

	ACCID = request("ACCID")

	submit = request("submit")

	GroupID = request("GroupID")



	Set RS2 = conn.Execute("SELECT * from GLAccountGroups where id="& GroupID & " and GL="& OpenGL )

	GroupName=RS2("name")

	

	'======================================== ������ ����

	'====================================================

	if submit="������ ����" then

		Set RS2 = conn.Execute("SELECT MAX(id) AS MaxID FROM GLAccounts WHERE GLGroup="& GroupID & " AND GL="& OpenGL )

		MaxID=RS2("MaxID")

		if isnull(MaxID) then MaxID= GroupID

		%>

		<BR><BR>

		<TABLE align=center>

		<FORM METHOD=POST ACTION="editGL.asp?act=NewAccountSubmit">

		<TR>

			<TD colspan=2 align=center><H3>������ ����</H3><BR>

			�� ���� <%=GroupName%> (�� <%=GroupID%>)<BR><BR>

			�� <%=OpenGLName%> (��� ���� <%=FiscalYear%>)

			<INPUT TYPE="hidden" name="GroupID" value="<%=GroupID%>">

			<BR><BR><BR>

			</TD>

		</TR>

		<TR>

			<TD>����� ����</TD>

			<TD><INPUT TYPE="text" NAME="ACCID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=MaxID+1%>"></TD>

		</TR>

		<TR>

			<TD>��� ����</TD>

			<TD><INPUT TYPE="text" NAME="name"></TD>

		</TR>

		<TR>

			<TD colspan=2 align=center>

				<BR><BR>

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

				<INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=account&GroupID=<%=GroupID%>'">

			</TD>

		</TR>

		</FORM>

		</TABLE>

		<SCRIPT LANGUAGE="JavaScript">

		<!--

			document.all.name.focus();

		//-->

		</SCRIPT>

		<%



	'======================================== ������ ����

	'====================================================

	elseif submit="������" then

		Set RS2 = conn.Execute("SELECT * FROM GLAccounts WHERE ID="& ACCID & " AND GL="& OpenGL )

		AccountName=RS2("name")

		%>

		<BR><BR>

		<TABLE align=center>

		<FORM METHOD=POST ACTION="editGL.asp?act=EditAccountSubmit">

		<TR>

			<TD colspan=2 align=center><H3>������ ����</H3><BR>

			�� ���� <%=GroupName%> (�� <%=GroupID%>)<BR><BR>

			�� <%=OpenGLName%> (��� ���� <%=FiscalYear%>)

			<INPUT TYPE="hidden" name="GroupID" value="<%=GroupID%>">

			<BR><BR><BR>

			</TD>

		</TR>

		<TR>

			<TD>����� ����</TD>

			<TD><INPUT TYPE="text" NAME="ACCID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=ACCID%>" readonly></TD>

		</TR>

		<TR>

			<TD>��� ����</TD>

			<TD><INPUT TYPE="text" NAME="name" value="<%=AccountName%>" ></TD>

		</TR>

		<tr>

			<td>�����</td>

			<td><input type='checkbox' name='tafsil' <% If CBool(rs2("HasAppendix")) Then response.write " checked='checked' " %>></td>

		</tr>

		<tr>

			<td>��� ����</td>

			<td>

				<select name="accountType">

<%

set rs=Conn.Execute("select * from glAccountTypes")

while not rs.eof

%>

					<option <%if rs2("accountType")=rs("id") then response.write " selected='selected' "%> value="<%=rs("id")%>">

						<%=rs("name")& " (" &rs("name_en")& ")"%>

					</option>

<%

	rs.moveNext

wend

%>

				</select>

			</td>

		</tr>

		<TR>

			<TD colspan=2 align=center>

				<BR><BR>

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

				<INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=account&GroupID=<%=GroupID%>'">

			</TD>

		</TR>

		</FORM>

		</TABLE>

		<%



	

	'======================================== ��� ���� 

	'====================================================

	elseif submit="���" then



	Set RS2 = conn.Execute("SELECT * FROM GLDocs INNER JOIN GLRows ON GLDocs.ID = GLRows.GLDoc WHERE (GLDocs.GL = "& OpenGL & ") AND (GLRows.GLAccount = "& ACCID & ")")

		if not RS2.EOF then

			response.write "<BR><BR><BR><BR><CENTER>���! �� ��� ���� ������ ��� ���� ����. ���  ��� �� ����� ����."

			response.write "<BR><BR><A HREF='AccountInfo.asp?act=account&GroupID=" & GroupID & "'>�ѐ��</A></CENTER>"

			response.end

		else

			conn.Execute("DELETE FROM GLAccounts WHERE (ID = "& ACCID & ") AND (GL = "& OpenGL & ")")

			response.redirect "AccountInfo.asp?act=account&GroupID=" & GroupID

		end if



	end if



' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * *   Account Groups

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 





'-----------------------------------------------------------------------------------------------------

'----------------------------------------------------------------------- Edit GL Account Groups submit

'-----------------------------------------------------------------------------------------------------

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

	GroupID = request("GroupID")

	name = request("name")

	SuperGroupID = request("SuperGroupID")



	conn.Execute("UPDATE GLAccountGroups SET Name = N'"& name & "' WHERE (ID = "& GroupID & ") AND (GL = "& OpenGL & ")")

	

	if cint(request("accountType"))<>-1 then 

		conn.Execute("update glAccounts set accountType=" & request("accountType") &" where glGroup=" & groupID & " and gl=" & openGL)

	end if

	response.redirect "AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID

'response.end

'-----------------------------------------------------------------------------------------------------

'------------------------------------------------------------------------ Add GL Account Groups submit

'-----------------------------------------------------------------------------------------------------

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

	GroupID = request("GroupID")

	name = request("name")

	SuperGroupID = request("SuperGroupID")



	Set RS2 = conn.Execute("SELECT * FROM GLAccountGroups WHERE ID="& GroupID & " AND GL="& OpenGL )

	if not RS2.EOF then

		response.write "<BR><BR><BR><BR><CENTER>���! ���  �� ���� ���� ����"

		response.write "<BR><BR><A HREF='AccountInfo.asp?act=editAccountGroupForms&SuperGroupID="& SuperGroupID & "&submit=������ ����'>�ѐ��</A></CENTER>"

		response.end

	else

		conn.Execute("INSERT INTO GLAccountGroups (GLSuperGroup, Name, GL, ID) VALUES ("& SuperGroupID & ", N'"& name & "',"& OpenGL & ", "& GroupID & ")")

		response.redirect "AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID

	end if



'-----------------------------------------------------------------------------------------------------

'---------------------------------------------------------- Add / Delete / Edit GL Account Groups Form

'-----------------------------------------------------------------------------------------------------

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

	GroupID = request("GroupID")

	submit = request("submit")

	SuperGroupID = request("SuperGroupID")



	Set RS2 = conn.Execute("SELECT * FROM GLAccountSuperGroups WHERE ID="& SuperGroupID & " AND GL="& OpenGL )

	SuperGroupName=RS2("name")

	

	'======================================== ������ ����

	'====================================================

	if submit="������ ����" then

		Set RS2 = conn.Execute("SELECT MAX(id) AS MaxID FROM GLAccountGroups WHERE GLSuperGroup="& SuperGroupID & " AND GL="& OpenGL )

		MaxID=RS2("MaxID")

		if isnull(MaxID) then MaxID= SuperGroupID

		%>

		<BR><BR>

		<TABLE align=center>

		<FORM METHOD=POST ACTION="editGL.asp?act=NewAccountGroupSubmit">

		<TR>

			<TD colspan=2 align=center><H3>������ ����</H3><BR>

			��  �ѐ��� <%=SuperGroupName%> (�� <%=SuperGroupID%>)<BR><BR>

			�� <%=OpenGLName%> (��� ���� <%=FiscalYear%>)

			<INPUT TYPE="hidden" name="SuperGroupID" value="<%=SuperGroupID%>">

			<BR><BR><BR>

			</TD>

		</TR>

		<TR>

			<TD>����� ����</TD>

			<TD><INPUT TYPE="text" NAME="GroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=MaxID+100%>"></TD>

		</TR>

		<TR>

			<TD>��� ���� </TD>

			<TD><INPUT TYPE="text" NAME="name"></TD>

		</TR>

		<TR>

			<TD colspan=2 align=center>

				<BR><BR>

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

				<INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=groups&SuperGroupID=<%=SuperGroupID%>'">

			</TD>

		</TR>

		</FORM>

		</TABLE>

		<%



	'======================================== ������ ����

	'====================================================

	elseif submit="������" then

		Set RS2 = conn.Execute("SELECT * FROM GLAccountGroups WHERE ID="& GroupID & " AND GL="& OpenGL )

		GroupName=RS2("name")

		%>

		<BR><BR>

		<TABLE align=center>

		<FORM METHOD=POST ACTION="editGL.asp?act=EditAccountGroupSubmit">

		<TR>

			<TD colspan=2 align=center><H3>������ ����</H3><BR>

			�� �ѐ��� <%=SuperGroupName%> (�� <%=SuperGroupID%>)<BR><BR>

			�� <%=OpenGLName%> (��� ���� <%=FiscalYear%>)

			<INPUT TYPE="hidden" name="SuperGroupID" value="<%=SuperGroupID%>">

			<BR><BR><BR>

			</TD>

		</TR>

		<TR>

			<TD>����� ����</TD>

			<TD><INPUT TYPE="text" NAME="GroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=GroupID%>" readonly></TD>

		</TR>

		<TR>

			<TD>��� ����</TD>

			<TD><INPUT TYPE="text" NAME="name" value="<%=GroupName%>" ></TD>

		</TR>

		<tr>

			<td>���� ���ȝ��</td>

			<td>

				<select name="accountType">

					<option value="-1" selected="selected">��� ����</option>

<%

set rs=Conn.Execute("select * from glAccountTypes")

while not rs.eof

%>

					<option value="<%=rs("id")%>">

						<%=rs("name")& " (" &rs("name_en")& ")"%>

					</option>

<%

	rs.moveNext

wend

%>

				</select>

			</td>

		</tr>

		<tr>

			<td colspan="2">* �� ����� �� ��� ���� �� ����� ���� ����� ���ȝ�� �� ��� ��� ������ ��</td>

		</tr>

		<TR>

			<TD colspan=2 align=center>

				<BR><BR>

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

				<INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=groups&SuperGroupID=<%=SuperGroupID%>'">

			</TD>

		</TR>

		</FORM>

		</TABLE>

		<%



	

	'======================================== ��� ���� 

	'====================================================

	elseif submit="���" then



	Set RS2 = conn.Execute("SELECT * FROM GLAccounts WHERE (GL = "& OpenGL & ") AND (GLGroup = "& GroupID & ")")

		if not RS2.EOF then

			response.write "<BR><BR><BR><BR><CENTER>���! �� ��� ���� ������ ���� ���� ����. ���  ��� �� ����� ����."

			response.write "<BR><BR><A HREF='AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID & "'>�ѐ��</A></CENTER>"

			response.end

		else

			conn.Execute("DELETE FROM GLAccountGroups WHERE (ID = "& GroupID & ") AND (GL = "& OpenGL & ")")

			response.redirect "AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID

		end if



	end if





' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * *   Account Super Groups

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 

' * * * * * * * * 





'-----------------------------------------------------------------------------------------------------

'----------------------------------------------------------------- Edit GL Account Super Groups submit

'-----------------------------------------------------------------------------------------------------

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

	name = request("name")

	SuperGroupID = request("SuperGroupID")

	SuperGroupType = request("type")



	conn.Execute("UPDATE GLAccountSuperGroups SET type="& SuperGroupType & ", Name = N'"& name & "' WHERE (ID = "& SuperGroupID & ") AND (GL = "& OpenGL & ")")

	if cint(request("accountType"))<>-1 then 

		conn.Execute("update glAccounts set accountType=" & request("accountType") & "where gl=" & openGL & " and glGroup in (select id from GLAccountGroups where gl=" &openGL& " and glSuperGroup=" &SuperGroupID& ")")

	end if

	response.redirect "AccountInfo.asp"



'-----------------------------------------------------------------------------------------------------

'------------------------------------------------------------------ Add GL Account Super Groups submit

'-----------------------------------------------------------------------------------------------------

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

	name = request("name")

	SuperGroupID = request("SuperGroupID")

	SuperGroupType= request("type")



	Set RS2 = conn.Execute("SELECT * FROM GLAccountSuperGroups WHERE ID="& SuperGroupID & " AND GL="& OpenGL )

	if not RS2.EOF then

		response.write "<BR><BR><BR><BR><CENTER>���! ���  �� �ѐ��� ���� ����"

		response.write "<BR><BR><A HREF='AccountInfo.asp?act=editAccountSuperGroupForms&submit=������ �ѐ���'>�ѐ��</A></CENTER>"

		response.end

	else

		conn.Execute("INSERT INTO GLAccountSuperGroups (type, Name, GL, ID) VALUES ("& SuperGroupType & ", N'"& name & "',"& OpenGL & ", "& SuperGroupID & ")")

		response.redirect "AccountInfo.asp"

	end if



'-----------------------------------------------------------------------------------------------------

'---------------------------------------------------- Add / Delete / Edit GL Account Super Groups Form

'-----------------------------------------------------------------------------------------------------

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

	submit = request("submit")

	SuperGroupID = request("SuperGroupID")



	'====================================== ������ �ѐ���

	'====================================================

	if submit="������ �ѐ���" then

		Set RS2 = conn.Execute("SELECT MAX(id) AS MaxID FROM GLAccountSuperGroups WHERE GL="& OpenGL )

		MaxID=RS2("MaxID")

		if isnull(MaxID) then MaxID= 0

		%>

		<BR><BR>

		<TABLE align=center>

		<FORM METHOD=POST ACTION="editGL.asp?act=NewAccountSuperGroupSubmit">

		<TR>

			<TD colspan=2 align=center><H3>������ �ѐ���</H3><BR>

			�� <%=OpenGLName%> (��� ���� <%=FiscalYear%>)

			<BR><BR><BR>

			</TD>

		</TR>

		<TR>

			<TD>����� �ѐ���</TD>

			<TD><INPUT TYPE="text" NAME="SuperGroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=MaxID+1000%>"></TD>

		</TR>

		<TR>

			<TD>��� �ѐ��� </TD>

			<TD><INPUT TYPE="text" NAME="name"></TD>

		</TR>

		<TR>

			<TD>��� �ѐ���</TD>

			<TD>

			<SELECT NAME="type">

				<option value=1>������ (��� ���� ����)</option>

				<option value=2>���� (��� �� ����)</option>

				<option value=3>������ (��� �� ����)</option>

				<option value=4>����� / ����</option>

				<option value=5>����� / ���� </option>

			</SELECT>

			</TD>

		</TR>

		<TR>

			<TD colspan=2 align=center>

				<BR><BR>

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

				<INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp'">

			</TD>

		</TR>

		</FORM>

		</TABLE>

		<%



	'====================================== ������ �ѐ���

	'====================================================

	elseif submit="������" then

		Set RS2 = conn.Execute("SELECT * FROM GLAccountSuperGroups WHERE ID="& SuperGroupID & " AND GL="& OpenGL )

		SuperGroupName=RS2("name")

		SuperGroupType=RS2("type")

		%>

		<BR><BR>

		<TABLE align=center>

		<FORM METHOD=POST ACTION="editGL.asp?act=EditAccountSuperGroupSubmit">

		<TR>

			<TD colspan=2 align=center><H3>������ �ѐ���</H3><BR>

			�� <%=OpenGLName%> (��� ���� <%=FiscalYear%>)

			<BR><BR><BR>

			</TD>

		</TR>

		<TR>

			<TD>����� �ѐ���</TD>

			<TD><INPUT TYPE="text" NAME="SuperGroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=SuperGroupID%>" readonly></TD>

		</TR>

		<TR>

			<TD>��� �ѐ���</TD>

			<TD><INPUT TYPE="text" NAME="name" value="<%=SuperGroupName%>" ></TD>

		</TR>

		<TR>

			<TD>��� �ѐ���</TD>

			<TD>

			<SELECT NAME="type">

				<option <% if SuperGroupType=1 then %>selected<% end if %> value=1>������ (��� ���� ����)</option>

				<option <% if SuperGroupType=2 then %>selected<% end if %> value=2>���� (��� �� ����)</option>

				<option <% if SuperGroupType=3 then %>selected<% end if %> value=3>������ (��� �� ����)</option>

				<option <% if SuperGroupType=4 then %>selected<% end if %> value=4>����� / ����</option>

				<option <% if SuperGroupType=5 then %>selected<% end if %> value=5>����� / ���� </option>

			</SELECT>

			</TD>

		</TR>

		<tr>

			<td>���� ���ȝ��</td>

			<td>

				<select name="accountType">

					<option value="-1" selected="selected">��� ����</option>

<%

set rs=Conn.Execute("select * from glAccountTypes")

while not rs.eof

%>

					<option value="<%=rs("id")%>">

						<%=rs("name")& " (" &rs("name_en")& ")"%>

					</option>

<%

	rs.moveNext

wend

%>

				</select>

			</td>

		</tr>

		<tr>

			<td colspan="2">* �� ����� �� ��� ���� �� ����� ���� ����� ���ȝ�� �� ��� ��� ������ ��</td>

		</tr>

		<TR>

			<TD colspan=2 align=center>

				<BR><BR>

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

				<INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp'">

			</TD>

		</TR>

		</FORM>

		</TABLE>

		<%



	

	'======================================== ��� �ѐ��� 

	'====================================================

	elseif submit="���" then



	Set RS2 = conn.Execute("SELECT * FROM GLAccountGroups WHERE (GL = "& OpenGL & ") AND (GLSuperGroup = "& SuperGroupID & ")")

		if not RS2.EOF then

			response.write "<BR><BR><BR><BR><CENTER>���! �� ��� �ѐ��� ������ ���� ���� ����. ���  ��� �� ����� ����."

			response.write "<BR><BR><A HREF='AccountInfo.asp'>�ѐ��</A></CENTER>"

			response.end

		else

			conn.Execute("DELETE FROM GLAccountSuperGroups WHERE (ID = "& SuperGroupID & ") AND (GL = "& OpenGL & ")")

			response.redirect "AccountInfo.asp"

		end if



	end if





end if





%>
Summary ✨

This ASP code generates a web page for managing GL account supergroups. It allows users to create, edit, and delete supergroups associated with a specific general ledger (GL) account. The page includes input fields for supergroup name, type, and account type, as well as buttons for submitting changes or deleting the supergroup.
Alerts (5)

Complexity hotspot; lines 497 to 501 (total complexity: 10)
497 498 499 500 501