<?xml version="1.0" encoding="UTF-8"?>
<ActiveReportsLayout Version="3.1" PrintWidth="6245.281" 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="9444.961" ColumnDirection="1" BackColor="16777215" KeepTogether="1">
      <Control Type="AR.Image" Name="Picture1" Left="0" Top="0" Width="6245.281" Height="9444.961" LineWeight="0" SizeMode="1">[encoded data, 6768 characters]</Control>
      <Control Type="AR.Field" Name="Shitei_sbt2" Left="4698.72" Top="1150.56" Width="1235.52" Height="568.8" Text="翌配ワイド" Style="background-color: Black; color: White; font-family: BIZ UDゴシック; font-size: 9pt; font-weight: normal; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_zip_1" DataField="receiver_zip_1&#xD;&#xA;" Left="1512" Top="1154.88" Width="141.12" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_zip_2" DataField="receiver_zip_2" Left="1653.12" Top="1154.88" Width="141.12" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_3" DataField="receiver_zip_3&#xD;&#xA;" Left="1794.24" Top="1154.88" Width="141.12" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_zip_4" DataField="receiver_zip_4" Left="2103.84" Top="1154.88" Width="141.12" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_zip_6" DataField="receiver_zip_6" Left="2400.48" Top="1154.88" Width="141.12" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_zip_7" DataField="receiver_zip_7" Left="2556" Top="1154.88" Width="141.12" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_1" DataField="receiver_adr_1" Left="133.92" Top="1323.36" Width="3929.953" Height="198.4252" Text="お届け先の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="Label1" Left="133.7845" Top="5061.6" Width="1231.37" Height="165.6" Text="ご依頼主" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zipLabel" Left="1410.506" Top="5076" Width="141.7323" Height="150.8032" Text="〒" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_adr_1" DataField="kokyaku_adr_1" Left="132.7839" Top="5255.605" Width="3929.76" Height="198.72" Text="ご依頼主の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="Label2" Left="2185.92" Top="138.24" Width="823.8954" Height="199.4685" Text="料金別納" Style="font-family: BIZ UDゴシック; font-size: 8.25pt; font-weight: normal; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_adr_2" DataField="receiver_adr_2" Left="133.92" Top="1517.918" Width="3929.953" Height="198.4252" Text="お届け先の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_adr_3" DataField="receiver_adr_3" Left="133.92" Top="1702.397" Width="3929.953" Height="198.4253" Text="お届け先の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_nm_2" DataField="receiver_nm_2" Left="135.36" Top="2099.52" Width="3540.472" Height="198.4252" Text="お届け先の名称" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_adr_2" DataField="kokyaku_adr_2" Left="132.4799" Top="5451.841" Width="3929.76" Height="198.72" Text="ご依頼主の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="todoke_keisho_kbn_nm" DataField="todoke_keisho_kbn_nm" Left="3674.88" Top="2008.8" Width="374.7402" Height="289.44" Text="様" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 8.25pt; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="goirai_keisho_kbn_nm" DataField="goirai_keisho_kbn_nm" Left="3673.439" Top="5954.404" Width="374.4" Height="289.44" Text="様" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 8.25pt; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Barcode" Name="Barcode1" DataField="tracking_no_barcode" Left="1745.28" Top="8154.72" Width="2661.732" Height="740.9764" BarStyle="16" Text="Barcode1" CaptionPos="2" Checksum="0" Font="ＭＳ Ｐゴシック" FontSize="5" CODE128="0;0;0" />
      <Control Type="AR.Field" Name="kokyaku_zip_2" DataField="kokyaku_zip_2" Left="1686.6" Top="5076" Width="130.3937" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_3" DataField="kokyaku_zip_3" Left="1824.931" Top="5076" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="zip_Label" Left="1948.524" Top="5076" Width="141.7323" Height="150.8032" Text="-" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_5" DataField="kokyaku_zip_5" Left="2230.286" Top="5076" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_1" DataField="kokyaku_zip_1" Left="1556.209" Top="5076" Width="130.3936" Height="150.8031" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_4" DataField="kokyaku_zip_4" Left="2090.259" Top="5076" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_zip_6" DataField="kokyaku_zip_6" Left="2357.28" Top="5076" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="receiver_zip_5" DataField="receiver_zip_5" Left="2244.96" Top="1154.88" Width="141.1201" Height="151.2" Text="9" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_7" DataField="kokyaku_zip_7" Left="2499.012" Top="5076" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_adr_3" DataField="kokyaku_adr_3" Left="133.92" Top="5650.561" Width="3929.76" Height="198.72" Text="ご依頼主の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_nm_1" DataField="kokyaku_nm_1" Left="132.4799" Top="5849.282" Width="3540.96" Height="198.72" Text="ご依頼主の名称" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_nm_2" DataField="kokyaku_nm_2" Left="132.4799" Top="6045.127" Width="3540.96" Height="198.72" Text="ご依頼主の名称" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_nm_1" DataField="receiver_nm_1" Left="133.92" Top="1901.276" Width="3540.472" Height="198.4252" Text="お届け先の名称" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="Label4" Left="2185.92" Top="138.24" Width="823.8954" Height="199.4685" Text="料金後納" Style="font-family: BIZ UDゴシック; font-size: 8.25pt; font-weight: normal; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="Shitei_sbt" Left="4695.84" Top="1150.56" Width="1238.4" Height="283.68" Text="配達日指定" Style="background-color: Black; color: White; font-family: BIZ UDゴシック; font-size: 9pt; font-weight: normal; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="TextBox5" Left="4618.079" Top="165.6" Width="1375.2" Height="735.84" Text="ゆうパケット" Style="background-color: Black; color: White; font-family: BIZ UDゴシック; font-size: 9.75pt; font-weight: normal; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="lbl_shohin_nm" Left="137.4232" Top="2350.08" Width="417.6" Height="184.32" Text="品名" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shohin_nm001" Left="555.84" Top="2350.08" Width="2475.36" Height="528.48" Text="品名１品名２" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; ddo-char-set: 128" />
      <Control Type="AR.Barcode" Name="customer_barcode" DataField="customer_barcode" Left="1031.04" Top="7740" Width="4031.944" Height="176.5815" BarStyle="26" Text="Barcode1" Font="Courier New" FontSize="8" CODE128="0;0;0" />
      <Control Type="AR.Barcode" Name="shiwake_no_barcode_2" DataField="shiwake_no_barcode" Tag="" Left="293.76" Top="210.24" Width="1060.157" Height="623.6221" BarStyle="10" Text="123456" Font="ＭＳ Ｐゴシック" FontSize="6" CODE128="0;0;0" />
      <Control Type="AR.Field" Name="shiwake_no_fmt" DataField="shiwake_no_fmt" Left="1576.8" Top="374.4" Width="1653.12" Height="442.08" Text="仕分番号" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 18pt; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="TextBox3" Left="1370.88" Top="1154.88" Width="141.12" Height="151.2" Text="〒" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="TextBox1" Left="1951.2" Top="1154.88" Width="141.12" Height="151.2" Text="-" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="TextBox2" Left="133.92" Top="1154.88" Width="1202.4" Height="180" Text="お届け先" CanGrow="0" Style="background-color: Black; color: White; font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="Shape1" Left="133.92" Top="5042.88" Width="1238.4" Height="184.32" BackColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="Shitei_shape" Left="4695.84" Top="1150.56" Width="1238.4" Height="720.0001" BackColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="Shape5" Left="133.92" Top="2350.08" Width="417.6" Height="184.32" BackColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="shiteibasyo_nm1" Left="3987.36" Top="2445.12" Width="1961.28" Height="309.6" Text="指定場所ダイレクト" CanGrow="0" Style="background-color: Black; color: White; font-family: BIZ UDゴシック; font-size: 9pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Line" Name="Line2" X1="133.92" Y1="2350.08" X2="3071.52" Y2="2350.08" />
      <Control Type="AR.Line" Name="Line3" X1="133.92" Y1="5042.88" X2="4586.397" Y2="5042.88" />
      <Control Type="AR.Line" Name="Line4" X1="1605.6" Y1="816.48" X2="3189.6" Y2="816.48" />
      <Control Type="AR.Field" Name="shiteibasyo_kibou1_nm1" DataField="shiteibasyo_kibou1_nm" Left="3991.679" Top="2831.04" Width="1961.28" Height="213.12" Text="第1希望：指定場所希望１" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 7pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shiteibasyo_kibou2_nm1" DataField="shiteibasyo_kibou2_nm" Left="3991.679" Top="3061.44" Width="1961.28" Height="213.12" Text="第2希望：指定場所希望２" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 7pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shiteibasyo_chime_nm1" DataField="shiteibasyo_chime_nm" Left="3991.68" Top="3291.84" Width="1961.28" Height="213.12" Text="チャイム：あり" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 7pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="TextBox9" Left="3362.4" Top="165.6" Width="1215.36" Height="172.8" Text="お問い合わせ" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="TextBox10" Left="3362.4" Top="341.28" Width="1215.36" Height="172.8" Text="荷物番号" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; text-justify: auto; vertical-align: top; white-space: nowrap; ddo-char-set: 1; ddo-font-vertical: none" CharacterSpacing="5" />
      <Control Type="AR.Line" Name="Line5" X1="3353.76" Y1="529.92" X2="4577.76" Y2="529.92" />
      <Control Type="AR.Field" Name="OKURIJO_NO1" DataField="tracking_no_fmt" Left="3353.76" Top="542.88" Width="1219.68" Height="315.778" Text="XXXX-XXXX-XXXX" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 8.25pt; text-align: center; vertical-align: middle; ddo-char-set: 128" PaddingTop="1" />
      <Control Type="AR.Field" Name="delivery_appoint_ymd_month_mongon_1" Left="5063.039" Top="1535.04" Width="266.3998" Height="282.2401" Text="月" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 9pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="TODSHITEI_YMD_Y2" DataField="delivery_appoint_ymd_day" Left="5358.24" Top="1535.04" Width="266.3998" Height="282.2401" Text="99" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 9pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="delivery_appoint_ymd_day_mongon_1" Left="5653.44" Top="1535.04" Width="266.3998" Height="282.2401" Text="日" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 9pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="TODSHITEI_YMD_Y4" DataField="delivery_appoint_ymd_month" Left="4743.36" Top="1535.04" Width="294.6599" Height="281.7001" Text="99" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 9pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Line" Name="Line6" X1="2193.12" Y1="326.88" X2="3013.921" Y2="326.88" />
      <Control Type="AR.Field" Name="todoke_kyokudome_kbn" Left="4092.48" Top="1333.44" Width="446.3999" Height="329.7601" Text="郵便&#xD;&#xA;局留" CanGrow="0" Style="background-color: Black; color: White; font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_tel_1" DataField="receiver_tel" Left="2976.48" Top="1154.88" Width="1251.36" Height="170.0788" Text="15-9999-999912345678" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: left; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Label" Name="Label17" Left="2697.29" Top="1158.667" Width="286.3903" Height="158.7402" Caption="TEL:" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: right; ddo-char-set: 128" />
      <Control Type="AR.Label" Name="Label6" Left="2655.224" Top="5076" Width="286.3903" Height="158.7402" Caption="TEL:" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: right; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="kokyaku_tel_1" DataField="kokyaku_tel" Left="2934.584" Top="5076" Width="1251.36" Height="170.0788" Text="15-9999-999912345678" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: left; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="chuimongon1" Left="133.92" Top="3774.24" Width="5859.36" Height="345.6006" Text="このお荷物はポスト投函でのお届けです。" Style="font-family: BIZ UDゴシック; font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="chuimongon2" Left="115.2" Top="4119.84" Width="5878.081" Height="345.6006" Text="投函できない場合は指定場所に差し置きします。" Style="font-family: BIZ UDゴシック; font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_4" DataField="branch_kokyaku_zip_4" Left="2090.259" Top="6363.364" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_7" DataField="branch_kokyaku_zip_7" Left="2499.012" Top="6363.364" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_nm_2" DataField="branch_kokyaku_nm_2" Left="132.3446" Top="7303.685" Width="3540.96" Height="198.72" Text="出店者の名称" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_adr_1" DataField="branch_kokyaku_adr_1" Left="132.6486" Top="6514.167" Width="3929.76" Height="198.72" Text="出店者の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_hihun" Left="1948.524" Top="6363.364" Width="141.7323" Height="150.8032" Text="-" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_1" DataField="branch_kokyaku_zip_1" Left="1556.209" Top="6363.364" Width="130.3936" Height="150.8031" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_adr_2" DataField="branch_kokyaku_adr_2" Left="132.3446" Top="6710.404" Width="3929.76" Height="198.72" Text="出店者の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_6" DataField="branch_kokyaku_zip_6" Left="2357.28" Top="6363.364" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Shape" Name="branch_kokyaku_adr_shape" Left="133.92" Top="6330.241" Width="1238.4" Height="184.32" BackColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_0" Left="1410.506" Top="6363.364" Width="141.7323" Height="150.8032" Text="〒" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_tel" DataField="branch_kokyaku_tel" Left="2934.584" Top="6363.364" Width="1251.36" Height="170.0788" Text="15-9999-999912345678" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: left; vertical-align: top; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_3" DataField="branch_kokyaku_zip_3" Left="1824.931" Top="6363.364" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Label" Name="branch_kokyaku_tel_label" Left="2655.224" Top="6363.364" Width="286.3903" Height="158.7402" Caption="TEL:" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: right; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_adr_3" DataField="branch_kokyaku_adr_3" Left="133.7847" Top="6909.123" Width="3929.76" Height="198.72" Text="出店者の住所" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_nm_1" DataField="branch_kokyaku_nm_1" Left="132.3446" Top="7107.844" Width="3540.96" Height="198.72" Text="出店者の名称" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="branch_kokyaku_adr" Left="142.56" Top="6330.241" Width="1231.37" Height="165.6" Text="発送元・返送先" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.75pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_2" DataField="branch_kokyaku_zip_2" Left="1686.6" Top="6363.364" Width="130.3937" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="branch_kokyaku_zip_5" DataField="branch_kokyaku_zip_5" Left="2230.286" Top="6363.364" Width="141.7323" Height="150.8032" Text="9" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 128" />
      <Control Type="AR.Line" Name="branch_kokyaku_adr_line" X1="133.92" Y1="6330.241" X2="4586.4" Y2="6330.241" />
      <Control Type="AR.Field" Name="kiji_nm_1" DataField="kiji_nm_1" Left="567.36" Top="3044.16" Width="2463.84" Height="356.4001" Text="記事１" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="TextBox13" Left="161.28" Top="3538.08" Width="1071.36" Height="154.0796" Text="お客さま専用番号" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_senyo_no1" DataField="kokyaku_senyo_no" Left="1232.64" Top="3542.4" Width="1801.44" Height="168.4803" Text="ABCDE1234567890" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6.012pt; white-space: inherit; ddo-char-set: 128" />
      <Control Type="AR.Line" Name="Line7" X1="133.92" Y1="3035.52" X2="3071.521" Y2="3035.52" />
      <Control Type="AR.Line" Name="Line8" X1="133.92" Y1="3523.68" X2="3071.52" Y2="3523.68" />
      <Control Type="AR.Shape" Name="Shape2" Left="135.36" Top="3526.56" Width="1085.76" Height="184.32" BackColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="TextBox4" Left="132.48" Top="3035.52" Width="417.6" Height="184.32" Text="記事" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: center; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="branch_shape" Left="115.2" Top="6284.161" Width="5948.64" Height="1274.4" BackColor="16777215" LineColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Line" Name="Line1" X1="142.56" Y1="1150.56" X2="4563.358" Y2="1150.56" />
      <Control Type="AR.Shape" Name="Shape17" Left="133.92" Top="3035.52" Width="417.6" Height="184.32" BackColor="16777215" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="TextBox6" Left="4433.953" Top="951.3072" Width="1530.142" Height="157.6063" Text="　　　　　年　　月　　日" CanGrow="0" Style="font-family: BIZ UDゴシック; font-size: 6pt; text-align: left; text-justify: auto; vertical-align: top; white-space: nowrap; ddo-char-set: 128; ddo-font-vertical: none" />
    </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:100Byte）
