Detalle: cxcnotca.asp

cxcnotca.asp

Ir a la Página Volver a la Lista

Archivo ASP

cxcnotca.asp

Página Razor

Facturas/Cxcnotca.cshtml

Módulo

Facturas

Líneas de Código

247

Características

En Menú:	Sí
Formularios:	2 formulario(s)
Consultas SQL:	4 consulta(s)
Complejidad:	medium
Bases de Datos:	Session DB

Tablas Utilizadas (3)

Clientes EsquemaIva Monedas

Consultas SQL (4)

SQL Original (ASP)

SELECT Cladiv, Desdiv, Tcadiv from Monedas;

Tablas: Monedas

SQL Original (ASP)

SELECT * From EsquemaIva;

Tablas: EsquemaIva

SQL Original (ASP)

SELECT REGCLI AS Registro, Clacli As Clave, Nomcli as Nombre, Stacli as Status from Clientes  where Clacli like '%" & UCase(Request("Clacli")) & "%'  and Nomcli like '%" & UCase(Request("Nomcli")) & "%'

Tablas: Clientes

SQL Original (ASP)

SELECT REGCLI AS Registro, Clacli As Clave, Nomcli as Nombre, Stacli as Status from Clientes

Tablas: Clientes

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
`cxcnotadd.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
`cxcnotca--.asp`	form_action	CXC	Pendiente	-

<%  
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">
<script type="text/javascript" src="validacion.js"></script>
<script type="text/javascript">
<!--
function check(formname, submitbutton) {
  var errors = '';
;
  errors += checkText(formname, 'Importe', 'Importe');
  errors += checkNum(formname, 'Importe', 'Importe');
  errors += checkText(formname, 'Referencia', 'Referencia');
  checkThisForm(formname, submitbutton, errors);
}
//-->
</script>
</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">

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

<hr>
<center>
<b>Notas de Cargo</b>

<br><br>

<Form action="CxcNOtca.asp" name="NCargo" 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>

<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13
Dim Cliente, NCliente, Clacli, Nomcli
Dim Iva, Retencion

Clacli = Request("Clacli")
Nomcli = Request("Nomcli")

If Clacli = "" and Nomcli = "" then
%>
Favor de Buscar un Cliente

<%
else
%>

<Form action="CxcNOtadd.asp" name="NCargoA" method='post'>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>

<TR>
<td align="Center" class="normal" bgcolor="#d8d8d8">Fecha</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Cliente</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Referencia</td>
</tr>

<TR>
<td align="Center" class="normal" bgcolor="#d8d8d8">
<input type="Text" class="Normalb" name="Fecha" value="<%= Date %>" size=12 onChange="javascript:this.value=this.value.toUpperCase();"></td>
    
<td align="Center" class="normal" bgcolor="#d8d8d8">
<SELECT NAME="Cliente" class=normalb>
<optgroup label="Cliente:">
<%

Set Rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT REGCLI AS Registro, Clacli As Clave, Nomcli as Nombre, Stacli as Status from Clientes " &_
"where Clacli like '%" & UCase(Request("Clacli")) & "%' " &_
"and Nomcli like '%" & UCase(Request("Nomcli")) & "%';"
rs11.open sql11,cn1,1,2

If Rs11.Eof Then
%>

<OPTION value="0">No Existe el Cliente</option>
<%
Else
while not rs11.EOF
%>
<OPTION value="<%= Rs11("Clave") %>"><%= Rs11("Clave") %> - <%= Rs11("Nombre") %></option>
<%
rs11.MoveNext
wend
End If
%>
</select>
</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">
<input type="Text" class="Normalb" name="Referencia" size=12 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>


<TR>
<td align="Center" class="normal" bgcolor="#d8d8d8">Iva</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Moneda</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Importe</td>
</tr>

<TR>
<td align="Center" class="normal" bgcolor="#d8d8d8">
<SELECT NAME="Iva" class=normalb>
<optgroup label="Iva - Retencion">
<%
Set Rs12 = server.CreateObject("ADODB.Recordset")
SQL12="SELECT * From EsquemaIva;"
rs12.open sql12,cn1,1,2

If Rs12.Eof Then
%>

<OPTION value="0">No Existe el Catalogo de Iva</option>
<%
Else
while not rs12.EOF

If Rs12("Iva") < 10 then
Iva = "&nbsp;&nbsp;" & Rs12("Iva") 
else
Iva = Rs12("Iva") 
end If

If Rs12("Retencion") < 10 then
Retencion = " " & Rs12("Retencion") 
else
Retencion = Rs12("Retencion") 
end If

%>
<OPTION value="<%= Rs12("Regiva") %>"><%= Iva %> - <%= Retencion %></option>
<%
rs12.MoveNext
wend
End If
%>
</select>
</td>

<td align="Center" class="normal" bgcolor="#d8d8d8">
<SELECT NAME="Moneda" class=normalb>
<optgroup label="Moneda - Tipo de Cambio">
<%
Set Rs13 = server.CreateObject("ADODB.Recordset")
SQL13="SELECT Cladiv, Desdiv, Tcadiv from Monedas;"
rs13.open sql13,cn1,1,2

If Rs13.Eof Then
%>

<OPTION value="0">No Existe el Catalogo de Monedas</option>
<%
Else
while not rs13.EOF
%>
<OPTION value="<%= Rs13("Cladiv") %>"><%= Rs13("Desdiv") %> - <%= Formatnumber(Rs13("Tcadiv"),4) %></option>
<%
rs13.MoveNext
wend
End If
%>
</select>
</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">
<input type="Text" class="Normalb" name="Importe" size=12 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>

<Tr>
<td align="Center" class="normal" bgcolor="#d8d8d8" Colspan="3">Notas</td>
</tr>
<Tr>
<td colspan=3 Align="Center">
<textarea class="normalb" name="Notas" cols="80" rows="5" onChange="javascript:this.value=this.value.toUpperCase();">
</textarea></td>
</tr>

<tr>
<td colspan=3><center>
<input type="button" class="normalb" name="Submit" value="Aceptar" onClick="check('NCargoA', this.name);"></td>
</tr>


</table>
</Form>

<%
End If
%>

</center>
</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.Facturas
{
    public class CxcnotcaModel : PageModel
    {
        private readonly MimDbContext _context;
        public CxcnotcaModel(MimDbContext context) { _context = context; }

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

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Cliente) && string.IsNullOrEmpty(Factura)) return;
            var query = _context.FFACENC.Where(x => x.Sucursal == sucursal).Where(f => f.STAFFACE == "F");
            if (!string.IsNullOrEmpty(Cliente)) query = query.Where(f => f.CLIFFACE != null && f.CLIFFACE.Contains(Cliente.ToUpper()));
            if (!string.IsNullOrEmpty(Factura)) query = query.Where(f => f.NUMFFACE.ToString().Contains(Factura));
            Facturas = await query.OrderByDescending(f => f.FECFFACE).Take(100).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.CxcnotcaModel
@{
    ViewData["Title"] = "Alta de Notas de Crédito";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-file-earmark-minus"></i> Alta de Notas de Crédito</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">
                <label class="form-label">Factura</label>
                <input type="text" class="form-control" name="Factura" value="@Model.Factura" />
            </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.Facturas.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Factura</th><th>Cliente</th><th>Fecha</th><th>Total</th><th>Saldo</th><th>Acciones</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var f in Model.Facturas)
                        {
                            <tr>
                                <td>@f.NUMFFACE</td>
                                <td>@f.CLIFFACE</td>
                                <td>@f.FECFFACE?.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@f.TOTFFACE?.ToString("N2")</td>
                                <td class="text-end">@((f.TOTFFACE ?? 0) - (f.ANTIFFACE ?? 0)).ToString("N2")</td>
                                <td><a href="/Facturas/Cxcnotcadd?factura=@f.Id" class="btn btn-sm btn-warning"><i class="bi bi-plus"></i> NC</a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

cxcnotca.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT SELECT Cladiv, Desdiv, Tcadiv from Monedas;

SQL Original (ASP)

SELECT SELECT * From EsquemaIva;

SQL Original (ASP)

SELECT SELECT REGCLI AS Registro, Clacli As Clave, Nomcli as Nombre, Stacli as Status f...

SQL Original (ASP)

SELECT SELECT REGCLI AS Registro, Clacli As Clave, Nomcli as Nombre, Stacli as Status f...

SQL Original (ASP)