Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports Extensiones
+Imports System.Data
 Partial Class Inventarios_Default
     Inherits ClsPaginas
 
@@ -247,7 +248,7 @@ Partial Class Inventarios_Default
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then
             GV.DataSource = ObjInventarios.DtResultados
-            TblBusqueda.Visible = False
+            TblBusqueda.Visible = True
             CargaPS(DDlPS.SelectedValue.ToEntero)
             GV.Columns(6).Visible = True
         End If
@@ -280,16 +281,18 @@ Partial Class Inventarios_Default
     End Sub
 #End Region
 
-    Private Sub CargarMedRin()
-        Dim ObjGral As New ClsGenerales
-        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
-            DdlMedidas.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="Medida")
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
-            End If
-        End If
-        ObjGral.Dispose()
-        DdlMedidas.DataBind()
+    Private Sub CargarMedRin()
+        'Dim ObjGral As New ClsGenerales
+        'If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+        '    DdlMedidas.DataSource = GlobalDTPS.FiltraParametros("", Orderby:="Medida")
+        '    If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+        '        DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
+        '    End If
+        'End If
+        'ObjGral.Dispose()
+        DdlMedidas.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Medida")
+        DdlMedidas.DataBind()
+        DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="RinTamaño")
         DdlRin.DataBind()
         DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
         DdlRin.Items.Insert(0, New ListItem("-", "-1"))

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2933,11 +2933,10 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim RowsNoCargados As Integer = 0
             Dim NoPSConSerie As Integer = 0
             Try
-                Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
                     If RowExcel("Codigo").ToString() <> "" Then
 
-
                         Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2954,7 +2953,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             Dim Valido As Boolean = True
                             Dim ValidarLote As Boolean = True
 
-                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then
+                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}") = "6" Then
                                 ValidarLote = False
                             End If