Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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
 

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

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

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

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

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">
                         <Columns>
-                            <asp:BoundField HeaderText="Atención" DataField="AtencionA" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Atención" DataField="AtencionA"  />
                             <asp:BoundField HeaderText="Folio" DataField="SerieFolio" ItemStyle-HorizontalAlign="Center" />
                             <asp:BoundField HeaderText="Fecha/Hora" DataField="Fecha" ItemStyle-HorizontalAlign="Center" />
                             <asp:BoundField HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />