Detalle: cliadd.asp - MIM Portal

cliadd.asp

Ir a la Página Volver a la Lista

Archivo ASP

cliadd.asp

Página Razor

Clientes/Cliadd.cshtml

Módulo

Clientes

Líneas de Código

295

Características

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

Tablas Utilizadas (18)

BAJIO CANCUN COATZA ClienteSRFC Empresa GUADALAJARA INDMEXMexico MERIDA MEXICO MEXPINTURAS MIGPINTURAS MIMTY ORIZABA PINTURAS PUEBLA TAMPICO TOLUCA VILLAHERMOSA

Consultas SQL (19)

SQL Original (ASP)

Delete from ClienteSRFC;

Tablas: ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIMSA', 'MEXICO', MEXICO.dbo.CLIENTES.CLACLI, MEXICO.dbo.CLIENTES.NOMCLI, MEXICO.dbo.CLIENTES.RFCCLI,  MEXICO.dbo.CLIENTES.CALCLI, MEXICO.dbo.CLIENTES.NUMCLI, MEXICO.dbo.CLIENTES.NUMICLI,  MEXICO.dbo.CLIENTES.COLCLI, MEXICO.dbo.CLIENTES.POBCLI, MEXICO.dbo.CLIENTES.EDOCLI, MEXICO.dbo.CLIENTES.RegCap  FROM MEXICO.dbo.CLIENTES  WHERE MEXICO.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: MEXICO ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MICSA', 'PINTURAS', PINTURAS.dbo.CLIENTES.CLACLI, PINTURAS.dbo.CLIENTES.NOMCLI, PINTURAS.dbo.CLIENTES.RFCCLI,  PINTURAS.dbo.CLIENTES.CALCLI, PINTURAS.dbo.CLIENTES.NUMCLI, PINTURAS.dbo.CLIENTES.NUMICLI,  PINTURAS.dbo.CLIENTES.COLCLI, PINTURAS.dbo.CLIENTES.POBCLI, PINTURAS.dbo.CLIENTES.EDOCLI  FROM PINTURAS.dbo.CLIENTES  WHERE PINTURAS.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: PINTURAS ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MISSA', 'CANCUN', CANCUN.dbo.CLIENTES.CLACLI, CANCUN.dbo.CLIENTES.NOMCLI, CANCUN.dbo.CLIENTES.RFCCLI,  CANCUN.dbo.CLIENTES.CALCLI, CANCUN.dbo.CLIENTES.NUMCLI, CANCUN.dbo.CLIENTES.NUMICLI,  CANCUN.dbo.CLIENTES.COLCLI, CANCUN.dbo.CLIENTES.POBCLI, CANCUN.dbo.CLIENTES.EDOCLI  FROM CANCUN.dbo.CLIENTES  WHERE CANCUN.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: ClienteSRFC CANCUN

SQL Original (ASP)

INSERT INTO ClienteSRFC

Tablas: ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIGSA', 'MIGPINTURAS', MIGPINTURAS.dbo.CLIENTES.CLACLI, MIGPINTURAS.dbo.CLIENTES.NOMCLI, MIGPINTURAS.dbo.CLIENTES.RFCCLI,  MIGPINTURAS.dbo.CLIENTES.CALCLI, MIGPINTURAS.dbo.CLIENTES.NUMCLI, MIGPINTURAS.dbo.CLIENTES.NUMICLI,  MIGPINTURAS.dbo.CLIENTES.COLCLI, MIGPINTURAS.dbo.CLIENTES.POBCLI, MIGPINTURAS.dbo.CLIENTES.EDOCLI  FROM MIGPINTURAS.dbo.CLIENTES  WHERE MIGPINTURAS.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: ClienteSRFC MIGPINTURAS

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIBSA', 'BAJIO', BAJIO.dbo.CLIENTES.CLACLI, BAJIO.dbo.CLIENTES.NOMCLI, BAJIO.dbo.CLIENTES.RFCCLI,  BAJIO.dbo.CLIENTES.CALCLI, BAJIO.dbo.CLIENTES.NUMCLI, BAJIO.dbo.CLIENTES.NUMICLI,  BAJIO.dbo.CLIENTES.COLCLI, BAJIO.dbo.CLIENTES.POBCLI, BAJIO.dbo.CLIENTES.EDOCLI  FROM BAJIO.dbo.CLIENTES  WHERE BAJIO.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: ClienteSRFC BAJIO

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MICSA', 'VILLAHERMOSA', VILLAHERMOSA.dbo.CLIENTES.CLACLI, VILLAHERMOSA.dbo.CLIENTES.NOMCLI, VILLAHERMOSA.dbo.CLIENTES.RFCCLI,  VILLAHERMOSA.dbo.CLIENTES.CALCLI, VILLAHERMOSA.dbo.CLIENTES.NUMCLI, VILLAHERMOSA.dbo.CLIENTES.NUMICLI,  VILLAHERMOSA.dbo.CLIENTES.COLCLI, VILLAHERMOSA.dbo.CLIENTES.POBCLI, VILLAHERMOSA.dbo.CLIENTES.EDOCLI  FROM VILLAHERMOSA.dbo.CLIENTES  WHERE VILLAHERMOSA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: VILLAHERMOSA ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIMTY', 'MIMTY', MIMTY.dbo.CLIENTES.CLACLI, MIMTY.dbo.CLIENTES.NOMCLI, MIMTY.dbo.CLIENTES.RFCCLI,  MIMTY.dbo.CLIENTES.CALCLI, MIMTY.dbo.CLIENTES.NUMCLI, MIMTY.dbo.CLIENTES.NUMICLI,  MIMTY.dbo.CLIENTES.COLCLI, MIMTY.dbo.CLIENTES.POBCLI, MIMTY.dbo.CLIENTES.EDOCLI  FROM MIMTY.dbo.CLIENTES  WHERE MIMTY.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: MIMTY ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MISSA', 'PUEBLA', PUEBLA.dbo.CLIENTES.CLACLI, PUEBLA.dbo.CLIENTES.NOMCLI, PUEBLA.dbo.CLIENTES.RFCCLI,  PUEBLA.dbo.CLIENTES.CALCLI, PUEBLA.dbo.CLIENTES.NUMCLI, PUEBLA.dbo.CLIENTES.NUMICLI,  PUEBLA.dbo.CLIENTES.COLCLI, PUEBLA.dbo.CLIENTES.POBCLI, PUEBLA.dbo.CLIENTES.EDOCLI  FROM PUEBLA.dbo.CLIENTES  WHERE PUEBLA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: ClienteSRFC PUEBLA

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'INDMEX', 'INDMEX', INDMEXMexico.dbo.CLIENTES.CLACLI, INDMEXMexico.dbo.CLIENTES.NOMCLI, INDMEXMexico.dbo.CLIENTES.RFCCLI,  INDMEXMexico.dbo.CLIENTES.CALCLI, INDMEXMexico.dbo.CLIENTES.NUMCLI, INDMEXMexico.dbo.CLIENTES.NUMICLI,  INDMEXMexico.dbo.CLIENTES.COLCLI, INDMEXMexico.dbo.CLIENTES.POBCLI, INDMEXMexico.dbo.CLIENTES.EDOCLI  FROM INDMEXMexico.dbo.CLIENTES  WHERE INDMEXMexico.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: INDMEXMexico ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIMSA', 'MEXPINTURAS', MEXPINTURAS.dbo.CLIENTES.CLACLI, MEXPINTURAS.dbo.CLIENTES.NOMCLI, MEXPINTURAS.dbo.CLIENTES.RFCCLI,  MEXPINTURAS.dbo.CLIENTES.CALCLI, MEXPINTURAS.dbo.CLIENTES.NUMCLI, MEXPINTURAS.dbo.CLIENTES.NUMICLI,  MEXPINTURAS.dbo.CLIENTES.COLCLI, MEXPINTURAS.dbo.CLIENTES.POBCLI, MEXPINTURAS.dbo.CLIENTES.EDOCLI  FROM MEXPINTURAS.dbo.CLIENTES  WHERE MEXPINTURAS.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: MEXPINTURAS ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIGSA', 'GUADALAJARA', GUADALAJARA.dbo.CLIENTES.CLACLI, GUADALAJARA.dbo.CLIENTES.NOMCLI, GUADALAJARA.dbo.CLIENTES.RFCCLI,  GUADALAJARA.dbo.CLIENTES.CALCLI, GUADALAJARA.dbo.CLIENTES.NUMCLI, GUADALAJARA.dbo.CLIENTES.NUMICLI,  GUADALAJARA.dbo.CLIENTES.COLCLI, GUADALAJARA.dbo.CLIENTES.POBCLI, GUADALAJARA.dbo.CLIENTES.EDOCLI  FROM GUADALAJARA.dbo.CLIENTES  WHERE GUADALAJARA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: ClienteSRFC GUADALAJARA

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MICSA', 'COATZA', COATZA.dbo.CLIENTES.CLACLI, COATZA.dbo.CLIENTES.NOMCLI, COATZA.dbo.CLIENTES.RFCCLI,  COATZA.dbo.CLIENTES.CALCLI, COATZA.dbo.CLIENTES.NUMCLI, COATZA.dbo.CLIENTES.NUMICLI,  COATZA.dbo.CLIENTES.COLCLI, COATZA.dbo.CLIENTES.POBCLI, COATZA.dbo.CLIENTES.EDOCLI  FROM COATZA.dbo.CLIENTES  WHERE COATZA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: COATZA ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MISSA', 'MERIDA', MERIDA.dbo.CLIENTES.CLACLI, MERIDA.dbo.CLIENTES.NOMCLI, MERIDA.dbo.CLIENTES.RFCCLI,  MERIDA.dbo.CLIENTES.CALCLI, MERIDA.dbo.CLIENTES.NUMCLI, MERIDA.dbo.CLIENTES.NUMICLI,  MERIDA.dbo.CLIENTES.COLCLI, MERIDA.dbo.CLIENTES.POBCLI, MERIDA.dbo.CLIENTES.EDOCLI  FROM MERIDA.dbo.CLIENTES  WHERE MERIDA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: MERIDA ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MISSA', 'ORIZABA', ORIZABA.dbo.CLIENTES.CLACLI, ORIZABA.dbo.CLIENTES.NOMCLI, ORIZABA.dbo.CLIENTES.RFCCLI,  ORIZABA.dbo.CLIENTES.CALCLI, ORIZABA.dbo.CLIENTES.NUMCLI, ORIZABA.dbo.CLIENTES.NUMICLI,  ORIZABA.dbo.CLIENTES.COLCLI, ORIZABA.dbo.CLIENTES.POBCLI, ORIZABA.dbo.CLIENTES.EDOCLI  FROM ORIZABA.dbo.CLIENTES  WHERE ORIZABA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: ORIZABA ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'VITSA', 'TOLUCA', TOLUCA.dbo.CLIENTES.CLACLI, TOLUCA.dbo.CLIENTES.NOMCLI, TOLUCA.dbo.CLIENTES.RFCCLI,  TOLUCA.dbo.CLIENTES.CALCLI, TOLUCA.dbo.CLIENTES.NUMCLI, TOLUCA.dbo.CLIENTES.NUMICLI,  TOLUCA.dbo.CLIENTES.COLCLI, TOLUCA.dbo.CLIENTES.POBCLI, TOLUCA.dbo.CLIENTES.EDOCLI  FROM TOLUCA.dbo.CLIENTES  WHERE TOLUCA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: TOLUCA ClienteSRFC

