<%@ LANGUAGE = "VBScript" %> <% Session.Timeout = 120 Server.ScriptTimeout = 5000 fechainicial=Request.Querystring("fecini") fechafinal=Request.Querystring("fecfin") '''''''''''''''''''''''''''''''''''''' %> <% Response.Buffer = TRUE Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "content-disposition", "inline; filename=Corr1_plan"&date()&time()&".xls" %> <% '************** Inventory 'lturno=0 Dim Rsinven1, Rsinven2, rswip, Rsmachine Dim Sqlinven1, sqlinven2, sqlwip ''''''''''''''''''''''''''''''''''''''' 'set Rscorr=dbsqlcorr.execute("select GOL,JIJG,JANG,WPOK,QTY,PQTY,SUJUNO,JOBYMD,CUST,BOX_NM,eqty,jtime,dtime,JOBJO from SHPSOUT(nolock) where jobymd between '" & fechainicial & "' and '" & fechafinal & "' order by JOBYMD,JOBJO") set Rscorr=dbsqlcorr.execute("SELECT [YMD] ,[LOT] ,[ORD] ,[GOL] ,[JIJG] ,[JANG] ,[WPOK] ,[QTY] ,[SSET] ,[SLSC] ,[SUJUNO] ,[CUST] ,[NOTE] ,[ITEM] ,[NYMD] ,[NCUST] ,[BOX_CD] ,[BOX_NM] ,[BOX_SL] ,[BOX_SW] ,[BOX_SD] ,[BOX_TYPE] ,[BOX_MCODE] ,[BOX_MNAME] ,[MCODE] ,[MNAME] ,[FAOANO] ,[DNCHK] ,[STAT] ,[UPDATECHK] ,[SH_LD] ,[SH_MB] ,[SH_LB] ,[SH_MA] ,[SH_LA] ,[SHQTY] ,[balju_no] ,[jidate] ,[jiseq] FROM [CANABOXDB].[dbo].[SHPSIN] where ymd between '" & fechainicial & "' and '" & fechafinal & "' order by YMD,ord") If Rscorr.EOF And Rscorr.BOF Then response.Write("No records exist for corr. this date.") Else %> <% TOTtarget=0 TOTM2=0 Rscorr.movefirst Do While Not Rscorr.EOF %> <% TotTarget=TotTarget+cdbl(Rscorr("QTY")) RsCORR.MoveNext LOOP END IF rscorr.close %>

PROD DATE(YMD)

ORDER NO.(SUJUNO)

CUSTOMER("CUST")

BOX ITEM("BOX_NM")

FLUTE("GOL")

PAPER COMBINATION("JIJG")

LENGTH("JANG")

WIDTH("WPOK")

TARGET("QTY")

Trim

SS("SSET")

SL/SC Data("SLSC")

Down("DNCHK")

Next Process("BOX_MNAME")

Box Type("BOX_TYPE")

Note("NOTE")

Lot("LOT")

<%= Rscorr("YMD")%>

<%= Rscorr("SUJUNO")%>

<%= Rscorr("CUST")%>

<%= Rscorr("BOX_NM")%>

<%= Rscorr("GOL")%>

<%= Rscorr("JIJG")%>

<%= Rscorr("JANG")%>

<%= Rscorr("WPOK")%>

<%= Rscorr("QTY")%>

<%= Rscorr("SSET")%>

<%= Rscorr("SLSC") %>

<%= Rscorr("DNCHK")%>

<%= Rscorr("BOX_MNAME")%>

<%= Rscorr("BOX_TYPE")%>

<%= Rscorr("NOTE")%>

<%= Rscorr("LOT")%>