<%@ LANGUAGE = "VBScript" %> <%Response.Buffer = False%> <% 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 = cint(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 and (stryear="2016" or stryear="2020") Then ldiasmes = 29 else if lmonth = 2 then ldiasmes = 28 end if End If If lmonth = 4 Or lmonth = 6 Or lmonth = 9 Or lmonth = 11 Then ldiasmes = 30 End If lmonth1 = cint(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 and (stryear="2016" or stryear="2020") Then ldiasmes1 = 29 else If lmonth1 = 2 then ldiasmes1 = 28 end if 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") response.Write(" Mes1 "&cmes) response.Write(" diasMes1 "&ldiasmes1) ldiasmesx=ldiasmes1 else lmonth = cint(cmes) response.Write(" Mes2 "&lmonth) '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 if (year(date)=2016 or year(date)=2020) then ldiasmes = 29 else ldiasmes = 28 end if 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) canno=right("0000"&canno,4) lfecinicio= CStr(canno & cmes2 & "01") lfecfinal= CStr(canno & cmes2 & ldiasmes) lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01") ldiasmesx=ldiasmes end if xday = Right("00" & Day(Date), 2) xmonth = Right("00" & Month(Date), 2) xyear = Right("00" & Year(Date), 4) xdate=xyear&xmonth&xday xtipo="VENDEDOR" Dim Rsfore0 Dim Sqlfore0 set Rsfore0=dbsql3.execute("SELECT * FROM forecast WHERE id=49") 'Set Rsfore = CurrentDb.OpenRecordset(Sqlfore) xday2 = Right("00" & Rsfore0("month"), 2) xmonth2 = Right("00" & Rsfore0("forecast"), 2) xyear2 = Right("00" & Rsfore0("year"), 4) xdate2=xyear2&xmonth2&xday2 If xdate>xdate2 Then response.write (ErrorNo1) else %> Report Transfer
<% ReDim TransDias(ldiasmesx,123) ReDim Trucking(ldiasmesx,5) Dim Rstrans ReDim TransDiasoff(ldiasmesx,20) Dim Rstransoff Dim sqltrans %>
       
Period:  
     
No 
<% '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&"
") 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,d.proc_cd1, d.good_type 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 lqty1sbd1=0 lqty2sbd1=0 lqty3sbd1=0 lqty4sbd1=0 lm21sbd3=0 lm22sbd3=0 lm23sbd3=0 lAmt1sbd3=0 lAmt2sbd3=0 lAmt3sbd3=0 lqty1sbd3=0 lqty2sbd3=0 lqty3sbd3=0 lqty4sbd3=0 lm21sbd3=0 lm22sbd3=0 lm23sbd3=0 lAmt1sbd3=0 lAmt2sbd3=0 lAmt3sbd3=0 lotherqtysh=0 lotherm2sh=0 lotheramtsh=0 lotherqtysh11=0 lotherm2sh11=0 lotheramtsh11=0 lotherqtysh12=0 lotherm2sh12=0 lotheramtsh12=0 lotherqtysh13=0 lotherm2sh13=0 lotheramtsh13=0 lotherqtysh21=0 lotherm2sh21=0 lotheramtsh21=0 lotherqtysh22=0 lotherm2sh22=0 lotheramtsh22=0 lotherqtysh23=0 lotherm2sh23=0 lotheramtsh23=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 Rstrans("trans_date")<"201123" or Rstrans("trans_date")>"220227" then '*********** Cambios de Turno 'response.write(" TD "&Rstrans("trans_date")) if ltranstime>"064959" and ltranstime<"152000" then 'if Rstrans("work_gubun")="1S" then 'lsamsungqty1s=lsamsungqty1s+ cdbl(Rstrans("prod_qty")) 'lsamsungm21s= lsamsungm21s+ cdbl(localm2) lqty1s=lqty1s + cdbl(Rstrans("prod_qty")) lm21s= lm21s + cdbl(localm2) if Rstrans("local_nm")="WH1" then lqty1sbd1=lqty1sbd1 + cdbl(Rstrans("prod_qty")) lm21sbd1= lm21sbd1 + cdbl(localm2) lAmt1sbd1 = lAmt1sbd1 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh11= lotherqtysh11 + cdbl(Rstrans("prod_qty")) lotherm2sh11= lotherm2sh11 + cdbl(localm2) lotheramtsh11= lotheramtsh11 + cdbl(Rstrans("prod_amt")) end if else lqty1sbd3=lqty1sbd3 + cdbl(Rstrans("prod_qty")) lm21sbd3= lm21sbd3 + cdbl(localm2) lAmt1sbd3 = lAmt1sbd3 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh21= lotherqtysh21 + cdbl(Rstrans("prod_qty")) lotherm2sh21= lotherm2sh21 + cdbl(localm2) lotheramtsh21= lotheramtsh21 + cdbl(Rstrans("prod_amt")) end if end if end if if ltranstime>"151959" and ltranstime<"232000" then 'if Rstrans("work_gubun")="2S" then 'lsamsungqty2s=lsamsungqty2s+ cdbl(Rstrans("prod_qty")) 'lsamsungm22s= lsamsungm22s+ cdbl(localm2) lqty2s=lqty2s+ cdbl(Rstrans("prod_qty")) lm22s= lm22s+ cdbl(localm2) if Rstrans("local_nm")="WH1" then lqty2sbd1=lqty2sbd1 + cdbl(Rstrans("prod_qty")) lm22sbd1= lm22sbd1 + cdbl(localm2) lAmt2sbd1 = lAmt2sbd1 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh12= lotherqtysh12 + cdbl(Rstrans("prod_qty")) lotherm2sh12= lotherm2sh12 + cdbl(localm2) lotheramtsh12= lotheramtsh12 + cdbl(Rstrans("prod_amt")) end if else lqty2sbd3=lqty2sbd3 + cdbl(Rstrans("prod_qty")) lm22sbd3= lm22sbd3 + cdbl(localm2) lAmt2sbd3 = lAmt2sbd3 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh22= lotherqtysh22 + cdbl(Rstrans("prod_qty")) lotherm2sh22= lotherm2sh22 + cdbl(localm2) lotheramtsh22= lotheramtsh22 + cdbl(Rstrans("prod_amt")) end if end if end if if ltranstime>"231959" or ltranstime<"065000" then 'if Rstrans("work_gubun")="3S" then 'lsamsungqty4s=lsamsungqty4s+ cdbl(Rstrans("prod_qty")) 'lsamsungm234= lsamsungm24s+ cdbl(localm2) lqty4s=lqty4s+ cdbl(Rstrans("prod_qty")) lm24s= lm24s+ cdbl(localm2) lshift=4 if Rstrans("local_nm")="WH1" then lqty4sbd1=lqty4sbd1 + cdbl(Rstrans("prod_qty")) lm24sbd1= lm24sbd1 + cdbl(localm2) lAmt4sbd1 = lAmt4sbd1 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh13= lotherqtysh13 + cdbl(Rstrans("prod_qty")) lotherm2sh13= lotherm2sh13 + cdbl(localm2) lotheramtsh13= lotheramtsh13 + cdbl(Rstrans("prod_amt")) end if else lqty4sbd3=lqty4sbd3 + cdbl(Rstrans("prod_qty")) lm24sbd3= lm24sbd3 + cdbl(localm2) lAmt4sbd3 = lAmt4sbd3 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh23= lotherqtysh23 + cdbl(Rstrans("prod_qty")) lotherm2sh23= lotherm2sh23 + cdbl(localm2) lotheramtsh23= lotheramtsh23 + cdbl(Rstrans("prod_amt")) end if end if 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" or Rstrans("proc_cd1")="301" or Rstrans("proc_cd1")="302" 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 if rsinven2("Note_5")= "INBOX / PAD" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "NA" and rsinven2("Note_4")<> "FULL LITHO" and rsinven2("Note_4")<> "PRINTING" and rsinven2("Note_4")<> "SPOT" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "FULL LITHO" or rsinven2("Note_5")= "PRINTING" or rsinven2("Note_5")= "SPOT" OR rsinven2("Note_4")= "FULL LITHO" or rsinven2("Note_4")= "PRINTING" or rsinven2("Note_4")= "SPOT" then if Rstrans("local_nm")="WH1" then lOBxqty = lOBxqty + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"152000" then 'if Rstrans("work_gubun")="1S" then lOBxqty1s = lOBxqty1s + cdbl(Rstrans("prod_qty")) end if if ltranstime>"151959" and ltranstime<"232000" then 'if Rstrans("work_gubun")="2S" then lOBxqty2s = lOBxqty2s + cdbl(Rstrans("prod_qty")) end if if ltranstime>"231959" or ltranstime<"065000" then 'if Rstrans("work_gubun")="3S" then lOBxqty3s = lOBxqty3s + cdbl(Rstrans("prod_qty")) end if else lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"152000" then 'if Rstrans("work_gubun")="1S" then lOBxqtybd3s1 = lOBxqtybd3s1 + cdbl(Rstrans("prod_qty")) end if if ltranstime>"151959" and ltranstime<"232000" then 'if Rstrans("work_gubun")="2S" then lOBxqtybd3s2 = lOBxqtybd3s2 + cdbl(Rstrans("prod_qty")) end if if ltranstime>"231959" or ltranstime<"065000" then 'if Rstrans("work_gubun")="3S" 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" if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh= lotherqtysh + cdbl(Rstrans("prod_qty")) lotherm2sh= lotherm2sh + cdbl(localm2) lotheramtsh= lotheramtsh + cdbl(Rstrans("prod_amt")) end if end if 'CTE Rstrans.MoveNext if not Rstrans.eof then ltransdate2=Rstrans("trans_date") ltranstime2=Rstrans("trans_time") end if else '**** Nuevos Turnos 2 turnos de 12 Hrs ******* if trim(Rstrans("trans_time"))>"064959" and trim(Rstrans("trans_time"))<"185000" then lqty1s=lqty1s + cdbl(Rstrans("prod_qty")) lm21s= lm21s + cdbl(localm2) if Rstrans("local_nm")="WH1" then lqty1sbd1=lqty1sbd1 + cdbl(Rstrans("prod_qty")) lm21sbd1= lm21sbd1 + cdbl(localm2) lAmt1sbd1 = lAmt1sbd1 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh11= lotherqtysh11 + cdbl(Rstrans("prod_qty")) lotherm2sh11= lotherm2sh11 + cdbl(localm2) lotheramtsh11= lotheramtsh11 + cdbl(Rstrans("prod_amt")) end if else lqty1sbd3=lqty1sbd3 + cdbl(Rstrans("prod_qty")) lm21sbd3= lm21sbd3 + cdbl(localm2) lAmt1sbd3 = lAmt1sbd3 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh21= lotherqtysh21 + cdbl(Rstrans("prod_qty")) lotherm2sh21= lotherm2sh21 + cdbl(localm2) lotheramtsh21= lotheramtsh21 + cdbl(Rstrans("prod_amt")) end if end if end if if (ltranstime<"065000" or ltranstime>"184959") then 'lsamsungqty2s=lsamsungqty2s+ cdbl(Rstrans("prod_qty")) 'lsamsungm22s= lsamsungm22s+ cdbl(localm2) lqty2s=lqty2s+ cdbl(Rstrans("prod_qty")) lm22s= lm22s+ cdbl(localm2) if Rstrans("local_nm")="WH1" then lqty2sbd1=lqty2sbd1 + cdbl(Rstrans("prod_qty")) lm22sbd1= lm22sbd1 + cdbl(localm2) lAmt2sbd1 = lAmt2sbd1 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh12= lotherqtysh12 + cdbl(Rstrans("prod_qty")) lotherm2sh12= lotherm2sh12 + cdbl(localm2) lotheramtsh12= lotheramtsh12 + cdbl(Rstrans("prod_amt")) end if else lqty2sbd3=lqty2sbd3 + cdbl(Rstrans("prod_qty")) lm22sbd3= lm22sbd3 + cdbl(localm2) lAmt2sbd3 = lAmt2sbd3 + cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh22= lotherqtysh22 + cdbl(Rstrans("prod_qty")) lotherm2sh22= lotherm2sh22 + cdbl(localm2) lotheramtsh22= lotheramtsh22 + cdbl(Rstrans("prod_amt")) end if end if 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" or Rstrans("proc_cd1")="301" or Rstrans("proc_cd1")="302" 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 if rsinven2("Note_5")= "INBOX / PAD" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "NA" and rsinven2("Note_4")<> "FULL LITHO" and rsinven2("Note_4")<> "PRINTING" and rsinven2("Note_4")<> "SPOT" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "FULL LITHO" or rsinven2("Note_5")= "PRINTING" or rsinven2("Note_5")= "SPOT" OR rsinven2("Note_4")= "FULL LITHO" or rsinven2("Note_4")= "PRINTING" or rsinven2("Note_4")= "SPOT" then if Rstrans("local_nm")="WH1" then lOBxqty = lOBxqty + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"185000" then lOBxqty1s = lOBxqty1s + cdbl(Rstrans("prod_qty")) end if if (ltranstime<"065000" or ltranstime>"184959") then lOBxqty2s = lOBxqty2s + cdbl(Rstrans("prod_qty")) end if else lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"185000" then lOBxqtybd3s1 = lOBxqtybd3s1 + cdbl(Rstrans("prod_qty")) end if if (ltranstime<"065000" or ltranstime>"184959") then lOBxqtybd3s2 = lOBxqtybd3s2 + 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" if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh= lotherqtysh + cdbl(Rstrans("prod_qty")) lotherm2sh= lotherm2sh + cdbl(localm2) lotheramtsh= lotheramtsh + cdbl(Rstrans("prod_amt")) end if end if 'CTE Rstrans.MoveNext if not Rstrans.eof then ltransdate2=Rstrans("trans_date") ltranstime2=Rstrans("trans_time") end if end if '***** FIN cambio de turnos 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 TransDias(xdia,42)=lqty1sbd1 TransDias(xdia,43)=lqty2sbd1 TransDias(xdia,44)=lqty3sbd1+lqty4sbd1 TransDias(xdia,45)=lm21sbd1 TransDias(xdia,46)=lm22sbd1 TransDias(xdia,47)=lm23sbd1+lm24sbd1 TransDias(xdia,48)=lAmt1sbd1 TransDias(xdia,49)=lAmt2sbd1 TransDias(xdia,50)=lAmt3sbd1+lAmt4sbd1 TransDias(xdia,51)=lqty1sbd3 TransDias(xdia,52)=lqty2sbd3 TransDias(xdia,53)=lqty3sbd3+lqty4sbd3 TransDias(xdia,54)=lm21sbd3 TransDias(xdia,55)=lm22sbd3 TransDias(xdia,56)=lm23sbd3+lm24sbd3 TransDias(xdia,57)=lAmt1sbd3 TransDias(xdia,58)=lAmt2sbd3 TransDias(xdia,59)=lAmt3sbd3+lAmt4sbd3 TransDias(xdia,79)=lotherqtysh TransDias(xdia,80)=lotherm2sh TransDias(xdia,81)=lotheramtsh TransDias(xdia,82)=lotherqtysh11 TransDias(xdia,83)=lotherm2sh11 TransDias(xdia,84)=lotheramtsh11 TransDias(xdia,85)=lotherqtysh12 TransDias(xdia,86)=lotherm2sh12 TransDias(xdia,87)=lotheramtsh12 TransDias(xdia,88)=lotherqtysh13 TransDias(xdia,89)=lotherm2sh13 TransDias(xdia,90)=lotheramtsh13 TransDias(xdia,91)=lotherqtysh21 TransDias(xdia,92)=lotherm2sh21 TransDias(xdia,93)=lotheramtsh21 TransDias(xdia,94)=lotherqtysh22 TransDias(xdia,95)=lotherm2sh22 TransDias(xdia,96)=lotheramtsh22 TransDias(xdia,97)=lotherqtysh23 TransDias(xdia,98)=lotherm2sh23 TransDias(xdia,99)=lotheramtsh23 lqty1sbd1=0 lqty2sbd1=0 lqty3sbd1=0 lqty4sbd1=0 lm21sbd1=0 lm22sbd1=0 lm23sbd1=0 lm24sbd1=0 lAmt1sbd1=0 lAmt2sbd1=0 lAmt3sbd1=0 lAmt4sbd1=0 lqty1sbd3=0 lqty2sbd3=0 lqty3sbd3=0 lqty4sbd3=0 lm21sbd3=0 lm22sbd3=0 lm23sbd3=0 lm24sbd3=0 lAmt1sbd3=0 lAmt2sbd3=0 lAmt3sbd3=0 lAmt4sbd3=0 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 lotherqtysh=0 lotherm2sh=0 lotheramtsh=0 lotherqtysh11=0 lotherm2sh11=0 lotheramtsh11=0 lotherqtysh12=0 lotherm2sh12=0 lotheramtsh12=0 lotherqtysh13=0 lotherm2sh13=0 lotheramtsh13=0 lotherqtysh21=0 lotherm2sh21=0 lotheramtsh21=0 lotherqtysh22=0 lotherm2sh22=0 lotheramtsh22=0 lotherqtysh23=0 lotherm2sh23=0 lotheramtsh23=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 if rsinven2("Note_5")= "INBOX / PAD" then else if rsinven2("Note_5")= "FULL LITHO" or rsinven2("Note_5")= "PRINTING" or rsinven2("Note_5")= "SPOT" OR rsinven2("Note_4")= "FULL LITHO" or rsinven2("Note_4")= "PRINTING" or rsinven2("Note_4")= "SPOT" then if Rsprod("proc_cd")>500 and Rsprod("proc_cd")<560 then if (Rsprod("proc_cd")>500 and Rsprod("proc_cd")<510) then lOBxprodBD3 = lOBxprodBD3 + cdbl(Rsprod("real_prod_qty")) end if if (Rsprod("proc_cd")>550 and Rsprod("proc_cd")<560) then 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 or Rsprod("proc_cd")=248 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 '''''''''''''''''''''''''''''''''''********************************** OFFSET set Rstransoff=dbsql2.execute("select right(a.trans_date,6) trans_date, a.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd) cust_nm, b.good_nm, dbo.usf_no('C', '1', a.ord_date, a.ord_seq, '-') ord_no, a.pallet_cnt, case a.prod_qty when 0 then a.plan_qty else a.prod_qty end prod_qty, case a.trans_class when '0' then '1S' when '1' then '2S' when '2' then '3S' end work_gubun, case isnull(a.loc_no,'') when '' then '' else (select code_nm from sta010t(nolock) where major_cd = '9160' and minor_cd = a.loc_no) end loc_no, a.trans_time, right(a.prt_date,6) prt_day, 1 cnt, isnull(b.po_no,'') po_no, b.good_price from bar_code a(nolock), ooa010t 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 a.chk_bit = '1' and a.trans_date between '" & lfecini2 & "' and '" & lfecfin2 & "' order by a.trans_date, b.cust_cd, b.good_nm, dbo.usf_no('C', '1', a.ord_date, a.ord_seq, '-'), a.pallet_cnt") 'and b.prod_flag = '1' If Rstransoff.EOF And Rstransoff.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 lsamqty1=0 lsamqty2=0 lsamqty3=0 lsamamt1=0 lsamamt2=0 lsamamt3=0 lothqty1=0 lothqty2=0 lothqty3=0 lothamt1=0 lothamt2=0 lothamt3=0 Rstransoff.MoveFirst ltransdate1=Rstransoff("trans_date") ltranstime1=Rstransoff("trans_time") lcte=0 'response.write("hora: "&Rstransoff("trans_time")) llocal_cd="A" Do While Not Rstransoff.EOF ltranstime=Rstransoff("trans_time") localm2=0 lTotalQty = lTotalQty+ cdbl(Rstransoff("prod_qty")) lTotalM2 = lTotalM2 + cdbl(localm2) lTotalAmt = lTotalAmt+ (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) litemclass="00" 'if ltranstime>"064959" and ltranstime<"152000" then if Rstransoff("cust_cd")="99999" and left(Rstransoff("good_nm"),4)="BN69" then 'CTE lcte=1 lsamsungqty=lsamsungqty+ cdbl(Rstransoff("prod_qty")) lsamsungm2= lsamsungm2+ cdbl(localm2) lsamsungamt= lsamsungamt+ (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) if litemclass="03" then lsamvb=lsamvb+ cdbl(Rstransoff("prod_qty")) else ''''''''''''''''''''********* O/B SAMSUNG set Rsinven2=cnn.execute("select * from SamsungItems where good_nm='BN69-15907B-00/65MU7000'") if not Rsinven2.eof then 'RS rsinven2.movefirst ltypeBox=rsinven2("Note_4") ltypeBox2=rsinven2("Note_5") if rsinven2("Note_5")= "INBOX / PAD" then lOTSamsungqty = lOTSamsungqty + cdbl(Rstransoff("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "NA" and rsinven2("Note_4")<> "FULL LITHO" and rsinven2("Note_4")<> "PRINTING" and rsinven2("Note_4")<> "SPOT" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstransoff("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "FULL LITHO" OR rsinven2("Note_5")= "PRINTING" OR rsinven2("Note_5")= "SPOT" OR rsinven2("Note_4")= "FULL LITHO" OR rsinven2("Note_4")= "PRINTING" OR rsinven2("Note_4")="SPOT" then 'PAD if llocal_cd="A" then lOBxqty = lOBxqty + cdbl(Rstransoff("prod_qty")) 'if ltranstime>"064959" and ltranstime<"152000" then if Rstransoff("work_gubun")="1S" then lsamqty1 = lsamqty1 + cdbl(Rstransoff("prod_qty")) lOBxM2B11s=lOBxM2B11s+ cdbl(localm2) lsamamt1 =lsamamt1 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if 'if ltranstime>"151959" and ltranstime<"232000" then if Rstransoff("work_gubun")="2S" then lsamqty2 = lsamqty2 + cdbl(Rstransoff("prod_qty")) lOBxM2B12s=lOBxM2B12s+ cdbl(localm2) lsamamt2 =lsamamt2 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if 'if ltranstime>"231959" or ltranstime<"065000" then if Rstransoff("work_gubun")="3S" then lsamqty3 = lsamqty3 + cdbl(Rstransoff("prod_qty")) lOBxM2B13s=lOBxM2B13s+ cdbl(localm2) lsamamt3 =lsamamt3 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if else lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstransoff("prod_qty")) 'if ltranstime>"064959" and ltranstime<"152000" then if Rstransoff("work_gubun")="1S" then lOBxqtybd3s1 = lOBxqtybd3s1 + cdbl(Rstransoff("prod_qty")) lOBxM2BD3s1=lOBxM2BD3s1 + cdbl(localm2) lOBxAMTBD3s1 =lOBxAMTBD3s1 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if 'if ltranstime>"151959" and ltranstime<"232000" then if Rstransoff("work_gubun")="2S" then lOBxqtybd3s2 = lOBxqtybd3s2 + cdbl(Rstransoff("prod_qty")) lOBxM2BD3s2=lOBxM2BD3s2 + cdbl(localm2) lOBxAMTBD3s2 =lOBxAMTBD3s2 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if 'if ltranstime>"231959" or ltranstime<"065000" then if Rstransoff("work_gubun")="3S" then lOBxqtybd3s3 = lOBxqtybd3s3 + cdbl(Rstransoff("prod_qty")) lOBxM2BD3s3=lOBxM2BD3s3 + cdbl(localm2) lOBxAMTBD3s3 =lOBxAMTBD3s3 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if end if lOBxM2 = lOBxM2 + cdbl(localm2) lOBxAmt =lOBxAmt + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) litemx=rsinven2("Note_5") end if 'PAD else lOTSamsungqty = lOTSamsungqty + cdbl(Rstransoff("prod_qty")) litemx="no" end if 'RS Rsinven2.Close Set Rsinven2 = Nothing '''''''''''''''''''''*********O/B SAMSUNG end if else if Rstransoff("work_gubun")="1S" then if llocal_cd="A" then lothqty1 = lothqty1 + cdbl(Rstransoff("prod_qty")) lotherm2= lotherm2+ cdbl(localm2) lothamt1 = lothamt1 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if end if if Rstransoff("work_gubun")="2S" then if llocal_cd="A" then lothqty2 = lothqty2 + cdbl(Rstransoff("prod_qty")) lotherm2= lotherm2+ cdbl(localm2) lothamt2 = lothamt2 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if end if if Rstransoff("work_gubun")="3S" then if llocal_cd="A" then lothqty3 = lothqty3 + cdbl(Rstransoff("prod_qty")) lotherm2= lotherm2+ cdbl(localm2) lothamt3 = lothamt3 + (cdbl(Rstransoff("prod_qty"))*cdbl(Rstransoff("good_price"))) end if end if end if 'CTE Rstransoff.MoveNext if not Rstransoff.eof then ltransdate2=Rstransoff("trans_date") ltranstime2=Rstransoff("trans_time") end if if (ltransdate1<>ltransdate2 ) or Rstransoff.eof then xdia=int(right(ltransdate1,2)) 'x=3 TransDiasoff(xdia,0)=xdia TransDiasoff(xdia,1)= lsamqty1 TransDiasoff(xdia,2)= lsamqty2 TransDiasoff(xdia,3)= lsamqty3 TransDiasoff(xdia,4)= lsamamt1 TransDiasoff(xdia,5)= lsamamt2 TransDiasoff(xdia,6)= lsamamt3 TransDiasoff(xdia,7)= lothqty1 TransDiasoff(xdia,8)= lothqty2 TransDiasoff(xdia,9)= lothqty3 TransDiasoff(xdia,10)=lothamt1 TransDiasoff(xdia,11)=lothamt2 TransDiasoff(xdia,12)=lothamt3 TransDiasoff(xdia,13)=lm21s TransDiasoff(xdia,14)=lm22s lsamqty1=0 lsamqty2=0 lsamqty3=0 lsamamt1=0 lsamamt2=0 lsamamt3=0 lothqty1=0 lothqty2=0 lothqty3=0 lothamt1=0 lothamt2=0 lothamt3=0 else end if 'end if Loop End If Rstransoff.Close Set Rstransoff = Nothing '''''''''''************************************************* FIN DE OFFSET lfecini3=int(lfecini2)+1 lfecini2=cstr(lfecini3) lfecfin2=cstr(lfecini3) loop 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 %> <% if xtotalsamq1>0 then %> <% else%> <%end if%> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xstotalsamq1=xstotalsamq1+TransDias(i,22) next %> <% if xstotalsamq1>0 then %> <% else%> <%end if%> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd1f=xOBbd1f+TransDias(i,28) next %> <%if xOBbd1f>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd1l=xOBbd1l+TransDias(i,30) next %> <%if xOBbd1l>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB1s=xtotalsamqtyOB1s+TransDias(i,36) next %> <%if xtotalsamqtyOB1s>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB2s=xtotalsamqtyOB2s+TransDias(i,37) next if xtotalsamqtyOB2s>0 and xnumerodias>0 then %> <%else%> <%end if%> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB3s=xtotalsamqtyOB3s+TransDias(i,38) next %> <%if xtotalsamqtyOB3s>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB=xtotalsamqtyOB+TransDias(i,24) next %> <%if xtotalsamqtyOB>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd3f=xOBbd3f+TransDias(i,29) next %> <%if xOBbd3f>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd3l=xOBbd3l+TransDias(i,31) next %> <%if xOBbd3l>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd31s=xtotalsamqtyOBbd31s+TransDias(i,39) next %> <%if xtotalsamqtyOBbd31s>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd32s=xtotalsamqtyOBbd32s+TransDias(i,40) next %> <%if xtotalsamqtyOBbd32s>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd33s=xtotalsamqtyOBbd33s+TransDias(i,41) next %> <%if xtotalsamqtyOBbd33s>0 and xnumerodias>0 then %> <% else %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd3=xtotalsamqtyOBbd3+TransDias(i,27) next %> <%if xtotalsamqtyOBbd3>0 and xnumerodias>0 then %> <% else %> <% end if %> <% 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 %> <% m2=0 if m2=1 then %> <% 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 %> <% end if if int(cmes)=month(date) then mesqty=month(date_ini) rmes="month"&mesqty set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamq1&" where yeartrans="&canno&" and concepto='SamsungVB'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xstotalsamq1&" where yeartrans="&canno&" and concepto='SamsungOt'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xOBbd1f&" where yeartrans="&canno&" and concepto='BD1ProdF'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xOBbd1l&" where yeartrans="&canno&" and concepto='BD1ProdL'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOB1s&" where yeartrans="&canno&" and concepto='BD1Tran1S'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOB2s&" where yeartrans="&canno&" and concepto='BD1Tran2S'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOB3s&" where yeartrans="&canno&" and concepto='BD1Tran3S'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOB&" where yeartrans="&canno&" and concepto='BD1Trans'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xOBbd3f&" where yeartrans="&canno&" and concepto='BD3ProdF'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xOBbd3l&" where yeartrans="&canno&" and concepto='BD3ProdL'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd31s&" where yeartrans="&canno&" and concepto='BD3Tran1S'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd32s&" where yeartrans="&canno&" and concepto='BD3Tran2S'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd33s&" where yeartrans="&canno&" and concepto='BD3Tran3S'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd3&" where yeartrans="&canno&" and concepto='BD3Trans'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotf&" where yeartrans="&canno&" and concepto='TotalProdF'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotl&" where yeartrans="&canno&" and concepto='TotalProdL'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd31&" where yeartrans="&canno&" and concepto='TotalTran1s'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd32&" where yeartrans="&canno&" and concepto='TotalTran2s'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqtyOBbd33&" where yeartrans="&canno&" and concepto='TotalTran3s'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtott&" where yeartrans="&canno&" and concepto='TotalTrans'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamm2OB&" where yeartrans="&canno&" and concepto='SamsungOBM2'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamamtOB&" where yeartrans="&canno&" and concepto='SamsungOBAmt'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamqty&" where yeartrans="&canno&" and concepto='SamsungQty'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamm2&" where yeartrans="&canno&" and concepto='SamsungM2'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalsamamt&" where yeartrans="&canno&" and concepto='SamsungAmt'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalothqty&" where yeartrans="&canno&" and concepto='OthersQty'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalothm2&" where yeartrans="&canno&" and concepto='OthersM2'") set rscambio=dbsql3.execute("update transmensual set "&rmes&"="&xtotalothamt&" where yeartrans="&canno&" and concepto='OthersAmt'") end if '''''''''''''''''''''''''''''''' ************************ RESUMEN OFFSET %> <% xnumerodias=0 for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% if TransDiasoff(i,0)>0 then xnumerodias=xnumerodias+1 end if next %> <% ''''' qty bd1 %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xm21sbd2=xm21sbd2+TransDiasoff(i,1) next %> <% if xM21sbd2>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamtbd21=xamtbd21+TransDiasoff(i,4) next %> <% if xamtbd21>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xtotqty1sbd2=xtotqty1sbd2+TransDiasoff(i,7) next %> <% if xtotqty1sbd2>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamt2bd21=xamt2bd21+TransDiasoff(i,10) next %> <% if xamt2bd21>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xM22sbd2=xM22sbd2+TransDiasoff(i,2) next %> <% if xM22sbd2>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamtbd22=xamtbd22+TransDiasoff(i,5) next %> <% if xamtbd22>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xtotqty2sbd2=xtotqty2sbd2+TransDiasoff(i,8) next %> <% if xtotqty2sbd2>0 then %> <% else %> <%end if%> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamt2bd22=xamt2bd22+TransDiasoff(i,11) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xM23sbd2=xM23sbd2+TransDiasoff(i,3) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamtbd23=xamtbd23+TransDiasoff(i,6) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xtotqty3sbd2=xtotqty3sbd2+TransDiasoff(i,9) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamt2bd23=xamt2bd23+TransDiasoff(i,12) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xqtytotbd2=xqtytotbd2+TransDiasoff(i,1)+TransDiasoff(i,2)+TransDiasoff(i,3) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamttotbd2=xamttotbd2+TransDiasoff(i,4)+TransDiasoff(i,5)+TransDiasoff(i,6) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xqty2totbd2=xqty2totbd2+TransDiasoff(i,7)+TransDiasoff(i,8)+TransDiasoff(i,9) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xtotamt2bd2=xtotamt2bd2+(TransDiasoff(i,10)+TransDiasoff(i,11)+TransDiasoff(i,12)) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xqtytotbd2=xamt2bd23+TransDiasoff(i,1)+TransDiasoff(i,2)+TransDiasoff(i,3)+TransDiasoff(i,7)+TransDiasoff(i,8)+TransDiasoff(i,9) next %> <% for i=lbound(TransDiasoff) to ubound(TransDiasoff) %> <% xamttotbd2=xamt2bd23+TransDiasoff(i,4)+TransDiasoff(i,5)+TransDiasoff(i,6)+TransDiasoff(i,10)+TransDiasoff(i,11)+TransDiasoff(i,12) next %> <% '''''******************************** FIN resumen por WH %> <% xnumerodias=0 for i=lbound(TransDias) to ubound(TransDias) %> <% if TransDias(i,0)>0 then xnumerodias=xnumerodias+1 end if next %> <% ''''' qty bd1 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xm21sbd1=xm21sbd1+TransDias(i,45)-TransDias(i,83) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM22sbd1=xM22sbd1+TransDias(i,46)-TransDias(i,86) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM23sbd1=xM23sbd1+TransDias(i,47)-TransDias(i,89) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM2totbd1=xM2totbd1+TransDias(i,45)+TransDias(i,46)+TransDias(i,47) xtotm2shbd1=xtotm2shbd1+TransDias(i,83)+TransDias(i,86)+TransDias(i,89) next %> <% ''''' M2 bd1 end %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM21sbd1sh=xM21sbd1sh+TransDias(i,83) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM22sbd1sh=xM22sbd1sh+TransDias(i,86) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM23sbd1sh=xM23sbd1sh+TransDias(i,89) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotm2shbd1=xtotm2shbd1+TransDias(i,83)+TransDias(i,86)+TransDias(i,89) next %> <% ''''' M2 bd3 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM21sbd3=xM21sbd3+TransDias(i,54)-TransDias(i,92) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM22sbd3=xM22sbd3+TransDias(i,55)-TransDias(i,95) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM23sbd3=xM23sbd3+TransDias(i,56)-TransDias(i,98) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM2totbd3=xM2totbd3+TransDias(i,54)+TransDias(i,55)+TransDias(i,56) xtotm2shbd3=(xtotm2shbd3+TransDias(i,92)+TransDias(i,95)+TransDias(i,98)) next %> <% ''''' M2 bd3 end %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM21sbd3sh=xM21sbd3sh+TransDias(i,92) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM22sbd3sh=xM22sbd3sh+TransDias(i,95) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM23sbd3sh=xM23sbd3sh+TransDias(i,98) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotm2shbd3=xtotm2shbd3+TransDias(i,92)+TransDias(i,95)+TransDias(i,98) next %> <% ''''' QTY bd1 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1sbd1=xqty1sbd1+TransDias(i,42)-TransDias(i,82) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2sbd1=xqty2sbd1+TransDias(i,43)-TransDias(i,85) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3sbd1=xqty3sbd1+TransDias(i,44)-TransDias(i,88) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xQtytotbd1=xQtytotbd1+TransDias(i,42)+TransDias(i,43)+TransDias(i,44) xtotqtyshbd1=(xtotqtyshbd1+TransDias(i,82)+TransDias(i,85)+TransDias(i,88)) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1sbd1sh=xqty1sbd1sh+TransDias(i,82) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2sbd1sh=xqty2sbd1sh+TransDias(i,85) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3sbd1sh=xqty3sbd1sh+TransDias(i,88) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotqtyshbd1=xtotqtyshbd1+TransDias(i,82)+TransDias(i,85)+TransDias(i,88) next %> <% ''''' QTY bd1 end %> <% ''''' QTY bd3 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1sbd3=xqty1sbd3+TransDias(i,51)-TransDias(i,91) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2sbd3=xqty2sbd3+TransDias(i,52)-TransDias(i,94) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3sbd3=xqty3sbd3+TransDias(i,53)-TransDias(i,97) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xQtytotbd3=xQtytotbd3+TransDias(i,51)+TransDias(i,52)+TransDias(i,53) xtotqtyshbd3=(xtotqtyshbd3+TransDias(i,91)+TransDias(i,94)+TransDias(i,97)) next %> <% ''''' QTY bd3 end %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1sbd3sh=xqty1sbd3sh+TransDias(i,91) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2sbd3sh=xqty2sbd3sh+TransDias(i,94) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3sbd3sh=xqty3sbd3sh+TransDias(i,97) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotqtyshbd3=xtotqtyshbd3+TransDias(i,91)+TransDias(i,94)+TransDias(i,97) next %> <% ''''' Amt bd1 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT1sbd1=xAMT1sbd1+TransDias(i,48)-TransDias(i,84) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT2sbd1=xAMT2sbd1+TransDias(i,49)-TransDias(i,87) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT3sbd1=xAMT3sbd1+TransDias(i,50)-TransDias(i,90) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMTtotbd1=xAMTtotbd1+TransDias(i,48)+TransDias(i,49)+TransDias(i,50) xtotamtshbd1=(xtotamtshbd1+TransDias(i,84)+TransDias(i,87)+TransDias(i,90)) next %> <% ''''' Amt bd1 end %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT1sbd1sh=xAMT1sbd1sh+TransDias(i,84) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT2sbd1sh=xAMT2sbd1sh+TransDias(i,87) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT3sbd1sh=xAMT3sbd1sh+TransDias(i,90) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotamtshbd1=xtotamtshbd1+TransDias(i,84)+TransDias(i,87)+TransDias(i,90) next %> <% ''''' Amt bd3 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT1sbd3=xAMT1sbd3+TransDias(i,57)-TransDias(i,93) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT2sbd3=xAMT2sbd3+TransDias(i,58)-TransDias(i,96) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT3sbd3=xAMT3sbd3+TransDias(i,59)-TransDias(i,99) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMTtotbd3=xAMTtotbd3+TransDias(i,57)+TransDias(i,58)+TransDias(i,59) xtotamtshbd3=(xtotamtshbd3+TransDias(i,93)+TransDias(i,96)+TransDias(i,99)) next %> <% ''''' Amt bd3 end %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT1sbd3sh=xAMT1sbd3sh+TransDias(i,93) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT2sbd3sh=xAMT2sbd3sh+TransDias(i,96) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xAMT3sbd3sh=xAMT3sbd3sh+TransDias(i,99) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotamtshbd3=xtotamtshbd3+TransDias(i,93)+TransDias(i,96)+TransDias(i,99) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xm21s=xm21s+TransDias(i,45)+TransDias(i,54) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xm22s=xm22s+TransDias(i,46)+TransDias(i,55) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xm23s=xm23s+TransDias(i,47)+TransDias(i,56) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1s=xqty1s+TransDias(i,42)+TransDias(i,51) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2s=xqty2s+TransDias(i,43)+TransDias(i,52) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3s=xqty3s+TransDias(i,44)+TransDias(i,53) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xamt1s=xamt1s+TransDias(i,48)+TransDias(i,57) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xamt2s=xamt2s+TransDias(i,49)+TransDias(i,58) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xamt3s=xamt3s+TransDias(i,50)+TransDias(i,59) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalm2=xtotalm2+TransDias(i,8) xtotm2sh=xtotm2sh+TransDias(i,80) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotm2sh=xtotm2sh+TransDias(i,80) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalqty=xtotalqty+TransDias(i,7) xtotqtysh=xtotqtysh+TransDias(i,79) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotqtysh=xtotqtysh+TransDias(i,79) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalamt=xtotalamt+TransDias(i,9) xtotamtsh=xtotamtsh+TransDias(i,81) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% 'xtotamtsh=xtotamtsh+TransDias(i,81) next %> <% for i=lbound(TransDias) to ubound(TransDias) 'dias del mes Headcount hcmes=month(date()) hcyear=year(date()) hcdias=int(TransDias(i,0)) hcmes=int(mid(lfecinicio,5,2)) hcyear=int(mid(lfecinicio,1,4)) if hcdias>0 then 'response.write(hcdias&" ") 'response.write(hcmes&" ") 'response.write(hcyear) Set Rsheadc2 = Server.CreateObject("ADODB.RecordSet") set Rsheadc2=dbsql3.execute("select * from headcount where dia=" & hcdias & " and mes=" & hcmes & " and anno=" & hcyear) 'dia=" & hcdias & " and If Rsheadc2.EOF And Rsheadc2.BOF Then ' lturnotot=1 else 'lturno1t=0 'lturno2t=0 'lturno3t=0 lturnotot=0 Rsheadc2.movefirst Do While Not Rsheadc2.EOF if Rsheadc2("planta")=1 or Rsheadc2("planta")=3 or Rsheadc2("planta")=4 then 'if Rsheadc("turno")=1 then 'lturno1t=lturno1t+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) 'end if 'if Rsheadc("turno")=2 then 'lturno2t=lturno2t+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) 'end if 'if Rsheadc("turno")=3 then 'lturno3t=lturno3t+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) 'end if 'if Rsheadc("dia")=hcdias then lturnotot=lturnotot+cdbl(Rsheadc2("directo"))+cdbl(Rsheadc2("indirecto")) 'end if end if Rsheadc2.MoveNext Loop end if Rsheadc2.close set Rsheadc2=nothing else lturnotot=1 end if TransDias(i,60)=lturnotot 'fin Headcount if lturnotot>1 then %> <% xtotalavgqty=xtotalavgqty+TransDias(i,7)/TransDias(i,60) else %> <% end if next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,60)>1 then %> <% xtotalavgm2=xtotalavgm2+TransDias(i,8)/TransDias(i,60) else %> <% end if next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,60)>1 then %> <% xtotalavgamt=xtotalavgamt+TransDias(i,9)/TransDias(i,60) else %> <% end if next 'session("transreport")=TransDias 'session("transtruck")=Trucking 'session("transreportoff")=TransDiasoff %>
<%=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)%>
<%=formatnumber(0,0)%>
Samsung Others  
<%=formatnumber(TransDias(i,22),0)%>
<%=formatnumber(xstotalsamq1,0)%>
<%=formatnumber(xstotalsamq1/xnumerodias,0)%>
<%=formatnumber(0,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)%>
0
BD 1 Prod L
<%=formatnumber(TransDias(i,30),0)%>
<%=formatnumber(TransDias(i,30),0)%>
<%=formatnumber(xOBbd1l,0)%>
<%=formatnumber(xOBbd1l/xnumerodias,0)%>
0
T 1S
<%=formatnumber(TransDias(i,36),0)%>
<%=formatnumber(TransDias(i,36),0)%>
<%=formatnumber(xtotalsamqtyOB1s,0)%>
<%=formatnumber(xtotalsamqtyOB1s/xnumerodias,0)%>
0
T 2S
<%=formatnumber(TransDias(i,37),0)%>
<%=formatnumber(TransDias(i,37),0)%>
<%=formatnumber(xtotalsamqtyOB2s,0)%>
<%=formatnumber(xtotalsamqtyOB2s/xnumerodias,0)%>
<%=formatnumber(xtotalsamqtyOB2s,0)%>
<%=formatnumber(0,0)%>
T 3S
<%=formatnumber(TransDias(i,38),0)%>
<%=formatnumber(TransDias(i,38),0)%>
<%=formatnumber(xtotalsamqtyOB3s,0)%>
<%=formatnumber(xtotalsamqtyOB3s/xnumerodias,0)%>
0
BD 1 Trans
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(xtotalsamqtyOB,0)%>
<%=formatnumber(xtotalsamqtyOB/xnumerodias,0)%>
0
BD 3 Prod F
<%=formatnumber(TransDias(i,29),0)%>
<%=formatnumber(TransDias(i,29),0)%>
<%=formatnumber(xOBbd3f,0)%>
<%=formatnumber(xOBbd3f/xnumerodias,0)%>
0
BD 3 Prod L
<%=formatnumber(TransDias(i,31),0)%>
<%=formatnumber(TransDias(i,31),0)%>
<%=formatnumber(xOBbd3l,0)%>
<%=formatnumber(xOBbd3l/xnumerodias,0)%>
0
1S
<%=formatnumber(TransDias(i,39),0)%>
<%=formatnumber(TransDias(i,39),0)%>
<%=formatnumber(xtotalsamqtyOBbd31s,0)%>
<%=formatnumber(xtotalsamqtyOBbd31s/xnumerodias,0)%>
0
2S
<%=formatnumber(TransDias(i,40),0)%>
<%=formatnumber(TransDias(i,40),0)%>
<%=formatnumber(xtotalsamqtyOBbd32s,0)%>
<%=formatnumber(xtotalsamqtyOBbd32s/xnumerodias,0)%>
0
3S
<%=formatnumber(TransDias(i,41),0)%>
<%=formatnumber(TransDias(i,41),0)%>
<%=formatnumber(xtotalsamqtyOBbd33s,0)%>
<%=formatnumber(xtotalsamqtyOBbd33s/xnumerodias,0)%>
0
BD 3 Trans
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(xtotalsamqtyOBbd3,0)%>
<%=formatnumber(xtotalsamqtyOBbd3/xnumerodias,0)%>
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)%>
 