SQL Original (ASP)

INSERT INTO ClienteSRFC  (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO)  SELECT 'MIMSA', 'TAMPICO', TAMPICO.dbo.CLIENTES.CLACLI, TAMPICO.dbo.CLIENTES.NOMCLI, TAMPICO.dbo.CLIENTES.RFCCLI,  TAMPICO.dbo.CLIENTES.CALCLI, TAMPICO.dbo.CLIENTES.NUMCLI, TAMPICO.dbo.CLIENTES.NUMICLI,  TAMPICO.dbo.CLIENTES.COLCLI, TAMPICO.dbo.CLIENTES.POBCLI, TAMPICO.dbo.CLIENTES.EDOCLI  FROM TAMPICO.dbo.CLIENTES  WHERE TAMPICO.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"'

Tablas: TAMPICO ClienteSRFC

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

Comentarios y Notas (1)

📝 note Test comment - verificar que funciona el sistema de comentarios
2025-12-25 20:35:19

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`default.asp`	redirect	General	Pendiente	-

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`pedclientes-1.asp`	link	Pedidos	Pendiente	-
`pedclientes.asp`	link	Facturas	Portada	Facturas/Pedclientes.cshtml
`clinew.asp`	redirect	Clientes	Portada	clinew

<%  
	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 Cn14, Cn15, Cn16, Cn17, Cn18, Cn19, Cn20, Cn21, Cn22, Cn23, Cn24, Cn25, Cn26, Cn27, Cn28, Cn29
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29, Rs30, Rs31, Rs32
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29, Sql30, Sql31, Sql32

