Detalle: addclifcote.asp

addclifcote.asp

Ir a la Página Volver a la Lista

Archivo ASP

addclifcote.asp

Página Razor

Clientes/Addclifcote.cshtml

Módulo

Clientes

Líneas de Código

210

Características

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

Tablas Utilizadas (5)

Cotizadores Estados Paises Vendedores fcotnew

Consultas SQL (6)

SQL Original (ASP)

Select Abrv, Nompais From Paises Order by Cvepais;

Tablas: Paises

SQL Original (ASP)

Select Cvevend, Nomvend From Vendedores Order by Nomvend;

Tablas: Vendedores

SQL Original (ASP)

Select Numfcotn, Nomfcotn, Numcotn, Dirfcotn, Colfcotn, Pobfcotn, Edofcotn, Cpfcotn, Rfcfcotn, EMAILCOTN  From fcotnew where Numfcotn = "& Ncotizacion &

Tablas: fcotnew

SQL Original (ASP)

Select Numfcotn, Nomfcotn, Numcotn, Dirfcotn, Colfcotn, Pobfcotn, Edofcotn, Cpfcotn, Rfcfcotn, EMAILCOTN

SQL Original (ASP)

Select Cvecot, Nomcot From Cotizadores order by Nomcot;

Tablas: Cotizadores

SQL Original (ASP)

Select EdoAteb, Nomedo From Estados Order by Nomedo;

Tablas: Estados

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
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-

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

No hay enlaces entrantes

<%  
	Option Explicit
	Session.LCID = 2058
%> 
	<!--#include file="User.asp"-->
	<!--#include file="general.asp"-->
	<!DOCTYPE html>
<HTML>
	<HEAD>
		<TITLE>Grupo MIM</TITLE>
		<link rel=stylesheet href="vista.css">
	</HEAD>
<BODY>
	<CENTER>
	<!--#include file="empresa.asp"-->
<br><br>	
	<%
	Dim Rs11, Rs12, Rs13, Rs14, Rs15
	Dim Sql11, Sql12, Sql13, sql14, Sql15
	Dim Ncotizacion
	
	Ncotizacion = Request("Ncotizacion")

	%>
<Form action="Addclifcote.asp" name="Addclifcote" method="Post">
	<TABLE Border="0" Cellspacing="2" Cellpadding="1" bgcolor="#2B86D7">
		<Tr>
			<Td Class="Normalw">Cotizacion:</Td>
			<Td><Input Type="Text" Class="negrita" name="Ncotizacion" Size="10" Value="<%= Ncotizacion %>" Style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
			<Td><input type="Submit" value="Buscar" class="NormalB"></Td>
		</Tr>
	</Table>
