Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/RecepcionUsados.aspx.vb

@@ -2774,6 +2774,11 @@ Partial Class Inventarios_RecepcionUsados
             HdnPSAjusteMarca.Value = CveMarca.ToString()
             HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
 
+            If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
 
             If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es  10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
@@ -2951,6 +2956,12 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CalculaPorcentajeAjuste()
         Try
+
+            If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" Then
                 Dim CveMarca As Integer = -1
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1608,10 +1608,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If TxtFolioRecepcion.Text.Trim <> "" Then
                 CveMovimientoSalida = Dtt.FiltroPrimeroValor("CveMovimiento", "").ToEntero
-
+                CveAlmacenTransitorio = Dtt.FiltroPrimeroValor("CveAlmacenTransitorio", "").ToEntero
+            Else
+                CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
             End If
             CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero
-            CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
+
             'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero
 
             GvDatosRecepcion.DataSource = Dtt
@@ -1897,6 +1899,13 @@ Partial Class Inventarios_TraspasoAlmacen
                 Exit Sub
             End If
 
+            Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
+
+            If CveAlmacenTransitorio <> CveAlmacenSalida Then
+                Alert("El almacen transitorio debe coincidir con el del movimiento.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
 
             Dim ObjInventario As New ClsInventarios
             Dim Dtt As DataTable = Nothing
@@ -1923,7 +1932,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
 
             Dim CveAlmacenEntrada As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero
-            Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
+
 
             Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
             Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()