const FONT_SHOHIN_SMALL as integer = 69
const FONT_SHOHIN_MID as integer = 51

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

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

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

'出店者住所フォント定義
const BRANCHADR_LARGE as integer = 9
const BRANCHADR_MID as integer = 8
const BRANCHADR_SMALL as integer = 7

'出店者名称フォント定義
const BRANCHNM_LARGE as integer = 9
const BRANCHNM_MID as integer = 8
const BRANCHNM_SMALL as integer = 7

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

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

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

''デフォルトのフォントサイズ
'お届先住所のデフォルトサイズ定義
const TODOKEADR_DEF as double = 6.012

'お届先名称デフォルトサイズ定義
const TODOKENM_DEF as double = 6.012

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

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

'出店者住所デフォルトサイズ定義
const BRANCHADR_DEF as double = 6.012

'出店者名称デフォルトサイズ定義
const BRANCHNM_DEF as double = 6.012

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

'記事デフォルトサイズ定義
const KIJI_DEF as double = 6.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 branch_kokyaku_adr_1_Size as double
dim branch_kokyaku_adr_2_Size as double
dim branch_kokyaku_adr_3_Size as double

'出店者名称フォント定義
dim branch_kokyaku_nm_1_Size as double
dim branch_kokyaku_nm_2_Size as double

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