'***** 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 ClienteRFC
	
	ClienteRFC = Request("ClienteRFC") 
%>
		<center>
		<br>

		<B>***** ALTA DE CLIENTES *****</B>
		<br><br>

		<Form action="Cliadd.asp" method="post">	
		<Table Id="TablaOpc">
			<Tr>
				<Td>
				<input tabindex="1" type="text" placeholder="RFC" Title="RFC" name="ClienteRFC" Size="15" id="TablaOpc" value="<%= ClienteRFC %>" Size="14px" maxlength="13" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>	
				<Td>
				<button  tabindex="8" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
				</td>				
			</Tr>
		</Table>
		</Form>

<%
	If ClienteRFC = "" or Isnull(ClienteRFC) Then
		
		Else

'*****  ELIMINA LOS REGISTROS DE LA TABLA ClienteRFC  *****

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="Delete from ClienteSRFC;"
Cn1.Execute Sql12
		
			'//******* MICSA *****//
			Set Rs14=Server.CreateObject("ADODB.recordset")
			Sql14="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MICSA', 'COATZA', COATZA.dbo.CLIENTES.CLACLI, COATZA.dbo.CLIENTES.NOMCLI, COATZA.dbo.CLIENTES.RFCCLI, " &_
			"COATZA.dbo.CLIENTES.CALCLI, COATZA.dbo.CLIENTES.NUMCLI, COATZA.dbo.CLIENTES.NUMICLI, " &_
			"COATZA.dbo.CLIENTES.COLCLI, COATZA.dbo.CLIENTES.POBCLI, COATZA.dbo.CLIENTES.EDOCLI " &_
			"FROM COATZA.dbo.CLIENTES " &_
			"WHERE COATZA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql14

			Set Rs15=Server.CreateObject("ADODB.recordset")
			Sql15="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MICSA', 'VILLAHERMOSA', VILLAHERMOSA.dbo.CLIENTES.CLACLI, VILLAHERMOSA.dbo.CLIENTES.NOMCLI, VILLAHERMOSA.dbo.CLIENTES.RFCCLI, " &_
			"VILLAHERMOSA.dbo.CLIENTES.CALCLI, VILLAHERMOSA.dbo.CLIENTES.NUMCLI, VILLAHERMOSA.dbo.CLIENTES.NUMICLI, " &_
			"VILLAHERMOSA.dbo.CLIENTES.COLCLI, VILLAHERMOSA.dbo.CLIENTES.POBCLI, VILLAHERMOSA.dbo.CLIENTES.EDOCLI " &_
			"FROM VILLAHERMOSA.dbo.CLIENTES " &_
			"WHERE VILLAHERMOSA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql15

			Set Rs16=Server.CreateObject("ADODB.recordset")
			Sql16="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MICSA', 'PINTURAS', PINTURAS.dbo.CLIENTES.CLACLI, PINTURAS.dbo.CLIENTES.NOMCLI, PINTURAS.dbo.CLIENTES.RFCCLI, " &_
			"PINTURAS.dbo.CLIENTES.CALCLI, PINTURAS.dbo.CLIENTES.NUMCLI, PINTURAS.dbo.CLIENTES.NUMICLI, " &_
			"PINTURAS.dbo.CLIENTES.COLCLI, PINTURAS.dbo.CLIENTES.POBCLI, PINTURAS.dbo.CLIENTES.EDOCLI " &_
			"FROM PINTURAS.dbo.CLIENTES " &_
			"WHERE PINTURAS.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql16	

			'//******* MIGSA *****//
			Set Rs17=Server.CreateObject("ADODB.recordset")
			Sql17="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIGSA', 'GUADALAJARA', GUADALAJARA.dbo.CLIENTES.CLACLI, GUADALAJARA.dbo.CLIENTES.NOMCLI, GUADALAJARA.dbo.CLIENTES.RFCCLI, " &_
			"GUADALAJARA.dbo.CLIENTES.CALCLI, GUADALAJARA.dbo.CLIENTES.NUMCLI, GUADALAJARA.dbo.CLIENTES.NUMICLI, " &_
			"GUADALAJARA.dbo.CLIENTES.COLCLI, GUADALAJARA.dbo.CLIENTES.POBCLI, GUADALAJARA.dbo.CLIENTES.EDOCLI " &_
			"FROM GUADALAJARA.dbo.CLIENTES " &_
			"WHERE GUADALAJARA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql17

			Set Rs18=Server.CreateObject("ADODB.recordset")
			Sql18="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIGSA', 'MIGPINTURAS', MIGPINTURAS.dbo.CLIENTES.CLACLI, MIGPINTURAS.dbo.CLIENTES.NOMCLI, MIGPINTURAS.dbo.CLIENTES.RFCCLI, " &_
			"MIGPINTURAS.dbo.CLIENTES.CALCLI, MIGPINTURAS.dbo.CLIENTES.NUMCLI, MIGPINTURAS.dbo.CLIENTES.NUMICLI, " &_
			"MIGPINTURAS.dbo.CLIENTES.COLCLI, MIGPINTURAS.dbo.CLIENTES.POBCLI, MIGPINTURAS.dbo.CLIENTES.EDOCLI " &_
			"FROM MIGPINTURAS.dbo.CLIENTES " &_
			"WHERE MIGPINTURAS.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql18
			
			'//******* MIMSA *****//
			Set Rs19=Server.CreateObject("ADODB.recordset")
			Sql19="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIMSA', 'MEXICO', MEXICO.dbo.CLIENTES.CLACLI, MEXICO.dbo.CLIENTES.NOMCLI, MEXICO.dbo.CLIENTES.RFCCLI, " &_
			"MEXICO.dbo.CLIENTES.CALCLI, MEXICO.dbo.CLIENTES.NUMCLI, MEXICO.dbo.CLIENTES.NUMICLI, " &_
			"MEXICO.dbo.CLIENTES.COLCLI, MEXICO.dbo.CLIENTES.POBCLI, MEXICO.dbo.CLIENTES.EDOCLI, MEXICO.dbo.CLIENTES.RegCap " &_
			"FROM MEXICO.dbo.CLIENTES " &_
			"WHERE MEXICO.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql19

			Set Rs21=Server.CreateObject("ADODB.recordset")
			Sql21="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIMSA', 'TAMPICO', TAMPICO.dbo.CLIENTES.CLACLI, TAMPICO.dbo.CLIENTES.NOMCLI, TAMPICO.dbo.CLIENTES.RFCCLI, " &_
			"TAMPICO.dbo.CLIENTES.CALCLI, TAMPICO.dbo.CLIENTES.NUMCLI, TAMPICO.dbo.CLIENTES.NUMICLI, " &_
			"TAMPICO.dbo.CLIENTES.COLCLI, TAMPICO.dbo.CLIENTES.POBCLI, TAMPICO.dbo.CLIENTES.EDOCLI " &_
			"FROM TAMPICO.dbo.CLIENTES " &_
			"WHERE TAMPICO.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql21			

			Set Rs22=Server.CreateObject("ADODB.recordset")
			Sql22="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIMSA', 'MEXPINTURAS', MEXPINTURAS.dbo.CLIENTES.CLACLI, MEXPINTURAS.dbo.CLIENTES.NOMCLI, MEXPINTURAS.dbo.CLIENTES.RFCCLI, " &_
			"MEXPINTURAS.dbo.CLIENTES.CALCLI, MEXPINTURAS.dbo.CLIENTES.NUMCLI, MEXPINTURAS.dbo.CLIENTES.NUMICLI, " &_
			"MEXPINTURAS.dbo.CLIENTES.COLCLI, MEXPINTURAS.dbo.CLIENTES.POBCLI, MEXPINTURAS.dbo.CLIENTES.EDOCLI " &_
			"FROM MEXPINTURAS.dbo.CLIENTES " &_
			"WHERE MEXPINTURAS.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql22
			
			'//****** MISSA *******//
			Set Rs23=Server.CreateObject("ADODB.recordset")
			Sql23="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MISSA', 'CANCUN', CANCUN.dbo.CLIENTES.CLACLI, CANCUN.dbo.CLIENTES.NOMCLI, CANCUN.dbo.CLIENTES.RFCCLI, " &_
			"CANCUN.dbo.CLIENTES.CALCLI, CANCUN.dbo.CLIENTES.NUMCLI, CANCUN.dbo.CLIENTES.NUMICLI, " &_
			"CANCUN.dbo.CLIENTES.COLCLI, CANCUN.dbo.CLIENTES.POBCLI, CANCUN.dbo.CLIENTES.EDOCLI " &_
			"FROM CANCUN.dbo.CLIENTES " &_
			"WHERE CANCUN.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql23
			
			Set Rs24=Server.CreateObject("ADODB.recordset")
			Sql24="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MISSA', 'MERIDA', MERIDA.dbo.CLIENTES.CLACLI, MERIDA.dbo.CLIENTES.NOMCLI, MERIDA.dbo.CLIENTES.RFCCLI, " &_
			"MERIDA.dbo.CLIENTES.CALCLI, MERIDA.dbo.CLIENTES.NUMCLI, MERIDA.dbo.CLIENTES.NUMICLI, " &_
			"MERIDA.dbo.CLIENTES.COLCLI, MERIDA.dbo.CLIENTES.POBCLI, MERIDA.dbo.CLIENTES.EDOCLI " &_
			"FROM MERIDA.dbo.CLIENTES " &_
			"WHERE MERIDA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql24		
		
			Set Rs26=Server.CreateObject("ADODB.recordset")
			Sql26="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MISSA', 'ORIZABA', ORIZABA.dbo.CLIENTES.CLACLI, ORIZABA.dbo.CLIENTES.NOMCLI, ORIZABA.dbo.CLIENTES.RFCCLI, " &_
			"ORIZABA.dbo.CLIENTES.CALCLI, ORIZABA.dbo.CLIENTES.NUMCLI, ORIZABA.dbo.CLIENTES.NUMICLI, " &_
			"ORIZABA.dbo.CLIENTES.COLCLI, ORIZABA.dbo.CLIENTES.POBCLI, ORIZABA.dbo.CLIENTES.EDOCLI " &_
			"FROM ORIZABA.dbo.CLIENTES " &_
			"WHERE ORIZABA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql26
			
			Set Rs27=Server.CreateObject("ADODB.recordset")
			Sql27="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MISSA', 'PUEBLA', PUEBLA.dbo.CLIENTES.CLACLI, PUEBLA.dbo.CLIENTES.NOMCLI, PUEBLA.dbo.CLIENTES.RFCCLI, " &_
			"PUEBLA.dbo.CLIENTES.CALCLI, PUEBLA.dbo.CLIENTES.NUMCLI, PUEBLA.dbo.CLIENTES.NUMICLI, " &_
			"PUEBLA.dbo.CLIENTES.COLCLI, PUEBLA.dbo.CLIENTES.POBCLI, PUEBLA.dbo.CLIENTES.EDOCLI " &_
			"FROM PUEBLA.dbo.CLIENTES " &_
			"WHERE PUEBLA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql27
			
			'//***** VITSA****//
			Set Rs28=Server.CreateObject("ADODB.recordset")
			Sql28="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'VITSA', 'TOLUCA', TOLUCA.dbo.CLIENTES.CLACLI, TOLUCA.dbo.CLIENTES.NOMCLI, TOLUCA.dbo.CLIENTES.RFCCLI, " &_
			"TOLUCA.dbo.CLIENTES.CALCLI, TOLUCA.dbo.CLIENTES.NUMCLI, TOLUCA.dbo.CLIENTES.NUMICLI, " &_
			"TOLUCA.dbo.CLIENTES.COLCLI, TOLUCA.dbo.CLIENTES.POBCLI, TOLUCA.dbo.CLIENTES.EDOCLI " &_
			"FROM TOLUCA.dbo.CLIENTES " &_
			"WHERE TOLUCA.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql28
		
			'//***** MIBQRO****//
			Set Rs30=Server.CreateObject("ADODB.recordset")
			Sql30="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIBSA', 'BAJIO', BAJIO.dbo.CLIENTES.CLACLI, BAJIO.dbo.CLIENTES.NOMCLI, BAJIO.dbo.CLIENTES.RFCCLI, " &_
			"BAJIO.dbo.CLIENTES.CALCLI, BAJIO.dbo.CLIENTES.NUMCLI, BAJIO.dbo.CLIENTES.NUMICLI, " &_
			"BAJIO.dbo.CLIENTES.COLCLI, BAJIO.dbo.CLIENTES.POBCLI, BAJIO.dbo.CLIENTES.EDOCLI " &_
			"FROM BAJIO.dbo.CLIENTES " &_
			"WHERE BAJIO.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql30


			'//***** MIMTYSA****//
			Set Rs31=Server.CreateObject("ADODB.recordset")
			Sql31="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'MIMTY', 'MIMTY', MIMTY.dbo.CLIENTES.CLACLI, MIMTY.dbo.CLIENTES.NOMCLI, MIMTY.dbo.CLIENTES.RFCCLI, " &_
			"MIMTY.dbo.CLIENTES.CALCLI, MIMTY.dbo.CLIENTES.NUMCLI, MIMTY.dbo.CLIENTES.NUMICLI, " &_
			"MIMTY.dbo.CLIENTES.COLCLI, MIMTY.dbo.CLIENTES.POBCLI, MIMTY.dbo.CLIENTES.EDOCLI " &_
			"FROM MIMTY.dbo.CLIENTES " &_
			"WHERE MIMTY.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql31

			'//***** INDMEX****//
			Set Rs32=Server.CreateObject("ADODB.recordset")
			Sql32="INSERT INTO ClienteSRFC " &_
			"(EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, INTERIOR, COLONIA, POBLACION, ESTADO) " &_
			"SELECT 'INDMEX', 'INDMEX', INDMEXMexico.dbo.CLIENTES.CLACLI, INDMEXMexico.dbo.CLIENTES.NOMCLI, INDMEXMexico.dbo.CLIENTES.RFCCLI, " &_
			"INDMEXMexico.dbo.CLIENTES.CALCLI, INDMEXMexico.dbo.CLIENTES.NUMCLI, INDMEXMexico.dbo.CLIENTES.NUMICLI, " &_
			"INDMEXMexico.dbo.CLIENTES.COLCLI, INDMEXMexico.dbo.CLIENTES.POBCLI, INDMEXMexico.dbo.CLIENTES.EDOCLI " &_
			"FROM INDMEXMexico.dbo.CLIENTES " &_
			"WHERE INDMEXMexico.dbo.CLIENTES.RFCCLI = '"& ClienteRFC &"';"
			Cn1.Execute Sql32
			
			Response.redirect("CliaddRFC.asp?ClienteRFC="& ClienteRFC &"")
	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;
