From c0901efc61d865ca5bb157b4e9bb6ca2c4c2de0f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Mar 2024 11:17:50 -0700 Subject: [PATCH 1/6] --- globaldttipoventas --- Sistemas/CatSesiones.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index b024433df..ef6bbf838 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -267,6 +267,7 @@ Partial Class Sistemas_CatSesiones If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing ObjVentas.Dispose() + GlobalDTTipoVenta(-1) = Nothing End Sub Private Sub CargaProductosServicios() From e39a17cb11ee972df185e1eef48b919201caf22e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Mar 2024 18:16:38 -0700 Subject: [PATCH 2/6] -- cambio en timbrado complemento de pago rev B --- App_Code/Timbrado.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index ff33b1f0b..2b10e9997 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2693,7 +2693,7 @@ concep.DescripcionesEspecificas.NumeroSerie) For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados - Where c.MonedaDR <> docp.MonedaP + Where c.MonedaDR <> docp.MonedaP AndAlso docp.MonedaP = "USD" Select c.MonedaDR).Count() If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B From 4dd7971cfb97ebc6121f892fe37723076e72bf9d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Mar 2024 18:17:25 -0700 Subject: [PATCH 3/6] -- ajuste para usar el TC de la NC en el concepto 225 --- Compras/Compras.aspx.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 07fa87194..032328419 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6475,9 +6475,15 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, importeMovimiento * tipoCambioActual * Multiplicador, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - End If + For Each Gvr As GridViewRow In GvFacturaNC.Rows + If Gvr.FCCheckBox("ChkFacturaNC").Checked Then ' recorro la seleccion y tomo el TC de cada aplicación + Dim timporteMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal + Dim TCNC As Decimal = Gvr.DataKey("TipoCambio").ToDecimal + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, timporteMovimientoNC.RoundSQL, timporteMovimientoNC * TCNC * Multiplicador, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=TCNC, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + End If + Next End If End If End If From 0c7195e0f81d3b6d3d94d56cd72087cb36819396 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Mar 2024 18:17:36 -0700 Subject: [PATCH 4/6] - --- Ventas/PVCobranza.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index bc89fc143..3f5d77aae 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -294,7 +294,7 @@ CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None" DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA"> - + From a8f9fdf4d360ed0fbc4a7a164284d9ef4bae16ef Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Mar 2024 18:18:00 -0700 Subject: [PATCH 5/6] -- dispose --- Transportes/RepContratos.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index b9f0cc276..ddf7070d9 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -146,6 +146,7 @@ Partial Class ListadoContratos Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If + ObjContratos.Dispose() End Sub Protected Sub Consultar(sender As Object, e As EventArgs) UpTitulos.Update() From c36c4ff5c2f5425b9c69df7634f915880d4a90e6 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Mar 2024 18:18:47 -0700 Subject: [PATCH 6/6] - quitar imports --- Transportes/RepContratoDetalle.aspx.vb | 3 --- 1 file changed, 3 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 99b9d0e52..4880c0672 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -2,10 +2,7 @@ Option Strict On Imports System.Data Imports System.IO -Imports ADSNetLibrary.Helpers -Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones -Imports Extensiones.ModExtensiones Imports Microsoft.Reporting.WebForms Partial Class RepContratoDetalle