[Main]
dbuse(true)
initparam(printMode,reportId,s_id,shime_dd,syori_ymd_fr,syori_ymd_to,prc_sts,tok_cd_fr,tok_cd_to,nonyu_no_fr,nonyu_no_to,tan_cd_fr,tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
#原価印刷処理
case($gentanka_mid,$genka_flg,1,原単価,)
case($arari_mid,$genka_flg,1,粗利額:,)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true,false)

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(dummy)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

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

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

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#フッタ項目_保存処理
concatenate($biko1,@rs1.biko1)
concatenate($tan_nm,@rs1.tan_nm)
concatenate($upd_time,@rs1.upd_time)
setdouble($zeinuki_gaku,@rs1.zeinuki_gaku)
setdouble($arari,@rs1.arari)

putcell($_row,3,摘要:)
putcell($_row,4,@rs1.biko1)
#putcell($_row,9,売上額：)
putcell($_row,9,担当：)
putcell($_row,10,@rs1.tan_nm)
#putcell($_row,11,$arari_mid)
putcell($_row,11,売上額：)
#putcell($_row,14,担当：)
putcell($_row,14,$arari_mid)
#putcell($_row,15,@rs1.tan_nm)
putcell($_row,16,更新日：)
putcell($_row,17,@rs1.upd_time)

formatspecialrow($_row,0,5,1)
putcell($_row,2,@rs1.den_no)
putcell($_row,3,@rs1.syori_ymd)
putcell($_row,5,@rs1.seikyu_ymd)
putcell($_row,7,@rs1.tok_cd)
putcell($_row,8,@rs1.tok_nm)
putcell($_row,10,@rs1.nonyu_no)
putcell($_row,11,@rs1.nonyu_nm)
putcell($_row,15,@rs1.sir_cd)
putcell($_row,16,@rs1.sir_nm)
putline()

formatspecialrow($_row,0,7,1)
putcell($_row,9,数量 )
putcell($_row,11,単価 )
putcell($_row,12,金額 )
putcell($_row,13,税率 )
putline(,,��#,区分#,商品#,,,,,単位#,,,,税区#,$gentanka_mid#,備考#,)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
formatspecialrow($_row,0,10,1)
putcell($_row,3,摘要:)
putcell($_row,4,$biko1)
#putcell($_row,9,売上額：)
putcell($_row,9,担当：)
putcell($_row,10,$tan_nm)
#putcell($_row,11,$arari_mid)
putcell($_row,11,売上額：)
#putcell($_row,14,担当：)
putcell($_row,14,$arari_mid)
#putcell($_row,15,$tan_nm)
putcell($_row,16,更新日：)
putcell($_row,17,$upd_time)
#原価印刷処理
case($arari,$genka_flg,1,$arari,)
putline(,,,,,,,,,,,$zeinuki_gaku#,,,$arari#,)
putline()

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
addparam($param,$shime_dd)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$prc_sts)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$nonyu_no_fr)
addparam($param,$nonyu_no_to)
addparam($param,$tan_cd_fr) #10
addparam($param,$tan_cd_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$den_no_fr)
addparam($param,$den_no_to)
addparam($param,$hin_nm)
addparam($param,$genka_flg) #19

#addparam($param,$seikyu_ymd)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,8,1)
putcell($_row,3,@rs1.row_no_s)
putcell($_row,5,@rs1.hin_cd)
putcell($_row,6,@rs1.hin_nm)
putcell($_row,10,@rs1.tani)
#putcell($_row,13,@rs1.zei_rate)
#putcell($_row,14,@rs1.zei_kbn)
putcell($_row,16,@rs1.meisai_biko)
putline(,,,,,,,,@rs1.suryo#,単位#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.gen_tanka#,)