<%@ LANGUAGE = "VBScript" %> <% Session.Timeout = 120 Server.ScriptTimeout = 5000 busca=request.QueryString("busca") doc=request.QueryString("doc") origen=request.QueryString("origen") Date_ini=Request.Form("Date_ini") Date_end=Request.Form("Date_end") lvende=Request.Form("cvende") cmes=Request.Form("cmes") canno=Request.Form("canno") 'if cmes="" then ' cmes=month(date) ' canno=year(date) 'end if lspace=" " apostrofe="'" if Date_ini="" or Date_ini=null then Date_ini=date()-(day(date()))+1 Date_end=date() end if '''''''''''calcula layer=weekday(date()-1) If layer = 1 Then Date_ini=date()-3 Date_end=date()-3 else if layer=7 then Date_ini=date()-2 Date_end=date()-2 else Date_ini=date()-1 Date_end=date()-1 end if end if '************** Transfer strday = Right("00" & Day(date), 2) strmonth = Right("00" & Month(date), 2) stryear = Right("00" & Year(date), 4) strday2 = Right("00" & Day(date+1), 2) strmonth2 = Right("00" & Month(date)+1, 2) stryear2 = Right("00" & Year(date+1), 4) lmonth = Month(Date)-1 'lmonth =4 If lmonth = 1 Or lmonth = 3 Or lmonth = 5 Or lmonth = 7 Or lmonth = 8 Or lmonth = 10 Or lmonth = 0 Then ldiasmes = 31 End If If lmonth = 2 Then ldiasmes = 29 End If If lmonth = 4 Or lmonth = 6 Or lmonth = 9 Or lmonth = 11 Then ldiasmes = 30 End If lmonth1 = Month(Date) 'lmonth1 = 5 If lmonth1 = 1 Or lmonth1 = 3 Or lmonth1 = 5 Or lmonth1 = 7 Or lmonth1 = 8 Or lmonth1 = 10 Or lmonth1 = 12 Then ldiasmes1 = 31 End If If lmonth1 = 2 Then ldiasmes1 = 29 End If If lmonth1 = 4 Or lmonth1 = 6 Or lmonth1 = 9 Or lmonth1 = 11 Then ldiasmes1 = 30 End If strmesini = Right("00" & lmonth, 2) strday2 = Right("00" & ldiasmes, 2) if cmes="" then cmes=right("00"&month(date),2) canno=right("0000"&year(date),4) lfecinicio= CStr(canno & cmes & "01") lfecfinal= CStr(canno & cmes & ldiasmes1) lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01") else lmonth = cmes 'lmonth =4 If lmonth = 1 Or lmonth = 3 Or lmonth = 5 Or lmonth = 7 Or lmonth = 8 Or lmonth = 10 Or lmonth = 0 Then ldiasmes = 31 End If If lmonth = 2 Then ldiasmes = 29 End If If lmonth = 4 Or lmonth = 6 Or lmonth = 9 Or lmonth = 11 Then ldiasmes = 30 End If cmes2=right("00"&cmes,2) canno=right("0000"&year(date),4) lfecinicio= CStr(canno & cmes2 & "01") lfecfinal= CStr(canno & cmes2 & ldiasmes) lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01") end if 'lfecinicio 'lfecfinal 'Set rsvende = Server.CreateObject("ADODB.RecordSet") xtipo="VENDEDOR" 'rsvende.CursorType = adOpenDynamic 'set rsvende=dbsql.execute("SELECT major_cd, minor_cd, code_nm FROM sta010t WHERE (((major_cd)='9001')) ORDER BY minor_cd") %> Report Transfer
       
Period:  
         
<% header if busca="" or busca=null then origen=doc end if d="/" ctipomov1="FACTURA" ctipomov2="REMISION" sla="/" cero1="00" cero2="0000" 'lfecinicio= "20160501" 'lfecfinal= "20160601" 'lfecinicial="20160501" response.write("FROM: "&lfecinicio&" ") 'response.write(lfecinicio&" ") response.write("TO: "&lfecfinal&"
") ReDim TransDias(ldiasmes,45) ReDim Trucking(ldiasmes,5) Dim Rstrans Dim sqltrans set Rstrans=dbsql.execute("select b.local_cd, (select code_nm from sta010t(nolock) where major_cd = '9016' and minor_cd = b.local_cd) local_nm, right(a.real_trans ,6) trans_date,b.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd) cust_nm, b.item, b.ord_no, a.pallet_cnt, b.qty prod_qty, b.price, c.mae_m2, round(b.qty * b.price,3) prod_amt, round(c.mae_m2 * b.qty,0) prod_m2, (select code_nm from sta010t(nolock) where major_cd = '2004' and minor_cd = a.trans_class) work_gubun, case isnull(b.loc_no,'') when '' then '' else (select code_nm from sta010t(nolock) where major_cd = '9160' and minor_cd = b.loc_no) end loc_no, a.trans_time, right(a.prt_date,6) prt_day,d.item_class, 1 cnt from bar_code a(nolock), inout_table b(nolock), boa010t c(nolock), stb040t d(nolock) where a.bar_code = b.bar_code and b.class = '1' and a.chk_bit = '1' and a.crp_id = '10' and b.local_cd like '%' and a.goods_class = c.goods_class and a.ord_date = c.ord_date and a.ord_seq = c.ord_seq and c.cust_cd = d.cust_cd and c.good_cd = d.good_cd and a.real_trans between '" & lfecinicio & "' and '" & lfecfinal & "' and b.cust_cd like '%' and b.item like '%' and a.trans_class like '%' and b.loc_no like '%' and d.item_class like '%' and b.local_cd= (case when a.loc_no='TR' then '1' else '3' end) order by a.real_trans , a.trans_time, b.cust_cd, b.item, b.ord_no,b.local_cd, a.trans_class, case when a.trans_date <> a.real_trans then '1' else '0' end , a.pallet_cnt") 'and b.prod_flag = '1' If Rstrans.EOF And Rstrans.BOF Then 'response.write("No existen datos") ExisteUsuario = False Msg = "No records exist for this date." Style = vbDefaultButton2 Title = "Msg from System" Help = "" ctxt = 1000 'Response = MsgBox(Msg, Style, Title, Help, ctxt) Else lsamsungqty=0 lsamq1=0 lsamq2=0 lsammt1=0 lsammt2=0 lsama1=0 lsama2=0 lsamsungqty1s=0 lsamsungqty2s=0 lsamsungqty3s=0 lsamsungqty4s=0 lsamsungm2=0 lsamsungm21s=0 lsamsungm22s=0 lsamsungm23s=0 lsamsungm24s=0 lsamsungamt=0 lotherqty=0 lotherm2=0 lotheramt=0 lTotalQty = 0 lTotalM2 = 0 lTotalAmt =0 lOBxQty=0 lOBxM2=0 lOBxAmt=0 lqty12=0 lqty2s=0 lqty3s=0 lm21s=0 lm22s=0 lm23s=0 lsamvb=0 lOTsamsungqty=0 lOBxqty1s=0 lOBxqty2s=0 lOBxqty3s=0 lOBxqtybd3s1=0 lOBxqtybd3s2=0 lOBxqtybd3s3=0 Rstrans.MoveFirst ltransdate1=Rstrans("trans_date") ltranstime1=Rstrans("trans_time") lcte=0 'response.write("hora: "&Rstrans("trans_time")) Do While Not Rstrans.EOF ltranstime=Rstrans("trans_time") 'lqtyinven = lqtyinven + cdbl(Rstrans("prod_qty")) 'lamtinven = lamtinven + cdbl(Rstrans("price")) localm2=cdbl(Rstrans("prod_m2")) lTotalQty = lTotalQty+ cdbl(Rstrans("prod_qty")) lTotalM2 = lTotalM2+ cdbl(localm2) lTotalAmt = lTotalAmt+ cdbl(Rstrans("prod_amt")) litemclass="00" 'lm2inven = lm2inven + cdbl(localm2) litemclass=Rstrans("item_class") if ltranstime>"064959" and ltranstime<"152000" then 'lsamsungqty1s=lsamsungqty1s+ cdbl(Rstrans("prod_qty")) 'lsamsungm21s= lsamsungm21s+ cdbl(localm2) lqty1s=lqty1s+ cdbl(Rstrans("prod_qty")) lm21s= lm21s+ cdbl(localm2) end if if ltranstime>"151959" and ltranstime<"232000" then 'lsamsungqty2s=lsamsungqty2s+ cdbl(Rstrans("prod_qty")) 'lsamsungm22s= lsamsungm22s+ cdbl(localm2) lqty2s=lqty2s+ cdbl(Rstrans("prod_qty")) lm22s= lm22s+ cdbl(localm2) end if if ltranstime>"231959" then 'lsamsungqty4s=lsamsungqty4s+ cdbl(Rstrans("prod_qty")) 'lsamsungm234= lsamsungm24s+ cdbl(localm2) lqty4s=lqty4s+ cdbl(Rstrans("prod_qty")) lm24s= lm24s+ cdbl(localm2) lshift=4 end if if ltranstime<"065000" then lshift=3 'lsamsungqty3s=lsamsungqty3s+ cdbl(Rstrans("prod_qty")) 'lsamsungm23s= lsamsungm23s+ cdbl(localm2) lqty3s=lqty3s+ cdbl(Rstrans("prod_qty")) lm23s= lm23s+ cdbl(localm2) end if if Rstrans("cust_cd")="20001" then 'CTE lcte=1 lsamsungqty=lsamsungqty+ cdbl(Rstrans("prod_qty")) lsamsungm2= lsamsungm2+ cdbl(localm2) lsamsungamt= lsamsungamt+ cdbl(Rstrans("prod_amt")) if litemclass="03" then 'lsamq1=lsamq1+ cdbl(Rstrans("prod_qty")) 'lsammt1= lsammt1+ cdbl(localm2) 'lsama1= lsama1+ cdbl(Rstrans("prod_amt")) lsamvb=lsamvb+ cdbl(Rstrans("prod_qty")) else ''''''''''''''''''''********* O/B SAMSUNG set Rsinven2=cnn.execute("select * from SamsungItems where good_nm='" & Rstrans("item") & "'") if not Rsinven2.eof then 'RS rsinven2.movefirst ltypeBox=rsinven2("Note_4") ltypeBox2=rsinven2("Note_5") if rsinven2("Note_5")= "INBOX / PAD" or rsinven2("Note_5")= "NA" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) 'lOTsamsungM2 = lOTsamsungM2 + localm2 'lOTsamsungamt =lOTsamsungamt+ cdbl(Rstrans("prod_amt")) litemx=rsinven2("Note_5")&"ot" 'lOTSamsungWH3 = lOTSamsungWH3 + cdbl(Rstrans("prod_qty")) 'lOTSamsungWH4 = lOTSamsungWH4 + cdbl(Rstrans("prod_qty")) 'lOTSamsungWH1 = lOTSamsungWH1 + cdbl(Rstrans("prod_qty")) else if Rstrans("local_nm")="WH1" then lOBxqty = lOBxqty + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"152000" then lOBxqty1s = lOBxqty1s + cdbl(Rstrans("prod_qty")) end if if ltranstime>"151959" and ltranstime<"232000" then lOBxqty2s = lOBxqty2s + cdbl(Rstrans("prod_qty")) end if if ltranstime>"231959" or ltranstime<"065000" then lOBxqty3s = lOBxqty3s + cdbl(Rstrans("prod_qty")) end if else lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"152000" then lOBxqtybd3s1 = lOBxqtybd3s1 + cdbl(Rstrans("prod_qty")) end if if ltranstime>"151959" and ltranstime<"232000" then lOBxqtybd3s2 = lOBxqtybd3s2 + cdbl(Rstrans("prod_qty")) end if if ltranstime>"231959" or ltranstime<"065000" then lOBxqtybd3s3 = lOBxqtybd3s3 + cdbl(Rstrans("prod_qty")) end if end if lOBxM2 = lOBxM2 + localm2 lOBxAmt =lOBxAmt + cdbl(Rstrans("prod_amt")) litemx=rsinven2("Note_5") 'lOBSamsung2WH3 = lOBSamsung2WH3 + cdbl(Rstrans("prod_qty")) 'lOBSamsung2WH4 = lOBSamsung2WH4 + cdbl(Rstrans("prod_qty")) 'lOBSamsung2WH1 = lOBSamsung2WH1 + cdbl(Rstrans("prod_qty")) end if 'PAD else lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) 'lOTsamsungM2 = lOTsamsungM2 + localm2 'lOTsamsungamt =lOTsamsungamt+ cdbl(Rstrans("prod_amt")) litemx="no" end if 'RS Rsinven2.Close Set Rsinven2 = Nothing '''''''''''''''''''''*********O/B SAMSUNG end if else lotherqty= lotherqty+ cdbl(Rstrans("prod_qty")) lotherm2= lotherm2+ cdbl(localm2) lotheramt= lotheramt+ cdbl(Rstrans("prod_amt")) litemx="No samsung" end if 'CTE Rstrans.MoveNext if not Rstrans.eof then ltransdate2=Rstrans("trans_date") ltranstime2=Rstrans("trans_time") end if if (ltransdate1<>ltransdate2 ) or Rstrans.eof then xdia=int(right(ltransdate1,2)) 'response.write("cdia "&xdia) TransDias(xdia,0)=xdia TransDias(xdia,1)=lsamsungqty TransDias(xdia,2)=lsamsungm2 TransDias(xdia,3)=lsamsungamt TransDias(xdia,4)=lotherqty TransDias(xdia,5)=lotherm2 TransDias(xdia,6)=lotheramt TransDias(xdia,7)=lTotalQty TransDias(xdia,8)=lTotalM2 TransDias(xdia,9)=lTotalAmt TransDias(xdia,10)=lqty1s TransDias(xdia,11)=lqty2s TransDias(xdia,12)=lqty3s+lqty4s TransDias(xdia,13)=lm21s TransDias(xdia,14)=lm22s TransDias(xdia,15)=lm23s+lm24s TransDias(xdia,21)=lsamvb TransDias(xdia,22)=lOTsamsungqty TransDias(xdia,23)=lsama1 TransDias(xdia,24)=lOBxqty TransDias(xdia,25)=lOBxM2 TransDias(xdia,26)=lOBxAmt TransDias(xdia,27)=lOBxqtybd3 TransDias(xdia,28)=lOBxprodbd1 TransDias(xdia,29)=lOBxprodbd3 TransDias(xdia,36)=lOBxqty1s TransDias(xdia,37)=lOBxqty2s TransDias(xdia,38)=lOBxqty3s TransDias(xdia,39)=lOBxqtybd3s1 TransDias(xdia,40)=lOBxqtybd3s2 TransDias(xdia,41)=lOBxqtybd3s3 lsamsungqty=0 lsamsungm2=0 lsamsungamt=0 lqty1s=0 lqty2s=0 lqty3s=0 lqty4s=0 lm2=0 lm21s=0 lm22s=0 lm23s=0 lm24s=0 lgamt=0 lotherqty=0 lotherm2=0 lotheramt=0 lTotalQty = 0 lTotalM2 = 0 lTotalAmt =0 ltransdate1=ltransdate2 lsamvb=0 lOTsamsungqty=0 lsamq2=0 lsammt1=0 lsammt2=0 lsama1=0 lsama2=0 lOBxqty=0 lOBxM2=0 lOBxAmt=0 lOBxqtybd3=0 lOBxprodbd1=0 lOBxprodbd3=0 lOBxqty1s=0 lOBxqty2s=0 lOBxqty3s=0 lOBxqtybd3s1=0 lOBxqtybd3s2=0 lOBxqtybd3s3=0 else end if 'end if Loop End If lxx=0 'if lxx=1 then lfecini2=lfecinicio 'lfecini2= Right("00" & year(Date()-1), 4)&Right("00" & month(Date()-1), 2)&Right("00" & Day(Date()-1), 2) lfecfin2=lfecinicio 'lfecfin2= Right("00" & year(Date()-1), 4)&Right("00" & month(Date()-1), 2)&Right("00" & Day(Date()-1), 2) 'response.write("fecha fin "&lfecfin2) do while lfecini2 <= lfecfinal 'response.write(" fecha ini "&lfecini2) 'response.write(" fecha fin "&lfecfin2) set Rsprod=dbsql.execute("select a.prod_date, right(a.prod_date,6) prod_day, case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3 else a.proc_cd2 end else a.proc_cd1 end proc_cd, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end as wrok_gubun_nm,b.cust_cd, b.good_nm, b.ord_qty, c.plan_qty, a.real_prod_qty, round(a.real_prod_qty * b.mae_m2 , 0) as prod_m2,a.bad_qty, a.extra_qty, isnull(a1.inv_qty,0) as inv_qty from bob030t a(nolock) left outer join ( select crp_id, goods_class, ord_date, ord_seq, plan_date, plan_seq, sum(plan_qty) plan_qty from bob010t(nolock) group by crp_id, goods_class, ord_date, ord_seq, plan_date, plan_seq) c on a.crp_id = c.crp_id and a.goods_class = c.goods_class and a.ord_date = c.ord_date and a.ord_seq = c.ord_seq and a.plan_date = c.plan_date and a.plan_seq = c.plan_seq left outer join ( select a.crp_id, a.ord_no, sum(a.qty) inv_qty from inout_table a(nolock), bar_code b(nolock) where a.ord_no = 'B1' + substring(b.ord_date,3,6) + '-' + right('0000' + convert(varchar(4), b.ord_seq), 4) and b.chk_bit = '1' and b.bar_code = a.bar_code and b.trans_date = a.job_date and a.class = '1' group by a.crp_id, a.ord_no) a1 on a.crp_id = a1.crp_id and 'B1' + substring(a.ord_date,3,6) + '-' + right('0000' + convert(varchar(4), a.ord_seq), 4) = a1.ord_no, boa010t b(nolock) where a.crp_id = b.crp_id and b.cust_cd='20001' 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 a.crp_id = '10' and (a.prod_date) between '" & lfecini2 & "' and '" & lfecfin2 & "' order by a.prod_date, b.good_nm, case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3 else a.proc_cd2 end else a.proc_cd1 end, a.ord_date, a.ord_seq") If Rsprod.EOF And Rsprod.BOF Then 'response.write("No existen datos. Prod") Else lOBxprodbd1=0 lOBxprodbd3=0 lOBxprodbd1lam=0 lOBxprodbd3lam=0 Rsprod.MoveFirst TransDias(0,28)=lOBxprodbd1 TransDias(0,29)=lOBxprodbd3 TransDias(0,30)=lOBxprodbd1lam TransDias(0,31)=lOBxprodbd3lam lproddate1=Rsprod("prod_date") lcte=0 Do While Not Rsprod.EOF if Rsprod("cust_cd")="20001" then 'CTE lcte=1 ''''''''''''''''''''********* O/B SAMSUNG set Rsinven2=cnn.execute("select * from SamsungItems where good_nm='" & Rsprod("good_nm") & "'") if not Rsinven2.eof then 'RS rsinven2.movefirst if rsinven2("Note_5")= "INBOX / PAD" or rsinven2("Note_5")= "NA" then 'PAD else if rsinven2("Note_5")= "FULL LITHO" or rsinven2("Note_5")= "PRINTING" or rsinven2("Note_5")= "SPOT" then if Rsprod("proc_cd")=551 or Rsprod("proc_cd")=501 then if Rsprod("proc_cd")=551 then lOBxprodBD3 = lOBxprodBD3 + cdbl(Rsprod("real_prod_qty")) else lOBxprodBD3lam = lOBxprodBD3lam + cdbl(Rsprod("real_prod_qty")) end if else if (Rsprod("proc_cd")>230 and Rsprod("proc_cd")<241) or Rsprod("proc_cd")=246 or Rsprod("proc_cd")=247 then lOBxprodbd1 = lOBxprodbd1 + cdbl(Rsprod("real_prod_qty")) else lOBxprodbd1lam = lOBxprodbd1lam + cdbl(Rsprod("real_prod_qty")) end if end if ELSE END IF end if 'PAD else 'lOTSamsungqty = lOTSamsungqty + cdbl(Rsprod("real_prod_qty")) ' litemx="no" end if 'RS Rsinven2.Close Set Rsinven2 = Nothing '''''''''''''''''''''*********O/B SAMSUNG else 'lotherqty= lotherqty+ cdbl(Rsprod("real_prod_qty")) 'lotherm2= lotherm2+ cdbl(localm2) 'litemx="No samsung" end if 'CTE Rsprod.MoveNext if not Rsprod.eof then lproddate2=Rsprod("prod_date") end if if (lproddate1<>lproddate2 ) or Rsprod.eof then xdia=int(right(lproddate1,2)) TransDias(xdia,28)=lOBxprodbd1 TransDias(xdia,29)=lOBxprodbd3 TransDias(xdia,30)=lOBxprodbd1lam TransDias(xdia,31)=lOBxprodbd3lam lOBxprodbd1=0 lOBxprodbd3=0 lOBxprodbd1lam=0 lOBxprodbd3lam=0 else end if Loop End If lfecini3=int(lfecini2)+1 lfecini2=cstr(lfecini3) lfecfin2=cstr(lfecini3) loop 'set Rstruck=dbsql.execute("SELECT a.good_date, a.cust_cd, (select max(mae_m2) from boa010t where good_cd=(a.good_cd) and cust_cd=a.cust_cd) * (a.sales_qty) as totm2 FROM sal022t AS a WITH (nolock) WHERE (a.good_date between '" & lfecinicio & "' and '" & lfecfinal & "') ORDER BY a.good_date, a.cust_cd" ' If Rstruck.EOF And Rstruck.BOF Then ' response.write("No existen datos. Trucking") ' ExisteUsuario = False ' Msg = "No records exist for this date. Trucking cost" ' Style = vbDefaultButton2 ' Title = "Msg from System" ' Help = "" ' ctxt = 1000 ' 'Response = MsgBox(Msg, Style, Title, Help, ctxt) ' Else ' TotTruck=0 ' TruckSamsung=0 ' TruckOther=0 ' M2total=0 ' M2Samsung=0 ' M2Other=0'' ' if not Rstruck.eof then ' ltruckdate1=Rstruck("good_date") ' ltruckcte1=Rstruck("cust_cd") ' end if ' Do While Not Rstruck.EOF ' ' ' if Rstruck("trans_date")="20001" then ' ' End if ' ' Rstruck.MoveNext ' if not Rstruck.eof then ' ltruckdate2=Rstruck("good_date") ' ltruckcte2=Rstruck("cust_cd") ' end if ' ' if (ltruckdate1<>ltruckdate2 ) or Rstruck.eof then ' ' xdia=int(right(ltransdate1,2)) ' TransDias(xdia,0)=xdia ' TransDias(xdia,1)=lsamsungqty ' TransDias(xdia,2)=lsamsungm2 ' TransDias(xdia,3)=lsamsungamt ' ' 'loop ' End if 'end if Rstrans.Close Set Rstrans = Nothing Rsprod.Close Set Rsprod = Nothing dbsql.Close Set dbsql = Nothing dbsql2.Close Set dbsql2 = Nothing dbsql3.Close Set dbsql3 = Nothing %>
TRANSFER (by day) <% xnumerodias=0 for i=lbound(TransDias) to ubound(TransDias) %> <% if TransDias(i,0)>0 then xnumerodias=xnumerodias+1 end if next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamq1=xtotalsamq1+TransDias(i,21) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xstotalsamq1=xstotalsamq1+TransDias(i,22) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd1f=xOBbd1f+TransDias(i,28) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd1l=xOBbd1l+TransDias(i,30) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB1s=xtotalsamqtyOB1s+TransDias(i,36) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB2s=xtotalsamqtyOB2s+TransDias(i,37) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB3s=xtotalsamqtyOB3s+TransDias(i,38) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB=xtotalsamqtyOB+TransDias(i,24) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd3f=xOBbd3f+TransDias(i,29) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd3l=xOBbd3l+TransDias(i,31) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd31s=xtotalsamqtyOBbd31s+TransDias(i,39) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd32s=xtotalsamqtyOBbd32s+TransDias(i,40) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd33s=xtotalsamqtyOBbd33s+TransDias(i,41) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd3=xtotalsamqtyOBbd3+TransDias(i,27) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotf=xtotf+TransDias(i,28)+TransDias(i,29) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotl=xtotl+TransDias(i,30)+TransDias(i,31) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd31=xtotalsamqtyOBbd31+TransDias(i,36)+TransDias(i,39) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd32=xtotalsamqtyOBbd32+TransDias(i,37)+TransDias(i,40) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd33=xtotalsamqtyOBbd33+TransDias(i,38)+TransDias(i,41) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtott=xtott+TransDias(i,24)+TransDias(i,27) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm2OB=xtotalsamm2OB+TransDias(i,25) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamamtOB=xtotalsamamtOB+TransDias(i,26) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty=xtotalsamqty+TransDias(i,1) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm2=xtotalsamm2+TransDias(i,2) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamamt=xtotalsamamt+TransDias(i,3) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalothqty=xtotalothqty+TransDias(i,4) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalothm2=xtotalothm2+TransDias(i,5) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalothamt=xtotalothamt+TransDias(i,6) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty1s=xtotalsamqty1s+TransDias(i,10) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty2s=xtotalsamqty2s+TransDias(i,11) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty3s=xtotalsamqty3s+TransDias(i,12) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalqty=xtotalqty+TransDias(i,7) next %> <% m2=0 if m2=1 then %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm21s=xtotalsamm21s+TransDias(i,13) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm22s=xtotalsamm22s+TransDias(i,14) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm23s=xtotalsamm23s+TransDias(i,15) next %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalm2=xtotalm2+TransDias(i,8) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalamt=xtotalamt+TransDias(i,9) next %>
<%=MonthName(Month(Date), False) %> Generated: <%=time%>
<%=TransDias(i,0)%>
TOTAL
AVG
Samsung VB  
<%=formatnumber(TransDias(i,21),0)%>
<%=formatnumber(xtotalsamq1,0)%>
<%=formatnumber(xtotalsamq1/xnumerodias,0)%>
Samsung Others  
<%=formatnumber(TransDias(i,22),0)%>
<%=formatnumber(xstotalsamq1,0)%>
<%=formatnumber(xstotalsamq1/xnumerodias,0)%>
Samsung O/B QTY BD 1 Prod F
<%=formatnumber(TransDias(i,28),0)%>
<%=formatnumber(TransDias(i,28),0)%>
<%=formatnumber(xOBbd1f,0)%>
<%=formatnumber(xOBbd1f/xnumerodias,0)%>
BD 1 Prod L
<%=formatnumber(TransDias(i,30),0)%>
<%=formatnumber(TransDias(i,30),0)%>
<%=formatnumber(xOBbd1l,0)%>
<%=formatnumber(xOBbd1l/xnumerodias,0)%>
T 1S
<%=formatnumber(TransDias(i,36),0)%>
<%=formatnumber(TransDias(i,36),0)%>
<%=formatnumber(xtotalsamqtyOB1s,0)%>
<%=formatnumber(xtotalsamqtyOB1s/xnumerodias,0)%>
T 2S
<%=formatnumber(TransDias(i,37),0)%>
<%=formatnumber(TransDias(i,37),0)%>
<%=formatnumber(xtotalsamqtyOB2s,0)%>
<%=formatnumber(xtotalsamqtyOB2s/xnumerodias,0)%>
T 3S
<%=formatnumber(TransDias(i,38),0)%>
<%=formatnumber(TransDias(i,38),0)%>
<%=formatnumber(xtotalsamqtyOB3s,0)%>
<%=formatnumber(xtotalsamqtyOB3s/xnumerodias,0)%>
BD 1 Trans
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(xtotalsamqtyOB,0)%>
<%=formatnumber(xtotalsamqtyOB/xnumerodias,0)%>
BD 3 Prod F
<%=formatnumber(TransDias(i,29),0)%>
<%=formatnumber(TransDias(i,29),0)%>
<%=formatnumber(xOBbd3f,0)%>
<%=formatnumber(xOBbd3f/xnumerodias,0)%>
BD 3 Prod L
<%=formatnumber(TransDias(i,31),0)%>
<%=formatnumber(TransDias(i,31),0)%>
<%=formatnumber(xOBbd3l,0)%>
<%=formatnumber(xOBbd3l/xnumerodias,0)%>
1S
<%=formatnumber(TransDias(i,39),0)%>
<%=formatnumber(TransDias(i,39),0)%>
<%=formatnumber(xtotalsamqtyOBbd31s,0)%>
<%=formatnumber(xtotalsamqtyOBbd31s/xnumerodias,0)%>
2S
<%=formatnumber(TransDias(i,40),0)%>
<%=formatnumber(TransDias(i,40),0)%>
<%=formatnumber(xtotalsamqtyOBbd32s,0)%>
<%=formatnumber(xtotalsamqtyOBbd32s/xnumerodias,0)%>
3S
<%=formatnumber(TransDias(i,41),0)%>
<%=formatnumber(TransDias(i,41),0)%>
<%=formatnumber(xtotalsamqtyOBbd33s,0)%>
<%=formatnumber(xtotalsamqtyOBbd33s/xnumerodias,0)%>
BD 3 Trans
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(xtotalsamqtyOBbd3,0)%>
<%=formatnumber(xtotalsamqtyOBbd3/xnumerodias,0)%>
Total Prod
<%=formatnumber(TransDias(i,28)+TransDias(i,29),0)%>
<%=formatnumber(TransDias(i,28)+TransDias(i,29),0)%>
<%=formatnumber(xtotf,0)%>
<%=formatnumber(xtotf/xnumerodias,0)%>
<%=formatnumber(TransDias(i,30)+TransDias(i,31),0)%>
<%=formatnumber(TransDias(i,30)+TransDias(i,31),0)%>
<%=formatnumber(xtotl,0)%>
<%=formatnumber(xtotl/xnumerodias,0)%>
1s:
<%=formatnumber(TransDias(i,36)+TransDias(i,39),0)%>
<%=formatnumber(TransDias(i,36)+TransDias(i,39),0)%>
<%=formatnumber(xtotalsamqtyOBbd31,0)%>
<%=formatnumber(xtotalsamqtyOBbd31/xnumerodias,0)%>
2s:
<%=formatnumber(TransDias(i,37)+TransDias(i,40),0)%>
<%=formatnumber(TransDias(i,37)+TransDias(i,40),0)%>
<%=formatnumber(xtotalsamqtyOBbd32,0)%>
<%=formatnumber(xtotalsamqtyOBbd32/xnumerodias,0)%>
3s:
<%=formatnumber(TransDias(i,38)+TransDias(i,41),0)%>
<%=formatnumber(TransDias(i,38)+TransDias(i,41),0)%>
<%=formatnumber(xtotalsamqtyOBbd33,0)%>
<%=formatnumber(xtotalsamqtyOBbd33/xnumerodias,0)%>
Total Trans
<%=formatnumber(TransDias(i,24)+TransDias(i,27),0)%>
<%=formatnumber(TransDias(i,24)+TransDias(i,27),0)%>
<%=formatnumber(xtott,0)%>
<%=formatnumber(xtott/xnumerodias,0)%>
Samsung O/B M2  
<%=formatnumber(TransDias(i,25),0)%>
<%=formatnumber(xtotalsamm2OB,0)%>
<%=formatnumber(xtotalsamm2OB/xnumerodias,0)%>
Samsung O/B AMT  
<%=formatnumber(TransDias(i,26),0)%>
<%=formatnumber(xtotalsamamtOB,0)%>
<%=formatnumber(xtotalsamamtOB/xnumerodias,0)%>
Samsung QTY  
<%=formatnumber(TransDias(i,1),0)%>
<%=formatnumber(xtotalsamqty,0)%>
<%=formatnumber(xtotalsamqty/xnumerodias,0)%>
Samsung M2  
<%=formatnumber(TransDias(i,2),0)%>
<%=formatnumber(xtotalsamm2,0)%>
<%=formatnumber(xtotalsamm2/xnumerodias,0)%>
Samsung AMT  
<%=formatnumber(TransDias(i,3),0)%>
<%=formatnumber(xtotalsamamt,0)%>
<%=formatnumber(xtotalsamamt/xnumerodias,0)%>
Others QTY  
<%=formatnumber(TransDias(i,4),0)%>
<%=formatnumber(xtotalothqty,0)%>
<%=formatnumber(xtotalothqty/xnumerodias,0)%>
Others M2  
<%=formatnumber(TransDias(i,5),0)%>
<%=formatnumber(xtotalothm2,0)%>
<%=formatnumber(xtotalothm2/xnumerodias,0)%>
Others AMT  
<%=formatnumber(TransDias(i,6),0)%>
<%=formatnumber(xtotalothamt,0)%>
<%=formatnumber(xtotalothamt/xnumerodias,0)%>
Qty 1S  <%=formatnumber(TransDias(i,10),0)%>
<%=formatnumber(xtotalsamqty1s,0)%>
<%=formatnumber(xtotalsamqty1s/xnumerodias,0)%>
Qty 2S  <%=formatnumber(TransDias(i,11),0)%>
<%=formatnumber(xtotalsamqty2s,0)%>
<%=formatnumber(xtotalsamqty2s/xnumerodias,0)%>
Qty 3S  <%=formatnumber(TransDias(i,12),0)%>
<%=formatnumber(xtotalsamqty3s,0)%>
<%=formatnumber(xtotalsamqty3s/xnumerodias,0)%>
Total QTY  
<%=formatnumber(TransDias(i,7),0)%>
<%=formatnumber(xtotalqty,0)%>
<%=formatnumber(xtotalqty/xnumerodias,0)%>
M2 1S  
<%=formatnumber(TransDias(i,13),0)%>
<%=formatnumber(xtotalsamm21s,0)%>
<%=formatnumber(xtotalsamm21s/xnumerodias,0)%>
M2 2S  
<%=formatnumber(TransDias(i,14),0)%>
<%=formatnumber(xtotalsamm22s,0)%>
<%=formatnumber(xtotalsamm22s/xnumerodias,0)%>
M2 3S  
<%=formatnumber(TransDias(i,15),0)%>
<%=formatnumber(xtotalsamm23s,0)%>
<%=formatnumber(xtotalsamm23s/xnumerodias,0)%>
Total M2  
<%=formatnumber(TransDias(i,8),0)%>
<%=formatnumber(xtotalm2,0)%>
<%=formatnumber(xtotalm2/xnumerodias,0)%>
Total AMT  
<%=formatnumber(TransDias(i,9),0)%>
<%=formatnumber(xtotalamt,0)%>
<%=formatnumber(xtotalamt/xnumerodias,0)%>