-- mejoras en redimiento al obtener movtosdetalle

-- mejora visual es

Inventarios/EntradasSalidas.aspx.vb

@@ -688,8 +688,6 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
 
-
-
         CargaPS()
 
         ' CargaDdlPaqueteria()
@@ -701,7 +699,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtFechaEntrega.Text = NowADS().ToShortDateString
         TxtFechaLlegada.Text = NowADS().ToShortDateString
 
-        CargarCamiones()
+        'CargarCamiones()
         DdlClienteCarta.setEsWebService(True)
 
     End Sub
@@ -743,15 +741,15 @@ Partial Class Inventarios_EntradasSalidas
         TrPersonal.Visible = True
         Dim dt As DataTable = Nothing
 
-        Dim RH As New ClsRH
+        'Dim RH As New ClsRH
 
-        If RH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            dt = RH.DtResultados
-        End If
+        'If RH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        '    dt = RH.DtResultados
+        'End If
 
-        RH.Dispose()
+        'RH.Dispose()
 
-        DdlPersonal.DataSource = dt
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlPersonal.DataBind()
         'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -5804,38 +5802,28 @@ Partial Class Inventarios_EntradasSalidas
         DdlRemolque2.SelectedValueExist(-1)
 
         If DdlConfigAuto.SelectedValue.ToEntero > 0 Then
+            Dim dtt As DataTable = GlobalDTGralCartaPorteConfigAutoTransportes
 
-            Using ObjGrales As New ClsGenerales
-                If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
-                    Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
-
-
-                    If Remolque = "1" Then
-                        RequiereRemolque = True
-                        MostrarRemolques = True
-                    End If
-
-                    If Remolque = "0, 1" Then
-                        RequiereRemolque = False
-                        MostrarRemolques = True
-                    End If
-
-                    If Remolque = "0" Then
-                        RequiereRemolque = False
-                        MostrarRemolques = False
-                    End If
+            If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+                Dim Remolque As String = dtt.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
+                If Remolque = "1" Then
+                    RequiereRemolque = True
+                    MostrarRemolques = True
                 End If
-            End Using
-
+                If Remolque = "0, 1" Then
+                    RequiereRemolque = False
+                    MostrarRemolques = True
+                End If
+                If Remolque = "0" Then
+                    RequiereRemolque = False
+                    MostrarRemolques = False
+                End If
+            End If
         Else
             RequiereRemolque = False
             MostrarRemolques = False
         End If
-
-
-
-
-        If RequiereRemolque Or MostrarRemolques Then
+        If RequiereRemolque OrElse MostrarRemolques Then
             DvRemolque1.Visible = True
         End If
 
@@ -5844,8 +5832,6 @@ Partial Class Inventarios_EntradasSalidas
         Else
             DvConfiguracionVeiculo.Visible = True
         End If
-
-
         UpEmitirTransitorio.Update()
     End Sub
 
@@ -5911,30 +5897,14 @@ Partial Class Inventarios_EntradasSalidas
 
         DdlConfigAuto.Items.Clear()
         DdlUnidadCamion.Items.Clear()
-
-        Using ObjInv As New ClsInventarios
-
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
-                DdlUnidadCamion.DataSource = ObjInv.DtResultados
-            End If
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
-                DdlRemolque1.DataSource = ObjInv.DtResultados
-            End If
-
-        End Using
-
+        DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
+        DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
-        Using ObjGrales As New ClsGenerales
-
-            If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
-                DdlConfigAuto.DataSource = ObjGrales.DtResultados
-            End If
-
-        End Using
+        DdlConfigAuto.DataSource = GlobalDTGralCartaPorteConfigAutoTransportes
         DdlConfigAuto.DataBind()
         DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))