Promociones
This commit is contained in:
rakcsle
@@ -350,19 +350,36 @@ Partial Class RepContratoDetalle
|
||||
New ReportParameter("Servicio", TxtDescripcion.Text),
|
||||
New ReportParameter("Observaciones", TxtObservaciones.Text),
|
||||
New ReportParameter("Ubicacion", TxtUbicacion.Text),
|
||||
New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")),
|
||||
New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")),
|
||||
New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy HH:mm tt")),
|
||||
New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy HH:mm tt")),
|
||||
New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
|
||||
New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
|
||||
New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
|
||||
New ReportParameter("Pesos", TxtImporte.Text.ToDecimal.ToString("###,###,###.00")),
|
||||
New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString),
|
||||
New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString),
|
||||
New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
|
||||
New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
|
||||
New ReportParameter("Anticipo", TxtAnticipo.Text.ToDecimal.ToString("###,###,###.00")),
|
||||
New ReportParameter("Total", (TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal)).ToString("###,###,###.00")),
|
||||
New ReportParameter("DiaSalida", TxtFechaSalida.Text.ToDate.ToString("HH:mm tt")),
|
||||
New ReportParameter("TelefonoEmpresa", TelefonoEmpresa),
|
||||
New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")),
|
||||
New ReportParameter("Usuario", UsuarioActual.Nombre)
|
||||
}
|
||||
'New ReportParameter("Folio", TxtFolio.Text),
|
||||
' New ReportParameter("Cliente", DdlClientes.SelectedText),
|
||||
' New ReportParameter("Servicio", TxtDescripcion.Text),
|
||||
' New ReportParameter("Observaciones", TxtObservaciones.Text),
|
||||
' New ReportParameter("Ubicacion", TxtUbicacion.Text),
|
||||
' New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")),
|
||||
' New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")),
|
||||
' New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
|
||||
' New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
|
||||
' New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
|
||||
' New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString),
|
||||
' New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString),
|
||||
' New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
|
||||
' New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
|
||||
' New ReportParameter("TelefonoEmpresa", TelefonoEmpresa),
|
||||
' New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")),
|
||||
' New ReportParameter("Usuario", UsuarioActual.Nombre)
|
||||
|
||||
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:=TxtFolio.Text)
|
||||
End Sub
|
||||
|
||||
@@ -205,21 +205,35 @@
|
||||
OnRowDataBound="GvDatos_RowDataBound"
|
||||
>
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
|
||||
<%--<asp:BoundField HeaderText="Producto / Servicio" DataField="PS" ItemStyle-Width="30%" />--%>
|
||||
<%--0--%>
|
||||
<asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
|
||||
<%--1--%>
|
||||
<asp:BoundField HeaderText="P.U. Actual" DataField="PUAnterior" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" />
|
||||
<%--2--%>
|
||||
<asp:BoundField HeaderText="Tipo Promoción" DataField="TipoPromocion" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
|
||||
<%--3--%>
|
||||
<asp:BoundField HeaderText="Cant. Mínima" DataField="CantidadMinima" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
|
||||
<%--4--%>
|
||||
<asp:BoundField HeaderText="Promoción" DataField="Promocion" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" />
|
||||
<%--5--%>
|
||||
<asp:BoundField HeaderText="P.U. Promoción" DataField="PUPromocion" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" />
|
||||
|
||||
<asp:BoundField HeaderText="Ultimo Costo" DataField="UltimoCosto" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" Visible="false" />
|
||||
<asp:BoundField HeaderText="% Utilidad" DataField="UtilidadPorcentaje" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00}" ItemStyle-Width="10%" Visible="false" />
|
||||
|
||||
<%--6--%>
|
||||
<asp:BoundField HeaderText="Condiciones" ItemStyle-HorizontalAlign="Center" DataField="AplicaRestriccionTexto" ItemStyle-Width="15%" />
|
||||
<%--7--%>
|
||||
<asp:BoundField HeaderText="Clasificacion" ItemStyle-HorizontalAlign="Left" DataField="Clasificacion"/>
|
||||
<%--8--%>
|
||||
<asp:BoundField HeaderText="Rin" ItemStyle-HorizontalAlign="Left" DataField="RinTamaño" Visible="false"/>
|
||||
<%--9--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvDetalleEditar" runat="server" AlternateText="Editar" CausesValidation="False" CommandArgument='<%# Container.DataItemIndex%>' CommandName="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%--10--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvDetalleEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
@@ -301,7 +315,7 @@
|
||||
<h4 class="modal-title" style="color: #FFF; text-align: center;">Agregar Producto/Servicio</h4>
|
||||
</div>
|
||||
<div class="modal-body rowpadding">
|
||||
<div class="row">
|
||||
<div class="row" runat="server" id="DVModalClasificacion" visible="true">
|
||||
<label class="col-md-3 truncate">Clasificación:</label>
|
||||
<div class="col-md-9">
|
||||
<asp:DropDownList ID="DdlClasificacion" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged" CssClass="select2me" Width="100%" runat="server"></asp:DropDownList>
|
||||
|
||||
@@ -1,13 +1,11 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Activities.Expressions
|
||||
|
||||
Imports System.Data
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports Extensiones
|
||||
Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
|
||||
Imports Microsoft.Owin.Security.Provider
|
||||
Imports Telerik.Web.UI
|
||||
Imports Stimulsoft.Report
|
||||
|
||||
|
||||
Partial Class Ventas_Promociones
|
||||
Inherits ClsPaginas
|
||||
@@ -160,7 +158,13 @@ Partial Class Ventas_Promociones
|
||||
PermisoAutorizPromocionPorcentaje = UsuarioActual.TienePermisoProceso(386)
|
||||
|
||||
EmpresaFnc382 = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz
|
||||
'EmpresaFnc382 = True ''Para pruebas
|
||||
EmpresaFnc382 = True ''Para pruebas
|
||||
|
||||
If EmpresaFnc382 Then
|
||||
DVModalClasificacion.Visible = False
|
||||
GvDatos.Columns(6).Visible = True
|
||||
GvDatos.Columns(7).Visible = True
|
||||
End If
|
||||
|
||||
CvePromocion = -1
|
||||
CargaValoresIniciales()
|
||||
@@ -187,10 +191,16 @@ Partial Class Ventas_Promociones
|
||||
|
||||
CargaGvBitacora()
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub RemoverClasificacion()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region "BITACORA"
|
||||
@@ -260,7 +270,7 @@ Partial Class Ventas_Promociones
|
||||
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||
GvDatos.Columns(8).Visible = True
|
||||
GvDatos.Columns(10).Visible = True
|
||||
DivRin.Visible = True
|
||||
'Dim ObjGral As New ClsGenerales
|
||||
'If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then
|
||||
@@ -315,6 +325,7 @@ Partial Class Ventas_Promociones
|
||||
|
||||
TempDT.Columns.Add("UltimoCosto", GetType(Decimal))
|
||||
TempDT.Columns.Add("CostoPromedio", GetType(Decimal))
|
||||
TempDT.Columns.Add("UtilidadPorcentaje", GetType(Decimal))
|
||||
|
||||
|
||||
TempDTOrigial = TempDT.Copy
|
||||
@@ -499,6 +510,8 @@ Partial Class Ventas_Promociones
|
||||
|
||||
Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim CveTipoPromocion As Integer = DdlTipoPromocion.SelectedValue.ToEntero
|
||||
|
||||
If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
|
||||
If DdlPS.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Debe seleccionar una clasificacion o un producto y/o servicio", TipoMensaje.MsgAdvertencia)
|
||||
@@ -545,15 +558,11 @@ Partial Class Ventas_Promociones
|
||||
Dr("CodigoPS") = If(String.IsNullOrEmpty(DdlPS.SelectedText), "Todos", DdlPS.SelectedText)
|
||||
Dr("PUAnterior") = LbPUActual.Text.ToDecimal
|
||||
|
||||
Dr("UltimoCosto") = LblUltimoCosto.Text.ToDecimal
|
||||
Dr("CostoPromedio") = LblCostoPromedio.Text.ToDecimal
|
||||
|
||||
|
||||
Dr("CveTipoPromocion") = DdlTipoPromocion.SelectedValue.ToEntero
|
||||
Dr("TipoPromocion") = DdlTipoPromocion.SelectedItem.Text
|
||||
Dr("CveTipoPromocion") = CveTipoPromocion
|
||||
Dr("TipoPromocion") = CveTipoPromocion
|
||||
Dr("Promocion") = TxtPromocionConcepto.Text
|
||||
|
||||
If DdlTipoPromocion.SelectedValue.ToEntero.Contiene(1, 3) Then
|
||||
If CveTipoPromocion.Contiene(1, 3) Then
|
||||
Dr("PUPromocion") = TxtPromocionConcepto.Text.ToDecimal
|
||||
Else
|
||||
Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)
|
||||
@@ -596,6 +605,39 @@ Partial Class Ventas_Promociones
|
||||
Dr("CveRinTamaño") = -1
|
||||
End If
|
||||
|
||||
Dim UltimoCosto As Decimal = LblUltimoCosto.Text.ToDecimal
|
||||
Dim CostoPromedio As Decimal = LblCostoPromedio.Text.ToDecimal
|
||||
|
||||
Dr("UltimoCosto") = UltimoCosto
|
||||
Dr("CostoPromedio") = CostoPromedio
|
||||
|
||||
|
||||
|
||||
If UltimoCosto > 0 Then
|
||||
|
||||
Dim Promocion As Decimal = TxtPromocionConcepto.Text.ToDecimal
|
||||
|
||||
If CveTipoPromocion = 1 Then 'importe
|
||||
Dim porciento As Decimal = (Promocion * 100 / UltimoCosto) - 100
|
||||
Dr("UtilidadPorcentaje") = porciento
|
||||
ElseIf CveTipoPromocion = 2 Then '% descuento
|
||||
|
||||
Dim calculo As Decimal = (UltimoCosto) - (UltimoCosto * (Promocion / 100))
|
||||
Dim porciento As Decimal = (calculo * 100 / UltimoCosto) - 100
|
||||
Dr("UtilidadPorcentaje") = porciento
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
Dr("UtilidadPorcentaje") = 0.0D
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If CveConsecutivo >= 0 Then
|
||||
Dr.AcceptChanges()
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user