<%@ 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") lspace=" " apostrofe="'" if Date_ini="" or Date_ini=null then Date_ini=date()-(day(date()))+1 Date_end=date() 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 Dim transm(6,14) 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 'Response.write(" ok ") %> Report Transfer Monthly <% 'header if busca="" or busca=null then origen=doc end if d="/" ctipomov1="FACTURA" ctipomov2="REMISION" sla="/" cero1="00" cero2="0000" response.write("FROM: "&date_ini&" ") 'response.write(lfecinicio&" ") response.write("TO: "&Date_end&"
") '''''''''''************************************************* FIN DE OFFSET lyearant3=(Year(Date_ini)-3) lyearant2=(Year(Date_ini)-2) lyearant1=(Year(Date_ini)-1) lyearant0=(Year(Date_ini)) numreg=0 nyear=1 set Rsprodm=dbsql3.execute("SELECT * FROM transmensual WHERE yeartrans>"&lyearant3&" order by yeartrans") if not Rsprodm.eof then Rsprodm.movefirst end if %>
TRANSFER (by Month) <% 'response.write(" Year: "&Rsprodm("yeartrans")) 'response.write(" Jan: "&Rsprodm("Month1")) 'response.write("OK0") lcantmes=12 if Rsprodm("yeartrans")=lyearant0 then lcantmes=month(date_ini) end if 'Do While Not Rsprodm.EOF Do While xxxx=9 %> <% for mesqty=1 to 12 rmes="month"&mesqty %> <% next %> <% Rsprodm.movenext Loop nyear=1 'response.write(Rsprodm("yeartrans")) 'response.write(Rsprodm("Month"&nyear)) 'Rsprodm.movefirst 'if nyear=4 then Do While Not Rsprodm.EOF 'response.write("OK1") 'for nyear=1 to nyear<4 lyear1=Rsprodm("yeartrans") lcantmes=12 if Rsprodm("yeartrans")=lyearant0 then lcantmes=month(date_ini) end if 'response.write(" CantMes "&lcantmes) %> <% ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(1,mesqty)=Rsprodm(rmes) next transm(1,13)=ltotalyear transm(1,14)=(ltotalyear/lcantmes) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(2,mesqty)=Rsprodm(rmes) next transm(2,13)=ltotalyear transm(2,14)=(ltotalyear/lcantmes) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(3,mesqty)=Rsprodm(rmes) next transm(3,13)=ltotalyear transm(3,14)=(ltotalyear/lcantmes) %> <% locsam=0 if locsam=1 then %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(1,mesqty)=Rsprodm(rmes) next transm(1,13)=ltotalyear transm(1,14)=(ltotalyear/lcantmes) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(2,mesqty)=Rsprodm(rmes) next transm(2,13)=ltotalyear transm(2,14)=(ltotalyear/lcantmes) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(3,mesqty)=Rsprodm(rmes) next transm(3,13)=ltotalyear transm(3,14)=(ltotalyear/lcantmes) %> <% else Rsprodm.movenext Rsprodm.movenext Rsprodm.movenext end if ' locsam para imprimir el total de samsung (VB+Other+OB) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(4,mesqty)=Rsprodm(rmes) next transm(4,13)=ltotalyear transm(4,14)=(ltotalyear/lcantmes) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(5,mesqty)=Rsprodm(rmes) next transm(5,13)=ltotalyear transm(5,14)=(ltotalyear/lcantmes) %> <% Rsprodm.movenext ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% ltotalyear=ltotalyear+Rsprodm(rmes) transm(6,mesqty)=Rsprodm(rmes) next transm(6,13)=ltotalyear transm(6,14)=(ltotalyear/lcantmes) %> <% 'Rsprodm.movenext 'ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% 'ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% 'Rsprodm.movenext 'ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% 'ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% 'Rsprodm.movenext 'ltotalyear=0 for mesqty=1 to 12 rmes="month"&mesqty %> <% 'ltotalyear=ltotalyear+Rsprodm(rmes) next %> <% Rsprodm.movenext ltotalyear=0 if not Rsprodm.eof then lyear2=Rsprodm("yeartrans") end if if lyear2<>lyear1 or Rsprodm.eof then %> <% end if 'next Loop 'end if %>
Year
Description
JAN
FEB
MAR
APR
MAY
JUN
JUL
AUG
SEP
OCT
NOV
DEC
TOTAL
AVG
<%=Rsprodm("yeartrans")%> <%=Rsprodm("concepto")%>  
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(Rsprodm("totalyear"),0)%>
<%=formatnumber(Rsprodm("totalyear")/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung VB
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung Others
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung O/B QTY BD 1 Prod F
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
BD 1 Prod L
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
T 1S
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
T 2S
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
T 3S
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
BD 1 Trans
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
BD 3 Prod F
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
BD 3 Prod L
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
1S
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
2S
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
3S
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
BD 3 Trans
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
Total Prod
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
1s:
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
2s:
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
3s:
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung O/B QTY Total Trans
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung O/B M2
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung O/B AMT
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung QTY
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung M2
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Samsung AMT
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Others QTY
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Others M2
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> Others AMT
<%=formatnumber(Rsprodm(rmes),0)%>
<%=formatnumber(ltotalyear,0)%>
<%=formatnumber(ltotalyear/lcantmes,0)%>
<%=Rsprodm("yeartrans")%> TOTAL QTY (OB+Others)
<%=formatnumber((transm(1,mesqty)+transm(4,mesqty)),0)%>
<%=formatnumber(transm(1,13)+transm(4,13),0)%>
<%=formatnumber((transm(1,13)+transm(4,13))/lcantmes,0)%>
TOTAL M2 (OB+Others)
<%=formatnumber((transm(2,mesqty)+transm(5,mesqty)),0)%>
<%=formatnumber(transm(2,13)+transm(5,13),0)%>
<%=formatnumber((transm(2,13)+transm(5,13))/lcantmes,0)%>
TOTAL AMT (OB+Others)
<%=formatnumber((transm(3,mesqty)+transm(6,mesqty)),0)%>
<%=formatnumber(transm(3,13)+transm(6,13),0)%>
<%=formatnumber((transm(3,13)+transm(6,13))/lcantmes,0)%>
 
Year
Description
JAN
FEB
MAR
APR
MAY
JUN
JUL
AUG
SEP
OCT
NOV
DEC
TOTAL
AVG


 

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