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

dropdownlist por dropdownlost en proveedor

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-07-23 10:17:55 -07:00
parent 34b155b4dd
commit c5dfa66659
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contratos/Contrato.aspx.vb
View File

@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
End Sub End Sub
Private Sub CargaContratoPadre() Private Sub CargaContratoPadre()
DdlContratoPadre.Items.Clear() DdlContratoPadre.Items.Clear()
DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
DdlContratoPadre.DataBind() DdlContratoPadre.DataBind()
DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

6
Contratos/ContratoObra.aspx
View File

@@ -355,10 +355,8 @@
<label class="col-md-3 truncate "> <label class="col-md-3 truncate ">
<asp:Label ID="LblProveedor" runat="server" Text="Proveedor:"></asp:Label></label> <asp:Label ID="LblProveedor" runat="server" Text="Proveedor:"></asp:Label></label>
<div class="col-md-9"> <div class="col-md-9">
<asp:DropDownList ID="DdlContratista" runat="server" CssClass="input-sm form-control select2me" AppendDataBoundItems="True" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 350px !important;" ValidationGroup="GrpGuardar"> <ADS:Dropdownlost ID="DdlContratista" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> </div>
</asp:DropDownList>
</div>
</div> </div>

6
Contratos/ContratoObra.aspx.vb
View File

@@ -744,6 +744,8 @@ Partial Class Contratos_ContratoObra
TrCliente.Visible = False TrCliente.Visible = False
CargaContratista() CargaContratista()
DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString
DdlContratista.SelectedText = ObjContratos.RazonSocial.ToString
Else Else
cargaClientes() cargaClientes()
DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString
@@ -1205,8 +1207,8 @@ Partial Class Contratos_ContratoObra
' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
'End Sub 'End Sub
Private Sub CargaContratista() Private Sub CargaContratista()
DdlContratista.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlContratista.setEsWebService(True)
DdlContratista.DataBind() DdlContratista.Attributes.Add("data-metodo", "getproveedores")
End Sub End Sub
'Private Sub CargaVendedores() 'Private Sub CargaVendedores()