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 @@
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 @@
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