Hola soy nuevo en esto del desarrollo en asp anexo encontraran mi codigo en el cual necesito que en el primer checkbox(corte) ponga la fecha en el campo(TFecCorte) y los demas checkbox cada que activen uno se vaya actualizando la fecha final.
Despues necesito guardar todos los registros en una tabla en access pero deben estar relacinados con la BD donde optengo los registros para que al momento de consultarlos nuevamente para algun cambio muestre los registros con el ultimo cambio hecho.
Espero puedan ayudarme ... Gracias
<BODY bgcolor="#3399FF" >
<form name="form1" method="post" action="Actualizar.asp">
<div align="center">
<input type="submit" name="Submit" value="Actualizar">
</div>
<hr>
</form>
<TABLE width="1219" BORDER="1" align="center">
<!--DWLayoutTable-->
<tr>
<TD width="48"><div align="center" class="Estilo3 ><font size="-2">RENGLON</font></div></TD>
<TD width="42"><div align="center" class="Estilo3"><font size="-2">CLIENTE</font></div></TD>
<TD width="34"><div align="center" class="Estilo3"><font size="-2">PEDIDO</font></div></TD>
<TD width="32"><div align="center" class="Estilo3"><font size="-2">PIEZAS</font></div></TD>
<TD width="63"><div align="center" class="Estilo3"><font size="-2">VIDRIO</font></div></TD>
<TD width="68"><div align="center" class="Estilo3"><font size="-2">MEDIDAS</font></div></TD>
<TD width="23"><div align="center" class="Estilo3"><font size="-2">Corte</font></div></TD>
<TD width="48"><div align="center" class="Estilo3"><font size="-2">F.Corte</font></div></TD>
<TD width="27"><div align="center" class="Estilo3"><font size="-2">Canto Recto </font></div></TD>
<TD width="27"><div align="center" class="Estilo3"><font size="-2">Canto Forma </font></div></TD>
<TD width="23"><div align="center" class="Estilo3"><font size="-2">Bisel Recto </font></div></TD>
<TD width="29"><div align="center" class="Estilo3"><font size="-2">Bisel Forma </font></div></TD>
<TD width="25"><div align="center" class="Estilo3"><font size="-2">Corte 45° </font></div></TD>
<TD width="42"><div align="center" class="Estilo3"><font size="-2">Esquinas Redondas </font></div></TD>
<TD width="35"><div align="center" class="Estilo3"><font size="-2">Filos Muertos </font></div></TD>
<TD width="37"><div align="center" class="Estilo3"><font size="-2">Taladros</font></div></TD>
<TD width="46"><div align="center" class="Estilo3"><font size="-2">Avellanado</font></div></TD>
<TD width="28"><div align="center" class="Estilo3"><font size="-2">Saques</font></div></TD>
<TD width="30"><div align="center" class="Estilo3"><font size="-2">Astrias</font></div></TD>
<TD width="39"><div align="center" class="Estilo3"><font size="-2">Esquinas Matadas</font></div></TD>
<TD width="35"><div align="center" class="Estilo3"><font size="-2">Plateado</font></div></TD>
<TD width="30"><div align="center" class="Estilo3"><font size="-2">Pintura</font></div></TD>
<TD width="36"><div align="center" class="Estilo3"><font size="-2">Satinado</font></div></TD>
<TD width="35"><div align="center" class="Estilo3"><font size="-2">Curvado</font></div></TD>
<TD width="42"><div align="center" class="Estilo3"><font size="-2">Laminado</font></div></TD>
<TD width="31"><div align="center" class="Estilo3"><font size="-2">Pegado UV </font></div></TD>
<TD width="41"><div align="center" class="Estilo3"><font size="-2">Templado</font></div></TD>
<TD width="29"><div align="center" class="Estilo3"><font size="-2">Cenefa</font></div></TD>
<TD width="47"><div align="center" class="Estilo3"><font size="-2">Esmerilado</font></div></TD>
<TD width="237"><div align="center" class="Estilo3"><font size="-2">PT</font></div></TD>
<TD width="237"><div align="center" class="Estilo3"><font size="-2">F.Entrega</font></div></TD>
</tr>
<%
Dim conn, registros, basedatos, PedidoID, Linea, dFecha
dfecha= now()
if request.form("txtuser") <> "" then
PedidoID = int(request.form("txtuser"))
Linea = 1
' PedidoID = int("PedidoID")
basedatos = Server.MapPath("CTLPROD01.mdb")
' En la asignaci�n anterior, la instrucci�n Server.Mappath nos da el Path completo en el servidor hacia el archivo ejemplo.mdb que se encuentra en el mismo directorio que el ejemplo. '
' Tambi�n se puede utilizar el path completo para definir esta variable que quedar�a algo as�: '
' basedatos = "\\VYCISACLIENTE\Inetpub\wwwroot\WebProd\CTLPROD.m db"
set conn = Server.CreateObject("ADODB.Connection")
' conn.Open "DRIVER={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=\\VYCISACLIENTE\Inetpub\wwwro ot\WebProd\CTLPROD.accdb;"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
' Response.Write("Conexion Correcta")
%>
<a href="javascript:window.history.back();" class="Estilo10"> Regresar AQUI</a>
<%
set registros = conn.execute("SELECT mgw10008.cidclien01, mgw10010.cidmovim01, mgw10008.crazonso01, mgw10008.cfolio, mgw10008.cfecha, mgw10010.cunidades, mgw10005.cnombrep01, mgw10010.cobserva01, mgw10010.ctextoex01, mgw10008.ciddocum02 FROM (mgw10005 INNER JOIN mgw10010 ON mgw10005.cidprodu01 = mgw10010.cidprodu01) INNER JOIN mgw10008 ON mgw10010.ciddocum01 = mgw10008.ciddocum01 where mgw10008.cfolio= ("&PedidoID&") GROUP BY mgw10008.cidclien01, mgw10010.cidmovim01, mgw10008.crazonso01, mgw10008.cfolio, mgw10008.cfecha, mgw10010.cunidades, mgw10005.cnombrep01, mgw10010.cobserva01, mgw10010.ctextoex01, mgw10008.ciddocum02, mgw10010.cunidades HAVING (((mgw10010.cunidades)>0) AND ((mgw10008.ciddocum02)=2)) ORDER BY mgw10010.cidmovim01, mgw10008.cfolio DESC , mgw10008.cfecha DESC;")
Do While Not registros.EOF
%>
<tr>
<TD width="48" height="40"><div align="center" class="Estilo6"><font size="-2"><%= Linea %></font></div></TD>
<TD width="42" height="40"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("cidclien01").Value %></font></span></strong></div></TD>
<TD width="34"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("cfolio").Value %></font></span></strong></div></TD>
<TD width="32"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("cunidades").Value %></font></span></strong></div></TD>
<TD width="63"><span class="Estilo3"><font size="-2"><%= registros.Fields("cnombrep01").Value %></font></font></span></TD>
<TD width="68"><div align="center"><span class="Estilo3"><font size="-2"><%= registros.Fields("ctextoex01").Value %></font></font></span></div></TD>
<TD><div align="center"><input type="checkbox" name="Corte" value="checkbox"></div></TD>
<TD><form name="form2" method="post" action=""><input name="TFecCorte" value=<%= dfecha %> disabled="disabled" type="text" size="8" maxlength="8"></form></TD>
<TD><div align="center"><input type="checkbox" name="CantoRecto" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="CantoForma" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="BiselRecto" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="BiselForma" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Corte45" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="EsqRedondas" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="FilosMuertos" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Taladros" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Avellanado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Saques" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Astrias" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="EsqMatadas" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Plateado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Pintura" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Satinado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Curvado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Laminado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="PegadoUV" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Templado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Cenefa" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Esmerilado" value="checkbox"></div></TD>
<TD><div align="center"><input type="checkbox" name="Envio" value="checkbox"></div></TD>
<TD><form name="form2" method="post" action=""><input name="TFecFinal" value=<%= dfecha %> disabled="disabled" type="text" size="8" maxlength="8"></form></TD>
<tr>
<TD height="24" colspan="5"><div align="center" class="Estilo7">Observaciones</div></TD>
<TD colspan="24"><span class="Estilo6"><font size="-2"><%= registros.Fields("cobserva01").Value %></font></span></TD>
</TR>
<%
registros.MoveNext
Linea = Linea + 1
Loop
registros.Close
Set registros = Nothing
conn.Close
Set conn = Nothing
%>
</TABLE>
<div align="center">
<%
else
%>
<a href="javascript:window.history.back();" class="Estilo7"><strong> Teclea el numero de Pedido, Regresar AQUI</strong></a>
<%
end if
%>
</div>
</BODY>
</HTML>
