1196 lines
53 KiB
VB.net
1196 lines
53 KiB
VB.net
Option Explicit On
|
||
Option Strict On
|
||
|
||
Imports System.Data
|
||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||
Imports Extensiones
|
||
Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
|
||
Imports Microsoft.Owin.Security.Provider
|
||
|
||
Partial Class Ventas_Promociones
|
||
Inherits ClsPaginas
|
||
|
||
#Region " PROPIEDADES "
|
||
Private Property TempDT As DataTable
|
||
Get
|
||
Return CType(ViewState("TempDT"), DataTable)
|
||
End Get
|
||
Set(value As DataTable)
|
||
ViewState("TempDT") = value
|
||
End Set
|
||
End Property
|
||
|
||
Private Property TempDTOrigial As DataTable
|
||
Get
|
||
Return CType(ViewState("TempDTOrigial"), DataTable)
|
||
End Get
|
||
Set(value As DataTable)
|
||
ViewState("TempDTOrigial") = value
|
||
End Set
|
||
End Property
|
||
|
||
Private Property CvePromocion As Integer
|
||
Get
|
||
Return ViewState("CvePromocion").ToString.ToEntero
|
||
End Get
|
||
Set(value As Integer)
|
||
ViewState("CvePromocion") = value
|
||
End Set
|
||
End Property
|
||
Private Property CveConsecutivo As Integer
|
||
Get
|
||
Return ViewState("CveConsecutivo").ToString.ToEntero
|
||
End Get
|
||
Set(value As Integer)
|
||
ViewState("CveConsecutivo") = value
|
||
End Set
|
||
End Property
|
||
|
||
Private Property DtSubProyectos As DataTable
|
||
Get
|
||
Return If(IsNothing(ViewState("DtSubProyectos")), Nothing, CType(ViewState("DtSubProyectos"), DataTable))
|
||
End Get
|
||
Set(value As DataTable)
|
||
ViewState("DtSubProyectos") = value
|
||
End Set
|
||
End Property
|
||
|
||
|
||
|
||
Private Property CvePromocionPadre As Integer
|
||
Get
|
||
|
||
If ViewState("CvePromocionPadre") Is Nothing Then
|
||
ViewState("CvePromocionPadre") = -1
|
||
End If
|
||
Return ViewState("CvePromocionPadre").ToString.ToEntero
|
||
End Get
|
||
Set(value As Integer)
|
||
ViewState("CvePromocionPadre") = value
|
||
End Set
|
||
End Property
|
||
|
||
#End Region
|
||
|
||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
|
||
If Not Page.IsPostBack Then
|
||
|
||
CvePromocion = -1
|
||
CargaValoresIniciales()
|
||
CargaMonedas()
|
||
|
||
If Request("CvePromocion") IsNot Nothing AndAlso Request("CvePromocion").ToString.ToEntero > 0 Then
|
||
|
||
CvePromocion = Request("CvePromocion").ToString.ToEntero
|
||
CargaDatos()
|
||
LnkAgrgarPlantillaPS.Visible = False
|
||
Else
|
||
ChkEstatus.Enabled = True
|
||
ChkEstatus.Checked = True
|
||
CreaDT()
|
||
End If
|
||
|
||
CargaGvBitacora()
|
||
|
||
End If
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
#Region "BITACORA"
|
||
|
||
Private Sub CargaGvBitacora()
|
||
|
||
If CvePromocion > 0 Then
|
||
divBitacora.Visible = True
|
||
Dim ObjGral As New ClsGenerales()
|
||
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePromocion:=CvePromocion) Then
|
||
GvBitacora.DataSource = ObjGral.DtResultados
|
||
End If
|
||
ObjGral.Dispose()
|
||
GvBitacora.DataBind()
|
||
UpHistorialModificacion.Update()
|
||
Else
|
||
divBitacora.Visible = False
|
||
End If
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
|
||
#Region " VALORES INICIALES "
|
||
|
||
Private Sub CargaValoresIniciales()
|
||
Dim ObjPS As New ClsProductosServicios
|
||
'CLASIFICACIONES
|
||
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
|
||
DdlClasificacion.DataBind()
|
||
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||
|
||
'CARGA PS
|
||
DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||
If Not DdlPS.UsaWebService AndAlso CType(DdlPS.DataSource, DataTable) Is Nothing Then
|
||
DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
|
||
DdlPS.DataBind()
|
||
End If
|
||
|
||
'CARGA SUBPROYECTOS
|
||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||
DdlSubProyecto.DataBind()
|
||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||
|
||
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
|
||
DdlVendedor.DataBind()
|
||
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
||
|
||
'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||
'DdlCliente.DataBind()
|
||
'DdlCliente.Items.Insert(0, New ListItem("todos", "-1"))
|
||
DdlClientes.setEsWebService(True)
|
||
|
||
TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
|
||
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
|
||
|
||
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
|
||
DdlMarca.DataSource = ObjPS.DtResultados
|
||
End If
|
||
ObjPS.Dispose()
|
||
DdlMarca.DataBind()
|
||
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||
GvDatos.Columns(8).Visible = True
|
||
DivRin.Visible = True
|
||
Dim ObjGral As New ClsGenerales
|
||
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
|
||
DdlRin.DataSource = ObjGral.DtResultados
|
||
End If
|
||
ObjGral.Dispose()
|
||
DdlRin.DataBind()
|
||
DdlRin.Items.Insert(0, New ListItem("Todos", "-1"))
|
||
End If
|
||
|
||
'' si es E acumuladora
|
||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||
divDistribuidor.Visible = True
|
||
End If
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub CreaDT()
|
||
TempDT = New DataTable
|
||
|
||
TempDT.Columns.Add("Estatus", GetType(Integer))
|
||
TempDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
|
||
TempDT.Columns.Add("CveClasificacion", GetType(Integer))
|
||
TempDT.Columns.Add("Clasificacion", GetType(String))
|
||
TempDT.Columns.Add("CvePS", GetType(Integer))
|
||
TempDT.Columns.Add("CodigoPS", GetType(String))
|
||
TempDT.Columns.Add("PUAnterior", GetType(Decimal))
|
||
TempDT.Columns.Add("PUPromocion", GetType(Decimal))
|
||
TempDT.Columns.Add("CveTipoPromocion", GetType(Integer))
|
||
TempDT.Columns.Add("CveRinTamaño", GetType(Integer))
|
||
TempDT.Columns.Add("TipoPromocion", GetType(String))
|
||
TempDT.Columns.Add("Promocion", GetType(String))
|
||
TempDT.Columns.Add("CantidadMinima", GetType(Integer))
|
||
TempDT.Columns.Add("RinTamaño", GetType(String))
|
||
|
||
TempDT.Columns.Add("AplicaRestriccionTexto", GetType(String))
|
||
TempDT.Columns.Add("AplicaRestriccion", GetType(Boolean))
|
||
TempDT.Columns.Add("HoraInicio", GetType(DateTime))
|
||
TempDT.Columns.Add("HoraFin", GetType(DateTime))
|
||
TempDT.Columns.Add("AplicaLunes", GetType(Boolean))
|
||
TempDT.Columns.Add("AplicaMartes", GetType(Boolean))
|
||
TempDT.Columns.Add("AplicaMiercoles", GetType(Boolean))
|
||
TempDT.Columns.Add("AplicaJueves", GetType(Boolean))
|
||
TempDT.Columns.Add("AplicaViernes", GetType(Boolean))
|
||
TempDT.Columns.Add("AplicaSabado", GetType(Boolean))
|
||
TempDT.Columns.Add("AplicaDomingo", GetType(Boolean))
|
||
|
||
TempDT.Columns.Add("IncluyeImpuestos", GetType(Boolean))
|
||
|
||
|
||
TempDTOrigial = TempDT.Copy
|
||
|
||
'366 Estatus
|
||
'367 CvePS
|
||
'368 PUPromocion
|
||
'369 CveTipoPromocion
|
||
'370 Cantidad Minima
|
||
'371 AplicaRestriccion
|
||
'372 HoraInicio
|
||
'373 HoraFin
|
||
'374 AplicaLunes
|
||
'375 AplicaMartes
|
||
'376 AplicaMiercoles
|
||
'377 AplicaJueves
|
||
'378 AplicaViernes
|
||
'379 AplicaSabado
|
||
'380 AplicaDomingo
|
||
'381 IncluyeImpuestos
|
||
|
||
|
||
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
#Region " PS "
|
||
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||
ChangeDdlProducto()
|
||
DdlTipoPromocion.Items.FindByValue("1").Enabled = False
|
||
' DdlTipoPromocion.Items.FindByValue("3").Enabled = False
|
||
End Sub
|
||
Private Sub ChangeDdlProducto()
|
||
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
|
||
DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros("", "PSCodigo")
|
||
DdlPS.DataBind()
|
||
DdlPS.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
|
||
Else
|
||
DdlPS.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
|
||
End If
|
||
End Sub
|
||
Protected Sub DdlPS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
|
||
DdlTipoPromocion.Items.FindByValue("1").Enabled = True
|
||
DdlTipoPromocion.Items.FindByValue("3").Enabled = True
|
||
End Sub
|
||
#End Region
|
||
|
||
|
||
#End Region
|
||
|
||
|
||
|
||
|
||
#Region " CARGA DATOS "
|
||
|
||
Private Sub CargaDatos()
|
||
Dim ObjVentas As New ClsVentas
|
||
|
||
If ObjVentas.GetPromociones(CvePromocion, "-1", -1, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjVentas.DtResultados.Rows.Count = 1 Then
|
||
Dim Dr = ObjVentas.DtResultados.Rows(0)
|
||
TxtPromocion.Text = Dr("Promocion").ToString
|
||
TxtFechaI.Text = Dr("FechaInicio").ToString.ToDate.ToShortDateString
|
||
TxtFechaF.Text = Dr("FechaFin").ToString.ToDate.ToShortDateString
|
||
DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
|
||
DdlMarca.SelectedValue = Dr("CveMarca").ToString
|
||
If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
|
||
|
||
If Dr("CveCliente").ToString.ToEntero > 0 Then
|
||
|
||
If DdlClientes.UsaWebService Then
|
||
|
||
DdlClientes.txtText.Value = Dr("NombreComercial").ToString
|
||
DdlClientes.txtValue.Value = Dr("CveCliente").ToString
|
||
|
||
Else
|
||
DdlClientes.SelectedValue = Dr("CveCliente").ToString
|
||
End If
|
||
|
||
|
||
|
||
|
||
|
||
End If
|
||
|
||
ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False)
|
||
DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString)
|
||
DdlMarca.SelectedValueExist(Dr("CveMarca").ToString)
|
||
DdlTipoAplicacion.SelectedValueExist(Dr("TipoAplicacion").ToString)
|
||
|
||
CvePromocionPadre = If(Dr("CvePromocionPadre").ToString.ToEntero > 0, Dr("CvePromocionPadre").ToString.ToEntero, -1)
|
||
|
||
If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
|
||
TempDT = ObjVentas.DtResultados.Copy
|
||
TempDTOrigial = ObjVentas.DtResultados.Copy
|
||
CargaGrid()
|
||
Else
|
||
Alert("Ocurrió un error al consultar los detalles de la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||
End If
|
||
|
||
Else
|
||
Alert("Ocurrió un error al consultar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||
End If
|
||
|
||
ButBtnEliminar.Visible = True
|
||
|
||
'If CvePromocionPadre > 0 Then
|
||
' BtnGuardar.Enabled = False
|
||
' ButBtnEliminar.Enabled = False
|
||
'End If
|
||
|
||
ObjVentas.Dispose()
|
||
End Sub
|
||
Private Sub CargaGrid()
|
||
GvDatos.DataSource = TempDT.FiltraParametros("Estatus <> 2")
|
||
GvDatos.DataBind()
|
||
UpDatos.Update()
|
||
End Sub
|
||
|
||
|
||
Private Sub CargaMonedas()
|
||
DdlMoneda.DataSource = GlobalDTMonedas
|
||
DdlMoneda.DataBind()
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
|
||
#Region " AGREGAR "
|
||
Protected Sub LbAgregarModal_Click(sender As Object, e As EventArgs)
|
||
RegistraScript("$('#DivAgregar').modal('show')")
|
||
CveConsecutivo = -1
|
||
|
||
DdlClasificacion.SelectedValue = "-1"
|
||
ChangeDdlProducto()
|
||
|
||
LbPUActual.Text = ""
|
||
DdlTipoPromocion.SelectedValue = "-1"
|
||
TxtPromocionConcepto.Text = ""
|
||
TxtCantMinima.Text = "1"
|
||
|
||
ChkRestricciones.Checked = False
|
||
'DivRestricciones.Visible = False
|
||
ChkLunes.Checked = False
|
||
ChkMartes.Checked = False
|
||
ChkMiercoles.Checked = False
|
||
ChkJueves.Checked = False
|
||
ChkViernes.Checked = False
|
||
ChkSabado.Checked = False
|
||
ChkDomingo.Checked = False
|
||
|
||
BtnAgregar.Text = "Agregar"
|
||
|
||
UpAgregar.Update()
|
||
End Sub
|
||
|
||
Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
|
||
|
||
If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
|
||
Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia)
|
||
Exit Sub
|
||
End If
|
||
|
||
If TxtCantMinima.Text.ToEntero <= 0 Then
|
||
Alert("La cantidad minima debe ser de 1", TipoMensaje.MsgAdvertencia)
|
||
Exit Sub
|
||
End If
|
||
|
||
Dim Dr As DataRow = Nothing
|
||
|
||
If CveConsecutivo >= 0 Then
|
||
Dr = TempDT.Rows(CveConsecutivo)
|
||
Dr("Estatus") = 1
|
||
Else
|
||
Dr = TempDT.NewRow
|
||
Dr("Estatus") = 0
|
||
End If
|
||
|
||
If DdlClasificacion.SelectedValue.ToEntero > 0 Then
|
||
Dr("CveClasificacion") = DdlClasificacion.SelectedValue
|
||
Dr("Clasificacion") = DdlClasificacion.SelectedItem.Text
|
||
Else
|
||
Dr("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CveClasificacion")
|
||
Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion")
|
||
End If
|
||
|
||
Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
|
||
Dr("CodigoPS") = If(String.IsNullOrEmpty(DdlPS.SelectedText), "Todos", DdlPS.SelectedText)
|
||
Dr("PUAnterior") = LbPUActual.Text.ToDecimal
|
||
|
||
Dr("CveTipoPromocion") = DdlTipoPromocion.SelectedValue.ToEntero
|
||
Dr("TipoPromocion") = DdlTipoPromocion.SelectedItem.Text
|
||
Dr("Promocion") = TxtPromocionConcepto.Text
|
||
|
||
If DdlTipoPromocion.SelectedValue.ToEntero.Contiene(1, 3) Then
|
||
Dr("PUPromocion") = TxtPromocionConcepto.Text.ToDecimal
|
||
Else
|
||
Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)
|
||
End If
|
||
|
||
Dr("CantidadMinima") = TxtCantMinima.Text.ToEntero
|
||
|
||
If ChkRestricciones.Checked Then
|
||
Dr("AplicaRestriccionTexto") = "Si"
|
||
Dr("AplicaRestriccion") = True
|
||
Dr("HoraInicio") = NowADS().ToShortDateString.ToDate.AddHours(TxtHoraInicio.Text.Trim.Substring(0, 2).ToEntero).AddMinutes(TxtHoraInicio.Text.Trim.Substring(2, 2).ToEntero)
|
||
Dr("HoraFin") = NowADS().ToShortDateString.ToDate.AddHours(TxtHoraFin.Text.Trim.Substring(0, 2).ToEntero).AddMinutes(TxtHoraFin.Text.Trim.Substring(2, 2).ToEntero)
|
||
Dr("AplicaLunes") = ChkLunes.Checked
|
||
Dr("AplicaMartes") = ChkMartes.Checked
|
||
Dr("AplicaMiercoles") = ChkMiercoles.Checked
|
||
Dr("AplicaJueves") = ChkJueves.Checked
|
||
Dr("AplicaViernes") = ChkViernes.Checked
|
||
Dr("AplicaSabado") = ChkSabado.Checked
|
||
Dr("AplicaDomingo") = ChkDomingo.Checked
|
||
Else
|
||
Dr("AplicaRestriccionTexto") = "No"
|
||
Dr("AplicaRestriccion") = False
|
||
Dr("HoraInicio") = MinFecha.ToDateTime
|
||
Dr("HoraFin") = MaxFecha.ToDateTime
|
||
Dr("AplicaLunes") = False
|
||
Dr("AplicaMartes") = False
|
||
Dr("AplicaMiercoles") = False
|
||
Dr("AplicaJueves") = False
|
||
Dr("AplicaViernes") = False
|
||
Dr("AplicaSabado") = False
|
||
Dr("AplicaDomingo") = False
|
||
End If
|
||
|
||
|
||
Dr("IncluyeImpuestos") = ChkIncluyeImpuesto.Checked
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||
Dr("CveRinTamaño") = DdlRin.SelectedValue.ToEntero
|
||
Else
|
||
Dr("CveRinTamaño") = -1
|
||
End If
|
||
|
||
If CveConsecutivo >= 0 Then
|
||
Dr.AcceptChanges()
|
||
Else
|
||
TempDT.Rows.Add(Dr)
|
||
End If
|
||
|
||
CargaGrid()
|
||
RegistraScript("$('#DivAgregar').modal('hide')")
|
||
End Sub
|
||
Protected Sub ChkRestricciones_CheckedChanged(sender As Object, e As EventArgs)
|
||
DivRestricciones.Visible = ChkRestricciones.Checked
|
||
End Sub
|
||
|
||
Protected Sub BtnGenerarAPartir_Click(sender As Object, e As EventArgs)
|
||
CvePromocion = 0
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
|
||
#Region " GV PS "
|
||
Private Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand
|
||
|
||
If e.CommandName = "Editar" Then
|
||
Dim Gvr = GvDatos.Rows(e.CommandArgument.ToString.ToEntero)
|
||
|
||
RegistraScript("$('#DivAgregar').modal('show')")
|
||
CveConsecutivo = e.CommandArgument.ToString.ToEntero
|
||
DdlRin.SelectedValueExist(Gvr.DataKey("CveRinTamaño"))
|
||
DdlClasificacion.SelectedValue = Gvr.DataKey("CveClasificacion")
|
||
ChangeDdlProducto()
|
||
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
|
||
DdlPS.SelectedValue = Gvr.DataKey("CvePS")
|
||
Else
|
||
DdlPS.SelectedValue = Gvr.DataKey("CvePS")
|
||
DdlPS.SelectedText = Gvr.DataKey("CodigoPS")
|
||
End If
|
||
|
||
LbPUActual.Text = Gvr.DataKey("PUAnterior").FormatoNumero
|
||
DdlTipoPromocion.SelectedValue = Gvr.DataKey("CveTipoPromocion")
|
||
'DdlTipoPromocion_SelectedIndexChanged(sender, Nothing)
|
||
TxtPromocionConcepto.Text = Gvr.DataKey("Promocion").FormatoNumero(4)
|
||
TxtCantMinima.Text = Gvr.DataKey("CantidadMinima")
|
||
|
||
TxtHoraInicio.Text = $"{Gvr.DataKey("HoraInicio").ToDate.Hour}:{Gvr.DataKey("HoraInicio").ToDate.Minute}"
|
||
TxtHoraFin.Text = $"{Gvr.DataKey("HoraFin").ToDate.Hour}:{Gvr.DataKey("HoraFin").ToDate.Minute}"
|
||
|
||
ChkRestricciones.Checked = CBool(Gvr.DataKey("AplicaRestriccion"))
|
||
DivRestricciones.Visible = CBool(Gvr.DataKey("AplicaRestriccion"))
|
||
ChkLunes.Checked = CBool(Gvr.DataKey("AplicaLunes"))
|
||
ChkMartes.Checked = CBool(Gvr.DataKey("AplicaMartes"))
|
||
ChkMiercoles.Checked = CBool(Gvr.DataKey("AplicaMiercoles"))
|
||
ChkJueves.Checked = CBool(Gvr.DataKey("AplicaJueves"))
|
||
ChkViernes.Checked = CBool(Gvr.DataKey("AplicaViernes"))
|
||
ChkSabado.Checked = CBool(Gvr.DataKey("AplicaSabado"))
|
||
ChkDomingo.Checked = CBool(Gvr.DataKey("AplicaDomingo"))
|
||
ChkIncluyeImpuesto.Checked = CBool(Gvr.DataKey("IncluyeImpuestos"))
|
||
|
||
BtnAgregar.Text = "Actualizar"
|
||
|
||
UpAgregar.Update()
|
||
GvDatos.EditIndex = -1
|
||
End If
|
||
|
||
End Sub
|
||
Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||
Dim DbRow = TempDT.Rows(e.RowIndex)
|
||
|
||
If CvePromocion > 0 Then
|
||
DbRow("Estatus") = 2
|
||
Else
|
||
TempDT.Rows.Remove(DbRow)
|
||
End If
|
||
|
||
CargaGrid()
|
||
End Sub
|
||
#End Region
|
||
|
||
|
||
#Region " GUARDAR "
|
||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
||
If CvePromocion > 0 Then
|
||
ActualizaPromocion()
|
||
Else
|
||
GuardaPromocion()
|
||
End If
|
||
End Sub
|
||
|
||
|
||
Private Sub GuardaPromocion()
|
||
Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
|
||
Dim ObjVentas As New ClsVentas
|
||
Dim TieneError = False
|
||
ObjVentas.IniciaTransacSQL()
|
||
CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
|
||
DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
|
||
UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToString, DdlMarca.SelectedValue.ToEntero, DdlDistribuidor.SelectedValue.ToEntero)
|
||
|
||
If CvePromocion > 0 Then
|
||
For Each Dr As DataRow In TempDT.Rows
|
||
If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
|
||
CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
|
||
Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero,
|
||
CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
Next
|
||
Else
|
||
TieneError = True
|
||
End If
|
||
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
|
||
If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then
|
||
TieneError = True
|
||
End If
|
||
End If
|
||
|
||
|
||
If Not TieneError Then
|
||
ObjVentas.Commit()
|
||
Alert("La promoción se guardo correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
|
||
Else
|
||
ObjVentas.RollBack()
|
||
Alert("Ocurrió un error al guardar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||
End If
|
||
|
||
ObjVentas.Dispose()
|
||
End Sub
|
||
|
||
|
||
Private Sub ActualizaPromocion()
|
||
Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
|
||
|
||
Dim ObjVentas As New ClsVentas
|
||
|
||
Dim TieneError = False
|
||
ObjVentas.IniciaTransacSQL()
|
||
|
||
Dim ObjGral As New ClsGenerales(ObjVentas.IniciaTransacSQL)
|
||
|
||
If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
|
||
DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
|
||
CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then
|
||
|
||
For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
|
||
|
||
|
||
Dim OpReplicarDetalleFranquicias As Integer = If(UsuarioActual.Empresa.Funcionalidad(563) <> "", 2, 1) ' op 2 Elimina detalles de franquicias
|
||
|
||
If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
|
||
CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
|
||
Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1),
|
||
CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked, Opcion:=OpReplicarDetalleFranquicias) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
|
||
|
||
If Not TieneError Then
|
||
If Not ObjGral.AddHistorialBitacora(364, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", Dr("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
|
||
|
||
Next
|
||
|
||
If Not TieneError Then
|
||
For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows
|
||
If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
|
||
CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
|
||
Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
|
||
|
||
If Not TieneError Then
|
||
|
||
'366 Estatus
|
||
|
||
'367 CvePS
|
||
'368 PUPromocion
|
||
'369 CveTipoPromocion
|
||
'370 Cantidad Minima
|
||
'371 AplicaRestriccion
|
||
'372 HoraInicio
|
||
'373 HoraFin
|
||
|
||
'374 AplicaLunes
|
||
'375 AplicaMartes
|
||
'376 AplicaMiercoles
|
||
'377 AplicaJueves
|
||
'378 AplicaViernes
|
||
'379 AplicaSabado
|
||
'380 AplicaDomingo
|
||
'381 IncluyeImpuestos
|
||
|
||
|
||
Dim Dr2 As DataRow = TempDTOrigial.FiltraParametros($"CvePromocionDetalle = {Dr("CvePromocionDetalle").ToString}").Rows(0)
|
||
|
||
If Not TieneError And Dr("CvePS").ToString <> Dr2("CvePS").ToString Then
|
||
If Not ObjGral.AddHistorialBitacora(367, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("CodigoPS").ToString, Dr2("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
If Not TieneError And Dr("CveTipoPromocion").ToString <> Dr2("CveTipoPromocion").ToString Then
|
||
If Not ObjGral.AddHistorialBitacora(369, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("TipoPromocion").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("TipoPromocion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
If Not TieneError And Dr("CantidadMinima").ToString <> Dr2("CantidadMinima").ToString Then
|
||
If Not ObjGral.AddHistorialBitacora(370, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("CantidadMinima").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("CantidadMinima").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
'If Not TieneError And Dr("AplicaRestriccion").ToString <> Dr2("AplicaRestriccion").ToString Then
|
||
' If Not ObjGral.AddHistorialBitacora(371, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("AplicaRestriccion").ToString, $"{Dr("CodigoPS").ToString} - {Dr("AplicaRestriccion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
' TieneError = True
|
||
' Exit For
|
||
' End If
|
||
'End If
|
||
|
||
If Not TieneError And Dr("HoraInicio").ToString <> Dr2("HoraInicio").ToString Then
|
||
If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError And Dr("HoraFin").ToString <> Dr2("HoraFin").ToString Then
|
||
If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
If Not TieneError And Dr("AplicaLunes").ToString <> Dr2("AplicaLunes").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaLunes").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaLunes").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(374, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
If Not TieneError And Dr("AplicaMartes").ToString <> Dr2("AplicaMartes").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaMartes").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaMartes").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(375, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError And Dr("AplicaMiercoles").ToString <> Dr2("AplicaMiercoles").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaMiercoles").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaMiercoles").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(376, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError And Dr("AplicaJueves").ToString <> Dr2("AplicaJueves").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaJueves").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaJueves").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(377, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError And Dr("AplicaViernes").ToString <> Dr2("AplicaViernes").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaViernes").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaViernes").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(378, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError And Dr("AplicaSabado").ToString <> Dr2("AplicaSabado").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaSabado").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaSabado").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(379, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
If Not TieneError And Dr("AplicaDomingo").ToString <> Dr2("AplicaDomingo").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaDomingo").ToString), "Aplica", "No aplica")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaDomingo").ToString), "Aplica", "No aplica")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(380, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError And Dr("IncluyeImpuestos").ToString <> Dr2("IncluyeImpuestos").ToString Then
|
||
|
||
Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("IncluyeImpuestos").ToString), "Incluye", "No Incluye")
|
||
Dim EstadoActual As String = If(Boolean.Parse(Dr("IncluyeImpuestos").ToString), "Incluye", "No Incluye")
|
||
|
||
If Not ObjGral.AddHistorialBitacora(381, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
End If
|
||
|
||
Next
|
||
End If
|
||
|
||
If Not TieneError Then
|
||
|
||
For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 2").Rows
|
||
|
||
'RunPromocionesClonar
|
||
|
||
Dim OpEliminacionDetalle As Integer = If(UsuarioActual.Empresa.Funcionalidad(563) <> "", 2, 1) ' op 2 Elimina detalles de franquicias
|
||
|
||
If Not ObjVentas.RemovePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, OpEliminacionDetalle) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
|
||
If Not TieneError Then
|
||
If Not ObjGral.AddHistorialBitacora(365, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", Dr("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
|
||
TieneError = True
|
||
Exit For
|
||
End If
|
||
End If
|
||
|
||
|
||
|
||
Next
|
||
End If
|
||
|
||
Else
|
||
TieneError = True
|
||
End If
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
|
||
|
||
If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2) Then
|
||
TieneError = True
|
||
End If
|
||
|
||
End If
|
||
|
||
If Not TieneError Then
|
||
ObjVentas.Commit()
|
||
Alert("La promoción se guardo correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
|
||
Else
|
||
ObjVentas.RollBack()
|
||
Alert("Ocurrió un error al guardar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||
End If
|
||
|
||
ObjVentas.Dispose()
|
||
End Sub
|
||
#End Region
|
||
|
||
|
||
#Region " ELIMINAR "
|
||
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
|
||
|
||
Dim ObjVentas As New ClsVentas
|
||
ObjVentas.IniciaTransacSQL()
|
||
Dim TieneError = False
|
||
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
|
||
If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) Then
|
||
TieneError = True
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError Then
|
||
If ObjVentas.RemovePromocionesDetalle(-1, 3, CvePromocion) Then
|
||
If Not ObjVentas.RemovePromociones(CvePromocion, UsuarioActual.CveEmpresa) Then
|
||
TieneError = True
|
||
End If
|
||
Else
|
||
TieneError = True
|
||
End If
|
||
End If
|
||
|
||
If Not TieneError Then
|
||
ObjVentas.Commit()
|
||
Alert("La promoción se elimino correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
|
||
Else
|
||
ObjVentas.RollBack()
|
||
Alert("Ocurrió un error al registrar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||
End If
|
||
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso TieneError Then
|
||
If ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
|
||
Alert("Se presento un error al eliminar, se desactivo kla promoción actual y promociones relacionadas", TipoMensaje.MsgAdvertencia, $"document.location.href=""/Ventas/Promociones.aspx?CvePromocion={CvePromocion}"";")
|
||
End If
|
||
End If
|
||
|
||
|
||
ObjVentas.Dispose()
|
||
End Sub
|
||
#End Region
|
||
|
||
'Protected Sub DdlTipoPromocion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPromocion.SelectedIndexChanged
|
||
' If DdlTipoPromocion.SelectedValue = "3" Then
|
||
' DivCantMinima.Visible = True
|
||
' Else
|
||
' DivCantMinima.Visible = False
|
||
' End If
|
||
'End Sub
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||
|
||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||
|
||
If CvePromocionPadre > 0 Then
|
||
e.Row.FCLinkButton("LnkGvDetalleEditar").Visible = False
|
||
e.Row.FCLinkButton("LnkGvDetalleEliminar").Visible = False
|
||
End If
|
||
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Protected Sub LnkAgrgarPlantillaPS_Click(sender As Object, e As EventArgs)
|
||
TxtExcel.Text = "[]"
|
||
UpAgregarPlantilla.Update()
|
||
RegistraScript("$('#DivAgregarPlantilla').modal('show');")
|
||
End Sub
|
||
|
||
Protected Sub LnkDecargaPlatilla_Click(sender As Object, e As EventArgs)
|
||
|
||
Dim rutaArchivoPlantilla As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\CargaPromociones.xlsx"
|
||
|
||
Dim nombreArchivo As String = "CargaPromociones.xlsx"
|
||
|
||
' Configurar la respuesta HTTP
|
||
Response.Clear()
|
||
Response.ContentType = "application/octet-stream"
|
||
Response.AppendHeader("Content-Disposition", "attachment; filename=" & nombreArchivo)
|
||
|
||
Dim contenido As Byte() = System.IO.File.ReadAllBytes(rutaArchivoPlantilla)
|
||
Response.BinaryWrite(contenido)
|
||
|
||
|
||
Response.Flush()
|
||
Response.End()
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
Protected Sub BrnAgregarPlantilla_Click(sender As Object, e As EventArgs)
|
||
|
||
If TxtExcel.getfiles().Archivos.Count > 0 Then
|
||
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
|
||
Dim Directorio As String = Server.MapPath("~") & file.path
|
||
Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
|
||
|
||
CargarArchivo(Directorio, file.filename, Tipo)
|
||
Else
|
||
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
|
||
|
||
TempDT.Clear()
|
||
|
||
CveConsecutivo = TempDT.Rows.Count + 1
|
||
|
||
Dim ProcesoOK As Boolean = False
|
||
Dim DTPlantilla As New DataTable
|
||
Dim ErrorArchivo = False
|
||
Dim ErrorExcel = False
|
||
DTPlantilla = ReadExcelFile(Ruta + FileName, True)
|
||
'Alert(DT.Rows.Count.ToString)
|
||
|
||
If DTPlantilla.Rows.Count = 0 Then
|
||
Alert("No encontraron registros.")
|
||
Exit Sub
|
||
End If
|
||
|
||
If Not ValidaDTPlantilla(DTPlantilla) Then
|
||
Exit Sub
|
||
End If
|
||
|
||
For Each dRowTemplate As DataRow In DTPlantilla.Rows
|
||
|
||
'Clasificacion Codigo TipoPromocion Promocion CantidadMinima Rin IncluyeImpuestos
|
||
|
||
Dim CveClasificacion As Integer = dRowTemplate("CveClasificacion").ToString.ToEntero
|
||
Dim CvePS As Integer = dRowTemplate("CvePS").ToString.ToEntero
|
||
Dim CveTipoPromosicion As Integer = dRowTemplate("CveTipoPromosicion").ToString.ToEntero
|
||
Dim Promocion As Decimal = dRowTemplate("Promocion").ToString.ToDecimal
|
||
Dim CantidadMinima As Decimal = dRowTemplate("CantidadMinima").ToString.ToDecimal
|
||
Dim CveRin As Integer = dRowTemplate("CveRin").ToString.ToEntero
|
||
Dim IncluyeImpuestos As Boolean = Boolean.Parse(dRowTemplate("IncluyeImpuestos").ToString)
|
||
|
||
|
||
Dim Dr As DataRow = TempDT.NewRow
|
||
Dr = TempDT.NewRow
|
||
Dr("Estatus") = 0
|
||
|
||
If CveClasificacion > 0 Then
|
||
Dr("CveClasificacion") = CveClasificacion
|
||
Dr("Clasificacion") = dRowTemplate("Clasificacion").ToString
|
||
Dr("CvePS") = -1
|
||
Else
|
||
Dr("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion")
|
||
Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("Clasificacion")
|
||
Dr("CvePS") = CvePS
|
||
End If
|
||
|
||
|
||
Dr("CodigoPS") = dRowTemplate("CodigoPS").ToString
|
||
Dr("PUAnterior") = 0
|
||
|
||
Dr("CveTipoPromocion") = CveTipoPromosicion
|
||
Dr("TipoPromocion") = dRowTemplate("TipoPromocion").ToString
|
||
Dr("Promocion") = Promocion
|
||
|
||
Dr("PUPromocion") = 0
|
||
|
||
Dr("CantidadMinima") = CantidadMinima
|
||
|
||
Dr("AplicaRestriccionTexto") = "No"
|
||
Dr("AplicaRestriccion") = False
|
||
Dr("HoraInicio") = MinFecha.ToDateTime
|
||
Dr("HoraFin") = MaxFecha.ToDateTime
|
||
Dr("AplicaLunes") = False
|
||
Dr("AplicaMartes") = False
|
||
Dr("AplicaMiercoles") = False
|
||
Dr("AplicaJueves") = False
|
||
Dr("AplicaViernes") = False
|
||
Dr("AplicaSabado") = False
|
||
Dr("AplicaDomingo") = False
|
||
|
||
Dr("IncluyeImpuestos") = IncluyeImpuestos
|
||
|
||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||
Dr("CveRinTamaño") = CveRin
|
||
Dr("RinTamaño") = dRowTemplate("RinTamaño").ToString
|
||
Else
|
||
Dr("CveRinTamaño") = -1
|
||
End If
|
||
|
||
TempDT.Rows.Add(Dr)
|
||
|
||
Next
|
||
|
||
|
||
|
||
CargaGrid()
|
||
RegistraScript("$('#DivAgregarPlantilla').modal('hide')")
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private Function ValidaDTPlantilla(ByRef DTPlantilla As DataTable) As Boolean
|
||
|
||
Dim Errores As New StringBuilder
|
||
|
||
|
||
DTPlantilla.Columns.Add("CveClasificacion", GetType(Integer))
|
||
DTPlantilla.Columns.Add("CvePS", GetType(Integer))
|
||
DTPlantilla.Columns.Add("CveTipoPromosicion", GetType(Integer))
|
||
'DTPlantilla.Columns.Add("Promocion", GetType(Decimal))
|
||
'DTPlantilla.Columns.Add("CantidadMinima", GetType(Decimal))
|
||
DTPlantilla.Columns.Add("CveRin", GetType(Integer))
|
||
'DTPlantilla.Columns.Add("IncluyeImpuestos", GetType(Boolean))
|
||
DTPlantilla.Columns.Add("CodigoPS", GetType(String))
|
||
DTPlantilla.Columns.Add("RinTamaño", GetType(String))
|
||
|
||
|
||
Dim DTPS As DataTable = New DataTable
|
||
Dim DTRines As DataTable = New DataTable
|
||
Dim ObjPS As New ClsProductosServicios
|
||
If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then
|
||
DTPS = ObjPS.DtResultados
|
||
End If
|
||
ObjPS.Dispose()
|
||
|
||
|
||
Dim ObjGral As New ClsGenerales
|
||
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
|
||
DTRines = ObjGral.DtResultados
|
||
End If
|
||
ObjGral.Dispose()
|
||
|
||
|
||
Dim RegistroActual As Integer = 1
|
||
For Each dRow As DataRow In DTPlantilla.Rows
|
||
|
||
Dim SBErrorRegistro As New StringBuilder
|
||
|
||
Dim ClasificacionStr, CodigoStr, TipoPromocionStr, PromocionStr, CantidadMinimaStr, RinStr, IncluyeImpuestosStr As String
|
||
|
||
|
||
|
||
ClasificacionStr = dRow("Clasificacion").ToString.Trim
|
||
CodigoStr = dRow("Codigo").ToString.Trim
|
||
TipoPromocionStr = dRow("TipoPromocion").ToString.Trim
|
||
PromocionStr = dRow("Promocion").ToString.Trim
|
||
CantidadMinimaStr = dRow("CantidadMinima").ToString.Trim
|
||
RinStr = dRow("Rin").ToString.Trim
|
||
IncluyeImpuestosStr = dRow("IncluyeImpuestos").ToString.Trim
|
||
|
||
If ClasificacionStr.Length > 0 Or CodigoStr.Length > 0 Then
|
||
|
||
Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ClasificacionStr}'").ToString().ToEntero()
|
||
Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{CodigoStr}'").ToString().ToEntero()
|
||
Dim CodigoPS As String = DTPS.FiltroPrimeroValor("PSCodigo", $"Codigo = '{CodigoStr}'").ToString()
|
||
Dim CveTipoPromosicion As Integer = -1
|
||
Dim Promocion As Decimal = PromocionStr.ToDecimal
|
||
Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal
|
||
Dim CveRin As Integer = DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString().ToEntero()
|
||
Dim RinTamaño As String = DTRines.FiltroPrimeroValor("RinTamaño", $"Codigo = '{RinStr}'").ToString()
|
||
Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1"), True, False)
|
||
|
||
' SBErrorRegistro.Append($"")
|
||
If ClasificacionStr.Length > 0 And CodigoStr.Length > 0 Then
|
||
SBErrorRegistro.Append($"No se puede agregar Clasificación y codigo en un mismo registro. ")
|
||
Else
|
||
|
||
If ClasificacionStr.Length > 0 Then
|
||
SBErrorRegistro.Append(If(CveClasificacion > 0, "", $"No se encontro Clasificación {ClasificacionStr}. "))
|
||
Else
|
||
SBErrorRegistro.Append(If(CvePS > 0, "", $"No se encontro codigo de Producto/Servicio {CodigoStr }. "))
|
||
End If
|
||
|
||
End If
|
||
|
||
If TipoPromocionStr.ToUpper = "IMPORTE $" Then
|
||
CveTipoPromosicion = 1
|
||
ElseIf TipoPromocionStr.ToUpper = "DESCUENTO %" Then
|
||
CveTipoPromosicion = 2
|
||
ElseIf TipoPromocionStr.ToUpper = "CANTIDAD" Then
|
||
CveTipoPromosicion = 3
|
||
Else
|
||
SBErrorRegistro.Append($"Tipo Promosion no encontrada {TipoPromocionStr}. ")
|
||
End If
|
||
|
||
If Not Promocion > 0 Then
|
||
SBErrorRegistro.Append($"La Promoción debe de ser mayor a 0. ")
|
||
End If
|
||
|
||
If Not CantidadMinima > 0 Then
|
||
SBErrorRegistro.Append($"La Cantidad Minima debe de ser mayor a 0. ")
|
||
End If
|
||
|
||
If RinStr.Length > 0 And Not CveRin > 0 Then
|
||
SBErrorRegistro.Append($"Tamaño de Rin no encontrado {RinStr}. ")
|
||
End If
|
||
|
||
If Not IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1", "NO", "0") Then
|
||
SBErrorRegistro.Append($"Campo IncluyeImpuestos no valido {IncluyeImpuestos}.<br/> ")
|
||
End If
|
||
|
||
If SBErrorRegistro.ToString.Length > 0 Then
|
||
Errores.AppendLine($"Registro {RegistroActual}, {SBErrorRegistro.ToString}")
|
||
Else
|
||
dRow("CveClasificacion") = CveClasificacion
|
||
dRow("CvePS") = CvePS
|
||
dRow("CveTipoPromosicion") = CveTipoPromosicion
|
||
dRow("Promocion") = Promocion
|
||
dRow("CantidadMinima") = CantidadMinima
|
||
dRow("RinTamaño") = RinTamaño
|
||
dRow("CveRin") = CveRin
|
||
dRow("IncluyeImpuestos") = IncluyeImpuestos
|
||
dRow("CodigoPS") = If(CveClasificacion > 0, "Todos", CodigoPS)
|
||
End If
|
||
|
||
RegistroActual = RegistroActual + 1
|
||
|
||
End If
|
||
|
||
Next
|
||
|
||
|
||
If Errores.ToString.Length = 0 Then
|
||
DTPlantilla.AcceptChanges()
|
||
Return True
|
||
Else
|
||
Alert(Errores.ToString, TipoMensaje.MsgAdvertencia)
|
||
Return False
|
||
End If
|
||
|
||
|
||
|
||
|
||
End Function
|
||
End Class |