Detalle: conclicxc.asp

conclicxc.asp

Ir a la Página Volver a la Lista

Archivo ASP

conclicxc.asp

Página Razor

Contabilidad/Conclicxc.cshtml

Módulo

Contabilidad

Líneas de Código

360

Características

En Menú:	No
Formularios:	1 formulario(s)
Consultas SQL:	Ninguna
Complejidad:	high
Bases de Datos:	Session DB

Tablas Utilizadas (0)

No se detectaron tablas

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 (0) Páginas que enlazan a esta página

No hay enlaces entrantes

<%  
	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, Cn2
	Dim Rs11, Rs12, Rs13, Rs14
	Dim Sql11, Sql12, Sql13, Sql14

	'***** 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>
	<br>
	<center>
<%
Dim Clave, Sucursal

Sucursal = Request("Sucursal")
Clave = Request("Clave")
%>
	<form action="ConClicxc.asp" method="post" name="AddGestor" id="AgregaGC">
		<Table Class="Tableneg">

			<Tr>
				<Td>
					<SELECT tabindex="1" Name="Sucursal" Class="Tableneg">
						<optgroup label="Seleccionado:">					
						<OPTION Id="TablaOpc" value="<%= Sucursal %>"><%= Sucursal %></option>
						<optgroup label="MIBSA:">
						<OPTION Id="TablaOpc" value="BAJIO">BAJIO</option>		
						<optgroup label="MICSA:">
						<OPTION Id="TablaOpc" value="COATZA">COATZA</option>							
						<OPTION Id="TablaOpc" value="PINTURAS">PINTURAS</option>							
						<OPTION Id="TablaOpc" value="VILLAHERMOSA">VILLAHERMOSA</option>	
						<optgroup label="MIGSA:">
						<OPTION Id="TablaOpc" value="GUADALAJARA">GUADALAJARA</option>							
						<OPTION Id="TablaOpc" value="MIGPINTURAS">MIGPINTURAS</option>	
						<optgroup label="MIMSA:">
						<OPTION Id="TablaOpc" value="MEXICO">MEXICO</option>							
						<OPTION Id="TablaOpc" value="TAMPICO">TAMPICO</option>							
						<OPTION Id="TablaOpc" value="MEXPINTURAS">MEXPINTURAS</option>		
						<optgroup label="MIMTY:">
						<OPTION Id="TablaOpc" value="MIMTY">MIMTY</option>						
						<optgroup label="MISSA:">
						<OPTION Id="TablaOpc" value="CANCUN">CANCUN</option>
						<OPTION Id="TablaOpc" value="MERIDA">MERIDA</option>
						<OPTION Id="TablaOpc" value="ORIZABA">ORIZABA</option>
						<OPTION Id="TablaOpc" value="PUEBLA">PUEBLA</option>
						<optgroup label="INDMEXMEXICO:">
						<OPTION Id="TablaOpc" value="INDMEXMEXICO">INDMEXMEXICO</option>
					</SELECT>					
				
				</Td>			
				<Td>
				<input  tabindex="3" type="Text" placeholder="Clave" Title="Clave" name="Clave" Size="10px" id="Clave" value="<%= Clave %>" required/>
				</Td>

				<Td align="center"><button  tabindex="4" type="submit" name="Grabar" id="Grabar"/>Buscar</button><br><br></Td>

			</Tr>				
		</Table>
	</form>

<br><br>

<%
If (Sucursal = "" or Isnull(Sucursal)) and (Clave = "" or Isnull(Clave)) then 
%>
vacio
<%
Else

		'----- PARA LAS TABLAS DE CREDITO
		Dim Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26
		Dim Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26
		Dim LimiteCredM, LimiteCredD, RemisionadoM, RemisionadoD, PedidosAutM, PedidosAutD, SaldoCliM, SaldoCliD
		
		Dim NumeroPed, AlmacenPed, TcambioPed
		Dim NombreAlma
		Dim TipoCliente, MsgPrecio, MsgDescuento, PrecioL, AnteriorP
		Dim TipoProd 
		Dim Ocpedido
		Dim TipoCambio
		Dim MyColor
		Dim CotizacionP, CotizaMsg
		Dim Cliente, ClienteDesc, ClienteDmsg
		
	Cliente = Clave	
		
	'***** 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="& Sucursal &""

