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

Ventas/Ventas.aspx.vb

@@ -20872,6 +20872,7 @@ Partial Class Ventas
         End If
         ObjMovtos.Dispose()
         GvRemisionesNC.DataBind()
+        UpModalRemisionesNC.Update()
     End Sub
     Private Sub CargaDescRNC()
 
@@ -21471,7 +21472,7 @@ Partial Class Ventas
                 If ObjIE.DtResultados.Rows.Count > 0 Then
                     Dim tFecha As Date = TxtFecha.Text.ToDate
                     Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
-                    Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC")
+                    Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha > #" & Fecha & "#", "Fecha DESC")
 
                     If drr IsNot Nothing Then
                         TipoCambioFactura = drr("TipoCambio").ToString.ToDecimal
@@ -23799,4 +23800,8 @@ Partial Class Ventas
     End Sub
 #End Region
 
+    Protected Sub BtnModalAplicarRemisionesNC_Click(sender As Object, e As EventArgs)
+        CargaRNC()
+        RegistraScript("$('#ModalAplicarRemisionesNC').modal()")
+    End Sub
 End Class