</Form>
<br>
	<%
	If Ncotizacion = "" Or ISnull(Ncotizacion) Then
	
		Else
		Set Rs11 = Server.CreateObject("ADODB.Recordset")
		Sql11="Select Numfcotn, Nomfcotn, Numcotn, Dirfcotn, Colfcotn, Pobfcotn, Edofcotn, Cpfcotn, Rfcfcotn, EMAILCOTN " &_
		"From fcotnew where Numfcotn = "& Ncotizacion &";"
		Rs11.Open Sql11,Cn1,1,2
		
		If Rs11.Eof Then
			
			Else
			%>
		<Form>
			<TABLE Border="0" Cellspacing="2" Cellpadding="1" bgcolor="#2B86D7">
				<Tr>	
					<Td Class="Normalw">Clave</Td>
					<Td Class="Normalw" Colspan = "3"><Input Type="Text" placeholder="Clave" Class="Normalb" name="Clacli" Size="10" maxlength="8" Value="" required onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>				
				<Tr>	
					<Td Class="Normalw">Nombre</Td>
					<Td Class="Normalw" Colspan = "3"><Input Type="Text" placeholder="Razon Social" Class="Normalb" name="Nomcli" Size="70" maxlength="110" required Value="<%= Rs11("Nomfcotn") %>" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>
				<Tr>	
					<Td Class="Normalw">Calle</Td>
					<Td Class="Normalw" Colspan = "3"><Input Type="Text" placeholder="Calle" Class="Normalb" name="Calcli" Size="70" maxlength="150" required Value="<%= Rs11("Dirfcotn") %>" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>				
				<Tr>	
					<Td Class="Normalw">Numero</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Numero Exterior" Class="Normalb" name="Numcli" Size="15" maxlength="50" Value="<%= Rs11("Numcotn") %>" required onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">Numero Interior</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Numero Interior" Class="Normalb" name="Numicli" Size="15" maxlength="50" Value="" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>
				<Tr>	
					<Td Class="Normalw">Colonia</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Colonia" Class="Normalb" name="Colcli" Size="30" maxlength="60" Value="<%= Rs11("Colfcotn") %>" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">Poblacion</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Poblacion" Class="Normalb" name="Pobcli" Size="30" maxlength="60" Value="<%= Rs11("Pobfcotn") %>" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>
				<Tr>	
					<Td Class="Normalw">Estado</Td>
					<Td Class="Normalw">
					<%
					Set Rs12 = Server.CreateObject("ADODB.Recordset")
					Sql12="Select EdoAteb, Nomedo From Estados Order by Nomedo;"
					Rs12.Open Sql12,Cn1,1,2					
					%>
					<SELECT NAME="Edocli" class="Normalb">
						<optgroup label="Seleccionado:">
						<option value="<%= Cstr(Rs11("Edofcotn")) %>" Selected><%= Rs11("Edofcotn") %></option>
						<optgroup label="Seleccionar un Estado">
						<%
						Do While Not Rs12.EOF 
						%>
						<option value="<%= Rs12("EdoAteb") %>"><%= Rs12("Nomedo") %></option>
						<%
						Rs12.Movenext
						Loop
						%>
					</select>
					</Td>		

					<Td Class="Normalw">Pais</Td>
					<Td Class="Normalw">
					<%
					Set Rs13 = Server.CreateObject("ADODB.Recordset")
					Sql13="Select Abrv, Nompais From Paises Order by Cvepais;"
					Rs13.Open Sql13,Cn1,1,2					
					%>
					<SELECT NAME="Pais" class="Normalb">
						<optgroup label="Seleccionar un Pais">
						<%
						Do While Not Rs13.EOF 
						%>
						<option value="<%= Rs13("Abrv") %>"><%= Rs13("Nompais") %></option>
						<%
						Rs13.Movenext
						Loop
						%>
					</select>
					</Td>						
				</Tr>	
				<tR>
					<Td Class="Normalw">Codigo Postal</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Codigo Postal"  Class="Normalb" name="CPCli" Size="20" maxlength="5" Value="<%= Rs11("Cpfcotn") %>" required onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">RFC</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="RFC" Class="Normalb" name="RfcCli" Size="15" maxlength="13" Value="<%= Rs11("RFCfcotn") %>" required onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>
				</Tr>				
					<Td Class="Normalw">Dias Credito</Td>
					<Td Class="Normalw"><Input Type="Text" Class="Normalb" name="DiaCli" Size="5" maxlength="3" Value="0" Style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">Limite Credito</Td>
					<Td Class="Normalw"><Input Type="Text" Class="Normalb" name="LimCli" Size="10" maxlength="10" Value="0.00" Style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>	
				<Tr>	
					<Td Class="Normalw">Vendedor</Td>
					<Td Class="Normalw">
					<%
					Set Rs14 = Server.CreateObject("ADODB.Recordset")
					Sql14="Select Cvevend, Nomvend From Vendedores Order by Nomvend;"
					Rs14.Open Sql14,Cn1,1,2					
					%>
					<SELECT NAME="Vencli" class="Normalb">
						<optgroup label="Seleccionado:">
						<option value="34" Selected>DIRECCION GENERAL</option>
						<optgroup label="Seleccionar un Estado">
						<%
						Do While Not Rs14.EOF 
						%>
						<option value="<%= Rs14("Cvevend") %>"><%= Rs14("Nomvend") %> ( <%= Rs14("Cvevend") %>  )</option>
						<%
						Rs14.Movenext
						Loop
						%>
					</select>
					</Td>		

					<Td Class="Normalw">Cotizador</Td>
					<Td Class="Normalw">
					<%
					Set Rs15 = Server.CreateObject("ADODB.Recordset")
					Sql15="Select Cvecot, Nomcot From Cotizadores order by Nomcot;"
					Rs15.Open Sql15,Cn1,1,2					
					%>
					<SELECT NAME="Pais" class="Normalb">
						<optgroup label="Seleccionado:">
						<option value="34" Selected>DIRECCION GENERAL</option>					
						<optgroup label="Seleccionar un Pais">
						<%
						Do While Not Rs15.EOF 
						%>
						<option value="<%= Rs15("Cvecot") %>"><%= Rs15("Nomcot") %> ( <%= Rs15("Cvecot") %> ) </option>
						<%
						Rs15.Movenext
						Loop
						%>
					</select>
					</Td>						
				</Tr>				
				<Tr>	
					<Td Class="Normalw">Dia Revision</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Dias Revision" Class="Normalb" name="Revcli" Size="15" maxlength="30" Value="INDEFINIDO" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">Dia de Cobro</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Dias de Cabro" Class="Normalb" name="Cobcli" Size="15" maxlength="30" Value="INDEFINIDO" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>
				<Tr>	
					<Td Class="Normalw">Cuenta Pago</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="CUENTA PAGO"  Class="Normalb" name="Revcli" Size="20" maxlength="150" Value="NO IDENTIFICADO" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">Forma Pago</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="FORMA PAGO"  Class="Normalb" name="Cobcli" Size="15" maxlength="50" Value="NA" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
				</Tr>		
				<Tr>	
					<Td Class="Normalw">Contacto</Td>
					<Td Class="Normalw"><Input Type="Text" placeholder="Nombre del Comprador"  Class="Normalb" name="ConCli" Size="35" maxlength="60" Value="" onChange="javascript:this.value=this.value.toUpperCase();"></Td>
					<Td Class="Normalw">E-mail</Td>
					<Td Class="Normalw"><Input Type="email" placeholder="correo@dominio.com" Class="Normalb" name="Ecocli" Size="35" maxlength="60" Value="<%= Rs11("EMAILCOTN") %>" required onChange="javascript:this.value=this.value.toLowerCase();"></Td>
				</Tr>		
				<Tr>	
					<Td Class="Normalw" Colspan="4" Align="Center"><Input Type="Submit" Class="Normalb" Value="Grabar" ></Td>
				</Tr>					
			</Table>
		</Form>
			<%
		End If
	End If
	%>
