Detalle: fcotadd.asp

fcotadd.asp

Ir a la Página Volver a la Lista

Archivo ASP

fcotadd.asp

Página Razor

Facturas/Fcotadd.cshtml

Módulo

Facturas

Líneas de Código

200

Características

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

Tablas Utilizadas (4)

Almacenes ESQUEMAIVA Empresa Monedas

Consultas SQL (6)

SQL Original (ASP)

Select Regiva, Iva, Retencion

SQL Original (ASP)

Select Claalm, Desalm

SQL Original (ASP)

Select Regiva, Iva, Retencion  From ESQUEMAIVA  where Regiva = 1  Order by Regiva Asc

Tablas: ESQUEMAIVA

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select Claalm, Desalm  From Almacenes  Where Staalm = 'A'  Order by Claalm Asc

Tablas: Almacenes

SQL Original (ASP)

Select Cladiv, Desdiv, Tcadiv from Monedas;

Tablas: Monedas

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
`fcottip.asp`	form_action	General	Pendiente	-
`bfcotcli.asp`	link	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" />
</HEAD>

<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14
Dim Sql11, Sql12, Sql13, Sql14
Dim ClaveCli 
		
ClaveCli = Ucase(Request("ClaveCli"))

'***** 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>
<%
ClaveCli = Request("Clavecli")
%>	
		<center>
		<br>
		<B>***** CAPTURA DE COTIZACIONES *****</B>
		<BR><BR>
			<Form action="Fcottip.asp" method="post" name="PedidnoNuevo" id="PedidnoNuevo">

			<Table Class="Pedido">
					<Tr>
						<Td>Cliente:</Td>
						<Td Colspan="2">
						<input tabindex="1" type="text" placeholder="Clave Cliente" Title="Clave Cliente" name="Clientecot" id="ClientePed" value="<%= ClaveCli %>" onChange="javascript:this.value=this.value.toUpperCase();" readonly required/>
						<a href="BFcotCli.asp" Title="Buscar Un Cliente">
						<img src="icon/buscarC.png" height="30px">
						</a>
						</Td>
					</Tr>

					<Tr>
						<Td>Moneda:</Td>
						<Td Colspan="2">
						<%
						'******  TABLA DE MONEDAS ****
						Set Rs12 = Server.CreateObject("ADODB.Recordset")
						Sql12="Select Cladiv, Desdiv, Tcadiv from Monedas;"
						Rs12.Open Sql12,Cn1,1,2
						
						If Rs12.EOF Then
						
						Else
						%>
						<SELECT NAME="MonedaCot" tabindex="3">
						<%
						Do While Not Rs12.EOF
						%>
						<OPTION value="<%= Rs12("Cladiv") %>"> <%= Rs12("Desdiv") %> </Option>
						<%
						Rs12.Movenext
						Loop
						%>
						</Select>
						<%
						End If
						%>
						</Td>
					</Tr>
					<Tr>
						<Td>Almacen:</Td>
						<Td Colspan="2">
						<%
						'******  TABLA DE ALAMCENES ****
						Set Rs13 = Server.CreateObject("ADODB.Recordset")
						Sql13="Select Claalm, Desalm " &_
						"From Almacenes " &_
						"Where Staalm = 'A' " &_
						"Order by Claalm Asc;"
						Rs13.Open Sql13,Cn1,1,2
						
						If Rs13.EOF Then
						
						Else
						%>
						<SELECT NAME="AlmacenCot" tabindex="4">
						<%
						Do While Not Rs13.EOF
						%>
						<OPTION value="<%= Rs13("Claalm") %>"> <%= Rs13("Desalm") %> </Option>
						<%
						Rs13.Movenext
						Loop
						%>
						</Select>
						<%
						End If
						%>
						</Td>						
					</Tr>
					<Tr>
						<Td>Esquema IVA:</Td>
						<Td Colspan="2">
						<%
						'******  TABLA DE ESQUEMA DE IVA. ****
						Set Rs14 = Server.CreateObject("ADODB.Recordset")
						Sql14="Select Regiva, Iva, Retencion " &_
						"From ESQUEMAIVA " &_
						"where Regiva = 1 " &_
						"Order by Regiva Asc;"
						Rs14.Open Sql14,Cn1,1,2
						
						If Rs14.EOF Then
						
						Else
						%>
						<SELECT NAME="IvaCot" tabindex="5">
						<%
						Do While Not Rs14.EOF
						%>
						<OPTION value="<%= Rs14("Regiva") %>"> <%= Rs14("Iva") %> - <%= Rs14("Retencion") %> </Option>
						<%
						Rs14.Movenext
						Loop
						%>
						</Select>
						<%
						End If
						%>
						</Td>								
					</Tr>

					<Tr>
						<Td align="center" Colspan="3"><button  tabindex="3" type="submit" name="Grabar" id="BuscarCli"/>Grabar</button></Td>	
					<Tr>
			</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 FcotaddModel : PageModel
    {
        private readonly MimDbContext _context;
        public FcotaddModel(MimDbContext context) { _context = context; }
        
        public List<CLIENTES> Clientes { get; set; } = new();
        public List<VENDEDORES> Vendedores { get; set; } = new();
        
        [BindProperty]
        public string? Cliente { get; set; }
        [BindProperty]
        public int Moneda { get; set; } = 1;
        [BindProperty]
        public int? Vendedor { get; set; }
        
        public string? Mensaje { get; set; }
        public bool Exito { get; set; }
        
        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            Clientes = await _context.CLIENTES
                .Where(c => c.Sucursal == sucursal && c.STACLI == "A")
                .OrderBy(c => c.NOMCLI)
                .Take(1000)
                .ToListAsync();
            
            Vendedores = await _context.VENDEDORES
                .Where(v => v.Sucursal == sucursal)
                .OrderBy(v => v.NOMVEND)
                .ToListAsync();
        }
        
        public async Task<IActionResult> OnPostAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Cliente))
            {
                Mensaje = "Debe seleccionar un cliente";
                await OnGetAsync();
                return Page();
            }
            
            try
            {
                // Get the next folio number for this sucursal
                var maxFolio = await _context.FCOTENC
                    .Where(f => f.Sucursal == sucursal)
                    .MaxAsync(f => (int?)f.NUMFCOTE) ?? 0;
                var nuevoFolio = maxFolio + 1;
                
                // Get client data
                var cliente = await _context.CLIENTES
                    .Where(x => x.Sucursal == sucursal)
                    .FirstOrDefaultAsync(c => c.CLACLI == Cliente);
                
                // Get vendedor name if selected
                string? vendedorNombre = null;
                if (Vendedor.HasValue)
                {
                    var vend = await _context.VENDEDORES
                        .Where(v => v.Sucursal == sucursal && v.CVEVEND == Vendedor.Value)
                        .FirstOrDefaultAsync();
                    vendedorNombre = vend?.NOMVEND;
                }
                
                // Generate UUID v7 (time-ordered)
                var timestamp = DateTimeOffset.UtcNow.ToUnixTimeMilliseconds();
                var bytes = new byte[16];
                // First 6 bytes: timestamp in milliseconds (big-endian)
                bytes[0] = (byte)((timestamp >> 40) & 0xFF);
                bytes[1] = (byte)((timestamp >> 32) & 0xFF);
                bytes[2] = (byte)((timestamp >> 24) & 0xFF);
                bytes[3] = (byte)((timestamp >> 16) & 0xFF);
                bytes[4] = (byte)((timestamp >> 8) & 0xFF);
                bytes[5] = (byte)(timestamp & 0xFF);
                // Random bytes for the rest
                Random.Shared.NextBytes(bytes.AsSpan(6));
                // Set version (7) and variant (RFC 4122)
                bytes[6] = (byte)((bytes[6] & 0x0F) | 0x70); // Version 7
                bytes[8] = (byte)((bytes[8] & 0x3F) | 0x80); // Variant RFC 4122
                var newId = new Guid(bytes);
                
                var cotizacion = new FCOTENC
                {
                    Id = newId,
                    Sucursal = sucursal,
                    NUMFCOTE = nuevoFolio,
                    CLIFCOTE = Cliente,
                    FECFCOTE = DateTime.Now,
                    FVAFCOTE = DateTime.Now.AddDays(30), // Vigencia 30 días
                    MONFCOTE = Moneda,
                    STAFCOTE = "P", // Pendiente
                    TOTFCOTE = 0,
                    IVAFCOTE = 0,
                    SUBFCOTE = 0,
                    USUFCOTE = "PORTAL", // Usuario del sistema
                    FAUFCOTE = 0,
                    COTIZADOR = vendedorNombre
                };
                
                _context.FCOTENC.Add(cotizacion);
                await _context.SaveChangesAsync();
                
                // Redirect to edit the quotation details (add products)
                return RedirectToPage("/Facturas/Fcotdir", new { Cotizacion = nuevoFolio });
            }
            catch (Exception ex)
            {
                Mensaje = $"Error al crear cotización: {ex.Message}";
                await OnGetAsync();
                return Page();
            }
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FcotaddModel
@{ ViewData["Title"] = "Nueva Cotización"; }
<div class="container-fluid">
    <div class="row mb-4">
        <div class="col-12">
            <h4><i class="bi bi-file-earmark-plus"></i> Nueva Cotización</h4>
            <p class="text-muted">Crear una nueva cotización para un cliente</p>
        </div>
    </div>

    @if (!string.IsNullOrEmpty(Model.Mensaje))
    {
        <div class="alert @(Model.Exito ? "alert-success" : "alert-danger") alert-dismissible fade show">
            @Model.Mensaje
            <button type="button" class="btn-close" data-bs-dismiss="alert"></button>
        </div>
    }

    <div class="card">
        <div class="card-header">
            <h6 class="mb-0"><i class="bi bi-info-circle"></i> Datos de la Cotización</h6>
        </div>
        <div class="card-body">
            <form method="post">
                <div class="row mb-3">
                    <div class="col-md-6">
                        <label class="form-label">Cliente <span class="text-danger">*</span></label>
                        <select name="Cliente" class="form-select" required>
                            <option value="">-- Seleccionar Cliente --</option>
                            @foreach (var c in Model.Clientes)
                            {
                                <option value="@c.CLACLI">@c.CLACLI - @c.NOMCLI</option>
                            }
                        </select>
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Moneda</label>
                        <select name="Moneda" class="form-select">
                            <option value="1">MXN - Pesos</option>
                            <option value="2">USD - Dólares</option>
                        </select>
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Vendedor</label>
                        <select name="Vendedor" class="form-select">
                            <option value="">-- Usar del Cliente --</option>
                            @foreach (var v in Model.Vendedores)
                            {
                                <option value="@v.CVEVEND">@v.NOMVEND</option>
                            }
                        </select>
                    </div>
                </div>
                <div class="row">
                    <div class="col-12">
                        <button type="submit" class="btn btn-success">
                            <i class="bi bi-plus-circle"></i> Crear Cotización
                        </button>
                        <a href="/Facturas/Dashboard" class="btn btn-secondary">
                            <i class="bi bi-arrow-left"></i> Cancelar
                        </a>
                    </div>
                </div>
            </form>
        </div>
    </div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

fcotadd.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Regiva, Iva, Retencion

SQL Original (ASP)

SELECT Select Claalm, Desalm

SQL Original (ASP)

SELECT Select Regiva, Iva, Retencion From ESQUEMAIVA where Regiva = 1 Order by Regiv...

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select Claalm, Desalm From Almacenes Where Staalm = 'A' Order by Claalm Asc

SQL Original (ASP)

SELECT Select Cladiv, Desdiv, Tcadiv from Monedas;

SQL Original (ASP)