Detalle: utilped.asp

utilped.asp

Ir a la Página Volver a la Lista

Archivo ASP

utilped.asp

Página Razor

Facturas/Utilped.cshtml

Módulo

Facturas

Líneas de Código

274

Características

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

Tablas Utilizadas (3)

FPEDDET Fpedenc Fpedm

Consultas SQL (6)

SQL Original (ASP)

Select Desalm, Secfpedd, Codfpedd, Desmul, CANFPEDD, Udminv, UNIFPEDD, UCOFPEDD, Obsfpedd, fpefpedd

SQL Original (ASP)

select Numfpede, Fecfpede, Clifpede, Nomcli, Stafpede, Desdiv, ConFpede, Obsfpede, Obscom, Divvend, Subfpede, TcaFpede, Nomvend, NotasAut  from Fpedenc, Clientes, Monedas, Vendedores  Where Numfpede = "& Pedido &" and Clifpede = Clacli and Monfpede = Cladiv and Vencli = Cvevend

Tablas: Fpedenc

SQL Original (ASP)

Select Desalm, Secfpedd, Codfpedd, Desmul, CANFPEDD, Udminv, UNIFPEDD, UCOFPEDD, Obsfpedd, fpefpedd  From FPEDDET, Almacenes, MULTIALMACEN, Inventarios  where NPEFPEDD = "& Pedido &" and ALMFPEDD = ALMMUL and CODFPEDD = ARTMUL  and Almfpedd = ClaAlm and CVEINV = ARTMUL order by Secfpedd

Tablas: FPEDDET

SQL Original (ASP)

select * from Fpedm where usuario = '" & nombre & "' order by npedm;

Tablas: Fpedm

SQL Original (ASP)

select Numfpede, Fecfpede, Clifpede, Nomcli, Stafpede, Desdiv, ConFpede, Obsfpede, Obscom, Divvend, Subfpede, TcaFpede, Nomvend, NotasAut

SQL Original (ASP)

select * from Fpedm where usuario = '

Tablas: Fpedm

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
`utilped - copia (2).asp`	form_action	Utilerias	Pendiente	-
`utilped - copia.asp`	form_action	Utilerias	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 type="text/javascript" src="Java/largo.js"></script>
<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 Fpedm where usuario = '" & nombre & "' order by npedm;"
rs5.open sql5,cn1,1,2
%>

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

</div>

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

<b> ****** UTILIDAD POR PEDIDO (VENTAS) *****</B>
 &nbsp; &nbsp; &nbsp; &nbsp; 
<a href="Help/Utilped.pdf" onclick="NewWindow(this.href,'Help','800','600','yes');return false;">
<img src="Image/help.gif" border="0" height="25px"  alt="Ayuda"> </a>

<Form action="Utilped.asp" name="Utilped" method='post'>
<TABLE border="0" cellspacing="0" cellpadding="0" class="normal">
<tr>
<td Class="Normalb">Pedido: &nbsp;</td>
<td><input type=text class=normalb name="pedido" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<Tr>
<td Colspan="2" Align="Center"><input type="submit" value="Buscar" class="Normalb"></td>
</tr>
</table>
</form>


<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13
Dim Pedido, Utilidad, FirmaDV
Dim UtilidadG, UtilidadT
Dim Division, Importe, Subtotal, SubtotalMx, PorcentajeU, PorcentajeT, PorcentajeF
Dim TipoA
Pedido = Request("Pedido")

If Pedido = "" or Isnull(Pedido) Then
%>

<b>***** BUSCAR UN PEDIDO *****</B>
<BR>
<%
Else

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "select Numfpede, Fecfpede, Clifpede, Nomcli, Stafpede, Desdiv, ConFpede, Obsfpede, Obscom, Divvend, Subfpede, TcaFpede, Nomvend, NotasAut " &_
"from Fpedenc, Clientes, Monedas, Vendedores " &_
"Where Numfpede = "& Pedido &" and Clifpede = Clacli and Monfpede = Cladiv and Vencli = Cvevend;"
Rs11.Open Sql11,cn1,1,2
Division = Rs11("Divvend")
Subtotal = Rs11("Subfpede")
SubtotalMx = Cdbl(Rs11("Subfpede")) * Cdbl(Rs11("Tcafpede"))
%>

<TABLE border=0 cellspacing=2 cellpadding=2 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Pedido </td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha </td>
<TD align="Left" class="normalw" bgcolor="#006699">Cliente </td>
<TD align="Left" class="normalw" bgcolor="#006699">Nombre </td>
<TD align="Left" class="normalw" bgcolor="#006699">Status </td>
<TD align="Left" class="normalw" bgcolor="#006699">Moneda </td>
<TD align="Left" class="normalw" bgcolor="#006699">Condiciones: </td>
</tr>

<Tr>
<Td align="Right" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Numfpede") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Fecfpede") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Clifpede") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Nomcli") %> </td>
<Td align="Center" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Stafpede") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Desdiv") %> </td>
<Td align="Right" class="normalb" bgcolor="#FFFFFF"><%= Rs11("Confpede") %> </td>
</tr>

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699" Colspan="7">Observaciones Generales </td>
</tr>
<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF" Colspan="7"><%= Rs11("Obsfpede") %> </td>
</tr>


