[Main]
dbuse(true)
initparam(printMode,reportId,s_id,s_shiji_no)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
setdouble($__row,0)
subroutine(SelectRecords)
#loop(PrintNormal,@rs1,Key1,Key2)
loop(PrintNormal,@rs1,Key1)
printreport($printMode,true,false)


#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords_K]
new($param)
addparam($param,$s_id)
addparam($param,$s_shiji_no)
dbselect(SelectRecords_K,@rs0,$param)

[SelectRecords_Z]
new($param)
addparam($param,$s_id)
addparam($param,$s_shiji_no)
dbselect(SelectRecords_Z,@rs2,$param)

#-------------------------------------------------
#  工程内容出力
#-------------------------------------------------
[TypeK]
putcell($row_k,2,@rs0.koutei_nm)
putcell($row_k,8,@rs0.seizou_biko)

#putcell($row_k,21,@rs0.furikikan)
#putline(,@rs0.koutei_nm,)
#putline(,)
sum($row_k,1)


#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
addparam($param,$s_shiji_no)
dbselect(SelectRecords,@rs1,$param)


#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
#keyvalue(@rs1.shiji_no,@rs1.kind)
keyvalue(@rs1.shiji_no)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
case($rep_mode,@rs1.rep_mode,2,2,1)
case($id_blank,$rep_mode,2,blank2,blank)
case($id_formats,$rep_mode,2,formats2,formats)

deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage($id_formats)
resetorg()

#ヘッダ処理
#case($type0,@rs1.kind,0,1,0)
#case($type1,@rs1.kind,1,1,0)
#iterate(Type0,$type0) #工程
#iterate(Type1,$type1) #材料

case($logic1,$rep_mode,1,1,0)
case($logic2,$rep_mode,2,1,0)

iterate(Logic1,$logic1)
iterate(Logic2,$logic2)

[Logic1]
#ヘッダ部分
putcell(2,13,@rs1.rep_title)
putcell(3,28,@rs1.jucyu_no)
putcell(5,2,(得意先))
putcell(5,4,@rs1.tok_nm)
putcell(5,20,(出荷予定日))
putcell(6,20,@rs1.syotei_ymd)
putcell(5,26,(納期日))
putcell(6,26,@rs1.nonyu_ymd)
putcell(7,2,(納品書出力区分))
putcell(8,2,@rs1.nohinsyo_kbn_nm)
putcell(7,9,(納入方法))
putcell(8,9,@rs1.nonyu_hoho_nm)
putcell(7,16,(営業担当))
putcell(8,16,@rs1.eigyou_nm)
putcell(7,20,(設計担当))
putcell(8,20,@rs1.sekkei_nm)
putcell(7,24,(木型有無))
putcell(8,24,@rs1.mock_flg_nm)
putcell(7,28,(受注数量))
putcell(8,28,@rs1.jucyu_su)

putcell(23,2,使用工程)
#putcell(27,2,コード)
#putcell(27,4,工 程 名)
#putcell(27,15,完了予定)
#putcell(27,19,工 程 備 考)
#putcell(27,29,工程担当)

putcell(23,15,制作方法・製作上の注意事項等)
#putcell(24,15,@rs1.sekkei_biko)
putcell(24,15,@rs1.biko2)

putcell(10,2,@rs1.jucyu_row_no)
putcell(10,24,（R-N))
putcell(11,24,@rs1.den_kbn_nm)
putcell(10,26,（指示数量）)
putcell(10,4,@rs1.uri_hin_nm)
putcell(11,4,@rs1.koyu_nm)
putcell(11,26,@rs1.suryo)
putcell(13,2,（商品備考）)
putcell(13,20,（希望梱包形態）)
putcell(14,20,@rs1.skonpo_keijyo_nm)
putcell(13,26,（指示�ａj)
putcell(14,2,@rs1.meisai_biko)
putcell(14,26,@rs1.shiji_no)
putcell(16,2,（サイズ）)
putcell(16,5,@rs1.size)
putcell(18,2,（使用部材）)
putcell(18,5,@rs1.hosoku4)
putcell(20,2,（仕様）)
putcell(20,5,@rs1.hosoku3)

#putcell(18,2,（社内備考）)
#putcell(18,5,@rs1.biko2)
#putcell(24,2,（設計事項）)
#putcell(28,29,@rs1.tan_nm)


#使用シート
putcell(32,2,使用シート)
putcell(42,7,種類)
putcell(33,14,サイズ)
putcell(33,20,色)
putcell(33,24,工程)
putcell(33,26,使用数)
putcell(33,28,入荷数)
putcell(33,30,入荷日)
putcell(34,2,シート�@)
putcell(35,2,シート�A)
putcell(36,2,シート�B)
putcell(37,2,シート�C)
putcell(38,2,シート�D)
putcell(39,2,シート�E)

#使用部材
putcell(41,2,使用部材)
putcell(42,7,種類)
putcell(42,19,サイズ)
putcell(42,24,工程)
putcell(42,26,使用数)
putcell(42,28,入荷数)
putcell(42,30,入荷日)
putcell(43,2,部材A)
putcell(44,2,部材B)
putcell(45,2,部材C)
putcell(46,2,部材D)
putcell(47,2,部材E)
putcell(48,2,部材F)
putcell(49,2,部材G)
putcell(50,2,部材H)
putcell(51,2,部材I)
putcell(52,2,部材J)
putcell(53,2,部材K)
putcell(54,2,部材L)
putcell(55,2,部材M)
putcell(56,2,部材N)


