<%
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/IndicadorA.css" rel="stylesheet" />
<!-- JavaScript para enviar a una pagina emergente -->
<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, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29
'***** 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 Base de Datos
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMINDMEX;PWD=IW2BF01;Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<CENTER>
<BR><BR>
<%
Dim Clave, Nombre, Direccion, Colonia, Poblacion, Estado, Pais, Cpostal, RFC, Dias, Limite, Revision, Cobro
Dim Vendedor, Telefono, Email, Pagos, TelefonoP, EmailP, Tipo, Observaciones, Proceso
Clave = Request("Clave")
Nombre = Request("Nombre")
Direccion = Request("Direccion")
Colonia = Request("Colonia")
Poblacion = Request("Poblacion")
Estado = Request("Estado")
Pais = Request("Pais")
Cpostal = Request("Cpostal")
RFC = Request("RFC")
Dias = Request("Dias")
Limite = Request("Limite")
Revision = Request("Revision")
Cobro = Request("Cobro")
Vendedor = Request("Vendedor")
Telefono = Request("Telefono")
Email = Request("Email")
Pagos = Request("Pagos")
TelefonoP = Request("TelefonoP")
EmailP = Request("EmailP")
Tipo = Request("Tipo")
Observaciones = Request("Observaciones")
Proceso = Request("Proceso")
%>
<%
If Proceso = 0 Then
'***** Conexion A la Tabla Proveedores ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select CvePrv, Nomprv, Dirprv, Colprv, Pobprv, EdoPrv, CpPrv, RFCPrv, Falprv " &_
"From Proveedores " &_
"Where Cveprv = '"& Sanea(Clave) &"';"
Rs12.Open Sql12,Cn1,1,2
If Rs12.Eof Then
'***** Conexion A la Tabla Proveedores ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select CvePrv, Nomprv, Dirprv, Colprv, Pobprv, EdoPrv, CpPrv, RFCPrv, Falprv " &_
"From Proveedores " &_
"Where RFCPrv = '"& Sanea(RFC) &"';"
Rs13.Open Sql13,Cn1,1,2
If Rs13.EOF Then
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14 = "insert into Proveedores" & _
"(Cveprv, Nomprv, Dirprv, Colprv, Pobprv, Edoprv, PaisprV, CPprv, Staprv, Rfcprv, Diaprv, Limprv, Desprv, Coiprv," &_
"Salprv, Ucoprv, Falprv, Revprv, Cobprv, Venprv, Tveprv, Fveprv, Eveprv, Ccoprv, Tccprv, Fccprv, eccprv, obsprv)" &_
"values ('"& Sanea(Clave) &"', '"& Sanea(Nombre) &"', '"& Sanea(Direccion) &"', '"& Sanea(Colonia) &"', '"& Sanea(Poblacion) &"', " & _
"'"& Sanea(Estado) & "', '"& Sanea(Pais) &"', '"& Sanea(Cpostal) & "','A','"& Sanea(RFC) & "', "& Dias & ","& Limite & ", 0, '0000-000-000', " &_
"0, Getdate(), Getdate(), '"& Sanea(Revision) &"', '"& Sanea(Cobro) & "', '"& Sanea(Vendedor) & "', '"& Sanea(Telefono) & "', '', " &_
"'"& Email &"', '"& Sanea(Pagos) & "', '"& Sanea(TelefonoP) & "', '', '"& Sanea(EmailP) & "', '"& Sanea(Observaciones) & "')"
Cn1.Execute Sql14
Response.redirect("Prvdeta.asp?Proveedor="& Clave &"&Empresa="& Session("Mybussiness") &"")
Else
%>
<b>***** Ya existe(n) Registro(s) con ese RFC ****</b>
<br><br>
<Table Border="0">
<% Do While Not Rs13.EOF %>
<Tr>
<Td>( <%= Rs13("CvePrv") %> ) <%= Rs13("Nomprv") %></Td>
</Tr>
<Tr>
<Td><%= Rs13("Dirprv") %> <%= Rs13("Colprv") %></Td>
</Tr>
<Tr>
<Td><%= Rs13("Pobprv") %> <%= Rs13("EdoPrv") %></Td>
</Tr>
<Tr>
<Td><%= Rs13("RFCPrv") %> <%= Rs13("CpPrv") %></Td>
</Tr>
<Tr>
<Td> <%= Rs13("Falprv") %> </Td>
</Tr>
<Tr>
<Td> </Td>
</Tr>
<%
Rs13.Movenext
Loop
%>
</Table>
<Table Border="0">
<Tr>
<Td>
<form>
<input type="button" value="Regresar" name="Back2" onclick="history.back()" />
</div>
</form>
</Td>
<Td> </Td>
<Td>
<Form action="Prvnew.asp" name="prvnew" method="Post">
<input type="Hidden" placeholder="Clave" Title="Clave" name="Clave" id="TdProveedorLeft" value="<%= Clave %>" Size="10px">
<input type="Hidden" placeholder="Nombre" Title="Nombre" name="Nombre" id="TdProveedorLeft" value="<%= Nombre %>" Size="10px">
<input type="Hidden" placeholder="Direccion" Title="Direccion" name="Direccion" id="TdProveedorLeft" value="<%= Direccion %>" Size="10px">
<input type="Hidden" placeholder="Colonia" Title="Colonia" name="Colonia" id="TdProveedorLeft" value="<%= Colonia %>" Size="10px">
<input type="Hidden" placeholder="Poblacion" Title="Poblacion" name="Poblacion" id="TdProveedorLeft" value="<%= Poblacion %>" Size="10px">
<input type="Hidden" placeholder="Estado" Title="Estado" name="Estado" id="TdProveedorLeft" value="<%= Estado %>" Size="10px">
<input type="Hidden" placeholder="Pais" Title="Pais" name="Pais" id="TdProveedorLeft" value="<%= Pais %>" Size="10px">
<input type="Hidden" placeholder="Cpostal" Title="Cpostal" name="Cpostal" id="TdProveedorLeft" value="<%= Cpostal %>" Size="10px">
<input type="Hidden" placeholder="RFC" Title="RFC" name="RFC" id="TdProveedorLeft" value="<%= RFC %>" Size="10px">
<input type="Hidden" placeholder="Dias" Title="Dias" name="Dias" id="TdProveedorLeft" value="<%= Dias %>" Size="10px">
<input type="Hidden" placeholder="Limite" Title="Limite" name="Limite" id="TdProveedorLeft" value="<%= Limite %>" Size="10px">
<input type="Hidden" placeholder="Revision" Title="Revision" name="Revision" id="TdProveedorLeft" value="<%= Revision %>" Size="10px">
<input type="Hidden" placeholder="Cobro" Title="Cobro" name="Cobro" id="TdProveedorLeft" value="<%= Cobro %>" Size="10px">
<input type="Hidden" placeholder="Vendedor" Title="Vendedor" name="Vendedor" id="TdProveedorLeft" value="<%= Vendedor %>" Size="10px">
<input type="Hidden" placeholder="Telefono" Title="Telefono" name="Telefono" id="TdProveedorLeft" value="<%= Telefono %>" Size="10px">
<input type="Hidden" placeholder="Email" Title="Email" name="Email" id="TdProveedorLeft" value="<%= Email %>" Size="10px">
<input type="Hidden" placeholder="Pagos" Title="Pagos" name="Pagos" id="TdProveedorLeft" value="<%= Pagos %>" Size="10px">
<input type="Hidden" placeholder="TelefonoP" Title="TelefonoP" name="TelefonoP" id="TdProveedorLeft" value="<%= TelefonoP %>" Size="10px">
<input type="Hidden" placeholder="EmailP" Title="EmailP" name="EmailP" id="TdProveedorLeft" value="<%= EmailP %>" Size="10px">
<input type="Hidden" placeholder="Tipo" Title="Tipo" name="EmailP" id="TdProveedorLeft" value="<%= Tipo %>" Size="10px">
<input type="Hidden" placeholder="Observaciones" Title="Observaciones" name="Observaciones" id="TdProveedorLeft" value="<%= Observaciones %>" Size="10px">
<input type="Hidden" placeholder="Proceso" Title="Proceso" name="Proceso" id="TdProveedorLeft" value="1" Size="10px">
<button tabindex="22" type="submit" name="Buscar" id="Buscar"/>Continuar</button>
</Form>
</Td>
</tr>
</Table>
<br><br>
<%
End If
Else
%>
<b>***** Ya existe(n) Registro(s) con esa Clave ****</b>
<br><br>
<Table Border="0">
<% Do While Not Rs12.EOF %>
<Tr>
<Td>( <%= Rs12("CvePrv") %> ) <%= Rs12("Nomprv") %></Td>
</Tr>
<Tr>
<Td><%= Rs12("Dirprv") %> <%= Rs12("Colprv") %></Td>
</Tr>
<Tr>
<Td><%= Rs12("Pobprv") %> <%= Rs12("EdoPrv") %></Td>
</Tr>
<Tr>
<Td><%= Rs12("RFCPrv") %> <%= Rs12("CpPrv") %></Td>
</Tr>
<Tr>
<Td> <%= Rs12("Falprv") %> </Td>
</Tr>
<Tr>
<Td> </Td>
</Tr>
<%
Rs12.Movenext
Loop
%>
</Table>
<Table Border="0">
<Tr>
<Td>
<form>
<input type="button" value="Regresar" name="Back2" onclick="history.back()" />
</div>
</form>
</Td>
<Td> </Td>
<Td>
</td>
</tr>
</Table>
<%
End If
Else If Proceso = 1 Then
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14 = "insert into Proveedores" & _
"(Cveprv, Nomprv, Dirprv, Colprv, Pobprv, Edoprv, PaisprV, CPprv, Staprv, Rfcprv, Diaprv, Limprv, Desprv, Coiprv," &_
"Salprv, Ucoprv, Falprv, Revprv, Cobprv, Venprv, Tveprv, Fveprv, Eveprv, Ccoprv, Tccprv, Fccprv, eccprv, obsprv)" &_
"values ('"& Sanea(Clave) &"', '"& Sanea(Nombre) &"', '"& Sanea(Direccion) &"', '"& Sanea(Colonia) &"', '"& Sanea(Poblacion) &"', " & _
"'"& Sanea(Estado) & "', '"& Sanea(Pais) &"', '"& Sanea(Cpostal) & "','A','"& Sanea(RFC) & "', "& Dias & ","& Limite & ", 0, '0000-000-000', " &_
"0, Getdate(), Getdate(), '"& Sanea(Revision) &"', '"& Sanea(Cobro) & "', '"& Sanea(Vendedor) & "', '"& Sanea(Telefono) & "', '', " &_
"'"& Email &"', '"& Sanea(Pagos) & "', '"& Sanea(TelefonoP) & "', '', '"& Sanea(EmailP) & "', '"& Sanea(Observaciones) & "')"
Cn1.Execute Sql14
Response.redirect("Prvdeta.asp?Proveedor="& Clave &"&Empresa="& Session("Mybussiness") &"")
End If
End If
%>
<%= proceso %>
</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
%>