{method private {psubSheetSet_Detail }:void
        || definition(in other methods):
        ||      {set self.g_xlApp = {CreateObject "Excel.Application"}}
        ||      {set self.xlSheetReport = self.g_xlApp.ActiveSheet}
      ||ディテール編集
      {let with-1:any = self.xlSheetReport}
      ||NO.
        ||※.が続かないはず
        {set {with-1.Cells self.w_lngRDLine, 1}.Value = self.w_lngRDLineNo}
      ||店部課コード
      {if {Variant-to-Boolean {vb-var-diff {self.w_typRD.get-value  self.w_lngRDCount}.TENBUKA_CD, vbNullString}} then
        ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 2}.Value = {self.w_typRD.get-value self.w_lngRDCount}.TENBUKA_CD}
      }
      ||部課店所
      {if {Variant-to-Boolean {vb-var-diff {self.w_typRD.get-value  self.w_lngRDCount}.TENBUKA_RK, vbNullString}} then
        ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 3}.Value = {self.w_typRD.get-value  self.w_lngRDCount}.TENBUKA_RK}
      }
      ||契約先コード
      {if {Variant-to-Boolean {vb-var-diff {self.w_typRD.get-value  self.w_lngRDCount}.KEIYAKU_CD, vbNullString}} then
        ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 4}.Value = {self.w_typRD.get-value self.w_lngRDCount}.KEIYAKU_CD}
      }
      ||契約先名
      {if {Variant-to-Boolean {vb-var-diff {self.w_typRD.get-value  self.w_lngRDCount}.KEIYAKU_NM, vbNullString}} then
          ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 5}.Value = {self.w_typRD.get-value  self.w_lngRDCount}.KEIYAKU_NM}
      }
        ||取引形態
      {if {Variant-to-Boolean {vb-var-diff {self.w_typRD.get-value  self.w_lngRDCount}.TORIKEI_KBN, vbNullString}} then
        ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 6}.Value = {g_objConsTori.Item {self.w_typRD.get-value  self.w_lngRDCount}.TORIKEI_KBN}.Value}
      }
        ||ＭＦ
        {if {Variant-to-Boolean {vb-var-diff {self.w_typRD.get-value  self.w_lngRDCount}.MF_KBN, " "}} then
            ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 7}.Value = {g_objConsMF.Item {self.w_typRD.get-value  self.w_lngRDCount}.MF_KBN}.Value}
      }
      ||契約番号
        ||※.が続かないはず
        ||ＲＥＶ
        ||※.が続かないはず
        {set {with-1.Cells self.w_lngRDLine, 9}.Value = {self.w_typRD.get-value  self.w_lngRDCount}.REV}
        ||開始日
        ||※.が続かないはず
        {set {with-1.Cells self.w_lngRDLine, 10}.Value = {{proc {}:String                               
                                                              let byref-1:{FastArray-of String} = {{FastArray-of String} {self.w_typRD.get-value  self.w_lngRDCount}.KAISHI_YMD}
                                                              let ret:String = {substrDateChange byref-1, {{FastArray-of String} "g#e.#m.#d"}}
                                                              {set {self.w_typRD.get-value  self.w_lngRDCount}.KAISHI_YMD = byref-1[0]}
                                                              {return ret}}}}
      ||Ｒ
      {if {IsNull {self.w_typRD.get-value  self.w_lngRDCount}.REMARK} then
      else
        {if {Variant-to-Boolean {vb-var-equal {Trim {self.w_typRD.get-value  self.w_lngRDCount}.REMARK}, "1"}} then
            ||※.が続かないはず
            {set {with-1.Cells self.w_lngRDLine, 11}.Value = "*"}
        else
            ||※.が続かないはず
            {set {with-1.Cells self.w_lngRDLine, 11}.Value = {self.w_typRD.get-value  self.w_lngRDCount}.REMARK}
        }
      }
      ||実行高差額
      {if {{self.w_typRD.get-value  self.w_lngRDCount}.KEIYAKU_TTL_SA.ne {Integer-to-Currency 0}} then
          ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 12}.Value = {Currency-to-Double {self.w_typRD.get-value  self.w_lngRDCount}.KEIYAKU_TTL_SA}}
      }
      ||粗利益（変更前）
      {if {{self.w_typRD.get-value  self.w_lngRDCount}.ARARI_BEF.ne {Integer-to-Currency 0}} then
          ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 13}.Value = {Currency-to-Double {self.w_typRD.get-value  self.w_lngRDCount}.ARARI_BEF}}
      }
      ||粗利益（変更後）
      {if {{self.w_typRD.get-value  self.w_lngRDCount}.ARARI_AFT.ne {Integer-to-Currency 0}} then
        ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 14}.Value = {Currency-to-Double {self.w_typRD.get-value  self.w_lngRDCount}.ARARI_AFT}}
      }
      ||粗利益（差額）
      {if {{self.w_typRD.get-value  self.w_lngRDCount}.ARARI_DIF.ne {Integer-to-Currency 0}} then
        ||※.が続かないはず
          {set {with-1.Cells self.w_lngRDLine, 15}.Value = {Currency-to-Double {self.w_typRD.get-value  self.w_lngRDCount}.ARARI_DIF}}
      }
      {set self.w_lngRDLine = self.w_lngRDLine + 1}
      {set self.w_lngRDLineNo = self.w_lngRDLineNo + 1}
  }