From f2ccad3c223f23cc18a046b62776c51ed6b8943d Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 31 Jul 2020 17:36:07 -0700
Subject: [PATCH] -

---
 AF/AF.aspx.vb                         |  9 +++++----
 Inventarios/Apartados.aspx.vb         |  5 +++--
 Inventarios/ResguardoMaterial.aspx.vb | 15 ++++++++-------
 Inventarios/TraspasoAlmacen.aspx.vb   | 15 ++++++++-------
 RH/Personal.aspx.vb                   |  1 +
 5 files changed, 25 insertions(+), 20 deletions(-)

diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 506741f34..f4cf2ee95 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -3652,11 +3652,12 @@ Partial Class AF_AF
             DivSeccion.Visible = CBool(drr("AplicaSeccion"))
             DdlSeccionAlmacen.Items.Clear()
             If CBool(drr("AplicaSeccion")) Then
-                Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero)
-                DdlSeccionAlmacen.DataSource = dtt
-                DdlSeccionAlmacen.DataBind()
+                CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+                'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero)
+                'DdlSeccionAlmacen.DataSource = dtt
+                'DdlSeccionAlmacen.DataBind()
 
-                dtt.Dispose()
+                'dtt.Dispose()
 
             End If
 
diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb
index 6853eb7ec..f25090430 100644
--- a/Inventarios/Apartados.aspx.vb
+++ b/Inventarios/Apartados.aspx.vb
@@ -285,8 +285,9 @@ Partial Class Inventarios_Apartados
                 If CBool(drP("AplicaSeccion")) Then
                     ThSeccion.Visible = True
                     TdSeccionAlmacen.Visible = True
-                    DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
-                    DdlSeccionAlmacen.DataBind()
+                    CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+                    'DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+                    'DdlSeccionAlmacen.DataBind()
                     GvDatos.Columns(7).Visible = True
                 End If
 
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index c2f7c86af..fb4e1fd2c 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -352,13 +352,14 @@ Partial Class Inventarios_ResguardoMaterial
                     TrSeccion.Visible = True
                     If DdlAlmacen.SelectedValue.ToEntero > 0 Then
                         DdlSeccionAlmacen.Items.Clear()
-                        Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
-                        DdlSeccionAlmacen.DataSource = dtt
-                        DdlSeccionAlmacen.DataBind()
-                        If dtt.Rows.Count > 1 Then
-                            DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                        End If
-                        dtt.Dispose()
+                        CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+                        'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+                        'DdlSeccionAlmacen.DataSource = dtt
+                        'DdlSeccionAlmacen.DataBind()
+                        'If dtt.Rows.Count > 1 Then
+                        '    DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                        'End If
+                        'dtt.Dispose()
                     End If
                 End If
                 'activa lote
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 9ce5b10d3..05c5c6f2e 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1534,13 +1534,14 @@ Partial Class Inventarios_TraspasoAlmacen
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
                 If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
 
-                    Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    If dtt.Rows.Count > 1 Then
-                        e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    End If
-                    dtt.Dispose()
+                    CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
+                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    'If dtt.Rows.Count > 1 Then
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    'End If
+                    'dtt.Dispose()
 
                 End If
             End If
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 50d0a075f..4e96f2b92 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -5103,6 +5103,7 @@ Partial Class RH_Personal
         If row.DataKey("AplicaSeccion").ToString = "True" Then
             divSeccionAlmacen.Visible = True
             DdlSeccionAlmacen.Items.Clear()
+            CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS, UsuarioActual.CveEmpresa)
             DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS)
             DdlSeccionAlmacen.DataBind()
         End If