AnonSec Shell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     

Current File : /install/page/PartsReportCustomerItem.html
<!--#include file="LibraryForm.html"-->
' If $Exec or $Print
'' <!---------------------集計結果の表示----------------------------->
'  Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'  Set $TotalItems = $Command.Customer.GetTotalItems $WID $ST
'  $TC = $CustomerSearch.Count
'  Init $TC = 0
'  If $Type = "c"
'   Set $Queries = $Customer.Company.Total.Queries
'   Set $Items = $Customer.Company.Items
'   Set $gs = $Customer.Company.Groups
'  Else
'   Set $Queries = $Customer.Person.Total.Queries
'   Set $Items = $Customer.Person.Items
'   Set $gs = $Customer.Person.Groups
'  EndIf
'  If $Print
' Call cmLoadStyleSheet "std"
<p>$WorkSpace.Customer.Name -
'   If $Type = "c"
会社項目の件数
'   Else
顧客項目の件数
'   EndIf
'   If $Queries.$QID
( 集計条件：$Queries.$QID.Name )
'   EndIf
</p>
'  Else
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="4">
<tr><td nowrap>集計条件
<select name="QID" onChange="Exec.value=1;this.form.submit();">
<option value="">----
'   Options $QID in $Queries
</select>
'   If $Search.TotalGroup
<input type="hidden" name="TotalGroup" value="$TotalGroup">
'   EndIf
'   For Each $IID in $Search.TotalItems
<input type="hidden" name="IID" value="$IID">
'   Next
<input type="hidden" name="Exec" value="">
&nbsp;
'   Call cmLink "集計項目の変更" "write20.png" "$Server?page=$Page&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST"
'   Call cmLink "表示の設定" "write20.png" "$Server?page=ReportPersonalSet&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST"
</td></tr>
</table>
'  EndIf
'  Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
'  $System.SetParameter "Param" "Scale$TID"
'  $Scale = $PersonalTotal.$Param
'  Sub RecordGraph $Name $Count $TC
<tr><td nowrap>$Name<br></td>
'   Init $Count = 0
'   If $Scale
'    $Rate = $System.Rate $Count $Scale
'    $DisplayRate = $System.Rate $Count $Scale 1
'    If $Rate > 100
'     $Rate = 100
'    $DisplayRate = 100.0
'    EndIf
'   Else
'    $Rate = $System.Rate $Count $TC
'    $DisplayRate = $System.Rate $Count $TC 1
'   EndIf
'   Init $Rate = 0
<td width="1%" align="right" nowrap>$Count</td>
<td width="1%" align="right" nowrap>$DisplayRate%</td>
<td>
 <table border="0" width="100%" cellspacing="2" cellpadding="0" bgcolor="#ffffff"><tr>
'   If $Rate
 <td width="$Rate%"><img src="$IMG_PATH/graph_r.gif" width="100%" height="18"></td>
'   EndIf
 <td><img src="$IMG_PATH/spacer.gif"></td>
 </tr></table>
</td></tr>
'  EndSub
'  $First = 1
'  If $Search.TotalGroup
'   $First = 0
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap><img src="$IMG_PATH/pin.png"><b>アドレスグループ</b> の集計</td></tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="header"><th width="20%" nowrap>項目の値</th><th colspan="3" width="80%" nowrap>件数($TC件)</th></tr>
'   $IID = 0
'   Set $Options = $TotalItems.$IID
'   For Each $cg in $gs
'    $Exist = 0
'    For Each $Option in $Options
'     If $Option.Number = $cg.ID
'      Call RecordGraph $cg.Name $Option.Count $TC
'      $Exist = 1
'      Exit
'     EndIf
'    Next
'    If ! $Exist
'     Call RecordGraph $cg.Name 0 $TC
'    EndIf
'   Next
</table><br>
'  EndIf
'  For Each $Item in $Items
'   $IID = $Item.ID
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $Contains = $Search.TotalItems.Contains $IID
'   If ! $Contains
'    Continue
'   EndIf
'   $First = 0
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap><img src="$IMG_PATH/pin.png"><b>$Item.Name</b> 項目の集計</td></tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="header"><th width="20%" nowrap>項目の値</th><th colspan="3" width="80%" nowrap>件数($TC件)</th></tr>
'   Set $Options = $TotalItems.$IID
'   If $Item.Type = "User"
'    For Each $u in $Users
'     $Exist = 0
'     For Each $Option in $Options
'      If $Option.Number = $u.ID
'       Call RecordGraph $u.Name $Option.Count $TC
'       $Exist = 1
'       Exit
'      EndIf
'     Next
'     If ! $Exist
'      Call RecordGraph $u.Name 0 $TC
'     EndIf
'    Next
'   Else
'    For Each $ItemOption in $Item.Options
'     $Exist = 0
'     For Each $Option in $Options
'      If $Option.Name = $ItemOption
'       Call RecordGraph $ItemOption $Option.Count $TC
'       $Exist = 1
'       Exit
'      EndIf
'     Next
'     If ! $Exist
'      Call RecordGraph $ItemOption 0 $TC
'     EndIf
'    Next
'   EndIf
</table><br>
'  Next
'  If $First
<p>集計対象の項目がありません。</p>
'  EndIf
' Else
'' <!---------------------集計対象の設定----------------------------->
<p>
'  If $Type = "c"
'   Set $Queries = $Customer.Company.Total.Queries
'   Set $Items = $Customer.Company.Items
'   Set $gs = $Customer.Company.Groups
'   $TargetName = "会社項目"
'  Else
'   Set $Queries = $Customer.Person.Total.Queries
'   Set $Items = $Customer.Person.Items
'   Set $gs = $Customer.Person.Groups
'   $TargetName = "顧客項目"
'  EndIf
'  $IC = 0
'  For Each $Item in $Items
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   If ( $Item.Type = "Select" ) or ( $Item.Type = "User" )
'    Inc $IC
'    Exit
'   EndIf
'  Next
'  If $gs.Count or $IC
$TargetName の集計をおこないます。集計条件と対象項目を指定してください。
</p>
<blockquote>
<table  border="0" cellspacing="0" cellpadding="4">
'   If $Queries.Count
<tr><td valign="top" nowrap>集計条件</td><td nowrap>
<select name="QID">
<option value="">----
'    Options $QID in $Queries
</select>
</td></tr>
'   EndIf
<tr><td valign="top" nowrap>対象項目</td><td nowrap>
'   If $ST
'    Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'   EndIf
'   If $gs.Count
'    If $Search
'     $TotalGroup = $Search.TotalGroup
'    Else
'     $TotalGroup = 1
'    EndIf
'    Call formCheckBox "TotalGroup" "アドレスグループ" $TotalGroup 1 "TotalGroup"
<br>
'   EndIf
'   For Each $Item in $Items
'    $Access = $Command.Customer.IsAccessItem $Item
'    If ! $Access
'     Continue
'    EndIf
'    If ( $Item.Type = "Select" ) or ( $Item.Type = "User" )
'     If $Search
'      $Checked = $Search.TotalItems.Contains $Item.ID
'     Else
'      $Checked = 1
'     EndIf
'     Call formCheckBox "IID" $Item.Name $Checked $Item.ID "Item$Item.ID"
<br>
'    EndIf
'   Next
</td></tr>
</table>
</blockquote>
<p>
'   Call formSubmit "Exec" "集計を実行する"
<font size="-1" color="#008800">(集計の実行には時間がかかる場合があります。)</font>
'  Else
集計対象の項目がありません。
'  EndIf
</p>
' EndIf

Anon7 - 2022
AnonSec Team