Detalle: facentc.asp

facentc.asp

Ir a la Página Volver a la Lista

Archivo ASP

facentc.asp

Página Razor

Facturas/Facentc.cshtml

Módulo

Facturas

Líneas de Código

493

Características

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

Tablas Utilizadas (5)

CXCNCR Empresa FacturaEntrega Ffacenc clientes

Consultas SQL (6)

SQL Original (ASP)

Select * " &_  From FacturaEntrega  Left join Ffacenc on Numfface = FacturaEnt  left join clientes on clacli = clifface  where FacturaEnt  = "& Factura &" AND TIPOE= 'FA'  order by numfface asc

Tablas: FacturaEntrega Ffacenc clientes

SQL Original (ASP)

Select * " &_  From FacturaEntrega  Left join CXCNCR on NUMNCR = FacturaEnt  left join clientes on clacli = CLINCR  where convert(date,FechaEnt)  = '"& FechaCap &"' AND TIPOE = 'NC'  order by NUMNCR asc

Tablas: FacturaEntrega clientes CXCNCR

SQL Original (ASP)

Select *

SQL Original (ASP)

Select * " &_  From FacturaEntrega  Left join CXCNCR on NUMNCR = FacturaEnt  left join clientes on clacli = CLINCR  where FacturaEnt  = "& Factura &" AND TIPOE = 'NC'  order by NUMNCR asc

Tablas: FacturaEntrega clientes CXCNCR

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select * " &_  From FacturaEntrega  Left join Ffacenc on Numfface = FacturaEnt  left join clientes on clacli = clifface  where convert(date,FechaEnt)  = '"& FechaCap &"' AND TIPOE= 'FA'  order by numfface asc

Tablas: FacturaEntrega Ffacenc clientes

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
`facentcfac.asp`	form_action	Facturas	Pendiente	-
`facentcnc.asp`	form_action	Facturas	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`facentcfac.asp`	form_action	Facturas	Pendiente	-
`facentcnc.asp`	form_action	Facturas	Pendiente	-
`facturaentregag.asp`	redirect	Facturas	Pendiente	-
`recibefacturag.asp`	redirect	Recepciones	Pendiente	-

<%  
	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">
stat=1
	function frm_submit(frm,rec)	
	{
		var msgDel,check
		check = 0
		msgDel = "Desea continuar ?"
		
		if (rec == 1)
		{
			if(frm.chk.checked == false){
				check = 0 
			}
			else{
				check= 1
			}
		}
		else if(rec > 1 ) 
		{
			for(i=0;i<frm.chk.length;i++)
			{
				if(frm.chk[i].checked == true)
				{
					check = 1;
					break;	
				}	
			}
		}
		if (check == 0)
		{
			alert("Debe Seleccionar por lo menos una partida")
				return;
		}
		else if(check == 1)
		{
			ok = confirm(msgDel)
			if (ok == false)
			{
				return;
			}
			else
			{
				frm.submit()	
			}
		}				  
	}
	
function en_dis(frm,RecCount,val){
var chkLength
//	tg= document.getElementById(tag_id1).className
//if (tg =='slected'){
	//for (i=1;i<5;i++){
		//eval("document.getElementById(tag_id"+i+").className=''")
//}}
//else{
	//for (i=1;i<5;i++){
		//eval("document.getElementById(tag_id"+i+").className='slected'")
	//}
//}

//tg_id.className='slected'
		if (RecCount>1){
			chkLength=frm.chk.length
			}
		else
			{
				chkLength=1
				frm.chkMain.checked=frm.chk.checked
				if (stat==1){
					eval("document.frm."+val+".disabled=false")
					stat=0
				}
				else{
					eval("document.frm."+val+".disabled=true")
					stat=1
				}
				return;
			}
		for(i=0;i<=chkLength-1;i++){
			if(frm.chk[i].checked==false){
				frm.chkMain.checked=false
				break;
			}
			else{
					frm.chkMain.checked=true
				}
		
		}
	tt= eval("document.frm."+val+".disabled")
		if (tt== true){
			eval("document.frm."+val+".disabled=false")
			}
		else
			eval("document.frm."+val+".disabled=true")
}

function chk_all(frm,RecCount){
		var chkLength
		if (RecCount>1)
			{
				chkLength=frm.chk.length
				
			}
		else if (RecCount==1)
			{
				chkLength=1
				frm.chk.checked=frm.chkMain.checked
				if (stat==1){
					document.frm.txt_0.disabled=false
					stat=0
				}
				else{
					document.frm.txt_0.disabled=true
					stat=1
				}
				return;
			}
		if(frm.chkMain.checked==true){
			for (i=0;i<=chkLength-1;i++){
				frm.chk[i].checked=true
				//frm.txt[i].disabled= false
				eval("frm.txt_"+i+".disabled= false")
			}
		}
		else
			{
				for (i=0;i<=chkLength-1;i++){
					frm.chk[i].checked=false
					//frm.txt[i].disabled= true
					eval("frm.txt_"+i+".disabled= true")
				}
			}
		return;

}
</script>

			
		<!--- PARA ABRIR LAS VENTANAS EMERGENTES --->
		<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
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>
	<%
	Dim Fechacap
	Dim Factura, TipoB
	Dim Seguimiento
	
