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

-- centros de costo, texto proyecto

Browse Source
This commit is contained in:
rrene
2023-02-13 22:26:16 -07:00
parent 7278b31649
commit 656f04e537
3 changed files with 24 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
App_Code/ClsPaginas.vb
View File

@@ -4291,42 +4291,31 @@ Public Class ClsPaginas
ObjUsuario.Dispose() ObjUsuario.Dispose()
Return Retorno Return Retorno
End Function End Function
Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing)
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1 To 3
If LblSubProyecto IsNot Nothing Then
Select Case UsuarioActual.Empresa.Tipo_CentroCosto Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1 Case 1
LblSubProyecto.Text = "Centro de costo" If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
If divProyecto IsNot Nothing Then divProyecto.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
Case 2 Case 2
LblSubProyecto.Text = "Sucursal" If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
If divProyecto IsNot Nothing Then divProyecto.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
Case 3 Case 3
LblSubProyecto.Text = "Proyecto" If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
End Select If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
End If If divProyecto IsNot Nothing Then divProyecto.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto
If LblProyecto IsNot Nothing Then
LblProyecto.Visible = False
Else
RegistraScript("$('[id$=""LblProyecto""]').css('display', 'none');")
End If
Case 4 To 5
If LblSubProyecto IsNot Nothing Then
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 4 Case 4
LblSubProyecto.Text = "Subproyecto" If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto<br/>"
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
Case 5 Case 5
LblSubProyecto.Text = "Sucursal" If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto<br/>"
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
End Select End Select
End If
If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto"
End Select
If DdlProyecto IsNot Nothing Then If DdlProyecto IsNot Nothing Then
DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
DdlProyecto.DataBind() DdlProyecto.DataBind()

2
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -288,7 +288,7 @@ Partial Class RepVentaDetalle
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargaClientes() CargaClientes()
'DdlClientes.setEsWebService(False) 'DdlClientes.setEsWebService(False)

2
Ventas/RepVentas.aspx.vb
View File

@@ -159,7 +159,7 @@ Partial Class Ventas_RepVentas
Private Sub CargaCombos() Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
'CargaClientes 'CargaClientes
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)