Detalle: cxcalan.asp

cxcalan.asp

Ir a la Página Volver a la Lista

Archivo ASP

cxcalan.asp

Página Razor

CXC/Cxcalan.cshtml

Módulo

CXC

Líneas de Código

210

Características

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

Tablas Utilizadas (0)

No se detectaron tablas

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cxcalant.asp`	form_action	CXC	Pendiente	-
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cxcadd.asp`	link	Clientes	Portada	Clientes/Cxcadd.cshtml

<%  
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">



</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>

<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"--> 
</div>

<div class="normal" style="position:absolute; top:60px; left:10">

<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from CXcM where (usuario  like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>

<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("cxcm")%>.asp"><img src="Image/<%=rs5.fields("cxcn")%>.gif" border=0 ALT="<%=rs5.fields("cxCn")%>"></a>
<%
rs5.MoveNext
loop
%>

</div>
<div style="position:absolute; top:95px; left:10">

<hr>
<center>
<b>Cuentas por Cobrar
</center>

Alta de Anticipos a Clientes:
<hr>
<b>
<CENTER>


<Form action="cxcalan.asp" name="CLientes" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">

<tr>
<td Class="Normalb">Clave:</td>
<td><input type=text class=normalb name="Clacli" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>


<tr>
<td Class="Normalb">Cliente:</td>
<td><input type=text class=normalb name="Nomcli" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td>&nbsp <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</form>

<Form action="Cxcalant.asp" name="Cxcalant" method='post'>
<Table border=0 cellspacing=2 cellpadding=0 class="normal">

<tr>
<td Class="Normalb">Concepto:</td>

<td>
<SELECT NAME="Conce" class=normalb>
<OPTION value=2>Anticipo</option>
<OPTION value=19>Saldo a Favor</option>
<OPTION value=39>Pago a Cuenta de Fac</option>
</select>
</td>
</tr>


<tr>
<td Class="normal">Cliente:</td>
<td>
<%


Dim  Clacli
Clacli = request.Form("Clacli")
If Clacli = "" Then
Clacli = request.Querystring("Clacli")
else
Clacli = Clacli
end if

Dim  Nomcli
Nomcli = request.Form("Nomcli")
If Nomcli = "" Then
Nomcli = request.Querystring("Nomcli")
else
Nomcli = Nomcli
end if

Dim rs7, sql7
set rs7 = server.CreateObject("ADODB.Recordset")
Sql7 ="select clacli, nomcli, stacli, limcli, salcli from clientes where Clacli like '%" & UCase(Request("Clacli")) & "%' and Nomcli like '%" & UCase(Request("Nomcli")) & "%' order by nomcli;"
rs7.Open SQL7, cn1
response.write "<SELECT NAME=Cliente class=normalb>"
while not rs7.EOF
response.write "<OPTION value=" & rs7("clacli") & ">" & rs7("nomcli") & " - " & rs7("clacli")
rs7.MoveNext
wend
response.write "</select>" 
%>

</td>
</tr>

<tr>
<td Class="normal">Moneda:</td>
<td>
<%
Dim rs8, sql8
set rs8 = server.CreateObject("ADODB.Recordset")
Sql8 ="select * from monedas order by cladiv"
rs8.Open SQL8, cn1
response.write "<SELECT NAME=Mone class=normalb>"
while not rs8.EOF
response.write "<OPTION value=" & rs8("Cladiv") & ">" & rs8("desdiv") 
rs8.MoveNext
wend
response.write "</select>" 
%>
</td>
</tr>

<tr>
<td Class="normal">Tipo de Iva:</td>
<td>
<%
Dim Rs11, Sql11
set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="select * from EsquemaIva order by Regiva"
Rs11.Open Sql11, cn1
%>
<SELECT NAME="Esquema" class="normalb">
<optgroup label="Iva - Retencion">
<%
while not Rs11.EOF
%>
<OPTION value="<%= Rs11("regiva") %>"> <%= rs11("Iva") %> - <%= rs11("Retencion") %>
<%
Rs11.MoveNext
wend
%>
</select>
</td>
</tr>


<tr>

<tr>
<td align=center>F. Pago </td>
<td align=Left>
<input type="text" class="normalb" name="Fapli" value="<%= Date() %>" size=10>
</td>
</tr>

<tr>
<td colspan=2 align=center><input type="submit" value="Guardar" class="normaln"></td>
</tr>
</table>
</div>

</body>
</html>
<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>

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

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

        [BindProperty(SupportsGet = true)] public string? Cliente { get; set; }
        public List<CLIENTES> Clientes { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Cliente)) return;
            Clientes = await _context.CLIENTES
                .Where(c => c.STACLI == "A" && (c.CLACLI != null && c.CLACLI.Contains(Cliente.ToUpper()) || c.NOMCLI != null && c.NOMCLI.Contains(Cliente.ToUpper())))
                .OrderBy(c => c.NOMCLI)
                .Take(50)
                .ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.CXC.CxcalanModel
@{
    ViewData["Title"] = "Alta de Anticipos";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-currency-dollar"></i> Alta de Anticipos</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">Cliente</label>
                <input type="text" class="form-control" name="Cliente" value="@Model.Cliente" />
            </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.Clientes.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Clave</th><th>Nombre</th><th>RFC</th><th>Saldo</th><th>Acciones</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var c in Model.Clientes)
                        {
                            <tr>
                                <td>@c.CLACLI</td><td>@c.NOMCLI</td><td>@c.RFCCLI</td>
                                <td class="text-end">@c.SALCLI?.ToString("N2")</td>
                                <td><a href="/CXC/Cxcalant?cliente=@c.CLACLI" class="btn btn-sm btn-success"><i class="bi bi-plus"></i> Anticipo</a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

cxcalan.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código