From 3b1eb72b1f58bf6f617b4cf16ad1847d0cc69a10 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 2 Dec 2021 18:22:58 -0700 Subject: [PATCH 1/3] Correcion de porcentaje de impuesto al aplicar pago --- Bancos/IE.aspx.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index db4ef65f4..fa4a59b34 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2769,8 +2769,9 @@ Partial Class Bancos_IE ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera) If TxtIvaIxC.Text.ToDouble > 0 Then + Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) 'Iva - ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) + ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0)) End If 'Bancos @@ -2862,7 +2863,8 @@ Partial Class Bancos_IE If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then Dim CveConIVA As Integer = 61 If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then + Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If From 05730afaa8a0a3fc66143a53b41f7faf4adddf2e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 2 Dec 2021 19:56:36 -0700 Subject: [PATCH 2/3] E140. Catalogo de vendedores de sucursal en clientes.aspx, seleccionar desde ventas.aspx --- App_Code/ClsPaginas.vb | 10 ++-- Ventas/Clientes.aspx | 58 +++++++++++++++++++++- Ventas/Clientes.aspx.vb | 104 +++++++++++++++++++++++++++++++++++----- Ventas/Ventas.aspx.vb | 30 ++++++++++++ 4 files changed, 186 insertions(+), 16 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index fe7ea1016..7ff070146 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3871,7 +3871,7 @@ Public Class ClsPaginas - Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer) As DataTable + Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa) @@ -3880,9 +3880,13 @@ Public Class ClsPaginas If ObjInv.GetClientesVendedoresSubProyectos(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados ObjInv.Dispose() End If + Dim Str As StringBuilder = New StringBuilder() + Str.Append("1 = 1 ") + If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0} ", CveCliente) + If CveSubProyecto <> -1 Then Str.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto) - GlobalDTClientesVendedoresSubProyectos = DirectCast(Application(AppNombre), DataTable) - + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTClientesVendedoresSubProyectos = Dv.ToTable End Get Set(value As DataTable) Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 819293028..c7af0aff2 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -617,9 +617,11 @@
+ - + +
@@ -6448,6 +6450,60 @@
<%--FIN MODAL CLIENTE PERSONAL ENTREGA--%> + + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ef1112da5..9f106336c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1373,12 +1373,15 @@ Partial Class Clientes Dim item As New ListItem("Seleccione", "-1") DdlVendedor.DataSource = dt DdlVendedorSucursal.DataSource = dt + DdlVendedorSucursalAsignar.DataSource = dt DdlVendedor.DataBind() DdlVendedorSucursal.DataBind() + DdlVendedorSucursalAsignar.DataBind() DdlVendedor.Items.Insert(0, item) - DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlVendedorSucursalAsignar.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -1464,6 +1467,11 @@ Partial Class Clientes If ObjClientes.Pais = "" Then ObjClientes.Pais = "México" + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then + LnkAgregarVendedorSucursal.Visible = True + End If + 'Campos para Modificación LtlCliente.Text = ObjClientes.Nombre TxtNombre.Text = ObjClientes.Nombre @@ -8563,7 +8571,11 @@ Partial Class Clientes 'CargaSubProyectos DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyectoFiltro.DataBind() + DdlSubProyectoFiltro.DataBind() + + DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + DdlSucursalVendedor.DataBind() + DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1")) 'Vendedor DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) @@ -8577,17 +8589,17 @@ Partial Class Clientes DdlPSFiltro.setEsWebService(True) 'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then - DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue) - DdlPSFiltro.SelectedText = "" - DdlPSFiltro.SelectedValue = "-1" - 'Else - ' DdlPSFiltro.ddl.Items.Clear() - ' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero()) - ' DdlPSFiltro.ddl.DataBind() - ' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) - 'End If + DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue) + DdlPSFiltro.SelectedText = "" + DdlPSFiltro.SelectedValue = "-1" + 'Else + ' DdlPSFiltro.ddl.Items.Clear() + ' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero()) + ' DdlPSFiltro.ddl.DataBind() + ' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) + 'End If - CargaGrupo() + CargaGrupo() CargaTipoCentroCosto() End Sub @@ -10827,6 +10839,74 @@ Partial Class Clientes End If End Sub + Protected Sub LnkAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) Handles LnkAgregarVendedorSucursal.Click + If CveCliente > 0 Then + DdlVendedorSucursalAsignar.SelectedValueExist("-1") + DdlSucursalVendedor.SelectedValueExist("-1") + CargaProveedoresSucursales() + RegistraScript("$('#DivVendedoresSucursales').modal('show');") + End If + End Sub + + Private Sub CargaProveedoresSucursales() + Using ObjVentas As New ClsVentas + If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, -1, -1, UsuarioActual.CveEmpresa) Then + GvVendedoresSucursales.DataSource = ObjVentas.DtResultados + End If + End Using + GvVendedoresSucursales.DataBind() + UpVendedoresSucursales.Update() + End Sub + + + Protected Sub LnkEliminarVendedorSucursal_Click(sender As Object, e As EventArgs) + Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero() + Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero() + + Using ObjVentas As New ClsVentas + If ObjVentas.RemoveClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then + Alert("Se eliminó el vendedor a la sucursal") + End If + End Using + + DdlVendedorSucursalAsignar.SelectedValueExist("-1") + DdlSucursalVendedor.SelectedValueExist("-1") + + CargaProveedoresSucursales() + + RecargaGlobalDTVendedorSucursal() + End Sub + Protected Sub BtnAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) + Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero() + Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero() + + Dim Guardar As Boolean = True + Using ObjVentas As New ClsVentas + + If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + Guardar = False + Alert("El vendedor ya existe en esta sucursal", TipoMensaje.MsgAdvertencia) + End If + End If + + If Guardar AndAlso ObjVentas.AddClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then + Alert("Se agregó el vendedor a la sucursal") + End If + + End Using + + DdlVendedorSucursalAsignar.SelectedValueExist("-1") + DdlSucursalVendedor.SelectedValueExist("-1") + + CargaProveedoresSucursales() + + RecargaGlobalDTVendedorSucursal() + End Sub + + Private Sub RecargaGlobalDTVendedorSucursal() + GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing + End Sub End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9bc1a43b5..89424f820 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6111,6 +6111,10 @@ Partial Class Ventas End If BloqueaCondiconesPago() DeshabilitarAplicarNotaDeCredito(LblRFC.Text) + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaVendedoresSubProyectos() + End If End Sub Private Sub CargaRelacionadasPendientes() @@ -16572,6 +16576,10 @@ Partial Class Ventas End If ObjSubProyectos.Dispose() + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaVendedoresSubProyectos() + End If + UpDetalle.Update() End Sub Private Sub CambiaSucursal(Optional RecargarPartidas As Boolean = True) @@ -16766,6 +16774,10 @@ Partial Class Ventas DdlVendedor.SelectedValue = "0" DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaVendedoresSubProyectos() + End If + DdlVendedorSucursal.DataSource = DdlVendedor.DataSource DdlVendedor.DataBind() @@ -32592,6 +32604,24 @@ Partial Class Ventas UpModalSolicitud.Update() End Sub + Private Sub CargaVendedoresSubProyectos() + + Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) + + If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then + DdlVendedor.Items.Clear() + DdlVendedor.SelectedValue = Nothing + + DdlVendedor.DataSource = DtVendedoresSucursales + DdlVendedor.DataBind() + DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) + + DtVendedoresSucursales.Dispose() + End If + + UpParametros.Update() + End Sub + Public Class MAnticipoRelacionado Public Property CveVenta As Integer Public Property FolioFiscal As String From 2258af1e5122188c79dc3d7449596a98f2c5414d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 2 Dec 2021 21:03:58 -0700 Subject: [PATCH 3/3] -- VALIDACION UsaAC --- Ventas/Ventas.aspx.vb | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 02ce47bf7..500c4146b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13612,7 +13612,7 @@ Partial Class Ventas Exit For End If - If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119,140}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then + If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) If Existencia < Cantidad Then OcurrioError = True @@ -16875,7 +16875,7 @@ Partial Class Ventas If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then 'VALIDA EXISTENCIA - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153,140}) Then + If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Return False @@ -18182,12 +18182,12 @@ Partial Class Ventas dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso)) Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text) - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then + If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then 'CARGO la deuda del cliente - If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then 'abono, - If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then ErrorAC = True End If Else @@ -18213,15 +18213,13 @@ Partial Class Ventas Else ErrorAC = True - End If If Not ErrorAC Then ObjAC.AjustaPoliza(IDPoliza) - - ' Retorno = IDPoliza Else - + Retorno.IdPoliza = 0 + Retorno.FolioPoliza = -1 Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError) End If