<%
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" />
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29, Rs30
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29, Sql30
'***** 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>
<%
Dim Notancr
Notancr = Request("Notancr")
%>
<center>
<br>
<B>***** NOTA DE CREDITO *****
<br><br>
</B>
<b>
<a> Cancelacion de Nota de Credito </a>
<br><br>
<Form action="cxcNotCcinv.asp" method="post">
<Table Id="CRMform">
<Tr>
<Td>Nota de credito</Td>
<Td>
<input tabindex="1" type="text" placeholder="Notancr" Title="Notancr" name="Notancr" id="Notancr" value="<%= Notancr %>" Size="5px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<Td>
<button tabindex="3" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
</Td>
<Tr>
</Table>
</Form>
<%
'---- CONDICIONAL PARA SABER SI EXISTE LA Nota de Credito -----
If Notancr= "" Or Isnull(Notancr) Then
Else
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="Select numfdeve, Tcafdeve, clacli, Nomcli, desdiv, subfdeve from Fdevenc, Clientes, Monedas " &_
"Where numfdeve ="& Notancr &" and clifdeve = clacli and monfdeve = cladiv and subfdeve<>0;"
Rs12.open Sql12,Cn1,1,2
'****** CONDICIONAL SI ES FIN DE ARCHIVO RECORDSET 12
If Rs12.Eof Then
'****** EN CASO QUE EXISTA ****
Else
%>
<br> <br>
<Form action="cxcNotCcinv-2.asp" name="NotaCr" method="POST">
<Table Id="Transfer">
<Tr>
<Td>Nota de credito</Td>
<Td Colspan="2">Cliente</Td>
<Td>Subtotal</Td>
<Td>Fecha</Td>
</Tr>
<Tr>
<Td><input tabindex="1" type="text" placeholder="Notancr" Title="Notancr" name="Notancr" id="Notancr" value="<%= Rs12("numfdeve") %>" Size="3px" onChange="javascript:this.value=this.value.toUpperCase();" readonly /></td>
<Td >
<input tabindex="2" type="text" placeholder="Clave Cliente" Title="Clave Cliente" name="ClaveC" id="ClaveC" value="<%= Rs12("Clacli") %>" Size="3px" onChange="javascript:this.value=this.value.toUpperCase();" readonly />
</td>
<Td> <input tabindex="3" type="text" placeholder="Nombre Cliente" Title="Nombre Cliente" name="NombreC" id="NombreC" value="<%= Rs12("Nomcli") %>" Size="60px" onChange="javascript:this.value=this.value.toUpperCase();" readonly />
</td>
<Td><input tabindex="4" type="text" placeholder="subfdeve" Title="subfdeve" name="subfdeve" id="subfdeve" value="<%= Rs12("subfdeve") %>" Size="9px" onChange="javascript:this.value=this.value.toUpperCase();" readonly /></td>
<Td><input tabindex="5" type="text" placeholder="Fecha" Title="Fecha" name="Fecha" id="Fecha" value="<%= Date() %>" Size="9px" onChange="javascript:this.value=this.value.toUpperCase();" readonly /></td>
</Tr>
</Table>
<Tr>
<Td Colspan="3" Align="Center"><input type="submit" value="Cancelar"> </Td>
</Tr>
</FORM>
<%
'******* FIN DE ARCHIVO RECORDSET 12
End If
'---- SE CIERRA LA CONDICIONAL PARA SABER SI EXISTE LA FACTURA ----
End If
%>
</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
%>