Detalle: cordirmod.asp

cordirmod.asp

Ir a la Página Volver a la Lista

Archivo ASP

cordirmod.asp

Página Razor

Compras/Cordirmod.cshtml

Módulo

Compras

Líneas de Código

270

Características

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

Tablas Utilizadas (6)

Corddtem Fpeddet corddtem creqdet fpeddet multialmacen

Consultas SQL (15)

SQL Original (ASP)

Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet where Npefpedd = "& Pedi &";

Tablas: fpeddet

SQL Original (ASP)

Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet where Npefpedd = "& Pedi &" and Secfpedd = "& Parti &";

Tablas: fpeddet

SQL Original (ASP)

select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE

SQL Original (ASP)

Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet where Npefpedd =

Tablas: fpeddet

SQL Original (ASP)

Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, Corddtem

Tablas: fpeddet

SQL Original (ASP)

Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, Corddtem  where Npefpedd = "& Pedi &" and Secfpedd = "& Parti &" and Almfpedd = almtdord and regtdord = "& Regi &"  and codfpedd = codtdord

Tablas: fpeddet

SQL Original (ASP)

select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE  Case WHEN UCOMUL >= CPMUL AND UCOMUL >= (PREOINV * Tcadiv) THEN UCOMUL ELSE  Case WHEN (PREOINV * Tcadiv) >= CPMUL AND (PREOINV * Tcadiv) >= UCOMUL THEN (PREOINV * Tcadiv) ELSE  0 END END END  AS MAXIMO  From multialmacen, Monedas, Inventarios "&_ where artmul = '"& Code &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv

Tablas: multialmacen

SQL Original (ASP)

Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, Corddtem  where Npefpedd = "& Pedi &" and Secfpedd = "& Parti &" and Almfpedd = almtdord and regtdord = "& Regi &

Tablas: fpeddet

SQL Original (ASP)

update Fpeddet set Reqfpded = 0 from corddtem

Tablas: corddtem Fpeddet

SQL Original (ASP)

update corddtem set cantdord = '"& Cantidad &"', Pretdord = '"& Precio &"', destdord = '"& Des &"',  pincord = "& Pedi &", ppicord = "& Parti &", fptdord = '"& Fentrega &"', unitdord = "& unitario &",  COATZA = ("& CostoCoa&"/Tcatdord), MEXICO = ("& CostomEX&"/Tcatdord), PUEBLA = ("& CostoPue&"/Tcatdord), TOLUCA = ("& CostoTol&"/Tcatdord), GUADALAJARA = ("& CostoGua&"/Tcatdord),  Pvecord = unifpedd, Pmocord = monfpedd, ptccord = tcafpedd ,Nparte = '"& Npoc &"' from fpeddet  where regtdord = '"& Regi &"' and npefpedd = "& Pedi &" and secfpedd = "& Parti &" and almfpedd = almtdord  and codfpedd = codtdord

Tablas: corddtem fpeddet

SQL Original (ASP)

update corddtem set cantdord = '

Tablas: corddtem

SQL Original (ASP)

update corddtem set cantdord = '"& Cantidad &"', Pretdord = '"& Precio &"', destdord = '"& Des &"',  pincord = "& Pedi &", ppicord = "& Parti &",  fptdord = '"& Fentrega &"', unitdord = '"& unitario &"',  COATZA = ("& CostoCoa&"/Tcatdord), MEXICO = ("& CostomEX&"/Tcatdord), PUEBLA = ("& CostoPue&"/Tcatdord), TOLUCA = ("& CostoTol&"/Tcatdord), GUADALAJARA = ("& CostoGua&"/Tcatdord), Nparte= '"& Npoc&"'  where regtdord = '"& Regi &"'

Tablas: corddtem

SQL Original (ASP)

update Fpeddet set Reqfpded = 0 from corddtem  where regtdord = '"& Regi &"' and npefpedd = "& Pedi &" and secfpedd = "& Parti &" and almfpedd = almtdord  and codfpedd = codtdord and reqfpded is null

Tablas: corddtem Fpeddet

SQL Original (ASP)

update Corddtem set Reqtem = regreqd from creqdet

Tablas: creqdet Corddtem

SQL Original (ASP)

update Corddtem set Reqtem = regreqd from creqdet  where regtdord = '"& Regi &"' and pedreqd= "& Pedi &" and parreqd = "& Parti &" and almreqd = almtdord  and codreqd = codtdord

Tablas: creqdet Corddtem

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`ordendir.asp`	form_action	Compras	Portada	ordendir

<% Option Explicit %>
<% Session.LCID = 2058 %> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="refe.css">
<script type="text/javascript">
function goBack()
  {
  window.history.back()
  }
