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

se cambió combo de clientes de contratos a dropdownlost

Browse Source
This commit is contained in:
rrene
2021-06-01 16:20:49 -07:00
parent 8b30a9e2ab
commit 2a1cbf53f9
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OC/OC.aspx
View File

@@ -2545,7 +2545,7 @@
<div class="row"> <div class="row">
<label class="col-md-1 ">Clientes:</label> <label class="col-md-1 ">Clientes:</label>
<div class="col-md-11"> <div class="col-md-11">
<asp:DropDownList ID="DdlClientes" CssClass="form-control select2me" runat="server" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente"></asp:DropDownList> <ADS:Dropdownlost ID="DdlClienteContrato" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
</div> </div>
</div> </div>
<div class="row"> <div class="row">

23
OC/OC.aspx.vb
View File

@@ -677,7 +677,7 @@ Partial Class OC
TipoOS = True TipoOS = True
End If End If
BtnGeneraContrato.Visible = True : CargaClientes() BtnGeneraContrato.Visible = True : CargaClientesContrato()
CargaEstatusInicialFinal() CargaEstatusInicialFinal()
CargaEstatusUsuarios() CargaEstatusUsuarios()
@@ -6770,7 +6770,7 @@ Partial Class OC
BtnSolicitudAnticipo.Visible = False BtnSolicitudAnticipo.Visible = False
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True LbDescargarExcel.Visible = True
BtnGeneraContrato.Visible = True : CargaClientes() BtnGeneraContrato.Visible = True : CargaClientesContrato()
LbVerificarExistencia.Visible = True LbVerificarExistencia.Visible = True
LnkAgregarGuia.Visible = False LnkAgregarGuia.Visible = False
@@ -7387,10 +7387,11 @@ Partial Class OC
#Region "CONTRATOS" #Region "CONTRATOS"
Private Sub CargaClientes() Private Sub CargaClientesContrato()
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind() 'DdlClientes.DataBind()
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlClienteContrato
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
@@ -7403,20 +7404,20 @@ Partial Class OC
UpContrato.Update() UpContrato.Update()
End Sub End Sub
Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged Private Sub DdlClienteContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteContrato.selectedindexchange
DdlContratos.Items.Clear() DdlContratos.Items.Clear()
' DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'") ' DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, 1) Then If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClienteContrato.SelectedValue.ToEntero, -1, 1) Then
If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 Then If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 Then
DdlContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'") DdlContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
DdlContratos.DataBind()
End If End If
End If End If
ObjContratos.Dispose()
DdlContratos.DataBind()
DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7492,7 +7493,7 @@ Partial Class OC
End If End If
Next Next
TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString) TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
Ddlcliente.txtValue.Value = DdlClientes.SelectedValue Ddlcliente.txtValue.Value = DdlClienteContrato.SelectedValue
CargaSuperior() CargaSuperior()
CargaDatosDetalles() CargaDatosDetalles()