<?xml version="1.0" encoding="UTF-8"?>
<ActiveReportsLayout Version="3.1" PrintWidth="12929.76" DocumentName="ARNet Document" ScriptLang="VB.NET" MasterReport="0">
  <StyleSheet>
    <Style Name="Normal" Value="font-family: Arial; font-style: normal; text-decoration: none; font-weight: normal; font-size: 10pt; color: Black; ddo-char-set: 204" />
    <Style Name="Heading1" Value="font-size: 16pt; font-weight: bold" />
    <Style Name="Heading2" Value="font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: italic" />
    <Style Name="Heading3" Value="font-size: 13pt; font-weight: bold" />
  </StyleSheet>
  <Sections>
    <Section Type="PageHeader" Name="PageHeader1" Height="0" BackColor="16777215" />
    <Section Type="Detail" Name="Detail1" Height="5725.984" BackColor="16777215">
      <Control Type="AR.Image" Name="Picture1" Left="0" Top="0" Width="12929.95" Height="5725.984" LineWeight="0" SizeMode="2">[encoded data, 157770 characters]</Control>
      <Control Type="AR.Field" Name="receiver_zip_3" DataField="receiver_zip_3" Left="3406.506" Top="523.8425" Width="372.9593" Height="496.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_1" DataField="receiver_zip_1" Left="2493.546" Top="529.6025" Width="372.9595" Height="505.4398" Text="9" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_4" DataField="receiver_zip_4" Left="3934.986" Top="523.8425" Width="372.9593" Height="496.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_6" DataField="receiver_zip_6" Left="4820.586" Top="523.8425" Width="372.9593" Height="496.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_2" DataField="receiver_zip_2" Left="2937.066" Top="523.8425" Width="372.9593" Height="496.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_7" DataField="receiver_zip_7" Left="5271.307" Top="523.8425" Width="372.9593" Height="496.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_5" DataField="receiver_zip_5" Left="4375.626" Top="523.8425" Width="372.9593" Height="496.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 25pt; font-weight: normal; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_3" DataField="receiver_adr_3" Left="1984.252" Top="1941.165" Width="3554.646" Height="290.2677" Text="お届先住所３" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_1" DataField="receiver_adr_1" Left="1984.252" Top="1229.102" Width="3554.646" Height="290.2677" Text="お届先住所１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_2" DataField="receiver_adr_2" Left="1985.953" Top="1559.055" Width="3554.646" Height="290.2677" Text="お届先住所２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_nm_2" DataField="receiver_nm_2" Left="1985.953" Top="2690.079" Width="3508.725" Height="290.2677" Text="お届先名称２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_nm_1" DataField="receiver_nm_1" Left="1975.181" Top="2463.874" Width="3508.725" Height="290.2677" Text="お届先名称１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="damaged_amt" DataField="damaged_amt" Left="8491.465" Top="2539.843" Width="907.2002" Height="236.1604" Text="999" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 9pt; text-align: right; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_3" DataField="kokyaku_zip_3" Left="3419.544" Top="3387.968" Width="372.9593" Height="316.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_7" DataField="kokyaku_zip_7" Left="5284.347" Top="3387.968" Width="372.9593" Height="316.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_6" DataField="kokyaku_zip_6" Left="4833.624" Top="3387.968" Width="372.9593" Height="316.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_2" DataField="kokyaku_zip_2" Left="2950.104" Top="3387.968" Width="372.9593" Height="316.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_4" DataField="kokyaku_zip_4" Left="3948.025" Top="3387.968" Width="372.9593" Height="316.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_5" DataField="kokyaku_zip_5" Left="4388.664" Top="3387.968" Width="372.9593" Height="316.7999" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_1" DataField="kokyaku_zip_1" Left="2520.985" Top="3393.729" Width="372.9595" Height="325.4398" Text="9" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 15.75pt; font-weight: bold; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_adr_3" DataField="kokyaku_adr_3" Left="1985.953" Top="4316.598" Width="3554.646" Height="290.2677" Text="ご依頼主の住所３" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_adr_1" DataField="kokyaku_adr_1" Left="1985.953" Top="3824.504" Width="3554.646" Height="290.2677" Text="ご依頼主の住所１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_adr_2" DataField="kokyaku_adr_2" Left="1985.953" Top="4082.457" Width="3554.646" Height="290.2677" Text="ご依頼主の住所２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_nm_2" DataField="kokyaku_nm_2" Left="1985.953" Top="4831.37" Width="3488.314" Height="271.559" Text="ご依頼主の氏名２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_nm_1" DataField="kokyaku_nm_1" Left="1985.953" Top="4653.354" Width="3508.725" Height="267.5909" Text="ご依頼主の氏名１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_tel" DataField="kokyaku_tel" Left="2480.042" Top="5125.256" Width="1812.983" Height="235.8198" Text="999999999999999" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 8pt; text-align: left; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="delivery_appoint_ymd_2_1" DataField="delivery_appoint_ymd_day" Left="8873.575" Top="1180.913" Width="487.5591" Height="340.1575" Text="DD" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 16pt; text-align: right; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="delivery_appoint_ymd_1_1" DataField="delivery_appoint_ymd_month" Left="8132.597" Top="1180.913" Width="487.5591" Height="340.1575" Text="MM" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 16pt; text-align: right; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shohin_nm001" DataField="shohin_nm001" Left="5705.008" Top="1690.016" Width="1424.126" Height="510.2363" Text="商品名１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 6.012pt; vertical-align: middle; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kiji_nm_1" DataField="kiji_nm_1" Left="5706.142" Top="2572.157" Width="2534.173" Height="300.4724" Text="記事名１" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 6.012pt; vertical-align: middle; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kiji_nm_2" DataField="kiji_nm_2" Left="5706.142" Top="2838.614" Width="2534.173" Height="300.4724" Text="記事名２" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 6.012pt; vertical-align: middle; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="item_cnt_bunbo" DataField="item_cnt_bunbo" Left="8327.301" Top="1978.775" Width="339.1788" Height="288" Text="99" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 10pt; font-weight: normal; text-align: right; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="item_cnt_bunshi" DataField="item_cnt_bunshi" Left="8003.302" Top="1618.775" Width="310.0046" Height="288" Text="99" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 10pt; font-weight: normal; text-align: right; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="waremono_sign" Visible="0" Left="8897.386" Top="1588.014" Width="695.5204" Height="223.2" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="shitadumi_ng_sign" Visible="0" Left="8897.386" Top="2017.134" Width="699.8399" Height="214.5601" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="sakasama_ng_sign" Visible="0" Left="8897.386" Top="1811.214" Width="699.8401" Height="227.52" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="receiver_tel" DataField="receiver_tel" Left="2521.372" Top="3020.791" Width="1771.654" Height="236.4096" Text="999999999999999" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 8pt; text-align: left; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="reizou_sign" Visible="0" Left="8097.665" Top="2876.598" Width="432.0001" Height="214.5601" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="reitou_sign" Visible="0" Left="8529.663" Top="2876.598" Width="432.0001" Height="214.5601" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="security_sign" Visible="0" Left="8965.984" Top="2861.858" Width="656.6396" Height="214.5601" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_12_14" Visible="0" Left="9678.614" Top="1532.444" Width="779.04" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_20_21" Visible="0" Left="9678.614" Top="2844.283" Width="779.04" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_16_18" Visible="0" Left="9678.614" Top="2191.964" Width="779.04" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_14_16" Visible="0" Left="9664.214" Top="1862.204" Width="793.4404" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_am" Visible="0" Left="9678.614" Top="1179.643" Width="779.04" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_none" Visible="0" Left="9664.214" Top="806.6832" Width="793.4402" Height="315.1799" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_18_20" Visible="0" Left="9664.214" Top="2514.522" Width="793.4404" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="douitsu_sign" Visible="0" Left="7204.535" Top="3988.346" Width="374.3997" Height="185.7599" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="syuka_sign" Visible="0" Left="6831.496" Top="3988.346" Width="384.4789" Height="185.7599" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="mochikomi_sign" Visible="0" Left="6465.826" Top="3979.276" Width="362.8805" Height="194.4" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="uketsuke_store_nm" DataField="uketsuke_store_nm" Left="8014.109" Top="4039.37" Width="2023.937" Height="332.0621" Text="受付店名" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Barcode" Name="KokyakuQRCode" DataField="kokyaku_qr_value" Left="7113.827" Top="1535.811" Width="963.7796" Height="963.7796" BarStyle="24" Text="YPH:01,609448540352,1410022,20121211,54,145,,;" AutoSize="0" Font="Courier New" FontSize="8" QRCode="Err=M" CODE128="0;0;0" />
      <Control Type="AR.Label" Name="KokyakuQRCodeLabel" Left="7128.567" Top="2419.654" Width="915.0238" Height="181.9842" Caption="↑ 顧客ｺｰﾄﾞ ↑" Style="font-family: ＭＳ ゴシック; font-size: 6pt; text-align: center; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shohin_nm002" DataField="shohin_nm002" Left="5705.008" Top="2133.354" Width="1424.126" Height="510.2361" Text="商品名２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 6.012pt; vertical-align: middle; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="tracking_no_under4" DataField="tracking_no_under4" Left="8951.244" Top="421.2284" Width="575.433" Height="205.7953" Text="XXXX" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 9pt; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="leteral1" DataField="leteral1" Left="10080" Top="4170.897" Width="408.1888" Height="150.0001" Text="YR01" Style="font-size: 6pt" />
      <Control Type="AR.Field" Name="free01" DataField="free01" Left="4388.598" Top="3023.433" Width="1152" Height="236.1604" Text="フリー項目１" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 8.012pt; text-align: left; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="free02" DataField="free02" Left="4388.598" Top="5124.473" Width="1150.299" Height="243.7795" Text="フリー項目２" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 8.012pt; text-align: left; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="cod_2" Left="8127.175" Top="3346.208" Width="113.3858" Height="170.0788" Text="-" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="cod_1" Left="7581.224" Top="3346.208" Width="113.3858" Height="170.0787" Text="-" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="ent_cod_1" DataField="ent_cod" Left="6923.011" Top="3346.208" Width="658.7717" Height="170.0788" Text="10XXXXXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="cod_3" Left="8916.341" Top="3342.806" Width="113.3858" Height="170.0787" Text="-" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="dep001_cod_1" DataField="dep001_cod" Left="8257.557" Top="3346.208" Width="658.7719" Height="170.0787" Text="10XXXXXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="dep002_cod_1" DataField="dep002_cod" Left="9050.136" Top="3346.208" Width="413.8577" Height="170.0787" Text="6XXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="bes_cod_1" DataField="bes_cod" Left="7713.315" Top="3346.208" Width="413.8584" Height="170.0787" Text="6XXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="tracking_no_fmt" DataField="tracking_no_fmt" Left="6651.779" Top="569.7638" Width="3216.755" Height="417.2598" Text="XXXX-XXXX-XXXX" Multiline="0" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 20pt; text-align: left; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Barcode" Name="tracking_no_barcode" DataField="tracking_no_barcode" Left="8573.103" Top="4949.858" Width="3079.559" Height="616.8192" BarStyle="16" Text="Barcode1" CaptionPos="2" Checksum="0" Font="ＭＳ Ｐゴシック" FontSize="5" CODE128="0;0;0" />
      <Control Type="AR.Field" Name="kyokudome_Label" Left="4592.693" Top="1005.732" Width="1070.362" Height="268.7244" Text="郵便局留" CanGrow="0" Style="background-color: Black; color: White; font-family: ＭＳ Ｐゴシック; font-size: 13pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="weight_nm" DataField="weight_nm" Left="6651.779" Top="1230.803" Width="926.9288" Height="290.2677" Text="元払重量" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; text-align: center; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="delivery_time_sign_19_21" Left="9581.104" Top="2345.386" Width="907.0869" Height="667.2753" Text="【19時～21時】" CanGrow="0" Style="color: Black; font-family: ＭＳ Ｐゴシック; font-size: 12pt; text-align: center; vertical-align: middle; white-space: inherit; ddo-char-set: 128" />
    </Section>
    <Section Type="PageFooter" Name="PageFooter1" Height="0" BackColor="16777215" />
  </Sections>
  <ReportComponentTray />
  <Script><![CDATA['---フォントサイズ切替境界 変数宣言---
'名称，住所（MAX:50Byte）
const FONT_SMALL as integer = 40 
const FONT_MID as integer = 25 
	
'商品名（MAX:50Byte）
const HIN_SMALL as integer = 40
const HIN_MID as integer = 25	
	
'記事（MAX:50Byte）
const KIJINM_SMALL as integer = 40
const KIJINM_MID as integer = 25

'フリー項目（MAX:50Byte）
const FREENM_SMALL as integer = 40
const FREENM_MID as integer = 25

'郵便局名称項目（MAX:100Byte）
const SHOPNM_MID as integer = 40
const SHOPNM_LARGE as integer = 20

'お届先住所フォント定義
const TODOKEADR_LARGE as integer = 12
const TODOKEADR_MID as integer = 8
const TODOKEADR_SMALL as integer = 7
	
'お届先名称フォント定義
const TODOKENM_LARGE as integer = 11
const TODOKENM_MID as integer = 8
const TODOKENM_SMALL as integer = 7

'ご依頼主住所フォント定義
const NIOKURIADR_LARGE as integer = 12 
const NIOKURIADR_MID as integer = 8
const NIOKURIADR_SMALL as integer = 7

'ご依頼主名称フォント定義
const NIOKURINM_LARGE as integer = 10
const NIOKURINM_MID as integer = 8
const NIOKURINM_SMALL as integer = 7

'商品名フォント定義
const SHOHIN_LARGE as integer = 10 
const SHOHIN_MID as integer = 7
const SHOHIN_SMALL as integer = 6

'記事フォント定義
const KIJI_LARGE as integer = 10
const KIJI_MID as integer = 7
const KIJI_SMALL as integer = 6

'フリー項目フォント定義（フリー項目１，２）
const SmallFREE_LARGE as integer = 6
const SmallFREE_MID as integer = 5
const SmallFREE_SMALL as integer = 4

'郵便局名称フォント定義
const SHOP_LARGE as integer = 10
'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修　↓↓
const SHOP_MID as integer = 8
'const SHOP_MID as integer = 8.5
'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修　↑↑
const SHOP_SMALL as integer = 7

'文字列カウント用変数
dim len as integer

'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修　↓↓
'デフォルトのフォントサイズ
'お届先住所のデフォルトサイズ定義
const TODOKEADR_DEF as double = 9.012
	
'お届先名称デフォルトサイズ定義
const TODOKENM_DEF as double = 9.012

'ご依頼主住所デフォルトサイズ定義
const NIOKURIADR_DEF as double = 9.012

'ご依頼主名称デフォルトサイズ定義
const NIOKURINM_DEF as double = 9.012

'商品名デフォルトサイズ定義
const SHOHIN_DEF as double = 6.012

'記事デフォルトサイズ定義
const KIJI_DEF as double = 6.012

'フリー項目デフォルトサイズ定義（フリー項目１，２）
const SmallFREE_DEF as double = 8.012

'郵便局名称デフォルトサイズ定義
const SHOP_DEF as double = 9.012

'現在のRPXの設定サイズを格納する変数
'お届先住所フォント定義
dim receiver_adr_1_Size as double
dim receiver_adr_2_Size as double
dim receiver_adr_3_Size as double
	
'お届先名称フォント定義
dim receiver_nm_1_Size as double
dim receiver_nm_2_Size as double

'ご依頼主住所フォント定義
dim kokyaku_adr_1_Size as double
dim kokyaku_adr_2_Size as double
dim kokyaku_adr_3_Size as double

'ご依頼主名称フォント定義
dim kokyaku_nm_1_Size as double
dim kokyaku_nm_2_Size as double

'商品名フォント定義
dim shohin_nm001_Size as double
dim shohin_nm002_Size as double

'記事フォント定義
dim kiji_nm_1_Size as double
dim kiji_nm_2_Size as double

'フリー項目フォント定義（フリー項目１，２）
dim free01_Size as double
dim free02_Size as double

'郵便局名称フォント定義
dim uketsuke_store_nm_Size as double

'フォントサイズ
dim Font_Size as double

Sub ActiveReport_ReportStart
	
	'スタート時に現在のRPXの設定サイズを取得する
	'お届先住所フォント定義
	try
		receiver_adr_1_Size = ctype(me.Detail1.Controls("receiver_adr_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		receiver_adr_2_Size = ctype(me.Detail1.Controls("receiver_adr_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		receiver_adr_3_Size = ctype(me.Detail1.Controls("receiver_adr_3"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	
	'お届先名称フォント定義
	try
		receiver_nm_1_Size = ctype(me.Detail1.Controls("receiver_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		receiver_nm_2_Size = ctype(me.Detail1.Controls("receiver_nm_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'ご依頼主住所フォント定義
	try
		kokyaku_adr_1_Size = ctype(me.Detail1.Controls("kokyaku_adr_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kokyaku_adr_2_Size = ctype(me.Detail1.Controls("kokyaku_adr_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kokyaku_adr_3_Size = ctype(me.Detail1.Controls("kokyaku_adr_3"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'ご依頼主名称フォント定義
	try
		kokyaku_nm_1_Size = ctype(me.Detail1.Controls("kokyaku_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kokyaku_nm_2_Size = ctype(me.Detail1.Controls("kokyaku_nm_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'商品名フォント定義
	try
		shohin_nm001_Size = ctype(me.Detail1.Controls("shohin_nm001"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		shohin_nm002_Size = ctype(me.Detail1.Controls("shohin_nm002"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'記事フォント定義
	try
		kiji_nm_1_Size = ctype(me.Detail1.Controls("kiji_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kiji_nm_2_Size = ctype(me.Detail1.Controls("kiji_nm_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'フリー項目フォント定義（フリー項目１，２）
	try
		free01_Size = ctype(me.Detail1.Controls("free01"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		free02_Size = ctype(me.Detail1.Controls("free02"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'郵便局名称フォント定義
	try
		uketsuke_store_nm_Size = ctype(me.Detail1.Controls("uketsuke_store_nm"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
End Sub
'20130820 Y.Tadano@fuso　課題NO199 フォントサイズ制御改修　↑↑

Sub Detail1_Format

	'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修＋レイアウト変更で項目削除の考慮追加　↓↓
	'初期化
	try
		ctype(me.Detail1.Controls("delivery_time_sign_none"),DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_am"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_12_14"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_14_16"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_16_18"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_18_20"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_20_21"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_20_21"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↓
	try
		ctype(me.Detail1.Controls("delivery_time_sign_19_21"), DataDynamics.ActiveReports.TextBox).Visible = false
	Catch ex as exception
	End Try
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↑
	try
		ctype(me.Detail1.Controls("reizou_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("reitou_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("security_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("waremono_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("sakasama_ng_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("shitadumi_ng_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("mochikomi_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("syuka_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("douitsu_sign"), DataDynamics.ActiveReports.Shape).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("item_cnt_bunbo"), DataDynamics.ActiveReports.TextBox).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("item_cnt_bunshi"), DataDynamics.ActiveReports.TextBox).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("KokyakuQRCode"), DataDynamics.ActiveReports.Barcode).Visible = false
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("KokyakuQRCodeLabel"), DataDynamics.ActiveReports.Label).Visible = false
	Catch ex as exception
	End Try
	'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修＋レイアウト変更で項目削除の考慮追加 ↑↑
	'2013.08.30 K.Takasaki@fuso 課題NO199 郵便局留め対応　↓↓
	try
		ctype(me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex as exception
	End Try
	'2013.08.30 K.Takasaki@fuso 課題NO199 郵便局留め対応　↑↑
	
	'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修＋レイアウト変更で項目削除の考慮追加 ↓↓
	'「顧客QR」の制御
	if rpt.Fields("shiharai_houhou_kbn").Value.tostring() = "2" then
		'後納の場合、顧客QRを印字する
		try
			ctype(me.Detail1.Controls("KokyakuQRCode"), DataDynamics.ActiveReports.Barcode).Visible = true
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("KokyakuQRCodeLabel"), DataDynamics.ActiveReports.Label).Visible = true
		Catch ex as exception
		End Try
	else
		'別納の場合、顧客QRを印字しない
		try
			ctype(me.Detail1.Controls("KokyakuQRCode"), DataDynamics.ActiveReports.Barcode).Visible = false
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("KokyakuQRCodeLabel"), DataDynamics.ActiveReports.Label).Visible = false
		Catch ex as exception
		End Try
	End If
	
	'複数口の制御
	'// ↓　2013.11.27 課題No.524 : 複数個口対応　tsunoda
	'if rpt.Fields("item_cnt_bunbo").Value.ToString() >= "2" Then
	if rpt.Fields("item_cnt_bunbo").Value >= 2 Then
	'// ↑　2013.11.27 課題No.524 : 複数個口対応　tsunoda
		Try
			ctype(me.Detail1.Controls("item_cnt_bunbo"), DataDynamics.ActiveReports.TextBox).Visible = true
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("item_cnt_bunshi"), DataDynamics.ActiveReports.TextBox).Visible = true
		Catch ex as exception
		End Try
	End If
	
	if rpt.Fields("delivery_time_sign_none").Value = "True" then
		' 希望なし
		try
			ctype(me.Detail1.Controls("delivery_time_sign_none"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_am").Value = "True" then
		' 午前中
		try
			ctype(me.Detail1.Controls("delivery_time_sign_am"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_12_14").Value = "True" then
		' 12時→14時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_12_14"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_14_16").Value = "True" then
		' 14時→16時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_14_16"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_16_18").Value = "True" then
		' 16時→18時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_16_18"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_18_20").Value = "True" then
		' 18時→20時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_18_20"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_20_21").Value = "True" then
		' 20時→21時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_20_21"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↓
		' 19時→21時
	try
		if rpt.Fields("delivery_time_sign_19_21").Value = "True" then
			ctype(me.Detail1.Controls("delivery_time_sign_19_21"), DataDynamics.ActiveReports.TextBox).Visible = true
		end if
	Catch ex as exception
	End Try
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↑
	'冷蔵・冷凍
	if rpt.Fields("reizou_sign").Value = "True" then 
		try
			ctype(me.Detail1.Controls("reizou_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	if rpt.Fields("reitou_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("reitou_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	'セキュリティ
	if rpt.Fields("kakitome_security_sbt").Value.tostring() = "2" then
		try
			ctype(me.Detail1.Controls("security_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	else
		try
			ctype(me.Detail1.Controls("security_sign"), DataDynamics.ActiveReports.Shape).Visible = false
		Catch ex as exception
		End Try
	End If
	' 割れ物
	if rpt.Fields("waremono_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("waremono_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 逆さま厳禁
	if rpt.Fields("sakasama_ng_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("sakasama_ng_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 下積み厳禁
	if rpt.Fields("shitadumi_ng_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("shitadumi_ng_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 持込み
	if rpt.Fields("mochikomi_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("mochikomi_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 集荷
	if rpt.Fields("syuka_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("syuka_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 同一
	if rpt.Fields("douitsu_sign").Value = "True" then
		try
			ctype(me.Detail1.Controls("douitsu_sign"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修＋レイアウト変更で項目削除の考慮追加 ↑↑
	'2013.08.30 K.Takasaki@fuso 課題NO199 郵便局留め対応　↓↓
	'郵便局留対応
	if rpt.Fields("todoke_kyokudome_kbn").Value.tostring() = "1" then
		try
			ctype(me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	else
		try
			ctype(me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
	End If	
	'2013.08.30 K.Takasaki@fuso 課題NO199 郵便局留め対応　↑↑
	
	'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修＋レイアウト変更で項目削除の考慮追加 ↓↓
	'////フォント制御
	'お届け先住所
	len = 0
	len = getByteCount("receiver_adr_1")
	
	if len < getByteCount("receiver_adr_2") then
		len = getByteCount("receiver_adr_2")
	End If
	
	if len < getByteCount("receiver_adr_3") then
		len = getByteCount("receiver_adr_3")
	End If
	
	if len >= FONT_SMALL then
		Font_Size = TODOKEADR_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = TODOKEADR_MID
	else
		Font_Size = TODOKEADR_LARGE
	End If
	FontSize_Set("receiver_adr_1", receiver_adr_1_Size, TODOKEADR_DEF, Font_Size)
	FontSize_Set("receiver_adr_2", receiver_adr_2_Size, TODOKEADR_DEF, Font_Size)
	FontSize_Set("receiver_adr_3", receiver_adr_3_Size, TODOKEADR_DEF, Font_Size)
	
	'お届け先名称
	len = 0
	len = getByteCount("receiver_nm_1")
	
	if len < getByteCount("receiver_nm_2") then
		len = getByteCount("receiver_nm_2")
	End If
	
	if len >= FONT_SMALL then
		Font_Size = TODOKENM_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = TODOKENM_MID
	else
		Font_Size = TODOKENM_LARGE
	End If
	FontSize_Set("receiver_nm_1", receiver_nm_1_Size, TODOKENM_DEF, Font_Size)
	FontSize_Set("receiver_nm_2", receiver_nm_2_Size, TODOKENM_DEF, Font_Size)

	'ご依頼主住所
	len = 0
	len = getByteCount("kokyaku_adr_1")
	
	if len < getByteCount("kokyaku_adr_2") then
		len = getByteCount("kokyaku_adr_2")
	End If
	
	if len < getByteCount("kokyaku_adr_3") then
		len = getByteCount("kokyaku_adr_3")
	End If

	if len >= FONT_SMALL then
		Font_Size = NIOKURIADR_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = NIOKURIADR_MID
	else
		Font_Size = NIOKURIADR_LARGE
	End If
	FontSize_Set("kokyaku_adr_1", kokyaku_adr_1_Size, NIOKURIADR_DEF, Font_Size)
	FontSize_Set("kokyaku_adr_2", kokyaku_adr_2_Size, NIOKURIADR_DEF, Font_Size)
	FontSize_Set("kokyaku_adr_3", kokyaku_adr_3_Size, NIOKURIADR_DEF, Font_Size)

	'ご依頼主名称
	len = 0
	len = getByteCount("kokyaku_nm_1")
	
	if len < getByteCount("kokyaku_nm_2") then
		len = getByteCount("kokyaku_nm_2")
	End If

	if len >= FONT_SMALL then
		Font_Size = NIOKURINM_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = NIOKURINM_MID
	else
		Font_Size = NIOKURINM_LARGE
	End If
	FontSize_Set("kokyaku_nm_1", kokyaku_nm_1_Size, NIOKURINM_DEF, Font_Size)
	FontSize_Set("kokyaku_nm_2", kokyaku_nm_2_Size, NIOKURINM_DEF, Font_Size)

	'商品名
	len = 0
	len = getByteCount("shohin_nm001")
	
	if len < getByteCount("shohin_nm002") then
		len = getByteCount("shohin_nm002")
	End If

	if len >= HIN_SMALL then
		Font_Size = SHOHIN_SMALL
	else if len >= HIN_MID and len < HIN_SMALL then
		Font_Size = SHOHIN_MID
	else
		Font_Size = SHOHIN_LARGE
	End If
	FontSize_Set("shohin_nm001", shohin_nm001_Size, SHOHIN_DEF, Font_Size)
	FontSize_Set("shohin_nm002", shohin_nm002_Size, SHOHIN_DEF, Font_Size)

	'記事
	len = 0
	len = getByteCount("kiji_nm_1")
	
	if len < getByteCount("kiji_nm_2") then
		len = getByteCount("kiji_nm_2")
	End If

	if len >= KIJINM_SMALL then
		Font_Size = KIJI_SMALL
	else if len >= KIJINM_MID and len < KIJINM_SMALL then
		Font_Size = KIJI_MID
	else
		Font_Size = KIJI_LARGE
	End If
	FontSize_Set("kiji_nm_1", kiji_nm_1_Size, KIJI_DEF, Font_Size)
	FontSize_Set("kiji_nm_2", kiji_nm_2_Size, KIJI_DEF, Font_Size)
	
	'フリー項目１
	len = 0
	len = getByteCount("free01")

	if len >= FREENM_SMALL then
		Font_Size = SmallFREE_SMALL
	else if len >= FREENM_MID and len < FREENM_SMALL then
		Font_Size = SmallFREE_MID
	else
		Font_Size = SmallFREE_LARGE
	End If
	FontSize_Set("free01", free01_Size, SmallFREE_DEF, Font_Size)
	
	'フリー項目２
	len = 0
	len = getByteCount("free02")

	if len >= FREENM_SMALL then
		Font_Size = SmallFREE_SMALL
	else if len >= FREENM_MID and len < FREENM_SMALL then
		Font_Size = SmallFREE_MID
	else
		Font_Size = SmallFREE_LARGE
	End If
	FontSize_Set("free02", free02_Size, SmallFREE_DEF, Font_Size)

	'郵便局名称
	len = 0
	len = getByteCount("uketsuke_store_nm")

	if len >= 1 and len < SHOPNM_LARGE then
	Font_Size = SHOP_LARGE
	else if len >= SHOPNM_LARGE and len < SHOPNM_MID then
		Font_Size = SHOP_MID
	else
		Font_Size = SHOP_SMALL
	End If
	FontSize_Set("uketsuke_store_nm", uketsuke_store_nm_Size, SHOP_DEF, Font_Size)

	''    '初期化
	''    delivery_time_sign_none.Visible = False
	''    delivery_time_sign_am.Visible = False
	''    delivery_time_sign_12_14.Visible = False
	''    delivery_time_sign_14_16.Visible = False
	''    delivery_time_sign_16_18.Visible = False
	''    delivery_time_sign_18_20.Visible = False
	''    delivery_time_sign_20_21.Visible = False
	''    reizou_sign.Visible = False
	''    reitou_sign.Visible = False
	''    security_sign.Visible = False
	''    waremono_sign.Visible = False
	''    sakasama_ng_sign.Visible = False
	''    shitadumi_ng_sign.Visible = False
	''    mochikomi_sign.Visible = False
	''    syuka_sign.Visible = False
	''    douitsu_sign.Visible = False
	''    item_cnt_bunbo.Visible = False
	''    item_cnt_bunshi.Visible = False
	''    KokyakuQRCode.Visible = False
	''    KokyakuQRCodeLabel.Visible = False



	''    '「顧客QR」の制御
	''    If rpt.Fields("shiharai_houhou_kbn").Value.tostring() = "2" Then
	''        '後納の場合、顧客QRを印字する
	''        KokyakuQRCode.Visible = True
	''        KokyakuQRCodeLabel.Visible = True
	''    Else
	''        '別納の場合、顧客QRを印字しない
	''        KokyakuQRCode.Visible = False
	''        KokyakuQRCodeLabel.Visible = False
	''    End If

	''    '複数口の制御
	''    If rpt.Fields("item_cnt_bunbo").Value.ToString() >= "2" Then
	''        item_cnt_bunbo.Visible = True
	''        item_cnt_bunshi.Visible = True
	''    End If

	''    If rpt.Fields("delivery_time_sign_none").Value = "True" Then
	''        ' 希望なし
	''        delivery_time_sign_none.Visible = True
	''    End If
	''    If rpt.Fields("delivery_time_sign_am").Value = "True" Then
	''        ' 午前中
	''        delivery_time_sign_am.Visible = True
	''    End If
	''    If rpt.Fields("delivery_time_sign_12_14").Value = "True" Then
	''        ' 12時→14時
	''        delivery_time_sign_12_14.Visible = True
	''    End If
	''    If rpt.Fields("delivery_time_sign_14_16").Value = "True" Then
	''        ' 14時→16時
	''        delivery_time_sign_14_16.Visible = True
	''    End If
	''    If rpt.Fields("delivery_time_sign_16_18").Value = "True" Then
	''        ' 16時→18時
	''        delivery_time_sign_16_18.Visible = True
	''    End If
	''    If rpt.Fields("delivery_time_sign_18_20").Value = "True" Then
	''        ' 19時→22時
	''        delivery_time_sign_18_20.Visible = True
	''    End If
	''    If rpt.Fields("delivery_time_sign_20_21").Value = "True" Then
	''        ' 19時→22時
	''        delivery_time_sign_20_21.Visible = True
	''    End If
	''    '冷蔵・冷凍
	''    If rpt.Fields("reizou_sign").Value = "True" Then
	''        reizou_sign.Visible = True
	''    End If
	''    If rpt.Fields("reitou_sign").Value = "True" Then
	''        reitou_sign.Visible = True
	''    End If
	''    'セキュリティ
	''    If rpt.Fields("kakitome_security_sbt").Value.tostring() = "2" Then
	''        security_sign.Visible = True
	''    Else
	''        security_sign.Visible = False
	''    End If
	''    ' 割れ物
	''    If rpt.Fields("waremono_sign").Value = "True" Then
	''        waremono_sign.Visible = True
	''    End If
	''    ' 逆さま厳禁
	''    If rpt.Fields("sakasama_ng_sign").Value = "True" Then
	''        sakasama_ng_sign.Visible = True
	''    End If
	''    ' 下積み厳禁
	''    If rpt.Fields("shitadumi_ng_sign").Value = "True" Then
	''        shitadumi_ng_sign.Visible = True
	''    End If

	''    ' 持ち込み
	''    If rpt.Fields("mochikomi_sign").Value = "True" Then
	''        mochikomi_sign.Visible = True
	''    End If
	''    ' 集荷
	''    If rpt.Fields("syuka_sign").Value = "True" Then
	''        syuka_sign.Visible = True
	''    End If
	''    ' 同一
	''    If rpt.Fields("douitsu_sign").Value = "True" Then
	''        douitsu_sign.Visible = True
	''    End If


	''    '////フォント制御
	''    'お届け先住所
	''    Len = 0
	''    Len = getByteCount(receiver_adr_1.Text.Trim())

	''    If Len() < getByteCount(receiver_adr_2.Text.Trim()) Then
	''        Len = getByteCount(receiver_adr_2.Text.Trim())
	''    End If

	''    If Len() < getByteCount(receiver_adr_3.Text.Trim()) Then
	''        Len = getByteCount(receiver_adr_3.Text.Trim())
	''    End If

	''    If Len() >= FONT_SMALL Then
	''        receiver_adr_1.Font = New System.Drawing.Font(receiver_adr_1.Font.FontFamily, TODOKEADR_SMALL)
	''        receiver_adr_2.Font = New System.Drawing.Font(receiver_adr_2.Font.FontFamily, TODOKEADR_SMALL)
	''        receiver_adr_3.Font = New System.Drawing.Font(receiver_adr_3.Font.FontFamily, TODOKEADR_SMALL)
	''    ElseIf Len() >= FONT_MID And Len() < FONT_SMALL Then
	''        receiver_adr_1.Font = New System.Drawing.Font(receiver_adr_1.Font.FontFamily, TODOKEADR_MID)
	''        receiver_adr_2.Font = New System.Drawing.Font(receiver_adr_2.Font.FontFamily, TODOKEADR_MID)
	''        receiver_adr_3.Font = New System.Drawing.Font(receiver_adr_3.Font.FontFamily, TODOKEADR_MID)
	''    Else
	''        receiver_adr_1.Font = New System.Drawing.Font(receiver_adr_1.Font.FontFamily, TODOKEADR_LARGE)
	''        receiver_adr_2.Font = New System.Drawing.Font(receiver_adr_2.Font.FontFamily, TODOKEADR_LARGE)
	''        receiver_adr_3.Font = New System.Drawing.Font(receiver_adr_3.Font.FontFamily, TODOKEADR_LARGE)
	''    End If

	''    'お届け先名称
	''    Len = 0
	''    Len = getByteCount(receiver_nm_1.Text.Trim())

	''    If Len() < getByteCount(receiver_nm_2.Text.Trim()) Then
	''        Len = getByteCount(receiver_nm_2.Text.Trim())
	''    End If

	''    If Len() >= FONT_SMALL Then
	''        receiver_nm_1.Font = New System.Drawing.Font(receiver_nm_1.Font.FontFamily, TODOKENM_SMALL)
	''        receiver_nm_2.Font = New System.Drawing.Font(receiver_nm_2.Font.FontFamily, TODOKENM_SMALL)
	''    ElseIf Len() >= FONT_MID And Len() < FONT_SMALL Then
	''        receiver_nm_1.Font = New System.Drawing.Font(receiver_nm_1.Font.FontFamily, TODOKENM_MID)
	''        receiver_nm_2.Font = New System.Drawing.Font(receiver_nm_2.Font.FontFamily, TODOKENM_MID)
	''    Else
	''        receiver_nm_1.Font = New System.Drawing.Font(receiver_nm_1.Font.FontFamily, TODOKENM_LARGE)
	''        receiver_nm_2.Font = New System.Drawing.Font(receiver_nm_2.Font.FontFamily, TODOKENM_LARGE)
	''    End If

	''    'ご依頼主住所
	''    Len = 0
	''    Len = getByteCount(kokyaku_adr_1.Text.Trim())

	''    If Len() < getByteCount(kokyaku_adr_2.Text.Trim()) Then
	''        Len = getByteCount(kokyaku_adr_2.Text.Trim())
	''    End If

	''    If Len() < getByteCount(kokyaku_adr_3.Text.Trim()) Then
	''        Len = getByteCount(kokyaku_adr_3.Text.Trim())
	''    End If
	''    If Len() >= FONT_SMALL Then
	''        kokyaku_adr_1.Font = New System.Drawing.Font(kokyaku_adr_1.Font.FontFamily, NIOKURIADR_SMALL)
	''        kokyaku_adr_2.Font = New System.Drawing.Font(kokyaku_adr_2.Font.FontFamily, NIOKURIADR_SMALL)
	''        kokyaku_adr_3.Font = New System.Drawing.Font(kokyaku_adr_3.Font.FontFamily, NIOKURIADR_SMALL)
	''    ElseIf Len() >= FONT_MID And Len() < FONT_SMALL Then
	''        kokyaku_adr_1.Font = New System.Drawing.Font(kokyaku_adr_1.Font.FontFamily, NIOKURIADR_MID)
	''        kokyaku_adr_2.Font = New System.Drawing.Font(kokyaku_adr_2.Font.FontFamily, NIOKURIADR_MID)
	''        kokyaku_adr_3.Font = New System.Drawing.Font(kokyaku_adr_3.Font.FontFamily, NIOKURIADR_MID)
	''    Else
	''        kokyaku_adr_1.Font = New System.Drawing.Font(kokyaku_adr_1.Font.FontFamily, NIOKURIADR_LARGE)
	''        kokyaku_adr_2.Font = New System.Drawing.Font(kokyaku_adr_2.Font.FontFamily, NIOKURIADR_LARGE)
	''        kokyaku_adr_3.Font = New System.Drawing.Font(kokyaku_adr_3.Font.FontFamily, NIOKURIADR_LARGE)
	''    End If

	''    'ご依頼主名称
	''    Len = 0
	''    Len = getByteCount(kokyaku_nm_1.Text.Trim())

	''    If Len() < getByteCount(kokyaku_nm_2.Text.Trim()) Then
	''        Len = getByteCount(kokyaku_nm_2.Text.Trim())
	''    End If
	''    If Len() >= FONT_SMALL Then
	''        kokyaku_nm_1.Font = New System.Drawing.Font(kokyaku_nm_1.Font.FontFamily, NIOKURINM_SMALL)
	''        kokyaku_nm_2.Font = New System.Drawing.Font(kokyaku_nm_2.Font.FontFamily, NIOKURINM_SMALL)
	''    ElseIf Len() >= FONT_MID And Len() < FONT_SMALL Then
	''        kokyaku_nm_1.Font = New System.Drawing.Font(kokyaku_nm_1.Font.FontFamily, NIOKURINM_MID)
	''        kokyaku_nm_2.Font = New System.Drawing.Font(kokyaku_nm_2.Font.FontFamily, NIOKURINM_MID)
	''    Else
	''        kokyaku_nm_1.Font = New System.Drawing.Font(kokyaku_nm_1.Font.FontFamily, NIOKURINM_LARGE)
	''        kokyaku_nm_2.Font = New System.Drawing.Font(kokyaku_nm_2.Font.FontFamily, NIOKURINM_LARGE)
	''    End If

	''    '商品名
	''    Len = 0
	''    Len = getByteCount(shohin_nm001.Text.Trim())

	''    If Len() < getByteCount(shohin_nm002.Text.Trim()) Then
	''        Len = getByteCount(shohin_nm002.Text.Trim())
	''    End If
	''    If Len() >= HIN_SMALL Then
	''        shohin_nm001.Font = New System.Drawing.Font(shohin_nm001.Font.FontFamily, SHOHIN_SMALL)
	''        shohin_nm002.Font = New System.Drawing.Font(shohin_nm002.Font.FontFamily, SHOHIN_SMALL)
	''    ElseIf Len() >= HIN_MID And Len() < HIN_SMALL Then
	''        shohin_nm001.Font = New System.Drawing.Font(shohin_nm001.Font.FontFamily, SHOHIN_MID)
	''        shohin_nm002.Font = New System.Drawing.Font(shohin_nm002.Font.FontFamily, SHOHIN_MID)
	''    Else
	''        shohin_nm001.Font = New System.Drawing.Font(shohin_nm001.Font.FontFamily, SHOHIN_LARGE)
	''        shohin_nm002.Font = New System.Drawing.Font(shohin_nm002.Font.FontFamily, SHOHIN_LARGE)
	''    End If

	''    '記事
	''    Len = 0
	''    Len = getByteCount(kiji_nm_1.Text.Trim())

	''    If Len() < getByteCount(kiji_nm_2.Text.Trim()) Then
	''        Len = getByteCount(kiji_nm_2.Text.Trim())
	''    End If
	''    If Len() >= KIJINM_SMALL Then
	''        kiji_nm_1.Font = New System.Drawing.Font(kiji_nm_1.Font.FontFamily, KIJI_SMALL)
	''        kiji_nm_2.Font = New System.Drawing.Font(kiji_nm_2.Font.FontFamily, KIJI_SMALL)
	''    ElseIf Len() >= KIJINM_MID And Len() < KIJINM_SMALL Then
	''        kiji_nm_1.Font = New System.Drawing.Font(kiji_nm_1.Font.FontFamily, KIJI_MID)
	''        kiji_nm_2.Font = New System.Drawing.Font(kiji_nm_2.Font.FontFamily, KIJI_MID)
	''    Else
	''        kiji_nm_1.Font = New System.Drawing.Font(kiji_nm_1.Font.FontFamily, KIJI_LARGE)
	''        kiji_nm_2.Font = New System.Drawing.Font(kiji_nm_2.Font.FontFamily, KIJI_LARGE)
	''    End If

	''    'フリー項目１
	''    Len = 0
	''    Len = getByteCount(free01.Text.Trim())
	''    If Len() >= FREENM_SMALL Then
	''        free01.Font = New System.Drawing.Font(free01.Font.FontFamily, SmallFREE_SMALL)
	''    ElseIf Len() >= FREENM_MID And Len() < FREENM_SMALL Then
	''        free01.Font = New System.Drawing.Font(free01.Font.FontFamily, SmallFREE_MID)
	''    Else
	''        free01.Font = New System.Drawing.Font(free01.Font.FontFamily, SmallFREE_LARGE)
	''    End If

	''    'フリー項目２
	''    Len = 0
	''    Len = getByteCount(free02.Text.Trim())
	''    If Len() >= FREENM_SMALL Then
	''        free02.Font = New System.Drawing.Font(free02.Font.FontFamily, SmallFREE_SMALL)
	''    ElseIf Len() >= FREENM_MID And Len() < FREENM_SMALL Then
	''        free02.Font = New System.Drawing.Font(free02.Font.FontFamily, SmallFREE_MID)
	''    Else
	''        free02.Font = New System.Drawing.Font(free02.Font.FontFamily, SmallFREE_LARGE)
	''    End If

	''    '郵便局名称
	''    Len = 0
	''    Len = getByteCount(uketsuke_store_nm.Text.Trim())
	''    If Len() >= 1 And Len() < SHOPNM_LARGE Then
	''        uketsuke_store_nm.Font = New System.Drawing.Font(uketsuke_store_nm.Font.FontFamily, SHOP_LARGE)
	''    ElseIf Len() >= SHOPNM_LARGE And Len() < SHOPNM_MID Then
	''        uketsuke_store_nm.Font = New System.Drawing.Font(uketsuke_store_nm.Font.FontFamily, SHOP_MID)
	''    Else
	''        uketsuke_store_nm.Font = New System.Drawing.Font(uketsuke_store_nm.Font.FontFamily, SHOP_SMALL)
	''    End If

	''Catch ex As Exception
	''    MsgBox(ex.Message + ex.StackTrace.ToString())
	''End Try
'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修＋レイアウト変更で項目削除の考慮追加 ↑↑
End Sub

'20130820 Y.Tadano@fuso 課題NO199 レイアウト変更で項目削除の考慮追加　↓↓
'引数をオブジェクトネームにして項目が存在しなくても処理続行できるようにする
Private function getByteCount(ByVal ObjectNM as string) as integer
	
	'サロゲート文字で文字数判定ＯＫ
	Dim dt As System.Globalization.StringInfo
	Dim num As Integer
	Dim dispnum As Integer
	dim str as string

	try
		str = Ctype(me.Detail1.Controls(ObjectNM),DataDynamics.ActiveReports.TextBox).text.Trim()

		dt = New System.Globalization.StringInfo(str)
		num = dt.LengthInTextElements
	
		Dim by As Byte()
	
		Dim hatena As String
		Dim hatena_sjis As Byte()
	
		's-jisに変換すると、変換出来ない場合があり、?になる
		hatena = "?"
		hatena_sjis = System.Text.Encoding.GetEncoding(932).GetBytes(hatena)
	
		dispnum = 0
	
		'一文字ずつ取り出す
		For i As Integer = 0 To num - 1
	
			by = System.Text.Encoding.GetEncoding(932).GetBytes(dt.SubstringByTextElements(i, 1))
	
			If (Char.IsSurrogate(dt.SubstringByTextElements(i, 1))) Then
				dispnum += 2
			Else
				If (dt.SubstringByTextElements(i, 1) <> hatena And hatena_sjis(0) = by(0)) Then
					'?はこっちを通る
					dispnum += 2
				Else
					dispnum += by.GetLength(0)
				End If
			End If
	
		Next

	Catch ex as exception
		dispnum = 0
	End Try

	return dispnum

End Function

'Private function getByteCount(ByVal str as string) as integer
'
'	'サロゲート文字で文字数判定ＯＫ
'	Dim dt As System.Globalization.StringInfo
'	Dim num As Integer
'	Dim dispnum As Integer
'
'
'	dt = New System.Globalization.StringInfo(str)
'	num = dt.LengthInTextElements
'
'	Dim by As Byte()
'
'	Dim hatena As String
'	Dim hatena_sjis As Byte()
'
'	's-jisに変換すると、変換出来ない場合があり、?になる
'	hatena = "?"
'	hatena_sjis = System.Text.Encoding.GetEncoding(932).GetBytes(hatena)
'
'	dispnum = 0
'
'	'一文字ずつ取り出す
'	For i As Integer = 0 To num - 1
'
'		by = System.Text.Encoding.GetEncoding(932).GetBytes(dt.SubstringByTextElements(i, 1))
'
'		If (Char.IsSurrogate(dt.SubstringByTextElements(i, 1))) Then
'			dispnum += 2
'		Else
'			If (dt.SubstringByTextElements(i, 1) <> hatena And hatena_sjis(0) = by(0)) Then
'				'?はこっちを通る
'				dispnum += 2
'			Else
'				dispnum += by.GetLength(0)
'			End If
'		End If
'
'	Next
'
'	return dispnum
'
'End Function
'20130820 Y.Tadano@fuso 課題NO199 レイアウト変更で項目削除の考慮追加　↑↑


'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修　↓↓
'フォントサイズをセットする
private sub FontSize_Set(byval ObjectNM as string, byval RPXSize as double, byval DefSize as double, byval ScrSize as double)

	try
		'指定した小数桁までで比較する
		dim RPXSize_Kirisute as Double = ShosuKirisute(RPXSize, 3)
		dim DefSize_Kirisute as Double = ShosuKirisute(DefSize, 3)

		'Doubleのままだと下のIF文が正常に動作しないのでStringで比較する
		dim RPXSize_Str as string = Ctype(RPXSize_Kirisute, String)
		dim DefSize_Str as string = Ctype(DefSize_Kirisute, String)

		'現在のサイズとデフォルトサイズが一致する場合のみスクリプトで変更する
		if RPXSize_Str = DefSize_Str Then
			dim Text_Buf as DataDynamics.ActiveReports.TextBox 
			Text_Buf = CType(Me.Detail1.Controls(ObjectNM), DataDynamics.ActiveReports.TextBox)
			Text_Buf.Font = new System.Drawing.Font(Text_Buf.Font.FontFamily, ScrSize)
		End If
	Catch ex as exception
	End Try
	
End sub

'小数を指定した小数桁数までで切り捨てる
'引数１：12.3456　／　引数２：3　／　返却値：12.345
Private Function ShosuKirisute(ByVal Value As Double, ByVal Keta As Integer) As Double

	Dim ReValue As Double

	Try
		'10を桁数分で累乗する
		Dim KetaJou As Double = System.Math.Pow(10, Keta)

		'指定した桁から切り捨てる
		If Value > 0 Then
			'小数点以下切り捨てた整数 例）12.345 ⇒ 12
			ReValue = System.Math.Floor(Value * KetaJou) / KetaJou
		Else
			'小数点以下切り捨てたマイナス整数 例）-12.345 ⇒ -12
			ReValue = System.Math.Ceiling(Value * KetaJou) / KetaJou
		End If

	Catch ex As Exception
		ReValue = Value
	End Try

	Return ReValue

End Function
'20130820 Y.Tadano@fuso 課題NO199 フォントサイズ制御改修　↑↑


]]></Script>
  <PageSettings LeftMargin="0" RightMargin="0" TopMargin="0" BottomMargin="0" />
  <Parameters />
</ActiveReportsLayout>