-- ocultrar lineas adicionales, solo para E119

-- contrato 'solo para la E13

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()