Detalle: fcotind.asp

fcotind.asp

Ir a la Página Volver a la Lista

Archivo ASP

fcotind.asp

Página Razor

Facturas/Fcotind.cshtml

Módulo

Facturas

Líneas de Código

390

Características

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

Tablas Utilizadas (7)

Clientes Empresa FCOTENC Fcotenc Medcot Monedas Vendedores

Consultas SQL (13)

SQL Original (ASP)

Select Cvevend, Nomvend from Vendedores where cvevend = "& Vendedor &" order by Nomvend;

Tablas: Vendedores

SQL Original (ASP)

Select Cvevend, Nomvend from Vendedores where cvevend =

Tablas: Vendedores

SQL Original (ASP)

Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv   From Fcotenc  Left join Clientes On Clacli = Clifcote " &_  Left join Vendedores On Vencli = Cvevend " &_  Left join Medcot On Nummed = Medfcote " &_  Left join Monedas On Cladiv = Monfcote " &_  Where Nomcli like '%"& CLIENTE &"%'  Order by numfcote desc

Tablas: Monedas Fcotenc Medcot Clientes Vendedores

SQL Original (ASP)

Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv

SQL Original (ASP)

Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv  From Fcotenc  Left join Clientes On Clacli = Clifcote " &_  Left join Vendedores On Vencli = Cvevend " &_  Left join Medcot On Nummed = Medfcote " &_  Left join Monedas On Cladiv = Monfcote " &_  Where Numfcote = "& Cotizacion &"  Order By numfcote

Tablas: Monedas Fcotenc Medcot Clientes Vendedores

SQL Original (ASP)

Select Nummed, Desmed from Medcot order by Nummed;

Tablas: Medcot

SQL Original (ASP)

Select Cvevend, Nomvend from Vendedores order by Nomvend;

Tablas: Vendedores

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv  From Fcotenc  Left join Clientes On Clacli = Clifcote " &_  Left join Vendedores On Vencli = Cvevend " &_  Left join Medcot On Nummed = Medfcote  Left join Monedas On Cladiv = Monfcote " &_ 		 Where Vencli = "& Vendedor &" " &_  and Year(Fecfcote) > 2018  Order by Numfcote desc

Tablas: Monedas Fcotenc Medcot Clientes Vendedores

SQL Original (ASP)

UPDATE FCOTENC  SET MEDFCOTE = 2  WHERE STAFCOTE = 'P' AND MEDFCOTE = 0

Tablas: FCOTENC

SQL Original (ASP)

UPDATE FCOTENC  SET MEDFCOTE = 1  WHERE STAFCOTE = 'T' AND MEDFCOTE = 0

Tablas: FCOTENC

SQL Original (ASP)

UPDATE FCOTENC

Tablas: FCOTENC

SQL Original (ASP)

UPDATE FCOTENC  SET MEDFCOTE = 3  WHERE STAFCOTE = 'C' AND MEDFCOTE = 0