<Tr>
<TD align="Left" class="normalw" bgcolor="#006699" Colspan="7">Observaciones Compras </td>
</tr>
<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF" Colspan="7"><%= Rs11("Obscom") %> </td>
</tr>

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699" Colspan="7">Vendedor	</td>
</tr>
<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF" Colspan="7"><%= Rs11("nomvend") %> </td>
</tr>
</Table>

<%

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Desalm, Secfpedd, Codfpedd, Desmul, CANFPEDD, Udminv, UNIFPEDD, UCOFPEDD, Obsfpedd, fpefpedd " &_
"From FPEDDET, Almacenes, MULTIALMACEN, Inventarios " &_
"where NPEFPEDD = "& Pedido &" and ALMFPEDD = ALMMUL and CODFPEDD = ARTMUL " &_
"and Almfpedd = ClaAlm and CVEINV = ARTMUL order by Secfpedd;"
Rs12.Open Sql12,cn1,1,2

If Rs12.Eof Then

Else
%>

<TABLE border=0 cellspacing=2 cellpadding=2 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Almacen </td>
<TD align="Left" class="normalw" bgcolor="#006699">Partida </td>
<TD align="Left" class="normalw" bgcolor="#006699">Codigo </td>
<TD align="Left" class="normalw" bgcolor="#006699">Descripcion </td>
<TD align="Left" class="normalw" bgcolor="#006699">Cantidad </td>
<TD align="Left" class="normalw" bgcolor="#006699">UDM </td>
<TD align="Left" class="normalw" bgcolor="#006699">F.E.P. </td>
<TD align="Left" class="normalw" bgcolor="#006699">Unitario </td>
<TD align="Left" class="normalw" bgcolor="#006699">Importe </td>
<!--
<TD align="Left" class="normalw" bgcolor="#006699">% Utilidad </td>
-->
</tr>
<%

PorcentajeU = 0

Do While Not Rs12.Eof

If Cdbl(Rs12("Ucofpedd")) = 0 Then
Utilidad = 100
Else If Cdbl(Rs12("Unifpedd")) = 0 Then
Utilidad = 0
Else
Utilidad = (1 - (Cdbl(Rs12("Ucofpedd")) / Cdbl(Rs12("Unifpedd")))) * 100
End If
End If

If Utilidad  < 20 Then
UtilidadG = 1
Else If Utilidad = 20 Then
UtilidadG = 0
Else If Utilidad > 20 Then
UtilidadG = 0
End If
End If
End If
porcentajeU = Cdbl(Rs12("Ucofpedd")) * Cdbl(Rs12("Canfpedd"))

UtilidadT = UtilidadT + UtilidadG
Importe = Cdbl(Rs12("Canfpedd")) * Cdbl(Rs12("Unifpedd")) 
PorcentajeT = (PorcentajeT + PorcentajeU)
%>
<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs12("Desalm") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs12("Secfpedd") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs12("Codfpedd") %> </td>
<Td align="Left" class="normalb" bgcolor="#FFFFFF"><%= Rs12("Desmul") %> </td>
<Td align="Right" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(Rs12("Canfpedd")) %> </td>
<Td align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs12("Udminv") %> </td>
<Td align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs12("fpefpedd") %> </td>
<Td align="center" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(Rs12("Unifpedd")) %> </td>
<Td align="Right" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(Importe) %> </td>
<!--
<Td align="center" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(Utilidad) %> %</td>
-->
</tr>
<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF" Colspan=8><%= Rs12("Obsfpedd") %> </td>

</tr>

<%
Rs12.Movenext
Loop
PorcentajeF = (1 - (Cdbl(PorcentajeT) / Cdbl(Subtotal))) * 100

%>
<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF" Colspan="8"></td>
<Td align="Right" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(Subtotal) %></td>
<!--
<Td align="Right" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(PorcentajeF) %> %</td>
-->
</tr>

<Tr>
<Td align="Left" class="normalb" bgcolor="#FFFFFF" Colspan="8">Notas Autorizacion: <%= Rs11("Notasaut") %></td>
</tr>

</Table>
<%
End If
%>


<%
End If
%>




</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.Facturas { public class UtilpedModel : PageModel { public void OnGet() { } } }

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

MATERIALES INDUSTRIALES DE MEXICO

utilped.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Desalm, Secfpedd, Codfpedd, Desmul, CANFPEDD, Udminv, UNIFPEDD, UCOFPEDD,...

SQL Original (ASP)

SELECT select Numfpede, Fecfpede, Clifpede, Nomcli, Stafpede, Desdiv, ConFpede, Obsfped...

SQL Original (ASP)

SELECT Select Desalm, Secfpedd, Codfpedd, Desmul, CANFPEDD, Udminv, UNIFPEDD, UCOFPEDD,...

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '" & nombre & "' order by npedm;

SQL Original (ASP)

SELECT select Numfpede, Fecfpede, Clifpede, Nomcli, Stafpede, Desdiv, ConFpede, Obsfped...

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '

SQL Original (ASP)