'**** PONE TODOS LOS SALDOS DE LOS CLIENTES EN CERO ***
Set Rs17 = server.CreateObject("ADODB.Recordset")
Sql17 = "Update CLIENTES Set SALCLI = 0;"
Cn2.Execute Sql17

'**** ACTUALIZA LOS SALDOS DE LOS CLIENTES A LO ACTUAL ****
Set Rs18 = server.CreateObject("ADODB.Recordset")
Sql18 = "Update CLIENTES " &_
"Set SALCLI = Saldo " &_
"From ASALDOS " &_
"Where Clacli = Cliente;"
Cn2.Execute Sql18

'****** SACA LOS LIMITES DE CREDITO EN LA MONEDA DEL PEDIDO ****
Set Rs19 = server.CreateObject("ADODB.Recordset")
Sql19 = "select Limcli, LimUSD, Salcli " &_
"from Clientes " &_
"Where Clacli = '"& Clave &"';"
Rs19.Open Sql19,Cn2,1,2

LimiteCredM = Rs19("LimCli")
LimiteCredD = Rs19("LimUSD")

'****** OBTENEMOS EL TOTAL DE LO RemisionadoM CON IVA MXN ****
Set Rs20 = server.CreateObject("ADODB.Recordset")
Sql20 = "select sum((CPEFREMD * UNIFREMD) + (CPEFREMD * UNIFREMD * (IVAFREMD/100))) as RemisionadoM from FREMDET, FREMENC " &_
"where NUMFREME = NREFREMD " &_
"and (STAFREME = 'A' OR STAFREME = 'P') " &_
"AND CLIFREME = '"& Cliente &"' and Monfreme = 1;"
Rs20.Open Sql20,Cn2,1,2

RemisionadoM = Rs20("RemisionadoM")
	If Isnull(RemisionadoM) Then
	RemisionadoM = 0
	Else
	RemisionadoM = RemisionadoM
	End If

'****** OBTENEMOS EL TOTAL DE LO RemisionadoM CON IVA USD ****
Set Rs21 = server.CreateObject("ADODB.Recordset")
Sql21 = "select sum((CPEFREMD * UNIFREMD) + (CPEFREMD * UNIFREMD * (IVAFREMD/100))) as RemisionadoD from FREMDET, FREMENC " &_
"where NUMFREME = NREFREMD " &_
"and (STAFREME = 'A' OR STAFREME = 'P') " &_
"AND CLIFREME = '"& Cliente &"' and Monfreme = 2;"
Rs21.Open Sql21,Cn2,1,2

RemisionadoD = Rs21("RemisionadoD")
	If Isnull(RemisionadoD) Then
	RemisionadoD = 0
	Else
	RemisionadoD = RemisionadoD
	End If

'**** VALOR DE LOS PEDIDOS AUTORIZADOS (SOLO LAS PARTIDAS Y CANTIDADES QUE ESTAN PENDIENTES) MXN
Set Rs22 = server.CreateObject("ADODB.Recordset")
Sql22 = "select sum((Cpefpedd * UNIFPEDD) + (Cpefpedd * UNIFPEDD * (IVAFPEDD/100))) as PedidosAutM " &_
"from fpedenc, fpeddet " &_
"where Numfpede = Npefpedd " &_
"and clifpede = '"& Cliente &"' " &_
"and MONFPEDD = 1 " &_
"and (stafpede = 'A' or stafpede = 'R' or stafpede = 'P') " &_
"and hfdcfpede is not null " &_
"and cpefpedd > 0;"
Rs22.Open Sql22,Cn2,1,2

	PedidosAutM = Rs22("PedidosAutM")
	If Isnull(PedidosAutM) Then
	PedidosAutM = 0
	Else
	PedidosAutM = PedidosAutM
	End If	

