HOLA,
Adjunto el codigo. Hay mas opciones para modificar pero me tocó quitarlas porque el foro solo me permite cierto nro de caracteres. Lo raro es que a veces me modifica, por que?
De antemano muchisimas gracias.
Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Batch.asp" -->
<!--#include file="Connections/BatchReport.asp" -->
<html>
<head>
<title>Modificar Molienda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.style6 {
font-size: small;
font-family: Arial, Helvetica, sans-serif;
}
.style23 {
text-align: center;
}
.style8 {
text-align: center;
color: #006633;
font-family: Arial;
font-weight: bold;
border: 1px solid #006633;
font-size: small;
}
.style24 {
text-align: center;
color: #006633;
font-family: Arial;
font-weight: bold;
border: 1px solid #006633;
}
.style3 {
text-align: left;
}
.style2 {
color: #006633;
}
.style1 {
color: #006633;
}
.style5 {
font-family: Arial;
}
.style22 {
font-size: small;
}
.style25 {
color: #009933;
}
.style27 {
text-align: left;
color: #006633;
font-family: Arial;
font-weight: bold;
border: 1px solid #006633;
}
.style29 {
font-family: Arial;
font-weight: normal;
color: #006633;
}
.style36 {
border: 1px solid #006633;
text-align: center;
}
</style>
</head>
<body>
<form name="form1" method="POST" action style="text-align: center">
<input type="hidden" name="Batch1" size="20" value = "<%=batch%>" >
<table style="WIDTH: 165px; HEIGHT: 61px; font-style:normal; font-variant:normal; font-weight:normal; font-size:8pt; font-family:verdana" bordercolor="#009933"
cellspacing="2" cellpadding="4" align="center" border="1">
<tbody>
<tr align="center">
<td nowrap="nowrap" style="height: 35px; " class="style23">
<font color="#006633"><span class="style6"><strong>NúmCto:</strong></span></font><strong>
</strong>
<input type="text" name="Cto" size="14" style="width: 64px; height: 22px;"></td>
</tr>
<tr align="center">
<td nowrap="nowrap" style="height: 35px; " class="style23">
<input type="submit" name="Buscar" value="Buscar"></td>
</tr>
</table>
<font size="3" color="#009933">
<table class="style6" style="width: 852px">
<tr>
<td class="style8" style="width: 2376px; height: 11px;">MOLIENDA</td>
<td class="style8" style="width: 5117px; height: 11px;">MATERIAL</td>
<td class="style8" style="width: 2388px; height: 11px;"><font size="3">
SILO MALT</font></td>
<td class="style8" style="width: 1629px; height: 11px;"><font size="3">
SILO PPAL </font></td>
<td class="style8" style="width: 1135px; height: 11px;">CANT</td>
<td class="style24" style="width: 1237px; height: 11px;">AGUA </td>
</tr>
<%Dim Consulta
Set Consulta= Server.CreateObject("ADODB.Recordset")
Consulta.ActiveConnection = MM_Batch_STRING
Consulta.Source = "SELECT mi.material_name, mi.unitprocedure_id, mi.unitorconnection, MI.actual_qty, PV.Actual_Value, MI.Mtrl_Batch_ID FROM dbo.MaterialInput MI inner join dbo.ProcessVar PV on MI.Batch_Log_ID = PV.Batch_Log_ID WHERE MI.Material_ID like '100048%' and PV.Actual_Value <> ' ' AND PV.Phase_Instance_ID = MI.Phase_Instance_ID AND PV.Phase_label = MI.Phase_label AND mi.unitprocedure_id = pv.unitprocedure_id AND MI.Batch_Log_ID = " +Batch+ " ORDER BY mi.datetime, mi.unitprocedure_id, mi.material_name "
Consulta.CursorType = 0
Consulta.CursorLocation = 2
Consulta.LockType = 1
Consulta.Open()
if (Not Consulta.eof) then
Consulta.movefirst()
sw=0
i=0
acumula = 1
Do while (Not Consulta.eof)
molienda1 = Consulta.fields.item("unitprocedure_id").value
material1 = Consulta.fields.item("Material_Name").value
PPAL1 = Consulta.fields.item("Mtrl_Batch_ID").value
SILO1 = Consulta.fields.item("UnitOrConnection").value
cant1 = Consulta.fields.item("Actual_QtY").value
h2o1 = Consulta.fields.item("actual_value").value
if sw = 0 then
sw = 1
Tabla (0,i)= molienda1
Tabla (1,i)= material1
Tabla (2,i)= ppal1
Tabla (3,i)= silo1
Tabla (4,i)= cant1
Tabla (5,i)= h2o1
Tabla (7,i)= acumula
acumula = 1
i=i+1
else
if Tabla (0,i-1)= molienda1 AND Tabla (1,i-1)= material1 then
'--silo igual--
if silo1 = Tabla (3,i-1) then
'--agua igual--
if Tabla (5,i-1)= h2o1 then
h2o1 = 0
end if
acumula =acumula +1
Tabla (4,i-1) = Tabla (4,i-1)+ cant1
Tabla (5,i-1) = Tabla (5,i-1)+ cint(h2o1)
Tabla (7,i-1) = acumula
acumula =1
else
'---NUEVA MOLIENDA--
Tabla (0,i)= molienda1
Tabla (1,i)= material1
Tabla (2,i)= ppal1
Tabla (3,i)= silo1
Tabla (4,i)= cant1
Tabla (5,i)= h2o1
Tabla (7,i)= acumula
acumula = 1
i=i+1
end if
else
'---NUEVA MOLIENDA--
Tabla (0,i)= molienda1
Tabla (1,i)= material1
Tabla (2,i)= ppal1
Tabla (3,i)= silo1
Tabla (4,i)= cant1
Tabla (5,i)= h2o1
Tabla (7,i)= acumula
acumula = 1
i=i+1
end if
end if
Consulta.movenext()
loop
final = i-1
Consulta.Close()
Set Consulta= Nothing
for i = 0 to final%>
<tr>
<td class="style36" style="width: 2376px">
<input name="radio" type="radio" value="<%=i%>"><%Response.write " "%><%Response.write Tabla (0,i)%></td>
<td class="style36" style="width: 5117px"><%Response.write Tabla (1,i)%></td>
<td class="style36" style="width: 2388px"><%Response.write Tabla (2,i)%></td>
<td class="style36" style="width: 1629px"><%Response.write Tabla (3,i)%></td>
<td class="style36" style="width: 1135px"><%Response.write Tabla (4,i)%></td>
<td class="style36" style="width: 1237px"><%Response.write Tabla (5,i)%></td>
</tr>
<%tabla (6,i) = i
next
Session("S_Tabla") = Tabla
Session("S_Batch") = Batch
Session("S_final") = final
end if
end if
end if%>
</table>
</FONT>
<font size="3" color="#009933">
<table style="WIDTH: 337px; HEIGHT: 65px; font-style:normal; font-variant:normal; font-weight:normal; font-size:8pt; font-family:verdana" bordercolor="#009933" cellpadding="4" align="center" border="1" cellspacing="2">
<tbody>
<tr align="center">
<td class="style27" style="height: 31px; width: 16px">
<font size="3" color="#009933"><strong><span class="style5"><span class="style22"><span class="style25"><span class="style2">
<input type="checkbox" name="C1" value="ON" style="width: 20px; height: 20px;"></span></span></span></span></strong></font></td>
<td class="style24" style="height: 31px; width: 174px">
<font size="3" color="#009933"><span class="style29">Cantidad</span><strong> </strong></font></td>
<td class="style24" style="height: 31px"><font face="Arial" size="3" color="#009933">
<span class="style2"><span class="style3"><span class="style1"><strong><span class="style5">
<input type="text" name="cantidadmolienda"size="20" style="width: 77px; height: 27px"></span></strong></span></span></span></font></td>
</tr>
<tr align="center">
<td height="34" class="style5" colspan="3">
<input type="submit" name="MODIFICAR" value="MODIFICAR"></td>
</tr>
</table></font>
</form>
<%If request.form("MODIFICAR") = "MODIFICAR" then
Tabla = Session ("S_Tabla")
Batch = Session ("S_Batch")
Final = Session ("S_Final")
if request.ServerVariables("REQUEST_METHOD")="POST" then
j=0
for each control in request.form
if j= 2 then
opcion = request.form(control)
end if
j=j+1
next
opcion = "'" & Replace(opcion, "'", "''") & "'"
for i = 0 to Final
num = "'" & Replace(tabla(6,i), "'", "''") & "'"
if opcion = num then
molienda1 = Tabla(0,i)
material1 = Tabla(1,i)
silomal1 = Tabla(2,i)
siloppal1 = Tabla(3,i)
cant1 = Tabla(4,i)
agua1 = Tabla(5,i)
acumula = Tabla(7,i)
exit for
end if
next
notas = "'" & Replace(request.form("notas"), "'", "''") & "'"
molienda1 = "'" & Replace(molienda1, "'", "''") & "'"
siloppal1 = "'" & Replace(siloppal1, "'", "''") & "'"
Dim UpDateValue
if request.form("C1") = "ON" then
dato = request.form("cantidadmolienda")/acumula
dato = "'" & Replace(dato, "'", "''") & "'"
set UpDateValue= Server.CreateObject("ADODB.Command")
UpDateValue.ActiveConnection = MM_Batch_STRING
UpDateValue.CommandText = "UPDATE dbo.MaterialInput SET Actual_Qty = "&dato& " WHERE Material_ID like '100048%' AND unitprocedure_id = "+molienda1 +" AND UNITORCONNECTION = "+siloppal1 +" AND Batch_Log_ID = "+Batch+" "
UpDateValue.CommandType = 1
UpDateValue.CommandTimeout = 0
UpDateValue.Prepared = true
UpDateValue.Execute()
end if
end if
end if%>
</body>
</html>