Detalle: ordentrac.asp

ordentrac.asp

Ir a la Página Volver a la Lista

Archivo ASP

ordentrac.asp

Página Razor

Compras/Ordentrac.cshtml

Módulo

Compras

Líneas de Código

392

Características

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

Tablas Utilizadas (7)

CLIENTES CORDDET Corddet Cordenc Cordm Cordtrac FPEDDET

Consultas SQL (14)

SQL Original (ASP)

insert into Cordtrac (NumordT) values(

Tablas: Cordtrac

SQL Original (ASP)

insert into Cordtrac (NumordT) values("& Numord &")

Tablas: Cordtrac

SQL Original (ASP)

select * from Cordm where usuario = '

Tablas: Cordm

SQL Original (ASP)

select Numore from Cordenc where Numore =

Tablas: Cordenc

SQL Original (ASP)

select Numore from Cordenc where Numore = "& Numord &";

Tablas: Cordenc

SQL Original (ASP)

select Numordt, NumfraT, PagoT, FEAT, PGCT, PRT, FCT, FSPT, NFT, DPT, EAT, FECT, FPET, FEMT, STAT, AVAT, FSPAT, FPAT, Proore, Nomprv, NOTAST, DCPRT, Fecore, Subore, Desdiv  from Cordtrac, Cordenc, Proveedores, MONEDAS  where NumordT = "& Numord &" and Numore = numordt and Proore = Cveprv AND CLADIV = MONORE

Tablas: Cordtrac

SQL Original (ASP)

Select Count(secord) as Item From Corddet where numord = "& Numord &";

Tablas: Corddet

SQL Original (ASP)

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

Tablas: Cordm

SQL Original (ASP)

select NumordT from Cordtrac where NumordT =

Tablas: Cordtrac

SQL Original (ASP)

select Numordt, NumfraT, PagoT, FEAT, PGCT, PRT, FCT, FSPT, NFT, DPT, EAT, FECT, FPET, FEMT, STAT, AVAT, FSPAT, FPAT, Proore, Nomprv, NOTAST, DCPRT, Fecore, Subore, Desdiv

SQL Original (ASP)

SELECT PINORD, NOMCLI  FROM CORDDET  LEFT JOIN FPEDDET ON NPEFPEDD = PINORD LEFT JOIN CLIENTES ON CLACLI = CLIFPEDD  WHERE NUMORD = "& Numord &"  GROUP BY PINORD, NOMCLI

Tablas: CLIENTES FPEDDET CORDDET

SQL Original (ASP)

SELECT PINORD, NOMCLI  FROM CORDDET

Tablas: CORDDET

SQL Original (ASP)

select NumordT from Cordtrac where NumordT = "& Numord &";

Tablas: Cordtrac

SQL Original (ASP)

Select Count(secord) as Item From Corddet where numord =

Tablas: Corddet

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`ordentracg.asp`	form_action	Compras	Portada	Compras/Ordentracg.cshtml
`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 lang="es">

<head>
    <meta charset="utf-8"/>
        <meta name="description" content="CRM MIM" />
<title>Sistema MIM</title>
		<Link rel="stylesheet" href="vista.css">
		<!--------- css para las pestaÃ±as -->
        <link rel="stylesheet" href="css/PestaÃ±as.css" type="text/css" media="screen">
	<!----  JAVASCRIPT --->
		<script type="text/javascript" src="Jscript/tabber.js"></script>
	
</head>
<BODY>

<center>
<FONT COLOR="#FFFFFF">
<!--#include file="empresa.asp"--><br>
</FONT>
<hr>

<%
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("ordenm") %>.asp"><img src="Image/<%= Rs5("Ordenn") %>.gif" border=0 Alt="<%= Rs5("Ordenn") %>" Title="<%= Rs5("Ordenn") %>"></a>
<%
Rs5.MoveNext
Loop
%>
<hr>
<%
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16
Dim NumOrd
Dim Item

NumOrd = Request("Numord")

%>

<br>
<Form action="OrdenTrac.asp" name="Tracking" method="Post">
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Numero de Orden: &nbsp;</td>
<td><input type=text class=normalb name="NumOrd" id="NumOrd" size="7" Value="<%= Numord %>" Style="text-align:Right"></td>

<td>&nbsp <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</form>

<%
If numord = "" Then
	%>
	<b>Buscar un numero de orden de compra <br></b>
<%
Else
	
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "select Numore from Cordenc where Numore = "& Numord &";"
Rs11.Open Sql11,Cn1,1,2

		If Rs11.Eof Then
		%>
		<b>La Orden de Compra Seleccionada no existe <br></b>
		<%
		Else
		Set Rs12 = server.CreateObject("ADODB.Recordset")
		Sql12 = "select NumordT from Cordtrac where NumordT = "& Numord &";"
		Rs12.Open Sql12,Cn1,1,2
				
			If Rs12.Eof Then
			Set Rs13 = server.CreateObject("ADODB.Recordset")
			Sql13="insert into Cordtrac (NumordT) values("& Numord &")"
			Cn1.Execute sql13
			Response.Redirect("ordentrac.asp?Numord="& Numord &"")
			
			Else
			
			Set Rs14 = server.CreateObject("ADODB.Recordset")
			Sql14 = "select Numordt, NumfraT, PagoT, FEAT, PGCT, PRT, FCT, FSPT, NFT, DPT, EAT, FECT, FPET, FEMT, STAT, AVAT, FSPAT, FPAT, Proore, Nomprv, NOTAST, DCPRT, Fecore, Subore, Desdiv " &_
			"from Cordtrac, Cordenc, Proveedores, MONEDAS " &_
			"where NumordT = "& Numord &" and Numore = numordt and Proore = Cveprv AND CLADIV = MONORE;"
			Rs14.Open Sql14,Cn1,1,2
			%>
			<!-----   DATOS PARA EL FORMULARIO -->
			<Form action="Ordentracg.asp" name="Cliup" method="Post">  

			<div class="tabber">

			 <div class="tabbertab">
			  <h2>Hoja 1</h2>

			  <Table Border="0" Cellspacing="1" Cellpadding="2">
			  
			  <tr>
			  <Td>Numero de Orden:</Td>
			  <Td Align="Right">
			  <%= Rs14("Numordt") %>
			  </Td>
			  </Tr>
			  
			  <Tr>
			  <Td>Proveedor:</Td>
			  <Td Align="Right">			  
			  ( <%= Rs14("Proore") %> ) <%= Rs14("nomprv") %>
			  </Td>
			  </Tr>
			  
			  <Tr>
			  <Td>Fecha de la Orden:</Td>
			  <Td Align="Right">
			  <%= Rs14("Fecore") %>
			  </Td>
			  </Tr>
			  
			  <Tr>
			  <Td>Partidas</Td>
			  <Td Align="Right">
			  <%	
			  Set Rs15 = server.CreateObject("ADODB.Recordset")
			  Sql15 = "Select Count(secord) as Item From Corddet where numord = "& Numord &";"
			  Rs15.Open Sql15,Cn1,1,2
			  If Rs15.EOF Then
			  Item = 0
			  Else
			  Item = rs15("Item")
			  End If
			  %>
			  <%= ITem %>
			  </Td>
			  </Tr>

			  <Tr>
			  <Td>Monto de la Orden:</Td>
			  <Td Align="Right">
			  <%= Formatnumber(Rs14("Subore")) %>  &nbsp; <%= rs14("desdiv") %>
			  </Td>
			  </Tr>

			  <Tr>
			  <Td>Proyecto</Td>
			  <Td Align="Right">
			  <%	
			  Set Rs16 = server.CreateObject("ADODB.Recordset")
			  Sql16 = "SELECT PINORD, NOMCLI  FROM CORDDET " &_
			  "LEFT JOIN FPEDDET ON NPEFPEDD = PINORD LEFT JOIN CLIENTES ON CLACLI = CLIFPEDD " &_
			  "WHERE NUMORD = "& Numord &" " &_
			  "GROUP BY PINORD, NOMCLI;"
			  Rs16.Open Sql16,Cn1,1,2
			  
			  If Item = 0 Then
			  
			  Else
			  
			  Do while Not Rs16.EOF
			  %>
			  Pedido: <%= Rs16("PINORD") %>  Cliente: <%= Rs16("Nomcli") %><br>
			  <%
			  Rs16.MoveNext
			  Loop
			  
			  End If
			  %>

			  </Td>
			  </Tr>
			  
			  </Table>

			  </div>
			  <div class="tabbertab">
			  <h2>Hoja 2</h2>
			  <Table Border="0" Cellspacing="1" Cellpadding="2">
			  
			  <tr>
			  <Td>Numero de Orden Framar:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="NumfraT" title="Numero de Orden Framar" placeholder="O.C.Framar" size="7" maxlength="8" value="<%= Rs14("NumfraT") %>" onChange="javascript:this.value=this.value.toUpperCase();">
			  <Input Type="Hidden" name="NumordT" title="Numero de Orden Mexico" placeholder="O.C.Mexico" size="7" maxlength="8" value="<%= Rs14("Numordt") %>" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Terminos de Pago:</Td>
			  <Td Align="Right">
			  <SELECT NAME="PagoT">
			  <optgroup label="Actual":>
			  <option value="<%= (Rs14("PagoT")) %>" Selected><%= Rs14("PagoT") %> </option>
			  <optgroup label="Opciones: ">
			  <OPTION value="Pago Anticipado">Pago Anticipado</option>
			  <OPTION value="Credito">Credito</option>
			  <OPTION value="30 Dias">30 Dias</option>
			  <OPTION value="60 Dias">60 Dias</option>
			  <OPTION value="90 Dias">90 Dias</option>
			  <OPTION value="30% - 70%">30% - 70%</option>
			  <OPTION value="50% - 50%">50% - 50%</option>
			  <OPTION value="20% - 80%">20% - 80%</option>
			  </Select>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Fecha Envio Proveedor:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FEAT" title="Fecha Envio Autorizacion" placeholder="Fecha Envio Aut." size="12" maxlength="12" value="<%= Rs14("FEAT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	

  			  <tr>
			  <Td>% Gastos Cotizacion:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="PGCT" title="% Gastos Cotizacion" placeholder="% Gastos Cot." size="7" maxlength="12" value="<%= Rs14("PGCT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	

  			  <tr>
			  <Td>% Real:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="PRT" title="% Real" placeholder="% Real" size="7" maxlength="12" value="<%= Rs14("PRT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	

			  <tr>
			  <Td>Fecha de Confirmacion:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FCT" title="Fecha de Confirmacion" placeholder="Fecha de Conf." size="12" maxlength="12" value="<%= Rs14("FCT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	
			  
			  <tr>
			  <Td>Fecha Solicitud Pago Anticipo:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FSPAT" title="Fecha Solicitud Pago Anticipo" placeholder="Fecha Sol. Pago anticipo" size="12" maxlength="12" value="<%= Rs14("FSPAT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td> 
			  </Tr>
 			  
			  <tr>
			  <Td>Fecha Solicitud Pago:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FSPT" title="Fecha Solicitud Pago" placeholder="Fecha Sol. Pago" size="12" maxlength="12" value="<%= Rs14("FSPT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Fecha Pago Anticipo:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FPAT" title="Fecha Solicitud Pago Anticipo" placeholder="Fecha Sol. Pago anticipo" size="12" maxlength="12" value="<%= Rs14("FPAT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td> 
			  </Tr>
 					  
			  <tr>
			  <Td>Fecha Pago:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FPT" title="Fecha Pago" placeholder="Fecha Pago" size="12" maxlength="12" value="<%= Rs14("FSPT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>

  			  <tr>
			  <Td>Numero(s) de Factura(s):</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="NFT" title="Numero(s) de Factura(s)" placeholder="Numero(s) de Factura(s)" size="30" maxlength="50" value="<%= Rs14("NFT") %>" style="Text-Align:Left" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	

  			  <tr>
			  <Td>Documentos Proveedor:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="DPT" title="Documentos Proveedor" placeholder="Documentos Proveedor" size="30" maxlength="100" value="<%= Rs14("DPT") %>" style="Text-Align:Left" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	
			  
	  		  <tr>
			  <Td>Entrada en Aduana:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="EAT" title="Entrada en Aduana" placeholder="Entrada en Aduana" size="30" maxlength="50" value="<%= Rs14("EAT") %>" style="Text-Align:Left" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	
			
			  <tr>
			  <Td>Fecha Cotizacion:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FECT" title="Fecha Cotizacion" placeholder="Fecha Cotizacion" size="30" maxlength="50" value="<%= Rs14("FECT") %>" style="Text-Align:Left" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>	
			  
			  <tr>
			  <Td>Fecha Promesa Entrega:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FPET" title="Fecha Promesa Entrega" placeholder="Fecha Promesa Ent." size="12" maxlength="12" value="<%= Rs14("FPET") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Fecha Entrega MIM:</Td>
			  <Td Align="Right">
			  <Input Type="Text" name="FEMT" title="Fecha Promesa Entrega" placeholder="Fecha Promesa Ent." size="12" maxlength="12" value="<%= Rs14("FEMT") %>" style="Text-Align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
			  </Td>
			  </Tr>
			  
			  <tr>
			  <Td>Estatus:</Td>
			  <Td Align="Right">
			  <SELECT NAME="STAT">
			  <optgroup label="Actual":>
			  <option value="<%= Rs14("STAT") %>" Selected><%= Rs14("STAT") %> </option>
			  <optgroup label="Opciones: ">
			  <OPTION value="Proveedor / Fabricante">Proveedor / Fabricante</option>
			  <OPTION value="Embarque / Transportista">Embarque / Transportista</option>
			  <OPTION value="Laredo (Aduana)">Laredo (Aduana)</option>
			  <OPTION value="MIM">MIM</option>
			  </Select>
			  </Td>
			  </Tr>
			  
			  <tr>
			  <Td>Aviso Automatico:</Td>
			  <Td Align="Right">
			  <SELECT NAME="AVAT">
			  <optgroup label="Actual":>
			  <option value="<%= Rs14("AVAT") %>" Selected><%= Rs14("AVAT") %> </option>
			  <optgroup label="Opciones: ">
			  <OPTION value="Requiere Av. Aut.">Requiere Av. Aut.</option>
			  <OPTION value="No Requiere Av. Aut.">No Requiere Av. Aut.</option>
			  </Select>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Documentos Completos Para Entrada:</Td>
			  <Td Align="Right">
			  <SELECT NAME="DCPRT">
			  <optgroup label="Actual":>
			  <option value="<%= Rs14("DCPRT") %>" Selected><%= Rs14("DCPRT") %> </option>
			  <optgroup label="Opciones: ">
			  <OPTION value="Si">Si</option>
			  <OPTION value="No">No</option>
			  </Td>
			  </Tr>
			  
			  </Table>
			  </div>

			  <div class="tabbertab">
			  <h2>Hoja 3</h2>
			  <Table Border="0" Cellspacing="1" Cellpadding="2">
			  
			  <tr>
			  <Td Valign="Top">Comentarios:</Td>
			  <Td Align="Right">
			  <textarea name="NOTAST" rows="20" cols="50" Title="Comentarios" placeholder="Comentarios" maxlength="2000" style="text-align:Left" onChange="javascript:this.value=this.value.toUpperCase();"><%= Rs14("NOTAST") %></textarea>
			  </Td>
			  </Tr>
			  </Table>
			 </div>
			 <br><br>
			 <input type="Submit" Value="Actualizar" Class="AccesoP">
			  </form>			
			<%
			End If

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

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

MATERIALES INDUSTRIALES DE MEXICO

ordentrac.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

INSERT insert into Cordtrac (NumordT) values(

SQL Original (ASP)

INSERT insert into Cordtrac (NumordT) values("& Numord &")

SQL Original (ASP)

SELECT select * from Cordm where usuario = '

SQL Original (ASP)

SELECT select Numore from Cordenc where Numore =

SQL Original (ASP)

SELECT select Numore from Cordenc where Numore = "& Numord &";

SQL Original (ASP)

SELECT select Numordt, NumfraT, PagoT, FEAT, PGCT, PRT, FCT, FSPT, NFT, DPT, EAT, FECT,...

SQL Original (ASP)

SELECT Select Count(secord) as Item From Corddet where numord = "& Numord &";

SQL Original (ASP)

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

SQL Original (ASP)

SELECT select NumordT from Cordtrac where NumordT =

SQL Original (ASP)

SELECT select Numordt, NumfraT, PagoT, FEAT, PGCT, PRT, FCT, FSPT, NFT, DPT, EAT, FECT,...

SQL Original (ASP)

SELECT SELECT PINORD, NOMCLI FROM CORDDET LEFT JOIN FPEDDET ON NPEFPEDD = PINORD LEFT...

SQL Original (ASP)

SELECT SELECT PINORD, NOMCLI FROM CORDDET

SQL Original (ASP)

SELECT select NumordT from Cordtrac where NumordT = "& Numord &";

SQL Original (ASP)

SELECT Select Count(secord) as Item From Corddet where numord =

SQL Original (ASP)