From 0af171c165f11fa3aa845814d4ac2ca5e9f360c3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 10:20:50 -0700 Subject: [PATCH 01/22] No guardar estimaciones cuando es NC de Amortizacion --- App_Code/Modelos.vb | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 2091e565f..447ab3844 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1439,10 +1439,11 @@ Namespace Modelos End If 'Contratos - If factura.CveContrato > 0 AndAlso TipoDocto.Contiene("Ing") Then - GuardarContratoAvanceEstimaciones(ObjContr, ErrorList, 1) - ElseIf factura.CveContrato > 0 AndAlso factura.TipoDocto.Contiene("Egs", "Dev") Then - GuardarContratoAvanceEstimaciones(ObjContr, ErrorList, -1) + If factura.CveContrato > 0 AndAlso factura.TipoDocto.Contiene("Ing") Then + GuardarContratoAvanceEstimaciones(factura, ObjContr, ErrorList, 1) + 'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN + ElseIf factura.CveContrato > 0 AndAlso factura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not factura.EsNCAmortizacion Then + GuardarContratoAvanceEstimaciones(factura, ObjContr, ErrorList, -1) End If 'Impuestos Locales @@ -1781,18 +1782,18 @@ Namespace Modelos Return True End Function - Private Sub GuardarContratoAvanceEstimaciones(ObjContrato As ClsContratos, ErrorList As List(Of String), Multiplicador As Integer, Optional CrearAvance As Boolean = False) + Private Sub GuardarContratoAvanceEstimaciones(ObjFactura As Modelos.Factura, ObjContrato As ClsContratos, ErrorList As List(Of String), Multiplicador As Integer, Optional CrearAvance As Boolean = False) - If Me.CveContrato > 0 Then + If ObjFactura.CveContrato > 0 Then Dim CveEstimacion As Integer = -1 - If ObjContrato.AddEstimaciones(Me.CveContrato, Me.Fecha, -1, Me.CveVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjContrato.AddEstimaciones(ObjFactura.CveContrato, ObjFactura.Fecha, -1, ObjFactura.CveVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CveEstimacion = ObjContrato.DtResultados(0)("CveEstimacion").ToString.ToEntero - For Each row As DataRow In DtDetalle.Rows + For Each row As DataRow In ObjFactura.DtDetalle.Rows If row("CveContratoDetalle").ToString.ToEntero > 0 Then - If Not ObjContrato.AddContratosAvance(row("CveContratoDetalle").ToString.ToEntero, row("Cantidad").ToString.ToEntero * Multiplicador, Me.Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then + If Not ObjContrato.AddContratosAvance(row("CveContratoDetalle").ToString.ToEntero, row("Cantidad").ToString.ToEntero * Multiplicador, ObjFactura.Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then ErrorList.Add("Ocurrió un error al agregar los avances") End If End If @@ -4464,13 +4465,13 @@ Namespace Modelos 'CANCELA CONTRATOS If Not ErrorCancelar Then If ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then - ObjFactura.GuardarContratoAvanceEstimaciones(ObjContrato, ErrorList, -1, True) + ObjFactura.GuardarContratoAvanceEstimaciones(ObjFactura, ObjContrato, ErrorList, -1, True) If ErrorList.Count > 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar las estimaciones del contrato." End If ElseIf ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then - ObjFactura.GuardarContratoAvanceEstimaciones(ObjContrato, ErrorList, 1, True) + ObjFactura.GuardarContratoAvanceEstimaciones(ObjFactura, ObjContrato, ErrorList, 1, True) If ErrorList.Count > 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los avances del contrato." From cf76e49af44dd5edfb0667a6bbed9034b0b2f59d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 10:27:50 -0700 Subject: [PATCH 02/22] Mostar Retenciones de IVA --- Ventas/Ventas.aspx.vb | 33 +++++++++++++++++++++++++++------ 1 file changed, 27 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 091460f02..8f8f11141 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3826,6 +3826,18 @@ Partial Class Ventas TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) TxtIVA.Text = DbRowVenta("IVA").ToString.FormatoNumero(2) TxtRetIVA.Text = DbRowVenta("RetIVA").ToString.FormatoNumero(2) + If TxtRetIVA.Text.ToDecimal() > 0 Then + TrRetIVA.Style.Add("display", "") + UsuarioActual.Empresa.MostrarRetIVA = True + If DdlTipoRetencion.SelectedValue.ToEntero() > 0 Then + DdlTipoRetencion.Visible = True + End If + If TmpDT IsNot Nothing Then + Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100) + LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2) + End If + + End If TxtRetISR.Text = DbRowVenta("RetISR").ToString.FormatoNumero(2) TxtIEPS.Text = DbRowVenta("IEPS").ToString.FormatoNumero(2) TrIEPS.Visible = TxtIEPS.Text.ToDouble > 0 @@ -4398,6 +4410,10 @@ Partial Class Ventas TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) TxtIVA.Text = drv("IVA").ToString.FormatoNumero(2) TxtRetIVA.Text = drv("RetIVA").ToString.FormatoNumero(2) + If TxtRetIVA.Text.ToDecimal() > 0 Then + TrRetIVA.Style.Add("display", "") + UsuarioActual.Empresa.MostrarRetIVA = True + End If TxtRetISR.Text = drv("RetISR").ToString.FormatoNumero(2) TxtTotal.Text = drv("Total").ToString.FormatoNumero(2) TotalOriginal = Math.Round(drv("Total").ToString.ToDouble, 2) @@ -4720,15 +4736,18 @@ Partial Class Ventas DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty) - ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes - If ObjCliente.RetieneIVAFletes Then - TrRetIVA.Style.Add("display", "") - UsuarioActual.Empresa.MostrarRetIVA = True + If CveVenta <= 0 Then + ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes + If ObjCliente.RetieneIVAFletes Then + TrRetIVA.Style.Add("display", "") + UsuarioActual.Empresa.MostrarRetIVA = True + End If End If + ViewState("Vendedor") = ObjCliente.Vendedor ViewState("CtaContable") = ObjCliente.CuentaContable ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes @@ -24205,18 +24224,20 @@ Partial Class Ventas Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100) LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2) If PorcentajeRetIVA > 0 Then + TrRetIVA.Style.Add("display", "") + UsuarioActual.Empresa.MostrarRetIVA = True DdlTipoRetencion.Visible = True End If GvPS.DataSource = TmpDT GvPS.DataBind() - UpPS.Update() + End If End If End If - + UpPS.Update() End Sub From 8bb64b71c9ff4ccff6fbb8924965ab80939161ce Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 10:28:22 -0700 Subject: [PATCH 03/22] Limpiar recepcion de usados --- Inventarios/RecepcionUsados.aspx.vb | 166 +++++++++++++--------------- 1 file changed, 79 insertions(+), 87 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 5c4248dfb..d2cabcd67 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -322,82 +322,80 @@ Partial Class Inventarios_RecepcionUsados Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then - - - CveMovimiento = -1 - CveMovimientoRelacionado = -1 - TieneRelacionado = -1 - TieneSalida = False - EstatusAlmacenCompra = -1 - EsConsumoInterno = False - Correo = "" - FolioCorreo = "" - - If IfNull(Request("Opc"), "").ToString = "S" Then - RBLOpcion.SelectedValue = "3" - DivCliente.Visible = False - End If - - CreaDT() - CargaCombos() - TxtFecha.Text = Now.ToShortDateString - TxtFechaPendientes.Text = Now.ToShortDateString - RVFecha.MaximumValue = Now.ToShortDateString - InicializaClientes() - - 'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos - Select Case UsuarioActual.Empresa.Funcionalidad(103) - Case "1" - - Case "2" - divMonedaSeccion.Visible = True - divGuia.Visible = True - End Select - - - - 'AsignacionOpcion() - SiguienteFolio() - - - 'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF - If CveMovimiento > 0 Then - BloqueaEdicionEncabezado() - If UsuarioActual.CveEmpresa.Contiene(66, 13) Then - TrSubProyectoActivoFijo.Visible = True - VisualizaAF(True) - CargaSubProyectos() - End If - End If - - CargaSubProyectosUsados() - InicializaBitacoraTemporal() - - If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then - DivCodigoSeriePS.Visible = True - End If - - 'If IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then - ' ActivaConsumoInterno() - 'End If - - 'BLOQUEA PERMISOS - BtnGuardar.Enabled = PermiteGuardar() - BtnEliminar.Enabled = PermiteEliminar() - BtnContabilizar.Enabled = PermiteContabilizar() - BtnNuevo.Enabled = PermiteCrearNuevo() - - ActivaPermisoSeccionAlmacen() - If CveMovimiento > 0 Then - PermisoVerImportes() - End If - - CargaTamaños() - 'DdlProducto2.setEsWebService(True) - 'DdlProducto2.Attributes.Add("data-metodo", "getpsusados") + CargaInicial() End If End Sub + Private Sub CargaInicial() + CveMovimiento = -1 + CveMovimientoRelacionado = -1 + TieneRelacionado = -1 + TieneSalida = False + EstatusAlmacenCompra = -1 + EsConsumoInterno = False + Correo = "" + FolioCorreo = "" + + If IfNull(Request("Opc"), "").ToString = "S" Then + RBLOpcion.SelectedValue = "3" + DivCliente.Visible = False + End If + + CreaDT() + CargaCombos() + TxtFecha.Text = Now.ToShortDateString + TxtFechaPendientes.Text = Now.ToShortDateString + RVFecha.MaximumValue = Now.ToShortDateString + InicializaClientes() + + 'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos + Select Case UsuarioActual.Empresa.Funcionalidad(103) + Case "1" + + Case "2" + divMonedaSeccion.Visible = True + divGuia.Visible = True + End Select + + 'AsignacionOpcion() + SiguienteFolio() + + 'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF + If CveMovimiento > 0 Then + BloqueaEdicionEncabezado() + If UsuarioActual.CveEmpresa.Contiene(66, 13) Then + TrSubProyectoActivoFijo.Visible = True + VisualizaAF(True) + CargaSubProyectos() + End If + End If + + CargaSubProyectosUsados() + InicializaBitacoraTemporal() + + If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then + DivCodigoSeriePS.Visible = True + End If + + 'If IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then + ' ActivaConsumoInterno() + 'End If + + 'BLOQUEA PERMISOS + BtnGuardar.Enabled = PermiteGuardar() + BtnEliminar.Enabled = PermiteEliminar() + BtnContabilizar.Enabled = PermiteContabilizar() + BtnNuevo.Enabled = PermiteCrearNuevo() + + ActivaPermisoSeccionAlmacen() + If CveMovimiento > 0 Then + PermisoVerImportes() + End If + + CargaTamaños() + 'DdlProducto2.setEsWebService(True) + 'DdlProducto2.Attributes.Add("data-metodo", "getpsusados") + End Sub @@ -630,6 +628,7 @@ Partial Class Inventarios_RecepcionUsados CveRemisionRecibida = -1 EsDistribuidor = False DdlClientes.SelectedValueExist("-1") + DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty) SiguienteFolio() @@ -654,6 +653,7 @@ Partial Class Inventarios_RecepcionUsados If Not DdlAlmacen.Items.Contains(New ListItem("Seleccione", "-1")) Then DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1")) End If + DdlAlmacen.SelectedValue = "-1" If Not EsConsumoInterno Then DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty) @@ -680,6 +680,8 @@ Partial Class Inventarios_RecepcionUsados TxtRemision.Text = "" DivRemision.Visible = False + 'CargaInicial() + UpRegistroTipoCambio.Update() UPDatos.Update() End Sub @@ -2046,22 +2048,12 @@ Partial Class Inventarios_RecepcionUsados 'End Sub Private Sub CreaRemisionNC(CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer) + If ObjRemisionNC IsNot Nothing Then + ObjRemisionNC.Dispose() + ObjRemisionNC = Nothing + End If Me.ObjRemisionNC = New Modelos.Factura(UsuarioActual) - 'Dim Folio As String = "" - 'Dim Serie As String = "" - - 'Dim ObjFolios As New ClsGralFolios() - 'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then - ' Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto)) - ' If DT.Rows.Count > 0 Then - ' Serie = DT.Rows(0)("Serie").ToString() - ' Folio = DT.Rows(0)("FActual").ToString() - ' End If - ' DT.Dispose() - 'End If - 'ObjFolios.Dispose() - Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML Me.ObjRemisionNC.Serie = "-1" Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero() From 23d2497aba9bafe7b73d39700c0b43b3e4bc5036 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 31 Jan 2020 13:13:43 -0700 Subject: [PATCH 04/22] Promociones aplicadas para grupos de productos en Clasificaciones --- App_Code/ClsVentas.vb | 12 ++++++++++-- Ventas/Promociones.aspx | 1 + Ventas/Promociones.aspx.vb | 13 +++++++------ 3 files changed, 18 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9a0fd3c83..6ac45f7a1 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1991,7 +1991,10 @@ Public Class ClsVentas Return Retorno End Function - Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean + Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, + AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, + AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1, + Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleAdd") @@ -2014,6 +2017,7 @@ Public Class ClsVentas .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try @@ -2025,7 +2029,10 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean + Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, + PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, + AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, + Optional CantidadMinima As Integer = 1, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleUpdate") @@ -2049,6 +2056,7 @@ Public Class ClsVentas .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 6ed0aabef..4a4d6b944 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -180,6 +180,7 @@ + diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index abb594cff..1d9f1a6b6 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -219,8 +219,8 @@ Partial Class Ventas_Promociones Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) - If DdlPS.SelectedValue.ToEntero <= 0 Then - Alert("Debe seleccionar un Producto/Servicio.", TipoMensaje.MsgAdvertencia) + If DdlClasificacion.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -242,7 +242,7 @@ Partial Class Ventas_Promociones Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion") End If - Dr("CvePS") = DdlPS.SelectedValue + Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue) Dr("CodigoPS") = DdlPS.SelectedText Dr("PUAnterior") = LbPUActual.Text.ToDecimal @@ -388,7 +388,8 @@ Partial Class Ventas_Promociones 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) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, + CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero)) Then TieneError = True Exit For End If @@ -417,7 +418,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").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) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then TieneError = True Exit For End If @@ -427,7 +428,7 @@ Partial Class Ventas_Promociones 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) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then TieneError = True Exit For End If From 80ab86114698b1134081e6a1c0ed4720555acf94 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 31 Jan 2020 13:26:15 -0700 Subject: [PATCH 05/22] - ventas relacionadas --- App_Code/ClsVentas.vb | 40 ++++++++++++++++++++++++++++- Contratos/Contrato.aspx | 1 + Inicio.aspx | 2 ++ Inicio.aspx.vb | 10 +++++--- Inventarios/RecepcionUsados.aspx.vb | 2 +- 5 files changed, 50 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9a0fd3c83..0d8ac4700 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2262,6 +2262,43 @@ Public Class ClsVentas #End Region + + +#Region "Firmas" + + Public Function GetVentasRelacionadas(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasRelacionadasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las ventas relacionadas. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function AddVentasRelacionadas(CveVenta As Integer, CveVentaRelacionada As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasRelacionadasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveVentaRelacionada", SqlDbType.Int).Value = CveVentaRelacionada + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar las ventas relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region + #Region " I M P U E S T O S L O C A L E S" Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Double, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4233,7 +4270,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean) As Boolean + Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean, CveMovimiento As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUsadosRecibidoUpdate", CommandType.StoredProcedure) @@ -4242,6 +4279,7 @@ Public Class ClsVentas .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@Recibido", SqlDbType.Bit).Value = Recibido + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento End With Try diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index dbe3e9d5b..c75733b7f 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -2247,6 +2247,7 @@ + diff --git a/Inicio.aspx b/Inicio.aspx index f2f896e76..6ccfe6a7b 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -604,6 +604,7 @@
@@ -792,6 +793,7 @@
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 822217cdb..eca249ee9 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -203,7 +203,9 @@ Partial Class Inicio Private Sub MuestraVentasPUE() Dim objVentas As New ClsVentas - If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + Dim FechaInicio As Date = Now.AddYears(-2) + LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString + If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objVentas.DtResultados.Rows.Count > 0 Then GvVtaPUE.DataSource = objVentas.DtResultados @@ -216,8 +218,10 @@ Partial Class Inicio End Sub Private Sub MuestraComprasPUE() - Dim objCompras As New ClsCompras - If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + Dim objCompras As New ClsCompras + Dim FechaInicio As Date = Now.AddYears(-2) + LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString + If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objCompras.DtResultados.Rows.Count > 0 Then GvCompPUE.DataSource = objCompras.DtResultados diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 5c4248dfb..511cd68a0 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1138,7 +1138,7 @@ Partial Class Inventarios_RecepcionUsados Exit For End If - If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True) Then + If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then Mensaje = "Error al actualizar el recibo de los usados" ErrorMovInv = True Exit For From fc939e0998c1c8a65527b022ffd1419cda5857ba Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 31 Jan 2020 14:02:32 -0700 Subject: [PATCH 06/22] desaparecen opciones del tipo promocion al seleccionar una promocion para toda una clasificacion --- Ventas/Promociones.aspx | 2 +- Ventas/Promociones.aspx.vb | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 4a4d6b944..fac769ab1 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -234,7 +234,7 @@
- +
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 1d9f1a6b6..fdf49d14f 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -127,6 +127,8 @@ Partial Class Ventas_Promociones #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 @@ -137,6 +139,10 @@ Partial Class Ventas_Promociones 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 From 295dc64abfc0d3d9e1e1cae6a745dbcf2bd80d69 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 31 Jan 2020 17:43:40 -0700 Subject: [PATCH 07/22] validacion --- Contabilidad/RegPrePoliza.aspx.vb | 52 +++++++++++++++++-------------- 1 file changed, 28 insertions(+), 24 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index e6580a22f..d89078102 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -998,36 +998,40 @@ Partial Class ContabilidadC_RegPrePoliza If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then OcurrioError = True - End If - - - - ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) - - - For Each row As GridViewRow In GvPrePoliza.Rows - If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, + End If + + + + If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) Then + + + + For Each row As GridViewRow In GvPrePoliza.Rows + If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then + If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero)) Then - OcurrioError = True - Exit For - End If - Else - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, + row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero)) Then + OcurrioError = True + Exit For + End If + Else + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString, row.DataKey("CveConceptoContable").ToEntero, row.FCTextBox("TxtConcepto").Text, Now, row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, 0, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero), ImporteMX:=If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then - OcurrioError = True - Exit For - End If - End If - - Next - + row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then + OcurrioError = True + Exit For + End If + End If + + Next + Else + OcurrioError = True + End If + If Not OcurrioError Then ObjContabilidad.Commit() Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion) From eb28a271e6a09b7dd8975ccbd1269a4edc2e6971 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 18:50:19 -0700 Subject: [PATCH 08/22] BANDERA DE ESTATUS DE ALMACEN EN REP CXP DETALLE --- Compras/RepCxPDetalle.aspx | 8 ++++++++ Compras/RepCxPDetalle.aspx.vb | 27 +++++++++++++++++++++++++-- 2 files changed, 33 insertions(+), 2 deletions(-) diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index ffe97d3fc..43593a36d 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -10,6 +10,9 @@ white-space: nowrap; overflow: hidden; } + .tooltip-inner { + max-width: 350px !important; + } @@ -315,6 +318,11 @@ + + + + + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index bad04658b..8dab1f576 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -315,7 +315,9 @@ Partial Class RepCxPDetalle DdlTipoProveedor.SelectedValueExist(CveTipoProveedor) Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero - DdlComprobacion.SelectedValueExist(Comprobaciones) + DdlComprobacion.SelectedValueExist(Comprobaciones) + + GvDatos.Columns(9).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) End Sub @@ -489,7 +491,28 @@ Partial Class RepCxPDetalle e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25)) End If Else - e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + Dim Str As New StringBuilder + Str.AppendFormat("Importe Almacen: ${0} ({1}%)
", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) + If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) + If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) + Str.AppendFormat(" Importes SIN IVA") + + e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) + Select Case e.Row.DBCampo("EstatusInventario").ToEntero + Case 1 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red + Case 2 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange + Case 3 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green + End Select + End If End If End If From 53d988789304c73bc85c2ca464412c8ef6c3c845 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 18:50:58 -0700 Subject: [PATCH 09/22] =?UTF-8?q?PORCENTAJE=20DE=20COMISIONES=20POR=20VEND?= =?UTF-8?q?EDOR=20EN=20CADA=20MES/A=C3=91O?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 68 ++++++ Ventas/RepComisiones.aspx | 451 ++++++++++++++++++++--------------- Ventas/RepComisiones.aspx.vb | 114 ++++++--- 3 files changed, 407 insertions(+), 226 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9a0fd3c83..b47df49b8 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4256,6 +4256,74 @@ Public Class ClsVentas #End Region + +#Region "P O R C E N T A J E - C O M I S I O N E S" + Public Function AddCierreComisionVendedor(CveVendedor As Integer, Mes As Integer, Anio As Integer, PorcentajeComision As Decimal) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CierreComisionVendedoresAdd", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@PorcentajeComision", SqlDbType.Money).Value = PorcentajeComision + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar cierre de comisión al vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetCierreComisionVendedor(CveVendedor As Integer, Mes As Integer, Anio As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CierreComisionVendedoresGet", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar cierre de comisión al vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateCierreComisionVendedor(CveVendedor As Integer, Mes As Integer, Anio As Integer, PorcentajeComision As Decimal) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CierreComisionVendedoresUpdate", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@PorcentajeComision", SqlDbType.Money).Value = PorcentajeComision + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el cierre de comisión del vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + #Region "IDisposable Support" diff --git a/Ventas/RepComisiones.aspx b/Ventas/RepComisiones.aspx index e59ff7aad..2b5127d5f 100644 --- a/Ventas/RepComisiones.aspx +++ b/Ventas/RepComisiones.aspx @@ -1,197 +1,256 @@ -<%@ Page Title="SIG | Reporte de Comisiones" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisiones.aspx.vb" Inherits="Ventas_RepComisiones" %> - - - - - - - - -
  • - Generar -
    • -     - - - -     -
  • - Ajuste comisiones -
    • -     - - Comisiones Vendedores - - - - - - - - - - -
    -
    -
    - -
    -
    -
    - -
    - - - -
    - -
    - - - -
    - -
    -
    - - - - -
    - - - - - - -
    - -
    -
    - - - - -
    - - - - - - -
    -
    -
    - -
    -
    -     -     - -
    -
    -

    Importes expresados en moneda nacional

    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - <%----%> - - <%----%> - - - +<%@ Page Title="SIG | Reporte de Comisiones" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisiones.aspx.vb" Inherits="Ventas_RepComisiones" %> + + + + + + + + +
  • + Generar +
    • +     + + + +     +
  • + Ajuste comisiones +
    • +
  • + Porcentaje comisiones +
    • +     + + Comisiones Vendedores + + + + + + + + +
    +
    +
    + +
    +
    +
    + +
    + + + +
    + +
    + + + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    + +
    +
    +     +     +
    +
    +

    Importes expresados en moneda nacional

    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + <%----%> + + <%----%> + + + <%-- - --%> - - - - - - - - - -
    -
    -
    -
    - - - - - -
    -
    - - - - - - - - - - - - - - -     - - + --%> + + + + +     +     +     +     +
    +
    +
    +
    + + + + + +
    +
    + + + + + + + + + + +     + + diff --git a/Ventas/RepComisiones.aspx.vb b/Ventas/RepComisiones.aspx.vb index a936e0805..6edfa8fbd 100644 --- a/Ventas/RepComisiones.aspx.vb +++ b/Ventas/RepComisiones.aspx.vb @@ -18,26 +18,30 @@ Partial Class Ventas_RepComisiones InicializaValores() End If - End Sub - - + End Sub + #Region " INICIALIZA VALORES " - + Private Sub InicializaValores() txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + TxtAnio.Text = Now.Year.ToString() + DdlMes.SelectedValueExist(Now.Month) + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() DdlVendedorAjuste.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedorAjuste.DataBind() - End Sub + DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedorPorcentaje.DataBind() + End Sub + #End Region - - + #Region " CARGA DATOS " Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() @@ -69,10 +73,9 @@ Partial Class Ventas_RepComisiones BtnPagar.Visible = False ImgExcel.Visible = False End If - End Sub + End Sub #End Region - - + #Region " GV DATOS " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -90,11 +93,10 @@ Partial Class Ventas_RepComisiones e.Row.FCHyperLink("HLVendedor").NavigateUrl = String.Format("/Ventas/RepComisionesDetalle.aspx?CveVendedor={0}&FI={1}&FF={2}&CveSubProyecto={3}", CveVendedorURL, If(txtFechaI.Text.Trim() = "", "-1", txtFechaI.Text.Trim()), If(txtFechaF.Text.Trim() = "", "-1", txtFechaF.Text.Trim()), DdlSubProyecto.SelectedValue.ToEntero) End If - End Sub - + End Sub + #End Region - - + #Region " PAGAR COMISIONES " Protected Sub BtnPagar_Click(sender As Object, e As EventArgs) If Not GvDatos.Rows.Count > 0 Then @@ -153,10 +155,9 @@ Partial Class Ventas_RepComisiones ObjComisiones.Dispose() - End Sub + End Sub #End Region - - + #Region " AJUSTE " Protected Sub DdlVendedorAjuste_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ObjComisiones As New ClsEsquemasComisiones @@ -194,22 +195,75 @@ Partial Class Ventas_RepComisiones UPDatos.Update() End If - End Sub + End Sub #End Region - - - - - - - - + #Region " EXCEL " Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click GvDatos.ExportToExcel("ReporteComisiones_" & Now.ToShortDateString) - End Sub + End Sub #End Region - - - + + Protected Sub BtnGuardarPorcentajeComision_Click(sender As Object, e As EventArgs) + Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() + + Dim Porcentaje As Decimal = TxtPorcentajeComision.Text.ToDecimal() / 100 + + Dim RowCierre As DataRow = Nothing + Dim ObjVentas As New ClsVentas + Try + If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + + If RowCierre IsNot Nothing Then + If ObjVentas.UpdateCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then + Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + End If + Else + If ObjVentas.AddCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then + Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + End If + End If + Catch ex As Exception + OnError("Ocurrió un error al asginar el porcentaje de la comisión", ex) + End Try + + ObjVentas.Dispose() + + UpPorcentajeComisiones.Update() + End Sub + Protected Sub DdlVendedorPorcentaje_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaPorcentajeComisiones() + End Sub + Protected Sub DdlMes_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaPorcentajeComisiones() + End Sub + Protected Sub CargaPorcentajeComisiones() + Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() + + Dim RowCierre As DataRow = Nothing + + Dim ObjVentas As New ClsVentas + If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + ObjVentas.Dispose() + + If RowCierre IsNot Nothing Then + TxtPorcentajeComision.Text = (RowCierre("PorcentajeComision").ToString().ToDecimal() * 100).FormatoNumero(0) + Else + TxtPorcentajeComision.Text = "0" + End If + + UpPorcentajeComisiones.Update() + End Sub End Class From a4498bc48bd708429c87e1f39e8c956efc134e74 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 31 Jan 2020 18:51:42 -0700 Subject: [PATCH 10/22] - cambio de un producto --- Inventarios/RecepcionUsados.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index c63584343..2959b5713 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -944,9 +944,9 @@ Partial Class Inventarios_RecepcionUsados Exit Sub End If - Else - Alert($"El producto no se encuentra en la factura", TipoMensaje.MsgAdvertencia) - Exit Sub + 'Else + ' Alert($"El producto no se encuentra en la factura", TipoMensaje.MsgAdvertencia) + ' Exit Sub End If End If From b9a23db611ce0b677a32788faf06b30f755a31e1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 1 Feb 2020 10:40:00 -0700 Subject: [PATCH 11/22] correcion en formato de conciliacion y agregando nueva consulta en pop up ver factura --- Compras/PopUpVerFactura.aspx.vb | 3 +++ Empresas/Grales/Formatos/Conciliacion.rdlc | 4 ++-- Ventas/Ventas.aspx.vb | 8 ++++++-- 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 297531b36..c31f4f01a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1096,6 +1096,9 @@ Partial Class PopUpVerFactura If ObjVentas.GetVentasAntNC(-1, CveVenta) Then Vta.DtNCVinculadas = ObjVentas.DtResultados End If + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.FolioFiscal = ObjVentas.DtResultados.FiltroPrimeroValor("FolioFiscal") + End If End If End If diff --git a/Empresas/Grales/Formatos/Conciliacion.rdlc b/Empresas/Grales/Formatos/Conciliacion.rdlc index c00b8a81b..df1c987cb 100644 --- a/Empresas/Grales/Formatos/Conciliacion.rdlc +++ b/Empresas/Grales/Formatos/Conciliacion.rdlc @@ -2003,7 +2003,7 @@ - Contralor + Contador HTML - Contralor + Contador HTML + + + + Sucursal: + + + + + Textbox1 11.66812cm 0.10722cm - 2.31759cm + 2.54689cm 3.426cm 54 + + + - Contador + Contralor HTML -     - - - -
  • - PDF -
    • - -
  • - Excel -
    • - -     - - Programación de Recursos - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Proveedor:
    -
    - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProgramarRecursos.aspx.vb" Inherits="Bancos_RepProgramarRecursos" %> + +<%@ Import Namespace="Extensiones" %> + + + + + + + +
  • + PDF +
    • + +
  • + Excel +
    • + +     + + Programación de Recursos + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    Clasificaciones:
    -
    - - - - -
    - +
    Clasificaciones:
    +
    + + + + +
    + -
    Aplica NC:
    -
    - - - - - -<%-- --%> -
    - -
    - - -
    - - - - - - - - - - - -
    -     -     -
    -
    -
    -
    -
    > -
    -
    Tipo Prov.:
    -
    - - - - - - -
    -
    F.I.:
    -
    -
    - - - - - - - - - - -
    -
    -
    F.F.:
    -
    -
    - - - - - - - - - - -
    -
    - - -
    -
    -
    Moneda:
    -
    - - - -
    -
    F.I.V.:
    -
    -
    - - - - - - - - - - -
    -
    -
    F.F.V.:
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    Registró:
    -
    - - -
    -
    Responsable:
    -
    - - - -
    -
    -
    - - - - -
    -
    -
    -
    Estatus:
    -
    - - - -
    -
    Proyecto:
    -
    - - - -
    -
    SubProyecto:
    -
    - - - - - - - -
    -
    Comprobación:
    -
    - - - - - -
    -
    -
    -
    -     -     -     -     - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - -
    -
    -
    -
    - - Total -
    -
    Pesos
    -
    - -
    -
    Dólares
    -
    - -
    -
    T.C.
    -
    - -
    -
    Total
    -
    - -
    - -
    - -
    -
    - - - -
    -
    - - Programación -
    -
    - -
    -
    -
    -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - - - - - -
    -
    - -     -
    -
    -
    - - - - - - - <%# Eval("RazonSocial")%> - - -
    -  /  -
    -     -     + +
    +
    Aplica NC:
    +
    + + + + + + <%-- --%> +
    + +
    + + +
    + + + + + + + + + + + +
    +     +     +
    +
    +
    +
    +
    > +
    +
    Tipo Prov.:
    +
    + + + + + + +
    +
    F.I.:
    +
    +
    + + + + + + + + + + +
    +
    +
    F.F.:
    +
    +
    + + + + + + + + + + +
    +
    + + +
    +
    +
    Moneda:
    +
    + + + +
    +
    F.I.V.:
    +
    +
    + + + + + + + + + + +
    +
    +
    F.F.V.:
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    Registró:
    +
    + + +
    +
    Responsable:
    +
    + + + +
    +
    +
    + + + + +
    +
    +
    +
    Estatus:
    +
    + + + +
    +
    Proyecto:
    +
    + + + +
    +
    SubProyecto:
    +
    + + + + + + + +
    +
    Comprobación:
    +
    + + + + + +
    +
    +
    +
    + + + + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + +
    +
    +
    +
    + + Total +
    +
    Pesos
    +
    + +
    +
    Dólares
    +
    + +
    +
    T.C.
    +
    + +
    +
    Total
    +
    + +
    + +
    + +
    +
    + + + +
    +
    + + Programación +
    +
    + +
    +
    +
    +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + + + + + +
    +
    + +     +
    +
    +
    + + + + + + + <%# Eval("RazonSocial")%> + + +
    +  /  +
    +     +     <%--
    @@ -402,158 +403,169 @@ - --%> - - - -
    -   -
    -     - - - -     - + --%> + + + +
    +   +
    +     + + + +     + <%-- Aplica NC - --%> - - - -
    -   -
    -     - - - -     - - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - - - -     - - -
    -   -
    -     - - - - -     - - -
    -   -
    -     - - - - - -     - - -
    + --%> + + + +
    +   +
    +     + + + +     + + + +
    +   +
    +     + + + +     + + +
    +   +
    +     + + + +     + + +
    +   +
    +     + + + +     + +<%-- +
    + +
    +     --%> + + + +     + + +
    +   +
    +     + + + + + +     + + +
    +   +
    +     + + + + +     + + +
    +   +
    +     + + + + + +     + + +
    Sel - - - - - - - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +     + + + +     +     +     +
    +
    +
    + +     + +     + + + + + + + + + + + + + + + + + + + + + + +     +     + +     + + + + + + + + - + + - - + + + diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index af93c7aca..5c2cd3230 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -342,7 +342,9 @@ Partial Class Bancos_RepProgramarRecursos LblPesosTotal.Text = String.Format("$ {0}", DtDatos.SUM("SaldoPesos", "CveCompra > 0").ToString.FormatoNumero()) LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero()) - End If + End If + + Gv.Columns(6).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) Mov.Dispose() CargaGrid(Orden) @@ -434,19 +436,41 @@ Partial Class Bancos_RepProgramarRecursos e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format(" $get('{0}').readOnly = !this.checked;", e.Row.FCTextBox("TxtS").ClientID)) 'cuando estan programado, el saldo es el importe programado, para saber el total que se limite el rango, debe de ser el saldo real, saldo + importeprogramado e.Row.FCTextBox("TxtS").Attributes.Add("onkeyup", String.Format("FnMonedaRango(this,{0});", e.Row.DBCampo("Original").ToDouble + e.Row.DBCampo("Abonado").ToDouble)) + End If + + + 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto + ' e.Row.FCDropDownList("DdlCuenta").Visible = True + ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas + ' e.Row.FCDropDownList("DdlCuenta").DataBind() + + ' e.Row.FCDropDownList("DdlMov").Visible = True + ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion + ' e.Row.FCDropDownList("DdlMov").DataBind() + + 'End If + + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + Dim Str As New StringBuilder + Str.AppendFormat("Importe Almacen: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) + If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) + If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) + Str.AppendFormat(" Importes SIN IVA") + + e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) + Select Case e.Row.DBCampo("EstatusInventario").ToEntero + Case 1 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red + Case 2 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange + Case 3 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green + End Select End If - - 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto - ' e.Row.FCDropDownList("DdlCuenta").Visible = True - ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas - ' e.Row.FCDropDownList("DdlCuenta").DataBind() - - ' e.Row.FCDropDownList("DdlMov").Visible = True - ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion - ' e.Row.FCDropDownList("DdlMov").DataBind() - - 'End If End If If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red From f4f49948829b0267fb91eb51f4084ac7a0cef7b6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 4 Feb 2020 09:02:53 -0700 Subject: [PATCH 14/22] mensaje de error al no tener NC --- Ventas/ClientesAbonar.aspx.vb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 99e1f03d7..4b8a485f2 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1585,11 +1585,13 @@ Partial Class Ventas_ClientesAbonar If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If MsgError = "" Then - Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC) - If Resp.CveVenta > 0 Then - NCGeneradas.Add(Resp) - Else - MsgError = "No se pudo generar la nota de credito" + If ListaFacturasGenerarNC.Count > 0 Then + Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC) + If Resp.CveVenta > 0 Then + NCGeneradas.Add(Resp) + Else + MsgError = "No se pudo generar la nota de credito" + End If End If End If End If @@ -1911,7 +1913,7 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.DtVentasNC = DtVentasNC ObjFacturaDevolucion.GenerarPDFFactura = True - Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Trasac:=Trasac, ObjContPaqTransac:=ObjConta) + Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=Trasac, ObjContPaqTransac:=ObjConta) Return Resp End Function From b9731e598c1074dd0e203dfb0c622e7d20aebc9d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 4 Feb 2020 09:03:13 -0700 Subject: [PATCH 15/22] --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 1cb6a40b2..83b8cd235 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5323,7 +5323,7 @@ Partial Class PV TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}." TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero - TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero + 'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero Else Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia) 'cuando no está registrada, no da ajuste From 95358ad6f61d1479e615e3af653a228a4e5f6900 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 4 Feb 2020 09:59:29 -0700 Subject: [PATCH 16/22] Agregar campos de CargoMN y AbonoMN en AuxiliarProveedores --- .../Grales/Formatos/AuxiliarProveedor.rdlc | 64 ++++++++++--------- 1 file changed, 33 insertions(+), 31 deletions(-) diff --git a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc index 037e9e403..7306eef7f 100644 --- a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc +++ b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc @@ -56,28 +56,28 @@ 2.54731cm - 1.73227cm + 0.70704cm 1.66702cm - 2.26144cm + 1.99686cm - 1.46086cm + 1.96369cm - 1.09776cm + 1.75246cm - 1.57396cm + 0.85958cm - 1.37522cm + 1.6398cm - 1.23062cm + 1.77947cm @@ -95,7 +95,7 @@ =Fields!Fecha.Value @@ -130,7 +130,7 @@ =Fields!ConceptoContable.Value @@ -164,7 +164,7 @@ =Fields!TipoDocto.Value @@ -198,7 +198,7 @@ =Fields!SerieFolio.Value @@ -232,7 +232,7 @@ =Fields!FolioReferencia.Value @@ -266,7 +266,7 @@ =Fields!Cargo.Value @@ -301,7 +301,7 @@ =Fields!Abono.Value @@ -336,7 +336,7 @@ =Fields!Abreviatura.Value @@ -370,7 +370,8 @@ =Fields!CargoMN.Value @@ -404,7 +405,8 @@ =Fields!AbonoMN.Value @@ -435,7 +437,7 @@ - 0.8593cm + 0.59472cm true @@ -473,7 +475,7 @@ - 0.8593cm + 0.59472cm true @@ -511,7 +513,7 @@ - 0.8593cm + 0.59472cm true @@ -549,7 +551,7 @@ - 0.8593cm + 0.59472cm true @@ -587,7 +589,7 @@ - 0.8593cm + 0.59472cm true @@ -625,7 +627,7 @@ - 0.8593cm + 0.59472cm true @@ -663,7 +665,7 @@ - 0.8593cm + 0.59472cm true @@ -701,7 +703,7 @@ - 0.8593cm + 0.59472cm true @@ -710,7 +712,7 @@ - Moneda + Mon. @@ -739,7 +741,7 @@ - 0.8593cm + 0.59472cm true @@ -777,7 +779,7 @@ - 0.8593cm + 0.59472cm true @@ -831,7 +833,7 @@ =Fields!RazonSocial.Value @@ -860,8 +862,8 @@ DataSet1 0.75875cm 0.06614cm - 1.4593cm - 19.58715cm + 1.19472cm + 19.55393cm From f01acf75350e5d5d4f7ac013d2a609330bcf4da5 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 4 Feb 2020 11:37:14 -0700 Subject: [PATCH 17/22] . --- Compras/PopUpVerFactura.aspx.vb | 48 ++++++++++++++++++++------------- Ventas/PV.aspx | 4 --- 2 files changed, 30 insertions(+), 22 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c31f4f01a..38f493d93 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1067,39 +1067,51 @@ Partial Class PopUpVerFactura If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If End If End If Else - If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then - 'carga as notas de credito vinculadas - If ObjVentas.GetVentasAntNC(CveVenta, -1) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - End If - End If + 'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then + ' 'carga as notas de credito vinculadas + ' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then + ' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + ' End If + 'End If - If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then - If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then If Vta.TipoDocto.Contiene("Dev") Then Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" End If - End If + End If End If End If End If 'End If - If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then - If ObjVentas.GetVentasAntNC(-1, CveVenta) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - End If - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.FolioFiscal = ObjVentas.DtResultados.FiltroPrimeroValor("FolioFiscal") - End If - End If + 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then + ' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + ' ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' 'End If + ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' End If + 'End If End If ObjVentas.Dispose() diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index bf162ff6a..327dbb21f 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2333,7 +2333,6 @@
    -
    @@ -2354,7 +2353,6 @@
    -
    @@ -2385,8 +2383,6 @@
    - -
    From 555773d044667d8dc5bcd7cef5de639560d99a6d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 13:11:06 -0700 Subject: [PATCH 18/22] Comisione cobradas en reporte de comisiones --- Ventas/RepComisiones.aspx | 10 ++-- Ventas/RepComisiones.aspx.vb | 96 +++++++++++++++----------------- Ventas/RepComisionesDetalle.aspx | 3 + 3 files changed, 54 insertions(+), 55 deletions(-) diff --git a/Ventas/RepComisiones.aspx b/Ventas/RepComisiones.aspx index 2b5127d5f..293384f61 100644 --- a/Ventas/RepComisiones.aspx +++ b/Ventas/RepComisiones.aspx @@ -117,6 +117,7 @@ --%> + @@ -191,11 +192,12 @@
    -
    +<%--
    - + + @@ -208,11 +210,11 @@
    -
    +
    --%>
    - + diff --git a/Ventas/RepComisiones.aspx.vb b/Ventas/RepComisiones.aspx.vb index 6edfa8fbd..e377dfb71 100644 --- a/Ventas/RepComisiones.aspx.vb +++ b/Ventas/RepComisiones.aspx.vb @@ -24,8 +24,8 @@ Partial Class Ventas_RepComisiones Private Sub InicializaValores() txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString - txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString - + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + TxtAnio.Text = Now.Year.ToString() DdlMes.SelectedValueExist(Now.Month) @@ -35,8 +35,8 @@ Partial Class Ventas_RepComisiones DdlVendedorAjuste.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedorAjuste.DataBind() - DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) - DdlVendedorPorcentaje.DataBind() + 'DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + 'DdlVendedorPorcentaje.DataBind() End Sub @@ -205,65 +205,59 @@ Partial Class Ventas_RepComisiones #End Region Protected Sub BtnGuardarPorcentajeComision_Click(sender As Object, e As EventArgs) - Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() - Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() - Dim Anio As Integer = TxtAnio.Text.ToEntero() - - Dim Porcentaje As Decimal = TxtPorcentajeComision.Text.ToDecimal() / 100 - Dim RowCierre As DataRow = Nothing + Dim TieneError As Boolean = False Dim ObjVentas As New ClsVentas Try - If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - RowCierre = ObjVentas.DtResultados.Rows(0) - End If + ObjVentas.IniciaTransacSQL() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() - If RowCierre IsNot Nothing Then - If ObjVentas.UpdateCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then - Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + For Each GvRow As GridViewRow In GvDatos.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.DataKey("CveVendedor").ToEntero() > 0 Then + Dim Porcentaje As Decimal = GvRow.DataKey("Comision").ToDecimal() / 100 + + If ObjVentas.GetCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + Else + TieneError = True + End If + + If RowCierre IsNot Nothing Then + TieneError = Not ObjVentas.UpdateCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, Porcentaje) + Else + TieneError = Not ObjVentas.AddCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, Porcentaje) + End If + + If TieneError Then + Exit For + End If + End If + + RowCierre = Nothing End If - Else - If ObjVentas.AddCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then - Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) - End If - End If + Next + Catch ex As Exception + TieneError = True OnError("Ocurrió un error al asginar el porcentaje de la comisión", ex) End Try - ObjVentas.Dispose() - - UpPorcentajeComisiones.Update() - End Sub - Protected Sub DdlVendedorPorcentaje_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPorcentajeComisiones() - End Sub - Protected Sub DdlMes_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPorcentajeComisiones() - End Sub - Protected Sub CargaPorcentajeComisiones() - Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() - Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() - Dim Anio As Integer = TxtAnio.Text.ToEntero() - - Dim RowCierre As DataRow = Nothing - - Dim ObjVentas As New ClsVentas - If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - RowCierre = ObjVentas.DtResultados.Rows(0) - End If - ObjVentas.Dispose() - - If RowCierre IsNot Nothing Then - TxtPorcentajeComision.Text = (RowCierre("PorcentajeComision").ToString().ToDecimal() * 100).FormatoNumero(0) + If TieneError Then + ObjVentas.RollBack() + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) Else - TxtPorcentajeComision.Text = "0" + ObjVentas.Commit() + Alert("El porcentaje de comisiones se guardó correctamente.", TipoMensaje.MsgInformacion) End If + ObjVentas.Dispose() + CargaDatos() + UPDatos.Update() UpPorcentajeComisiones.Update() End Sub End Class diff --git a/Ventas/RepComisionesDetalle.aspx b/Ventas/RepComisionesDetalle.aspx index 2cdebf3bb..918565e84 100644 --- a/Ventas/RepComisionesDetalle.aspx +++ b/Ventas/RepComisionesDetalle.aspx @@ -126,6 +126,9 @@ + + + <%----%> From 4cb1489b033b1785c21e3fd1883f7b52b1de86f5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 13:11:38 -0700 Subject: [PATCH 19/22] Error al guardar folio de poliza --- Compras/Compras.aspx.vb | 59 ++++++++++++++++++++++++----------------- 1 file changed, 34 insertions(+), 25 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f5a0be724..14fe93b5f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7904,6 +7904,7 @@ Partial Class Compras_Compras 'AJUSTA POLIZA If IdPoliza > 0 Then + PolizaFolio = ObjContaAC.Folio ObjContaAC.AjustaPoliza(IdPoliza) Msg.AppendFormat("

    Ver Póliza", IdPoliza) End If @@ -7914,35 +7915,43 @@ Partial Class Compras_Compras Msg.AppendFormat("
    Imprimir Entrada Almacen", TempParametros) End If - ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) - + If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then + TieneError = True + End If + If EntregaDirecta Then Msg.AppendFormat($"
    Recibir mercancía de entrega directa.") End If - ObjCompras.Commit() - If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() - - Dim CveEvaluacionProveedor As Integer = -1 - - If Me.RequiereEvaluacion Then - Dim ObjPro As New ClsCompProveedores() - CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa) - ObjPro.Dispose() - End If - - 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC - MandaCorreoOCVendedores(CveCompra) - If Not ErrorMovInv Then - For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen - MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen) - Next - End If - - If CveEvaluacionProveedor > 0 Then - Msg.Append("

    El proveedor tiene evaluaciones pendientes
    ") - Msg.Append("¿Desea realizar una evaluacion al proveedor?") - Msg.AppendFormat($"
    Evaluar Proveedor.") + If Not TieneError Then + ObjCompras.Commit() + If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() + + Dim CveEvaluacionProveedor As Integer = -1 + + If Me.RequiereEvaluacion Then + Dim ObjPro As New ClsCompProveedores() + CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa) + ObjPro.Dispose() + End If + + 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC + MandaCorreoOCVendedores(CveCompra) + If Not ErrorMovInv Then + For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen + MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen) + Next + End If + + If CveEvaluacionProveedor > 0 Then + Msg.Append("

    El proveedor tiene evaluaciones pendientes
    ") + Msg.Append("¿Desea realizar una evaluacion al proveedor?") + Msg.AppendFormat($"
    Evaluar Proveedor.") + End If + Else + ObjCompras.RollBack() + If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() + Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) End If Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) From 64bd98a4336cb36b3908efe5617736a6131a0bf1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 15:55:36 -0700 Subject: [PATCH 20/22] Marca usado en poliza virtual --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 4a65d41f7..bab61a147 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1308,7 +1308,7 @@
    + DataKeyNames="CvePolizaVirtual,SerieLote,IdProductoPolizaVirtual,Total,Descuento,AnioVehiculo,FechaUsado,IdModeloAuto,IdMarcaAuto,IdBCI,TipoServicio,TipoPoliza,TieneUsado,IdMarcaUsado" ClientIDMode="Static" EmptyDataText="" GridLines="None"> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 25e96e9f9..ad4b4e98e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24079,7 +24079,7 @@ Partial Class Ventas If obj.used_product Then Dim FechaUsado As DateTime = Row.DataKey("FechaUsado").ToString().ToDateTime() - obj.used_brand = Row.DataKey("IdModelo").ToString().Trim() 'MARCAR DEL USADO + obj.used_brand = Row.DataKey("IdMarcaUsado").ToString().Trim() 'MARCAR DEL USADO obj.used_bci = Row.DataKey("IdBCI").ToString().Trim() 'VALOR DEL BCI obj.used_month = FechaUsado.Month obj.used_year = FechaUsado.Year From 15f3bf23571f850f1a39d241ca76d938cb410e51 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 15:56:07 -0700 Subject: [PATCH 21/22] Quitar serie folio de factura en clientes --- Ventas/Clientes.aspx.vb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f5fb1f7eb..d37ad69e5 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9197,12 +9197,17 @@ Partial Class Clientes AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, PorcentajeIVA:=PorcentajeIVA) - Dim Folio As Integer = 0 + Dim Folio As Integer = -1 Dim Serie As String = "" - If FolioNotaCredito(Tipo) Then - Folio = FolioNotaAcumulador - Serie = SerieNotaAcumulador + 'If FolioNotaCredito(Tipo) Then + ' Folio = FolioNotaAcumulador + ' Serie = SerieNotaAcumulador + 'End If + + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + ObjFactura = Nothing End If ObjFactura = New Modelos.Factura(UsuarioActual) From ef8a2a74d1ec4137d8b69e070f142932e43a01e8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 15:56:25 -0700 Subject: [PATCH 22/22] --- vwd.webinfo | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/vwd.webinfo b/vwd.webinfo index 07746b18a..bbbac0242 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -1,10 +1,12 @@ - - - - - - - + + + + + + + + + \ No newline at end of file