</script>
</head>

<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:0px">
<center>

<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:5px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"--> 
</div>
<div class="normal" style="position:absolute; top:80px; left:10">
<center>

<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14, Rs15, Sql15
Dim Rs16, Sql16, Rs17, sql17, Rs18, Sql18, Rs19, Sql19, Rs20, Sql20
Dim Unitario
Dim Provee, Mone, Iva, Regi, Cantidad, Precio, Des, Fentrega
Dim Prod, Dcor, Linea, Sublinea, Alma, Origen, Pedi, Parti
Dim AlmaP, Code,npoc

Provee = Request.Form("Provee")
Mone = Request.Form("Mone")
Iva = Request.Form("Iva")
Origen = Request.Form("Origen")

Regi = Request.Form("Regi")
Cantidad = Request.Form("Cantidad")
Precio = Request.Form("Precio")
Des = Request.Form("Des")
Fentrega = Request.form("Fentrega")
Pedi = Request("PedI")
Parti = Request("Parti")
Prod = Request.form("Prod")
Dcor = Request.form("Dcor")
Linea = Request.form("Linea")
Sublinea = Request.form("Sublinea")
Alma = Request("Alma")
Npoc = Request("Npoc")
Code = Request("Code")

Unitario = Precio - ( Precio * Des/100 )

Dim Cn2, Cn3, Cn4, Cn5, Cn6
Dim CostoCoa, CostoMex, CostoPue, CostoTol, costoGua
Dim Rs31, Rs32, Rs33, Rs34, Rs35
Dim Sql31, Sql32, Sql33, Sql34, Sql35

Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Set Cn3 = Server.CreateObject( "ADODB.Connection" )
Set Cn4 = Server.CreateObject( "ADODB.Connection" )
Set Cn5 = Server.CreateObject( "ADODB.Connection" )
Set Cn6 = Server.CreateObject( "ADODB.Connection" )

Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=COATZA"
Cn3.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=MEXICO"
Cn4.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=PUEBLA"
Cn5.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=TOLUCA"
Cn6.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=GUADALAJARA"


<!----  COSTOS DE COATZA ----->
Set Rs15= Server.CreateObject("ADODB.Recordset")
Sql15 = "select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE " &_
		"Case WHEN UCOMUL >= CPMUL AND UCOMUL >= (PREOINV * Tcadiv) THEN UCOMUL ELSE " &_
		"Case WHEN (PREOINV * Tcadiv) >= CPMUL AND (PREOINV * Tcadiv) >= UCOMUL THEN (PREOINV * Tcadiv) ELSE " &_
		"0 END END END  AS MAXIMO " &_
		"From multialmacen, Monedas, Inventarios "&_
		"where artmul = '"& Code &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv;"
Rs15.Open Sql15,Cn2,1,2

If Rs15.Eof Then
CostoCoa = 0
Else
CostoCoa = Cdbl(Rs15("Maximo")) / 0.995
End If

<!----  COSTOS DE MEXICO ----->
Set Rs16= Server.CreateObject("ADODB.Recordset")
Sql16 = "select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE " &_
		"Case WHEN UCOMUL >= CPMUL AND UCOMUL >= (PREOINV * Tcadiv) THEN UCOMUL ELSE " &_
		"Case WHEN (PREOINV * Tcadiv) >= CPMUL AND (PREOINV * Tcadiv) >= UCOMUL THEN (PREOINV * Tcadiv) ELSE " &_
		"0 END END END  AS MAXIMO " &_
		"From multialmacen, Monedas, Inventarios "&_
		"where artmul = '"& Code &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv;"
Rs16.Open Sql16,Cn3,1,2

If Rs16.Eof Then
CostoMex = 0
Else
CostoMex = Cdbl(Rs16("Maximo")) / 0.995
End If


<!----  COSTOS DE PUEBLA ----->
Set Rs17= Server.CreateObject("ADODB.Recordset")
Sql17 = "select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE " &_
		"Case WHEN UCOMUL >= CPMUL AND UCOMUL >= (PREOINV * Tcadiv) THEN UCOMUL ELSE " &_
		"Case WHEN (PREOINV * Tcadiv) >= CPMUL AND (PREOINV * Tcadiv) >= UCOMUL THEN (PREOINV * Tcadiv) ELSE " &_
		"0 END END END  AS MAXIMO " &_
		"From multialmacen, Monedas, Inventarios "&_
		"where artmul = '"& Code &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv;"
Rs17.Open Sql17,Cn4,1,2