Summary Transfer OFFSET
<%=MonthName(Month(Date), False) %> Generated: <%=time%>
<%=TransDiasoff(i,0)%>
TOTAL
AVG
BD2 LABEL 1S Samsung <%=formatnumber(TransDiasoff(i,1),0)%>
<%=formatnumber(xM21sbd2,0)%>
<%=formatnumber(xM21sbd2/xnumerodias,0)%>
<%=formatnumber(0,0)%>
  AMT<%=formatnumber(TransDiasoff(i,4),0)%>
<%=formatnumber(xamtbd21,0)%>
<%=formatnumber(xamtbd21/xnumerodias,0)%>
<%=formatnumber(0,0)%>
  Others <%=formatnumber(TransDiasoff(i,7),0)%>
<%=formatnumber(xtotqty1sbd2,0)%>
<%=formatnumber(xtotqty1sbd2/xnumerodias,0)%>
<%=formatnumber(0,0)%>
AMT<%=formatnumber(TransDiasoff(i,10),0)%>
<%=formatnumber(xamt2bd21,0)%>
<%=formatnumber(xamt2bd21/xnumerodias,0)%>
<%=formatnumber(0,0)%>
2S Samsung <%=formatnumber(TransDiasoff(i,2),0)%>
<%=formatnumber(xM22sbd2,0)%>
<%=formatnumber(xM22sbd2/xnumerodias,0)%>
0
  AMT<%=formatnumber(TransDiasoff(i,5),0)%>
