[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1,option2,group_no,option3,option4,option5,option6,option7,den_s_id,syukka_req_mng_id,eig_cd,input_dt_from,input_dt_to)
# J:受注対象
case($jucyu_flg,$option1,J,1,0)

# #18883 2021.06.16 MOD STT

# タイプ(:請求書,1:納品書,2:出荷チェック表,3:出荷明細書)
concatenate($rep_type,$option4)
# 1:金額非表示、2:標準単価非表示、3:標準単価のみ表示
case($hide_kingaku_flg,$option6,1,1,3,1,0)
case($hide_htanka_flg,$option6,1,1,2,1,0)
case($hide_disc_flg,$option6,1,1,2,1,3,1,0)
case($show_disc_mode,$option6,2,0,1)
case($hide_disc_mode,$option6,2,1,0)
# 1:ロケーション表示
case($location_flg,$option7,1,1,0)

# #18883 2021.06.16 MOD END

deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1,Key2)
printreport($printMode,true,false)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
addparam($param,$han_name)
addparam($param,$mongon_m)
addparam($param,$uri_no)
addparam($param,$rep_type)
addparam($param,$option3)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
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,$seikyu_s_id)
addparam($param,$jucyu_flg)
addparam($param,@rs0.uri_tokadr_kbn)
addparam($param,@rs0.hin_cd_FLG)
addparam($param,@rs0.tok_cd_FLG)
addparam($param,@rs0.midasi_FLG)#12
addparam($param,$option3)#13
addparam($param,$hide_kingaku_flg)#14
addparam($param,$hide_htanka_flg)#15
addparam($param,$hide_disc_flg)#16
addparam($param,$location_flg)#17
addparam($param,$eig_cd)#18
addparam($param,$input_dt_from)
addparam($param,$input_dt_to)
addparam($param,$rep_type)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  SQL実行_振込
#-------------------------------------------------
[SelectRecords_Furi]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
addparam($param,@rs1.den_no)
dbselect(SelectRecords_Furi,@rs2,$param)

#-------------------------------------------------
#  明細見出し
#-------------------------------------------------
[meisai_midashi]
#納品書請求書か出荷に使用する帳票か
# #18883 2021.06.16 MOD STT
#case($nouseiH,$han_name,随時請求書,1,随時請求書(定価非表示),1,ご請求書,1,納品書,1,納品書(定価非表示),1,0)#帳票タイトル
#case($nouseiH2,$han_name,納品書(金額無し),1,0)#帳票タイトル
#case($syukaH,$han_name,出荷チェック表,1,0)#帳票タイトル
#case($syukaH2,$han_name,出荷明細書,1,0)#帳票タイトル
#case($htanka_lbl,$option3,n_htanka,,定価)
#case($discper_lbl,@rs0.rev,rev,掛率,割引率)
#case($discper_lbl,$option3,n_htanka,,$discper_lbl)
# #18883 2021.06.16 MOD END

# #18883 2021.06.16 MOD STT
#分岐不要
#納品書請求書
#iterate(nouseiH,$nouseiH)
#納品書請求書
#iterate(nouseiH2,$nouseiH2)
#出荷チェック表
#iterate(syukaH,$syukaH)
#出荷明細書
#iterate(syukaH2,$syukaH2)

case($discper_lbl,@rs0.rev,rev,掛率,割引率)

case($hin_loc_lbl,$location_flg,1,品番/棚番,品番)
case($htanka_lbl,$hide_htanka_flg,1,,@rs0.htanka_label)
case($discper_lbl,$hide_disc_flg,1,,$discper_lbl)
case($tanka_lbl,$hide_kingaku_flg,1,,単価)
case($kingaku_lbl,$hide_kingaku_flg,1,,金額)

iterate(meisai_midashi_disc,$show_disc_mode)
iterate(meisai_midashi_no_disc,$hide_disc_mode)

#レスあり
[meisai_midashi_disc]
formatspecialrow($header,0,19,1)
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/明細備考)
putcell($header,16,数量)
putcell($header,18,$htanka_lbl)
putcell($header,22,$discper_lbl)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)
sum($header,1)
# #19180 2021.08.24 MOD STT
#formatspecialrow($header,0,75,30)
case($fmt_i,@rs0.uri_tn_dec,0,140,75)
formatspecialrow($header,0,$fmt_i,30)
# #19180 2021.08.24 MOD END
sum($header,1)