If Rs17.Eof Then
CostoPue = 0
Else
CostoPue = Cdbl(Rs17("Maximo")) / 0.995
End If

<!----  COSTOS DE TOLUCA ----->
Set Rs18= Server.CreateObject("ADODB.Recordset")
Sql18 = "select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE " &_
		"Case WHEN UCOMUL >= CPMUL AND UCOMUL >= (PREOINV * Tcadiv) THEN UCOMUL ELSE " &_
		"Case WHEN (PREOINV * Tcadiv) >= CPMUL AND (PREOINV * Tcadiv) >= UCOMUL THEN (PREOINV * Tcadiv) ELSE " &_
		"0 END END END  AS MAXIMO " &_
		"From multialmacen, Monedas, Inventarios "&_
		"where artmul = '"& Code &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv;"
Rs18.Open Sql18,Cn5,1,2

If Rs18.Eof Then
CostoTol = 0
Else
CostoTol = Cdbl(Rs18("Maximo")) / 0.995
End If

<!----  COSTOS DE GUADALAJARA ----->
Set Rs19= Server.CreateObject("ADODB.Recordset")
Sql19 = "select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE " &_
		"Case WHEN UCOMUL >= CPMUL AND UCOMUL >= (PREOINV * Tcadiv) THEN UCOMUL ELSE " &_
		"Case WHEN (PREOINV * Tcadiv) >= CPMUL AND (PREOINV * Tcadiv) >= UCOMUL THEN (PREOINV * Tcadiv) ELSE " &_
		"0 END END END  AS MAXIMO " &_
		"From multialmacen, Monedas, Inventarios "&_
		"where artmul = '"& Code &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv;"
Rs19.Open Sql19,Cn6,1,2

If Rs19.Eof Then
CostoGua = 0
Else
CostoGua = Cdbl(Rs19("Maximo")) / 0.995
End If

If Cdbl(Pedi) = 0 then

set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="update corddtem set cantdord = '"& Cantidad &"', Pretdord = '"& Precio &"', destdord = '"& Des &"', " &_
"pincord = "& Pedi &", ppicord = "& Parti &", " &_
"fptdord = '"& Fentrega &"', unitdord = '"& unitario &"', " &_
"COATZA = ("& CostoCoa&"/Tcatdord), MEXICO = ("& CostomEX&"/Tcatdord), PUEBLA = ("& CostoPue&"/Tcatdord), TOLUCA = ("& CostoTol&"/Tcatdord), GUADALAJARA = ("& CostoGua&"/Tcatdord), Nparte= '"& Npoc&"' " &_
"where regtdord = '"& Regi &"';"
Cn1.Execute Sql11
Response.Redirect("Ordendir.asp?provee="&Provee&"&Mone="&Mone&"&Iva="&Iva&"&Origen="& Origen &"&Prod="&Prod&"&Dcor="&Dcor&"&Linea="&Linea&"&Sublinea="&Sublinea&"&Alma="&Alma&"")
Else If Cdbl(Parti) > 0 then

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet where Npefpedd = "& Pedi &";"
Rs12.open Sql12,cn1,1,2

	If Rs12.Eof then 
	%>
	Mensaje 1: No existe el pedido <%= Pedi %><br><br>
	<input type="button" class="normalb" value="Regresar" onclick="goBack()" />
	<%
	Else
	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13="Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet where Npefpedd = "& Pedi &" and Secfpedd = "& Parti &";"
	Rs13.open Sql13,cn1,1,2
	
		If Rs13.Eof then
		%>
		Mensaje 2: No existe La  Partida <%= Parti %> del Pedido <%= Pedi %><br><br>
		<input type="button" class="normalb" value="Regresar" onclick="goBack()" />
		
		<%
		Else
			Set Rs14 = server.CreateObject("ADODB.Recordset")
			Sql14="Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, Corddtem " &_
			"where Npefpedd = "& Pedi &" and Secfpedd = "& Parti &" and Almfpedd = almtdord and regtdord = "& Regi &";"
			Rs14.open Sql14,cn1,1,2
			
			If Rs14.Eof then 
			%>
			Mensaje 3: No Coincide el Almacen de  La  Partida <%= Parti %> del Pedido <%= Pedi %><br><br>
			<input type="button" class="normalb" value="Regresar" onclick="goBack()" />
			
			<%
			Else
				Set Rs15 = server.CreateObject("ADODB.Recordset")
				Sql15="Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, Corddtem " &_
				"where Npefpedd = "& Pedi &" and Secfpedd = "& Parti &" and Almfpedd = almtdord and regtdord = "& Regi &" " &_
				"and codfpedd = codtdord;"
				Rs15.open Sql15,cn1,1,2
				
				If Rs15.Eof Then
				%>
				Mensaje 4: No Coincide el Codigo de  La  Partida <%= Parti %> del Pedido <%= Pedi %><br><br>
				<input type="button" class="normalb" value="Regresar" onclick="goBack()" />
				
				<%
				Else
				
				Set Rs16 = server.CreateObject("ADODB.Recordset")
				Sql16="update corddtem set cantdord = '"& Cantidad &"', Pretdord = '"& Precio &"', destdord = '"& Des &"', " &_
				"pincord = "& Pedi &", ppicord = "& Parti &", fptdord = '"& Fentrega &"', unitdord = "& unitario &", " &_
				"COATZA = ("& CostoCoa&"/Tcatdord), MEXICO = ("& CostomEX&"/Tcatdord), PUEBLA = ("& CostoPue&"/Tcatdord), TOLUCA = ("& CostoTol&"/Tcatdord), GUADALAJARA = ("& CostoGua&"/Tcatdord), " &_
				"Pvecord = unifpedd, Pmocord = monfpedd, ptccord = tcafpedd ,Nparte = '"& Npoc &"' from fpeddet " &_
				"where regtdord = '"& Regi &"' and npefpedd = "& Pedi &" and secfpedd = "& Parti &" and almfpedd = almtdord " &_
				"and codfpedd = codtdord;"
				Cn1.Execute Sql16

				Set Rs17 = server.CreateObject("ADODB.Recordset")
				Sql17="update Fpeddet set Reqfpded = 0 from corddtem " &_
				"where regtdord = '"& Regi &"' and npefpedd = "& Pedi &" and secfpedd = "& Parti &" and almfpedd = almtdord " &_
				"and codfpedd = codtdord and reqfpded is null;"
				Cn1.Execute Sql17

				Set Rs18 = server.CreateObject("ADODB.Recordset")
				Sql18="update Corddtem set Reqtem = regreqd from creqdet " &_
				"where regtdord = '"& Regi &"' and pedreqd= "& Pedi &" and parreqd = "& Parti &" and almreqd = almtdord " &_
				"and codreqd = codtdord;"
				Cn1.Execute Sql18


