Detalle: ordenrgp.asp

ordenrgp.asp

Ir a la Página Volver a la Lista

Archivo ASP

ordenrgp.asp

Página Razor

Compras/Ordenrgp.cshtml

Módulo

Compras

Líneas de Código

237

Características

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

Tablas Utilizadas (7)

COrddtem Consecutivos Cordm Monedas Proveedores creqdet multialmacen

Consultas SQL (11)

SQL Original (ASP)

Insert into COrddtem (doctdord, almtdord, cantdord, codtdord, PINCORD, PPICORD, PVECORD,  PMOCORD, PTCCORD, Reqtem, pretdord, destdord, unitdord, montdord,  tcatdord, fptdord, obstdord, COATZA, MEXICO, PUEBLA, TOLUCA, GUADALAJARA, Nparte)  select "& Docu &", almreqd, casreqd, codreqd, PEDREQD, PARREQD, PPEREQD, MONREQD, TCAREQD,  Regreqd, "& Request("Uco_"&element) &", 0, "& Request("Uco_"&element) &",  "& Mone &", "& TCam &", (CONVERT(DATE,dateadd(wk,"& Request("Fen_"&element) &", getdate()))), Obsreqd, ("& CostoCoa &"/"& Tcam &"),  ("& CostoMex&"/"& Tcam &"), ("& CostoPue&"/"& Tcam &"), ("& CostoTol&"/"& Tcam &"), ("& CostoGua&"/"& Tcam &"), '"& Request("Np_"&element) &"'  FROM creqdet  where regreqd = "& Request("Reg_"&element) &"  ORDER BY PEDREQD ASC, PARREQD ASC

Tablas: creqdet COrddtem

SQL Original (ASP)

