<%@ Language=VBScript %>
<%
Option Explicit
Session.LCID = 2058
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "inline; filename=Reporte Pedidos Pendientes Cliente: "& Request("ClaveC") &".xls"
'***** 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">
<!--
var cuenta=0;
function enviado() {
if (cuenta == 0)
{
cuenta++;
return true;
}
else
{
alert("El formulario ya esta siendo enviado, por favor aguarde un instante.");
return false;
}
}
// -->
</script>
</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, Cn2
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19
Dim ClaveC, NombreC
Dim Empresa
Dim Partida, Pedido, Orden
Dim FechaO, FechaPO, FechaDif, FechaPro
Dim Micolor, MicolorOC
Dim Nrecepcion, Nproveedor
Dim FPCFPP, ColorDif
Empresa = Request("Empresa")
ClaveC = Request("ClaveC")
NombreC = Request("NombreC")
If Empresa = "" Or Isnull(Empresa) Then
Empresa = Session("Mybussiness")
Else
Empresa = Empresa
End If
'***** 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
If Empresa = "MEXPINTURAS" Then
'***** Conexion a la Base de Datos
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database=MEXPINTURAS"
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 ="SELECT FECFPEDE, NUMFPEDE, LABFPEDE, SECFPEDD, CANFPEDD, CPEFPEDD, CODFPEDD, DESMUL, (EXIRMUL - CAPMUL + EMBDIRE -RSEM) AS DISPONIBLE, " &_
"UNIFPEDD, DESDIV, fpefpedd " &_
"FROM FPEDENC, FPEDDET, MULTIALMACEN, MONEDAS " &_
"WHERE NUMFPEDE = NPEFPEDD AND ALMFPEDD = ALMMUL AND CODFPEDD = ARTMUL AND (STAFPEDE <> 'C' AND STAFPEDE <> 'T') AND CPEFPEDD > 0 " &_
"AND MONFPEDE = CLADIV AND CLIFPEDE = '"& CLAVEC &"' ORDER BY NUMFPEDE, SECFPEDD;"
Rs12.Open Sql12,Cn2,1,2
Else
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 ="SELECT FECFPEDE, NUMFPEDE, LABFPEDE, SECFPEDD, CANFPEDD, CPEFPEDD, CODFPEDD, DESMUL, (EXIRMUL - CAPMUL + EMBDIRE -RSEM) AS DISPONIBLE, " &_
"UNIFPEDD, DESDIV, fpefpedd " &_
"FROM FPEDENC, FPEDDET, MULTIALMACEN, MONEDAS " &_
"WHERE NUMFPEDE = NPEFPEDD AND ALMFPEDD = ALMMUL AND CODFPEDD = ARTMUL AND (STAFPEDE <> 'C' AND STAFPEDE <> 'T') AND CPEFPEDD > 0 " &_
"AND MONFPEDE = CLADIV AND CLIFPEDE = '"& CLAVEC &"' ORDER BY NUMFPEDE, SECFPEDD;"
Rs12.Open Sql12,Cn1,1,2
End If
%>
<Table Class="Pedido">
<Tr>
<Td>Fecha</Td>
<Td>Pedido</Td>
<Td>O.C. Cliente</Td>
<Td>Partida</Td>
<Td>Cantidad</Td>
<Td>Pendiente</Td>
<Td>Codigo</Td>
<Td>Descripcion</Td>
<Td>Disponibles</Td>
<Td>Precio Uni.</Td>
<Td>Moneda</Td>
<Td>F. Entrega</Td>
<Td>Atraso</Td>
<Td>Detalle O.C.</Td>
<Td>Detalle Recepcion</Td>
</Tr>
<%
Do while Not Rs12.Eof
Pedido = Rs12("numfpede")
Partida = Rs12("secfpedd")
FechaPro = Cint(date() - Rs12("fpefpedd"))
If FechaPro < -10 Then
Micolor = "#0BF311"
Else If FechaPro > -11 and FechaPro < 1 then
Micolor = "#EDF43A"
Else
Micolor = "#FC1A0F"
End If
End If
%>
<Tr>
<Td><%= Formatdatetime(Rs12("Fecfpede"),2) %></td>
<Td><%= Rs12("NUMFPEDE") %></td>
<td><%= Rs12("labfpede") %></td>
<td align="Right"><%= Rs12("secfpedd") %></td>
<td align="Right"><%= Formatnumber(Rs12("canfpedd")) %></td>
<td align="right"><%= Formatnumber(Rs12("cpefpedd")) %></td>
<td><%= Rs12("codfpedd") %></td>
<td><%= Rs12("DESMUL") %></td>
<td align="right"> <%= Formatnumber(rs12("Disponible")) %></td>
<td align="right"><%= Formatnumber(Rs12("unifpedd")) %></td>
<td><%= Rs12("desdiv") %></td>
<td><%= Rs12("fpefpedd") %></td>
<td align="right" bgcolor="<%= Micolor %>"><%= Cint(date() - Rs12("fpefpedd")) %></td>
<Td Valign="Top">
<%
If Empresa = "MEXPINTURAS" Then
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="Select Numord, Nomprv, fecore, Fpord " &_
"From Corddet left Join Cordenc on Numord = Numore Left Join Proveedores on Cveprv = Proore " &_
"Where Pinord = "& Pedido &" and PPIord = "& Partida &";"
Rs13.Open Sql13,Cn2,1,2
Else
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="Select Numord, Nomprv, fecore, Fpord " &_
"From Corddet left Join Cordenc on Numord = Numore Left Join Proveedores on Cveprv = Proore " &_
"Where Pinord = "& Pedido &" and PPIord = "& Partida &";"
Rs13.Open Sql13,Cn1,1,2
End If
If Rs13.Eof Then
Else
%>
<Table Class="Pedido">
<Tr>
<TD>O. Compra</TD>
<TD>Proveedor</TD>
<TD>Fecha_OC</TD>
<TD>F.Promesa Prov.</TD>
<TD>Dif. F.P.C. vs F.P.P.</TD>
</Tr>
<%
Do While Not Rs13.Eof
FechaO = Rs13("Fecore")
FechaPo = Rs13("Fpord")
If FechaPo = "" then
FechaDif = 0
Else
FechaDif = Cint(date() - FechaPo)
End IF
If FechaDif < -10 Then
MicolorOc = "#0BF311"
Else If FechaDif > -11 and FechaDif < 1 Then
MiColorOc = "#EDF43A"
Else
MiColorOc = "#FC1A0F"
End If
End If
If FechaPo = "" then
FPCFPP = 100
Else
FPCFPP = Rs13("Fpord") - Rs12("fpefpedd")
End If
If FPCFPP < -4 Then
ColorDif = "#0BF311"
Else If FPCFPP > -5 and FPCFPP < -2 Then
ColorDif = "#EDF43A"
Else
ColorDif = "#FC1A0F"
End If
End If
%>
<TR>
<TD><%= Rs13("Numord") %></TD>
<TD><%= Rs13("Nomprv") %></TD>
<TD Bgcolor="<%= MicolorOc %>"><%= Rs13("Fecore") %></TD>
<TD Bgcolor="<%= MicolorOc %>"><%= Rs13("Fpord") %></TD>
<TD Bgcolor="<%= ColorDif %>"><%= FPCFPP %></TD>
</TR>
<%
Rs13.Movenext
Loop
%>
</Table>
<%
End If
%>
</Td>
<Td>
<%
If Empresa = "MEXPINTURAS" Then
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 ="SELECT NUMORD, NUMRENC, FECRENC " &_
"FROM CORDDET LEFT JOIN CRecDET ON REGORD = PANRDET LEFT JOIN CRecEnc ON NUMRENC = NUMRDET " &_
"WHERE PINRDET = "& PEDIDO &" AND PPIRDET = "& PARTIDA &";"
Rs14.Open Sql14,Cn2,1,2
Else
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 ="SELECT NUMORD, NUMRENC, FECRENC " &_
"FROM CORDDET LEFT JOIN CRecDET ON REGORD = PANRDET LEFT JOIN CRecEnc ON NUMRENC = NUMRDET " &_
"WHERE PINRDET = "& PEDIDO &" AND PPIRDET = "& PARTIDA &";"
Rs14.Open Sql14,Cn1,1,2
End If
If Rs14.Eof Then
Else
%>
<Table Class="Pedido">
<TR>
<TD>Recepcion</TD>
<TD>Fecha</TD>
<TD>O.Compra</TD>
</TR>
<%
Do While Not Rs14.Eof
%>
<TR>
<TD><%= Rs14("Numrenc") %></TD>
<TD><%= Rs14("Fecrenc") %></TD>
<TD><%= Rs14("numord") %></TD>
</TR>
<%
Rs14.Movenext
Loop
%>
</Table>
<%
End If
%>
</Td>
</Tr>
<%
Rs12.Movenext
Loop
%>
</Table>
<%
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
%>