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

Limpieza masiva Centros de costo

Browse Source 
-Se unificó todo el comporatmiento de centros de costo en ClsPaginas
-Se unificó la carga de subproyectos en ClsPaginas
This commit is contained in:
MLopez
2023-02-08 16:44:41 -07:00
parent fd682230cb
commit 006d94145e
50 changed files with 191 additions and 1705 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Inventarios/Remanufactura.aspx.vb
View File

@@ -87,6 +87,8 @@ Partial Class Inventarios_Remanufactura
Public Sub InicializaValores()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
TxtFecha.Text = Now.ToShortDateString
'Carga Clientes
@@ -106,15 +108,7 @@ Partial Class Inventarios_Remanufactura
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacen.DataBind()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProyecto.DataBind()
CargaFolio()
CargaTipoCentroCosto()
CreaDTVentas()
End Sub
@@ -133,37 +127,6 @@ Partial Class Inventarios_Remanufactura
UpDatosRemanufactura.Update()
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.Text = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlSubProyecto.Items.Clear()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal:"
LblSubProyecto.Text = "Proyecto:"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto:"
LblSubProyecto.Text = "Sucursal:"
End If
End Sub
#End Region
#Region "GUARDAR"
@@ -976,12 +939,7 @@ Partial Class Inventarios_Remanufactura
#Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.Items.Clear()
If DdlProyecto.SelectedValue.ToEntero > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
End If
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
#End Region