Tablas: FCOTENC

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`fcotmind.asp`	form_action	General	Pendiente	-
`fcotm.asp`	include	General	Pendiente	-
`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

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/Modulos.css" rel="stylesheet" />
		<link href="css/Buscador.css" rel="stylesheet" />
		
		<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>

<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, rs17, Rs18, Rs19, Rs20
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20

'***** 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>
	<!--#include file="Fcotm.asp"-->
	</SECTION>	
	
	<SECTION>
		<center>
		<BR>
		<b>*****  CALIFICA COTIZACIONES *****</b> &nbsp;  &nbsp;  &nbsp; 
		<a href="../Manuales/CalificaCotizaciones.pdf" onclick="NewWindow(this.href,'Manuales','800','500','yes');return false;">
		<img src="../Manuales/Help.png" border="0" width="40px"></a>
		<br><br>

<%
Dim Vendedor
Dim num_registros, num_campos, Campo, registros_mostrados
Dim PaginaI 
Dim Cotizacion
Dim Tipo 
Dim Cliente
Dim Moneda

Vendedor = Request("Vendedor")
Cotizacion = Request("Cotizacion")
Tipo = Request("Tipo")
Cliente = Request("Cliente")

Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="UPDATE FCOTENC " &_
"SET MEDFCOTE = 1 " &_
"WHERE STAFCOTE = 'T' AND MEDFCOTE = 0;"
Cn1.Execute Sql16

Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="UPDATE FCOTENC " &_
"SET MEDFCOTE = 2 " &_
"WHERE STAFCOTE = 'P' AND MEDFCOTE = 0;"
Cn1.Execute Sql17

Set Rs18 = Server.CreateObject("ADODB.Recordset")
Sql18="UPDATE FCOTENC " &_
"SET MEDFCOTE = 3 " &_
"WHERE STAFCOTE = 'C' AND MEDFCOTE = 0;"
Cn1.Execute Sql18

'Numero de Paginas
If Request("pag") <> "" Then
   Session("pagina") = Request("pag")
Else
   Session("pagina") = 1
End If

'Registros por Pagina
num_registros = 50


%>		


<Table>
	<Tr Class="Pedido">
		<Td>
			<Form action="Fcotind.asp" method="post" name="Cotizaciones" id="PedidnoNuevo">
				<Table>
					<Tr Class="Pedido">
						<Td>
								<%
								'******  TABLA DE vendedores ****
								Set Rs12 = Server.CreateObject("ADODB.Recordset")
								Sql12="Select Cvevend, Nomvend from Vendedores order by Nomvend;"
								Rs12.Open Sql12,Cn1,1,2
								
								If Rs12.EOF Then
								
								Else
								%>
								<SELECT NAME="Vendedor" tabindex="1" Class="Pedido">
								<%
								Do While Not Rs12.EOF
								%>
								<OPTION value="<%= Rs12("Cvevend") %>"> <%= Rs12("Nomvend") %> </Option>
								<%
								Rs12.Movenext
								Loop
								%>
								</Select>
								<%
								End If
								%>				
						</Td>
						<Td>
						<input tabindex="1" type="Hidden" placeholder="Tipo" Title="Tipo" name="Tipo" id="Tipo" Size="15" value="0">
						<button  tabindex="3" type="submit" name="Buscar" id="BuscarCli"/>Buscar</button></td>
					</Tr>

				</Table>
			</Form>
		</Td>
	</Tr>
	<Tr>
		<Td>
			<Form action="Fcotind.asp" method="post" name="Cotizaciones" id="PedidnoNuevo">

					<input tabindex="1" type="Hidden" placeholder="Tipo" Title="Tipo" name="Tipo" id="Tipo" Size="15" value="1">
					<input tabindex="1" type="Hidden" placeholder="Vendedor" Title="Vendedor" name="Vendedor" id="Vendedor" Size="15" value="<%= Vendedor %>">
					<input tabindex="1" type="text" placeholder="Cotizacion" Title="Cotizacion" name="Cotizacion" id="Cotizacion" Size="15" value="<%= Cotizacion %>">
			</Form>			
		
		</Td>
	</Tr>

	<Tr>
		<Td>
			<Form action="Fcotind.asp" method="post" name="Cotizaciones" id="PedidnoNuevo">

					<input tabindex="1" type="Hidden" placeholder="Tipo" Title="Tipo" name="Tipo" id="Tipo" Size="15" value="2">
					<input tabindex="1" type="Hidden" placeholder="Vendedor" Title="Vendedor" name="Vendedor" id="Vendedor" Size="15" value="<%= Vendedor %>">
					<input tabindex="1" type="text" placeholder="Cliente" Title="Cliente" name="Cliente" id="Cliente" Size="45" value="<%= Cliente %>">
			</Form>			
		
		</Td>
	</Tr>
	
</Table>

	<BR><BR>

<%
If Vendedor = "" Or Isnull(Vendedor) Then


	Else


	'******  TABLA DE vendedores ****
	Set Rs13 = Server.CreateObject("ADODB.Recordset")
	Sql13="Select Cvevend, Nomvend from Vendedores where cvevend = "& Vendedor &" order by Nomvend;"
	Rs13.Open Sql13,Cn1,1,2	
	
%>	
<B> ***** VENDEDOR: ( <%= Rs13("Cvevend") %> ) <%= Rs13("Nomvend") %>  ***** </B>
<%

	If Tipo = 0 Then 
	
		Set Rs14 = Server.CreateObject("ADODB.Recordset")
		Sql14="Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv " &_
		"From Fcotenc " &_
		"Left join Clientes On Clacli = Clifcote " &_ 
		"Left join Vendedores On Vencli = Cvevend " &_ 
		"Left join Medcot On Nummed = Medfcote " &_
		"Left join Monedas On Cladiv = Monfcote " &_ 		
		"Where Vencli = "& Vendedor &" " &_ 
		"and Year(Fecfcote) > 2018 " &_
		"Order by Numfcote desc;"
		Rs14.Open Sql14,Cn1,1,2	
			
	Else If Tipo = 1 Then

		Set Rs14 = Server.CreateObject("ADODB.Recordset")
		Sql14="Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv " &_
		"From Fcotenc " &_
		"Left join Clientes On Clacli = Clifcote " &_ 
		"Left join Vendedores On Vencli = Cvevend " &_ 
		"Left join Medcot On Nummed = Medfcote " &_ 
		"Left join Monedas On Cladiv = Monfcote " &_ 
		"Where Numfcote = "& Cotizacion &" " &_
		"Order By numfcote;"
		Rs14.Open Sql14,Cn1,1,2	
		

	Else If Tipo = 2 Then

		Set Rs14 = Server.CreateObject("ADODB.Recordset")
		Sql14="Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Nummed,  Desmed, Obmfcote, Desdiv  " &_
		"From Fcotenc " &_
		"Left join Clientes On Clacli = Clifcote " &_ 
		"Left join Vendedores On Vencli = Cvevend " &_ 
		"Left join Medcot On Nummed = Medfcote " &_ 
		"Left join Monedas On Cladiv = Monfcote " &_ 
		"Where Nomcli like '%"& CLIENTE &"%' " &_
		"Order by numfcote desc;"
		Rs14.Open Sql14,Cn1,1,2	
		
	End If
	End If
	End If
		
		If Rs14.Eof Then
%>
		<br><br>
		<b> *****  NO HAY REGISTROS PARA EL VENDEDOR ( <%= VENDEDOR %> ) <%= Rs13("Nomvend") %> </B>
		<BR>
<%
		Else

		'Dimensionamos las paginas y determinamos la pagina actual
		Rs14.PageSize=num_registros
		Rs14.AbsolutePage=Session("pagina")
	
%>
		<br><br>
		Pagina  <b><%=Session("pagina")%></b> De <b><%= Rs14.PageCount %></b>
		<br>
		Registros Encontrados: <b><%= Rs14.RecordCount %></b>		
<br><br>

		<Table>
			<Tr Class="Pedido">
				<Td>Cotizacion</td>
				<Td>Fecha</td>
				<Td>Status</td>
				<Td>Clave</td>
				<Td>Nombre</td>
				<Td>Importe</td>
				<Td>Moneda</td>
				<Td>Causa</td>
				<Td>Nota</td>
				<Td>Accion</td>
			</Tr>
<%
		Do while Not Rs14.Eof And registros_mostrados < num_registros
				registros_mostrados = registros_mostrados + 1
%>
	<Form action="Fcotmind.asp" method="post" name="Cotizaciones" id="PedidnoNuevo">
			<Tr Class="Pedido">
				<Td Align="Right">
				<a href="Fcotesp.asp?Cotizacion=<%= Rs14("Numfcote") %>" onclick="NewWindow(this.href,'Cotizacion','790','470','yes');return false;">
				<%= Rs14("Numfcote") %>
				</td>
				<Td Align="Left"><%= Rs14("Fecfcote") %></td>
				<Td Align="Center"><%= Rs14("Stafcote") %></td>
				<Td Align="Left"><%= Rs14("Clifcote") %></td>
				<Td Align="Left"><%= Rs14("Nomcli") %></td>
				<Td Align="Left"><%= formatcurrency(Rs14("Totfcote")) %></td>
				<Td Align="Left"><%= Rs14("Desdiv") %></td>
				<Td Align="Left">
				<%
						'******  TABLA DE vendedores ****
						Set Rs15 = Server.CreateObject("ADODB.Recordset")
						Sql15 = "Select Nummed, Desmed from Medcot order by Nummed;"
						Rs15.Open Sql15,Cn1,1,2
						
						If Rs15.EOF Then
						
						Else
						%>
						<SELECT NAME="Motivo" tabindex="1" Class="Pedido">
						<option value="<%= Rs14("Nummed") %>" Selected><%= Rs14("Desmed") %></option>
						<%
						Do While Not Rs15.EOF
						%>
						<OPTION value="<%= Rs15("Nummed") %>"> <%= Rs15("Desmed") %> </Option>
						<%
						Rs15.Movenext
						Loop
						%>
						</Select>
						<%
						End If
				%>	
				
				</td>
				<Td Align="Left"><input tabindex="3" type="Text" placeholder="Notas" Title="Notas" name="Notas" Size="30" maxlength="150" id="TablaOpc" value="<%= Rs14("obmfcote") %>"></td>
				<Td Align="Left">
				<input tabindex="3" type="Hidden" placeholder="Cotizacion" Title="Cotizacion" name="Cotizacion" Size="15" id="TablaOpc" value="<%= Rs14("Numfcote") %>">
				<input tabindex="5" type="Hidden" placeholder="Vendedor" Title="Vendedor" name="Vendedor" Size="15" id="TablaOpc" value="<%= VENDEDOR %>">
				<input tabindex="5" type="Hidden" placeholder="Pagina" Title="Pagina" name="pag" Size="15" id="TablaOpc" value="<%= Session("pagina") %>">
				<button  tabindex="5" type="submit" name="Buscar" id="BuscarCli"/>Grabar</button>
				</td>
			</Tr>
	</Form>

<%	
		Rs14.Movenext
		Loop
%>		
			<Tr>
				<Td Colspan="8" Align="Center">
				<br>
					<%
					   PaginaI = 0
					While PaginaI < Rs14.PageCount 
					   PaginaI = PaginaI + 1
					%>
					<b><a href="Fcotind.asp?pag=<%= PaginaI %>&Vendedor=<%= Vendedor %>&Cliente=<%= Cliente %>&Tipo=<%= Tipo %>"><%= PaginaI %></a></b>
					<%
					Wend
					%>						
				</Td>
			</Tr>
<%	
	End If
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;

namespace MimPortal.Pages.Facturas
{
    public class FcotindModel : PageModel
    {
        private readonly MimDbContext _context;
        public FcotindModel(MimDbContext context) { _context = context; }
        
        [BindProperty(SupportsGet = true)] public string? Cliente { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaInicio { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaFin { get; set; }
        public List<CotizacionItem> Cotizaciones { get; set; } = new();
        
        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = _context.FCOTENC.Where(x => x.Sucursal == sucursal).AsQueryable();
            if (!string.IsNullOrEmpty(Cliente)) query = query.Where(c => c.CLIFCOTE != null && c.CLIFCOTE.Contains(Cliente));
            if (FechaInicio.HasValue) query = query.Where(c => c.FECFCOTE >= FechaInicio.Value);
            if (FechaFin.HasValue) query = query.Where(c => c.FECFCOTE <= FechaFin.Value);
            
            Cotizaciones = await query.OrderByDescending(c => c.FECFCOTE).Take(100)
                .Select(c => new CotizacionItem { Numero = c.NUMFCOTE, Fecha = c.FECFCOTE, Cliente = c.CLIFCOTE ?? "", Total = c.TOTFCOTE ?? 0, Status = c.STAFCOTE ?? "" })
                .ToListAsync();
        }
        
        public class CotizacionItem { public int Numero { get; set; } public DateTime? Fecha { get; set; } public string Cliente { get; set; } = ""; public decimal Total { get; set; } public string Status { get; set; } = ""; }
    }
}

@page
@model MimPortal.Pages.Facturas.FcotindModel
@{ ViewData["Title"] = "Cotizaciones"; }
<div class="container-fluid">
    <h4 class="mb-4"><i class="fas fa-file-alt"></i> Cotizaciones</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="Cliente" value="@Model.Cliente" /></div>
                <div class="col-md-2"><input type="date" class="form-control" name="FechaInicio" value="@Model.FechaInicio?.ToString("yyyy-MM-dd")" /></div>
                <div class="col-md-2"><input type="date" class="form-control" name="FechaFin" value="@Model.FechaFin?.ToString("yyyy-MM-dd")" /></div>
                <div class="col-md-2"><button type="submit" class="btn btn-primary"><i class="fas fa-search"></i> Buscar</button></div>
                <div class="col-md-2"><a href="/Facturas/Fcotadd" class="btn btn-success"><i class="fas fa-plus"></i> Nueva</a></div>
            </form>
            <table class="table table-striped table-hover">
                <thead class="table-dark">
                    <tr><th>Número</th><th>Fecha</th><th>Cliente</th><th>Total</th><th>Status</th><th>Acción</th></tr>
                </thead>
                <tbody>
                    @foreach (var c in Model.Cotizaciones)
                    {
                        <tr>
                            <td>@c.Numero</td>
                            <td>@c.Fecha?.ToString("dd/MM/yyyy")</td>
                            <td>@c.Cliente</td>
                            <td class="text-end">@c.Total.ToString("C2")</td>
                            <td><span class="badge bg-info">@c.Status</span></td>
                            <td><a href="/Facturas/Fcotdet?id=@c.Numero" class="btn btn-sm btn-primary"><i class="fas fa-eye"></i></a></td>
                        </tr>
                    }
                </tbody>
            </table>
        </div>
    </div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

fcotind.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Cvevend, Nomvend from Vendedores where cvevend = "& Vendedor &" order by ...

SQL Original (ASP)

SELECT Select Cvevend, Nomvend from Vendedores where cvevend =

SQL Original (ASP)

SELECT Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Numme...

SQL Original (ASP)

SELECT Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Numme...

SQL Original (ASP)

SELECT Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Numme...

SQL Original (ASP)

SELECT Select Nummed, Desmed from Medcot order by Nummed;

SQL Original (ASP)

SELECT Select Cvevend, Nomvend from Vendedores order by Nomvend;

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select Numfcote, Fecfcote, Stafcote, Clifcote, Nomcli, Totfcote, Monfcote, Numme...

SQL Original (ASP)

UPDATE UPDATE FCOTENC SET MEDFCOTE = 2 WHERE STAFCOTE = 'P' AND MEDFCOTE = 0

SQL Original (ASP)

UPDATE UPDATE FCOTENC SET MEDFCOTE = 1 WHERE STAFCOTE = 'T' AND MEDFCOTE = 0

SQL Original (ASP)

UPDATE UPDATE FCOTENC

SQL Original (ASP)

UPDATE UPDATE FCOTENC SET MEDFCOTE = 3 WHERE STAFCOTE = 'C' AND MEDFCOTE = 0

SQL Original (ASP)