Fechacap = Request("Fechacap")
Factura = Request("Factura")

TipoB = Request("TipoB")

If FechaCap ="" or Isnull(FechaCap) Then
	FechaCap = Date()
else
	FechaCap = FechaCap
End If 


If Isnull(TipoB) or TipoB = 1 or Tipob = "" then 

	'***** Conexion A la Tabla DE COTIZACIONES	 ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Select * " &_ 
	"From FacturaEntrega " &_
	"Left join Ffacenc on Numfface = FacturaEnt " &_
	"left join clientes on clacli = clifface " &_
	"where convert(date,FechaEnt)  = '"& FechaCap &"' AND TIPOE= 'FA' " &_
	"order by numfface asc;"
	Rs12.Open Sql12,Cn1,1,2

Else If TipoB = 2 Then

	'***** Conexion A la Tabla DE COTIZACIONES	 ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Select * " &_ 
	"From FacturaEntrega " &_
	"Left join Ffacenc on Numfface = FacturaEnt " &_
	"left join clientes on clacli = clifface " &_
	"where FacturaEnt  = "& Factura &" AND TIPOE= 'FA' " &_
	"order by numfface asc;"
	Rs12.Open Sql12,Cn1,1,2

End If
End If
	
	%>
	<Center>
			<BR><BR>
		<B>***** SELECCION DE FACTURAS *****</B>
		<BR><BR>
			
<Table>
	
		
	<Tr>
	
		<Td>
			<FORM action="Facentc.asp" name="Factura" method="Post">
				<Table>
					<Tr>
						<Td>
						<input tabindex="1" type="text" placeholder="Factura" Title="Factura" name="Factura" id="Factura" Size="15" value="<%= Factura %>">
						<input tabindex="2" type="Hidden" placeholder="TipoB" Title="TipoB" name="TipoB" id="TipoB" Size="15" value="2">
						</Td>		
					</tr>
				</Table>
			</Form>
				
		</Td>	
	
		<Td>
			<FORM action="Facentc.asp" name="fecha" method="Post">
				<Table>
					<Tr>
						<Td>
						<input tabindex="1" type="text" placeholder="Fecha" Title="Fecha" name="FechaCap" id="Fecha" Size="15" value="<%= FechaCap %>">
						<input tabindex="2" type="Hidden" placeholder="TipoB" Title="TipoB" name="TipoB" id="TipoB" Size="15" value="1">
						</Td>		
					</tr>
				</Table>
			</Form>
				
		</Td>
		<Td>

			<FORM action="FacentcFac.asp" name="fecha" method="Post">
				<Table>
					<Tr>
						<Td>
						<button  tabindex="4" type="submit" name="NC" id="Catalogos"/>Factura Sin Entregar</button>
						<input tabindex="1" type="hidden" placeholder="Fecha" Title="Fecha" name="FechaCap" id="Fecha" Size="15" value="<%= FechaCap %>">
						</Td>		
					</tr>
				</Table>
			</Form>
		</Td>
		<Td>
			
			<FORM action="FacentcNC.asp" name="fecha" method="Post">
				<Table>
					<Tr>
						<Td>
						<button  tabindex="4" type="submit" name="NC" id="Catalogos"/>Notas de Credito Sin entregar</button>
						<input tabindex="1" type="hidden" placeholder="Fecha" Title="Fecha" name="FechaCap" id="Fecha" Size="15" value="<%= FechaCap %>">
						</Td>		
					</tr>
				</Table>
			</Form>
		</Td>
	</Tr>
</Table>
		
			<Table Border="1" bordercolor="#C0C0C0">
				<Tr>
					<Td>Factura</Td>		
					<Td>Emision</Td>		
					<Td>Clave</Td>		
					<Td>Cliente</Td>		
					<Td>Fecha</Td>		
					<Td>Seguimiento</Td>		
					<Td>Comentarios</Td>		
					<Td>Recibe</Td>		
					<Td>Fecha</Td>		
					<Td>Notas</Td>		
				</tr>
				
