Detalle: ordtracl.asp

ordtracl.asp

Ir a la Página Volver a la Lista

Archivo ASP

ordtracl.asp

Página Razor

Compras/Ordtracl.cshtml

Módulo

Compras

Líneas de Código

358

Características

En Menú:	Sí
Formularios:	1 formulario(s)
Consultas SQL:	14 consulta(s)
Complejidad:	medium
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 (3) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`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="Ordtracl.asp" name="Trackingl" 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 -->

			<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">
			  <%= Rs14("NumfraT") %>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Terminos de Pago:</Td>
			  <Td Align="Right">
			  <%= (Rs14("PagoT")) %>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Fecha Envio Proveedor:</Td>
			  <Td Align="Right">
			  <%= Rs14("FEAT") %>
			  </Td>
			  </Tr>	

  			  <tr>
			  <Td>% Gastos Cotizacion:</Td>
			  <Td Align="Right">
			  <%= Rs14("PGCT") %>
			  </Td>
			  </Tr>	

  			  <tr>
			  <Td>% Real:</Td>
			  <Td Align="Right">
			  <%= Rs14("PRT") %>
			  </Td>
			  </Tr>	

			  <tr>
			  <Td>Fecha de Confirmacion:</Td>
			  <Td Align="Right">
			  <%= Rs14("FCT") %>
			  </Td>
			  </Tr>	
			  
			  <tr>
			  <Td>Fecha Solicitud Pago Anticipo:</Td>
			  <Td Align="Right">
			  <%= Rs14("FSPAT") %>
			  </Td> 
			  </Tr>
 			  
			  <tr>
			  <Td>Fecha Solicitud Pago:</Td>
			  <Td Align="Right">
			  <%= Rs14("FSPT") %>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Fecha Pago Anticipo:</Td>
			  <Td Align="Right">
			  <%= Rs14("FPAT") %>
			  </Td> 
			  </Tr>
 					  
			  <tr>
			  <Td>Fecha Pago:</Td>
			  <Td Align="Right">
			  <%= Rs14("FSPT") %>
			  </Td>
			  </Tr>

  			  <tr>
			  <Td>Numero(s) de Factura(s):</Td>
			  <Td Align="Right">
			  <%= Rs14("NFT") %>
			  </Td>
			  </Tr>	

  			  <tr>
			  <Td>Documentos Proveedor:</Td>
			  <Td Align="Right">
			  <%= Rs14("DPT") %>
			  </Td>
			  </Tr>	
			  
	  		  <tr>
			  <Td>Entrada en Aduana:</Td>
			  <Td Align="Right">
			  <%= Rs14("EAT") %>
			  </Td>
			  </Tr>	
			
			  <tr>
			  <Td>Fecha Cotizacion:</Td>
			  <Td Align="Right">
			  <%= Rs14("FECT") %>
			  </Td>
			  </Tr>	
			  
			  <tr>
			  <Td>Fecha Promesa Entrega:</Td>
			  <Td Align="Right">
			  <%= Rs14("FPET") %>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Fecha Entrega MIM:</Td>
			  <Td Align="Right">
			  <%= Rs14("FEMT") %>
			  </Td>
			  </Tr>
			  
			  <tr>
			  <Td>Estatus:</Td>
			  <Td Align="Right">
			  <%= Rs14("STAT") %>
			  </Td>
			  </Tr>
			  
			  <tr>
			  <Td>Aviso Automatico:</Td>
			  <Td Align="Right">
			  <%= Rs14("AVAT") %>
			  </Td>
			  </Tr>

			  <tr>
			  <Td>Documentos Completos Para Entrada:</Td>
			  <Td Align="Right">
			  <%= Rs14("DCPRT") %>
			  </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>
		
			<%
			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 OrdtraclModel : PageModel { public void OnGet() { } } }

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

MATERIALES INDUSTRIALES DE MEXICO

ordtracl.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)