#10行目
formatspecialrow(24,0,24,33)
subroutine(SelectRecords_K)
setdouble($row_k,24)
loop(TypeK,@rs0)

#シートと部材用のrow変数
subroutine(SelectRecords_Z)
setdouble($row_s,34)
setdouble($row_z,43)
loop(PrintNormalZ,@rs2)


[Logic2]
#ヘッダ部分
putcell(2,13,@rs1.rep_title)
putcell(3,28,@rs1.kanri_no)
putcell(5,2,(得意先))
putcell(5,4,@rs1.tok_nm)
#putcell(5,20,(出荷予定日))
#putcell(6,20,@rs1.syotei_ymd)
putcell(5,26,(納期日))
putcell(6,26,@rs1.nonyu_ymd)
#putcell(7,2,(納品書出力区分))
#putcell(8,2,@rs1.nohinsyo_kbn_nm)
#putcell(7,9,(納入方法))
#putcell(8,9,@rs1.nonyu_hoho_nm)
putcell(7,16,(営業担当))
putcell(8,16,@rs1.eigyou_nm)
putcell(7,20,(設計担当))
putcell(8,20,@rs1.sekkei_nm)
#putcell(7,24,(木型有無))
#putcell(8,24,@rs1.mock_flg_nm)
putcell(7,28,(受注数量))
putcell(8,28,@rs1.jucyu_su)

putcell(23,2,使用工程)
#putcell(27,2,コード)
#putcell(27,4,工 程 名)
#putcell(27,15,完了予定)
#putcell(27,19,工 程 備 考)
#putcell(27,29,工程担当)

putcell(23,15,制作方法・製作上の注意事項等)
#putcell(24,15,@rs1.sekkei_biko)
putcell(24,15,@rs1.biko2)

putcell(10,2,@rs1.jucyu_row_no)
#putcell(10,24,（R-N))
#putcell(11,24,@rs1.den_kbn_nm)
putcell(10,26,(指示数量))
putcell(10,4,(品名))
putcell(11,4,@rs1.uri_hin_nm)
putcell(11,26,@rs1.suryo)
putcell(13,2,(商品備考))
#putcell(13,20,（希望梱包形態）)
#putcell(14,20,@rs1.skonpo_keijyo_nm)
putcell(13,26,(指示��))
putcell(14,2,@rs1.meisai_biko)
putcell(14,26,@rs1.shiji_no)
#putcell(16,2,（サイズ）)
#putcell(16,5,@rs1.size)
putcell(18,2,(使用部材))
putcell(18,5,@rs1.hosoku4)
putcell(20,2,(型番))
putcell(20,5,@rs1.hosoku3)

#putcell(18,2,（社内備考）)
#putcell(18,5,@rs1.biko2)
#putcell(24,2,（設計事項）)
#putcell(28,29,@rs1.tan_nm)

#使用部材
putcell(33,2,使用部材)
putcell(34,7,種類)
putcell(34,19,サイズ)
putcell(34,24,工程)
putcell(34,26,使用数)
putcell(34,28,入荷数)
putcell(34,30,入荷日)
putcell(35,2,部材A)
putcell(36,2,部材B)
putcell(37,2,部材C)
putcell(38,2,部材D)
putcell(39,2,部材E)
putcell(40,2,部材F)
putcell(41,2,部材G)
putcell(42,2,部材H)
putcell(43,2,部材I)
putcell(44,2,部材J)
putcell(45,2,部材K)
putcell(46,2,部材L)
putcell(47,2,部材M)
putcell(48,2,部材N)


#10行目
formatspecialrow(24,0,24,33)
subroutine(SelectRecords_K)
setdouble($row_k,24)
loop(TypeK,@rs0)

#シートと部材用のrow変数
subroutine(SelectRecords_Z)
#setdouble($row_s,34)
setdouble($row_z,35)
loop(PrintNormalZ,@rs2)



#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormalするかどうか
pageclose(false)

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(dummy)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
####Key2未使用###

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
putline(,) #←これが無いとメモリ不足のエラーになる

[PrintNormalZ]
#case($typeS,@rs2.kind,0,1,0)
#case($typeZ,@rs2.kind,1,1,0)
setdouble($typeS,0)
setdouble($typeZ,1)
iterate(TypeS,$typeS) #工程
iterate(TypeZ,$typeZ) #材料

[TypeS]
#シートの明細
putcell($row_s,7,@rs2.hin_nm)
putcell($row_s,14,@rs2.size_s)
putcell($row_s,20,@rs2.color_nm)
putcell($row_s,24,@rs2.koutei_nm)
putcell($row_s,26,@rs2.hin_suryo)
putcell($row_s,28,@rs2.hacyu_su)
putcell($row_s,30,@rs2.nyuka_yotei_ymd)
sum($row_s,1)

[TypeZ]
#材料の明細
putcell($row_z,7,@rs2.hin_nm)
putcell($row_z,19,@rs2.size_s)
putcell($row_z,24,@rs2.koutei_nm)
putcell($row_z,26,@rs2.hin_suryo)
putcell($row_z,28,@rs2.hacyu_su)
putcell($row_z,30,@rs2.nyuka_yotei_ymd)
sum($row_z,1)