Detalle: ordenup.asp

ordenup.asp

Ir a la Página Volver a la Lista

Archivo ASP

ordenup.asp

Página Razor

Compras/Ordenup.cshtml

Módulo

Compras

Líneas de Código

262

Características

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

Tablas Utilizadas (7)

Corddet Cordenc Inventarios Monedas Proveedores corddet multialmacen

Consultas SQL (16)

SQL Original (ASP)

select * from Monedas where Cladiv = "& Moneda &";

Tablas: Monedas

SQL Original (ASP)

Select CvePrv, Tipop  " &_  From Proveedores, Cordenc " &_  Where Numore = "& Numord &" and Proore = CvePrv

Tablas: Proveedores

SQL Original (ASP)

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

SQL Original (ASP)

Select CvePrv, Tipop

SQL Original (ASP)

select * from Monedas where Cladiv =

Tablas: Monedas

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 sum (csoord * punord) as Subtotal from corddet where numord = "& Numord &";

Tablas: corddet

SQL Original (ASP)

select sum (csoord * punord) as Subtotal from corddet where numord =

Tablas: corddet

SQL Original (ASP)

update Corddet set Secord =

Tablas: Corddet

SQL Original (ASP)

Update Inventarios set cominv = (cominv + (

Tablas: Inventarios

SQL Original (ASP)

update Cordenc set FirmaD = 'SIS99999'

Tablas: Cordenc

SQL Original (ASP)

update Corddet set Secord = "& Request("item_"&element) &",  Csoord = "& Request("cant_"&element) &",  Cpeord = ("& Request("pen_"&element) &" )	,  Pliord = "& Request("Pre_"&element) &",  desord = "& Request("Desc_"&element) &",  Punord = ("& Request("Pre_"&element) &" - (("& Request("Pre_"&element) &" * "& Request("Desc_"&element) &") / 100)),  fpord = '"& Request("Fent_"&element) &"',  Monord = "& Moneda &", Tcaord = "& Tcam &",  COATZA = ("& CostoCoa&"/"& Tcam &"), MEXICO = ("& CostomEX&"/"& Tcam &"), PUEBLA = ("& CostoPue&"/"& Tcam &"), TOLUCA = ("& CostoTol&"/"& Tcam &"), GUADALAJARA = ("& CostoGua&"/"& Tcam &"),nparte= '"& Request("Np_"&element) &"'  where regord = "& Request("txt_"&element) &

Tablas: Corddet

SQL Original (ASP)

Update multialmacen set cxrmul = (cxrmul + (

Tablas: multialmacen

SQL Original (ASP)

update Cordenc set FirmaD = 'SIS99999'  where numore ="& Numord &

Tablas: Cordenc

SQL Original (ASP)

Update Cordenc set subore =

Tablas: Cordenc

SQL Original (ASP)

Update Cordenc set subore = "& rs32("subtotal") &", Ivtore = "& Iva &",  totore = "& Total &", labore = '"& Lab &"', embore = '"& Sanea(Embarque) &"',  Obsore = '"& sanea(Obs) &"', monore = "& Moneda &", tcaore = "& tcam &", Staore = '"& Status &"', " &_  ivaore = "& Impu &", condiciones = '"& Sanea(Condiciones) &"', oriore = "& Origen &", Firmad=NULL, " &_  DiasOre = "& DiasC &", Ppagoore = "& ProntoP &", Descore = "& Descore &", staoc = 1 ,Fecauto = '"& factual &"'  where numore = "& NumOrd &

Tablas: Cordenc

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
`ordenmodi.asp`	form_action	Compras	Portada	Compras/Ordenmodi.cshtml

<% Option Explicit %>
<% Session.LCID = 2058 %> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
</head>

<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->

<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>

<div class="normalw" style="position:absolute; top:1px;">
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:60px; left:10">
<%
Dim rs31,sql31, rs32, sql32, rs33, sql33, rs34, sql34
Dim rs20, sql20, rs21, sql21
Dim Numord, Moneda, Impu, Lab, Embarque, Obs, condiciones, Origen
Dim DiasC, ProntoP, Descore
Dim Iva, Tcam
Dim Status
Dim Factual

Dim rs14, sql14, rs15, sql15, rs16, sql16, rs17, sql17
Dim rs18, sql18, rs19, sql19

Dim Cn2, Cn3, Cn4, Cn5, Cn6
Dim CostoCoa, CostoMex, CostoPue, CostoTol, CostoGua


'Variables para el Header
NumOrd = request.Form("NumOrd")
Moneda = request.Form("Moneda")
Impu = request.Form("Impu")
Lab = request.Form("Lab")
Embarque = request.Form("Embarque")
Obs = request.Form("Obs")
Status = Request("status")
Condiciones = Request("condiciones")
Origen = Request("Origen")

DiasC = Request("DiasC")
ProntoP = Request("ProntoP")
Descore = Request("Descore")
Factual = date

If ProntoP= "" Or Isnull(ProntoP) Then
	ProntoP = 0 
Else 
	ProntoP = ProntoP
End If

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"

set rs31 = server.CreateObject("ADODB.Recordset")
Dim results, element, testing, code, cod, Codinp

for each element in request("chk")



<!----  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

set rs33 = server.CreateObject("ADODB.Recordset")
sql33 ="select * from Monedas where Cladiv = "& Moneda &";"
rs33.open sql33,cn3,1,2
Tcam = rs33("Tcadiv")

sql31="update Corddet set Secord = "& Request("item_"&element) &", " &_
"Csoord = "& Request("cant_"&element) &", " &_
"Cpeord = ("& Request("pen_"&element) &" )	, " &_
"Pliord = "& Request("Pre_"&element) &", " &_
"desord = "& Request("Desc_"&element) &", " &_
"Punord = ("& Request("Pre_"&element) &" - (("& Request("Pre_"&element) &" * "& Request("Desc_"&element) &") / 100)), " &_
"fpord = '"& Request("Fent_"&element) &"', " &_
"Monord = "& Moneda &", Tcaord = "& Tcam &", " &_
"COATZA = ("& CostoCoa&"/"& Tcam &"), MEXICO = ("& CostomEX&"/"& Tcam &"), PUEBLA = ("& CostoPue&"/"& Tcam &"), TOLUCA = ("& CostoTol&"/"& Tcam &"), GUADALAJARA = ("& CostoGua&"/"& Tcam &"),nparte= '"& Request("Np_"&element) &"' " &_
"where regord = "& Request("txt_"&element) &";"
Cn1.Execute sql31

'set rs20 = server.CreateObject("ADODB.Recordset")
'sql20 = "Update Inventarios set cominv = (cominv + ("& Request("Cant_"&element) &" - "& Request("Cori_"&element) &")) " &_
'"where cveinv = '"& Request("Cod_"&element) &"';"
'Cn1.Execute sql20

'set rs21 = server.CreateObject("ADODB.Recordset")
'sql21 = "Update multialmacen set cxrmul = (cxrmul + ("& Request("Cant_"&element) &" - "& Request("Cori_"&element) &")) " &_
'"where artmul = '"& Request("Cod_"&element) &"' and almmul = "& Request("Almo_"&element) &";"
'Cn1.Execute sql21
next

set rs32 = server.CreateObject("ADODB.Recordset")
sql32 ="select sum (csoord * punord) as Subtotal from corddet where numord = "& Numord &";"
rs32.open sql32,cn1,1,2
Iva = (Cdbl(Impu) / 100) * Cdbl(rs32("subtotal"))
Dim Total 
Total = Cdbl(rs32("subtotal")) + Cdbl(Iva)

dim rs35, sql35
set rs35 = server.CreateObject("ADODB.Recordset")
sql35 ="Update Cordenc set subore = "& rs32("subtotal") &", Ivtore = "& Iva &", " &_
"totore = "& Total &", labore = '"& Lab &"', embore = '"& Sanea(Embarque) &"', " &_
"Obsore = '"& sanea(Obs) &"', monore = "& Moneda &", tcaore = "& tcam &", Staore = '"& Status &"', " &_ 
"ivaore = "& Impu &", condiciones = '"& Sanea(Condiciones) &"', oriore = "& Origen &", Firmad=NULL, " &_ 
"DiasOre = "& DiasC &", Ppagoore = "& ProntoP &", Descore = "& Descore &", staoc = 1 ,Fecauto = '"& factual &"' " &_
"where numore = "& NumOrd &";"
Cn1.Execute sql35

'***** autorizacion sucursales *****


'***** Conexion A la Tabla Empresa ****
Dim Rs36, Rs37
Dim Sql36, Sql37
Dim TipoP

Set Rs36 = Server.CreateObject("ADODB.Recordset")
Sql36="Select CvePrv, Tipop  " &_ 
"From Proveedores, Cordenc " &_ 
"Where Numore = "& Numord &" and Proore = CvePrv;"
Rs36.Open Sql36,Cn1,1,2

	TipoP = Rs36("TipoP")
	
	
	If TipoP = "S" Then

	Set Rs37 = server.CreateObject("ADODB.Recordset")
	Sql37 = "update Cordenc set FirmaD = 'SIS99999' " &_
	"where numore ="& Numord &";"
	Cn1.Execute Sql37
	
	Else
	
	End If


Response.Redirect("Ordesp.asp?NumOrd="& NumOrd &"&Empresa="&Negocio&"")
%>
</div>

<div style="position:absolute; top:110px; left:1">

</div>

<div style="position:absolute; top:140; width:760">
</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 OrdenupModel : PageModel { public void OnGet() { } } }

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

MATERIALES INDUSTRIALES DE MEXICO

ordenup.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT select * from Monedas where Cladiv = "& Moneda &";

SQL Original (ASP)

SELECT Select CvePrv, Tipop " &_ From Proveedores, Cordenc " &_ Where Numore = "& Nu...

SQL Original (ASP)

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

SQL Original (ASP)

SELECT Select CvePrv, Tipop

SQL Original (ASP)

SELECT select * from Monedas where Cladiv =

SQL Original (ASP)

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

SQL Original (ASP)

SELECT select sum (csoord * punord) as Subtotal from corddet where numord = "& Numord &...

SQL Original (ASP)

SELECT select sum (csoord * punord) as Subtotal from corddet where numord =

SQL Original (ASP)

UPDATE update Corddet set Secord =

SQL Original (ASP)

UPDATE Update Inventarios set cominv = (cominv + (

SQL Original (ASP)

UPDATE update Cordenc set FirmaD = 'SIS99999'

SQL Original (ASP)

UPDATE update Corddet set Secord = "& Request("item_"&element) &", Csoord = "& Request...

SQL Original (ASP)

UPDATE Update multialmacen set cxrmul = (cxrmul + (

SQL Original (ASP)

UPDATE update Cordenc set FirmaD = 'SIS99999' where numore ="& Numord &

SQL Original (ASP)

UPDATE Update Cordenc set subore =

SQL Original (ASP)

UPDATE Update Cordenc set subore = "& rs32("subtotal") &", Ivtore = "& Iva &", totore ...

SQL Original (ASP)