#レスなし
[meisai_midashi_no_disc]
formatspecialrow($header,0,107,1)
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/明細備考)
putcell($header,22,数量)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)
sum($header,1)
# #20523 2021.08.30 MOD STT
#formatspecialrow($header,0,108,30)
case($fmt_i,@rs0.uri_tn_dec,0,172,108)
formatspecialrow($header,0,$fmt_i,30)
# #20523 2021.08.30 MOD END
sum($header,1)

# #18883 2021.06.16 MOD END

#-------------------------------------------------
#  ヘッダ処理_ヘッダー
#-------------------------------------------------
[PutLogo]
setdouble($logo_row,-1)
sum($logo_row,$header)
sum($logo_row,@rs_logo.logo_row)
putimage($logo_row,@rs_logo.logo_col,0,0,0,0,logo)

[PutSyaban]
setdouble($syab_row,-1)
sum($syab_row,$header)
sum($syab_row,@rs_syab.img_row)
#TODO
case($w_eig_cd,$kakuin_eig_mode,1,@rs1.eig_cd,)
#concatenate($kakuin_id,kakuin,@rs1.eig_cd)
concatenate($kakuin_id,kakuin,$w_eig_cd)
#concatenate($kakuin_id,kakuin,)
putimage($syab_row,@rs_syab.img_col,0,0,0,0,$kakuin_id)

[CreateHeader]
# #18883 2021.06.16 MOD STT
#分岐不要
#case($TOK_ADDR,$han_name,出荷明細書,0,1)#帳票タイトル
#case($ADDR,$han_name,出荷明細書,1,0)#帳票タイトル
#iterate(tok_addr,$TOK_ADDR)
#iterate(addr,$ADDR)

#出荷明細書は納入先住所の方を出す
case($w_zip_no,$rep_type,3,@rs1.zip_no,@rs1.tok_zip_no)
case($w_addr1,$rep_type,3,@rs1.addr1,@rs1.tok_addr1)
case($w_addr2,$rep_type,3,@rs1.addr2,@rs1.tok_addr2)
case($w_addr3,$rep_type,3,@rs1.addr3,@rs1.tok_addr3)
case($w_addr4,$rep_type,3,@rs1.addr4,@rs1.tok_addr4)
# #20525 2021.08.30 MOD STT
#case($w_tok_nm,$rep_type,3,@rs1.nonyu_nm,@rs1.tok_nm)
case($w_tok_nm,$rep_type,3,@rs1.nonyu_nm,@rs1.tok_nm_s)
case($w_tok_tan,$rep_type,3,,@rs1.tok_tan)
# #20525 2021.08.30 MOD END
case($w_eigyou_tan_nm,$rep_type,3,,@rs1.eigyou_tan_nm_s)

concatenate($tel_fax,@rs1.j_tel_s, ,@rs1.j_fax_s)
setdouble($header,$header_stt)
#ヘッダ処理
formatspecialrow($header,0,1,10)
#TODO ↓ではロゴ位置をコントロールできない！
#iterate(PutLogo,$logo_flg)
#1行目
iterate(PutSyaban,$syab_flg)
#putcell($header,24,発行日：)
putcell($header,24,@rs0.syori_ymd_label)
putcell($header,27,@rs1.syori_ymd)
sum($header,1)
#2行目
putcell($header,4,$w_zip_no)
#putcell($header,24,管理番号：)
putcell($header,24,@rs0.den_no_label)
putcell($header,27,@rs1.den_no)
sum($header,1)
#3行目
putcell($header,4,$w_addr1)
putcell($header,22,@rs1.j_nm)
#TODO ↓ではロゴ位置をコントロールできない！
putimage($header,19,0,0,0,0,logo)
#putcell($header,)

sum($header,1)
#4行目
putcell($header,4,$w_addr2)
putcell($header,22,@rs1.j_post_s)
sum($header,1)
#5行目
putcell($header,4,$w_addr3)
putcell($header,22,@rs1.j_address)
sum($header,1)
#6行目
putcell($header,4,$w_addr4)
putcell($header,22,@rs1.j_address2)
sum($header,1)
#7行目
putcell($header,4,$w_tok_nm)
putcell($header,22,@rs1.j_address3)
sum($header,1)
#8行目
# #20525 2021.08.30 MOD STT
putcell($header,4,$w_tok_tan)
# #20525 2021.08.30 MOD END
putcell($header,22,$tel_fax)
sum($header,1)
#9行目
putcell($header,4,@rs1.tok_nm_add)
putcell($header,22,@rs1.j_url_s)
sum($header,1)
#10行目
putcell($header,22,@rs1.j_email_s)
sum($header,1)
#11行目
putcell($header,27,$w_eigyou_tan_nm)

