From 8f105dab174cf45f1f6a311fe25d5c2c27d00961 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 31 Jul 2024 19:42:43 -0700 Subject: [PATCH] Solicitudes de traspaso de Almacen --- App_Code/ClsInventarios.vb | 4 +- App_Code/ClsPaginas.vb | 1 + Inventarios/TrasladoSolicitud.aspx | 854 ++++------- Inventarios/TrasladoSolicitud.aspx.vb | 1791 ++++++++-------------- Inventarios/TrasladoSolicitudOld.aspx | 593 +++++++ Inventarios/TrasladoSolicitudOld.aspx.vb | 1262 +++++++++++++++ 6 files changed, 2748 insertions(+), 1757 deletions(-) create mode 100644 Inventarios/TrasladoSolicitudOld.aspx create mode 100644 Inventarios/TrasladoSolicitudOld.aspx.vb diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 496459e94..d78ec663b 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4684,7 +4684,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean + Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, + CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_TraspasoSolicitudGetRep") @@ -4698,6 +4699,7 @@ Public Class ClsInventarios .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@OpcionAlmacen", SqlDbType.Int).Value = OpcionAlmacen .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a3a5c5ecd..bc0c3d604 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10349,6 +10349,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/PopUpBuscarMovto.aspx".ToUpper(), 219) PaginaDict.Add("/Inventarios/RepMaterialResguardo.aspx".ToUpper(), 493) PaginaDict.Add("/Inventarios/TrasladoSolicitud.aspx".ToUpper(), 524) + PaginaDict.Add("/Inventarios/TrasladoSolicitudOld.aspx".ToUpper(), -1) PaginaDict.Add("/Inventarios/RepTrasladoSolicitud.aspx".ToUpper(), 514) PaginaDict.Add("/Inventarios/CatGrupoPS.aspx".ToUpper(), 849) PaginaDict.Add("/Inventarios/KardexAlmacen.aspx".ToUpper(), 639) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 8ab72fdb3..556115b6d 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -1,593 +1,299 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitud.aspx.vb" Inherits="Inventarios_TrasladoSolicitud" %> - - - - - - - - - Solicitud de Traslados - - - - -
  • - Agregar Producto -
    • - -
  • - Ayuda - -
    • - -
  • - Vincular desde Contrato -
    • - -
  • - Generar PDF -
    • - -
  • - Generar Excel -
    • -
  • - Cancelar Solicitud -
    • -     - - - - -     -     - - - - -
    - -
    -
    -
    -
    - - INFORMACIÓN DEL TRASLADO -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - Folio: - -

    - -

    -
    Fecha: -
    -
    - - - - - - - - - - -
    -
    -
    Almacén Origen:      - -
    Almacén Destino: - -
    Paquetería: - -
    Número Guía: -
    Observaciones: - -
    Vincular desde Contrato: - - -
    - - - -
    -
    -
    - - - -
    - -
    -
    -
    - - INFORMACIÓN DE LA SOLICITUD -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    -
    -

    Cancelado

    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - -
    Usuario Solicitó: - -
    Contrato: - - -
    Dirección de Envio: - -
    Movimiento: - -
    - - -
    -
    -
    - -
    - -
    -
    -
    - - AUTORIZACIÓN -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitud.aspx.vb" Inherits="Inventarios_TrasladoSolicitud" %> -
    + + + + + + Reporte de solicitudes de traspaso + + + + + + +
  • + Agregar Solicitud +
    • +     + + +     + +     + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Origen
    +
    + +
    -
    - - - - - - -
    Estado :
    Usuario :
    Fecha :
    -
    -
    - -
    - -
    - -
    -
    - -
    - -
    +
    Destino
    +
    + +
    +
    Fecha Inicio
    +
    +
    + + + + +
    + + +
    +
    Fecha Fin
    +
    +
    + + + + +
    + + +
    +
    +
    +
    +
    > + +
    +
    -     -     - - - - - - -
    -
    - - - +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    + + + +