From 2977212c009af5f2420c93b0c6dda9d0e7ec2614 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Jun 2022 18:34:28 -0700 Subject: [PATCH 01/13] =?UTF-8?q?--=20mejora=20en=20emisi=C3=B3n=20usd-mxn?= =?UTF-8?q?,=20complemento=20pago=204.0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/CFDITimbre.vb | 4 ++-- App_Code/Timbrado.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index c1f2e0bf7..34560682c 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -640,7 +640,7 @@ Public Class CFDIComplementoPago End If Next Next - 'ya generado todos los registros posibles, los agrupo y los sumo + 'ya generado todos los registros posibles, los agrupo y los sumo If tRetorno.Count > 0 Then TTraslados = tRetorno.GroupBy(Function(t) New With {Key t.TipoFactor, Key t.Impuesto, Key t.TasaOCuota}) _ .Select(Function(t) New CFDITraslados With {.Impuesto = t.Key.Impuesto, @@ -648,7 +648,7 @@ Public Class CFDIComplementoPago .TasaOCuota = t.Key.TasaOCuota, .Base = t.Sum(Function(tt) tt.Base), .Importe = t.Sum(Function(tt) tt.Importe), - .BaseMN = t.Sum(Function(tt) tt.BaseMN), + .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE, .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ .OrderBy(Function(x) x.Impuesto).ToList diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 94e8e4207..2fea81acd 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1166,8 +1166,8 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 2), - .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 2) + .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 6), + .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 6) } ) From df63ee6a9cf8620a968421b3eedb30fb220dd665 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Jun 2022 18:46:43 -0700 Subject: [PATCH 02/13] -- mejora en redodneo ieps, comp pago 4.0 --- App_Code/CFDITimbre.vb | 4 ++-- App_Code/Timbrado.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 34560682c..3d8ea68b8 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -619,7 +619,7 @@ Public Class CFDIComplementoPago TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _ .Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.Impuesto, .Importe = t.Sum(Function(tt) tt.Importe), - .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ + .ImporteMN = t.Sum(Function(tt) tt.ImporteMN).TruncateDecimal}) _ .OrderBy(Function(x) x.Impuesto).ToList End If @@ -648,7 +648,7 @@ Public Class CFDIComplementoPago .TasaOCuota = t.Key.TasaOCuota, .Base = t.Sum(Function(tt) tt.Base), .Importe = t.Sum(Function(tt) tt.Importe), - .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE, + .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ .OrderBy(Function(x) x.Impuesto).ToList diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 2fea81acd..8c9a35137 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1166,8 +1166,8 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 6), - .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 6) + .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6), + .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6) } ) From a6e151bd767855d4dd9fba1e173ef99920ab8dd6 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 25 Jun 2022 08:43:22 -0700 Subject: [PATCH 03/13] -- carga saldos iniciales --- General/SaldosIniciales.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 687d51bcd..ed3d3f47a 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1712,14 +1712,14 @@ Partial Class General_SaldosIniciales Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) Dim YaExiste As Boolean = False Dim DataTemp As DataTable - + Dim Afectable As Boolean = False Cuenta = Cuenta.Replace(" ", "") - If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then + If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, -1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero - 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo") + Afectable = ObjConta.DtResultados().FiltroPrimeroValor("Afectable") = "True" Else Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe}
") TieneError = True @@ -1746,7 +1746,7 @@ Partial Class General_SaldosIniciales ' CargoAbono = False 'End If - If YaExiste = False Then + If YaExiste = False AndAlso Afectable Then If IdCuenta > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then TieneError = True From 2b8c3ec88f490e913a018185e357726b055c7829 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 25 Jun 2022 08:43:59 -0700 Subject: [PATCH 04/13] -- combo de subproyectos, solo cuando es sucursal --- Inventarios/CartaPorteManual.aspx | 4 ++-- Inventarios/CartaPorteManual.aspx.vb | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Inventarios/CartaPorteManual.aspx b/Inventarios/CartaPorteManual.aspx index da661ee9e..75ba3ee43 100644 --- a/Inventarios/CartaPorteManual.aspx +++ b/Inventarios/CartaPorteManual.aspx @@ -170,7 +170,7 @@
- +
@@ -205,7 +205,7 @@ diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb index 35b0da212..6369d50dd 100644 --- a/Inventarios/CartaPorteManual.aspx.vb +++ b/Inventarios/CartaPorteManual.aspx.vb @@ -294,8 +294,10 @@ Partial Class Inventarios_CartaPorteManual Private Sub CargaCombos() - CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="") + 'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="") + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ") + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) DdlChofer.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa) From 9adecc641cce8fc1661489d9d283b22b21c4bbbc Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 25 Jun 2022 08:44:31 -0700 Subject: [PATCH 05/13] -- tipodocto: RNC, que se active el popupauxiliar --- Ventas/Ventas.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0bb525ab2..7311271b1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4581,6 +4581,11 @@ Partial Class Ventas End If DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero() EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString()) + Case "RNC" + Trsaldo.Visible = True + HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) + HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) + Case "OP" TdOrdenPago.Visible = True DdlOrdenPago.SelectedValue = DbRowVenta("Num3").ToString() From b7864616887411690496a1ec19e3c8ba7276d061 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Jun 2022 17:33:11 -0700 Subject: [PATCH 06/13] -- mejora en prepolizas --- Ventas/Ventas.aspx.vb | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7311271b1..d429a72fd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -20210,7 +20210,6 @@ Partial Class Ventas For Each RowInv As DataRow In DtCostosDistinct.Rows ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() TotalCostoAcumulado += ValorInventario 'cuando es el último movimiento y hay diferencias en los importes @@ -20220,7 +20219,7 @@ Partial Class Ventas Try 'If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If @@ -20234,7 +20233,7 @@ Partial Class Ventas If Not OcurrioError Then IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero() - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True End If End If @@ -20244,18 +20243,14 @@ Partial Class Ventas End If End If - 'VALIDA QUE SE HALLAN AGREGADO DETALLES AL MOVIMIENTO If ContadorMovtosDetalles = 0 Then OcurrioError = True End If - Else OcurrioError = True End If - - If OcurrioError Then Return -1 Else @@ -34454,7 +34449,7 @@ Partial Class Ventas Dim Distancia As Integer = TxtDistancia.Text.ToEntero() - Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(DdlSubProyectoDatos.SelectedValue.ToEntero, CveDireccionOrigen, CveDireccionDestino, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, FechaEntrega, Fechallegada, "T", "-1", "-1", Fechallegada, 1, 1, Distancia, + Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(DdlSubProyectoDatos.SelectedValue.ToEntero, CveDireccionOrigen, CveDireccionDestino, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, FechaEntrega, Fechallegada, "I", "-1", "-1", Fechallegada, 1, 1, Distancia, CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero) If CveEntregaAlmacen > 0 Then From d462bafc192defa1ed574da792929c1b9e1c7489 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Jun 2022 17:33:23 -0700 Subject: [PATCH 07/13] =?UTF-8?q?--=20generar=20registro=20de=20prep=C3=B3?= =?UTF-8?q?liza-almacen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Modelos.vb | 36 ++++++++++++++++++++++++++++++------ 1 file changed, 30 insertions(+), 6 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 37ac787cc..ed3b8cc3f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2213,11 +2213,12 @@ Namespace Modelos End Function - Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer + Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Integer Dim CveMovimiento As Integer = -1 Try Dim CveConceptoSalidaUsado As Integer = 45 - CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + Dim tFecha As DateTime = Now + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, tFecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU") If CveMovimiento <= 0 Then CveMovimiento = -1 @@ -2229,11 +2230,34 @@ Namespace Modelos If DtMovimientosEntrada IsNot Nothing Then For Each Dr As DataRow In DtMovimientosEntrada.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then CveMovimiento = -1 Exit For End If Next + + If CveMovimiento > 0 Then + Dim Concepto As String = "Cancelación Usado" & factura.SerieFolio + Dim CvePrePoliza = ObjConta.AddPrePolizas("Mod/CancSalUsados", 74, DtMovimientosEntrada.SUMD("Total"), DtMovimientosEntrada.SUMD("Total"), 1, tFecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim tCveConcepto As Integer = 278 + Dim ValorInventario As Decimal = 0 + Dim MovAlmacen As Boolean = False 'debe quedar como el anterior, pero negativo + + For Each RowInv As DataRow In DtMovimientosEntrada.Rows + ValorInventario = DtMovimientosEntrada.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, Concepto, tCveConcepto, Concepto, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=-ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + CveMovimiento = -1 + Exit For + End If + Next + + If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, Concepto, 68, Concepto, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=-DtMovimientosEntrada.SUMD("Total").RoundSQL) Then + CveMovimiento = -1 + End If + End If + DtMovimientosEntrada.Dispose() DtMovimientosEntrada = Nothing End If @@ -2470,7 +2494,7 @@ Namespace Modelos Dim TipoMovto68 = TipoMovimiento 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS If ValorMultiplicador = -1 Then - CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario) + CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario, ObjConta) Else CveMovimientoReferencia = CveMovimiento End If @@ -5585,7 +5609,7 @@ Namespace Modelos End If If Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then - If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario) <= 0 Then + If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los usados. Por favor vuelva a intentar." End If @@ -5691,7 +5715,7 @@ Namespace Modelos 'CANCELAR MOVIMIENTOS DE USADOS SI TIENE If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then - If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario) <= 0 Then + If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los movimientos de usados." End If From aafc1159102a4b5834cad5050dfe698e31a88b1a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 30 Jun 2022 07:37:44 -0700 Subject: [PATCH 08/13] -- desglose de liga de folio relacionado --- App_Code/ClsInventarios.vb | 5 ++ Inventarios/EntradasSalidas.aspx | 41 ++++++------- Inventarios/EntradasSalidas.aspx.vb | 91 ++++++++++++++++------------- 3 files changed, 73 insertions(+), 64 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 926d626e3..8658e18f9 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -63,6 +63,8 @@ Public Class ClsInventarios Public Property FolioRelacionado As Integer Public Property TieneRelacionado As Integer Public Property ConceptoRelacionado As String + Public Property CveMovimientoVirtual As Integer + Public Property FolioVirtual As Integer Public Property Folio As Integer Public Property IDPoliza As Integer Public Property CvePrePoliza As Integer @@ -826,6 +828,9 @@ Public Class ClsInventarios FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) ConceptoRelacionado = dr("ConceptoRelacionado").ToString + CveMovimientoVirtual = dr("CveMovimientoVirtual").ToString.ToEntero + FolioVirtual = dr("FolioVirtual").ToString.ToEntero + TipoCambio = dr("TipoCambio").ToString.ToDouble FolioVenta = dr("FolioVenta").ToString CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 6a4835610..6f7b77734 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -455,30 +455,24 @@
-
+
-
+
-
+
Ver Compra @@ -488,10 +482,9 @@
-
+
@@ -499,24 +492,28 @@ <%----%>
-
+
-
+
- ver + ver +
+
+
+ +
+ Virtual
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 81100bbc3..3a66118f4 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -724,12 +724,12 @@ Partial Class Inventarios_EntradasSalidas Dim TMDsTR = DtMov.Rows(0)("CveMtoRel").ToString If DtMov.Rows(0)("CveMtoRel").ToString.Length > 0 Then RowMtoRel.Visible = True + lnkMtoRelacionado.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & DtMov.Rows(0)("CveMtoRel").ToString + End If - lnkMtoRelaioando.NavigateUrl = "./EntradasSalidas.aspx?CveMovimiento=" & DtMov.Rows(0)("CveMtoRel").ToString - 'lnkMtoRelaioando.Attributes.Add("hreh", "./EntradasSalidas.aspx?CveMoviento=" & DtMov.Rows(0)("CveMtoRel").ToString) - 'lnkMtoRelaioando.Attributes.Add("target", "_blank") - Else - RowMtoRel.Visible = False + If Mov.CveMovimientoVirtual > 0 Then + DivMovtoVirtual.Visible = True + HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual End If If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then @@ -3781,45 +3781,51 @@ Partial Class Inventarios_EntradasSalidas ErrorMovInv = True End If Else - If ObjInventario.Modulo = "ASA/G1" Then + If ObjInventario.Modulo.Contiene("Consig") Then + Contabilizable = False + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 95, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + End If + Else + If ObjInventario.Modulo = "ASA/G1" Then Contabilizable = False If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then ErrorMovInv = True End If Else - If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then - 'genero las prepolizas manuales - Dim tCveConcepto As Integer = 95 - Dim CveCuenta As Integer - If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 - IdCtaContable = 1 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then - ErrorMovInv = True - - End If - - Else - - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero - Dim tCveConcepto As Integer = 69 - If DdlConcepto.SelectedValue = "30" Then - tCveConcepto = 181 - IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero - End If - - For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL - If tCveConcepto = 69 Then - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - End If - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then + 'genero las prepolizas manuales + Dim tCveConcepto As Integer = 95 + Dim CveCuenta As Integer + If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 + IdCtaContable = 1 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then ErrorMovInv = True - Exit For + End If - Next + Else + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero + Dim tCveConcepto As Integer = 69 + If DdlConcepto.SelectedValue = "30" Then + tCveConcepto = 181 + IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero + End If + + For Each RowInv As DataRow In tmpCostos.Rows + ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL + If tCveConcepto = 69 Then + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + ErrorMovInv = True + Exit For + End If + + Next + End If End If End If End If @@ -4456,8 +4462,6 @@ Partial Class Inventarios_EntradasSalidas End If End If - - If Not ErrorMovInv Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) @@ -4470,12 +4474,15 @@ Partial Class Inventarios_EntradasSalidas Dim RetornoVirtual As MMovimientoVirtual = Nothing If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - RetornoVirtual = GenerarMovimientoVirtual(CveMovimiento, ObjInventario) + If CveMovimientoSalida > 0 Then RetornoVirtual = GenerarMovimientoVirtual(CveMovimientoSalida, ObjInventario) + + If RetornoVirtual IsNot Nothing Then ErrorMovInv = RetornoVirtual.TieneError + + If CveMovimientoEntrada > 0 AndAlso Not ErrorMovInv Then RetornoVirtual = GenerarMovimientoVirtual(CveMovimientoEntrada, ObjInventario) + + If RetornoVirtual IsNot Nothing Then ErrorMovInv = RetornoVirtual.TieneError End If - If RetornoVirtual IsNot Nothing Then - ErrorMovInv = RetornoVirtual.TieneError - End If If Not ErrorMovInv Then ObjInventario.Commit() ' aplica los movimientos insertados @@ -5266,7 +5273,7 @@ Partial Class Inventarios_EntradasSalidas End Sub - Private Function GenerarMovimientoVirtual(CveMovimiento As Integer, ObjInventario As ClsInventarios) As MMovimientoVirtual + Private Function GenerarMovimientoVirtual(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios) As MMovimientoVirtual Dim ErrorMovInv As Boolean = False Dim DtPSVirtual As New DataTable("DtTamanios") From 3893ca7742a0bc915043d6a42f03b672f2c15c7a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 30 Jun 2022 07:56:53 -0700 Subject: [PATCH 09/13] -- mejora de acomodo --- Inventarios/EntradasSalidas.aspx | 127 ++++++++++++++-------------- Inventarios/EntradasSalidas.aspx.vb | 11 ++- 2 files changed, 67 insertions(+), 71 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 6f7b77734..caa056712 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -185,53 +185,7 @@
-
- -
- -
- -
- -
-
- -
- -
- - - - - -
-
-
-
- -
- -
- -
-
-
- -
- -
- -
- - -
- -
-
+
@@ -277,6 +231,49 @@
+
+
+ +
+ +
+
+ +
+ +
+ + + + + +
+
+
+ +
+ +
+ +
+
+ +
+ +
+ +
+ + +
+ +
+
+
@@ -286,8 +283,8 @@
-
-
+ +
@@ -300,9 +297,9 @@ <%----%>
+
-
-
+
-
- +