[Main]
dbuse(true)
#initparam(printMode,reportId,s_id,tok_cd,seikyu_ymd)
initparam(printMode,reportId,ent1,ent2,ent3,ent4,ent5,sir_cat_cd,ent7,ent8,ent9,ent10,ent11,ent12,ent13,ent14,ent15,ent16,ent17,taisyo_y,taisyo_m,ent20,ent21,sir_cd_fr,sir_cd_to,ent24,ent25,ent26,ent27,ent28,ent29,ent30,ent31,ent32,ent33,ent34,output_ymd)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1)
printreport($printMode,true,false)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  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,$sir_cat_cd)#8
addparam($param,$nonyu_no_to)
addparam($param,$sir_cd_fr) #10
addparam($param,$sir_cd_to) #11
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$taisyo_y)#16
addparam($param,$taisyo_m)#17
addparam($param,$hin_nm)
addparam($param,$genka_flg)
addparam($param,$output_ymd)#20

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

#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHedder]
#ヘッダ処理
formatspecialrow($_row,0,1,3)
#1行目
putcell($_row,2,@rs0.tait)
putline(,)#改行
#2行目
putcell($_row,12,社長)
putcell($_row,14,常務)
putcell($_row,16,担当)
putline(,)#改行
#3行目
putline(,)#改行
#4行目
formatspecialrow($_row,0,4,3)
#5行目#見出し処理
putcell($_row,2,@rs1.syori_ym_s)
#putcell($_row,7,作成日)
putcell($_row,14,@rs1.output_ymd_s)
putline(,)#改行
#6行目#見出し処理
putcell($_row,2,支払先)
putcell($_row,3,支払金額)
putcell($_row,4,消費税)
putcell($_row,5,合計支払額)
putcell($_row,6,備考)
putcell($_row,7,本社)
putcell($_row,9,茨木)
putcell($_row,11,摂津)
putcell($_row,14,東京)
putline(,)#改行
#7行目#見出し処理
putcell($_row,7,売上)
putcell($_row,8,仕入)
putcell($_row,9,売上)
putcell($_row,10,仕入)
putcell($_row,11,売上)
putcell($_row,12,仕入)
putcell($_row,14,売上)
putcell($_row,16,仕入)
putline(,)#改行


#-------------------------------------------------
#  #変数_初期化
#-------------------------------------------------
[set_variable]
#支払金額
setdouble($zeinuki_gaku_sum,0)
#消費税
setdouble($zei_gaku_sum,0)
#合計支払額
setdouble($zeikomi_gaku_sum,0)
#本社_売上
setdouble($honsya_uri_sum,0)
#本社_仕入
setdouble($honsya_sir_sum,0)
#茨木_売上
setdouble($ibaraki_uri_sum,0)
#茨木_仕入
setdouble($ibaraki_sir_sum,0)
#摂津_売上
setdouble($settu_uri_sum,0)
#摂津_仕入
setdouble($settu_sir_sum,0)
#東京_売上
setdouble($toukyo_uri_sum,0)
#東京_仕入
setdouble($toukyo_sir_sum,0)


#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_key0]
keyvalue(dummy)
keybreakproc(GroupBegin_key0,GroupEnd_key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_key0]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage(formats)
resetorg()
#変数_初期化
subroutine(set_variable)
#ヘッダ処理
subroutine(CreateHedder)

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]
formatspecialrow($_row,0,10,1)
putcell($_row,2,*総合計*)
putline(,,$zeinuki_gaku_sum#,$zei_gaku_sum#,$zeikomi_gaku_sum#,,$honsya_uri_sum#,$honsya_sir_sum#,$ibaraki_uri_sum#,$ibaraki_sir_sum#,$settu_uri_sum#,$settu_sir_sum#,,$toukyo_uri_sum#,,$toukyo_sir_sum#)

pageclose(false)

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,8,1)
putcell($_row,2,@rs1.sir_nm)
putcell($_row,4,@rs1.eig_nm)
putline(,,@rs1.zeinuki_gaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,,@rs1.honsya_uri#,@rs1.honsya_sir#,@rs1.ibaraki_uri#,@rs1.ibaraki_sir#,@rs1.settu_uri#,@rs1.settu_sir#,,@rs1.toukyo_uri#,,@rs1.toukyo_sir#)


#足しこみ処理
#支払金額
sum($zeinuki_gaku_sum,@rs1.zeinuki_gaku)
#消費税
sum($zei_gaku_sum,@rs1.zei_gaku)
#合計支払額
sum($zeikomi_gaku_sum,@rs1.zeikomi_gaku)
#本社_売上
sum($honsya_uri_sum,@rs1.honsya_uri)
#本社_仕入
sum($honsya_sir_sum,@rs1.honsya_sir)
#茨木_売上
sum($ibaraki_uri_sum,@rs1.ibaraki_uri)
#茨木_仕入
sum($ibaraki_sir_sum,@rs1.ibaraki_sir)
#摂津_売上
sum($settu_uri_sum,@rs1.settu_uri)
#摂津_仕入
sum($settu_sir_sum,@rs1.settu_sir)
#東京_売上
sum($toukyo_uri_sum,@rs1.toukyo_uri)
#東京_仕入
sum($toukyo_sir_sum,@rs1.toukyo_sir)