-- ocultrar lineas adicionales, solo para E119

-- contrato 'solo para la E13

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