diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 556115b6d..6b3d73883 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -77,18 +77,22 @@ - - - - + - + <%----%> + + + + + + @@ -128,12 +132,17 @@
- + + +
+
@@ -156,7 +165,9 @@
- + <%----%> + +
@@ -182,7 +193,7 @@
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index ff86d81a5..763e669aa 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -84,9 +84,10 @@ 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 - DdlAlmacenDestino.DataSource = 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() - DdlAlmacenDestino.DataBind() + DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) + 'DdlAlmacenDestino.DataBind() End Sub @@ -493,7 +494,7 @@ Partial Class Inventarios_TrasladoSolicitud Dim FolioEntrada As Integer = 0 Dim TextoError As String = "" - Dim CveConceptoEntrada As Integer = 27 + Dim CveConceptoEntrada As Integer = 9 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN @@ -527,7 +528,7 @@ Partial Class Inventarios_TrasladoSolicitud End If Next - 'For Each Dr As DataRow In DtMovimientos.Rows + 'For Each Dr As DataRow In DtMovimientos.RowsF 'Next End If @@ -550,7 +551,7 @@ Partial Class Inventarios_TrasladoSolicitud For Each Dr As DataRow In ObjInventario.DtResultados.Rows Dim CostoEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, Dr("PU").ToString.ToDecimal()) If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, CostoEntrada, CveAF:=-1, - CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, CveMovimientoDetalleEntrada:=-1, Observaciones:="") Then + CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:="") Then ErrorMovInv = True TextoError = "Ocurrió un error al guardar los movimientos de entrada" Exit For @@ -621,7 +622,12 @@ Partial Class Inventarios_TrasladoSolicitud ObjInventario.Commit() MensajeAlert.Append("Se realizó con éxito el traspaso.") MensajeAlert.AppendFormat("
Folio de Salida: {0}", FolioSalida, CveMovimientoSalida) - MensajeAlert.AppendFormat("
Imprimir ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) + MensajeAlert.AppendFormat("
Imprimir Salida ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) + + MensajeAlert.AppendFormat("
Folio de Transitorio: {0}", FolioEntrada, CveMovimientoEntrada) + MensajeAlert.AppendFormat("
Imprimir Transitorio ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) + + Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "") RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSolicitud")) Else @@ -672,10 +678,13 @@ Partial Class Inventarios_TrasladoSolicitud 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" 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" Else + e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red" End If @@ -686,4 +695,16 @@ Partial Class Inventarios_TrasladoSolicitud End If End Sub + + Protected Sub DdlAlmacenOrigen_SelectedIndexChanged(sender As Object, e As EventArgs) + + DdlAlmacenDestino.ClearSelection() + DdlAlmacenDestino.SelectedValue = Nothing + DdlAlmacenDestino.Items.Clear() + + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") + DdlAlmacenDestino.DataBind() + DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) + UpPS.Update() + End Sub End Class