From d9e9dd3cf9d847199d7c6dd6815a5375154f9a02 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 29 Jul 2024 07:14:24 -0700 Subject: [PATCH 01/11] =?UTF-8?q?--=20correcci=C3=B3n=20de=20globaldtusuar?= =?UTF-8?q?ios?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/Asignaciones.aspx.vb | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 27dd8d20a..0b2b99d57 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -269,13 +269,11 @@ Partial Class OS_Asignaciones Dim Fecha As DateTime = time OIDescripcion = $"Orden de servicio {row.DataKey("Folio")} " - If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, $"{DdlTecnico.SelectedItem.Text} {OIDescripcion}", 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2, Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero) Then TieneError = True End If - End If If Not TieneError Then @@ -284,13 +282,10 @@ Partial Class OS_Asignaciones End If End If - Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero).Rows(0)("Correo").ToString - - If Not TieneError Then + Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo").ToString + If Not TieneError AndAlso CorreoAsignado <> "" Then MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado, TrasaccionSql:=ObjOS.IniciaTransacSQL) End If - - End If End If End If From 0e515412f7c2ca1d8b25ab9713be0dedd84b17cf Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 30 Jul 2024 12:25:10 -0700 Subject: [PATCH 02/11] =?UTF-8?q?--=20SMS=20-=20activaci=C3=B3n=20columna?= =?UTF-8?q?=20de=20pendiente=20de=20facturar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepRemisiones.aspx | 2 +- Ventas/RepRemisiones.aspx.vb | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index 2f136ea49..924545b5f 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -246,7 +246,7 @@ - + diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb index a63b446de..9b4f3a457 100644 --- a/Ventas/RepRemisiones.aspx.vb +++ b/Ventas/RepRemisiones.aspx.vb @@ -148,6 +148,7 @@ Partial Class RepRemisiones GvDatos.Columns(1).HeaderText = "Fecha Cirugía" CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}" CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120) + GvDatos.Columns(15).Visible = True End If End Sub From 9bffe2fe231b248018bd8070753b79318f27958c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 31 Jul 2024 06:39:25 -0700 Subject: [PATCH 03/11] =?UTF-8?q?--=20renombrado=20del=20archivo=20menu.xm?= =?UTF-8?q?l,=20del=20usuario,=20se=20le=20est=C3=A1=20anteponiendo=20cvee?= =?UTF-8?q?mpresa=5Fcveusuario.xml?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsSisUsuarioAutenticacion.vb | 8 ++++---- Site.master.vb | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsSisUsuarioAutenticacion.vb b/App_Code/ClsSisUsuarioAutenticacion.vb index 7491db69c..5b8070cbc 100644 --- a/App_Code/ClsSisUsuarioAutenticacion.vb +++ b/App_Code/ClsSisUsuarioAutenticacion.vb @@ -246,7 +246,7 @@ Public Class ClsSisUsuarioAutenticacion 'cargo los modulos del usuario y genero el menú Dim dttmp As DataTable = ObjUsr.GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveEmpresa) - If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CvePlataforma) + If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CveEmpresa, Retorno.CvePlataforma) Dim UsuariosModulos As New HybridDictionary For Each Row As DataRow In dttmp.Rows @@ -506,7 +506,7 @@ Public Class ClsSisUsuarioAutenticacion - Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, Optional CvePlataforma As Integer = 1) As Boolean + Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, CveEmpresa As Integer, Optional CvePlataforma As Integer = 1) As Boolean Dim Retorno As Boolean = False dtMenu.TableName = "UsuariosModulos" @@ -522,9 +522,9 @@ Public Class ClsSisUsuarioAutenticacion Carpeta.DirectoryExistsCreate Select Case CvePlataforma Case 6, 7 - dtMenu.FiltraParametros($"CvePlataforma = {CvePlataforma}").WriteXml($"{Carpeta}/{CveUsuario}.xml", XmlWriteMode.WriteSchema) + dtMenu.FiltraParametros($"CvePlataforma = {CvePlataforma}").WriteXml($"{Carpeta}/{CveEmpresa}-{CveUsuario}.xml", XmlWriteMode.WriteSchema) Case Else - dtMenu.FiltraParametros("CvePlataforma = 1").WriteXml($"{Carpeta}/{CveUsuario}.xml", XmlWriteMode.WriteSchema) + dtMenu.FiltraParametros("CvePlataforma = 1").WriteXml($"{Carpeta}/{CveEmpresa}-{CveUsuario}.xml", XmlWriteMode.WriteSchema) End Select Retorno = True diff --git a/Site.master.vb b/Site.master.vb index 65998e82b..b47371759 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -376,9 +376,9 @@ Partial Class Site Dim dt As New DataTable If UsuarioActual.CveRol = 1200 Then - dt.ReadXml(String.Format("{0}\Menu\GPS\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario)) + dt.ReadXml(String.Format("{0}\Menu\GPS\{1}-{2}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Else - dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario)) + dt.ReadXml(String.Format("{0}\Menu\ERP\{1}-{2}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) End If Dim menuobj As New MenuModal() From 8f105dab174cf45f1f6a311fe25d5c2c27d00961 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 31 Jul 2024 19:42:43 -0700 Subject: [PATCH 04/11] 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
    +
    +
    + + + + +
    + + +
    +
    +
    +
    +
    > + +
    +
    -     -     - - - - - - -
    -
    - - - +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    + + + +