From f103ecc74aea3cd1cff4148742e67c564b3c0f32 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 29 May 2024 14:53:24 -0700 Subject: [PATCH] SMS - Comisiones --- App_Code/ClsVentas.vb | 7 +- Compras/PopUpVerFactura.aspx.vb | 4 +- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 4 +- Ventas/RepComisionesSMS.aspx | 179 ++++++++++++++++++----------- Ventas/RepComisionesSMS.aspx.vb | 125 ++++++++++++++++++++ 6 files changed, 251 insertions(+), 70 deletions(-) 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/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index c8c47d2f5..ab4a57400 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2026,7 +2026,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'Folio = TxtDocumentoFolio.Text 'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal 'Observaciones = TxtDocumentoObservaciones.Text - 'Beneficiario = TxtDocumentoBeneficiario.Text + 'Beneficiario = TxtDocumentoBeneficiario.TextTxtReferenciaE RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal")) @@ -2668,7 +2668,7 @@ Partial Class ContabilidadC_RegPrePolizaS divContabilizada.Visible = False TxtFolio.Text = "" - TxtUsuarioElaboro.Text = UsuarioActual.Usuario + LblUsuarioElaboro.Text = UsuarioActual.Usuario End Sub diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx index 06a549484..5df4379b7 100644 --- a/Ventas/RepComisionesSMS.aspx +++ b/Ventas/RepComisionesSMS.aspx @@ -153,6 +153,8 @@ + + @@ -168,7 +170,7 @@ - + @@ -190,7 +192,7 @@ - + @@ -287,75 +289,124 @@ - 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