'記事フォント定義
dim kiji_nm_1_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
		branch_kokyaku_adr_1_Size = ctype(me.Detail1.Controls("branch_kokyaku_adr_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		branch_kokyaku_adr_2_Size = ctype(me.Detail1.Controls("branch_kokyaku_adr_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		branch_kokyaku_adr_3_Size = ctype(me.Detail1.Controls("branch_kokyaku_adr_3"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'出店者名称フォント定義
	try
		branch_kokyaku_nm_1_Size = ctype(me.Detail1.Controls("branch_kokyaku_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		branch_kokyaku_nm_2_Size = ctype(me.Detail1.Controls("branch_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
		kiji_nm_1_Size = ctype(me.Detail1.Controls("kiji_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	
End Sub

Sub Detail1_Format
		
	'初期化
	try
		ctype(me.Detail1.Controls("Label2"), DataDynamics.ActiveReports.TextBox).Visible = False	'「料金別納」文言
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("Label4"), DataDynamics.ActiveReports.TextBox).Visible = False	'「料金後納」文言
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = False	'郵便局留ラベル
	Catch ex as exception
	End Try

	'配達指定枠
	Try
		ctype(me.Detail1.Controls("TODSHITEI_YMD_Y4"), DataDynamics.ActiveReports.TextBox).visible = False
		ctype(me.Detail1.Controls("delivery_appoint_ymd_month_mongon_1"), DataDynamics.ActiveReports.TextBox).visible = False
		ctype(me.Detail1.Controls("TODSHITEI_YMD_Y2"), DataDynamics.ActiveReports.TextBox).visible = False
		ctype(me.Detail1.Controls("delivery_appoint_ymd_day_mongon_1"), DataDynamics.ActiveReports.TextBox).visible = False
		ctype(me.Detail1.Controls("Shitei_shape"), DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	
	'付加サービス（初期化）
	'可視
	Try
		ctype(me.Detail1.Controls("Shitei_sbt"), DataDynamics.ActiveReports.TextBox).visible = False
	Catch ex as exception
	End Try
	Try
		ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).visible = False
	Catch ex as exception
	End Try
	Try
		ctype(me.Detail1.Controls("ShiteiYMD"), DataDynamics.ActiveReports.TextBox).visible = False
	Catch ex as exception
	End Try

	'カラー
	try
		ctype(me.Detail1.Controls("Shitei_sbt"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Transparent
	Catch ex as exception
	End Try
	Try
		ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Transparent
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("ShiteiYMD"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Transparent
	Catch ex as exception
	End Try
	
	'テキスト
	try
		ctype(me.Detail1.Controls("Shitei_sbt"), DataDynamics.ActiveReports.TextBox).Text = ""
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).Text = ""
	Catch ex as exception
	End Try

	'指定場所ダイレクト
	Try
		CType(Me.Detail1.Controls("shiteibasyo_nm1"), DataDynamics.ActiveReports.TextBox).visible = False
		Ctype(me.Detail1.Controls("shiteibasyo_kibou1_nm1"), DataDynamics.ActiveReports.TextBox).visible = False
		Ctype(me.Detail1.Controls("shiteibasyo_kibou2_nm1"), DataDynamics.ActiveReports.TextBox).visible = False
		Ctype(me.Detail1.Controls("shiteibasyo_chime_nm1"), DataDynamics.ActiveReports.TextBox).visible = False
	Catch ex as exception
	End Try		
	
	'付加サービス（変更）
	If rpt.Fields("haitatsushitei_sbt").Value.tostring = "6" Then

		Try
			ctype(me.Detail1.Controls("Shitei_sbt"), DataDynamics.ActiveReports.TextBox).visible = true
			ctype(me.Detail1.Controls("Shitei_sbt"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Black
			ctype(me.Detail1.Controls("Shitei_sbt"), DataDynamics.ActiveReports.TextBox).Text = "配達日指定"
		Catch ex as exception
		End Try
		Try
			ctype(me.Detail1.Controls("TODSHITEI_YMD_Y4"), DataDynamics.ActiveReports.TextBox).visible = true
			ctype(me.Detail1.Controls("delivery_appoint_ymd_month_mongon_1"), DataDynamics.ActiveReports.TextBox).visible = true
			ctype(me.Detail1.Controls("TODSHITEI_YMD_Y2"), DataDynamics.ActiveReports.TextBox).visible = true
			ctype(me.Detail1.Controls("delivery_appoint_ymd_day_mongon_1"), DataDynamics.ActiveReports.TextBox).visible = true
			ctype(me.Detail1.Controls("Shitei_shape"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try

		try
			ctype(me.Detail1.Controls("ShiteiYMD"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Black
		Catch ex as exception
		End Try

	Elseif rpt.Fields("haitatsushitei_sbt").Value.tostring = "7" Then

		Try
			ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).visible = true
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).Text = "翌配ワイド"
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Black
		Catch ex as exception
		End Try

	Elseif rpt.Fields("haitatsushitei_sbt").Value.tostring = "8" Then

		Try
			ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).visible = true
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).Text = "当日配達"
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("Shitei_sbt2"), DataDynamics.ActiveReports.TextBox).BackColor = System.Drawing.Color.Black
		Catch ex as exception
		End Try

	Else

	End If
	
	'指定場所ダイレクト
	If rpt.Fields("cvs_hanbetsu_cd").Value.tostring = "6" Then
		Try
			CType(Me.Detail1.Controls("shiteibasyo_nm1"), DataDynamics.ActiveReports.TextBox).visible = True
			Ctype(me.Detail1.Controls("shiteibasyo_kibou1_nm1"), DataDynamics.ActiveReports.TextBox).visible = True
			Ctype(me.Detail1.Controls("shiteibasyo_kibou2_nm1"), DataDynamics.ActiveReports.TextBox).visible = True
			Ctype(me.Detail1.Controls("shiteibasyo_chime_nm1"), DataDynamics.ActiveReports.TextBox).visible = True
			
			Ctype(me.Detail1.Controls("shiteibasyo_kibou1_nm1"), DataDynamics.ActiveReports.TextBox).Text = "第1希望：" & rpt.Fields("shiteibasyo_kibou1_nm").Value.tostring
			Ctype(me.Detail1.Controls("shiteibasyo_kibou2_nm1"), DataDynamics.ActiveReports.TextBox).Text = "第2希望：" & rpt.Fields("shiteibasyo_kibou2_nm").Value.tostring
			Ctype(me.Detail1.Controls("shiteibasyo_chime_nm1"), DataDynamics.ActiveReports.TextBox).Text = "チャイム：" & rpt.Fields("shiteibasyo_chime_nm").Value.tostring

		Catch ex as exception
		End Try		
	End If
	
	'郵便局留対応
	if rpt.Fields("todoke_kyokudome_kbn").Value.tostring() = "1" then
		try
			ctype(me.Detail1.Controls("todoke_kyokudome_kbn"), DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	else
		try
			ctype(me.Detail1.Controls("todoke_kyokudome_kbn"), DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
	End If
	
	'品名欄　2明細を結合して印字する。
	try
		CType(me.Detail1.Controls("shohin_nm001"), DataDynamics.ActiveReports.TextBox).Text = rpt.Fields("shohin_nm001").Value.tostring & rpt.Fields("shohin_nm002").Value.tostring
	Catch ex as exception
	End Try
	
	'「別納」，「後納」ラベルの制御
	if rpt.Fields("shiharai_houhou_kbn").Value.tostring() = "1" then
		'別納の場合、「別納」ラベルを印字
		try
			ctype(me.Detail1.Controls("Label2"), DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("Label4"), DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
	else
		'後納の場合、「後納」ラベルを印字
		try
			ctype(me.Detail1.Controls("Label2"), DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("Label4"), DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	End If	
	
	'注意文言の印字
	If rpt.Fields("cvs_hanbetsu_cd").Value.tostring() = "6" then
		''指定場所ダイレクトかつ3cm超
		If rpt.Fields("size_kbn").Value.tostring() = "99" then
			try
				ctype(me.Detail1.Controls("chuimongon1"), DataDynamics.ActiveReports.TextBox).Text = "このお荷物は指定場所に差し置きします。"
				ctype(me.Detail1.Controls("chuimongon2"), DataDynamics.ActiveReports.TextBox).Text = ""				
			Catch ex as exception
			End Try
		''指定場所ダイレクトかつ3cm以内
		Else
			try
				ctype(me.Detail1.Controls("chuimongon1"), DataDynamics.ActiveReports.TextBox).Text = "このお荷物はポスト投函でのお届けです。"
				ctype(me.Detail1.Controls("chuimongon2"), DataDynamics.ActiveReports.TextBox).Text = "投函できない場合は指定場所に差し置きします。"	
			Catch ex as exception
			End Try
		End If	
	''通常のゆうパケットの場合
	Else
		try
			ctype(me.Detail1.Controls("chuimongon1"), DataDynamics.ActiveReports.TextBox).Text = "このお荷物はポスト投函でのお届けです。"
			ctype(me.Detail1.Controls("chuimongon2"), DataDynamics.ActiveReports.TextBox).Text = ""				
		Catch ex as exception
		End Try
	End If
	
	''出店者設定無しの場合、出店者情報欄は非表示にする。（Shapeで被せる。）
	try
		If rpt.Fields("branchshop_kbn").Value.tostring() = "0" then
			ctype(me.Detail1.Controls("branch_shape"), DataDynamics.ActiveReports.Shape).BringToFront
			ctype(me.Detail1.Controls("branch_shape"), DataDynamics.ActiveReports.Shape).BackColor = System.Drawing.Color.White
		Else
			ctype(me.Detail1.Controls("branch_shape"), DataDynamics.ActiveReports.Shape).SendToBack
			ctype(me.Detail1.Controls("branch_shape"), DataDynamics.ActiveReports.Shape).BackColor = System.Drawing.Color.Transparent
		End If
	Catch ex as exception
	End Try

	
	'////フォント制御
	'お届け先住所
	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, TODOKEADR_DEF, Font_Size)
	FontSize_Set("receiver_nm_2", receiver_nm_2_Size, TODOKEADR_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("branch_kokyaku_adr_1")

	if len < getByteCount("branch_kokyaku_adr_2") then
		len = getByteCount("branch_kokyaku_adr_2")
	End If

	if len < getByteCount("branch_kokyaku_adr_3") then
		len = getByteCount("branch_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("branch_kokyaku_adr_1", branch_kokyaku_adr_1_Size, BRANCHADR_DEF, Font_Size)
	FontSize_Set("branch_kokyaku_adr_2", branch_kokyaku_adr_2_Size, BRANCHADR_DEF, Font_Size)
	FontSize_Set("branch_kokyaku_adr_3", branch_kokyaku_adr_3_Size, BRANCHADR_DEF, Font_Size)
	
	'出店者名称
	len = 0
	len = getByteCount("branch_kokyaku_nm_1")

	if len < getByteCount("branch_kokyaku_nm_2") then
		len = getByteCount("branch_kokyaku_nm_2")
	End If

	if len >= FONT_SMALL then
		Font_Size = BRANCHNM_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = BRANCHNM_MID
	else
		Font_Size = BRANCHNM_LARGE
	End If
	FontSize_Set("branch_kokyaku_nm_1", branch_kokyaku_nm_1_Size, BRANCHNM_DEF, Font_Size)
	FontSize_Set("branch_kokyaku_nm_2", branch_kokyaku_nm_2_Size, BRANCHNM_DEF, Font_Size)	
	
    '商品名
	len = 0
	len = getByteCount("shohin_nm001")

	if len >= FONT_SHOHIN_SMALL then
		Font_Size = SHOHIN_SMALL
	else if len >= FONT_SHOHIN_MID and len < FONT_SHOHIN_SMALL then
		Font_Size = SHOHIN_MID
	else
		Font_Size = SHOHIN_LARGE
	End If
	FontSize_Set("shohin_nm001", shohin_nm001_Size, SHOHIN_DEF, Font_Size)

	'記事（配達証欄）
	len = 0
	len = getByteCount("kiji_nm_1")

	if len >= FONT_SMALL then
		Font_Size = KIJI_SMALL
	else if len >= FONT_MID and len < FONT_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)
	
End Sub
	

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 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)
		Dim DefSize_Kirisute As Double = ShosuKirisute(DefSize)

		'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　／　返却値：12.345
Private Function ShosuKirisute(ByVal Value As Double) As Double

	Dim ReValue As Double

	'残す小数の位数を指定する
	Dim Keta As Integer = 3

	Try
		'① 指定された位数分だけ10の累乗する
		Dim KetaJou As Double = System.Math.Pow(10, Keta)

		'② ①と引数の積から小数部分を切り捨て、小数点の位置を元に戻す
		ReValue = System.Math.Floor(Value * KetaJou) / KetaJou

	Catch ex As Exception
		ReValue = Value
	End Try

	Return ReValue

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