[Main]
#MAIN���̋L�ڂ͊�{�����R�s�[���A�K�v�ɉ����ďC���̂��ƁB
dbuse(true)
#3�–ڂ���sql�̃p�����[�^��ݒ肷��
#initparam(printMode,reportId,s_id)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,title,outputfile,s_id,option1)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
#SQL�Z�N�V�����̖��O��ݒ�
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#�`�敔�̃Z�N�V�������ASQL�Ŏ擾�����l���i�[����z�񖼁A���s���郋�[�`������ݒ�
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true)

#-------------------------------------------------
#  SQL���s_���Y�v��
#-------------------------------------------------
[SelectRecords_Footer]
new($param)
addparam($param,$uri_no)
dbselect(SelectRecords_Footer,@rs2,$param)

#-------------------------------------------------
#  SQL���s_�H���[��
#-------------------------------------------------
[SelectRecords_Process]
new($param)
addparam($param,$uri_no)
dbselect(SelectRecords_Process,@rs2,$param)

#-------------------------------------------------
#  SQL���s_����
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
#����������param�Ɋi�[�BSQL����&(����)�œn�����Ƃ��ł���B
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)
#�P�‚߂̈����Ŏw�肵��SQL�Z�N�V���������s���A2�–ڂ̈���(@rs1)�Ɏ擾�����l���i�[�A3�–ڂ̈����͏����p�����[�^)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  �t�b�^�[�쐬����
#-------------------------------------------------
[CreateFooter]
putcell($_row,2,@rs2.spec_naiyo)
putline(@rs2.spec_seq#,)
formatspecialrow($_row,0,37,1)

#-------------------------------------------------
#  Key1�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@rs1.den_no)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage(formats)
resetorg()

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
pageclose(false)

#-------------------------------------------------
#  Key2�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_Key2]
keyvalue(@rs1.den_no)
keybreakproc(GroupBegin_Key2,GroupEnd_Key2)

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_Key2]
#�w�b�_�쐬����
#putcell(�s,��,�l)�́A�w��̍s�񂪈�v����Z���Ɏw��̒l��`�悷��֐��B�l�ɂ�SQL�Ŏ擾�������̂��g����B

formatspecialrow(1,0,1,1)

putcell(2,1,���H�w�}��)
formatspecialrow(2,0,2,1)

putcell(3,1,NO:)
putcell(3,2,@rs1.kanri_no)
putcell(3,10,@rs1.syori_ymd)
formatspecialrow(3,0,3,1)

putcell(4,1,PO:)
putcell(4,2,@rs1.tok_hacyu_no_h)
formatspecialrow(4,0,4,1)

putcell(5,1,MESSRS.)
putcell(5,10,Shipping Mark)
formatspecialrow(5,0,5,1)

putcell(5,2,@rs1.tok_nm)
putcell(6,2,@rs1.addr1)
putcell(7,2,@rs1.addr2)
putcell(8,2,@rs1.tel_no)
putcell(9,2,@rs1.tok_tan)

putcell(9,10,@rs1.tok_nm)
#putcell(10,10,@rs1.?)
putcell(11,2,@rs1.nonyu_nm)
putcell(11,10,@rs1.addr2)
putcell(12,2,@rs1.konpo_keijo)
putcell(13,2,@rs1.biko6)
formatspecialrow(7,0,7,8)

putcell(11,1,CONSIGNEE:)
putcell(12,1,PACKING:)
putcell(13,1,SHIPMENT:)
formatspecialrow(11,0,11,3)

putcell(15,1,DESTINATION:)
putcell(16,1,PAYMENT:)
putcell(15,2,@rs1.biko4)
putcell(16,2,@rs1.payment_term)
formatspecialrow(15,0,15,2)

#TODO ���ߍ���
#putcell(17,8,BANK ADDRESS:)
#putcell(19,2,ACCOUNT NO:)
#putcell(20,2,SWIFT CODE:)