#11行目(タイトル合計行)
# #20518 2021.08.30 MOD STT
case($w_format_row_nohin,$hide_kingaku_flg,1,203,15)
#case($w_format_row,$rep_type,1,15,2,15,3,69,11)
case($w_format_row,$rep_type,1,$w_format_row_nohin,2,15,3,69,11)
# #20518 2021.08.30 MOD END
formatspecialrow($header,0,$w_format_row,4)
#putcell($header,28,@rs0.j_daihyo_s)
case($w_seikyu_mongon,$rep_type,,下記の通りご請求申し上げます。,)
putcell($header,14,$w_seikyu_mongon)
sum($header,1)
#12行目
case($w_syukaCH_mongon,$rep_type,2,必ず伝票発行確認を取る,)
# #20518 2021.08.30 MOD STT
case($w_zeinuki_gaku_lbl_nohin,$hide_kingaku_flg,1,,税抜御買上額)
case($w_zei_gaku_lbl_nohin,$hide_kingaku_flg,1,,消費税)
case($w_zeikomi_gaku_lbl_nohin,$hide_kingaku_flg,1,,税込御買上額)
#case($w_zeinuki_gaku_lbl,$rep_type,3,,2,,税抜御買上額)
#case($w_zei_gaku_lbl,$rep_type,3,,2,,消費税)
#case($w_zeikomi_gaku_lbl,$rep_type,3,,2,御注文合計金額,税込御買上額)
case($w_zeinuki_gaku_lbl,$rep_type,3,,2,,$w_zeinuki_gaku_lbl_nohin)
case($w_zei_gaku_lbl,$rep_type,3,,2,,$w_zei_gaku_lbl_nohin)
case($w_zeikomi_gaku_lbl,$rep_type,3,,2,御注文合計金額,$w_zeikomi_gaku_lbl_nohin)
# #20518 2021.08.30 MOD END
case($w_seikyu_mongon2,$rep_type,,今回御請求額,)
putcell($header,2,$w_syukaCH_mongon)
putcell($header,14,$w_zeinuki_gaku_lbl)
putcell($header,18,$w_zei_gaku_lbl)
putcell($header,22,$w_zeikomi_gaku_lbl)
putcell($header,27,$w_seikyu_mongon2)
sum($header,1)
#13行目
#case($put_title,$han_name,随時請求書(定価非表示),随時請求書,随時請求書,$han_name)
# #20518 2021.08.30 MOD STT
case($w_zeinuki_gaku_nohin,$hide_kingaku_flg,1,,@rs1.zeinuki_gaku)
case($w_zei_gaku_nohin,$hide_kingaku_flg,1,,@rs1.zei_gaku)
case($w_zeikomi_gaku_nohin,$hide_kingaku_flg,1,,@rs1.zeikomi_gaku)
#case($w_zeinuki_gaku,$rep_type,3,,2,,@rs1.zeinuki_gaku)
#case($w_zei_gaku,$rep_type,3,,2,,@rs1.zei_gaku)
#case($w_zeikomi_gaku,$rep_type,3,,@rs1.zeikomi_gaku)
case($w_zeinuki_gaku,$rep_type,3,,2,,$w_zeinuki_gaku_nohin)
case($w_zei_gaku,$rep_type,3,,2,,$w_zei_gaku_nohin)
case($w_zeikomi_gaku,$rep_type,3,,$w_zeikomi_gaku_nohin)
# #20518 2021.08.30 MOD END
case($w_seikyu_gaku,$rep_type,,@rs1.zeikomi_gaku,)
putcell($header,2,@rs0.report_title)
putcell($header,14,$w_zeinuki_gaku)
putcell($header,18,$w_zei_gaku)
putcell($header,22,$w_zeikomi_gaku)
putcell($header,27,$w_seikyu_gaku)
sum($header,1)
#14行目
putcell($header,2,@rs1.tok_cd)
putcell($header,14,@rs1.tok_hacyu_no_h)
sum($header,1)
subroutine(meisai_midashi)

# #18883 2021.06.16 MOD END

#-------------------------------------------------
#  振込機関出力処理
#-------------------------------------------------
[Furikomi]
putcell($furikomi,2,@rs2.furikikan)
sum($furikomi,1)

[seikyuF]
formatspecialrow($goukei,0,53,6)
#49行目
putcell($goukei,2,振込先:)
sum($goukei,1)
#振込先出力（切替予定）
#50行目
subroutine(SelectRecords_Furi)
#ループカウンタ設定
setdouble($furikomi,$goukei)
#振込機関出力処理
loop(Furikomi,@rs2)
sum($goukei,3)
#51行目
#putcell($goukei,2,支払条件:)
putcell($goukei,2,$tori_cond)
sum($goukei,1)