'**** VALOR DE LOS PEDIDOS AUTORIZADOS (SOLO LAS PARTIDAS Y CANTIDADES QUE ESTAN PENDIENTES) USd
Set Rs23 = server.CreateObject("ADODB.Recordset")
Sql23 = "select sum((Cpefpedd * UNIFPEDD) + (Cpefpedd * UNIFPEDD * (IVAFPEDD/100))) as PedidosAutD " &_
"from fpedenc, fpeddet " &_
"where Numfpede = Npefpedd " &_
"and clifpede = '"& Cliente &"' " &_
"and MONFPEDD = 2 " &_
"and (stafpede = 'A' or stafpede = 'R' or stafpede = 'P') " &_
"and hfdcfpede is not null " &_
"and cpefpedd > 0;"
Rs23.Open Sql23,Cn2,1,2

	PedidosAutD = Rs23("PedidosAutD")
	If Isnull(PedidosAutD) Then
	PedidosAutD = 0
	Else
	PedidosAutD = PedidosAutD
	End If	

'***** LO QUE TIENE EN CUENTAS POR COBRAR MXN****	
Set Rs24 = server.CreateObject("ADODB.Recordset")
Sql24 = "select sum(SALCXCG)  as Saldo from cxcgen " &_
"where clicxcg = '"& Cliente &"' " &_
"and moncxcg = 1 " &_
"and SALCXCG <> 0;"
Rs24.Open Sql24,Cn2,1,2

	SaldoCliM = Rs24("Saldo")
	If Isnull(SaldoCliM) Then
	SaldoCliM = 0
	Else
	SaldoCliM = SaldoCliM
	End If	

'***** LO QUE TIENE EN CUENTAS POR COBRAR USD****	
Set Rs25 = server.CreateObject("ADODB.Recordset")
Sql25 = "select sum(SALCXCG)  as Saldo from cxcgen " &_
"where clicxcg = '"& Cliente &"' " &_
"and moncxcg = 2 " &_
"and SALCXCG <> 0;"
Rs25.Open Sql25,Cn2,1,2

	SaldoCliD = Rs25("Saldo")
	If Isnull(SaldoCliD) Then
	SaldoCliD = 0
	Else
	SaldoCliD = SaldoCliD
	End If
			
%>


		<br>
		<B>***** DATOS CREDITO *****</B>
		<BR><BR>

<Table>
	<Tr Style="Color:#FFFFFF; Background-color:#003366; Text-Align:Center">
			<Td>Limite Credito MXN</Td>
			<Td>Saldo Pendiente  MXN</Td>
			<Td>Pedidos MXN</Td>
			<Td>Remisiones MXN</Td>
			<Td>Disponible MXN</Td>
		</Tr>	
		<Tr Style="Color:#003366; Background-color:#FFFFFF; Text-Align:Center; Text-decoration:none">
			<Td><B><%= FormatNumber(LimiteCredM) %></Td>
			<Td>
			<a Href="DiredoCPdf.asp?Clave=<%= Cliente %>&Empresa=<%= Sucursal %>" target="<%= Cliente %>" 
			onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">			
			<B><%= FormatNumber(SaldoCliM) %></B>
			</a>
			</Td>
			<Td>
			<a Href="PedidosCXC.asp?Clave=<%= Cliente %>&MonedaPed=1" target="<%= Cliente %>" 
			onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">				
			<B><%= FormatNumber(PedidosAutM) %></B> 
			</a>
			</Td>
			<Td>
			<a Href="RemisionCXC.asp?Clave=<%= Cliente %>&MonedaPed=1" target="<%= Cliente %>" 
			onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">	
			<B><%= FormatNumber(RemisionadoM) %></B> 
			</a>
			</Td>
			<Td><B><%=  Formatnumber(Cdbl(LimiteCredM) - Cdbl(SaldoCliM) - Cdbl(RemisionadoM) - Cdbl(PedidosAutM)) %></B> </Td>
			<Td></Td>
		</Tr>
				<Tr Style="Color:#FFFFFF; Background-color:#003366; Text-Align:Center">
					<Td>Limite Credito USD</Td>
					<Td>Saldo Pendiente USD</Td>
					<Td>Pedidos USD</Td>
					<Td>Remisiones USD</Td>
					<Td>Disponible USD</Td>
		<Tr Style="Color:#003366; Background-color:#FFFFFF; Text-Align:Center; Text-decoration:none">
			<Td><B><%= FormatNumber(LimiteCredD) %></Td>
	
			<Td>
			<a Href="DiredoCPdf.asp?Clave=<%= Cliente %>&Empresa=<%= Session("Mybussiness") %>" target="<%= Cliente%>" 
			onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">			
			<B><%= FormatNumber(SaldoCliD) %></B>
			</a>
			</Td>
			<Td>
			<a Href="PedidosCXC.asp?Clave=<%= Cliente %>&MonedaPed=2" target="<%= Cliente %>" 
			onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">				
			<B><%= FormatNumber(PedidosAutD) %></B> 
			</a>
			</Td>	
			<Td>
			<a Href="RemisionCXC.asp?Clave=<%= Cliente %>&MonedaPed=2" target="<%= Cliente %>" 
			onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">	
			<B><%= FormatNumber(RemisionadoD) %></B> 
			</a>
			</Td>	
			</Td>
			<Td><B><%=  Formatnumber(Cdbl(LimiteCredD) - Cdbl(SaldoCliD) - Cdbl(RemisionadoD) - Cdbl(PedidosAutD)) %></B> </Td>
			<Td></Td>			
		</Tr>
	</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 Microsoft.EntityFrameworkCore;
