Detalle: cxcmovcli.asp

cxcmovcli.asp

Ir a la Página Volver a la Lista

Archivo ASP

cxcmovcli.asp

Página Razor

CXC/Cxcmovcli.cshtml

Módulo

CXC

Líneas de Código

321

Características

En Menú:	No
Formularios:	1 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
`aplicxcmovcli.asp`	form_action	General	Pendiente	aplicxcmovcli
`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 (2) 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
`aplicxcmovcli.asp`	redirect	General	Portada	aplicxcmovcli

<%@ Language=VBScript %>
<%  
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14, Rs15, Sql15, Rs16, Sql16, Rs17, Sql17
Dim Pago, ClaCli, Nomcli, Moneda, DMoneda, Tpago, Dtpago, Aplicar, DocuP, Documento, SaldoD, SaldoM
Dim Fmoneda, Fpago, FCap, TipoC, DifeC, TipoA, Importe, FmonedaA, ImporteDls, Cliente, Clv, Fecha
Dim DocuApli, DocumentoA, SaldoDls, SaldoMxp, Destino, IdDestino, DesDestino, ImporteO, Tip, Mov, Vimpo
Dim ColorL, Vpago, VpagoA, LecturaC, Paloma1, Paloma2

Clacli = Request("Clacli")
Moneda = Request("Moneda")
Pago = Request("Pago")
Aplicar = Request("Aplicar")
DocuP = Request("DocuP")
Fcap = Request("Fcap")
Tpago = Request("Tpago")

If Moneda = "" then
Moneda = 1
Else
Moneda = Moneda
End If

If Aplicar = "" then
Aplicar = 0
Else
Aplicar = Aplicar
End If

If Pago = "" then
Pago = 0
Else
Pago = Pago
End If

Set Rs12 = server.CreateObject("ADODB.Recordset")
SQL12="Select CLadiv, Desdiv, Tcadiv from monedas where Cladiv = "& Moneda &";"
Rs12.open Sql12,Cn1,1,2
Moneda = Rs12("Cladiv")
DMoneda = Rs12("Desdiv") 


If Tpago = "" then
Tpago = 9
Else
Tpago = Tpago
End If

Set Rs13 = server.CreateObject("ADODB.Recordset")
SQL13="SELECT * FROM CXCCON where regcxcc > 8 and Numcxcc = "& Tpago &";"
Rs13.open Sql13,Cn1,1,2
Tip = rs13("tipcxcc")
DTpago = Rs13("descxcc") 

If DocuP = "" or DocuP = 0 then
Docup = 0
Documento = "000000"
Clv = "00000000"
Cliente = "El cliente no existe"
Fecha=date()
SaldoD  = 0
SaldoM = 0
Fmoneda = ""
Else
DocuP = DocuP
Set Rs14 = server.CreateObject("ADODB.Recordset")
SQL14="Select Regcxcg as Registro, Nfacxcg as Documento, impcxcg as Importe, Salcxcg as Saldo, Imtcxcg as pesos, " &_
" clicxcg as Clv, Tipcxcc as Tipo, numcxcc, Nomcli as Cliente, Frecxcg as Fecha, Desdiv as Fmoneda, Tcacxcg As TipoC "&_
" From cxcgen, Clientes, Monedas,CxcCon where Regcxcg = "& DocuP &" and Cladiv = Moncxcg and clacli=clicxcg and movcxcg=numcxcc;"
Rs14.open Sql14,Cn1,1,2
Documento = Rs14("Documento")
Fecha = Rs14("Fecha")
ImporteO = Rs14("Importe")
Clv = Rs14("Clv")
Cliente = Rs14("Cliente")
Fmoneda = Rs14("Fmoneda")
Saldod = rs14("Saldo")
Mov = rs14("Tipo")

	
	If Cdbl(SaldoD) < -1 Then
	Vpago = ((cdbl(SaldoD)))
		Else
	Vpago = SaldoD
	End IF
	
	If Cdbl(ImporteO) < -1 Then
	Vimpo = (-1*(cdbl(Importeo)))
		Else
	Vimpo = ImporteO
	End IF
END IF

If Tip = "A"  And Mov = "C"  Then 
Aplicar = cdbl(Vpago) - cdbl(Pago)
else If Tip = "C"  And Mov = "C"  Then 
Aplicar = cdbl(Vpago) + cdbl(Pago)
else If Tip = "A"  And Mov = "A"  Then 
Aplicar = cdbl(Vpago) - cdbl(Pago)
else If Tip = "C"  And Mov = "A"  Then 
Aplicar = cdbl(Vpago) + cdbl(Pago)
end if
end if
end if
end if

If cdbl(SaldoD) > (-1 * cdbl(SaldoDls)) then
 ImporteDls = (-1 * cdbl(SaldoDls))
 Importe = (-1 * cdbl(SaldoDls)) * cdbl(TipoA)
else
 ImporteDls = cdbl(SaldoD)
 Importe =  cdbl(SaldoD) * cdbl(TipoA)
End If


If Fcap = "" then
Fpago = Date()
Else
Fpago = Fcap
End If

%>

<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
//  End -->
</script>

</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"-->
<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>

Captura de Movimientos a Clientes:
<hr>
<b>
<CENTER>	

<!-----------   FORMULARIO PARA GRABAR EL DOCUMENTO ----------->
<Form action="ApliCxcMovcli.asp" name="newclie" method='post'>

<Table border=1 cellspacing=1 cellpadding=1 bordercolor="#006699">

<TR>
<TD width="70" align="left" class="normalw" bgcolor="#006699"><b>Documento</b></td>
<TD width="80" align="left" class="normalw" bgcolor="#006699"><b>Fecha-Doc</b></td>
<TD width="80" align="left" class="normalw" bgcolor="#006699"><b>Cliente</b></td>
<TD width="150" align="left" class="normalw" bgcolor="#006699"><b>Nombre Cliente</b></td>
<TD width="70" align="center" class="normalw" bgcolor="#006699"><b>Importe Original</b></td>
<TD width="70" align="center" class="normalw" bgcolor="#006699"><b>Saldo</b></td>
</tr>

<TR>

<TD width="70" align="center" class="normalb">
<a href="DocMoviCli.asp?DocuP=<%= DocuP %>" 
onclick="NewWindow(this.href,'SClienteF','640','480','yes');return false;"">
<%= Documento %> </a>
</td><!--
<TD width="80" align="center" class="normalb">
<%=Fecha%>
</td>!-->
<TD width="80" align="center" class="normalb">
<%=Clv%>
</td>
<TD width="150" align="center" class="normalb">
<%=Cliente%>
</td>
<TD width="70" align="center" class="normalb">
<%=ImporteO%>&nbsp;<%=Fmoneda%>
</td>
<TD width="70" align="center" class="normalb">
<%=SaldoD%>
</td>
</tr>

<TR>
<TD width="70" align="left" class="normalw" bgcolor="#006699"><b>Fecha Mov.</b></td>
<TD width="80" align="left" class="normalw" bgcolor="#006699"><b>Moneda</b></td>
<TD width="80" align="left" class="normalw" bgcolor="#006699"><b>Car/Abo</b></td>
<TD width="150" align="left" class="normalw" bgcolor="#006699"><b>Concepto</b></td>
<TD width="70" align="center" class="normalw" bgcolor="#006699"><b>Importe Apli.</b></td>
<TD width="70" align="center" class="normalw" bgcolor="#006699"><b>Saldo Real</b></td>
</tr>
<tr>
<TD width="70" align="Right" class="normalb" Valign=top>
<a href="FecMovCli.asp?Moneda=<%= Moneda %>&Tpago=<%= Tpago %>&DocuP=<%= DocuP %>&Fcap=<%= Fpago %>&Pago=<%=Pago%>"  
onclick="NewWindow(this.href,'SClienteF','640','480','yes');return false;"">
<%= Fpago %> 
<TD width="80" align="left" class="normalw">
<a href="MonMovCli.asp?Moneda=<%= Moneda %>&Tpago=<%= Tpago %>&DocuP=<%= DocuP %>&Fcap=<%= Fpago %>&Pago=<%=Pago%>"  
onclick="NewWindow(this.href,'BMoneda','640','480','yes');return false;"">
<%= DMoneda %></a>
</td>
<TD width="80" align="center" class="normalb">
<%=Tip%>
</td>
<TD width="150" align="left" class="normalw">
<a href="TraMovCli.asp?Moneda=<%= Moneda %>&Tpago=<%= Tpago %>&DocuP=<%= DocuP %>&Fcap=<%= Fpago %>&Pago=<%=Pago%>" 
onclick="NewWindow(this.href,'BPago','640','480','yes');return false;"">
<%= Dtpago %> </a>
</td>
<TD width="80" align="center" class="normalb">
<a href="ImpMovCli.asp?Moneda=<%= Moneda %>&Tpago=<%= Tpago %>&DocuP=<%= DocuP %>&Fcap=<%= Fpago %>&Pago=<%=Pago%>" 
onclick="NewWindow(this.href,'BPago','640','480','yes');return false;"">
<%=Pago%></a>
</td>
<TD width="80" align="center" class="normalb">
<%=Aplicar%>
</td>
</tr>
<TR>
<TD width="70" align="left" class="normalw" bgcolor="#006699" colspan="2"></td>
<TD width="150" align="center" class="normalw" bgcolor="#006699" colspan="2"><b>Observaciones</b></td>
<TD width="70" align="center" class="normalw" bgcolor="#006699" colspan="2"><b></td>
</tr>
<tr>
<TD width="70" align="center" class="normalb" colspan="2"></td>
<TD width="150" align="Left" class="normalb" colspan="2">
<input type="text" class="normalb" Value="" name="Observa" size=60>
</td>
</tr>
<TR>
<TD align="Center" class="normalb" Colspan="6">
<input type="Hidden" class="normalb" Value="<%= Docup %>" name="DocuP" size=30>
<input type="Hidden" class="normalb" Value="<%= Pago %>" name="Pago" size=30>
<input type="Hidden" class="normalb" Value="<%= Moneda %>" name="Moneda" size=30>
<input type="Hidden" class="normalb" Value="<%= Fpago %>" name="Fcap" size=30>
<input type="Hidden" class="normalb" Value="<%= Aplicar %>" name="Aplicar" size=30>
<input type="Hidden" class="normalb" Value="<%= Tpago %>" name="Tpago" size=30>
<input type="Hidden" class="normalb" Value="<%= Vimpo %>" name="ImpOri" size=30>
 <input type="submit" value="Guardar" class=normalb></td>
</tr>

<TD align="Center" class="normalb" Colspan="6">
</td>
</tr>

</Table>
</form>
<br>


</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 CxcmovcliModel : PageModel
    {
        private readonly MimDbContext _context;
        public CxcmovcliModel(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.CxcmovcliModel
@{
    ViewData["Title"] = "Alta de Cuentas por Cobrar";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-plus-circle"></i> Alta de Cuentas por Cobrar</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>Límite Crédito</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.LIMCLI?.ToString("N2")</td>
                                <td class="text-end">@c.SALCLI?.ToString("N2")</td>
                                <td><a href="/CXC/Cxccadd?cliente=@c.CLACLI" class="btn btn-sm btn-primary"><i class="bi bi-plus"></i> Cargo</a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

cxcmovcli.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código