diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index d5595991a..ee503615a 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -250,10 +250,10 @@
+ SubProyecto: -
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 778a6275d..26e8947e3 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -47,6 +47,7 @@ Partial Class Acumuladores_CatFoliosGarantia #Region "Folios Garantía" Private Sub CargaSubProyectos() + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) DdlSubProyectos.Items.Clear() DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataBind() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index a394d9dfa..5d72b5557 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -891,8 +891,8 @@ Cantidad
Facturada -
- +
+ P.U.  Desc @@ -5345,16 +5345,16 @@
+ Proyecto: -
+ SubProyecto: -
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index afc90a877..0fb24e713 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -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