| Server IP : 133.18.244.157 / Your IP : 216.73.217.20 Web Server : Apache System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : main2 ( 81069) PHP Version : 5.6.34 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /install/page/ |
Upload File : |
' $System.Access Report ' If $System.IsPost ' $System.Redirect $Server?page=$Page&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&exec=1 ' $Command.Personal.SetReportSpan ' Exit ' EndIf ' Init $Type = "u" ' If $Type = "t" ' If $Date.WDayNum ' $SetDate = $Date.PrevWeek ' Else ' $SetDate = $Date ' EndIf ' Elif $TID = -2 ' If $Exec ' Set $Search = $Command.Customer.GetPersonalSearch $WID $ST ' If ! $Search ' If $Type = "c" ' $ST = $Command.Customer.SetSearchTotalCompany ' Else ' $ST = $Command.Customer.SetSearchTotalPerson ' EndIf ' EndIf ' $Progress = $Command.Customer.Total $WID $ST ' If $Progress <meta http-equiv="Refresh" content="0;URL=$Server?page=ReportIndex&wid=$WID&vid=$VID&ST=$ST&sit=$SIT&tid=$TID&type=$Type&qid=$QID&exec=1"> ' EndIf ' EndIf ' Elif $TID ' If $WorkSpace.Forms.$TID ' Set $TotalCommand = $Command.Form ' If ! $Exec ' $Confirm = $TotalCommand.IsConfirmTotal ' EndIf ' Elif $WorkSpace.Mails.$TID ' Set $TotalCommand = $Command.Mail ' If ! $Exec ' $Confirm = $TotalCommand.IsConfirmTotal ' EndIf ' If ( $Type = "u" ) and ( ! $Confirm ) ' Set $SearchInbox = $TotalCommand.GetPersonalSearch $TID $SIT ' If ! $SearchInbox ' $SIT = $TotalCommand.SetSearchTotalInbox $TID $QID ' EndIf ' $Progress = $TotalCommand.Total $TID $SIT ' EndIf ' EndIf ' If ( ! $Progress ) and ( ! $Confirm ) ' Set $Search = $TotalCommand.GetPersonalSearch $TID $ST ' If ! $Search ' If $Type = "u" ' $ST = $TotalCommand.SetSearchTotalUsers $TID $QID ' Elif $Type = "i" ' $ST = $TotalCommand.SetSearchTotalItems $TID $QID ' EndIf ' EndIf ' $Progress = $TotalCommand.Total $TID $ST ' EndIf ' If $Progress <meta http-equiv="Refresh" content="0;URL=$Server?page=ReportIndex&wid=$WID&vid=$VID&ST=$ST&sit=$SIT&tid=$TID&type=$Type&qid=$QID&exec=1"> ' EndIf ' EndIf <!--#include file="LibraryCommon.html"--> ' Call cmHtmlHead <!--#include file="LibraryForm.html"--> ' $CaptionTitle = $WorkSpace.Report.Name ' Call cmHead $CaptionTitle </head> <body> ' Call cmHeader $CaptionTitle '' ' If $Progress ' Sub progressColumn <p>集計を実行しています。しばらくお待ち下さい。</p> <table border="0" width="400" height="25" cellspacing="0" cellpadding="0" bgcolor="#ffffff"><tr> ' If $SearchInbox ' If $SearchInbox.Status = -1 <td width="200" bgcolor="#0000ff"> </td> <td width="200"><table border="0" width="100%" cellspacing="0" cellpadding="0"><tr> <td width="$Progress%" bgcolor="#0000ff"> </td><td> </td> </tr></table></td> ' Else <td width="200"><table border="0" width="100%" cellspacing="0" cellpadding="0"><tr> <td width="$Progress%" bgcolor="#0000ff"> </td><td> </td> </tr></table></td> <td width="200"> </td> ' EndIf ' Else <td width="$Progress%" bgcolor="#0000ff"> </td><td> </td> ' EndIf </tr></table> ' EndSub ' Call layout_msg "" "" 0 progressColumn ' Call cmFooter </body> </html> ' Exit ' EndIf '' '' <!---------------------集計結果の表示-----------------------------> ' Init $BS = "r" '' ' Sub menuColumn <table class="menuColumn"> <tr><td nowrap> ' $PrintCaption = "印刷用画面" ' $PrintImage = "btn_print20.png" ' If $TID = -2 ' If $Exec ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST" ' EndIf ' Elif $WorkSpace.Mails.$TID ' If $Type = "u" ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST&SIT=$SIT" ' Elif $Type = "i" ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST" ' Elif $Type = "t" ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST&date=$Date" ' EndIf ' Elif $WorkSpace.Forms.$TID ' If $Type = "u" ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST" ' Elif $Type = "i" ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST" ' Elif $Type = "t" ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST&date=$Date" ' EndIf ' Else ' $System.SetParameter PrintURL "$Server?page=ReportPrint&wid=$WID&vid=$VID&cdate=$CDate" ' EndIf ' Call cmLinkButton $PrintCaption $PrintImage $PrintURL 0 1 </td></tr> </table> ' EndSub '' ' Sub commonColumn ' Call menuColumn ' EndSub '' ' If $Confirm <form name="Report" method="post" action="$Server?"> <input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey"> ' Else <form name="Report" method="get" action="$Server?"> ' EndIf <input type="hidden" name="Page" value="ReportIndex"> <input type="hidden" name="WID" value="$WID"> <input type="hidden" name="VID" value="$VID"> <input type="hidden" name="TID" value="$TID"> <input type="hidden" name="Type" value="$Type"> <input type="hidden" name="Date" value="$Date"> '' ' Sub sideColumn <table class="category"> <tr><td><br></td></tr> <tr><td><hr></td></tr> <tr><td nowrap>\\ ' If ! $TID <div class="category-item selected">\\ ' Else <div class="category-item">\\ ' EndIf ' Call cmLink "全般" "mailspace32.png" "$Server?page=ReportIndex&wid=$WID&vid=$VID" </div></td></tr> '' ' For Each $Mail in $WorkSpace.Mails ' If $Mail.IconType = "URL" ' $Image = $Mail.IconURL ' Elif $Mail.Icon ' $System.SetParameter Image "icon_mail$Mail.Icon$_32.png" ' Else ' $System.SetParameter Image "icon_mail1_32.png" ' EndIf ' If $TID = $Mail.ID <tr><td><hr></td></tr> <tr><td nowrap><div class="category-item-disable">\\ ' If $Mail.IconType = "URL" <span><img src="$Image" width="32" height="32"/>$Mail.Name</span> ' Else ' Call cmImageText "$Image" "$Mail.Name" ' EndIf </div></td></tr> ' If $Type = "u" ' Call SelectedReport "担当者別の件数" ' Else ' Call SelectableReport "担当者別の件数" $Mail.ID "u" ' EndIf ' If $Type = "i" ' Call SelectedReport "項目別の受信件数" ' Else ' Call SelectableReport "項目別の受信件数" $Mail.ID "i" ' EndIf ' If $Type = "t" ' Call SelectedReport "期間別レポート" ' Else ' Call SelectableReport "期間別レポート" $Mail.ID "t" ' EndIf <tr><td><hr></td></tr> ' Else <tr><td nowrap><div class="category-item">\\ ' $System.SetParameter URL "$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$Mail.ID" ' If $TID != -2 ' $System.SetParameter URL "$URL$&type=$Type" ' EndIf ' If $Mail.IconType = "URL" <a href="$URL"><img src="$Image" width="32" height="32"/>$Mail.Name</a> ' Else ' Call cmLink "$Mail.Name" "$Image" "$URL" ' EndIf </div></td></tr> ' EndIf ' Next ' For Each $Form in $WorkSpace.Forms ' If $Form.Disable ' Continue ' EndIf ' If $Form.Icon ' $Image = $Form.Icon ' Else ' $Image = "icon_contact32.png" ' EndIf ' If $TID = $Form.ID <tr><td><hr></td></tr> <tr><td nowrap><div class="category-item-disable">\\ ' Call cmImageText "$Image" "$Form.Name" </div></td></tr> ' If $Type = "u" ' Call SelectedReport "作成者別の件数" ' Else ' Call SelectableReport "作成者別の件数" $Form.ID "u" ' EndIf ' If $Type = "i" ' Call SelectedReport "項目別の件数" ' Else ' Call SelectableReport "項目別の件数" $Form.ID "i" ' EndIf ' If $Type = "t" ' Call SelectedReport "期間別レポート" ' Else ' Call SelectableReport "期間別レポート" $Form.ID "t" ' EndIf <tr><td><hr></td></tr> ' Else <tr><td nowrap><div class="category-item">\\ ' $System.SetParameter URL "$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$Form.ID" ' If $TID != -2 ' $System.SetParameter URL "$URL$&type=$Type" ' EndIf ' Call cmLink "$Form.Name" "$Image" "$URL" </div></td></tr> ' EndIf ' Next ' If ! $WorkSpace.Customer.Disable ' If $TID = -2 <tr><td><hr></td></tr> <tr><td nowrap><div class="category-item-disable">\\ ' Call cmImageText "icon_address32.png" "$WorkSpace.Customer.Name" </div></td></tr> ' If $Type = "c" ' Call SelectedReport "会社項目の件数" ' Else ' Call SelectableReport "会社項目の件数" -2 "c" ' EndIf ' If $Type = "p" ' Call SelectedReport "顧客項目の件数" ' Else ' Call SelectableReport "顧客項目の件数" -2 "p" ' EndIf ' Else <tr><td nowrap><div class="category-item">\\ ' Call cmLink $WorkSpace.Customer.Name "icon_address32.png" "$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=-2&type=c" </div></td></tr> ' EndIf ' EndIf <tr><td><hr></td></tr> <tr><td><br></td></tr> </table> ' Call categoryJS ' EndSub '' ' Sub mainColumn ' If $TID = -2 <!--#include file="PartsReportCustomerItem.html"--> ' Elif $WorkSpace.Mails.$TID ' If $Type = "u" <!--#include file="PartsReportMailUser.html"--> ' Elif $Type = "i" <!--#include file="PartsReportMailItem.html"--> ' Elif $Type = "t" <!--#include file="PartsReportMailCount.html"--> ' EndIf ' Elif $WorkSpace.Forms.$TID ' If $Type = "u" <!--#include file="PartsReportFormUser.html"--> ' Elif $Type = "i" <!--#include file="PartsReportFormItem.html"--> ' Elif $Type = "t" <!--#include file="PartsReportFormCount.html"--> ' EndIf ' Else <!--#include file="PartsReportWorkSpace.html"--> ' EndIf ' Init $MAID = 0 ' If $WorkSpace.Mails.$TID ' $StorageCount = $WorkSpace.Mails.$TID.StorageCount ' $MAID = $TID ' Else ' $StorageCount = $Storages.Count ' EndIf ' If $StorageCount and ( ! $VID ) <!--#include file="LibraryBackNavigation.html"--> <div class="desc">この集計は、現在のデータを対象としています。</div> <div class="desc"> ' $BS = $TID ' If $MAID ' Call mailStorageNavigation $WID $MAID "&st=ST" ' Else ' Call backNavigation "&st=ST" ' EndIf </div> ' EndIf ' EndSub '' ' Call layout_list "" "" 0 mainColumn "" "" 1 sideColumn commonColumn </form> ' If $VID ' Call cmChildFooter ' Else ' $BS = $TID ' Call cmFooter ' EndIf </body> </html> '' ' Sub SelectedReport $srCaption <tr><td nowrap><div class="category-item-disable selected">\\ ' Call cmImageText "spacer.gif" "$srCaption" "" "" 32 32 </div></td></tr> ' EndSub '' ' Sub SelectableReport $srCaption $srTID $srType <tr><td nowrap><div class="category-item">\\ ' Call cmImage "spacer.gif" "" "" 32 32 ' Call cmLink $srCaption "" "$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$srTID&type=$srType" </div></td></tr> ' EndSub