[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,option1)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#ヘッダ処理_ヘッダ位置_初期値
setdouble($hedder_stt,1)
#明細処理_明細開始位置_初期値
setdouble($row_stt,14)
#フッタ処理_フッタ位置_初期値
setdouble($goukei_stt,34)
#改ページ処理_改ページ位置_初期値
setdouble($page,37)
loop(PrintNormal,@rs1,Key0,Key1,Key2)
printreport($printMode,true)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$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,$option1)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHedder]
#ヘッダ開始位置代入
setdouble($hedder,$hedder_stt)
#ヘッダ処理_ヘッダーフォーマット処理
formatspecialrow($hedder,0,1,13)
#1行目
putcell($hedder,13,@rs0.tait)
sum($hedder,1)
#2行目
putcell($hedder,13,発注日：)
putcell($hedder,16,@rs1.syori_ymd)
#伝票番号_控えなら受注番号も表示
putcell($hedder,24,伝票No：)
concatenate($den_no_h,@rs1.den_no,（受注No.,@rs1.jucyu_no,）)
case($den_no_disp,$option1,H,$den_no_h,@rs1.den_no)
putcell($hedder,27,$den_no_disp)
sum($hedder,1)
#3行目
putcell($hedder,2,@rs1.sir_nm_ss)
sum($hedder,1)
#4行目
putcell($hedder,2,納入希望日：)
putcell($hedder,6,@rs1.nouki_ymd)
sum($hedder,1)
#5行目
sum($hedder,1)#空行
#6行目
putcell($hedder,2,得意先)
putcell($hedder,5,@rs1.tok_nm)
putcell($hedder,22,@rs0.j_nm)
sum($hedder,1)
#7行目
putcell($hedder,2,現場)
putcell($hedder,5,@rs1.nonyu_nm)
putcell($hedder,22,@rs0.j_post_s)
putcell($hedder,25,@rs0.j_address)
sum($hedder,1)
#8行目
putcell($hedder,2,荷受人)
putcell($hedder,5,@rs1.nonyu_tan_s)
putcell($hedder,22,@rs0.j_tel_s)
putcell($hedder,28,@rs0.j_fax_s)
sum($hedder,1)
#9行目
putcell($hedder,2,連絡先)
putcell($hedder,5,@rs1.nonyu_tel_no)
sum($hedder,1)
#10行目
putcell($hedder,2,納入先)
putcell($hedder,5,@rs1.loc_nm)
putcell($hedder,24,@rs1.tan_nm_s)
sum($hedder,1)
#11行目
putcell($hedder,2,摘要)
putcell($hedder,5,@rs1.tekiyo)
sum($hedder,1)
#12行目
putcell($hedder,2,@rs0.mongon1)
putcell($hedder,10,@rs1.sir_cd_s)
sum($hedder,1)
#13行目
putcell($hedder,2,品名)
putcell($hedder,15,数量)
putcell($hedder,18,単位)
putcell($hedder,20,単価)
putcell($hedder,23,金額)
putcell($hedder,27,備考)
sum($hedder,1)

#-------------------------------------------------
#  合計欄作成
#-------------------------------------------------
[Goukei_output]
#フッタ処理_フッタ開始位置代入
setdouble($row_goukei,$goukei_stt)
sum($row_goukei,-36)
#合計欄処理
formatspecialrow($row_goukei,0,34,3)
putcell($row_goukei,18,$zeinuki_gaku_mida)
putcell($row_goukei,23,$zeinuki_gaku)
sum($row_goukei,1)
putcell($row_goukei,18,$zei_gaku_mida)
putcell($row_goukei,23,$zei_gaku)
sum($row_goukei,1)
putcell($row_goukei,18,$zeikomi_gaku_mida)
putcell($row_goukei,23,$zeikomi_gaku)
sum($row_goukei,1)

#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_Key0]
keyvalue(dummy)
keybreakproc(GroupBegin_Key0,GroupEnd_Key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_Key0]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage(formats)
resetorg()

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_Key0]
pageclose(false)

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
#合計欄_保存（caseはnullだと0と表示されてしまう現象回避）
concatenate($zeinuki_gaku_mida,小計)
case($zeinuki_gaku,@rs1.zeinuki_gaku,,,@rs1.zeinuki_gaku)
concatenate($zei_gaku_mida,消費税等)
case($zei_gaku,@rs1.zei_gaku,,,@rs1.zei_gaku)
concatenate($zeikomi_gaku_mida,合計)
case($zeikomi_gaku,@rs1.zeikomi_gaku,,,@rs1.zeikomi_gaku)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#フッタ処理_フッタ作成
subroutine(Goukei_output)
#改ページ処理
HPAGEBREAK($page)

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#ヘッダ処理_ヘッダ作成
subroutine(CreateHedder)
#明細処理_明細開始位置代入
setdouble($row_num,$row_stt)
#明細行一括format
formatspecialrow($row_num,0,14,33)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#フッタ処理_フッタ開始位置代入
setdouble($row_goukei,$goukei_stt)
#合計欄処理
formatspecialrow($row_goukei,0,37,3)
#改ページ処理
HPAGEBREAK($page)
#ヘッダ処理_ヘッダ位置_カウントアップ
sum($hedder_stt,36)
#明細処理_明細開始位置_カウントアップ
sum($row_stt,36)
#フッタ処理_フッタ位置_カウントアップ
sum($goukei_stt,36)
#改ページ処理_改ページ位置_カウントアップ
sum($page,36)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
putcell($row_num,2,@rs1.hin_nm)
putcell($row_num,15,@rs1.hacyu_su)
putcell($row_num,18,@rs1.tani)
putcell($row_num,20,@rs1.tanka)
putcell($row_num,23,@rs1.kingaku)
putcell($row_num,27,@rs1.meisai_biko)
sum($row_num,1)