Detalle: pedidosap.asp

pedidosap.asp

Ir a la Página Volver a la Lista

Archivo ASP

pedidosap.asp

Página Razor

Facturas/Pedidosap.cshtml

Módulo

Facturas

Líneas de Código

265

Características

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

Tablas Utilizadas (12)

Almacenes CLIENTES CREQDET Creqenc Empresa FPEDDET MULTIALMACEN Multialmacen STATUSREQ fpeddet inventarios monedas

Consultas SQL (7)

SQL Original (ASP)

Select Desalm, Artmul, Nominv, Exirmul, udminv, capmul, embdire, Rsem, (Exirmul - capmul + EMBDIRE - rsem) as Disponible from  Multialmacen, Almacenes, Inventarios  where almmul = claalm and artmul = cveinv and artmul = '"& Code &"' and almmul = "& Valma &

Tablas: Multialmacen

SQL Original (ASP)

Select Desalm, Artmul, Nominv, Exirmul, udminv, capmul, embdire, Rsem, (Exirmul - capmul + EMBDIRE - rsem) as Disponible from

SQL Original (ASP)

SELECT artmul,desmul, exirmul ,PedReqd, NOMCLI,CaSReqd,Regfpedd  FROM CREQDET left join Creqenc on NumReqd = NumReqE left join inventarios on codreqd = cveinv  left join MULTIALMACEN on codreqd = ARTMUL and AlmReqd =ALMMUL  left join monedas on MonReqE = cladiv left join Almacenes on almreqd = claalm  left join FPEDDET on PedReqd = NPEFPEDD and ParReqd = SECFPEDD left join CLIENTES on clifpedd = CLACLI  left join STATUSREQ ON NUMREQ = STAREQDET  where codreqd not like '19a%' and  FecReqE > '31/12/2009' and codreqd not like '%mensaje%'  and CaSReqd > 0 and OrdReqd = 0 and StaReqE <> 2   and orireqd  = 0  Order by nominv ASC

Tablas: CLIENTES CREQDET MULTIALMACEN STATUSREQ Creqenc inventarios FPEDDET Almacenes monedas

SQL Original (ASP)

select numfpede, stafpede, fpefpedd, secfpedd, almfpedd, codfpedd, canfpedd, cpefpedd, embdir, nomcli, desalm   from fpeddet, fpedenc, clientes, almacenes  where npefpedd <> '"& Pedidoa &"' and almfpedd = Claalm and codfpedd = '"& Code &"' and numfpede = npefpedd  and stafpede = 'R'  and clifpede = clacli and cpefpedd > 0 or npefpedd <> '"& Pedidoa &"' and almfpedd = Claalm and codfpedd = '"& Code &"' and numfpede = npefpedd  and stafpede = 'A'  and clifpede = clacli and cpefpedd > 0

Tablas: fpeddet

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

SELECT artmul,desmul, exirmul ,PedReqd, NOMCLI,CaSReqd,Regfpedd

SQL Original (ASP)

select numfpede, stafpede, fpefpedd, secfpedd, almfpedd, codfpedd, canfpedd, cpefpedd, embdir, nomcli, desalm

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`fpedm.asp`	include	General	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

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

No hay enlaces entrantes

<%  
	Option Explicit
	Session.LCID = 2058
'*****  SI NO HA INICIADO SESION ***
If 	Session("Mybussiness") = "" then
	Response.redirect("default.asp")
Else

Session.Timeout = 1200

'******* EN CASO DE ERROR ****
		Err.Clear
		On Error Resume Next	
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
		
%> 
<!DOCTYPE html>
<HTML>
<HEAD>
    <meta charset="ISO-8859-1" />
	<TITLE>SISTEMA MIM <%= Session("Mybussiness")  %> USUARIO: <%= Session("MyName")  %></TITLE>
		<link href="css/Modulos.css" rel="stylesheet" />
		<link href="css/Buscador.css" rel="stylesheet" />
		
		

		
