diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 9c0166f39..6255262da 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6974,7 +6974,12 @@ Public Class ClsVentas
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
- OnError("Ocurrió un error al agegar la comisión especial", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ If ex.Message.Contains("2627") Then
+ Alert("Ya existe una comisión con el médico y producto especificados.", TipoMensaje.MsgAdvertencia)
+ Else
+ OnError("Ocurrió un error al agegar la comisión especial", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+
End Try
Return Retorno
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index bbbc26edd..ebeb39d24 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5766,14 +5766,14 @@ Partial Class PopUpVerFactura
If ObjIE.DtResultados.Rows.Count > 0 Then
Dim reportDataSetsList As New List(Of ReportDataSource)
- Dim CvePrePoliza As Integer = 0
+ Dim CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
Dim dtMovs As New DataTable
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
If dtMovs IsNot Nothing AndAlso dtMovs.Rows.Count > 0 Then
- CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
+ 'CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 8034c63ca..4ee25ee9e 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -647,7 +647,7 @@
diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb
index 2e95951d9..c86f10729 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
@@ -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