Detalle: comprobantep.asp

comprobantep.asp

Ir a la Página Volver a la Lista

Archivo ASP

comprobantep.asp

Página Razor

Clientes/Comprobantep.cshtml

Módulo

Clientes

Líneas de Código

136

Características

En Menú:	Sí
Formularios:	Ninguno
Consultas SQL:	3 consulta(s)
Complejidad:	low
Bases de Datos:	Session DB

Tablas Utilizadas (2)

Empresa RepPagoE

Consultas SQL (3)

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select * from RepPagoE, Clientes

Tablas: RepPagoE

SQL Original (ASP)

Select * from RepPagoE, Clientes  where Clacli = CliComE and TimComE <> 100 and StaComE ='A' "&_ Order By FolComE desc

Tablas: RepPagoE

Comentarios y Notas (0)

No hay comentarios aún

Enlaces Salientes (1) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`default.asp`	redirect	General	Pendiente	-

Enlaces Entrantes (1) Páginas que enlazan a esta página

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`comprobantegen.asp`	redirect	General	Pendiente	-

<%  
	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/GestorC.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>

		<center>
		<br>
		<B>***** TRANSFERIR COMPROBANTE PAGO *****</B>

<%
	'***** Conexion A la Tabla Empresa ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Select * from RepPagoE, Clientes " &_
	"where Clacli = CliComE and TimComE <> 100 and StaComE ='A' "&_
	"Order By FolComE desc;"
	Rs12.Open Sql12,Cn1,1,2	
	
	If Rs12.Eof Then
		
		Else
%>		
		<br><br>
		<Table Class="InvResultado">

			<Tr>
				<Td>Folio</td>
				<Td>Fecha</td>
				<Td>Clave</td>
				<Td>Cliente</td>
				<Td colspan="2">Acciones</td>
			</Tr>
		<%
			Do While Not Rs12.EOF
		%>
			<Tr>
				<Td><%= Rs12("FolComE") %></td>
				<Td><%= Rs12("FecComE") %></td>
				<Td><%= Rs12("CliComE") %></td>
				<Td><%= Rs12("Nomcli") %></td>
				<Td Align="Center">
					<a Href="RepPago.asp?Folio=<%= Rs12("FolComE") %>">
						<Img src="Icon/Cambiar.gif" Height="25px">
					</a>
				</td>

			</Tr>
		
		<%
			Rs12.Movenext
			Loop
		%>
		</Table>

<%
	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
%>

using Microsoft.AspNetCore.Mvc;
using Microsoft.AspNetCore.Mvc.RazorPages;
using MimPortal.Data;

namespace MimPortal.Pages.Clientes
{
    public class ComprobantepModel : PageModel
    {
        private readonly MimDbContext _context;
        public ComprobantepModel(MimDbContext context) { _context = context; }
        
        [BindProperty(SupportsGet = true)]
        public string? Cliente { get; set; }
        
        public List<ComprobanteItem> Comprobantes { get; set; } = new();
        
        public void OnGet()
        {
            // Placeholder - would query payment receipts
        }
        
        public class ComprobanteItem
        {
            public string Folio { get; set; } = "";
            public DateTime? Fecha { get; set; }
            public string Cliente { get; set; } = "";
            public decimal Importe { get; set; }
        }
    }
}

@page
@model MimPortal.Pages.Clientes.ComprobantepModel
@{
    ViewData["Title"] = "Comprobante de Pago";
}
<div class="container-fluid">
    <h4 class="mb-4"><i class="fas fa-file-invoice-dollar"></i> Comprobante de Pago</h4>
    <div class="card">
        <div class="card-body">
            <form method="get" class="row g-3 mb-4">
                <div class="col-md-3">
                    <input type="text" class="form-control" name="Cliente" placeholder="Clave Cliente" value="@Model.Cliente" />
                </div>
                <div class="col-md-2">
                    <button type="submit" class="btn btn-primary"><i class="fas fa-search"></i> Buscar</button>
                </div>
            </form>
            @if (Model.Comprobantes != null && Model.Comprobantes.Any())
            {
                <table class="table table-striped">
                    <thead class="table-dark">
                        <tr><th>Folio</th><th>Fecha</th><th>Cliente</th><th>Importe</th><th>Acción</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var c in Model.Comprobantes)
                        {
                            <tr>
                                <td>@c.Folio</td>
                                <td>@c.Fecha?.ToString("dd/MM/yyyy")</td>
                                <td>@c.Cliente</td>
                                <td class="text-end">@c.Importe.ToString("C2")</td>
                                <td><a href="#" class="btn btn-sm btn-primary"><i class="fas fa-print"></i></a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            }
        </div>
    </div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

comprobantep.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select * from RepPagoE, Clientes

SQL Original (ASP)

SELECT Select * from RepPagoE, Clientes where Clacli = CliComE and TimComE <> 100 and ...

SQL Original (ASP)