| 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 Mail ' $Command.Mail.AccessModify $BS <!--#include file="LibraryCommon.html"--> ' Call cmHtmlHead <!--#include file="LibraryForm.html"--> ' $CaptionTitle = "顧客の選択" ' Call cmHead $CaptionTitle </head> <body> ' $System.SetParameter BackURL "$Server?page=MailSelectCustomer&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&tid=$TID" ' Call cmChildHeader $CaptionTitle ' Set $c = $CIndex.Cards.$CID ' Set $cd = $Command.Customer.GetCustomer $WID $CID 0 $c.DBID '' ' Sub commonColumn ' Call menuColumn ' EndSub '' ' Sub menuColumn ' If ! $WorkSpace.Customer.IsAccessCreate ' Exit ' EndIf <table class="menuColumn">\\ <tr><td nowrap>\\ ' Call cmLinkButton "顧客を登録する" "btn_person20.png" "$Server?page=CustomerSetAddPerson&wid=$WID&bs=$BS&companyid=$CID&companydb=$c.DBID&mid=$MID&dbid=$DBID&type=$Type&tid=$TID&select=1" </td></tr></table> ' EndSub '' ' Sub mainColumn <div class="desc"> ' If $cd.Persons.Count 変更先の顧客を選択してください。<br> ' Else 会社に顧客が登録されていません。顧客を登録してください。<br> ' EndIf (メールは顧客にのみ設定することができます) </div> <table width="100%" border="0" cellspacing="0" cellpadding="4"> <tr class="active"><td nowrap>\\ ' Call cmImage company20.png <b>$c.Name</b></td></tr></table> <table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7"> <tr class="table-header"><td>名前</td></tr> ' $RowNum = 0 ' For Each $p in $cd.Persons ' Inc $RowNum ' $Remainder = $Command.Math.Modulus $RowNum 2 ' If $Remainder = 0 ' $RowClass = "evenRow" ' Else ' $RowClass = "oddRow" ' EndIf <tr class="$RowClass"><td nowrap><div style="text-indent:20"> ' $PID = $p.CID ' $PDBID = $p.DBID ' Set $Person = $Command.Customer.GetCustomer $WID $PID $PDBID ' Call cmLink $Person.Name "person20.png" "$Server?page=MailChangeCustomer&wid=$WID&bs=$BS&cid=$PID&companyid=$CID&mid=$MID&dbid=$DBID&type=$Type&tid=$TID" </div></td></tr> ' Next <tr class="table-header"><td>名前</td></tr> </table> ' EndSub '' ' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn ' Call cmChildFooter $BackURL "顧客の選択へ" </body> </html>