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">
<label class="col-md-1 ">Clientes:</label>
<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 class="row">

23
OC/OC.aspx.vb
View File

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