<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/Modulos.css" rel="stylesheet" />
<link href="css/Buscador.css" rel="stylesheet" />
<script language=JavaScript>
<!--
function inhabilitar(){
alert ("Esta funcion esta inhabilitada.\n\nPara evitar duplicidad de datos.")
return false
}
document.oncontextmenu=inhabilitar
// -->
</script>
<script type="text/javascript">
$(document).ready(function () {
$("form").keypress(function (e) {
if (e.which == 08) {
return false;
}
});
});
</script>
<script>
//Autor: rbedat,
//Este script permite deshabilitar:
// El boton derecho del mouse,
// El F5 y F11
// El Ctrl + F5
// El Ctrl + N y Ctrl + U
// El Ctrl + R
// El Ctrl + [<-] y el Ctrl + [->]
// El Backspace fuera de los formularios.
//
//Tener en cuenta que utiliza los eventos:
// onkeydown y onkeyup
//begin desabilitar teclas
var controlprecionado = 0;
var altprecionado = 0;
function desactivarCrlAlt(teclaactual){
//alert(teclaactual);
var desactivar = false;
//Ctrl +
if (controlprecionado==17){
if (teclaactual==78 || teclaactual==85 ){
//alert("Ctrl+N y Ctrl+U deshabilitado");
desactivar=true;
}
if (teclaactual==82){
//alert("Ctrl+R deshabilitado");
desactivar=true;
}
if (teclaactual==116){
//alert("Ctrl+F5 deshabilitado");
desactivar=true;
}
if (teclaactual==114){
//alert("Ctrl+F3 deshabilitado");
desactivar=true;
}
}
//Alt +
if (altprecionado==18){
if (teclaactual==37){
//alert("Alt+ [<-] deshabilitado");
desactivar=true;
}
if (teclaactual==39){
//alert("Alt+ [->] deshabilitado");
desactivar=true;
}
}
if (teclaactual==17)controlprecionado=teclaactual;
if (teclaactual==18)altprecionado=teclaactual;
return desactivar;
}
document.onkeyup = function(){
if (window.event && window.event.keyCode==17){
controlprecionado = 0;
}
if (window.event && window.event.keyCode==18){
altprecionado = 0;
}
}
document.onkeydown = function(){
//116->f5
//122->f11
//117->f6
//114->f3
//alert(window.event.keyCode);
if (window.event &&
desactivarCrlAlt(window.event.keyCode)){
return false;
}
if (window.event &&
(window.event.keyCode == 122 ||
window.event.keyCode == 116 ||
window.event.keyCode == 114 ||
window.event.keyCode == 117)){
//alert("lo siento!, no hay f5, f3, f6 ni f11 :P");
window.event.keyCode = 505;
}
if (window.event.keyCode == 505){
return false;
}
if (window.event && (window.event.keyCode == 8)){
valor = document.activeElement.value;
if (valor==undefined) {
//Evita Back en página.
//alert("lo siento!, no hay back :P");
return false;
}
else{
if (document.activeElement.getAttribute('type')
=='select-one')
{ return false; } //Evita Back en select.
if (document.activeElement.getAttribute('type')
=='button')
{ return false; } //Evita Back en button.
if (document.activeElement.getAttribute('type')
=='radio')
{ return false; } //Evita Back en radio.
if (document.activeElement.getAttribute('type')
=='checkbox')
{ return false; } //Evita Back en checkbox.
if (document.activeElement.getAttribute('type')
=='file')
{ return false; } //Evita Back en file.
if (document.activeElement.getAttribute('type')
=='reset')
{ return false; } //Evita Back en reset.
if (document.activeElement.getAttribute('type')
=='submit')
{ return false; } //Evita Back en submit.
else //Text, textarea o password
{
if (document.activeElement.value.length==0){
//No realiza el backspace(largo igual a 0).
return false;
}
else{
//Realiza el backspace.
document.activeElement.value.keyCode = 8; }
}
}
}
}
//end desabilitar teclas
</script>
<!--- PARA ABRIR LAS VENTANAS EMERGENTES --->
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16
'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<SECTION Class="HeaderGes">
<div Id="DivHeadGes">
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</div>
</SECTION>
<SECTION ID="Pedido">
<center>
<br>
<B>***** CAPTURA DE PEDIDOS *****</B>
<BR><BR>
<%
'----- PARA LAS TABLAS DE CREDITO
Dim Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26
Dim Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26
Dim LimiteCredM, LimiteCredD, RemisionadoM, RemisionadoD, PedidosAutM, PedidosAutD, SaldoCliM, SaldoCliD
Dim NumeroPed, AlmacenPed, TcambioPed
Dim NombreAlma
Dim TipoCliente, MsgPrecio, MsgDescuento, PrecioL, AnteriorP
Dim TipoProd
Dim Ocpedido
Dim TipoCambio
Dim MyColor
Dim CotizacionP, CotizaMsg
Dim Cliente, ClienteDesc, ClienteDmsg
Dim DescuentoVal
NumeroPed = Request("NumeroPed")
AlmacenPed = Request("AlmacenPed")
'***** Conexion A la Tabla Encabezado, cliente y Moneda ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select * from Fpedenc, Clientes, Monedas " &_
"where numfpede = "& NumeroPed &" and Clifpede = Clacli and Monfpede = Cladiv;"
Rs12.Open Sql12,Cn1,1,2
Cliente = Rs12("Clacli")
TcambioPed = Rs12("Tcafpede")
TipoCliente = Rs12("Tipocli")
TipoProd = Rs12("TipoProd")
TipoCambio = Rs12("Tcaven")
ClienteDesc = Rs12("Descli")
If Cdbl(Rs12("TipoProd")) = 0 Then
TipoProd = "TUBERIA"
Else If Cdbl(Rs12("TipoProd")) = 1 Then
TipoProd = "CONEXIONES"
End If
End If
'***** Conexion A la Tabla Empresa ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select * from Almacenes " &_
"where Claalm = "& AlmacenPed &";"
Rs13.Open Sql13,Cn1,1,2
NombreAlma = Rs13("Desalm")
%>
<%
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Select PedidoP, AnexoP " &_
"from Ocpedidos " &_
"where PedidoP = "& NumeroPed &";"
Rs15.Open Sql15,Cn1,1,2
If Rs15.Eof Then
Ocpedido = 0
else
Ocpedido = 1
End If
%>
<Table Class="Pedido">
<Tr>
<Td Colspan="2">Cliente:</Td>
<Td>Pedido:</Td>
<Td>Fecha Emision:</Td>
<Td></Td>
</Tr>
<Tr>
<Td Colspan="2">( <%= Rs12("Clifpede") %> ) <%= Rs12("Nomcli") %> </Td>
<Td>
<a href="Fpedesp.asp?Fpednum=<%= Rs12("Numfpede") %>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;">
<%= Rs12("Numfpede") %></a>
</Td>
<Td><%= Rs12("Fecfpede") %></Td>
<Td>
<%
If Cdbl(Ocpedido) = 1 or Rs12("Clifpede") = "000MIM72" or Rs12("Clifpede") = "00MIM720" Then
%>
<a href="Impped.asp?NumeroPed=<%= NumeroPed %>&AlmacenPed=<%= AlmacenPed %>">***** ENVIAR A AUTORIZACION ***** </a>
<%
Else
End If
%>
</Td>
</Tr>
<Tr>
<Td>Moneda:</Td>
<Td></Td>
<Td>Almacen:</Td>
<Td>Fecha Entrega:</Td>
<Td>Tipo Material:</Td>
</Tr>
<Tr>
<Td><%= Rs12("Desdiv") %> </Td>
<Td> </Td>
<Td> <%= NombreAlma %> </Td>
<Td><%= Rs12("Fenfpede") %> </Td>
<Td><%= TipoProd %> </Td>
</Tr>
<Tr>
<%
If ocpedido = 0 Then
%>
<Td>
****** NO HA CARGADO LA O.C. DEL CLIENTE *****
<a href="Ocpedido.asp?NumeroPed=<%= NumeroPed %>" onclick="NewWindow(this.href,'Ocpedido','790','470','yes');return false;"">
<img src="image/fpeddoc.gif" border="0" width="20px" Alt="Pedido Numero <%= Rs12("Pedido") %>">
</Td>
<%
Else
Ocpedido = 1
%>
<Td>
<a href="Ocpedido/<%= Rs15("AnexoP") %>" onclick="NewWindow(this.href,'Pedido','790','470','yes');return false;""><%= Rs15("AnexoP") %></a>
<br>
<a href="Ocpedido.asp?NumeroPed=<%= NumeroPed %>" onclick="NewWindow(this.href,'Ocpedido','790','470','yes');return false;"">
<img src="image/fpeddoc.gif" border="0" width="20px" Alt="Pedido Numero <%= Rs12("Pedido") %>">
</Td>
<%
End If
%>
<Td></Td>
<Td Colspan="3">
<%
If Cdbl(Rs12("DatoEFPede")) = 0 Then
%>
<Font Color="Red"><b>
*** NO SE HA SELECCIONADO UNA DIRECCION DE ENVIO ***
</b>
<%
Else
%>
<Font Color="Red"><b>HOJA DE EMBARQUE:
<a href="EtiEmbarqueP.asp?PedidoNum=<%= NumeroPed %>" onclick="NewWindow(this.href,'<%= NumeroPed %>','800','600','yes');return false;">
<%= NumeroPed %>
</a>
<%
End If
%>
</Td>
</Tr>
</Table>
</SECTION>
<!------ seccion credito --->
<SECTION>
<%
'**** PONE TODOS LOS SALDOS DE LOS CLIENTES EN CERO ***
Set Rs17 = server.CreateObject("ADODB.Recordset")
Sql17 = "Update CLIENTES Set SALCLI = 0;"
Cn1.Execute Sql17
'**** ACTUALIZA LOS SALDOS DE LOS CLIENTES A LO ACTUAL ****
Set Rs18 = server.CreateObject("ADODB.Recordset")
Sql18 = "Update CLIENTES " &_
"Set SALCLI = Saldo " &_
"From ASALDOS " &_
"Where Clacli = Cliente;"
Cn1.Execute Sql18
'****** SACA LOS LIMITES DE CREDITO EN LA MONEDA DEL PEDIDO ****
Set Rs19 = server.CreateObject("ADODB.Recordset")
Sql19 = "select Numfpede, Fecfpede, Clifpede, Nomcli, Stafpede, Monfpede, Desdiv, ConFpede, Obsfpede, FDCFPEDE, Eautoriza, " &_
"Limcli, LimUSD, Salcli, NotasAut, Subfpede, Ivtfpede, Imrfpede, Totfpede, Stacli, Rescli " &_
"from FPEDENC, CLIENTES, Monedas " &_
"Where Numfpede = "& NumeroPed &" and CLIFPEDE = CLACLI and Monfpede = Cladiv;"
Rs19.Open Sql19,Cn1,1,2
LimiteCredM = Rs19("LimCli")
LimiteCredD = Rs19("LimUSD")
'****** OBTENEMOS EL TOTAL DE LO RemisionadoM CON IVA MXN ****
Set Rs20 = server.CreateObject("ADODB.Recordset")
Sql20 = "select sum((CPEFREMD * UNIFREMD) + (CPEFREMD * UNIFREMD * (IVAFREMD/100))) as RemisionadoM from FREMDET, FREMENC " &_
"where NUMFREME = NREFREMD " &_
"and (STAFREME = 'A' OR STAFREME = 'P') " &_
"AND CLIFREME = '"& Cliente &"' and Monfreme = 1;"
Rs20.Open Sql20,Cn1,1,2
RemisionadoM = Rs20("RemisionadoM")
If Isnull(RemisionadoM) Then
RemisionadoM = 0
Else
RemisionadoM = RemisionadoM
End If
'****** OBTENEMOS EL TOTAL DE LO RemisionadoM CON IVA USD ****
Set Rs21 = server.CreateObject("ADODB.Recordset")
Sql21 = "select sum((CPEFREMD * UNIFREMD) + (CPEFREMD * UNIFREMD * (IVAFREMD/100))) as RemisionadoD from FREMDET, FREMENC " &_
"where NUMFREME = NREFREMD " &_
"and (STAFREME = 'A' OR STAFREME = 'P') " &_
"AND CLIFREME = '"& Cliente &"' and Monfreme = 2;"
Rs21.Open Sql21,Cn1,1,2
RemisionadoD = Rs21("RemisionadoD")
If Isnull(RemisionadoD) Then
RemisionadoD = 0
Else
RemisionadoD = RemisionadoD
End If
'**** VALOR DE LOS PEDIDOS AUTORIZADOS (SOLO LAS PARTIDAS Y CANTIDADES QUE ESTAN PENDIENTES) MXN
Set Rs22 = server.CreateObject("ADODB.Recordset")
Sql22 = "select sum((Cpefpedd * UNIFPEDD) + (Cpefpedd * UNIFPEDD * (IVAFPEDD/100))) as PedidosAutM " &_
"from fpedenc, fpeddet " &_
"where Numfpede = Npefpedd " &_
"and clifpede = '"& Cliente &"' " &_
"and MONFPEDD = 1 " &_
"and (stafpede = 'A' or stafpede = 'R' or stafpede = 'P') " &_
"and hfdcfpede is not null " &_
"and cpefpedd > 0;"
Rs22.Open Sql22,Cn1,1,2
PedidosAutM = Rs22("PedidosAutM")
If Isnull(PedidosAutM) Then
PedidosAutM = 0
Else
PedidosAutM = PedidosAutM
End If
'**** VALOR DE LOS PEDIDOS AUTORIZADOS (SOLO LAS PARTIDAS Y CANTIDADES QUE ESTAN PENDIENTES) USd
Set Rs23 = server.CreateObject("ADODB.Recordset")
Sql23 = "select sum((Cpefpedd * UNIFPEDD) + (Cpefpedd * UNIFPEDD * (IVAFPEDD/100))) as PedidosAutD " &_
"from fpedenc, fpeddet " &_
"where Numfpede = Npefpedd " &_
"and clifpede = '"& Cliente &"' " &_
"and MONFPEDD = 2 " &_
"and (stafpede = 'A' or stafpede = 'R' or stafpede = 'P') " &_
"and hfdcfpede is not null " &_
"and cpefpedd > 0;"
Rs23.Open Sql23,Cn1,1,2
PedidosAutD = Rs23("PedidosAutD")
If Isnull(PedidosAutD) Then
PedidosAutD = 0
Else
PedidosAutD = PedidosAutD
End If
'***** LO QUE TIENE EN CUENTAS POR COBRAR MXN****
Set Rs24 = server.CreateObject("ADODB.Recordset")
Sql24 = "select sum(SALCXCG) as Saldo from cxcgen " &_
"where clicxcg = '"& Cliente &"' " &_
"and moncxcg = 1 " &_
"and SALCXCG <> 0;"
Rs24.Open Sql24,Cn1,1,2
SaldoCliM = Rs24("Saldo")
If Isnull(SaldoCliM) Then
SaldoCliM = 0
Else
SaldoCliM = SaldoCliM
End If
'***** LO QUE TIENE EN CUENTAS POR COBRAR USD****
Set Rs25 = server.CreateObject("ADODB.Recordset")
Sql25 = "select sum(SALCXCG) as Saldo from cxcgen " &_
"where clicxcg = '"& Cliente &"' " &_
"and moncxcg = 2 " &_
"and SALCXCG <> 0;"
Rs25.Open Sql25,Cn1,1,2
SaldoCliD = Rs25("Saldo")
If Isnull(SaldoCliD) Then
SaldoCliD = 0
Else
SaldoCliD = SaldoCliD
End If
%>
<center>
<br>
<B>***** DATOS CREDITO *****</B>
<BR><BR>
<Table>
<Tr Style="Color:#FFFFFF; Background-color:#003366; Text-Align:Center">
<Td>Limite Credito MXN</Td>
<Td>Saldo Pendiente MXN</Td>
<Td>Pedidos MXN</Td>
<Td>Remisiones MXN</Td>
<Td>Disponible MXN</Td>
</Tr>
<Tr Style="Color:#003366; Background-color:#FFFFFF; Text-Align:Center; Text-decoration:none">
<Td><B><%= FormatNumber(LimiteCredM) %></Td>
<Td>
<a Href="DiredoCPdf.asp?Clave=<%= Cliente %>&Empresa=<%= Session("Mybussiness") %>" target="<%= Cliente %>"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<B><%= FormatNumber(SaldoCliM) %></B>
</a>
</Td>
<Td>
<a Href="PedidosCXC.asp?Clave=<%= Cliente %>&MonedaPed=1" target="<%= Cliente %>"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<B><%= FormatNumber(PedidosAutM) %></B>
</a>
</Td>
<Td>
<a Href="RemisionCXC.asp?Clave=<%= Cliente %>&MonedaPed=1" target="<%= Cliente %>"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<B><%= FormatNumber(RemisionadoM) %></B>
</a>
</Td>
<Td><B><%= Formatnumber(Cdbl(LimiteCredM) - Cdbl(SaldoCliM) - Cdbl(RemisionadoM) - Cdbl(PedidosAutM)) %></B> </Td>
<Td></Td>
</Tr>
<Tr Style="Color:#FFFFFF; Background-color:#003366; Text-Align:Center">
<Td>Limite Credito USD</Td>
<Td>Saldo Pendiente USD</Td>
<Td>Pedidos USD</Td>
<Td>Remisiones USD</Td>
<Td>Disponible USD</Td>
<Tr Style="Color:#003366; Background-color:#FFFFFF; Text-Align:Center; Text-decoration:none">
<Td><B><%= FormatNumber(LimiteCredD) %></Td>
<Td>
<a Href="DiredoCPdf.asp?Clave=<%= Cliente %>&Empresa=<%= Session("Mybussiness") %>" target="<%= Cliente%>"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<B><%= FormatNumber(SaldoCliD) %></B>
</a>
</Td>
<Td>
<a Href="PedidosCXC.asp?Clave=<%= Cliente %>&MonedaPed=2" target="<%= Cliente %>"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<B><%= FormatNumber(PedidosAutD) %></B>
</a>
</Td>
<Td>
<a Href="RemisionCXC.asp?Clave=<%= Cliente %>&MonedaPed=2" target="<%= Cliente %>"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<B><%= FormatNumber(RemisionadoD) %></B>
</a>
</Td>
</Td>
<Td><B><%= Formatnumber(Cdbl(LimiteCredD) - Cdbl(SaldoCliD) - Cdbl(RemisionadoD) - Cdbl(PedidosAutD)) %></B> </Td>
<Td></Td>
</Tr>
</Table>
</SECTION>
<SECTION id="Pedido">
<center>
<br>
<a href="Fpedcot.asp?NumeroPed=<%= NumeroPed %>&AlmacenPed=<%= AlmacenPed %>">***** PARTIDAS DESDE COTIZACION ***** </a>
<a href="Fpedpar.asp?NumeroPed=<%= NumeroPed %>&AlmacenPed=<%= AlmacenPed %>&TcambioPed=<%= TcambioPed %>">
***** PARTIDAS DIRECTAS *****
</A>
<BR>
<br>
<%
'***** Conexion A la Tabla Detalel Pedido ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select Regfpedd, Secfpedd, Codfpedd, Desmul, Udminv, Canfpedd, Prefpedd, Desfpedd, Unifpedd, " &_
"Fpefpedd, antfpedd, (Unifpedd * Canfpedd) as Importe, " &_
"(Exirmul - Capmul - Rsem) as Disponible , (Plainv * Tcaven) as PrecioL, Marca, ClaveProdp, ClaveunidadP, OCfpedd " &_
"from Fpeddet, Multialmacen, Inventarios, Monedas " &_
"where Codfpedd = Artmul and Almfpedd = Almmul and Artmul = Cveinv " &_
"and Mplinv = Cladiv and Npefpedd = "& NumeroPed &" " &_
"Order by Secfpedd, REGFPEDD;"
Rs14.Open Sql14,Cn1,1,2
If Rs14.EOF Then
Else
%>
<Table Class="Pedido">
<Tr>
<Td>Partida:</Td>
<Td>Codigo:<br>ClaveProdSAT</Td>
<Td>Descripcion:</Td>
<Td>Unidad: <br> ClaveUnidadSAT</Td>
<Td>Disponible:</Td>
<Td>Cantidad:</Td>
<Td>Precio:</Td>
<Td>Desc:</Td>
<Td>Unitario:</Td>
<Td>Importe:</Td>
<Td>F_Entrega: <br> Num. O.C.</Td>
<Td>Cotizacion:</Td>
<Td Colspan="3">Accion</Td>
</Tr>
<%
Do While Not Rs14.EOF
CotizacionP = Rs14("antfpedd")
If CotizacionP = 0 then
CotizaMsg = ""
Else
CotizaMsg = "READONLY"
End If
PrecioL = Rs14("PrecioL")
If Cdbl(Rs14("PrecioL")) = 0 Then
MyColor = "FF1004"
Else If (1 - (Cdbl(Rs14("Unifpedd"))) / (Cdbl(PrecioL) / Cdbl(TipoCambio))) >.20 and Rs14("Marca") = "WORCESTER" Then
MyColor = "FF1004"
Else If (1 - (Cdbl(Rs14("Unifpedd"))) / (Cdbl(PrecioL) / Cdbl(TipoCambio))) >.10 and Rs14("Marca") = "" Then
MyColor = "FF1004"
Else
MyColor = "000000"
End If
End If
End If
AnteriorP = Rs14("antfpedd")
'***** CONDICIONAL PARA DEJAR MODIFICAR PRECIO O NO ****
If TipoCliente = "F" OR TipoCliente = "P" Then
MsgPrecio = ""
MsgDescuento = ""
Else If TipoCliente = "C" and Cdbl(AnteriorP) > 0 Then
' MsgPrecio = "Readonly"
' MsgDescuento = "Readonly"
MsgPrecio = "Readonly"
If CInt(ClienteDesc) = 1 Then
MsgDescuento = "Readonly"
Else
MsgDescuento = ""
End If
Else If TipoCliente = "C" and Cdbl(PrecioL) > 0 Then
MsgPrecio = "Readonly"
If CInt(ClienteDesc) = 1 Then
MsgDescuento = "Readonly"
Else
MsgDescuento = ""
End If
Else
MsgPrecio = ""
If CInt(ClienteDesc) = 1 Then
MsgDescuento = "Readonly"
Else
MsgDescuento = ""
End If
End If
End If
End If
If Rs14("Marca") = "TEROFOX" THEN
DescuentoVal = "Readonly"
Else
DescuentoVal = ""
End If
%>
<Tr onmouseover="this.className = 'resaltar'" onmouseout="this.className = null">
<Form action="Fpedmod.asp" method="post" name="Cotizaciones" id="PedidnoNuevo">
<Td Align="Left"><input Type="text" placeholder="Partida" Title="Partida" name="PartidaP" id="PartidaP" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("Secfpedd") %>"></Td>
<Td Align="Left" Valign="Top">
<a href="Distribucion.asp?Codigo=<%= Rs14("Codfpedd") %>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;">
<%= Rs14("Codfpedd") %>
</a>
</Td>
<Td Align="Left" Valign="Top"><%= Rs14("Desmul") %></Td>
<Td Align="Left" Valign="Top"><%= Rs14("Udminv") %></Td>
<Td Align="Right" Valign="Top">
<%= Formatnumber(Rs14("Disponible")) %></Td>
<Td Align="Left"><input Type="text" placeholder="Cantidad" Title="Cantidad" name="CantidadP" id="CantidadP" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("Canfpedd") %>"></Td>
<Td Align="Left"><input Type="text" placeholder="Precio" Title="Precio" name="PrecioP" id="PrecioP" Size="4" <%= MsgPrecio %> Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("prefpedd") %>"></Td>
<Td Align="Left"><input Type="text" placeholder="Descuento" Title="Descuento" name="DescuentoP" id="DescuentoP" Size="2" <%= CotizaMsg %> <%= MsgDescuento %> <%= DescuentoVal %> Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("Desfpedd") %>"></Td>
<Td Align="Right" Valign="Top"><Font color="<%= MyColor %>"> <%= Formatnumber(Rs14("Unifpedd")) %></Td>
<Td Align="Right" Valign="Top"><%= Formatnumber(Rs14("Importe")) %></Td>
<Td Align="Left"><input Type="text" placeholder="Fecha Promesa" Title="Fecha Promesa" name="FechaPro" id="FechaPro" Size="7" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("Fpefpedd") %>"></Td>
<Td Align="Right" Valign="Top"><%= Rs14("antfpedd") %></Td>
</tr>
<Tr onmouseover="this.className = 'resaltar'" onmouseout="this.className = null">
<Td></Td>
<Td Align="Left"><input Type="text" placeholder="ClaveProdSAT" Title="ClaveProdSAT" name="ClaveProdSAT" id="ClaveProdSAT" Size="7" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("ClaveProdP") %>"></Td>
<Td></td>
<Td Align="Left"><input Type="text" placeholder="ClaveUnidadSAT" Title="ClaveUnidadSAT" name="ClaveUnidadSAT" id="ClaveUnidadSAT" Size="4" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("ClaveUnidadP") %>"></Td>
<Td Colspan="6"></td>
<Td Align="Left"><input Type="text" placeholder="OC Cliente" Title="Oc Cliente" name="OCFpedd" id="OCFpedd" Size="7" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("Ocfpedd") %>"></Td>
<Td></td>
<Td valign="Top">
<input Type="Hidden" placeholder="NumeroPed" Title="NumeroPed" name="NumeroPed" id="NumeroPed" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= NumeroPed %>">
<input Type="Hidden" placeholder="AlmacenPed" Title="AlmacenPed" name="AlmacenPed" id="AlmacenPed" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= AlmacenPed %>">
<input Type="Hidden" placeholder="TcambioPed" Title="TcambioPed" name="TcambioPed" id="TcambioPed" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= TcambioPed %>">
<input Type="Hidden" placeholder="RegistroPed" Title="RegistroPed" name="RegistroPed" id="RegistroPed" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= Rs14("Regfpedd") %>">
<input Type="Hidden" placeholder="CotizacionP" Title="CotizacionP" name="CotizacionP" id="CotizacionP" Size="2" Style="Text-Align:Right; Font-size:12px; font-weight:Bold" value="<%= CotizacionP %>">
<input type="image" src="Icon/Modifica.gif" value="Accesar" Title="Modificar">
</td>
</form>
<Td valign="Top">
<a href="Fpeddel.asp?NumeroPed=<%= NumeroPed %>&AlmacenPed=<%= AlmacenPed %>&RegistroPed=<%= Rs14("Regfpedd") %>">
<img src="Icon/Elimina.gif" Border="0"></a>
</td>
<Td valign="Top">
<a href="Fpedobs.asp?NumeroPed=<%= NumeroPed %>&AlmacenPed=<%= AlmacenPed %>&RegistroPed=<%= Rs14("Regfpedd") %>"
onclick="NewWindow(this.href,'Fpedobs','1024','500','yes');return false;">
<img src="icon/notasb.gif" border="0"></a>
</td>
</Tr>
<%
Rs14.Movenext
Loop
%>
</Table>
<%
End If
%>
<br><br>
<a href="Fpedemb.asp?NumeroPed=<%= NumeroPed %>&AlmacenPed=<%= AlmacenPed %>">***** MODIFICAR DATOS PEDIDO ***** </a>
</SECTION>
<%
If Err.Number <> 0 Then
%>
<br><br>
Número de Error: <%= Err.Number %><BR>
Descripción: <%= Err.Description %><BR>
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>
<%
Else
'****** FIN DE LOS ERRORES ***
End If
%>
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>