diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index efdbd5a25..7d3879893 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -350,17 +350,17 @@
-
+
Linea Adicional:
-
+
-
+
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()