[syukaCHF]
formatspecialrow($goukei,0,62,6)
#49行目
putcell($goukei,26,伝票発行確認)
sum($goukei,1)
#振込先出力（切替予定）
#50行目
putcell($goukei,26,出荷明細)
putcell($goukei,28,納品書)
putcell($goukei,30,ワイズ請求)
#subroutine(SelectRecords_Furi)
#ループカウンタ設定
setdouble($furikomi,$goukei)
#振込機関出力処理
#loop(Furikomi,@rs2)
sum($goukei,3)
#51行目
#putcell($goukei,2,支払条件:)
#putcell($goukei,2,$tori_cond)
sum($goukei,1)


#-------------------------------------------------
#  フッタ処理_フッター
#-------------------------------------------------
[CreateFooter]
#合計数量
putcell($goukei,31,@rs1.suryo_kei_view)

# #18883 2021.06.16 MOD STT
#分岐不要
#case($TOK_ADDR_FT,$han_name,出荷明細書,0,1)#帳票タイトル
#case($ADDR_FT,$han_name,出荷明細書,1,0)#帳票タイトル
#iterate(tok_addr_ft,$TOK_ADDR_FT)
#iterate(addr_ft,$ADDR_FT)

case($w_addr1,$rep_type,3,,@rs1.addr1)
case($w_addr2,$rep_type,3,,@rs1.addr2)
case($w_addr3,$rep_type,3,,@rs1.addr3)
case($w_addr4,$rep_type,3,,@rs1.addr4)
case($w_nonyu_nm,$rep_type,3,,@rs1.nonyu_nm)

#フォーマット指定
formatspecialrow($goukei,0,40,10)
sum($goukei,1)
#支払条件セット
case($tori_cond_label,@rs1.tori_cond,,,支払条件:)
concatenate($tori_cond,$tori_cond_label,@rs1.tori_cond)
#納品先タイトルセット
case($nonyu_tit_label,@rs0.uri_tokadr_kbn,1,納品先情報：,)
case($w_zip_no,$rep_type,3,同上,@rs1.zip_no)
concatenate($zip_no,$nonyu_tit_label,$w_zip_no)
#納品先TELとFAX
case($nonyu_tel_label,@rs1.nonyu_tel,,,電話番号:)
case($nonyu_fax_label,@rs1.nonyu_fax,,,FAX番号:)
concatenate($nonyu_tel,$nonyu_tel_label,@rs1.nonyu_tel)
concatenate($nonyu_fax,$nonyu_fax_label,@rs1.nonyu_fax)
#37行目
putcell($goukei,2,$zip_no)
putcell($goukei,12,$nonyu_tel)
putcell($goukei,22,$nonyu_fax)
sum($goukei,1)
#38行目
putcell($goukei,2,$w_addr1)
sum($goukei,1)
#39行目
putcell($goukei,2,$w_addr2)
sum($goukei,1)
#40行目
putcell($goukei,2,$w_addr3)
sum($goukei,1)
#41行目
putcell($goukei,2,$w_addr4)
sum($goukei,1)
#42行目
putcell($goukei,2,$w_nonyu_nm)
sum($goukei,1)
#43行目
sum($goukei,1)
#44行目
putcell($goukei,2,備考欄:)
sum($goukei,1)
#45行目
putcell($goukei,2,@rs1.biko1)
sum($goukei,1)
#46行目
sum($goukei,1)

formatspecialrow($goukei,0,51,2)
#文言マスタの文節を結合する
#文言1行目
concatenate($mongon1,@rs0.mongon1,@rs0.mongon2)
#文言2行目
concatenate($mongon2,@rs0.mongon3,@rs0.mongon4,@rs0.mongon5)
#putcell($goukei,2,※銀行お振込の場合は、下記銀行口座へお振込頂けますようお願い致します。)
putcell($goukei,2,$mongon1)
sum($goukei,1)
#48行目
#putcell($goukei,2,　また、振り込み手数料につきましては、別途貴社ご負担にて合わせてお願い申し上げます。)
putcell($goukei,2,$mongon2)
sum($goukei,1)
#case($furikomosaki,$han_name,随時請求書,1,随時請求書(定価非表示),1,ご請求書,1,出荷チェック表,1,0)#帳票タイトル
case($furikomosaki,$rep_type,,1,0)
#請求書の場合フッタに振込先を出力
iterate(seikyuF,$furikomosaki)
#出荷チェック表フッタ
case($syukaCH_ft,$rep_type,2,1,0)
iterate(syukaCHF,$syukaCH_ft)

