<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
'******* 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/GestorC.css" rel="stylesheet" />
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13
Dim Sql11, Sql12, Sql13
'***** 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>
<!---menu --->
<br><br><br><br>
</SECTION>
<SECTION>
<%
Dim Factura
Factura = Request("Factura")
%>
<div id="page">
<form action="Comprobante.asp" method="post" name="AddGestor" id="AgregaGC">
<Table Class="Tableneg">
<Tr>
<Td>Factura:</Td>
<Td>
<input tabindex="1" type="Text" placeholder="Factura" Title="Numero de Factura" name="Factura" size="5px" id="Factura" value="<%= Factura %>" required/>
</Td>
<Td align="center"><button tabindex="3" type="submit" name="Grabar" id="Grabar"/>Buscar</button><br><br></Td>
</Tr>
</Table>
</form>
</div>
</SECTION>
<SECTION Id="Resultados">
<%
If Factura = "" Or ISnull(Factura) Then
Else
Dim Rs14
Dim Sql14
'***** Conexion A la tabla Gestor de Clientes ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select Clifface, Nomcli, Numfface, Calcli, Numcli, Numicli, Fecfface, Colcli, Pobcli, Edocli, Pais, Cpcli, " &_
"Subfface, Ivtfface, Imrfface, Totfface, Antifface " &_
"from Ffacenc, Clientes " &_
"where numfface = "& Factura &" and Clifface = Clacli;"
Rs14.Open Sql14,Cn1,1,2
%>
<%
If Rs14.Eof Then
Else
%>
<br>
<Table Class="TablaRes" Width="800px">
<Tr>
<Td>( <%= Rs14("Clifface") %> ) <%= Rs14("Nomcli") %> </Td>
<Td Align="Right"><%= Rs14("Numfface") %></Td>
</Tr>
<Tr>
<Td> <%= Rs14("Calcli") %> <%= Rs14("Numcli") %> <%= Rs14("Numicli") %></Td>
<Td Align="Right"><%= Rs14("Fecfface") %></Td>
</Tr>
<Tr>
<Td> <%= Rs14("Colcli") %> <%= Rs14("Pobcli") %> <%= Rs14("Edocli") %> <%= Rs14("Pais") %> <%= Rs14("Cpcli") %> </Td>
<Td Align="Right"></Td>
</Tr>
</Table>
<BR><BR>
<%
Dim Rs15
Dim Sql15
Dim Importe
'***** Conexion A la tabla Gestor de Clientes ****
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Select Secffacd, Codffacd, Nominv, udminv, Canffacd, Uniffacd " &_
"from Ffacdet, Inventarios " &_
"where Nfaffacd = "& Factura &" and Codffacd = Cveinv;"
Rs15.Open Sql15,Cn1,1,2
If Rs15.EOf Then
Else
%>
<Table Class="Partidas" Width="800px">
<Tr>
<Td Align="Right">Item</Td>
<Td>Codigo</Td>
<Td>Descripcion</Td>
<Td Align="Right">UDM</Td>
<Td Align="Right">Cantidad</Td>
<Td Align="Right">Unitario </Td>
<Td Align="Right">Importe </Td>
</Tr>
<%
Do While Not Rs15.Eof
Importe = Cdbl(Rs15("Canffacd")) * Cdbl(Rs15("Uniffacd"))
%>
<Tr>
<Td Align="Right"><%= Rs15("Secffacd") %> </Td>
<Td><%= Rs15("Codffacd") %> </Td>
<Td><%= Rs15("Nominv") %> </Td>
<Td Align="Right"><%= Rs15("Udminv") %> </Td>
<Td Align="Right"><%= Formatnumber(Rs15("Canffacd")) %> </Td>
<Td Align="Right"><%= Formatnumber(Rs15("Uniffacd")) %> </Td>
<Td Align="Right"><%= Formatnumber(Importe) %> </Td>
</Tr>
<%
Rs15.Movenext
Loop
%>
<Tr>
<Td Align="Right"></Td>
<Td></Td>
<Td></Td>
<Td Align="Right"> </Td>
<Td Align="Right"> </Td>
<Td Align="Right"><br>Subtotal</Td>
<Td Align="Right"><br><%= Formatnumber(Rs14("Subfface")) %> </Td>
</Tr>
<Tr>
<Td Align="Right"></Td>
<Td></Td>
<Td></Td>
<Td Align="Right"> </Td>
<Td Align="Right"> </Td>
<Td Align="Right">Iva</Td>
<Td Align="Right"><%= Formatnumber(Rs14("Ivtfface")) %> </Td>
</Tr>
<Tr>
<Td Align="Right"></Td>
<Td></Td>
<Td></Td>
<Td Align="Right"> </Td>
<Td Align="Right"> </Td>
<Td Align="Right">Retencion</Td>
<Td Align="Right"><%= Formatnumber(Rs14("Imrfface")) %> </Td>
</Tr>
<Tr>
<Td Align="Right"></Td>
<Td></Td>
<Td></Td>
<Td Align="Right"> </Td>
<Td Align="Right"> </Td>
<Td Align="Right">Total</Td>
<Td Align="Right"><%= Formatnumber(Rs14("Totfface")) %> </Td>
</Tr>
<Tr>
<Td Align="Right"></Td>
<Td></Td>
<Td></Td>
<Td Align="Right"> </Td>
<Td Align="Right"> </Td>
<Td Align="Right">Anticipo</Td>
<Td Align="Right"><%= Formatnumber(Rs14("Antifface")) %> </Td>
</Tr>
</Table>
<%
'***** CIERRA CONDICIONAL DE DETALLE
End If
End IF
%>
</div>
</SECTION>
<SECTION Id="Resultados">
<form action="Comprobantegen.asp" method="post" name="AddGestor" id="AgregaGC">
<Table Class="Tableneg">
<Tr>
<Td>Comprobante de pago:</Td>
</TR>
<Tr>
<Td>Factura</Td>
<Td>UUID</Td>
<Td>Monto</Td>
<Td>Cuenta Pago</Td>
<Td>Forma Pago</Td>
</TR>
<Tr>
<Td Align="Center">
<input tabindex="1" type="Text" placeholder="Factura" Title="Numero de Factura" name="Factura" size="5px" id="Factura" value="<%= Factura %>" readonly required/>
</Td>
<Td Align="Center">
<input tabindex="2" type="Text" placeholder="Folio Fiscal" Title="Folio Fiscal" name="UUID" size="34px" id="UUID" value="" maxlength="40" required/>
</Td>
<Td Align="Center">
<input tabindex="3" type="Text" placeholder="Monto" Title="Monto" name="Monto" size="5px" id="Monto" value="" required/>
</Td>
<Td Align="Center">
<input tabindex="4" type="Text" placeholder="Cuenta Pago" Title="Cuenta Pago" name="CuentaPago" size="7px" id="CuentaPago" value="" maxlength="50" required/>
</Td>
<Td Align="Center">
<input tabindex="5 type="Text" placeholder="Forma pago" Title="Forma pago" name="FormaPago" size="7px" id="FormaPago" value="" maxlength="50" required/>
</Td>
</Tr>
<Tr>
<Td Colspan="5" Align="Center">
<button tabindex="6" type="submit" name="Grabar" id="Grabar"/>Generar</button><br><br></Td>
</Tr>
</Table>
</form>
<%
End If
%>
</SECTION>
<SECTION Id="Resultados">
<%
Dim Rs16
Dim Sql16
If Factura = "" or Isnull(Factura) Then
else
'***** Conexion A la tabla Gestor de Clientes ****
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="Select * " &_
"from Comprobante " &_
"where Faccomp = "& Factura &";"
Rs16.Open Sql16,Cn1,1,2
If Rs16.EOF then
else
%>
<Table Class="Partidas" Width="840px">
<Tr>
<Td Colspan="9" Align="Center" Bgcolor="#c0c0c0">Comprobantes Emitidos a la factura <%= Factura %></Td>
</Tr>
<Tr>
<Td Align="Right">Folio</Td>
<Td>Factura</Td>
<Td>Fecha</Td>
<Td>UUID</Td>
<Td>Monto</Td>
<Td>Cuenta Pago</Td>
<Td>Forma Pago</Td>
<Td>Usuario</Td>
<Td Align="Right">Timbrado</Td>
</Tr>
<%
Do While Not Rs16.EOF
%>
<Tr>
<Td Align="Right"><%= Rs16("Idcomp") %></Td>
<Td><%= Rs16("Faccomp") %></Td>
<Td><%= Rs16("Feccomp") %></Td>
<Td><%= Rs16("UUIDcomp") %></Td>
<Td Align="Right"><%= Formatnumber(Rs16("Montocomp")) %></Td>
<Td Align="Right"><%= Rs16("Cuentapago") %></Td>
<Td Align="Right"><%= Rs16("FormaPago") %></Td>
<Td><%= Rs16("Usucomp") %></Td>
<Td Align="Right"><%= Rs16("Timcomp") %></Td>
</Tr>
<%
Rs16.Movenext
Loop
%>
</table>
<%
end If
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
%>