</HEAD>

<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs10, Rs11, Rs12, Rs13, Rs14, Rs15
Dim Sql10, Sql11, Sql12, Sql13, Sql14, Sql15


'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""

'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
		
%>

	<SECTION Class="HeaderGes">
			<div Id="DivHeadGes">
			<%= Rs11("Nombre") %><br>
			<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
			<%= Rs11("Poblacion") %>
			</div>
		

	</SECTION>

	<SECTION>
	<!--#include file="fpedm.asp"-->
	</SECTION>	
	
	<SECTION>
<% 
	
	dim Pedido, registro
	

	Set Rs15 = server.CreateObject("ADODB.Recordset")
	Sql15 = "SELECT artmul,desmul, exirmul ,PedReqd, NOMCLI,CaSReqd,Regfpedd " &_
			"FROM CREQDET left join Creqenc on NumReqd = NumReqE left join inventarios on codreqd = cveinv " &_
			"left join MULTIALMACEN on codreqd = ARTMUL and AlmReqd =ALMMUL " &_
			"left join monedas on MonReqE = cladiv left join Almacenes on almreqd = claalm " &_
			"left join FPEDDET on PedReqd = NPEFPEDD and ParReqd = SECFPEDD left join CLIENTES on clifpedd = CLACLI " &_
			"left join STATUSREQ ON NUMREQ = STAREQDET " &_
			"where codreqd not like '19a%' and  FecReqE > '31/12/2009' and codreqd not like '%mensaje%' " &_
			"and CaSReqd > 0 and OrdReqd = 0 and StaReqE <> 2  " &_
			"and orireqd  = 0 " &_
			"Order by nominv ASC ;"
	Rs15.Open Sql15,Cn1,1,2
	
	

%>
		<center>
		<br>
		<B>***** Pedidos Apartados *****</B>
		<BR><BR>
  
		
<%
	If Rs15.Eof Then
	Else
%>

	<TABLE border=1 cellspacing=1 cellpadding=1 bordercolor=#c0c0c0>

	<Tr Class="Tableneg">
				
				<Th align= "center">Codigo</Th>
				<Th align= "center">Descripcion</Th>
				<Th align= "center">Existencia actual</Th>			
				<Th align= "center">Pedido Actual</Th>
				<Th align= "center">Pedidos Apartados</Th>
	</Tr>
<%
	Do While Not Rs15.Eof
%>
  <tr>


    <td><%= Rs15("artmul") %></td>
    <td><%= Rs15("desmul") %></td>
	<td align= "center"><%= Rs15("exirmul") %></td>
  
  <td id="nested">
      <table >
        <tr>
          <th>Pedido</th>
          <th>Cliente</th>
          <th >Cant. requerida</th>
        </tr>
		
		
		<tr>
          <td><%= Rs15("PedReqd") %></td>
          <td><%= Rs15("NOMCLI") %></td>
          <td align= "center"><%= Rs15("CaSReqd") %></td>
        </tr>
      </table>
    </td>
	
	<td>			
<%
Dim Rs16, Sql16, Rs17, Sql17
Dim Code, Valma, Status, embarque, Pedidoa

Pedidoa =  Rs15("PedReqd")
Code =  Rs15("Artmul")
Valma = Request("Valma")
If Valma = "" or isnull(valma) then
Valma = 1
Else
Valma = Valma 
End If


set Rs16 = server.CreateObject("ADODB.Recordset")
SQL16="select numfpede, stafpede, fpefpedd, secfpedd, almfpedd, codfpedd, canfpedd, cpefpedd, embdir, nomcli, desalm  " &_
"from fpeddet, fpedenc, clientes, almacenes " &_
"where npefpedd <> '"& Pedidoa &"' and almfpedd = Claalm and codfpedd = '"& Code &"' and numfpede = npefpedd  and stafpede = 'R' " &_
"and clifpede = clacli and cpefpedd > 0" &_
"or npefpedd <> '"& Pedidoa &"' and almfpedd = Claalm and codfpedd = '"& Code &"' and numfpede = npefpedd  and stafpede = 'A' " &_
"and clifpede = clacli and cpefpedd > 0 " &_