# #18883 2021.06.16 MOD END

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

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

#ヘッダ開始位置_初期
setdouble($header_stt,1)
#フッタ開始位置_初期
setdouble($goukei_stt,46)
#明細位置_納品書_初期
setdouble($cow_stt,16)
#改ページ位置_初期
setdouble($page,1)
#hin_cd出力制御
setdouble($need_hin_cd,@rs0.hin_cd_FLG)
#setdouble($hin_cd_put,0)

setdouble($kakuin_eig_mode,0)

dbselect(SelectLogo,@rs_logo,$param)
case($logo_flg,@rs_logo.image_cd,,0,1)
iterate(LoadLogoImage,$logo_flg)

dbselect(SelectSyaban,@rs_syab,$param)
case($syab_flg,@rs_syab.image_cd,,0,1)
iterate(LoadSyabImage,$syab_flg)

[LoadLogoImage]
new($param)
addparam($param,@rs_logo.image_cd)
dbselect(SelectImage,@rs_img,$param)
tempimage(logo,@rs_img.file_image)

[LoadSyabImage]
new($param)
addparam($param,@rs_syab.image_cd)
dbselect(SelectImageList,@rs_img_syab,$param)
loop(LoadSyabImageOne,@rs_img_syab)

[LoadSyabImageOne]
#tempimage(@rs_img_syab.image_cd,@rs_img_syab.file_image)
#TODO
case($kakuin_normal,@rs_img_syab.image_cd,kakuin,1,0)
case($kakuin_eig1,@rs_img_syab.image_cd,kakuin1,1,0)
case($kakuin_eig2,@rs_img_syab.image_cd,kakuin2,1,0)
iterate(LoadSyabImageOne_Normal,$kakuin_normal)
iterate(LoadSyabImageOne_Eig1,$kakuin_eig1)
iterate(LoadSyabImageOne_Eig2,$kakuin_eig2)

[LoadSyabImageOne_Normal]
tempimage(kakuin,@rs_img_syab.file_image)
[LoadSyabImageOne_Eig1]
tempimage(kakuin1,@rs_img_syab.file_image)
setdouble($kakuin_eig_mode,1)
[LoadSyabImageOne_Eig2]
tempimage(kakuin2,@rs_img_syab.file_image)
setdouble($kakuin_eig_mode,1)

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

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

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

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

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#明細開始位置_代入
setdouble($cow,$cow_stt)
#合計開始位置_代入
setdouble($goukei,$goukei_stt)
#ヘッダ作成
subroutine(CreateHeader)
#フッタ作成
subroutine(CreateFooter)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#改ページ処理
HPAGEBREAK($page)

setdouble($lines_per_page,63)
#setdouble($lines_per_page,58)

#ヘッダ開始位置_加算
sum($header_stt,$lines_per_page)
#合計開始位置_加算
sum($goukei_stt,$lines_per_page)
#明細位置_納品書_加算
sum($cow_stt,$lines_per_page)
#明細位置_物品受領書_加算
#sum($cow2_stt,$lines_per_page)
#改ページ位置_加算
sum($page,$lines_per_page)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
# #18883 2021.06.16 MOD STT
#分岐不要
#商品コード連続出力防止機能は一先ず無し
##商品ｺｰﾄﾞ連続出力ONOFF判定
#case($hin_cd_ON,$need_hin_cd,0,1,0)
#case($hin_cd_OFF,$need_hin_cd,1,1,0)
##常時商品ｺｰﾄﾞ出力
#iterate(hin_cd_ON,$hin_cd_ON)
##連続商品ｺｰﾄﾞ出力しない
#iterate(hin_cd_OFF,$hin_cd_OFF)

putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,7,@rs1.hin_nm)
sum($cow,1)
putcell($cow,3,@rs1.loc_no)
putcell($cow,7,@rs1.meisai_biko)
putcell($cow,24,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)
iterate(PrintNormal_disc,$show_disc_mode)
iterate(PrintNormal_no_disc,$hide_disc_mode)
sum($cow,1)

[PrintNormal_disc]
putcell($cow,16,@rs1.suryo)
putcell($cow,18,@rs1.htanka)
putcell($cow,22,@rs1.disc_per)

[PrintNormal_no_disc]
putcell($cow,22,@rs1.suryo)

# #18883 2021.06.16 MOD END