La página que contiene llamada AJAX es :
<html>
<head>
<title>Untitled</title>
<script language="JavaScript1.2" type="text/javascript">
var number ="100";
var arrayTotal = new Array();
var codigoCliente = '<%= request.QueryString("codigo") %>'
var numeroPedido = '<%= newPedido %>'
var enProceso = false; // lo usamos para ver si hay un proceso activo
var http = getHTTPObject(); // Creamos el objeto XMLHttpRequest
var oDetallePed = new Object();
function savePedido()
{
if (document.getElementById("vendedor").value != 0)
{
insertarPedido();
}
else
{
alert("Es obligatorio insertar el nombre del vendedor.");
}
}
function insertPedidoDet()
{
var lengthText = document.forms.elements.length;
var query = "CALL SP_PEDIDOS_DETALLE_I(";
var numPedido = escape(document.getElementById("numPedido").value) ;
var aDetallePed = new Array();
var cadena = "";
for (i=0; i<lengthText; i++)
{
if (document.forms.elements[i].type=="text")
{
pat = /codSeleccion/;
var codSel = document.forms.elements[i].name;
var codSelVal = document.forms.elements[i].value;
if (pat.test(codSel) && (codSelVal!=""))
{
var textCodArticuloParent = "codArticulo[" + codSelVal + "]";
var textFechaParent = "textFecha[" + codSelVal + "]";
var textCantidadParent = "textCantidad[" + codSelVal + "]";
var textCodArticuloTipoParent = "codArticuloTipo[" + codSelVal + "]";
var textPrecioParent = "textPrecio[" + codSelVal + "]";
consulta = query + "'" + numPedido + "'," + document.getElementById(textCodArticuloParent).val ue + ",'" +
document.getElementById(textFechaParent).value + "'," + document.getElementById(textCantidadParent).value + "," +
document.getElementById(textCodArticuloTipoParent) .value + "," + document.getElementById(textPrecioParent).value + ");";
cadena = cadena + consulta;
}
}
}
if (!enProceso && http)
{
var url = "insertPedidoDet.asp?cadena=" + cadena;
http.open("GET", url, true);
http.onreadystatechange = handleHttpResponse;
enProceso = true;
http.send(null);
}
}
function handleHttpResponse() {
if (http.readyState == 4) {
if (http.status == 200) {
if (http.responseText.indexOf('invalid') == -1) {
// Armamos un array, usando la coma para separar elementos
results = http.responseText.split("-");
if (results[0]==1)
{
//alert("Se puede insertar la parte de detalles");
enProceso = false;
insertPedidoDet();
}
enProceso = false;
}
else
{
alert(http.responseText);
enProceso = false;
}
}
}
}
function insertarPedido()
{
if (!enProceso && http)
{
var cliente = escape(document.getElementById("hidCliente").value );
var numPedido = escape(document.getElementById("numPedido").value) ;
var obs = escape(document.getElementById("textObs").value);
var vendedor = escape(document.getElementById("vendedor").value);
var importe = escape(document.getElementById("total").value);
var url = "insertPedido.asp?cliente=" + cliente + "&numPedido=" + numPedido + "&obs=" + obs + "&vendedor=" + vendedor + "&importe=" + importe;
//alert(url);
http.open("GET", url, true);
http.onreadystatechange = handleHttpResponse;
enProceso = true;
http.send(null);
alert("El pedido se ha realizado correctamente.");
window.location.href="per_marco_principal.asp";
}
}
function getHTTPObject() {
var xmlhttp;
/*@cc_on
@if (@_jscript_version >= 5)
try {
xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (E) { xmlhttp = false; }
}
@else
xmlhttp = false;
@end @*/
if (!xmlhttp && typeof XMLHttpRequest != 'undefined') {
try {
xmlhttp = new XMLHttpRequest();
} catch (e) { xmlhttp = false; }
}
return xmlhttp;
}
</script>
</head>
<%
tipoOperacion = request.QueryString("tipo")
codigo = request.QueryString("codigo")
response.write("Tipo : " & tipoOperacion & " - Codigo : " & codigo)
txtNombre = ""
txtApellidos = ""
txtCodigoPostal = ""
txtPoblacion = ""
txtProvincia = ""
clientePreferente = ""
set con=Server.CreateObject("ADODB.Connection")
set rsPedido = CreateObject("ADODB.Recordset")
con.Open strConnection
storedProcedurePedido = "CALL SP_NEW_PEDIDO_L();"
rsPedido.activeconnection = con
rsPedido.open = storedProcedurePedido
con.Execute (storedProcedurePedido)
newPedido = rsPedido("newPedido")
set oConn=Server.CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
oConn.Open strConnection
if (codigo <> "") then
storedProcedure = "call SP_CLIENTES_L (" & codigo & ");"
rs.activeconnection = oConn
rs.open = storedProcedure
oConn.Execute (storedProcedure)
While not rs.EOF
txtNombre = rs("cli_nombre")
txtApellidos = rs("cli_apellidos")
txtCodigoPostal = rs("cli_codigo_postal")
txtPoblacion = rs("cli_poblacion")
txtProvincia = rs("cli_provincia")
clientePreferente = rs("cli_preferente")
RS.moveNext
Wend
end if
color = "#FC0C0C"
if clientePreferente <> 0 then
color = "#0AD13D"
end if
%>
<body onload="javascript
:format('<%= newPedido %>',6);">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><h2>Pantalla pedidos</h2></td>
</tr>
</table>
<form action="per_pedidos.asp" name="forms">
<input type="Hidden" name="hidCliente" id="hidCliente" value="<%= request.QueryString("codigo") %>">
<!-- DATOS DEL CLIENTE SELECCIONADO -->
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr>
<td>
<fieldset>
<legend>Información del cliente</legend>
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr>
<td width="65%">
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr><td class="literalNegrita" colspan="2"><br></td></tr>
<tr>
<td class="literalNegrita" width="20%">Nombre : </td>
<td class="literal"><%= txtNombre %></td>
</tr>
<tr>
<td class="literalNegrita">Apellidos : </td>
<td class="literal"><%= txtApellidos %></td>
</tr>
<tr>
<td class="literalNegrita">Codigo Postal : </td>
<td class="literal"><%= txtCodigoPostal %></td>
</tr>
<tr>
<td class="literalNegrita">Población : </td>
<td class="literal"><%= txtPoblacion %></td>
</tr>
<tr>
<td class="literalNegrita">Provincia : </td>
<td class="literal"><%= txtProvincia %></td>
</tr>
<tr>
<td class="literalNegrita">Preferente : </td>
<td class="literal" bgcolor="<%= color %>"> </td>
</tr>
<tr><td class="literalNegrita" colspan="2"><br></td></tr>
</table>
</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr><td class="literalNegrita">Observaciones :</td></tr>
<tr>
<td>
<textarea rows="5" cols="50" id="textObs" name="textObs" class="texto2"></textarea>
</td>
</tr>
</table>
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
<br>
<!-- DATOS DEL PEDIDO SELECCIONADO -->
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr>
<td>
<fieldset>
<legend>Pedido Realizado
<input type="text" size="10" maxlength="10" name="total" id="total" value="0" class="texto2">
<a href="#">Históricos</a>
<%
if clientePreferente <> 0 then
%>
<img src="../images/img_mantenimientos/guardar.gif" name="guardar" width="28" height="28" alt="" onclick="javascript
:savePedido();" style="cursor:hand;">
<img src="../images/img_mantenimientos/imprimir.gif" name="imprimir" width="28" height="28" alt="">
<%
end if
%>
Número Pedido : <input type="text" size="11" maxlength="11" name="numPedido" id="numPedido" class="texto2" disabled>
<!--
<img src="../images/img_mantenimientos/Arrow-Up.png" width="28" height="28"
alt="Imprimir Arriba" border="0" onclick="javascript
:openPDF('per_pdf.asp?codigoCli ente=<%= codigo %>&posicion=top&total=');">
<img src="../images/img_mantenimientos/Arrow-Down.png" width="28" height="28"
alt="Imprimir Abajo" border="0" onclick="javascript
:openPDF('per_pdf.asp?codigoCli ente=<%= codigo %>&posicion=button&total=');">
-->
<select name="vendedor" id="vendedor" class="texto2">
<option value="0">Vendedor</option>
<option value="2">Alberto</option>
</select>
</legend>
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr><td class="literalNegrita"><br></td></tr>
<tr>
<td colspan="6">
<table id="table1" style="border:1px;cellspacing:0px;cellpadding:0px; " border="0" width="90%">
<tbody></tbody>
</table>
</td>
</tr>
<tr>
<td colspan="5">
<a href="javascript
:addTextBox();">Añadir Articulos</a>
<img src="transparent.gif" width="10%" border="0" height="1">
<a href="javascript
:eliminarAll();">Eliminar todos</a>
</td>
</tr>
</table
</fieldset>
</td>
</tr>
</table>
</form>
</body>
</html>