<% If Rs12.EOF Then
	
	Else
	
	Do While Not Rs12.EOF
	
	If Cdbl(Rs12("SEGUIFFACE")) = 0 Then
	
		Seguimiento = "FACTURACION"

	Else If Cdbl(Rs12("SEGUIFFACE")) = 1 Then
	
		Seguimiento = "EN RUTA"
	
	Else If Cdbl(Rs12("SEGUIFFACE")) = 2 Then
		Seguimiento = "PARA PAGO"
	Else If Cdbl(Rs12("SEGUIFFACE")) = 3 Then
		Seguimiento = "RECOGEN"		
	End If
	End If
	End If
	End If
	
		
%>

				<Tr>
					<Td><%= Rs12("FacturaEnt") %></Td>		
					<Td><%= Rs12("Fecfface") %></Td>		
					<Td><%= Rs12("Clifface") %></Td>		
					<Td><%= Rs12("Nomcli") %></Td>		
					<Td><%= Rs12("FechaEnt") %></Td>		
					<Td><%= Seguimiento %> </Td>		
					<Td><%= Rs12("NotasEnt") %></Td>		
					<Td><%= Rs12("UsuarioRec") %></Td>		
					<Td><%= Rs12("FechaRec") %></Td>		
					<Td><%= Rs12("NotasRec") %></Td>		
				</tr>


<%
Rs12.Movenext
Loop
%>

<%
End If
%>


			</Table>		


<BR><BR>

<%

If Isnull(TipoB) or TipoB = 1 or Tipob = "" then 

'***** Conexion A la Tabla DE COTIZACIONES	 ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select * " &_ 
"From FacturaEntrega " &_
"Left join CXCNCR on NUMNCR = FacturaEnt " &_
"left join clientes on clacli = CLINCR " &_
"where convert(date,FechaEnt)  = '"& FechaCap &"' AND TIPOE = 'NC' " &_
"order by NUMNCR asc;"
Rs13.Open Sql13,Cn1,1,2

Else If TipoB = 2 Then

'***** Conexion A la Tabla DE COTIZACIONES	 ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select * " &_ 
"From FacturaEntrega " &_
"Left join CXCNCR on NUMNCR = FacturaEnt " &_
"left join clientes on clacli = CLINCR " &_
"where FacturaEnt  = "& Factura &" AND TIPOE = 'NC' " &_
"order by NUMNCR asc;"
Rs13.Open Sql13,Cn1,1,2

End If
End If
	
%>


			<Table Border="1" bordercolor="#C0C0C0">
				<Tr>
					<Td>NC</Td>		
					<Td>Emision</Td>		
					<Td>Clave</Td>		
					<Td>Cliente</Td>		
					<Td>Fecha</Td>		
					<Td>Comentarios</Td>		
					<Td>Recibe</Td>		
					<Td>Fecha</Td>		
					<Td>Notas</Td>		
				</tr>
				
<% If Rs13.EOF Then
	
	Else
	
	Do While Not Rs13.EOF
%>

				<Tr>
					<Td><%= Rs13("FacturaEnt") %></Td>		
					<Td><%= Rs13("FECNCR") %></Td>		
					<Td><%= Rs13("CLINCR") %></Td>		
					<Td><%= Rs13("Nomcli") %></Td>		
					<Td><%= Rs13("FechaEnt") %></Td>		
					<Td><%= Rs13("NotasEnt") %></Td>		
					<Td><%= Rs13("UsuarioRec") %></Td>		
					<Td><%= Rs13("FechaRec") %></Td>		
					<Td><%= Rs13("NotasRec") %></Td>		
				</tr>


<%
Rs13.Movenext
Loop
%>

<%
End If
%>


			</Table>		
			
	</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.Facturas
{
    public class FacentcModel : PageModel
    {
        private readonly MimDbContext _context;
        public FacentcModel(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<FFACENC> Facturas { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            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 (FechaDesde.HasValue) query = query.Where(f => f.FECFFACE >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(f => f.FECFFACE <= FechaHasta);
            Facturas = await query.OrderByDescending(f => f.FECFFACE).Take(200).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FacentcModel
@{
    ViewData["Title"] = "Entrega de Facturas";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-truck"></i> Entrega de Facturas</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">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.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>Entregada</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>@f.STAFFACE</td>
                                <td>
                                    <a href="/Facturas/Facentcmar?id=@f.Id" class="btn btn-sm btn-success"><i class="bi bi-check"></i></a>
                                </td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

facentc.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select * " &_ From FacturaEntrega Left join Ffacenc on Numfface = FacturaEnt ...

SQL Original (ASP)

SELECT Select * " &_ From FacturaEntrega Left join CXCNCR on NUMNCR = FacturaEnt lef...

SQL Original (ASP)

SELECT Select *

SQL Original (ASP)

SELECT Select * " &_ From FacturaEntrega Left join CXCNCR on NUMNCR = FacturaEnt lef...

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select * " &_ From FacturaEntrega Left join Ffacenc on Numfface = FacturaEnt ...

SQL Original (ASP)