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

en préstamo de proveedor, al iniciar que no tenga seleccionado proveedor

Browse Source
This commit is contained in:
rakcsle
2025-02-25 10:17:57 -07:00
parent 6887b8cecc
commit c8530d3e46
2 changed files with 23 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Inventarios/EntradasSalidas.aspx
View File

@@ -285,7 +285,8 @@
<div class="row" id="TrProveedor" runat="server" visible="false"> <div class="row" id="TrProveedor" runat="server" visible="false">
<label class="col-md-1 truncate">Proveedor</label> <label class="col-md-1 truncate">Proveedor</label>
<div class="col-md-5"> <div class="col-md-5">
<asp:DropDownList ID="DdlProveedor" CssClass="form-control select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList> <%--<asp:DropDownList ID="DdlProveedor" CssClass="form-control select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div> </div>
</div> </div>
<div class="row" id="TrTipoCargado" runat="server" visible="false"> <div class="row" id="TrTipoCargado" runat="server" visible="false">

29
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1130,10 +1130,18 @@ Partial Class Inventarios_EntradasSalidas
'TxtPedidoContrato.Text = Mov.PedidoContrato 'TxtPedidoContrato.Text = Mov.PedidoContrato
If Mov.CveProveedor > 0 Then If Mov.CveProveedor > 0 Then
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Mov.CveProveedor) 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Mov.CveProveedor)
DdlProveedor.DataBind() 'DdlProveedor.DataBind()
DdlProveedor.SelectedValueExist(Mov.CveProveedor) 'DdlProveedor.SelectedValueExist(Mov.CveProveedor)
DdlProveedor.Enabled = False 'DdlProveedor.Enabled = False
'CargaProveedores
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.txtValue.Value = Mov.CveProveedor.ToString
DdlProveedores.txtText.Value = Mov.DtResultados.Rows(0)("RazonSocial").ToString
DdlProveedores.SelectedValue = "-1"
TrProveedor.Visible = True TrProveedor.Visible = True
End If End If
@@ -1978,7 +1986,7 @@ Partial Class Inventarios_EntradasSalidas
tFolio = If(TxtFolio.Text.ToEntero <> FolioAsignado, TxtFolio.Text.ToEntero, -1) tFolio = If(TxtFolio.Text.ToEntero <> FolioAsignado, TxtFolio.Text.ToEntero, -1)
End If End If
Dim tCveProveedor As Integer = -1 Dim tCveProveedor As Integer = -1
If DdlProveedor.SelectedValue.ToEntero > 0 Then tCveProveedor = DdlProveedor.SelectedValue.ToEntero If DdlProveedores.SelectedValue.ToEntero > 0 Then tCveProveedor = DdlProveedores.SelectedValue.ToEntero
Dim obs As String = TxtObservaciones.Text.Trim() Dim obs As String = TxtObservaciones.Text.Trim()
If obs = "" Then If obs = "" Then
obs = DdlConcepto.SelectedItem.Text obs = DdlConcepto.SelectedItem.Text
@@ -2604,8 +2612,13 @@ Partial Class Inventarios_EntradasSalidas
Case "28" Case "28"
TrProveedor.Visible = True TrProveedor.Visible = True
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind() 'DdlProveedor.DataBind()
'CargaProveedores
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Seleccione Uno"
DdlProveedores.SelectedValue = "-1"
If UsuarioActual.CveEmpresa = 119 Then txtPrecio.Enabled = False If UsuarioActual.CveEmpresa = 119 Then txtPrecio.Enabled = False
Case Else Case Else
@@ -5288,7 +5301,7 @@ Partial Class Inventarios_EntradasSalidas
If TxtFecha.Visible Then TxtFecha.Enabled = True If TxtFecha.Visible Then TxtFecha.Enabled = True
If TxtResponsable.Visible Then TxtResponsable.Enabled = True If TxtResponsable.Visible Then TxtResponsable.Enabled = True
If TxtObservaciones.Visible Then TxtObservaciones.Enabled = True If TxtObservaciones.Visible Then TxtObservaciones.Enabled = True
If DdlProveedor.Visible Then DdlProveedor.Enabled = True If DdlProveedores.Visible Then DdlProveedores.Enabled = True
If TxtRemision.Visible Then TxtRemision.Enabled = True If TxtRemision.Visible Then TxtRemision.Enabled = True
If DdlMoneda.Visible Then DdlMoneda.Enabled = True If DdlMoneda.Visible Then DdlMoneda.Enabled = True
If TxtGuia.Visible Then TxtGuia.Enabled = True If TxtGuia.Visible Then TxtGuia.Enabled = True