<%@ LANGUAGE = "VBScript" %> <% ''''''' Rev 20180911 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 criterio22=Request.Form("criterio22") if criterio22="" then xcriterio22=" Todos " 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 strday = Right("00" & Day(Date_ini), 2) strmonth = Right("00" & Month(Date_ini), 2) stryear = Right("00" & (Year(Date_ini) - 1), 4) strday2 = Right("00" & Day(Date_end), 2) strmonth2 = Right("00" & Month(Date_end), 2) stryear2 = Right("00" & (Year(Date_end) - 1), 4) fechainicial2 = Cstr(stryear + strmonth + strday) fechafinal2 = Cstr(stryear2 + strmonth2 + strday2) lperiod1 = stryear & "-" & strmonth & "-" & strday lperiod2 = stryear2 & "-" & strmonth2 & "-" & strday2 period1 = lperiod1 period2 = lperiod2 '************** 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) lfecinicio= CStr(canno & strmonth & "01") lfecfinal= CStr(canno & strmonth2 & strday) lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01") 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") ldiasmesx=ldiasmes1 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 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) 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 '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 %>
Report Summary Transfer List
<% d="/" ctipomov1="FACTURA" ctipomov2="REMISION" sla="/" cero1="00" cero2="0000" 'lfecinicio= "20160501" 'lfecfinal= "20160601" 'lfecinicial="20160501" response.write("FROM: "&lfecinicial&" ") 'response.write(lfecinicio&" ") response.write("TO: "&lfecfinal&"
") ReDim TransDias(ldiasmesx,30) ReDim Trucking(ldiasmesx,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,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 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")) lTotalQty = lTotalQty+ cdbl(Rstrans("prod_qty")) lTotalM2 = lTotalM2+ cdbl(localm2) lTotalAmt = lTotalAmt+ cdbl(Rstrans("prod_amt")) litemclass="00" localm2=cdbl(Rstrans("prod_m2")) '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")) litemx="V-Board" 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" 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 'response.write(rsinven2("good_nm")) 'response.Write("n4 "&rsinven2("Note_4")&" N5 " & rsinven2("Note_5")) 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")) else lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstrans("prod_qty")) end if lOBxM2 = lOBxM2 + localm2 lOBxAmt =lOBxAmt + cdbl(Rstrans("prod_amt")) if rsinven2("Note_5")="NA" then litemx=rsinven2("Note_4") else litemx=rsinven2("Note_5") end if '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 lclasif="Box" if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lclasif="Sheet" end if %> <% 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)) 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 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 else end if 'end if Loop End If lxx=0 %>
Date Time Customer M2 W/H Shift QTY ITEM Class Type Box/Sh
<%=Rstrans("trans_date")%> <%=Rstrans("trans_time")%> <%=Rstrans("cust_cd")%> <%=Rstrans("cust_nm")%> <%=Rstrans("prod_m2")%> <%=Rstrans("local_nm")%> <%=Rstrans("work_gubun")%> <%=Rstrans("prod_qty")%> <%=Rstrans("item")%> <%=Rstrans("item_class")%> <%=litemx%> <%=lclasif%>
<% Rstrans.Close Set Rstrans = 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) %> <% xtotprodOBbd1=xtotprodOBbd1+TransDias(i,28) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqtyOB=xtotalsamqtyOB+TransDias(i,24) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotprodOBbd3=xtotprodOBbd3+TransDias(i,29) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqtyOBbd3=xtotalsamqtyOBbd3+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 %> <% 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 %> <% 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) %>   
<%=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
<%=formatnumber(TransDias(i,28),0)%>
<%=formatnumber(xtotprodOBbd1,0)%>
<%=formatnumber(xtotprodOBbd1/xnumerodias,0)%>
BD 1 Trans
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(xtotalsamqtyOB,0)%>
<%=formatnumber(xtotalsamqtyOB/xnumerodias,0)%>
BD 3 Prod
<%=formatnumber(TransDias(i,29),0)%>
<%=formatnumber(xtotprodOBbd3,0)%>
<%=formatnumber(xtotprodOBbd3/xnumerodias,0)%>
BD 3 Trans
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(xtotalsamqtyOBbd3,0)%>
<%=formatnumber(xtotalsamqtyOBbd3/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)%>