From f0da9708470aa1849653c8b69a249dab94d20049 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 16 Aug 2024 09:16:36 -0700 Subject: [PATCH 1/6] --FIX Forzar ajuste en NC --- Ventas/Ventas.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6401a1de9..e3e63644c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -12033,7 +12033,7 @@ Partial Class Ventas Dim ForzarAjuste As Boolean = False 'EL IMPORTE DE NC NO PUEDE SER MAYOR AL DE LA FACTURA - If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso (tTipoAmortizacion = 1) Then + If (tTipoAmortizacion = 1) Then ForzarAjuste = True End If @@ -12103,7 +12103,7 @@ Partial Class Ventas '**** IMPUESTOS LOCALES factura.DtDetalle = tmpcon - Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte").RoundSQL(2) + Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte") Dim TotalDescuentos As Decimal = tmpcon.SUMD("Descuento") Dim TotalIVA As Decimal = tmpcon.SUMD("ImporteIVA") @@ -30644,7 +30644,7 @@ Partial Class Ventas Dim ImporteReferencia As Decimal = If(NivelTotal = 1, Total, SubTotal) - Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100 + Dim Porcentaje As Decimal = ((Importe * 100D) / ImporteReferencia) / 100D Dim FiltroStr As String = "" Dim TotalImpuestosLocalesVentaOriginal As Decimal = 0 @@ -30652,7 +30652,7 @@ Partial Class Ventas 'CALCULA LO EQUIVALENTE EN IMPUSTOS LOCALES If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.Rows.Count > 0 Then - TotalImpuestosLocalesVentaOriginal = TmpDTImpuestos.SUM("Importe") + TotalImpuestosLocalesVentaOriginal = TmpDTImpuestos.SUMD("Importe") TotalImpuestosLocalesRecalculado = TotalImpuestosLocalesVentaOriginal * Porcentaje End If @@ -30666,7 +30666,7 @@ Partial Class Ventas For Each Dr As DataRow In DtImpuestosLocal.Rows FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString().ToDecimal, Dr("PorcentajeRetIVA").ToString().ToDecimal, Dr("PorcentajeRetISR").ToString().ToDecimal, Dr("PorcentajeIEPS").ToString().ToDecimal, Dr("CveSubProyecto")) Dim importePuTemp As Decimal = 0 - importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr) - TmpDT.SUM("Descuento", FiltroStr))) + importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr))) Dim DescuentoAplicado As Decimal = 0 If AplicaDescuentos Then From 56f4f98e6d059d069731cd2e3ee3d519f5a0780b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 17 Aug 2024 01:44:10 -0700 Subject: [PATCH 2/6] =?UTF-8?q?OC=20Grupo=20d=C3=ADaz=20correciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsOC.vb | 2 ++ Compras/Compras.aspx.vb | 32 ++++++++++++++++++++++---------- OC/OC.aspx | 7 ++++--- OC/OC.aspx.vb | 29 +++++++++++++++++++++++++---- 4 files changed, 53 insertions(+), 17 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 08a417153..a9083317b 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -30,6 +30,7 @@ Public Class ClsOC Public Property CveOrdenCompra As Integer Public Property CveOrdenCompraDetalle As Integer Public Property Folio As Integer + Public Property SerieFolio As String = "" Public Property Serie As String = "" Public Property CveIEAnticipo As Integer Public Property CveProveedorAnticipo As Integer @@ -609,6 +610,7 @@ Public Class ClsOC Dim dr As DataRow = Data.Rows(0) _CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero _Folio = dr("Folio").ToString.ToEntero + _SerieFolio = dr("SerieFolio").ToString _Serie = dr("Serie").ToString _CveIEAnticipo = dr("CveIEAnticipo").ToString.ToEntero _FolioIEAnticipo = dr("FolioIEAnticipo").ToString.ToEntero diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 74017a021..36a6ab867 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6705,26 +6705,38 @@ Partial Class Compras_Compras End If Next + + Dim importeMNTemp As Decimal = 0 + Dim CveCompraAmortizacion As Integer = -1 + For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then - Dim importeMNTemp As Decimal = 0 + If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then ErrorMovInv = True Exit For End If - Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal + ' Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) - importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL + importeMNTemp = importeMNTemp + (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL ImporteTransito += importeMNTemp + CveCompraAmortizacion = Gvr.DataKey("CveCompra").ToEntero 'se registra por cada compra relacionada - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - End If + End If Next + If importeMNTemp > 0 Then + importeMNTemp = importeMNTemp - TxtDescuento.Text.ToDecimal + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + End If + + 'si se marca que no se va a recibir, falta validación If Not ErrorMovInv AndAlso Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 1, UsuarioActual.CveUsuario) Then ErrorMovInv = True @@ -7687,10 +7699,10 @@ Partial Class Compras_Compras If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then TieneError = True - 'If ObjConta.ValorPolizaDescuadre > 0 Then - ' Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError) - ' ErrorPrepolizaDescuadre = True - 'End If + If ObjConta.ValorPolizaDescuadre > 0 AndAlso UsuarioActual.CveRol = 1 Then + Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError) + ErrorPrepolizaDescuadre = True + End If End If diff --git a/OC/OC.aspx b/OC/OC.aspx index 9f94cd93f..3e9e10ea3 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -178,6 +178,7 @@ + @@ -696,7 +697,7 @@ - +
@@ -946,7 +947,7 @@