Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/EntregaAlmacen.aspx.vb

@@ -2036,7 +2036,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     If Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
-                        Cantidad = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                        Cantidad += Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
                     End If
 
                 End If

Ventas/ClientesAbonar.aspx.vb

@@ -1177,7 +1177,7 @@ Partial Class Ventas_ClientesAbonar
                         For Each Fac As Modelos.Factura In ListaFacturasGenerarNC
                             Dim ListaNC As New List(Of Modelos.Factura)
                             ListaNC.Add(Fac)
-                            Dim Resp As RespuestaNotaCredrito = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC)
+                            Dim Resp As RespuestaNotaCredrito = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC, ObjIE)
 
                             If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then
                                 NCGeneradas.Add(Resp)
@@ -1351,7 +1351,7 @@ Partial Class Ventas_ClientesAbonar
         Public Property Respuesta As Modelos.Factura.MMensajeFactura
     End Class
 
-    Private Function GenerarNC(SqlTransaccion As SqlClient.SqlTransaction, ObjConta As ClsContPAQi, ListaVentasGenerarNC As List(Of Modelos.Factura)) As RespuestaNotaCredrito
+    Private Function GenerarNC(SqlTransaccion As SqlClient.SqlTransaction, ObjConta As ClsContPAQi, ListaVentasGenerarNC As List(Of Modelos.Factura), ByRef ObjIE As ClsBancos) As RespuestaNotaCredrito
         Dim Retorno As New RespuestaNotaCredrito()
         Try
 
@@ -1397,7 +1397,18 @@ Partial Class Ventas_ClientesAbonar
             ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición"
             ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
 
-            Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & DdlTipoTransaccion.SelectedValue)
+            Dim CveTipoTransaccion As Integer = -1
+
+            'SI ES UN INGRESO X COMPROBAR TOMAR EL TIPO TRANSACCION DE AHI
+            If DdlIngreso.SelectedValue.ToEntero() > 0 Then
+                If ObjIE.GetBancosIE(DdlIngreso.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) AndAlso ObjIE.DtResultados.Rows.Count > 0 Then
+                    CveTipoTransaccion = ObjIE.CveTipoTransaccion
+                End If
+            Else
+                CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero()
+            End If
+
+            Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & CveTipoTransaccion)
             Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago").ToString)
 
             ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString.ToEntero

Ventas/Ventas.aspx.vb

@@ -32684,8 +32684,12 @@ Partial Class Ventas
             DrRemision(0)("Aplicado") = "True"
         End If
         DTRemisiones.AcceptChanges()
-        RemisionesLista.Add(CveVenta)
-        CargaConceptosRemisionPorFacturar(CveVenta.ToString(), 1)
+
+        If RemisionesLista IsNot Nothing Then
+            RemisionesLista.Clear()
+            RemisionesLista.Add(CveVenta)
+            CargaConceptosRemisionPorFacturar(CveVenta.ToString(), 1)
+        End If
 
         If TmpDT.Rows.Count = 0 Then
             Alert("No hay conceptos por facturar de esta remisión. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)