@@ -287,75 +238,124 @@
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
-
-
-
-
-
+
+
+
+
diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb
index 2e95951d9..5ec007988 100644
--- a/Ventas/RepComisionesSMS.aspx.vb
+++ b/Ventas/RepComisionesSMS.aspx.vb
@@ -2,7 +2,9 @@
Option Strict On
Imports System.Data
+Imports System.Data.Entity
Imports Extensiones
+Imports Microsoft.EntityFrameworkCore
Partial Class Ventas_RepComisionesSMS
@@ -59,8 +61,6 @@ Partial Class Ventas_RepComisionesSMS
Public Sub CargaDatos()
-
-
LnkExportar.Visible = False
Dim ObjVentas As New ClsVentas
@@ -83,39 +83,11 @@ Partial Class Ventas_RepComisionesSMS
End Sub
- Public Sub CargaDatosEspeciales()
-
-
-
- LnkExportar.Visible = False
-
- Dim ObjVentas As New ClsVentas
-
- If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1, 2) Then
- GvDatosEspeciales.DataSource = ObjVentas.DtResultados
-
- If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
- LnkExportar.Visible = True
- End If
- Else
- GvDatosEspeciales.DataSource = Nothing
- End If
-
- ObjVentas.Dispose()
-
- GvDatosEspeciales.DataBind()
-
- UpDatosEspeciales.Update()
-
- End Sub
-
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
- If Tabs.ActiveTabIndex = 0 Then
- CargaDatos()
- Else
- CargaDatosEspeciales()
- End If
+
+ CargaDatos()
+
End Sub
@@ -123,19 +95,12 @@ Partial Class Ventas_RepComisionesSMS
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
-
- If Tabs.ActiveTabIndex = 0 Then
- GvDatos.Columns(10).Visible = False
+ GvDatos.Columns(10).Visible = False
GvDatos.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
- GvDatos.Columns(10).Visible = True
- Else
- GvDatosEspeciales.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones Especiales", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
- End If
-
+ GvDatos.Columns(10).Visible = True
End Sub
@@ -253,21 +218,144 @@ Partial Class Ventas_RepComisionesSMS
Protected Sub LnkComisionesEspeciales_Click(sender As Object, e As EventArgs)
+ ReiniciaModalComisionesEspeciales()
+
CargaComisionesEspeciales()
RegistraScript("$('#DvModalComisionesEspeciales').modal('show');")
End Sub
+
+ Private Sub ReiniciaModalComisionesEspeciales()
+
+ DdlModalTipoComision.SelectedValueExist(-1)
+
+ DdlModalMedico.SelectedValue = Nothing
+ DdlModalMedico.ClearSelection()
+ DdlModalMedico.Items.Clear()
+ DdlModalMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+ DdlModalMedico.DataBind()
+ DdlModalMedico.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+ DdlModalPS.SelectedValue = "-1"
+ DdlModalPS.SelectedValue = ""
+ DdlModalPS.SelectedText = ""
+
+ Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+ If EsWS Then
+ DdlModalPS.setEsWebService(True)
+ Else
+
+ DdlModalPS.ddl.SelectedValue = Nothing
+ DdlModalPS.ddl.ClearSelection()
+ DdlModalPS.ddl.Items.Clear()
+
+
+ 'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
+ DdlModalPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, Estatus:=1)
+ DdlModalPS.ddl.DataBind()
+ DdlModalPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+ DdlModalPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+
+ DdlModalPS.setEsWebService(False)
+ End If
+
+ TxtModalComision.Text = ""
+
+ UpModalComisionesEspeciales.Update()
+
+ End Sub
Private Sub CargaComisionesEspeciales()
+ Dim ObjVentas As New ClsVentas
+ GvComisionesEspeciales.DataSource = Nothing
+ If ObjVentas.GetComisionesMedicasEsPeciales(-1, -1, UsuarioActual.CveEmpresa) Then
+ GvComisionesEspeciales.DataSource = ObjVentas.DtResultados
+ End If
+ ObjVentas.Dispose()
+ GvComisionesEspeciales.DataBind()
+ UpModalComisionesEspeciales.Update()
End Sub
Protected Sub LnkEliminarComisionEspecial_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ Dim CveMedicoComision As Integer = GvRow.DataKey("CveMedicoComision").ToEntero
+
+ If CveMedicoComision > 0 Then
+ Dim errorProceso As Boolean = False
+
+ Dim ObjVentas As New ClsVentas
+
+ If ObjVentas.RemoveComisionesMedicasEspeciales(CveMedicoComision, UsuarioActual.CveEmpresa) Then
+ Alert("Comisión eliminada correctamente")
+ Else
+ errorProceso = True
+ End If
+
+ ObjVentas.Dispose()
+
+
+ If Not errorProceso Then
+ CargaComisionesEspeciales()
+ End If
+
+ End If
+
+
End Sub
#End Region
+ Protected Sub DdlModalTipoComision_SelectedIndexChanged(sender As Object, e As EventArgs)
+ TxtModalComision.Text = ""
+
+ If DdlModalTipoComision.SelectedValue.ToEntero = 1 Then
+ TxtModalComision.Attributes.Add("onkeyup", "FormatoMoneda(this)")
+ Else
+ TxtModalComision.Attributes.Add("onkeyup", "FormatoMoneda(this);validaPorcentaje(this);")
+ End If
+
+ UpModalComisionesEspeciales.Update()
+
+ End Sub
+
+ Protected Sub LnkModalGuardarComisionEspecial_Click(sender As Object, e As EventArgs)
+
+ If DdlModalPS.SelectedValue.ToEntero <= 0 Then
+ Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If TxtModalComision.Text.ToDecimal = 0 Then
+ Alert("La comisión es requerida.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ Dim errorProceso As Boolean = False
+
+ Dim Comision As Decimal = TxtModalComision.Text.ToDecimal
+
+ If DdlModalTipoComision.SelectedValue.ToEntero = 2 Then
+ Comision = TxtModalComision.Text.ToDecimal / 100
+ End If
+
+ Dim ObjVentas As New ClsVentas
+
+ If ObjVentas.AddComisionesMedicasEspeciales(DdlModalMedico.SelectedValue.ToEntero, DdlModalPS.SelectedValue.ToEntero, DdlModalTipoComision.SelectedValue.ToEntero, Comision, UsuarioActual.CveUsuario) Then
+ Alert("Comisión agregada correctamente")
+ Else
+ errorProceso = True
+ End If
+
+ ObjVentas.Dispose()
+
+ If Not errorProceso Then
+ CargaComisionesEspeciales()
+ ReiniciaModalComisionesEspeciales()
+ End If
+
+ End Sub
End Class