putcell(22,1,NO.)
putcell(22,2,TYPE)
putcell(22,3,KIND)
putcell(22,4,THICKNESS)
putcell(22,5,DESCRIPTION)
putcell(22,8,Q'TY)
putcell(22,10,UNIT PRICE)
putcell(22,12,AMOUNT)
formatspecialrow(22,0,22,1)

putcell(24,3,"YAMAMOTO" CLOSED CELL SPONGE RUBBER SHEETS)
putcell(24,10,@rs1.pay_kbn_nm)
formatspecialrow(24,0,24,1)
putcell(26,10,(per sheet))

#putcell(25,3,TYPE NO. 39-LL(BLACK)  Size: 1.40M X 2.20M (+/-5%) )

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_Key2]
#���v�s�쐬����
putcell($_row,5,@rs1.pay_kbn_nm)
putcell($_row,8,$jucyu_su_sum)
putcell($_row,9,@rs1.tani)
putcell($_row,12,$kingaku_sum)
formatspecialrow($_row,0,31,1)

#formatspecialrow($_row,0,$format_total,1)
putline(,,,,,,,$jucyu_su_sum#,,,$kingaku_sum#)

#�t�b�^�쐬����
#putline()
#formatspecialrow($_row,0,32,1)

putline()
putcell($_row,13,(In USD))
formatspecialrow($_row,0,33,1)

putline()
formatspecialrow($_row,0,34,2)

putline()

putcell($_row,1,���Y�v��)
formatspecialrow($_row,0,36,1)
putline()
formatspecialrow($_row,0,37,1)

#���Y�v��
subroutine(SelectRecords_Footer)
loop(CreateFooter,@rs2)

#�H���[��
putline()
putcell($_row,8,�\��[��)
formatspecialrow($_row,0,42,1)
putline()
subroutine(SelectRecords_Process)
loop(CreateProcess,@rs2)

#putcell($_row,2,�X�L)
#formatspecialrow($_row,0,43,7)
#putline()
#putcell($_row,2,�\��)
#putline()
#putcell($_row,2,SCS)
#putline()
#putcell($_row,2,������)
#putline()
#putcell($_row,2,�^����)
#putline()
#putcell($_row,2,����)
#putline()
#putcell($_row,2,�[��)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
#formatspecialrow(�J�n�s,�Ώۍs��,�t�H�[�}�b�g�̊J�n�s,�t�H�[�}�b�g�̑Ώۍs��)�́A��`�t�@�C���Ŏw�肳�ꂽ�A�G�N�Z���̌r�����̎Q�ƃt�H�[�}�b�g����A�`�悷�钠�[�ɏ������R�s�[����֐��B�`��t�@�C���̏�����ݒ肵�����s�ƍs�����ŏ��̂Q�����Ɏw�肵�A�R�s�[�����������̍s�ƍs�������̂Q�����Ɏw�肷��Bputcell�Ƃ͈Ⴂ�A�s�P�ʂŒl���ꊇ�`�悷��B�J���}��؂�ŃZ���̈ʒu���w�肷�邱�Ƃ��ł���Bputline�̊J�n�s�͒�`�t�@�C���̖��ח̈�ݒ蕔�̊J�n�s������n�܂�Bputline�����s���邽�тɍs����͎����ōs����i1�s���j
#formatspecialrow($_row,0,$format_meisai,1)
putline(@rs1.row_no#,@rs1.dhin_nm#,@rs1.kind_s#,@rs1.size_h#,@rs1.hin_nm_s#,,,@rs1.jucyu_su#,@rs1.tani#,@rs1.tanka#,,@rs1.kingaku#)
formatspecialrow(30,0,30,1)

sum($jucyu_su_sum,@rs1.jucyu_su)
sum($kingaku_sum,@rs1.kingaku)
#sum($kingaku_sum_j,@rs1.kingaku_j)
formatspecialrow($_row,0,30,1)

#-------------------------------------------------
#  �H���[��
#-------------------------------------------------
[CreateProcess]
formatspecialrow($_row,0,43,1)
putcell($_row,9,@rs2.koutei_ymd)
putline(,@rs2.koutei_nm#,,,@rs2.seizou_tan_nm#,,,,)