<%@ LANGUAGE = "VBScript" %>
<%
Path_index=Request.ServerVariables("PATH_INFO")
'Check if user is already signed in
dateini=request.QueryString("dateini")
dateend=request.QueryString("dateend")
cnumorder=request.QueryString("cnumorder")
cidwo=request.form("numwo")
vfecha="cfecha"&cidwo
vprodqty="cprodqty"&cidwo
vbadqty="cbadqty"&cidwo
vaction="duplic"&cidwo
'if vpro
cprodqty=request.Form(vprodqty)
cbadqty=request.Form(vbadqty)
naction=request.Form(vaction)
vturno="cturno"&cidwo
cturno=trim(request.Form(vturno))
response.write(" cfecha: "&cfecha)
response.write(" vf "&vfecha)
response.write(" fp "&fechap)
response.write(" vt "&vturno)
response.write(" ct "&cturno)
lhora=int(left(FormatDateTime(Now,4),2))
'if (cturno="B" or cturno="D") and lhora<8 and (date()=cdate(request.Form(vfecha)))then
if (cturno="3" or ucase(cturno)="C") and lhora<8 and (date()=cdate(request.Form(vfecha)))then
cfecha=cdate(request.Form(vfecha))-1
dia=right("00"&day(cFecha),2)
mes=right("00"&month(cFecha),2)
anno=right("00"&year(cFecha),2)
fechap=anno&mes&dia
else
cfecha=request.Form(vfecha)
dia=right("00"&day(cFecha),2)
mes=right("00"&month(cFecha),2)
anno=right("00"&year(cFecha),2)
fechap=anno&mes&dia
end if
'cfecha="cfecha"&cstr(Corr2("serialval"))
'cprodqty="cprodqty"&cstr(Corr2("serialval"))
numitem=0
set rsendtime=dbsql5.execute("select * from PCSIN where serialval=" & cidwo)
letime=trim(rsendtime("etime"))
if letime<>"" then
response.write(" letime: "&letime)
set rsupdxml=dbsql5.execute("update PCSIN set jobymd='"&fechap&"', pqty="&cprodqty&", stat='T', jobjo='"&cturno&"',eqty="&cbadqty&" where serialval=" & cidwo )
else
fecha=date()
dia=right("00"&day(Fecha),2)
mes=right("00"&month(Fecha),2)
anno=right("00"&year(Fecha),4)
fecing=anno&mes&dia
Hring=FormatDateTime(Now,4)&":00"
lendtime=fecing&" "&Hring
set rsupdxml=dbsql5.execute("update PCSIN set jobymd='"&fechap&"', pqty="&cprodqty&", stat='T', jobjo='"&cturno&"',eqty="&cbadqty&",etime='"&lendtime&"' where serialval=" & cidwo )
end if
set rsupdxml = nothing
response.Redirect("corrugator2_2021.asp?msg=Actualizado&dateini="&dateini&"&dateend="&dateend&"&cnumorder="&cnumorder)
%>
:: PULEX ::
| Actualizada... | |
 |