Response.Redirect("Ordendir.asp?provee="&Provee&"&Mone="&Mone&"&Iva="&Iva&"&Origen="& Origen &"&Prod="&Prod&"&Dcor="&Dcor&"&Linea="&Linea&"&Sublinea="&Sublinea&"&Alma="&Alma&"")
				Response.write(Code)
				End If
			End If
		End If

	End If
End If
End If




%>
<hr>
</div>
</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.RazorPages;
namespace MimPortal.Pages.Compras { public class CordirmodModel : PageModel { public void OnGet() { } } }

@page
@model MimPortal.Pages.Compras.CordirmodModel
@{ ViewData["Title"] = "Cordirmod"; }
<div class="container-fluid">
    <h4 class="mb-4"><i class="fas fa-shopping-cart"></i> Cordirmod</h4>
    <div class="card"><div class="card-body">
        <p>Módulo Cordirmod - En desarrollo</p>
    </div></div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

cordirmod.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet w...

SQL Original (ASP)

SELECT Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet w...

SQL Original (ASP)

SELECT select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE

SQL Original (ASP)

SELECT Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet w...

SQL Original (ASP)

SELECT Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, ...

SQL Original (ASP)

SELECT Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, ...

SQL Original (ASP)

SELECT select Case When CPMUL >= UCOMUL AND CPMUL >= (PREOINV * Tcadiv) THEN CPMUL ELSE...

SQL Original (ASP)

SELECT Select Npefpedd, Secfpedd, Almfpedd, Codfpedd, Canfpedd, cpefpedd from fpeddet, ...

SQL Original (ASP)

UPDATE update Fpeddet set Reqfpded = 0 from corddtem

SQL Original (ASP)

UPDATE update corddtem set cantdord = '"& Cantidad &"', Pretdord = '"& Precio &"', dest...

SQL Original (ASP)

UPDATE update corddtem set cantdord = '

SQL Original (ASP)

UPDATE update corddtem set cantdord = '"& Cantidad &"', Pretdord = '"& Precio &"', dest...

SQL Original (ASP)

UPDATE update Fpeddet set Reqfpded = 0 from corddtem where regtdord = '"& Regi &"' and...

SQL Original (ASP)

UPDATE update Corddtem set Reqtem = regreqd from creqdet

SQL Original (ASP)

UPDATE update Corddtem set Reqtem = regreqd from creqdet where regtdord = '"& Regi &"'...

SQL Original (ASP)