<%@ Language=VBScript %>
<%
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
response.expires = 0
on error resume next
'cadena para abrir base de datos
''''''
dim modificaciones
dim observaciones
dim mensageerror
modificaciones = request.form("modificaciones")
observaciones = request.form("observaciones")
strrepeso = request.form("repeso")
strcargue = request.form("cargue")
strdescargue = request.form("descargue")
strbodegaje = request.form("bodegaje")
strstandby = request.form("standby")
strotros = request.form("otros")
'if isnull(strrepeso) or strrepeso="" then
'strrepeso = 0
'end if
if strrepeso <> "" then
sqlmodi = "update orden_producción set repeso='" & strrepeso & "' where norden =" & request.form("cual") & ""
set oco12 = CreateObject("ADODB.connection")
oco12.open session("cadena")
oco12.execute sqlmodi
if err.number <> 0 then
response.write "<hr>ERROR EN INGRESAR LA MODIFICACIONN REPESO " & err.description
RESPONSE.END
end if
end if
if (strcargue <> "" or strdescargue <> "" or strbodegaje <> "" or strstandby <> "" or strotros <> "") then
sqlmodi = "update orden_producción set cargue=" & strcargue & ", descargue='" & strdescargue & "', bodegaje='" & strbodegaje & "', standby='" & strstandby & "', otros='" & strotros & "' where norden =" & request.form("cual") & ""
set oco12 = CreateObject("ADODB.connection")
oco12.open session("cadena")
oco12.execute sqlmodi
if err.number <> 0 then
response.write "<hr>ERROR EN INGRESAR LA MODIFICACION CARGUE " & err.description
RESPONSE.END
end if
end if
if modificaciones <> "" then
set oco = CreateObject("ADODB.connection")
oco.open session("cadena")
sqlmodi = "update orden_producción set modificaciones='" & modificaciones & "' where norden =" & request.form("cual") & ""
oco.execute sqlmodi
if err.number <> 0 then
response.write "<hr>ERROR EN INGRESAR LA MODIFICACION " & err.description
RESPONSE.END
end if
end if
oco.close
set oco2 = CreateObject("adodb.connection")
oco2.open session("cadena")
strSQL= "exec VerOrdenPro2 " + request.form("cual")
set ors2 = oco2.Execute(strSQL)
set oco3 = CreateObject("adodb.connection")
oco3.open session("cadena")
strSQL= "select repeso from orden_producción where norden =" & request.form("cual") & ""
set ors3 = oco3.Execute(strSQL)
%><!--<script>
alert ("seleciono el repeso", "prueba")
</script> -->
<%
if session("cedula") = ucase(cstr(ors2("cCedulaUsu"))) then
'response.write ucase(cstr(strSQL(ors2(2))))
'response.write ucase(cstr(ors2("cCedulaUsu")))
'response.write session("cedula")
'response.end
if observaciones <> "" then
set oco = CreateObject("ADODB.connection")
oco.open session("cadena")
sqlmodi = "update orden_producción set observaciones='" & observaciones & "' where norden =" & request.form("cual") & ""
'response.write request.form("cual")
'response.write sqlmodi
'response.end
oco.execute sqlmodi
if err.number <> 0 then
response.write "<hr>ERROR EN INGRESAR LA OBSERVACION " & err.description
RESPONSE.END
end if
end if
else
response.write "<hr><font size=6 color = #ff0000>SE INGRESO LA OBSERVACIÓN : </font><!--<BR><font size=5>USTED NO TIENE PERMISOS PARA EDITAR ESTE CAMPO</font>-->"
'response.write "ERROR AL MODIFICAR LA OBSERVACION: EL USUARIO QUE CREO LA O.P. NO CORRESPONDE AL DE MODIFICACION"
end if
function Pro_DAto(strValor)
if isnull(strValor) then
Pro_DAto = ""
else
Pro_DAto = strValor
end if
end function
dim cual
dim oco
dim ors
dim fechaCon
dim mediocon
DIM IDcONFIRMA
dim noConfirmado
dim cEmail
dim cFax
dim cTel
dim cMovil
dim cPersona
dim strOficina
DIM oficina,sw
sw=0
if request.form("cual") = "" then
cual = Request.QueryString("nroOrden")
else
cual = request.form("cual")
end if
'+++ver si el usuario es de Medellin
strOficina="select iCodigo,cCiudad from oficinas where iCodigo= " & Session("Oficina") & ""
set oco = CreateObject("adodb.connection")
set orsrepeso = CreateObject("adodb.recordset")
oco.open session("cadena")
set ors = oco.execute(strOficina)
oficina=lCase(ors("cCiudad"))
if oficina= "medellín" then
sw=1
end if
ors.close
set ors = nothing
'***************
set oco = CreateObject("adodb.connection")
oco.open session("cadena")
strSQL= "exec VerOrdenPro2 " + cual
set ors = oco.Execute(strSQL)
set oco = CreateObject("adodb.connection")
oco.open session("cadena")
strrepeso= "select * from orden_producción where norden =" & cual
set orsrepeso = oco.execute(strrepeso)
fechaCon = Pro_DAto(ors("dConfirma"))
mediocon = Pro_DAto(ors("cConfirma"))
%>
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
function test_onclick()
{
document.ver_orden_pro.action = "ver_Orden_pro.asp";
document.ver_orden_pro.submit();
}
function obser_onclick()
{
document.ver_orden_pro.action = "ver_Orden_pro.asp";
document.ver_orden_pro.submit();
}
</script>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 9">
<link rel=File-List href="./plantillaNUEVA_archivos/filelist.xml">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
x\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
</head>
<body>
<%
if ors.EOF then
strParametros= "<hr color=#00008b><p><Strong>No se encontro la orden Número = </Strong><font size=7 color = #ff0000>" + cstr(cual) + "</font>"
%>
<%
else
%>
<!--[if !excel]> <![endif]-->
<!--La siguiente información se generó mediante la característica Publicar como
página Web de Microsoft Excel.-->
<!--Si se vuelve a publicar el mismo elemento desde Excel, se reemplazará toda
la información comprendida entre las etiquetas DIV.-->
<!----------------------------->
<!--INICIO DE LOS RESULTADOS DEL ASISTENTE PARA PUBLICAR COMO PÁGINA WEB DE
EXCEL -->
<!----------------------------->
<div id="ORDEN EN BLANCOnueva_29424" align=center x:publishsource="Excel">
<table x:str border=0 cellpadding=0 cellspacing=0 width=764 class=xl2229424 style='border-collapse:collapse;table-layout:fixed;width:574pt;border-right:1.0pt solid black;border-top:1.0pt solid black;border-bottom:1.0pt solid black;'>
<col class=xl2229424 width=113 style='mso-width-source:userset;mso-width-alt:
4132;width:85pt'>
<col class=xl2229424 width=92 style='mso-width-source:userset;mso-width-alt:
3364;width:69pt'>
<col class=xl2229424 width=14 style='mso-width-source:userset;mso-width-alt:
512;width:11pt'>
<col class=xl2229424 width=45 style='mso-width-source:userset;mso-width-alt:
1645;width:34pt'>
<col class=xl2229424 width=54 style='mso-width-source:userset;mso-width-alt:
1974;width:41pt'>
<col class=xl2229424 width=69 style='mso-width-source:userset;mso-width-alt:
2523;width:52pt'>
<col class=xl2229424 width=64 style='mso-width-source:userset;mso-width-alt:
2340;width:48pt'>
<col class=xl2229424 width=95 style='mso-width-source:userset;mso-width-alt:
3474;width:71pt'>
<col class=xl2229424 width=67 style='mso-width-source:userset;mso-width-alt:
2450;width:50pt'>
<col class=xl2229424 width=63 style='mso-width-source:userset;mso-width-alt:
2304;width:47pt'>
<col class=xl2229424 width=88 style='mso-width-source:userset;mso-width-alt:
3218;width:66pt'>
<tr height=17 style='height:12.75pt'>
<td colspan=11 height=17 width=764 align=left valign=top style='border-right:1.0pt solid black;height:12.75pt;width:574pt' >
<![if vml]><span style='mso-ignore:vglayout;
position:absolute;z-index:0;margin-left:15px;margin-top:7px;width:164px;
height:89px'><img width=164 height=89
src="logo.gif"
v:shapes="_x0000_s1028"></span><![endif]>