From 8a7723f586d1e1355aa76020a351060f5567dbd6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 1 Aug 2024 20:26:23 -0700 Subject: [PATCH] Solicitudes de traspaso de Almacen validar entre usuarios, enviar a praspaso --- Inventarios/TrasladoSolicitud.aspx | 60 +++++++++++++++++++-------- Inventarios/TrasladoSolicitud.aspx.vb | 37 ++++++++++++++--- Inventarios/TraspasoAlmacen.aspx.vb | 17 ++++++++ 3 files changed, 90 insertions(+), 24 deletions(-) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 6b3d73883..86527b08b 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -77,16 +77,15 @@ - + DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada" > - - - - - - <%----%> + + + + + @@ -96,11 +95,33 @@ - + <%-- - +
+
+ +
+
+ +
+
- + --%> + + +
+
+ +
+
+ +
+
+
+ + + + @@ -145,31 +166,34 @@ ErrorMessage="ERROR:
El campo ''Almacén Destino'' es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"> - +
-
+
-
+
+
+ +
-
+ <%--
- <%----%> - + +
-
+
--%>
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 763e669aa..58021989a 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud Private Sub CargaAlmacenes() 'Cargo los almacenes - DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado + DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado 'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) @@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud End Sub Private Sub CargaCombos() - DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") + DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenOrigenFiltro.DataBind() DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1")) - DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") + DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenDestinoFiltro.DataBind() DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1")) @@ -357,6 +357,9 @@ Partial Class Inventarios_TrasladoSolicitud Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs) + GvSolicitudes.DataSource = Nothing + GvSolicitudes.DataBind() + UpModalSolicitudes.Update() RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd")) End Sub @@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs) - Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero + Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 3").FiltroPrimeroValor("CveAlmacen").ToEntero 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero If Not CveAlmacenTransictorio > 0 Then Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia) @@ -674,15 +677,37 @@ Partial Class Inventarios_TrasladoSolicitud If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) + Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) + Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False) + + Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero + Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero + Dim CveAlmacenDestino As Integer = e.Row.DataKey("CveAlmacenDestino").ToEntero + Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero + Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero + + Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso + + e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue" e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info" + e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen + Else If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green" + + e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green" + + If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso CveMomientoEntrada <= 0 Then + e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True + e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}" + End If + + Else e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red" @@ -702,7 +727,7 @@ Partial Class Inventarios_TrasladoSolicitud DdlAlmacenDestino.SelectedValue = Nothing DdlAlmacenDestino.Items.Clear() - DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen = 1 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) UpPS.Update() diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 852727307..097f0c324 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen ImgFechaRecepcion.Visible = False End If + If Request("CveAlmacenTransitorioR") IsNot Nothing Then + CargaRecepcionTraspaso() + End If + Else If ChkTransitorio.Checked Then RegistraScript(" $('#DivGastoIndirecto').show(0); ") @@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen End If End Sub + Private Sub CargaRecepcionTraspaso() + Tab.ActiveTabIndex = 1 + Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1) + Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1) + Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1) + + DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR) + DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR) + TxtFolioRecepcion.Text = FolioR.ToString + + CargaRecepcion() + End Sub + #Region "CARGA DATOS" Protected Sub CreaDT() Dim dt As New DataTable