<%=formatnumber(xamtbd22,0)%>
<%=formatnumber(xamtbd22/xnumerodias,0)%>
0
  Others <%=formatnumber(TransDiasoff(i,8),0)%>
<%=formatnumber(xtotqty2sbd2,0)%>
<%=formatnumber(xtotqty2sbd2/xnumerodias,0)%>
0
AMT<%=formatnumber(TransDiasoff(i,11),0)%>
<%=formatnumber(xamt2bd22,0)%>
<%=formatnumber(xamt2bd22/xnumerodias,0)%>
3S Samsung <%=formatnumber(TransDiasoff(i,3),0)%>
<%=formatnumber(xM23sbd2,0)%>
<%=formatnumber(xM23sbd2/xnumerodias,0)%>
  AMT<%=formatnumber(TransDiasoff(i,6),0)%>
<%=formatnumber(xamtbd23,0)%>
<%=formatnumber(xamtbd23/xnumerodias,0)%>
  Others <%=formatnumber(TransDiasoff(i,9),0)%>
<%=formatnumber(xtotqty3sbd2,0)%>
<%=formatnumber(xtotqty3sbd2/xnumerodias,0)%>
  AMT<%=formatnumber(TransDiasoff(i,12),0)%>
<%=formatnumber(xamt2bd23,0)%>
<%=formatnumber(xamt2bd23/xnumerodias,0)%>
BD2 Tot Samsung<%=formatnumber(TransDiasoff(i,1)+TransDiasoff(i,2)+TransDiasoff(i,3),0)%>
<%=formatnumber(xqtytotbd2,0)%>
<%=formatnumber(xqtytotbd2/xnumerodias,0)%>
AMT<%=formatnumber(TransDiasoff(i,4)+TransDiasoff(i,5)+TransDiasoff(i,6),0)%>
<%=formatnumber(xamttotbd2,0)%>
<%=formatnumber(xamttotbd2/xnumerodias,0)%>
Tot Others<%=formatnumber(TransDiasoff(i,7)+TransDiasoff(i,8)+TransDiasoff(i,9),0)%>
<%=formatnumber(xqty2totbd2,0)%>
<%=formatnumber(xqty2totbd2/xnumerodias,0)%>
AMT<%=formatnumber(TransDiasoff(i,10)+TransDiasoff(i,11)+TransDiasoff(i,12),0)%>
<%=formatnumber(xtotamt2bd2,0)%>
<%=formatnumber(xtotamt2bd2/xnumerodias,0)%>
Total QTY<%=formatnumber(TransDiasoff(i,1)+TransDiasoff(i,2)+TransDiasoff(i,3)+TransDiasoff(i,7)+TransDiasoff(i,8)+TransDiasoff(i,9),0)%>
<%=formatnumber(xqtytotbd2,0)%>
<%=formatnumber(xqtytotbd2/xnumerodias,0)%>
Total AMT<%=formatnumber(TransDiasoff(i,4)+TransDiasoff(i,5)+TransDiasoff(i,6)+TransDiasoff(i,10)+TransDiasoff(i,11)+TransDiasoff(i,12),0)%>
<%=formatnumber(xamttotbd2,0)%>
<%=formatnumber(xamttotbd2/xnumerodias,0)%>
 
