[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,fname,seikyu_s_id,ext6,ext7,group_no,ext8,ext9,ext10,ext11,ext12)
case($v_layout,$ext6,V,1,0)
case($h_layout,$ext6,V,0,1)
#TODO
case($g_line_cnt_1page,$v_layout,1,15,7)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
#addparam($param,$s_id)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
dbselect(SelectRecords_Jisya,@rs2,$param)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
#addparam($param,$s_id)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
addparam($param,@rs2.midasi_FLG)
addparam($param,$ndt_from)
addparam($param,$ndt_to)
addparam($param,$g_line_cnt_1page)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ヘッダ処理_ヘッダー
#-------------------------------------------------
[CreateHeader]
iterate(CreateHeaderH,$h_layout)
iterate(CreateHeaderV,$v_layout)

[CreateHeaderH]
#1行目
putcell(1,42,@rs1.syori_ymd)
#2行目
putcell(2,42,@rs1.shiji_no)
#3行目
putcell(3,42,@rs1.tan_nm)
#4行目
putcell(4,2,@rs1.sir_nm)
#5行目
putcell(5,36,@rs2.j_nm)
#6行目
putcell(6,2,@rs1.tel_no_s)
putcell(6,9,@rs1.fax_no_s)
putcell(6,36,@rs2.j_tel_s)
putcell(6,42,@rs2.j_fax_s)

case($type1,@rs1.report_type,1,1,0)
case($type2,@rs1.report_type,1,0,1)

iterate(PrintHeaderH1,$type1)
iterate(PrintHeaderH2,$type2)

[PrintHeaderH1]
formatspecialrow(8,0,8,5)
#8行目
putcell(8,2,得意先:)
putcell(8,7,@rs1.tok_nm)
putcell(8,34,出荷方法:)
putcell(8,39,@rs1.biko6)
#9行目
putcell(9,2,受注No:)
putcell(9,7,@rs1.den_no)
putcell(9,34,パッキング:)
putcell(9,39,@rs1.pack_keijyos)
#10行目
putcell(10,2,管理番号:)
putcell(10,7,@rs1.kanri_no)
putcell(10,34,加工納期:)
putcell(10,39,@rs1.koutei1_nm)
putcell(10,41,@rs1.koutei1_ymd)
#11行目
putcell(11,2,数量:)
#TODO
concatenate($suryo_view,@rs1.suryo_kei, ,枚)
putcell(11,7,$suryo_view)
putcell(11,39,@rs1.koutei2_nm)
putcell(11,41,@rs1.koutei2_ymd)
#12行目
putcell(12,2,納期:)
putcell(12,7,@rs1.koutei4_ymd)
putcell(12,39,@rs1.koutei3_nm)
putcell(12,41,@rs1.koutei3_ymd)

[PrintHeaderH2]
formatspecialrow(8,0,14,5)
#8行目
putcell(8,2,受注No:)
putcell(8,7,@rs1.den_no)
putcell(8,34,加工納期:)
putcell(8,39,@rs1.nouki_ymd)

[CreateHeaderV]
#1行目
putcell(1,28,@rs1.syori_ymd)
#2行目
putcell(2,28,@rs1.shiji_no)
#3行目
putcell(3,28,@rs1.tan_nm)
#4行目
putcell(4,2,@rs1.sir_nm)
#5行目
putcell(5,22,@rs2.j_nm)
#6行目
putcell(6,2,@rs1.tel_no_s)
putcell(6,9,@rs1.fax_no_s)
putcell(6,22,@rs2.j_tel_s)
putcell(6,28,@rs2.j_fax_s)

case($type1,@rs1.report_type,1,1,0)
case($type2,@rs1.report_type,1,0,1)

iterate(PrintHeaderV1,$type1)
iterate(PrintHeaderV2,$type2)

[PrintHeaderV1]
formatspecialrow(8,0,8,5)
#8行目
putcell(8,2,得意先:)
putcell(8,7,@rs1.tok_nm)
putcell(8,20,出荷方法:)
putcell(8,25,@rs1.biko6)
#9行目
putcell(9,2,受注No:)
putcell(9,7,@rs1.den_no)
putcell(9,20,パッキング:)
putcell(9,25,@rs1.pack_keijyos)
#10行目
putcell(10,2,管理番号:)
putcell(10,7,@rs1.kanri_no)
putcell(10,20,加工納期:)
putcell(10,25,@rs1.koutei1_nm)
putcell(10,27,@rs1.koutei1_ymd)
#11行目
putcell(11,2,数量:)
#TODO
concatenate($suryo_view,@rs1.suryo_kei, ,枚)
putcell(11,7,$suryo_view)
putcell(11,25,@rs1.koutei2_nm)
putcell(11,27,@rs1.koutei2_ymd)
#12行目
putcell(12,2,納期:)
putcell(12,7,@rs1.koutei4_ymd)
putcell(12,25,@rs1.koutei3_nm)
putcell(12,27,@rs1.koutei3_ymd)

