/beta/order/ManagerReports.asp
ASP | 579 lines | 523 code | 49 blank | 7 comment | 55 complexity | 2c27129914d312d7a9ddd94cacd600ba MD5 | raw file
1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><% 2'Order (2) 3PageTitle="����� ������" 4SubmenuItem=6 5if not Auth(2 , 7) then NotAllowdToViewThisPage() 6%> 7<!--#include file="top.asp" --> 8<!--#include File="../include_farsiDateHandling.asp"--> 9<!--#include File="../include_JS_InputMasks.asp"--> 10<STYLE> 11 .GetCustTbl {font-family:tahoma; background-color: #DDDDDD; width:630; direction: RTL; } 12 .GetCustTbl td {padding:2; font-size: 9pt; height:25;} 13 .GetCustInp { font-family:tahoma; font-size: 9pt;} 14 .CusTableHeader {background-color: #33AACC; text-align: center; font-weight:bold;} 15 .CustContactTable {font-family:tahoma; width:100%; border:1 solid black; direction: RTL; background-color:#CCCCCC;} 16 .CustContactTable td {padding:5;} 17 .CustTable {font-family:tahoma; width:80%; border:1 solid black; direction: RTL; background-color:black;} 18 .CustTable td {padding:5;} 19 .CustTable a {text-decoration:none;color:#000088} 20 .CustTable a:hover {text-decoration:underline;} 21 .CusTD1 {background-color: #CCCC66; text-align: left; font-weight:bold;} 22 .CusTD2 {background-color: #DDDDDD; direction: LTR; text-align: right; font-size:9pt;} 23 .CusTD3 {background-color: #DDDDDD; text-align: center; font-size:9pt;} 24 .CusTD4 {background-color: #CCCC66; direction: LTR; text-align: center; font-size:9pt;} 25 .CustTable4 {font-family:tahoma; direction: RTL; width:100%; height:100%; background-color:#C3DBEB;} 26 .GenInput { border: 1 solid black; font-family:tahoma; font-size: 9pt;} 27 .searchTable {background-color: #330099; border: 2 dashed #330099} 28 .searchTable th {background-color: #BBBBBB; font-weight:normal; font-size:9pt;} 29 .searchTable td {background-color: #EEEEEE;} 30</STYLE> 31<% 32 33ResultsInPage = request("ResultsInPage") 34FromDate = request("FromDate") 35ToDate = request("ToDate") 36AllowedPercent= request("AllowedPercent") 37Ord = request("Ord") 38CurrentPage = request("p") 39 40 41if FromDate = "" then FromDate = shamsiToday() 42if ToDate = "" then ToDate = shamsiToday() 43 44if request("checkDate")="on" OR request("act")="" then checkDate=True 45 46if request("CopyShop")="" then 47 CopyShop= -1 48else 49 CopyShop= cint(request("CopyShop")) 50end if 51 52if request("approve")="" then 53 approve= -1 54else 55 approve = cint(request("approve")) 56end if 57 58if request("issue")="" then 59 issue= 0 60else 61 issue = cint(request("issue")) 62end if 63 64if request("void")="" then 65 void= 0 66else 67 void = cint(request("void")) 68end if 69 70if request("creator")="" then 71 creator= 0 72else 73 creator = cint(request("creator")) 74end if 75 76 77if ResultsInPage="" then 78 ResultsInPage= 50 79else 80 ResultsInPage = cint(ResultsInPage) 81end if 82 83 84if AllowedPercent="" then 85 AllowedPercent= 10 86else 87 AllowedPercent = cint(AllowedPercent) 88end if 89 90 91%> 92<br> 93<FORM METHOD=POST ACTION="?act=show"> 94<INPUT TYPE="hidden" Name="p" Value="<%=CurrentPage%>"> 95<INPUT TYPE="hidden" Name="ord" Value="<%=Ord%>"> 96<TABLE align=center border=0 bgcolor=#0 cellspacing=1 cellpadding=2 class="searchTable"> 97<TR> 98 <TH colspan=3 height=25 align=center bgcolor=#CCCCCC>�����</TD> 99</TR> 100<TR> 101 <TD title="����� ����� ������"><INPUT <%if checkDate then response.write "checked"%> TYPE="checkbox" NAME="checkDate">�����</TD> 102 <TD>�� <INPUT class="GenInput" TYPE="text" NAME="FromDate" dir="LTR" value="<%=FromDate%>" size="10" onKeyPress="return maskDate(this);" onBlur="acceptDate(this);" maxlength="10"></TD> 103 <TD>��� <INPUT class="GenInput" TYPE="text" NAME="ToDate" dir="LTR" value="<%=ToDate%>" size="10" onKeyPress="return maskDate(this);" onBlur="acceptDate(this);" maxlength="10"></TD> 104</TR> 105<TR> 106 <TD>����� ���� </TD> 107 <TD colspan=2> 108 <INPUT class="GenInput" TYPE="text" NAME="AllowedPercent" dir="LTR" value="<%=AllowedPercent%>" size="2" onKeyPress="return maskNumber(this);" maxlength="2"> 109 % 110 </TD> 111</TR> 112<% 113 if Auth(2 , 8) then ' Can Change the conditions 114 checked1 = "" 115 checked2 = "" 116 checked3 = "" 117 if CopyShop = 1 then 118 checked1 = " checked" 119 elseif CopyShop = 0 then 120 checked2 = " checked" 121 else 122 checked3 = " checked" 123 end if 124%> 125 <TR> 126 <TD><INPUT TYPE="radio" NAME="CopyShop" Value="1" <%=checked1%>>߁� �ǁ</TD> 127 <TD><INPUT TYPE="radio" NAME="CopyShop" Value="0" <%=checked2%>>��� ߁� �ǁ</TD> 128 <TD><INPUT TYPE="radio" NAME="CopyShop" Value="-1"<%=checked3%>>����</TD> 129 </TR> 130<% 131 checked1 = "" 132 checked2 = "" 133 checked3 = "" 134 if approve = 0 then 135 checked1 = " checked" 136 elseif approve = 1 then 137 checked2 = " checked" 138 else 139 checked3 = " checked" 140 end if 141%> 142 <TR> 143 <TD><INPUT TYPE="radio" NAME="approve" Value="0" <%=checked1%>>����� ����</TD> 144 <TD><INPUT TYPE="radio" NAME="approve" Value="1" <%=checked2%>>����� ���</TD> 145 <TD><INPUT TYPE="radio" NAME="approve" Value="-1"<%=checked3%>>����</TD> 146 </TR> 147<% 148 checked1 = "" 149 checked2 = "" 150 checked3 = "" 151 if issue = 0 then 152 checked1 = " checked" 153 elseif issue = 1 then 154 checked2 = " checked" 155 else 156 checked3 = " checked" 157 end if 158%> 159 <TR> 160 <TD><INPUT TYPE="radio" NAME="issue" Value="0" <%=checked1%>>���� ����</TD> 161 <TD><INPUT TYPE="radio" NAME="issue" Value="1" <%=checked2%>>���� ���</TD> 162 <TD><INPUT TYPE="radio" NAME="issue" Value="-1"<%=checked3%>>����</TD> 163 </TR> 164<% 165 checked1 = "" 166 checked2 = "" 167 checked3 = "" 168 if void = 0 then 169 checked1 = " checked" 170 elseif void = 1 then 171 checked2 = " checked" 172 else 173 checked3 = " checked" 174 end if 175%> 176 <TR> 177 <TD><INPUT TYPE="radio" NAME="void" Value="0" <%=checked1%>>����� ����</TD> 178 <TD><INPUT TYPE="radio" NAME="void" Value="1" <%=checked2%>>����� ���</TD> 179 <TD><INPUT TYPE="radio" NAME="void" Value="-1"<%=checked3%>>����</TD> 180 </TR> 181<% 182 checked1 = "" 183 checked2 = "" 184 checked3 = "" 185 if void = 0 then 186 checked1 = " checked" 187 elseif void = 1 then 188 checked2 = " checked" 189 else 190 checked3 = " checked" 191 end if 192%> 193 <TR> 194 <TD>����� �����</TD> 195 <TD colspan="2"> 196 <SELECT NAME="creator" style='font-family: tahoma,arial ; font-size: 8pt; width: 140px'> 197 <option value="0" style="color:blue;">*���*</option> 198<% set RS_TEMP=Conn.Execute ("SELECT ID, RealName FROM Users WHERE Display=1 ORDER BY RealName") 199 Do while not RS_TEMP.eof 200%> 201 <option value="<%=RS_TEMP("ID")%>" <%if RS_TEMP("ID")=creator then response.write " selected "%> ><%=RS_TEMP("RealName")%></option> 202<% 203 RS_TEMP.moveNext 204 Loop 205 RS_TEMP.close 206%> 207 </SELECT></TD> 208 </TR> 209<% 210 end if 211%> 212<TR> 213 <TD>����� �� ����</TD> 214 <TD colspan=2> 215 <INPUT class="GenInput" TYPE="text" NAME="ResultsInPage" dir="LTR" value="<%=ResultsInPage%>" size="2" onKeyPress="return maskNumber(this);" maxlength="4"> 216 </TD> 217</TR> 218<TR> 219 <TD colspan=3 align=center><INPUT class="genButton" TYPE="submit" value="�����"></TD> 220</TR> 221</TABLE> 222</FORM> 223<% 224 225'if request("act")="show" then 226 227 select case Ord 228 case "1": 229 order="Invoices.ID" 230 case "-1": 231 order="Invoices.ID DESC" 232 case "2": 233 order="Users.RealName" 234 case "-2": 235 order="Users.RealName DESC" 236 case "3": 237 order="Invoices.CreatedDate" 238 case "-3": 239 order="Invoices.CreatedDate DESC" 240 case "4": 241 order="InvoiceOrderRelations.[Order]" 242 case "-4": 243 order="InvoiceOrderRelations.[Order] DESC" 244 case "5": 245 order="InvStatus" 246 case "-5": 247 order="InvStatus DESC" 248 case "6": 249 order="TotalDiscount" 250 case "-6": 251 order="TotalDiscount DESC" 252 case "7": 253 order="TotalReverse" 254 case "-7": 255 order="TotalReverse DESC" 256 case "8": 257 order="TotalReceivable" 258 case "-8": 259 order="TotalReceivable DESC" 260 case else: 261 order="Invoices.CreatedDate DESC" 262 Ord=-3 263 end select 264 265 criteria="" 266 writeAND="" 267 if checkDate then 268 criteria = "(Invoices.CreatedDate >= '"& FromDate & "') AND (Invoices.CreatedDate <= '"& ToDate & "') " 269 writeAND=" AND " 270 end if 271 272 if CopyShop <> -1 then 273 if CopyShop = 1 then 274 tmp="(InvoiceOrderRelations.[Order] IS NULL) " 275 else 276 tmp="(InvoiceOrderRelations.[Order] IS NOT NULL) " 277 end if 278 criteria = criteria & writeAND & tmp 279 writeAND=" AND " 280 end if 281 282 if approve <> -1 then 283 criteria = criteria & writeAND & "(Invoices.Approved = '"& approve & "') " 284 writeAND=" AND " 285 end if 286 287 if issue <> -1 then 288 criteria = criteria & writeAND & "(Invoices.Issued = '"& issue & "') " 289 writeAND=" AND " 290 end if 291 292 if void <> -1 then 293 criteria = criteria & writeAND & "(Invoices.Voided = '"& void & "') " 294 writeAND=" AND " 295 end if 296 297 if creator <> 0 then 298 criteria = criteria & writeAND & "(Invoices.CreatedBy = '"& creator & "') " 299 writeAND=" AND " 300 end if 301 302 if writeAND="" then 303 criteria = "(1=1) " 304 end if 305 306%> 307 <TaBlE class="CustTable4" cellspacing="2" cellspacing="2"> 308 <Tr> 309 <Td colspan="2" valign="top" align="center"> 310 <table class="CustTable" cellspacing='1' style='width:90%;'> 311 <tr> 312 <td colspan="9" class="CusTableHeader" style="text-align:right;">������ ��</td> 313 </tr> 314 <% 315 mySQL="SELECT Invoices.*, Users.RealName AS Creator, InvoiceOrderRelations.[Order], orderStatus.name as vazyat, " &_ 316 "orderSteps.name as marhale, CONVERT(int, Invoices.Approved) + CONVERT(int, Invoices.Issued) * 2 AS InvStatus " &_ 317 "FROM orders inner join orderStatus on orders.status = orderStatus.id "&_ 318 "inner join orderSteps on orders.step = orderSteps.id RIGHT OUTER JOIN " &_ 319 " InvoiceOrderRelations ON orders.id = InvoiceOrderRelations.[Order] RIGHT OUTER JOIN " &_ 320 " Invoices INNER JOIN " &_ 321 " Users ON Invoices.CreatedBy = Users.ID ON InvoiceOrderRelations.Invoice = Invoices.ID " &_ 322 "WHERE " & criteria &_ 323 "ORDER BY " & order 324'response.write mySQL 325 if ord<0 then 326 style="background-color: #33CC99;" 327 arrow="<br><span style='font-family:webdings'>6 6 6</span>" 328 else 329 style="background-color: #33CC99;" 330 arrow="<br><span style='font-family:webdings'>5 5 5</span>" 331 end if 332 333 Set RS1 = Server.CreateObject("ADODB.Recordset") 334 335 PageSize = ResultsInPage 336 RS1.PageSize = PageSize 337 338 RS1.CursorLocation=3 'in ADOVBS_INC adUseClient=3 339 RS1.Open mySQL ,Conn,3 340 TotalPages = RS1.PageCount 341 342 if isnumeric(CurrentPage) then 343 CurrentPage=clng(CurrentPage) 344 if CurrentPage > TotalPages OR CurrentPage <= 0 then 345 CurrentPage = 1 346 end if 347 else 348 CurrentPage=1 349 end if 350 351 if not RS1.eof then 352 RS1.AbsolutePage=CurrentPage 353 end if 354 355 if RS1.eof then 356%> 357 <tr> 358 <td colspan="9" class="CusTD3">���</td> 359 </tr> 360<% 361 else 362%> <tr class="CusTD3" style="cursor:hand;" title="����� �����"> 363 <td >#</td> 364 <TD onclick='go2Page(1,1);' style="<%if abs(ord)=1 then response.write style%>"># ������ <%if abs(ord)=1 then response.write arrow%></TD> 365 <TD onclick='go2Page(1,2);' style="<%if abs(ord)=2 then response.write style%>">����� �����<%if abs(ord)=2 then response.write arrow%></TD> 366 <TD onclick='go2Page(1,3);' style="<%if abs(ord)=3 then response.write style%>">����� <%if abs(ord)=3 then response.write arrow%></TD> 367 <TD onclick='go2Page(1,4);' style="<%if abs(ord)=4 then response.write style%>"># ����� <%if abs(ord)=4 then response.write arrow%></TD> 368 <TD onclick='go2Page(1,5);' style="<%if abs(ord)=5 then response.write style%>">����� <%if abs(ord)=5 then response.write arrow%></TD> 369 <TD onclick='go2Page(1,-6);' style="<%if abs(ord)=6 then response.write style%>">����� <%if abs(ord)=6 then response.write arrow%></TD> 370 <TD onclick='go2Page(1,-7);' style="<%if abs(ord)=7 then response.write style%>">�ѐ�� <%if abs(ord)=7 then response.write arrow%></TD> 371 <TD onclick='go2Page(1,-8);' style="<%if abs(ord)=8 then response.write style%>">���� <%if abs(ord)=8 then response.write arrow%></TD> 372 373 </tr> 374<% tmpCounter = 0 375 SumDiscount = 0 376 SumReverse = 0 377 SumReceivable = 0 378 AlertColor="bgcolor=#FFAAAA" 379 Do while NOT RS1.eof AND RS1.AbsolutePage = CurrentPage 380 tmpCounter = tmpCounter + 1 381 if tmpCounter mod 2 = 1 then 382 tmpColor="#FFFFFF" 383 tmpColor2="#FFFFBB" 384 Else 385 tmpColor="#DDDDDD" 386 tmpColor2="#EEEEBB" 387 End if 388 389 TotalPrice = cdbl(RS1("TotalPrice")) 390 TotalDiscount = cdbl(RS1("TotalDiscount")) 391 TotalReverse = cdbl(RS1("TotalReverse")) 392 TotalReceivable = cdbl(RS1("TotalReceivable")) 393 394 if TotalPrice<>0 then 395 DiscountPercent = cint(TotalDiscount * 100/TotalPrice) 396 ReversePercent = cint(TotalReverse * 100/TotalPrice) 397 ReceivablePercent= 100 - cint(TotalReceivable * 100/TotalPrice) 398 else 399 DiscountPercent = 0 400 ReversePercent = 0 401 ReceivablePercent=0 402 end if 403 404 if DiscountPercent > AllowedPercent then 405 DiscountAlert=AlertColor 406 else 407 DiscountAlert="" 408 end if 409 410 if ReversePercent > AllowedPercent then 411 ReverseAlert=AlertColor 412 else 413 ReverseAlert="" 414 end if 415 416 if ReceivablePercent > AllowedPercent then 417 ReceivableAlert=AlertColor 418 else 419 ReceivableAlert="" 420 end if 421 422 if RS1("IsReverse") then 423 tmpColor="#FF9966" 424 SumDiscount = SumDiscount - TotalDiscount 425 SumReverse = SumReverse - TotalReverse 426 SumReceivable = SumReceivable - TotalReceivable 427 else 428 SumDiscount = SumDiscount + TotalDiscount 429 SumReverse = SumReverse + TotalReverse 430 SumReceivable = SumReceivable + TotalReceivable 431 end if 432 433 OrderNo= RS1("Order") 434 OrderTxt= RS1("vazyat") & " - " & RS1("Marhale") 435 if isnull(OrderNo) then 436 OrderNo= "<FONT COLOR='gray'>���� �����</FONT>" 437 OrderTxt= "���� �����" 438 end if 439 InvStatus= cint(RS1("InvStatus")) 440 InvStatusTxt="" 441 '-- 442 if InvStatus Mod 2 = 1 then 443 InvStatusTxt="<FONT COLOR='Green'>����� ���</FONT> - " 444 else 445 InvStatusTxt="<FONT COLOR='red'>����� ����</FONT> - " 446 end if 447 InvStatus=InvStatus \2 448 if InvStatus Mod 2 = 1 then 449 InvStatusTxt=InvStatusTxt & "<FONT COLOR='Green'>���� ���</FONT> " 450 else 451 InvStatusTxt=InvStatusTxt & "<FONT COLOR='red'>���� ����</FONT> " 452 end if 453 '-- 454%> 455 <TR bgcolor="<%=tmpColor%>" style="cursor: hand;" onMouseOver="this.style.backgroundColor='<%=tmpColor2%>'" onMouseOut="this.style.backgroundColor='<%=tmpColor%>'" onclick="window.open('../AR/AccountReport.asp?act=showInvoice&invoice=<%=RS1("ID")%>');"> 456 <TD style="height:30px;"><%=tmpCounter%></TD> 457 <TD style="height:30px;"><%=RS1("ID")%></TD> 458 <TD><%=RS1("Creator")%> </TD> 459 <TD dir="LTR" align='right'><%=RS1("CreatedDate")%> </TD> 460 <TD dir="LTR" align='right' title="<%=OrderTxt%>"><%=OrderNo%> </TD> 461 <TD dir="LTR" align='right'><%=InvStatusTxt%> </TD> 462 <TD dir="LTR" align='right' title="<%=DiscountPercent%>% �����" <%=DiscountAlert%>><%=Separate(TotalDiscount)%> </TD> 463 <TD dir="LTR" align='right' title="<%=ReversePercent%>% �ѐ��" <%=ReverseAlert%>><%=Separate(TotalReverse)%> </TD> 464 <TD dir="LTR" align='right' title="<%=ReceivablePercent%>% ��� ���" <%=ReceivableAlert%>><%=Separate(TotalReceivable)%> </TD> 465 </TR> 466<% RS1.moveNext 467 Loop 468 469 if TotalPages = 1 then 470 471 if SumPrice<>0 then 472 DiscountPercent = cint(SumDiscount * 100/SumPrice) 473 ReversePercent = cint(SumReverse * 100/SumPrice) 474 ReceivablePercent= 100 - cint(SumReceivable * 100/SumPrice) 475 else 476 DiscountPercent = 0 477 ReversePercent = 0 478 ReceivablePercent=0 479 end if 480 481 if DiscountPercent > AllowedPercent then 482 DiscountAlert=AlertColor 483 else 484 DiscountAlert="" 485 end if 486 487 if ReversePercent > AllowedPercent then 488 ReverseAlert=AlertColor 489 else 490 ReverseAlert="" 491 end if 492 493 if ReceivablePercent > AllowedPercent then 494 ReceivableAlert=AlertColor 495 else 496 ReceivableAlert="" 497 end if 498 499%> 500 <TR bgcolor="#BBBBBB"> 501 <TD style="height:30px;" colspan="6" align="left">���:</TD> 502 <TD dir="LTR" align='right' title="<%=DiscountPercent%>% �����" <%=DiscountAlert%>><%=Separate(SumDiscount)%> </TD> 503 <TD dir="LTR" align='right' title="<%=ReversePercent%>% �ѐ��" <%=ReverseAlert%>><%=Separate(SumReverse)%> </TD> 504 <TD dir="LTR" align='right' title="<%=ReceivablePercent%>% ��� ���" <%=ReceivableAlert%>><%=Separate(SumReceivable)%> </TD> 505 </TR> 506<% 507 else 508 pageCols=20 509 '----------------------------------------SAM---------------------------------- 510 if SumPrice<>0 then 511 DiscountPercent = cint(SumDiscount * 100/SumPrice) 512 ReversePercent = cint(SumReverse * 100/SumPrice) 513 ReceivablePercent= 100 - cint(SumReceivable * 100/SumPrice) 514 else 515 DiscountPercent = 0 516 ReversePercent = 0 517 ReceivablePercent=0 518 end if 519 520%> <TR bgcolor='#BBBBBB'> 521 <TD style="height:30px;" colspan="6" align="left">��� ��� ����:</TD> 522 <TD dir="LTR" align='right' title="<%=DiscountPercent%>% �����"><%=Separate(SumDiscount)%> </TD> 523 <TD dir="LTR" align='right' title="<%=ReversePercent%>% �ѐ��" ><%=Separate(SumReverse)%> </TD> 524 <TD dir="LTR" align='right' title="<%=ReceivablePercent%>% ��� ���" ><%=Separate(SumReceivable)%> </TD> 525 </TR> 526 <TR class="RepTableTitle"> 527 <TD bgcolor='#33AACC' height="30" colspan="9"> 528 <table width=100% cellspacing=0 style="cursor:hand;color:#444444"> 529 <tr> 530 <td style="height:25;border-bottom:1 solid black;" colspan=<%=pagecols%>> 531 <b>���� <%=CurrentPage%> �� <%=TotalPages%></b> 532 <a href="javascript:go2Page(<%=CurrentPage+1%>,0);">���� ��� ></a> 533 </td> 534 </tr> 535 <tr> 536<% for i=1 to TotalPages 537 if i = CurrentPage then 538%> <td style="color:black;"><b>[<%=i%>]</b></td> 539<% else 540%> <td onclick="go2Page(<%=i%>,0);"><%=i%></td> 541<% end if 542 if i mod pageCols = 0 then response.write "</tr><tr>" 543 next 544 545%> </tr> 546 </table> 547 </TD> 548 </TR> 549<% end if 550 end if 551%> 552 </table> 553 <SCRIPT LANGUAGE="JavaScript"> 554 <!-- 555 function go2Page(p,ord) { 556 if(ord==0){ 557 ord=<%=Ord%>; 558 } 559 else if(ord==<%=Ord%>){ 560 ord= 0-ord; 561 } 562// str='?act=show&FromDate='+escape('<%=FromDate%>')+'&ToDate='+escape('<%=ToDate%>')+'&Ord='+escape(ord)+'&p='+escape(p) 563// window.location=str; 564 document.all.ord.value=ord; 565 document.all.p.value=p; 566 document.forms[0].submit(); 567 } 568 //--> 569 </SCRIPT> 570 571 </Td> 572 </Tr> 573 </TaBlE> 574 <br> 575<% 576'end if 577%> 578 579<!--#include file="tah.asp" -->