using MimPortal.Data;
using MimPortal.Data.Entities;

namespace MimPortal.Pages.Contabilidad
{
    public class ConclicxcModel : PageModel
    {
        private readonly MimDbContext _context;
        public ConclicxcModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public string? Cliente { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaDesde { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaHasta { get; set; }
        public List<CXCGEN> Cuentas { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Cliente)) return;
            var query = _context.CXCGEN.Where(x => x.Sucursal == sucursal).Where(c => c.CLICXCG != null && c.CLICXCG.Contains(Cliente.ToUpper()));
            if (FechaDesde.HasValue) query = query.Where(c => c.FRECXCG >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(c => c.FRECXCG <= FechaHasta);
            Cuentas = await query.OrderByDescending(c => c.FRECXCG).Take(200).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Contabilidad.ConclicxcModel
@{
    ViewData["Title"] = "Consulta CXC por Cliente";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-person-lines-fill"></i> Consulta CXC por Cliente</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-4">
                <label class="form-label">Cliente</label>
                <input type="text" class="form-control" name="Cliente" value="@Model.Cliente" placeholder="Nombre o clave" />
            </div>
            <div class="col-md-2">
                <label class="form-label">Desde</label>
                <input type="date" class="form-control" name="FechaDesde" value="@Model.FechaDesde?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-2">
                <label class="form-label">Hasta</label>
                <input type="date" class="form-control" name="FechaHasta" value="@Model.FechaHasta?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-2 d-flex align-items-end">
                <button type="submit" class="btn btn-primary"><i class="bi bi-search"></i> Buscar</button>
            </div>
        </form>
        @if (Model.Cuentas.Any())
        {
            <div class="mb-2"><strong>Total Saldo: @Model.Cuentas.Sum(c => c.SALCXCG ?? 0).ToString("C")</strong></div>
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Mov</th><th>Cliente</th><th>Documento</th><th>Fecha</th><th>Vence</th><th>Importe</th><th>Saldo</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var c in Model.Cuentas)
                        {
                            <tr class="@(c.FPACXCG < DateTime.Today && c.SALCXCG > 0 ? "table-danger" : "")">
                                <td>@c.MOVCXCG</td>
                                <td>@c.CLICXCG</td>
                                <td>@c.DOCCXCG</td>
                                <td>@c.FRECXCG?.ToString("dd/MM/yyyy")</td>
                                <td>@c.FPACXCG?.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@c.IMPCXCG?.ToString("N2")</td>
                                <td class="text-end">@c.SALCXCG?.ToString("N2")</td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

conclicxc.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código