Detalle: frememb.asp

frememb.asp

Ir a la Página Volver a la Lista

Archivo ASP

frememb.asp

Página Razor

Facturas/Frememb.cshtml

Módulo

Facturas

Líneas de Código

204

Características

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

Tablas Utilizadas (3)

Fpedm Fremdet frememb

Consultas SQL (6)

SQL Original (ASP)

Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv

SQL Original (ASP)

Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv  from Fremdet, Inventarios  where nrefremd = "& Nremision &" and Codfremd = cveinv  order by secfremd

Tablas: Fremdet

SQL Original (ASP)

select Regfremb, Cajfremb, Packfremb, GuiaFremb, Fecfremb  from frememb  where Regfremb =  "& FolioR &" order by Regfremb

Tablas: frememb

SQL Original (ASP)

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

Tablas: Fpedm

SQL Original (ASP)

select Regfremb, Cajfremb, Packfremb, GuiaFremb, Fecfremb

SQL Original (ASP)

select * from Fpedm where usuario = '

Tablas: Fpedm

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
`barra.asp`	include	General	Pendiente	-
`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"-->
<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>
<center>
<!--#include file="empresa.asp"--><br>
<!--#INCLUDE FILE="BARRA.asp"-->


<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</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="Docs" style="position:relative; top:50px;">

<center>
<hr>
Captura Embarque de Remisiones

<HR>

<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Form action="Frememb.asp" name="Frememb" method="Post">

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">
<input type="text" class="normalb" Value="0" name="Nremision" size="7" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>

<Tr>
<TD align="Center" class="normalw" bgcolor="#006699" Colspan="2">
<input type="submit" value="Buscar" class="normalc">
</td>
</tr>
</form>
</Table>
<hr>

<%
'*******  BUSCAMOS LA REMISION ******
Dim Nremision, FolioR
Dim Rs11, Rs12
Dim Sql11, Sql12

Nremision = Request("Nremision")

'*****  VERIFICA QUE EL NUMERO DE REMISION NO SEA NULO, VACIO O CERO ****

If Nremision = "" or Isnull(Nremision) or Nremision = 0 Then

Else
'************  BUSCAMOS LAS PARTIDAS DE LA REMISION *****

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv " &_
"from Fremdet, Inventarios " &_
"where nrefremd = "& Nremision &" and Codfremd = cveinv " &_
"order by secfremd;"
Rs11.Open Sql11,cn1,1,2

'*************  SI ES FIN DE ARCHIVO
	If Rs11.Eof Then
	
	Else
%>

<Table border=0 cellspacing=1 cellpadding=1 class="normal">

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">Partida</td>
<TD align="Left" class="normalw" bgcolor="#006699">Cantidad</td>
<TD align="Left" class="normalw" bgcolor="#006699">Codigo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Descripion</td>
<TD align="Left" class="normalw" bgcolor="#006699">Capturar</td>
</Tr>

<%
Do while Not Rs11.Eof
FolioR = Rs11("Regfremd")

%>
<Tr>
<TD align="Right" class="normal"><%= Rs11("Nrefremd") %></td>
<TD align="Right" class="normal"><%= Rs11("secfremd") %></td>
<TD align="Right" class="normal"><%= Formatnumber(Rs11("canfremd")) %></td>
<TD align="Left" class="normal"><%= Rs11("Codfremd") %></td>
<TD align="Left" class="normal"><%= Rs11("Nominv") %></td>
<TD align="Center" class="normal"><a href="Frememba.asp?RegistroR=<%= Rs11("regfremd") %>">+</a></td>
</Tr>

<Tr>
<TD align="Left" class="normal" Colspan="5">

<%

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select Regfremb, Cajfremb, Packfremb, GuiaFremb, Fecfremb " &_
"from frememb " &_
"where Regfremb =  "& FolioR &"" &_
"order by Regfremb;"
Rs12.Open Sql12,cn1,1,2

If Rs12.EOF Then

Else
%>
<Table border=0 cellspacing=1 cellpadding=1 class="normal" width="400px">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Caja</td>
<TD align="Left" class="normalw" bgcolor="#006699">Packlist</td>
<TD align="Left" class="normalw" bgcolor="#006699">Guia</td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha</td>
</tr>
<%
Do While Not Rs12.Eof
%>

<Tr>
<TD align="Right" class="normal"><%= Rs12("Cajfremb") %></td>
<TD align="Right" class="normal"><%= Rs12("Packfremb") %></td>
<TD align="Right" class="normal"><%= Rs12("GuiaFremb") %></td>
<TD align="Right" class="normal"><%= Rs12("Fecfremb") %></td>
</Tr>

<%
Rs12.Movenext
Loop
%>
</Table>
<%
End If
%>
</td>
</Tr>

<%
Rs11.Movenext
Loop
%>

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

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

MATERIALES INDUSTRIALES DE MEXICO

frememb.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv

SQL Original (ASP)

SELECT Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv from Fremdet, I...

SQL Original (ASP)

SELECT select Regfremb, Cajfremb, Packfremb, GuiaFremb, Fecfremb from frememb where R...

SQL Original (ASP)

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

SQL Original (ASP)

SELECT select Regfremb, Cajfremb, Packfremb, GuiaFremb, Fecfremb

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '

SQL Original (ASP)