AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Solicitudes de traspaso de Almacen validar entre usuarios, enviar a praspaso

Browse Source
This commit is contained in:
rakcsle
2024-08-01 20:26:23 -07:00
parent 19aba02fb6
commit 8a7723f586
3 changed files with 90 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -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()