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 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 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() 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 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() 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"> - +