Insert into COrddtem (doctdord, almtdord, cantdord, codtdord, PINCORD, PPICORD, PVECORD,

Tablas: COrddtem

SQL Original (ASP)

Select Cladiv, tcadiv from Monedas where Cladiv = "& Mone &";

Tablas: Monedas

SQL Original (ASP)

select * from Cordm where usuario = '

Tablas: Cordm

SQL Original (ASP)

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

SQL Original (ASP)

Select Cladiv, tcadiv 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 = '"& Request("Cod_"&element) &"' and Almmul = 1 and Cveinv = artmul and Mplinv = Cladiv

Tablas: multialmacen

SQL Original (ASP)

Select Folord from Consecutivos;

Tablas: Consecutivos

SQL Original (ASP)

Select Cveprv, Diaprv from Proveedores where cveprv = '"& Provee &"';

Tablas: Proveedores

SQL Original (ASP)

Select Cveprv, Diaprv from Proveedores where cveprv = '

Tablas: Proveedores

SQL Original (ASP)

select * from Cordm where usuario = '" & nombre & "' order by Ordens;

Tablas: Cordm

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 (2) Páginas que enlazan a esta página

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`ordenreq-1.asp`	form_action	Compras	Pendiente	-
`ordenreq.asp`	form_action	Compras	Pendiente	-

<%  
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">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
//  End -->
</script>

</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 rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Cordm where usuario = '" & nombre & "' order by Ordens;"
rs5.open sql5,cn1,1,2
%>

<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("Ordenm")%>.asp"><img src="Image/<%=rs5.fields("Ordenn")%>.gif" border=0 alt="<%=rs5.fields("Ordenn")%>"></a>
<%
rs5.MoveNext
loop
%>

</div>

<div class="normal" style="position:absolute; top:100px; left:1">

<hr>
<%
Dim Rs10, sql10, Rs11, Sql11, rs12, sql12, rs13, sql13
Dim rs14, sql14, rs15, sql15, rs16, sql16, rs17, sql17
Dim rs18, sql18, rs19, sql19

Dim NumOrd, DiaCre, DiaA, Tcam, Status, L1
Dim Provee, Mone, Iva, Secu, Folioweb
Dim Subtotal, Ivf, Total, Docu, Origen

Dim Cn2, Cn3, Cn4, Cn5, Cn6
Dim CostoCoa, CostoMex, CostoPue, CostoTol, CostoGua, Npoc
Npoc = Request("Npoc")
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" )


Subtotal = 0
set rs10 = server.CreateObject("ADODB.Recordset")
sql10="Select Folord from Consecutivos;"
rs10.Open SQL10, cn1

l1 = ""
Folioweb = rs10("folord") + 1
Provee = request.Form("Provee")
Iva = request.Form("Iva")
Mone = request.Form("Mone")
Origen = Request("origen")
Secu = 0 
Docu = session.sessionID

set rs11 = server.CreateObject("ADODB.Recordset")
sql11="Select Cveprv, Diaprv from Proveedores where cveprv = '"& Provee &"';"
rs11.Open SQL11, cn1

set rs12 = server.CreateObject("ADODB.Recordset")
sql12="Select Cladiv, tcadiv from Monedas where Cladiv = "& Mone &";"
rs12.Open SQL12, cn1

Tcam = rs12("tcadiv")
Status = 0

DiaCre = rs11("diaprv")
DiaA = date()

Dim results, element, testing, Cero, Cod
Cero = 0

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"

for each element in request("chk")
Secu = secu + 1

<!----  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 = '"& Request("Cod_"&element) &"' 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 = '"& Request("Cod_"&element) &"' 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 = '"& Request("Cod_"&element) &"' 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 = '"& Request("Cod_"&element) &"' 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 = '"& Request("Cod_"&element) &"' 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 rs14 = server.CreateObject("ADODB.Recordset")
sql14="Insert into COrddtem (doctdord, almtdord, cantdord, codtdord, PINCORD, PPICORD, PVECORD, " &_
"PMOCORD, PTCCORD, Reqtem, pretdord, destdord, unitdord, montdord, " &_
"tcatdord, fptdord, obstdord, COATZA, MEXICO, PUEBLA, TOLUCA, GUADALAJARA, Nparte) " &_
"select "& Docu &", almreqd, casreqd, codreqd, PEDREQD, PARREQD, PPEREQD, MONREQD, TCAREQD, " &_
"Regreqd, "& Request("Uco_"&element) &", 0, "& Request("Uco_"&element) &", " &_
""& Mone &", "& TCam &", (CONVERT(DATE,dateadd(wk,"& Request("Fen_"&element) &", getdate()))), Obsreqd, ("& CostoCoa &"/"& Tcam &"), " &_
"("& CostoMex&"/"& Tcam &"), ("& CostoPue&"/"& Tcam &"), ("& CostoTol&"/"& Tcam &"), ("& CostoGua&"/"& Tcam &"), '"& Request("Np_"&element) &"' " &_
"FROM creqdet " &_
"where regreqd = "& Request("Reg_"&element) &" " &_
"ORDER BY PEDREQD ASC, PARREQD ASC;"
Cn1.Execute sql14



next

Response.Redirect("Ordendir.asp?provee="&Provee&"&Mone="& Mone& "&Iva="&Iva&"&Origen="& Origen &"")
%>

</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 OrdenrgpModel : PageModel { public void OnGet() { } } }

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

MATERIALES INDUSTRIALES DE MEXICO

ordenrgp.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

INSERT Insert into COrddtem (doctdord, almtdord, cantdord, codtdord, PINCORD, PPICORD, ...

SQL Original (ASP)

INSERT Insert into COrddtem (doctdord, almtdord, cantdord, codtdord, PINCORD, PPICORD, ...

SQL Original (ASP)

SELECT Select Cladiv, tcadiv from Monedas where Cladiv = "& Mone &";

SQL Original (ASP)

SELECT select * from Cordm where usuario = '

SQL Original (ASP)

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

SQL Original (ASP)

SELECT Select Cladiv, tcadiv 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 Folord from Consecutivos;

SQL Original (ASP)

SELECT Select Cveprv, Diaprv from Proveedores where cveprv = '"& Provee &"';

SQL Original (ASP)

SELECT Select Cveprv, Diaprv from Proveedores where cveprv = '

SQL Original (ASP)

SELECT select * from Cordm where usuario = '" & nombre & "' order by Ordens;

SQL Original (ASP)