AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-31 17:36:07 -07:00
parent 372db127a1
commit f2ccad3c22
5 changed files with 25 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
AF/AF.aspx.vb
View File

@@ -3652,11 +3652,12 @@ Partial Class AF_AF
DivSeccion.Visible = CBool(drr("AplicaSeccion")) DivSeccion.Visible = CBool(drr("AplicaSeccion"))
DdlSeccionAlmacen.Items.Clear() DdlSeccionAlmacen.Items.Clear()
If CBool(drr("AplicaSeccion")) Then If CBool(drr("AplicaSeccion")) Then
Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero) CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
DdlSeccionAlmacen.DataSource = dtt 'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero)
DdlSeccionAlmacen.DataBind() 'DdlSeccionAlmacen.DataSource = dtt
'DdlSeccionAlmacen.DataBind()
dtt.Dispose() 'dtt.Dispose()
End If End If

5
Inventarios/Apartados.aspx.vb
View File

@@ -285,8 +285,9 @@ Partial Class Inventarios_Apartados
If CBool(drP("AplicaSeccion")) Then If CBool(drP("AplicaSeccion")) Then
ThSeccion.Visible = True ThSeccion.Visible = True
TdSeccionAlmacen.Visible = True TdSeccionAlmacen.Visible = True
DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero) CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
DdlSeccionAlmacen.DataBind() 'DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
'DdlSeccionAlmacen.DataBind()
GvDatos.Columns(7).Visible = True GvDatos.Columns(7).Visible = True
End If End If

15
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -352,13 +352,14 @@ Partial Class Inventarios_ResguardoMaterial
TrSeccion.Visible = True TrSeccion.Visible = True
If DdlAlmacen.SelectedValue.ToEntero > 0 Then If DdlAlmacen.SelectedValue.ToEntero > 0 Then
DdlSeccionAlmacen.Items.Clear() DdlSeccionAlmacen.Items.Clear()
Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero) CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
DdlSeccionAlmacen.DataSource = dtt 'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
DdlSeccionAlmacen.DataBind() 'DdlSeccionAlmacen.DataSource = dtt
If dtt.Rows.Count > 1 Then 'DdlSeccionAlmacen.DataBind()
DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) 'If dtt.Rows.Count > 1 Then
End If ' DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
dtt.Dispose() 'End If
'dtt.Dispose()
End If End If
End If End If
'activa lote 'activa lote

15
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -1534,13 +1534,14 @@ Partial Class Inventarios_TraspasoAlmacen
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad"))) 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 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) CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt 'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind() 'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
If dtt.Rows.Count > 1 Then 'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) 'If dtt.Rows.Count > 1 Then
End If ' e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
dtt.Dispose() 'End If
'dtt.Dispose()
End If End If
End If End If

1
RH/Personal.aspx.vb
View File

@@ -5103,6 +5103,7 @@ Partial Class RH_Personal
If row.DataKey("AplicaSeccion").ToString = "True" Then If row.DataKey("AplicaSeccion").ToString = "True" Then
divSeccionAlmacen.Visible = True divSeccionAlmacen.Visible = True
DdlSeccionAlmacen.Items.Clear() DdlSeccionAlmacen.Items.Clear()
CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS, UsuarioActual.CveEmpresa)
DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS) DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS)
DdlSeccionAlmacen.DataBind() DdlSeccionAlmacen.DataBind()
End If End If