AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- ocultrar lineas adicionales, solo para E119

Browse Source 
-- contrato 'solo para la E13
This commit is contained in:
rrene
2023-02-14 14:33:24 -07:00
parent 64f3249f9f
commit eba962b5e8
4 changed files with 32 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CxC/RepCxC.aspx
View File

@@ -350,17 +350,17 @@
</div>
<div class="row">
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top" id="divLineaAdicional1" runat="server" visible="false">
Linea Adicional:
</div>
<div class="col-md-2">
<div class="col-md-2" id="divLineaAdicional2" runat="server" visible="false">
<asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
<asp:ListItem Text="Solo lineas adicionales" Value="1"></asp:ListItem>
<asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
<div class="col-md-1 truncate" title="Contrato:" data-toggle="tooltip" data-placement="top" id="divContrato1" visible="false" runat="server" >
Contrato:
</div>
<div class="col-md-2" runat="server" id="divContrato" visible="false" >

18
CxC/RepCxC.aspx.vb
View File

@@ -113,8 +113,6 @@ Partial Class RepCxC
DdlClientesWS.setEsWebService(False)
CargaClientes()
End If
'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
'DdlClientes.DataBind()
'CargaSubProyectos
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
@@ -152,17 +150,10 @@ Partial Class RepCxC
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()
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()

7
CxC/RepCxCDetalle.aspx
View File

@@ -334,18 +334,17 @@
</div>
<div class="row">
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top" id="divLineaAdicional1" runat="server" visible="false">
Linea Adicional:
</div>
<div class="col-md-2">
<div class="col-md-2" id="divLineaAdicional2" runat="server" visible="false">
<asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
<asp:ListItem Text="Solo lineas adicionales" Value="1"></asp:ListItem>
<asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
<div class="col-md-1 truncate" title="Contrato:" data-toggle="tooltip" data-placement="top" id="divContrato1" visible="false" runat="server" >
Contrato:
</div>
<div class="col-md-2" runat="server" id="divContrato" visible="false" >

11
CxC/RepCxCDetalle.aspx.vb
View File

@@ -249,12 +249,8 @@ Partial Class RepCxCDetalle
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
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True)
Else
@@ -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()
@@ -439,7 +439,8 @@ Partial Class RepCxCDetalle
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=-1) Then
DdlContrato.DataSource = ObjContratos.DtResultados
End If
divContrato.Visible = True
divContrato.Visible = True
divContrato1.Visible = True
ObjContratos.Dispose()
DdlContrato.DataBind()