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-03 20:03:27 -07:00
parent 7cf14ef53b
commit 2624f0d8e1
4 changed files with 32 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
Ventas/Ventas.aspx.vb
View File

@@ -1948,7 +1948,7 @@ Partial Class Ventas
CreaDTmpF()
CreaDTDocumentosRelacionados()
CargaDdlSubProyectos()
CargaProyecto()
'CargaProyecto()
CargaSucursales()
CargaClasificaciones()
@@ -2455,10 +2455,10 @@ Partial Class Ventas
'DdlProyecto.Visible = False
BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Sucursal"
' LblProyectoHeader.Text = "Sucursal"
LblSubProyecto.Text = ""
divProyectoPyME.Visible = False
LblSubProyectoPyME.InnerText = "Sucursal"
'LblSubProyectoPyME.InnerText = "Sucursal"
Dim dttSub As New DataTable
dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
@@ -2479,37 +2479,38 @@ Partial Class Ventas
'DdlProyecto.Visible = False
BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Proyecto"
'LblProyectoHeader.Text = "Proyecto"
LblSubProyecto.Text = ""
divProyectoPyME.Visible = False
LblSubProyectoPyME.InnerText = "Proyecto"
Dim dttSub As New DataTable
dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'LblSubProyectoPyME.InnerText = "Proyecto"
'Dim dttSub As New DataTable
'dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = dttSub
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = dttSub
''DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoPyME.Items.Clear()
DdlSubProyectoPyME.DataSource = dttSub
'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyectoPyME.DataBind()
DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
dttSub.Dispose()
'DdlSubProyectoPyME.Items.Clear()
'DdlSubProyectoPyME.DataSource = dttSub
''DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
'DdlSubProyectoPyME.DataBind()
'DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
'dttSub.Dispose()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyectoHeader.Text = "Sucursal"
LblSubProyecto.Text = "Proyecto"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LblProyectoHeader.Text = "Sucursal"
' LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyectoHeader.Text = "Proyecto"
LblSubProyecto.Text = "Sucursal"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LblProyectoHeader.Text = "Proyecto"
' LblSubProyecto.Text = "Sucursal"
End If
CargarCentrosDeCosto(Nothing, Nothing, LblProyectoHeader, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then