SMS - Comisiones

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
@@ -253,21 +255,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