- parametro de porcentaje máximo de descuento
This commit is contained in:
@@ -273,7 +273,7 @@ Public Class ClsClasificaciones
|
||||
End Function
|
||||
|
||||
Public Function AddClasificaciones(Clasificacion As String, Codigo As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False,
|
||||
Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean
|
||||
Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1, Optional PorMaximoDescuento As Decimal = 0) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
Me.CveClasificacion = -1
|
||||
|
||||
@@ -302,6 +302,7 @@ Public Class ClsClasificaciones
|
||||
.Add("@TopCompras", SqlDbType.Bit).Value = TopCompras
|
||||
.Add("@TopVentas", SqlDbType.Bit).Value = TopVentas
|
||||
.Add("@PrecioBaseCosto", SqlDbType.Money).Value = PrecioBaseCosto
|
||||
.Add("@PorMaximoDescuento", SqlDbType.Money).Value = PorMaximoDescuento
|
||||
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
|
||||
@@ -371,7 +372,7 @@ Public Class ClsClasificaciones
|
||||
End Function
|
||||
|
||||
Public Function UpdateClasificacion(Clasificacion As String, Codigo As String, Estatus As Boolean, Afectable As Boolean, CveCategoria As Integer, CveUsuario As Integer, CveClasificacion As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True,
|
||||
Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean
|
||||
Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1, Optional PorMaximoDescuento As Decimal = 0) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_ClasificacionesUpdate")
|
||||
|
||||
@@ -400,6 +401,7 @@ Public Class ClsClasificaciones
|
||||
.Add("@TopCompras", SqlDbType.Bit).Value = TopCompras
|
||||
.Add("@TopVentas", SqlDbType.Bit).Value = TopVentas
|
||||
.Add("@PrecioBaseCosto", SqlDbType.Money).Value = PrecioBaseCosto
|
||||
.Add("@PorMaximoDescuento", SqlDbType.Money).Value = PorMaximoDescuento
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -76,7 +76,7 @@
|
||||
<asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="0" />
|
||||
<div>
|
||||
<asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto, CveCuentaGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto, CveCuentaGasto, PorMaximoDescuento" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Clasificación">
|
||||
<ItemTemplate>
|
||||
@@ -253,6 +253,10 @@
|
||||
<asp:TextBox ID="TxtPrecioBaseCosto" CssClass="form-control" Width="130px" MaxLength="5" runat="server" CausesValidation="true" Style="text-align: right!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>
|
||||
<label for="<%= TxtPrecioBaseCosto.ClientID.ToString()%>" style="width: 130px;">Precio Base Costo:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input" runat="server" id="divPorMaxDescuento" visible="false">
|
||||
<asp:TextBox ID="TxtPorMaximoDescuento" CssClass="form-control" Width="130px" MaxLength="5" runat="server" CausesValidation="true" Style="text-align: right!important" ></asp:TextBox>
|
||||
<label for="<%= TxtPorMaximoDescuento.ClientID.ToString()%>" style="width: 130px;">% Max Descuento:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -2,7 +2,6 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class CatClasificaciones
|
||||
@@ -96,7 +95,9 @@ Partial Class CatClasificaciones
|
||||
CargaIngresos = True
|
||||
DtCuentasContables = Nothing
|
||||
ClasificacionOriginal = ""
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
||||
divPorMaxDescuento.Visible = True
|
||||
End If
|
||||
CargaDdlSATPS()
|
||||
CargaDDLs()
|
||||
|
||||
@@ -165,7 +166,7 @@ Partial Class CatClasificaciones
|
||||
If HdnModalidadClasificacion.Value = "A" Then
|
||||
If ObjClasificaciones.AddClasificaciones(TxtClasificacion.Text.Trim, "",
|
||||
DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereSerieLote:=RequireSerieLote, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero,
|
||||
RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal) Then
|
||||
RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal, PorMaximoDescuento:=TxtPorMaximoDescuento.Text.ToDecimal) Then
|
||||
|
||||
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)")
|
||||
|
||||
@@ -204,7 +205,7 @@ Partial Class CatClasificaciones
|
||||
|
||||
If ObjClasificaciones.UpdateClasificacion(Clasificacion, "",
|
||||
Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion, RequiereSerieLote:=RequireSerieLote, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero,
|
||||
RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal) Then
|
||||
RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal, PorMaximoDescuento:=TxtPorMaximoDescuento.Text.ToDecimal) Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
If DdlCuentaGasto.SelectedValue.ToEntero > 0 Then
|
||||
If Not objConta.UpdateCuentasAsignaciones(HdnCveCuentaAsignacion.Value.ToEntero, 6, DdlCuentaGasto.SelectedValue.ToEntero, CveClasificacion:=CveClasificacion) Then
|
||||
@@ -498,7 +499,10 @@ Partial Class CatClasificaciones
|
||||
TxtPrecioBaseCosto.Text = PrecioBaseCosto.FormatoNumero(2)
|
||||
DdlCategoria.SelectedValueExist(CveCategoria)
|
||||
DdlUsoClasificacion.SelectedValue = UsoClasificacion
|
||||
HdnIDClasificacion.Value = CveClasificacion
|
||||
HdnIDClasificacion.Value = CveClasificacion
|
||||
|
||||
TxtPorMaximoDescuento.Text = GvRow.DataKey("PorMaximoDescuento").ToString.ToDecimal.FormatoNumero(2)
|
||||
|
||||
If GvRow.DataKey("CveSATPS").ToString <> Nothing Then
|
||||
DdlSATPS.SelectedValue = GvRow.DataKey("CveSATPS").ToString
|
||||
DdlSATPS.SelectedText = GvRow.DataKey("SATClaveProductoServicio").ToString
|
||||
|
||||
Reference in New Issue
Block a user