</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.Clientes
{
    public class AddclifcoteModel : PageModel
    {
        private readonly MimDbContext _context;

        public AddclifcoteModel(MimDbContext context)
        {
            _context = context;
        }

        [BindProperty(SupportsGet = true)]
        public int? Cotizacion { get; set; }

        public string? Mensaje { get; set; }
        public bool EsError { get; set; }

        public ClienteInput Cliente { get; set; } = new();
        public List<ESTADOS> Estados { get; set; } = new();
        public List<PAISES> Paises { get; set; } = new();
        public List<VENDEDORES> Vendedores { get; set; } = new();
        public List<COTIZADORES> Cotizadores { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            await LoadDropdowns();

            // Quotation pre-fill functionality can be added when quotation data is available
        }

        public async Task<IActionResult> OnPostAsync(string Clacli, string Nomcli, string Calcli, string? Numcli, 
            string? Numicli, string? Colcli, string? Pobcli, string? Edocli, string? Pais, string? CPCli, 
            string? RfcCli, int? DiaCli, decimal? LimCli, int? Vencli, string? Cotcli)
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            await LoadDropdowns();

            // Check if client already exists
            var existingClient = await _context.CLIENTES.Where(x => x.Sucursal == sucursal).FirstOrDefaultAsync(c => c.CLACLI == Clacli.ToUpper());
            if (existingClient != null)
            {
                Mensaje = $"Ya existe un cliente con la clave {Clacli}";
                EsError = true;
                Cliente = new ClienteInput
                {
                    Clacli = Clacli,
                    Nomcli = Nomcli,
                    Calcli = Calcli,
                    Numcli = Numcli,
                    Numicli = Numicli,
                    Colcli = Colcli,
                    Pobcli = Pobcli,
                    Edocli = Edocli,
                    Pais = Pais,
                    CPCli = CPCli,
                    RfcCli = RfcCli,
                    DiaCli = DiaCli ?? 0,
                    LimCli = LimCli ?? 0
                };
                return Page();
            }

            // Create new client
            var newClient = new CLIENTES
            {
                CLACLI = Clacli.ToUpper(),
                NOMCLI = Nomcli?.ToUpper(),
                CALCLI = Calcli?.ToUpper(),
                NUMCLI = Numcli?.ToUpper(),
                NUMICLI = Numicli?.ToUpper(),
                COLCLI = Colcli?.ToUpper(),
                POBCLI = Pobcli?.ToUpper(),
                EDOCLI = Edocli?.ToUpper(),
                CPCLI = CPCli,
                RFCCLI = RfcCli?.ToUpper(),
                DIACLI = (short?)(DiaCli ?? 0),
                LIMCLI = LimCli ?? 0,
                VENCLI = Vencli,
                COTCLI = Cotcli,
                STACLI = "Activo"
            };

            _context.CLIENTES.Add(newClient);
            await _context.SaveChangesAsync();

            Mensaje = $"Cliente {Clacli} creado exitosamente";
            return RedirectToPage("/Clientes/Detalle", new { clave = Clacli.ToUpper() });
        }

        private async Task LoadDropdowns()
        {
                    var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            Estados = await _context.ESTADOS.OrderBy(e => e.NOMEDO).ToListAsync();
            Paises = await _context.PAISES.OrderBy(p => p.CVEPAIS).ToListAsync();
            Vendedores = await _context.VENDEDORES.Where(x => x.Sucursal == sucursal).OrderBy(v => v.NOMVEND).ToListAsync();
            Cotizadores = await _context.COTIZADORES.OrderBy(c => c.NOMCOT).ToListAsync();
        }

        public class ClienteInput
        {
            public string Clacli { get; set; } = "";
            public string Nomcli { get; set; } = "";
            public string Calcli { get; set; } = "";
            public string? Numcli { get; set; }
            public string? Numicli { get; set; }
            public string? Colcli { get; set; }
            public string? Pobcli { get; set; }
            public string? Edocli { get; set; }
            public string? Pais { get; set; }
            public string? CPCli { get; set; }
            public string? RfcCli { get; set; }
            public int DiaCli { get; set; }
            public decimal LimCli { get; set; }
        }
    }
}