[PrintHeaderV2]
formatspecialrow(8,0,14,5)
#8行目
putcell(8,2,受注No:)
putcell(8,7,@rs1.den_no)
putcell(8,20,加工納期:)
putcell(8,25,@rs1.nouki_ymd)





#-------------------------------------------------
#  文言出力
#-------------------------------------------------
[Mongon]
#TODO
formatspecialrow($_row,0,81,1)
iterate(MongonH,$h_layout)
iterate(MongonV,$v_layout)
putline(,)

[MongonH]
putcell($_row,2,NO)
putcell($_row,3,品名/仕様（サイズ/色/材質）)
putcell($_row,40,等級)
putcell($_row,41,数量)
putcell($_row,44,単位)

[MongonV]
putcell($_row,2,NO)
putcell($_row,3,品名/仕様（サイズ/色/材質）)
putcell($_row,28,等級)
putcell($_row,29,数量)
putcell($_row,31,単位)
















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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
case($id_blank,$v_layout,1,blank2,blank)
case($id_formats,$v_layout,1,formats2,formats)
deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage($id_formats)
resetorg()

concatenate($now_den_no,@rs1.den_no)

#ヘッダ処理_ヘッダー
subroutine(CreateHeader)



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

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(@rs1.den_no,@rs1.sir_cd,@rs1.row_page)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#setdouble($line_cnt_1page,15)
setdouble($line_cnt_1page,$g_line_cnt_1page)
#文言出力
subroutine(Mongon)

#TODO
#formatspecialrow($_row,0,82,15)

















#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#不足行埋める
iterate(PrintSpace,$line_cnt_1page)

#空行
putline(,)
#備考
#formatspecialrow($_row,0,67,6)
putcell($_row,3,備考：)
putline(,)

#仕様
subroutine(SelectSpecList)
loop(PrintSpec,@rs3)

hpagebreak($_row)

[PrintSpace]
putline(,)



#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
iterate(PrintNormalH,$h_layout)
iterate(PrintNormalV,$v_layout)

[PrintNormalH]
case($hosoku_dtl,@rs1.dhin_nm,,0,1)
case($sonota_dtl,@rs1.dhin_nm,,1,0)
iterate(PrintNormalH_Hosoku,$hosoku_dtl)
iterate(PrintNormalH_Sonota,$sonota_dtl)

[PrintNormalH_Hosoku]
formatspecialrow($_row,0,82,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.dhin_nm)
putcell($_row,5,@rs1.kind_s)
putcell($_row,9,@rs1.hosoku1)
putcell($_row,11,@rs1.size_h_view)
putcell($_row,14,@rs1.hin_nm_s1)
putcell($_row,27,@rs1.hin_nm_s2)
#putcell($_row,27,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,,@rs1.hin_tani#)
#putline(,,@rs1.m_biko#)

sum($line_cnt_1page,-1)

#setdouble($dat_OFF,@rs2.hin_cd_FLG)
#setdouble($dat_ON,@rs2.hin_cd_FLG)



[PrintNormalH_Sonota]
formatspecialrow($_row,0,99,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_cd)
putcell($_row,9,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,,@rs1.hin_tani#)
sum($line_cnt_1page,-1)

[PrintNormalV]
case($hosoku_dtl,@rs1.dhin_nm,,0,1)
case($sonota_dtl,@rs1.dhin_nm,,1,0)
iterate(PrintNormalV_Hosoku,$hosoku_dtl)
iterate(PrintNormalV_Sonota,$sonota_dtl)

[PrintNormalV_Hosoku]
formatspecialrow($_row,0,82,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.dhin_nm)
putcell($_row,5,@rs1.kind_s)
putcell($_row,8,@rs1.hosoku1)
putcell($_row,10,@rs1.size_h_view)
putcell($_row,12,@rs1.hin_nm_s1)
putcell($_row,20,@rs1.hin_nm_s2)
#putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,@rs1.hin_tani#)
#putline(,,@rs1.m_biko#)

sum($line_cnt_1page,-1)

#setdouble($dat_OFF,@rs2.hin_cd_FLG)
#setdouble($dat_ON,@rs2.hin_cd_FLG)



[PrintNormalV_Sonota]
formatspecialrow($_row,0,99,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_cd)
putcell($_row,8,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,@rs1.hin_tani#)
sum($line_cnt_1page,-1)























[SelectSpecList]
new($param)
addparam($param,$now_den_no)
dbselect(SelectSpecList,@rs3,$param)

[PrintSpec]
putcell($_row,4,@rs3.spec_naiyo)
putline(,,@rs3.spec_seq#,)