+
Contrato:
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index a34e84d44..be381b986 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -112,10 +112,8 @@ Partial Class RepCxC
Else
DdlClientesWS.setEsWebService(False)
CargaClientes()
- End If
- 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
- 'DdlClientes.DataBind()
-
+ End If
+
'CargaSubProyectos
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
@@ -150,19 +148,12 @@ Partial Class RepCxC
'Carga Clasificacion Cliente
DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
DdlClienteClasificacion.DataBind()
- DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
-
- 'Dim ObjSisUsuarios As New ClsSisUsuarios()
-
- 'If ObjSisUsuarios.GetEmpresasUsuario(UsuarioActual.CveUsuario) Then
- ' DdlEmpresas.DataSource = ObjSisUsuarios.DtResultados
- ' DdlEmpresas.DataBind()
- ' DivEmpresasFiltro.Visible = True
- ' For i As Integer = 0 To DdlEmpresas.Items.Count - 1
- ' DdlEmpresas.Items(i).Selected = True
- ' Next
- 'End If
- 'ObjSisUsuarios.Dispose()
+ DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ If UsuarioActual.CveEmpresa = 119 Then
+ divLineaAdicional1.Visible = True
+ divLineaAdicional2.Visible = True
+ End If
If UsuarioActual.CveEmpresa = 13 Then
CargaContratos()
End If
@@ -175,6 +166,7 @@ Partial Class RepCxC
DdlContrato.DataSource = ObjContratos.DtResultados
End If
divContrato.Visible = True
+ divContrato1.visible = True
ObjContratos.Dispose()
DdlContrato.DataBind()
diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx
index 694f59a17..04d766ef4 100644
--- a/CxC/RepCxCDetalle.aspx
+++ b/CxC/RepCxCDetalle.aspx
@@ -334,20 +334,19 @@
-
+
Linea Adicional:
-
-
-
-
- Contrato:
+
+
+ Contrato:
+
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb
index 4edcd7ef5..357ee0d8c 100644
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/CxC/RepCxCDetalle.aspx.vb
@@ -247,13 +247,9 @@ Partial Class RepCxCDetalle
#Region "CARGAS"
Private Sub CargaCombos()
Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
- CveEstatus, CveResponsable, CveAgrupador, CveClienteClasificacion As Integer
-
- 'CargaClientes
- 'CargaClientes
- 'txtFechaI.Text = Now.AddMonths(-12).FirstDayOfMonth.ToShortDateString
- txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+ CveEstatus, CveResponsable, CveAgrupador, CveClienteClasificacion As Integer
+ txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True)
@@ -427,6 +423,10 @@ Partial Class RepCxCDetalle
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
DdlTieneLineaAdicional.SelectedValueExist(If(Request("TieneLineaAdicional") IsNot Nothing, Request("TieneLineaAdicional").ToString, "-1").ToString)
+ If UsuarioActual.CveEmpresa = 119 Then
+ divLineaAdicional1.Visible = True
+ divLineaAdicional2.Visible = True
+ End If
If UsuarioActual.CveEmpresa = 13 Then
CargaContratos()
@@ -438,8 +438,9 @@ Partial Class RepCxCDetalle
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=-1) Then
DdlContrato.DataSource = ObjContratos.DtResultados
- End If
- divContrato.Visible = True
+ End If
+ divContrato.Visible = True
+ divContrato1.Visible = True
ObjContratos.Dispose()
DdlContrato.DataBind()