@page
@model MimPortal.Pages.Clientes.AddclifcoteModel
@{
    ViewData["Title"] = "Agregar Cliente desde Cotización";
}

<div class="container-fluid">
    <h4 class="mb-4"><i class="fas fa-user-plus"></i> Agregar Cliente desde Cotización</h4>
    
    @if (!string.IsNullOrEmpty(Model.Mensaje))
    {
        <div class="alert @(Model.EsError ? "alert-danger" : "alert-success")">
            @Model.Mensaje
        </div>
    }
    
    <div class="card">
        <div class="card-header">
            <h5 class="mb-0">Datos del Cliente</h5>
        </div>
        <div class="card-body">
            <form method="post">
                <div class="row mb-3">
                    <div class="col-md-3">
                        <label class="form-label">Clave</label>
                        <input type="text" class="form-control" name="Clacli" maxlength="8" required 
                               value="@Model.Cliente.Clacli" style="text-transform: uppercase;" />
                    </div>
                    <div class="col-md-9">
                        <label class="form-label">Razón Social</label>
                        <input type="text" class="form-control" name="Nomcli" maxlength="110" required 
                               value="@Model.Cliente.Nomcli" style="text-transform: uppercase;" />
                    </div>
                </div>
                
                <div class="row mb-3">
                    <div class="col-md-8">
                        <label class="form-label">Calle</label>
                        <input type="text" class="form-control" name="Calcli" maxlength="150" required 
                               value="@Model.Cliente.Calcli" style="text-transform: uppercase;" />
                    </div>
                    <div class="col-md-2">
                        <label class="form-label">Número Exterior</label>
                        <input type="text" class="form-control" name="Numcli" maxlength="50" 
                               value="@Model.Cliente.Numcli" style="text-transform: uppercase;" />
                    </div>
                    <div class="col-md-2">
                        <label class="form-label">Número Interior</label>
                        <input type="text" class="form-control" name="Numicli" maxlength="50" 
                               value="@Model.Cliente.Numicli" style="text-transform: uppercase;" />
                    </div>
                </div>
                
                <div class="row mb-3">
                    <div class="col-md-4">
                        <label class="form-label">Colonia</label>
                        <input type="text" class="form-control" name="Colcli" maxlength="60" 
                               value="@Model.Cliente.Colcli" style="text-transform: uppercase;" />
                    </div>
                    <div class="col-md-4">
                        <label class="form-label">Población</label>
                        <input type="text" class="form-control" name="Pobcli" maxlength="60" 
                               value="@Model.Cliente.Pobcli" style="text-transform: uppercase;" />
                    </div>
                    <div class="col-md-4">
                        <label class="form-label">Estado</label>
                        <select name="Edocli" class="form-select">
                            <option value="">-- Seleccionar --</option>
                            @foreach (var estado in Model.Estados)
                            {
                                @if (estado.EDOATEB == Model.Cliente.Edocli)
                                {
                                    <option value="@estado.EDOATEB" selected>@estado.NOMEDO</option>
                                }
                                else
                                {
                                    <option value="@estado.EDOATEB">@estado.NOMEDO</option>
                                }
                            }
                        </select>
                    </div>
                </div>
                
                <div class="row mb-3">
                    <div class="col-md-3">
                        <label class="form-label">País</label>
                        <select name="Pais" class="form-select">
                            @foreach (var pais in Model.Paises)
                            {
                                @if (pais.ABRV == Model.Cliente.Pais)
                                {
                                    <option value="@pais.ABRV" selected>@pais.NOMPAIS</option>
                                }
                                else
                                {
                                    <option value="@pais.ABRV">@pais.NOMPAIS</option>
                                }
                            }
                        </select>
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Código Postal</label>
                        <input type="text" class="form-control" name="CPCli" maxlength="5" required 
                               value="@Model.Cliente.CPCli" />
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">RFC</label>
                        <input type="text" class="form-control" name="RfcCli" maxlength="13" required 
                               value="@Model.Cliente.RfcCli" style="text-transform: uppercase;" />
                    </div>
                </div>
                
                <div class="row mb-3">
                    <div class="col-md-3">
                        <label class="form-label">Días Crédito</label>
                        <input type="number" class="form-control" name="DiaCli" value="@Model.Cliente.DiaCli" />
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Límite Crédito</label>
                        <input type="number" class="form-control" name="LimCli" step="0.01" value="@Model.Cliente.LimCli" />
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Vendedor</label>
                        <select name="Vencli" class="form-select">
                            @foreach (var vendedor in Model.Vendedores)
                            {
                                <option value="@vendedor.CVEVEND">(@vendedor.CVEVEND) @vendedor.NOMVEND</option>
                            }
                        </select>
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Cotizador</label>
                        <select name="Cotcli" class="form-select">
                            @foreach (var cotizador in Model.Cotizadores)
                            {
                                <option value="@cotizador.CVECOT">(@cotizador.CVECOT) @cotizador.NOMCOT</option>
                            }
                        </select>
                    </div>
                </div>
                
                <div class="row">
                    <div class="col-12">
                        <button type="submit" class="btn btn-primary">
                            <i class="fas fa-save"></i> Crear Cliente
                        </button>
                        <a href="/Clientes" class="btn btn-secondary">
                            <i class="fas fa-arrow-left"></i> Cancelar
                        </a>
                    </div>
                </div>
            </form>
        </div>
    </div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

addclifcote.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Abrv, Nompais From Paises Order by Cvepais;

SQL Original (ASP)

SELECT Select Cvevend, Nomvend From Vendedores Order by Nomvend;

SQL Original (ASP)

SELECT Select Numfcotn, Nomfcotn, Numcotn, Dirfcotn, Colfcotn, Pobfcotn, Edofcotn, Cpfc...

SQL Original (ASP)

SELECT Select Numfcotn, Nomfcotn, Numcotn, Dirfcotn, Colfcotn, Pobfcotn, Edofcotn, Cpfc...

SQL Original (ASP)

SELECT Select Cvecot, Nomcot From Cotizadores order by Nomcot;

SQL Original (ASP)

SELECT Select EdoAteb, Nomedo From Estados Order by Nomedo;

SQL Original (ASP)