Summary Transfer by Shift/Building
<%=MonthName(Month(Date), False) %> Generated: <%=time%>
<%=TransDias(i,0)%>
TOTAL
AVG
BD1 M2 1S <%=formatnumber(TransDias(i,45)-TransDias(i,83),0)%>
<%=formatnumber(xM21sbd1,0)%>
<%=formatnumber(xM21sbd1/xnumerodias,0)%>
BD1 M2 2S<%=formatnumber(TransDias(i,46)-TransDias(i,86),0)%>
<%=formatnumber(xM22sbd1,0)%>
<%=formatnumber(xM22sbd1/xnumerodias,0)%>
BD1 M2 3S<%=formatnumber(TransDias(i,47)-TransDias(i,89),0)%>
<%=formatnumber(xM23sbd1,0)%>
<%=formatnumber(xM23sbd1/xnumerodias,0)%>
Total BOX M2 BD1<%=formatnumber(TransDias(i,45)+TransDias(i,46)+TransDias(i,47)-(TransDias(i,83)+TransDias(i,86)+TransDias(i,89)),0)%>
<%=formatnumber(xM2totbd1-xtotm2shbd1,0)%>
<%=formatnumber((xM2totbd1-xtotm2shbd1)/xnumerodias,0)%>
BD1 Sheet M2 1S<%=formatnumber(TransDias(i,83),0)%>
<%=formatnumber(xM21sbd1sh,0)%>
<%=formatnumber(xM21sbd1sh/xnumerodias,0)%>
BD1 Sheet M2 2S<%=formatnumber(TransDias(i,86),0)%>
<%=formatnumber(xM22sbd1sh,0)%>
<%=formatnumber(xM22sbd1sh/xnumerodias,0)%>
BD1 Sheet M2 3S<%=formatnumber(TransDias(i,89),0)%>
<%=formatnumber(xM23sbd1sh,0)%>
<%=formatnumber(xM23sbd1sh/xnumerodias,0)%>
Total Sheets M2 BD1<%=formatnumber(TransDias(i,83)+TransDias(i,86)+TransDias(i,89),0)%>
<%=formatnumber(xtotm2shbd1,0)%>
<%=formatnumber(xtotm2shbd1/xnumerodias,0)%>
BD3 M2 1S<%=formatnumber(TransDias(i,54)-TransDias(i,92),0)%>
<%=formatnumber(xM21sbd3,0)%>
<%=formatnumber(xM21sbd3/xnumerodias,0)%>
BD3 M2 2S<%=formatnumber(TransDias(i,55)-TransDias(i,95),0)%>
<%=formatnumber(xM22sbd3,0)%>
<%=formatnumber(xM22sbd3/xnumerodias,0)%>
BD3 M2 3S <%=formatnumber(TransDias(i,56)-TransDias(i,98),0)%>
<%=formatnumber(xM23sbd3,0)%>
<%=formatnumber(xM23sbd3/xnumerodias,0)%>
Total BOX M2 BD3<%=formatnumber(TransDias(i,54)+TransDias(i,55)+TransDias(i,56)-(TransDias(i,92)+TransDias(i,95)+TransDias(i,98)),0)%>
<%=formatnumber(xM2totbd3-xtotm2shbd3,0)%>
<%=formatnumber((xM2totbd3-xtotm2shbd3)/xnumerodias,0)%>
BD3 Sheet M2 1S<%=formatnumber(TransDias(i,92),0)%>
<%=formatnumber(xM21sbd3sh,0)%>
<%=formatnumber(xM21sbd3sh/xnumerodias,0)%>
BD3 Sheet M2 2S<%=formatnumber(TransDias(i,95),0)%>
<%=formatnumber(xM22sbd3sh,0)%>
<%=formatnumber(xM22sbd3sh/xnumerodias,0)%>
BD3 Sheet M2 3S<%=formatnumber(TransDias(i,98),0)%>
<%=formatnumber(xM23sbd3sh,0)%>
<%=formatnumber(xM23sbd3sh/xnumerodias,0)%>
Total Sheets M2 BD3<%=formatnumber(TransDias(i,92)+TransDias(i,95)+TransDias(i,98),0)%>
<%=formatnumber(xtotm2shbd3,0)%>
<%=formatnumber(xtotm2shbd3/xnumerodias,0)%>
BD1 QTY 1S<%=formatnumber(TransDias(i,42)-TransDias(i,82),0)%>
<%=formatnumber(xqty1sbd1,0)%>
<%=formatnumber(xqty1sbd1/xnumerodias,0)%>
BD1 QTY 2S<%=formatnumber(TransDias(i,43)-TransDias(i,85),0)%>
<%=formatnumber(xqty2sbd1,0)%>
<%=formatnumber(xqty2sbd1/xnumerodias,0)%>
BD1 QTY 3S<%=formatnumber(TransDias(i,44)-TransDias(i,88),0)%>
<%=formatnumber(xqty3sbd1,0)%>
<%=formatnumber(xqty3sbd1/xnumerodias,0)%>
Total BOX QTY BD1<%=formatnumber(TransDias(i,42)+TransDias(i,43)+TransDias(i,44)-(TransDias(i,82)+TransDias(i,85)+TransDias(i,88)),0)%>
<%=formatnumber(xQtytotbd1-xtotqtyshbd1,0)%>
<%=formatnumber((xQtytotbd1-xtotqtyshbd1)/xnumerodias,0)%>
BD1 Sheet QTY 1S<%=formatnumber(TransDias(i,82),0)%>
<%=formatnumber(xqty1sbd1sh,0)%>
<%=formatnumber(xqty1sbd1sh/xnumerodias,0)%>
BD1 Sheet QTY 2S<%=formatnumber(TransDias(i,85),0)%>
<%=formatnumber(xqty2sbd1sh,0)%>
<%=formatnumber(xqty2sbd1sh/xnumerodias,0)%>
BD1 Sheet QTY 3S<%=formatnumber(TransDias(i,88),0)%>
<%=formatnumber(xqty3sbd1sh,0)%>
<%=formatnumber(xqty3sbd1sh/xnumerodias,0)%>
Total Sheets QTY BD1<%=formatnumber(TransDias(i,82)+TransDias(i,85)+TransDias(i,88),0)%>
<%=formatnumber(xtotqtyshbd1,0)%>
<%=formatnumber(xtotqtyshbd1/xnumerodias,0)%>
BD3 QTY 1S<%=formatnumber(TransDias(i,51)-TransDias(i,91),0)%>
<%=formatnumber(xqty1sbd3,0)%>
<%=formatnumber(xqty1sbd3/xnumerodias,0)%>
BD3 QTY 2S<%=formatnumber(TransDias(i,52)-TransDias(i,94),0)%>
<%=formatnumber(xqty2sbd3,0)%>
<%=formatnumber(xqty2sbd3/xnumerodias,0)%>
BD3 QTY 3S<%=formatnumber(TransDias(i,53)-TransDias(i,97),0)%>
<%=formatnumber(xqty3sbd3,0)%>
<%=formatnumber(xqty3sbd3/xnumerodias,0)%>
Total BOX QTY BD3<%=formatnumber(TransDias(i,51)+TransDias(i,52)+TransDias(i,53)-(TransDias(i,91)+TransDias(i,94)+TransDias(i,97)),0)%>
<%=formatnumber(xQtytotbd3-xtotqtyshbd3,0)%>
<%=formatnumber((xQtytotbd3-xtotqtyshbd3)/xnumerodias,0)%>
BD3 Sheet QTY 1S<%=formatnumber(TransDias(i,91),0)%>
<%=formatnumber(xqty1sbd3sh,0)%>
<%=formatnumber(xqty1sbd3sh/xnumerodias,0)%>
BD3 Sheet QTY 2S<%=formatnumber(TransDias(i,94),0)%>
<%=formatnumber(xqty2sbd3sh,0)%>
<%=formatnumber(xqty2sbd3sh/xnumerodias,0)%>
BD3 Sheet QTY 3S<%=formatnumber(TransDias(i,97),0)%>
<%=formatnumber(xqty3sbd3sh,0)%>
<%=formatnumber(xqty3sbd3sh/xnumerodias,0)%>
Total Sheets QTY BD3<%=formatnumber(TransDias(i,91)+TransDias(i,94)+TransDias(i,97),0)%>
<%=formatnumber(xtotqtyshbd3,0)%>
<%=formatnumber(xtotqtyshbd3/xnumerodias,0)%>
BD1 Amt($) 1S<%=formatnumber(TransDias(i,48)-TransDias(i,84),0)%>
<%=formatnumber(xAMT1sbd1,0)%>
<%=formatnumber(xAMT1sbd1/xnumerodias,0)%>
BD1 Amt($) 2S<%=formatnumber(TransDias(i,49)-TransDias(i,87),0)%>
<%=formatnumber(xAMT2sbd1,0)%>
<%=formatnumber(xAMT2sbd1/xnumerodias,0)%>
BD1 Amt($) 3S<%=formatnumber(TransDias(i,50)-TransDias(i,90),0)%>
<%=formatnumber(xAMT3sbd1,0)%>
<%=formatnumber(xAMT3sbd1/xnumerodias,0)%>
Total BOX Amt BD1<%=formatnumber(TransDias(i,48)+TransDias(i,49)+TransDias(i,50)-(TransDias(i,84)+TransDias(i,87)+TransDias(i,90)),0)%>
<%=formatnumber(xAMTtotbd1-xtotamtshbd1,0)%>
<%=formatnumber((xAMTtotbd1-xtotamtshbd1)/xnumerodias,0)%>
BD1 Sheet Amt($) 1S<%=formatnumber(TransDias(i,84),0)%>
<%=formatnumber(xAMT1sbd1sh,0)%>
<%=formatnumber(xAMT1sbd1sh/xnumerodias,0)%>
BD1 Sheet Amt($) 2S<%=formatnumber(TransDias(i,87),0)%>
<%=formatnumber(xAMT2sbd1sh,0)%>
<%=formatnumber(xAMT2sbd1sh/xnumerodias,0)%>
BD1 Sheet Amt($) 3S<%=formatnumber(TransDias(i,90),0)%>
<%=formatnumber(xAMT3sbd1sh,0)%>
<%=formatnumber(xAMT3sbd1sh/xnumerodias,0)%>
Total Sheets AMT BD1<%=formatnumber(TransDias(i,84)+TransDias(i,87)+TransDias(i,90),0)%>
<%=formatnumber(xtotamtshbd1,0)%>
<%=formatnumber(xtotamtshbd1/xnumerodias,0)%>
BD3 Amt($) 1S<%=formatnumber(TransDias(i,57)-TransDias(i,93),0)%>
<%=formatnumber(xAMT1sbd3,0)%>
<%=formatnumber(xAMT1sbd3/xnumerodias,0)%>
BD3 Amt($) 2S<%=formatnumber(TransDias(i,58)-TransDias(i,96),0)%>
<%=formatnumber(xAMT2sbd3,0)%>
<%=formatnumber(xAMT2sbd3/xnumerodias,0)%>
BD3 Amt($) 3S<%=formatnumber(TransDias(i,59)-TransDias(i,99),0)%>
<%=formatnumber(xAMT3sbd3,0)%>
<%=formatnumber(xAMT3sbd3/xnumerodias,0)%>
Total BOX Amt BD3<%=formatnumber(TransDias(i,57)+TransDias(i,58)+TransDias(i,59)-(TransDias(i,93)+TransDias(i,96)+TransDias(i,99)),0)%>
<%=formatnumber(xAMTtotbd3- xtotamtshbd3,0)%>
<%=formatnumber((xAMTtotbd3- xtotamtshbd3)/xnumerodias,0)%>
BD3 Sheet Amt($) 1S<%=formatnumber(TransDias(i,93),0)%>
<%=formatnumber(xAMT1sbd3sh,0)%>
<%=formatnumber(xAMT1sbd3sh/xnumerodias,0)%>
BD3 Sheet Amt($) 2S<%=formatnumber(TransDias(i,96),0)%>
<%=formatnumber(xAMT2sbd3sh,0)%>
<%=formatnumber(xAMT2sbd3sh/xnumerodias,0)%>
BD3 Sheet Amt($) 3S<%=formatnumber(TransDias(i,99),0)%>
<%=formatnumber(xAMT3sbd3sh,0)%>
<%=formatnumber(xAMT3sbd3sh/xnumerodias,0)%>
Total Sheets AMT BD3<%=formatnumber(TransDias(i,93)+TransDias(i,96)+TransDias(i,99),0)%>
<%=formatnumber(xtotamtshbd3,0)%>
<%=formatnumber(xtotamtshbd3/xnumerodias,0)%>
TOTAL 
Tot M2 (BD1+BD3) 1S (Box+Sheet)<%=formatnumber(TransDias(i,45)+TransDias(i,54),0)%>
<%=formatnumber(xm21s,0)%>
<%=formatnumber(xm21s/xnumerodias,0)%>
2S (Box+Sheet)<%=formatnumber(TransDias(i,46)+TransDias(i,55),0)%>
<%=formatnumber(xm22s,0)%>
<%=formatnumber(xm22s/xnumerodias,0)%>
3S (Box+Sheet)<%=formatnumber(TransDias(i,47)+TransDias(i,56),0)%>
<%=formatnumber(xm23s,0)%>
<%=formatnumber(xm23s/xnumerodias,0)%>
Tot QTY (BD1+BD3) 1S (Box+Sheet)<%=formatnumber(TransDias(i,42)+TransDias(i,51),0)%>
<%=formatnumber(xqty1s,0)%>
<%=formatnumber(xqty1s/xnumerodias,0)%>
2S (Box+Sheet)<%=formatnumber(TransDias(i,43)+TransDias(i,52),0)%>
<%=formatnumber(xqty2s,0)%>
<%=formatnumber(xqty2s/xnumerodias,0)%>
3S (Box+Sheet)<%=formatnumber(TransDias(i,44)+TransDias(i,53),0)%>
<%=formatnumber(xqty3s,0)%>
<%=formatnumber(xqty3s/xnumerodias,0)%>
Tot AMT (BD1+BD3) 1S (Box+Sheet)<%=formatnumber(TransDias(i,48)+TransDias(i,57),0)%>
<%=formatnumber(xamt1s,0)%>
<%=formatnumber(xamt1s/xnumerodias,0)%>
2S (Box+Sheet)<%=formatnumber(TransDias(i,49)+TransDias(i,58),0)%>
<%=formatnumber(xamt2s,0)%>
<%=formatnumber(xamt2s/xnumerodias,0)%>
3S (Box+Sheet)<%=formatnumber(TransDias(i,50)+TransDias(i,59),0)%>
<%=formatnumber(xamt3s,0)%>
<%=formatnumber(xamt3s/xnumerodias,0)%>
Total BOX M2
<%=formatnumber(TransDias(i,45)+TransDias(i,46)+TransDias(i,47)+TransDias(i,54)+TransDias(i,55)+TransDias(i,56)-TransDias(i,80),0)%>
<%=formatnumber(xtotalm2-xtotm2sh,0)%>
<%=formatnumber((xtotalm2-xtotm2sh)/xnumerodias,0)%>
Total Sheets M2 <%=formatnumber(TransDias(i,80),0)%>
<%=formatnumber(xtotm2sh,0)%>
<%=formatnumber(xtotm2sh/xnumerodias,0)%>
Total BOX QTY
<%=formatnumber(TransDias(i,42)+TransDias(i,43)+TransDias(i,44)+TransDias(i,51)+TransDias(i,52)+TransDias(i,53)-TransDias(i,79),0)%>
<%=formatnumber(xtotalqty-xtotqtysh,0)%>
<%=formatnumber((xtotalqty-xtotqtysh)/xnumerodias,0)%>
Total Sheets QTY <%=formatnumber(TransDias(i,79),0)%>
<%=formatnumber(xtotqtysh,0)%>
<%=formatnumber(xtotqtysh/xnumerodias,0)%>
Total BOX AMT
<%=formatnumber(TransDias(i,48)+TransDias(i,49)+TransDias(i,50)+TransDias(i,57)+TransDias(i,58)+TransDias(i,59)-TransDias(i,81),0)%>
<%=formatnumber(xtotalamt-xtotamtsh,0)%>
<%=formatnumber((xtotalamt-xtotamtsh)/xnumerodias,0)%>
Total Sheets AMT <%=formatnumber(TransDias(i,81),0)%>
<%=formatnumber(xtotamtsh,0)%>
<%=formatnumber(xtotamtsh/xnumerodias,0)%>
Avg QTY
<%=formatnumber((TransDias(i,42)+TransDias(i,43)+TransDias(i,44)+TransDias(i,51)+TransDias(i,52)+TransDias(i,53))/TransDias(i,60),0)%>
<%=formatnumber(1,0)%>
<%=formatnumber(xtotalavgqty,0)%>
<%=formatnumber(xtotalavgqty/xnumerodias,0)%>
Avg M2
<%=formatnumber((TransDias(i,45)+TransDias(i,46)+TransDias(i,47)+TransDias(i,54)+TransDias(i,55)+TransDias(i,56))/TransDias(i,60),0)%>
<%=formatnumber(1,0)%>
<%=formatnumber(xtotalavgm2,0)%>
<%=formatnumber(xtotalavgm2/xnumerodias,0)%>
Avg AMT
<%=formatnumber((TransDias(i,48)+TransDias(i,49)+TransDias(i,50)+TransDias(i,57)+TransDias(i,58)+TransDias(i,59))/TransDias(i,60),0)%>
<%=formatnumber(1,0)%>
<%=formatnumber(xtotalavgamt,0)%>
<%=formatnumber(xtotalavgamt/xnumerodias,0)%>

 

<% End If Rsfore0.Close Set Rsfore0 = Nothing ''''''''''''' %>