<%
if lorderno<>"" then
ldate= "20" & mid(lorderno,2,6)
lseq= mid(lorderno,9,4)
set Rsorder=dbsql.execute("SELECT a.crp_id, a.plan_date, a.goods_class, a.ord_date, a.ord_seq, a.pallet_cnt, a.proc_cd, a.proc_cd1, (select proc_nm from stb160t(nolock) where proc_cd = a.proc_cd1) proc_nm, a.plan_qty, a.prod_qty, a.chk_bit, a.bar_code, a.loc_no, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end work_nm, a.plan_t, a.pallet_qty, a.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = a.cust_cd) cust_nm, a.nap_cd, (select nap_nm from stb030t(nolock) where crp_id = '10' and cust_cd = a.cust_cd and nap_cd = a.nap_cd) nap_nm, dbo.usf_no('B', '1', a.ord_date, a.ord_seq, 4, '-') ord_no, b.good_nm, a.bar_prt, a.prt_chk, a.prt_date, a.prt_time, case b.good_nm when d.good_nm then '' else d.good_nm end item_nm, right(a.ord_date,6) + right('0000' + convert(varchar(4), a.ord_seq), 4) ord_no2, e.note, right(e.job_date,6) del_date, case e.team_class when '0' then '1S' when '1' then '2S' when '2' then '3S' end del_team, isnull(a.del_chk,'0') del_chk, a.lot_no FROM bar_code a(nolock) left outer join (select barcode, in_qty from barcode_inout(nolock) where kubun = '1' ) c on a.bar_code = c.barcode left outer join (select bar_code, note, job_date, team_class from barcodedel) e on a.bar_code = e.bar_code, stb040t d(nolock), boa010t b(nolock) where a.crp_id = b.crp_id and a.goods_class = b.goods_class and a.ord_date = b.ord_date and a.ord_seq = b.ord_seq and b.del_yn = '0' and b.cust_cd = d.cust_cd and b.good_cd = d.good_cd and a.crp_id = '10' and a.goods_class = '2' and a.ord_date = '" & ldate & "' and a.ord_seq = '" & lseq & "' order by a.crp_id, a.proc_cd, a.proc_cd1, a.goods_class, a.ord_date, a.ord_seq, a.pallet_cnt")
if rsorder.eof and rsorder.bof then
else
%>
<%
'totpage=INT(rsorder("plan_qty")/lqtypallet)+1
'xpage=1
'xtotqty=int(rsorder("plan_QTY"))
'lqtypallet2=lqtypallet
lfield=chr(47)
lloteno="B"&trim(lorderno)
do while not rsorder.eof
lqtypalletx=right("0000"&rsorder("pallet_qty"),4)
%>
|
SINIL INDUSTRY | |
| CUSTOMER | <%=rsorder("CUST_nm") %> | |
| <%="*"+trim(rsorder("bar_code"))+"*"%> | ||
| ITEM | <%=rsorder("good_nm") %> | |
| ORDER NO | B<%=lorderno %> | <%=rsorder("prt_date") %> |
| Machine | <%=rsorder("proc_nm") %> | Pallet: <%=rsorder("pallet_cnt") %> |
| QUANTITY | <%=rsorder("pallet_qty") %> | |
| <%="*"&trim(trim(rsorder("good_nm"))&trim(lfield)&trim(lloteno)&trim(lfield)&trim(lqtypalletx)&trim(lfield)&trim(rsorder("prt_date")))&"*"%> | ||
| <%="*"&trim(trim(rsorder("good_nm"))&"B"&trim(lorderno)&trim(lqtypalletx)&trim(rsorder("prt_date")))&"*"%> | ||
<%
end if
'xpage=xpage+1
'xtotqty=int(xtotqty)-lqtypallet
'if int(xtotqty)>int(lqtypallet) then
' lqtypallet2=lqtypallet
'
'else
' lqtypallet2=(xtotqty)
'end if
loop
end if
rsorder.close
set rsorder = nothing
end if
%>