using MimPortal.Data.Entities;

namespace MimPortal.Pages.Clientes
{
    public class CliaddModel : PageModel
    {
        private readonly MimDbContext _context;

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

        [BindProperty(SupportsGet = true)]
        public string? ClienteRFC { get; set; }

        public List<CLIENTES> ClientesEncontrados { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(ClienteRFC)) return;

            ClientesEncontrados = await _context.CLIENTES
                .Where(c => c.RFCCLI == ClienteRFC.ToUpper())
                .OrderBy(c => c.NOMCLI)
                .ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Clientes.CliaddModel
@{
    ViewData["Title"] = "Alta de Clientes";
}
<div id="page-content">

<div class="card">
    <div class="card-header">
        <h5><i class="bi bi-person-plus"></i> Alta de Clientes</h5>
    </div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">RFC</label>
                <input type="text" class="form-control text-uppercase" name="ClienteRFC" value="@Model.ClienteRFC" 
                       maxlength="13" placeholder="Buscar por RFC" />
            </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 (!string.IsNullOrEmpty(Model.ClienteRFC))
        {
            <h6 class="mb-3">Resultados para RFC: <strong>@Model.ClienteRFC</strong></h6>
            
            @if (Model.ClientesEncontrados.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>Dirección</th>
                                <th>Población</th>
                                <th>Estado</th>
                            </tr>
                        </thead>
                        <tbody>
                            @foreach (var cli in Model.ClientesEncontrados)
                            {
                                <tr>
                                    <td>@cli.CLACLI</td>
                                    <td>@cli.NOMCLI</td>
                                    <td>@cli.RFCCLI</td>
                                    <td>@cli.CALCLI @cli.NUMCLI @cli.NUMICLI, @cli.COLCLI</td>
                                    <td>@cli.POBCLI</td>
                                    <td>@cli.EDOCLI</td>
                                </tr>
                            }
                        </tbody>
                    </table>
                </div>
                
                <div class="alert alert-info mt-3">
                    <i class="bi bi-info-circle"></i> El cliente ya existe en el sistema.
                </div>
            }
            else
            {
                <div class="alert alert-success">
                    <i class="bi bi-check-circle"></i> No se encontró ningún cliente con este RFC. Puede proceder a dar de alta.
                </div>
                
                <a href="/Clientes/Agregar?RFC=@Model.ClienteRFC" class="btn btn-success">
                    <i class="bi bi-plus-circle"></i> Agregar Nuevo Cliente
                </a>
            }
        }
        else
        {
            <div class="alert alert-secondary">
                <i class="bi bi-info-circle"></i> Ingrese un RFC para verificar si el cliente ya existe.
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

cliadd.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

DELETE Delete from ClienteSRFC;

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

INSERT INSERT INTO ClienteSRFC (EMPRESA, SUCURSAL, CLAVE, NOMBRE, RFC, CALLE, NUMERO, ...

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)