<%@ LANGUAGE = "VBScript" %>
<%
Path_index=Request.ServerVariables("PATH_INFO")
'Check if user is already signed in
'vaction="duplic"&request.QueryString(naction)
naction=request.QueryString("naction")
dateini=request.QueryString("dateini")
dateend=request.QueryString("dateend")
response.write(" act "&naction)
cnumorder=request.QueryString("cnumorder")
'cfecha="cfecha"&cstr(Corr2("serialval"))
'cprodqty="cprodqty"&cstr(Corr2("serialval"))
numitem=0
if naction>0 then
set rslastrec=dbsql5.execute("select serialval from PCSIN order by -serialval")
lultreg=int(rslastrec("serialval"))+1
response.write(" X "&int(rslastrec("serialval"))&" x ")
lq="insert into pcsin(SERIALTIME, Serialval, SERIALSTR, ROWMOVEKEY, STAT, SUJUNO, DOCNO, YMD, GOL, GOLUNION, DF, SFM1, SFL1, SFM2, SFL2, SFM3, SFL3, SFM4, SFL4, SJPOK, SJPOKNO, SJQTY, JANG, WPOK, QTY, POKNO, OVERQTY, TQTY, SSTRIM, SSET, SJSLSC, SLSC, SLSCSUB, CUST, CUSTLNAME, JOBYMD, MCODE, BOXJANG, BOXPOK, BOXGO, BOXLNAME, BOXNAME, DLVYMD, DLVNAME, STACKNO, SCGAP, BUSU, SJBEHAP, BEHAP, NOTE, JOBSEQ, JTIME, DTIME, PQTY, EQTY, CHGQTY, STIME, ETIME, JOBJO, JUYA, AVGSPEED, TOTLENGTH, CUTLENGTH, DFLENGTH, BFLENGTH, AFLENGTH, ERRLENGTH, CHGLENGTH, POPUP, JOBCPYMD, DADAN, EXTRACHECK, CANCELCHECK, ORIGQTY, RSTNO, PREPQTY, DF_CF, SFM1_CF, SFL1_CF, SFM2_CF, SFL2_CF, SFM3_CF, SFL3_CF, SFM4_CF, SFL4_CF, DF_CF_M, SFM1_CF_M, SFL1_CF_M, SFM2_CF_M, SFL2_CF_M, SFM3_CF_M, SFL3_CF_M, SFM4_CF_M, SFL4_CF_M, COATING, ORDCHGWAY, STATSV, UGOL, STANDARD_CD, DLVTIME, AREA_NAME, SJJANG, WCONVERT_M2, UPLOAD) select SERIALTIME, "&lultreg&", SERIALSTR, 'D', 'A', SUJUNO, DOCNO, YMD, GOL, GOLUNION, DF, SFM1, SFL1, SFM2, SFL2, SFM3, SFL3, SFM4, SFL4, SJPOK, SJPOKNO, SJQTY, JANG, WPOK, QTY, POKNO, OVERQTY, TQTY, SSTRIM, SSET, SJSLSC, SLSC, SLSCSUB, CUST, CUSTLNAME, '', MCODE, BOXJANG, BOXPOK, BOXGO, BOXLNAME, BOXNAME, DLVYMD, DLVNAME, STACKNO, SCGAP, BUSU, SJBEHAP, BEHAP, NOTE, JOBSEQ, JTIME, DTIME, 0, 0, CHGQTY, STIME, ETIME, '', JUYA, AVGSPEED, TOTLENGTH, CUTLENGTH, DFLENGTH, BFLENGTH, AFLENGTH, ERRLENGTH, CHGLENGTH, POPUP, JOBCPYMD, DADAN, EXTRACHECK, CANCELCHECK, ORIGQTY, RSTNO, PREPQTY, DF_CF, SFM1_CF, SFL1_CF, SFM2_CF, SFL2_CF, SFM3_CF, SFL3_CF, SFM4_CF, SFL4_CF, DF_CF_M, SFM1_CF_M, SFL1_CF_M, SFM2_CF_M, SFL2_CF_M, SFM3_CF_M, SFL3_CF_M, SFM4_CF_M, SFL4_CF_M, COATING, ORDCHGWAY, STATSV, UGOL, STANDARD_CD, DLVTIME, AREA_NAME, SJJANG, WCONVERT_M2, UPLOAD from pcsin where serialval=" & naction
response.write(lq)
if lultreg>0 then
set rsaddrec=dbsql5.execute("insert into pcsin(SERIALTIME, Serialval, SERIALSTR, ROWMOVEKEY, STAT, SUJUNO, DOCNO, YMD, GOL, GOLUNION, DF, SFM1, SFL1, SFM2, SFL2, SFM3, SFL3, SFM4, SFL4, SJPOK, SJPOKNO, SJQTY, JANG, WPOK, QTY, POKNO, OVERQTY, TQTY, SSTRIM, SSET, SJSLSC, SLSC, SLSCSUB, CUST, CUSTLNAME, JOBYMD, MCODE, BOXJANG, BOXPOK, BOXGO, BOXLNAME, BOXNAME, DLVYMD, DLVNAME, STACKNO, SCGAP, BUSU, SJBEHAP, BEHAP, NOTE, JOBSEQ, JTIME, DTIME, PQTY, EQTY, CHGQTY, STIME, ETIME, JOBJO, JUYA, AVGSPEED, TOTLENGTH, CUTLENGTH, DFLENGTH, BFLENGTH, AFLENGTH, ERRLENGTH, CHGLENGTH, POPUP, JOBCPYMD, DADAN, EXTRACHECK, CANCELCHECK, ORIGQTY, RSTNO, PREPQTY, DF_CF, SFM1_CF, SFL1_CF, SFM2_CF, SFL2_CF, SFM3_CF, SFL3_CF, SFM4_CF, SFL4_CF, DF_CF_M, SFM1_CF_M, SFL1_CF_M, SFM2_CF_M, SFL2_CF_M, SFM3_CF_M, SFL3_CF_M, SFM4_CF_M, SFL4_CF_M, COATING, ORDCHGWAY, STATSV, UGOL, STANDARD_CD, DLVTIME, AREA_NAME, SJJANG, WCONVERT_M2, UPLOAD) select SERIALTIME, "&lultreg&", SERIALSTR, 'D', 'A', SUJUNO, DOCNO, YMD, GOL, GOLUNION, DF, SFM1, SFL1, SFM2, SFL2, SFM3, SFL3, SFM4, SFL4, SJPOK, SJPOKNO, SJQTY, JANG, WPOK, QTY, POKNO, OVERQTY, TQTY, SSTRIM, SSET, SJSLSC, SLSC, SLSCSUB, CUST, CUSTLNAME, '', MCODE, BOXJANG, BOXPOK, BOXGO, BOXLNAME, BOXNAME, DLVYMD, DLVNAME, STACKNO, SCGAP, BUSU, SJBEHAP, BEHAP, NOTE, JOBSEQ, JTIME, DTIME, 0, 0, CHGQTY, STIME, '', '', JUYA, AVGSPEED, TOTLENGTH, CUTLENGTH, DFLENGTH, BFLENGTH, AFLENGTH, ERRLENGTH, CHGLENGTH, POPUP, JOBCPYMD, DADAN, EXTRACHECK, CANCELCHECK, ORIGQTY, RSTNO, PREPQTY, DF_CF, SFM1_CF, SFL1_CF, SFM2_CF, SFL2_CF, SFM3_CF, SFL3_CF, SFM4_CF, SFL4_CF, DF_CF_M, SFM1_CF_M, SFL1_CF_M, SFM2_CF_M, SFL2_CF_M, SFM3_CF_M, SFL3_CF_M, SFM4_CF_M, SFL4_CF_M, COATING, ORDCHGWAY, STATSV, UGOL, STANDARD_CD, DLVTIME, AREA_NAME, SJJANG, WCONVERT_M2, UPLOAD from pcsin where serialval=" & naction)
end if
end if
response.Redirect("corrugator2_2021.asp?msg=Actualizado&dateini="&dateini&"&dateend="&dateend&"&cnumorder="&cnumorder)
%>
:: PULEX ::
| Actualizada... | |
 |