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

Ventas correcion tipo documento, clientes lista de precio opcin 10

Browse Source
This commit is contained in:
rakcsle
2023-12-19 18:31:58 -07:00
parent 14cd6374e2
commit 023379c90d
3 changed files with 52 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Ventas/Clientes.aspx
View File

@@ -729,22 +729,24 @@
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Giro:</label>
</div>
</div>
<div class="col-md-6">
<div class="col-md-6" runat="server" visible="false" id="DivPrecioLista" >
<div class="row">
<div class="col-md-10">
<div id="DivPrecioLista" runat="server" class="form-group form-md-line-input input-iconright">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
<label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:</label>
<i></i>
</div>
</div>
<div class="col-md-2" id="DivCrearPrecioLista" runat="server" style="padding-top: 8px;" visible="false">
<div class="col-md-2" id="DivCrearPrecioLista" runat="server" style="padding-top: 8px;" visible="false">
<div class="form-group form-md-line-input input-iconright">
<asp:LinkButton runat="server" ID="LnkAddPrecioLista" CssClass="btn btn-default btn-circle btn-sm" Text="<i class='fa fa-plus' style='color:green'></i>" OnClick="LnkAddPrecioLista_Click"></asp:LinkButton>
</div>
</div>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
<asp:DropDownList ID="DdlCorporativo" runat="server" CssClass="form-control select2me" Width="200px" DataTextField="Descripcion" DataValueField="CveClienteCorporativo"></asp:DropDownList>
@@ -4997,12 +4999,27 @@
<h4 class="modal-title">Agregar lista de precio</h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPrecioLista" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtPL" runat="server" ControlToValidate="TxtPrecioLista" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lista de precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpListaPrecio"></asp:RequiredFieldValidator>
<label for="TxtPrecioLista">Lista de precio: </label>
<i></i>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPrecioLista" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtPL" runat="server" ControlToValidate="TxtPrecioLista" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lista de precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpListaPrecio"></asp:RequiredFieldValidator>
<label for="TxtPrecioLista">Lista de precio: </label>
<i></i>
</div>
</div>
<div class="col-md-6">
<div id="Div1" runat="server" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPrecioListaClonar" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
<label for="<%= DdlPrecioListaClonar.ClientID.ToString()%>">Clonar de:</label>
<i></i>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<div class="row">

34
Ventas/Clientes.aspx.vb
View File

@@ -1209,15 +1209,31 @@ Partial Class Clientes
If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
DdlSubProyecto.AutoPostBack = False
DivPrecioLista.Visible = False
End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
DivCrearPrecioLista.Visible = True
End If
DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
DdlPrecioLista.DataBind()
DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
End If
Dim CveFuncionalidad404 As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
If CveFuncionalidad404.Contiene(10, 30) Then
DivPrecioLista.Visible = True
DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
DdlPrecioLista.DataBind()
DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
If CveFuncionalidad404.Contiene(30) Then
DivCrearPrecioLista.Visible = True
DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
DdlPrecioListaClonar.DataBind()
DdlPrecioListaClonar.Items.Insert(0, New ListItem(" - ", "-1"))
End If
End If
End Sub
Private Sub CargaCuentasContables()
If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub

3
Ventas/Ventas.aspx.vb
View File

@@ -7519,7 +7519,7 @@ Partial Class Ventas
'Puede hacer pedido
If CveVenta <= 0 Then
If Not UsuarioActual.TienePermisoProceso(177) Then
If Not UsuarioActual.TienePermisoProceso(177) And Not EsVentaMedica Then
If DdlTipoComprobante.Items.FindByValue("Ped") IsNot Nothing Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ped"))
End If
@@ -36101,6 +36101,7 @@ Partial Class Ventas
TdFechaOS2.Visible = True
ChkRequiereTecnico.Checked = True
ChkRequiereTecnico.Enabled = False
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
DdlTipoComprobante.SelectedValueExist("Ped")
Else
DdlTipoComprobante.SelectedValueExist("Ing")