"or npefpedd <> '"& Pedidoa &"' and almfpedd = Claalm and codfpedd = '"& Code &"' and numfpede = npefpedd  and stafpede = 'P' " &_
"and clifpede = clacli and cpefpedd > 0;"
Rs16.open sql16,cn1,1,2

If Rs16.Eof then

else 

Set Rs17 = server.CreateObject("ADODB.Recordset")
Sql17="Select Desalm, Artmul, Nominv, Exirmul, udminv, capmul, embdire, Rsem, (Exirmul - capmul + EMBDIRE - rsem) as Disponible from " &_
"Multialmacen, Almacenes, Inventarios " &_
"where almmul = claalm and artmul = cveinv and artmul = '"& Code &"' and almmul = "& Valma &";"
Rs17.open Sql17,cn1,1,2

%>

<TABLE border=0 cellspacing=0 cellpadding=0 bordercolor=#c0c0c0>

<tr>
<th>Ped. Int</th>
<th>Apartado</th>
<th>Cliente</th>
<th>Cantidad Pendiente</th>
</tr>
<%
If Rs17.Eof then
%>

<%
Else 
Do while not Rs16.EOF

If Rs16("Stafpede") = "R" then
Status = "Si"
Else If  Rs16("Stafpede") = "P" then
Status = "Si"
End If
end if


If Cdbl(Rs16("embdir")) = false Then
Embarque = "No"
Else If Cdbl(Rs16("embdir")) = true then
Embarque = "Si"
End If
End If

%>

<tr>
<td Class="Normalb"><%= Rs16("Numfpede") %></td>
<td Class="Normalb" align= "center"><%= status %></td>
<td Class="Normalb"><%= Rs16("Nomcli") %></td>
<td Class="Normalb" align= "Right"><%= Formatnumber(Rs16("cpefpedd")) %></td>
</tr>


<%
Rs16.MoveNext
loop
End If
Rs16.Close
%>

</table>


<% End If %>
 
	</td>

  </tr>
 		<%
Rs15.Movenext
Loop
%>

		</Table>

<%
End If
%>
	</SECTION>	
		
<%
		If Err.Number <> 0 Then
%>


<br><br>
NÃºmero de Error: <%= Err.Number %><BR>
DescripciÃ³n:  <%= Err.Description %><BR>		
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>

<%
		Else
'****** FIN DE LOS ERRORES ***
	End If
%>			
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>

using Microsoft.AspNetCore.Mvc.RazorPages;
namespace MimPortal.Pages.Facturas { public class PedidosapModel : PageModel { public void OnGet() { } } }

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

MATERIALES INDUSTRIALES DE MEXICO

pedidosap.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Desalm, Artmul, Nominv, Exirmul, udminv, capmul, embdire, Rsem, (Exirmul ...

SQL Original (ASP)

SELECT Select Desalm, Artmul, Nominv, Exirmul, udminv, capmul, embdire, Rsem, (Exirmul ...

SQL Original (ASP)

SELECT SELECT artmul,desmul, exirmul ,PedReqd, NOMCLI,CaSReqd,Regfpedd FROM CREQDET le...

SQL Original (ASP)

SELECT select numfpede, stafpede, fpefpedd, secfpedd, almfpedd, codfpedd, canfpedd, cpe...

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT SELECT artmul,desmul, exirmul ,PedReqd, NOMCLI,CaSReqd,Regfpedd

SQL Original (ASP)

SELECT select numfpede, stafpede, fpefpedd, secfpedd, almfpedd, codfpedd, canfpedd, cpe...

SQL Original (ASP)