From 3761a52b13577f0cd491610d3e90cdc28a6eb44c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 6 May 2024 16:42:33 -0700 Subject: [PATCH 1/3] --fix cantidad devoluciones --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 99e204bf0..fbb0b9b55 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/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 From 23350964aa9aceffe00df21455bde3c8a0c7dc54 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 6 May 2024 17:35:43 -0700 Subject: [PATCH 2/3] --fix tipo de transaccion cuando es IxC al aplicar NC por pronto pago --- Ventas/ClientesAbonar.aspx.vb | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 58c50a68d..33007aedc 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/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 From b319b7a62c881e4eb6ab2d593b23ca5d734f62a8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 7 May 2024 13:02:49 -0700 Subject: [PATCH 3/3] --FIX. limpieza de lista de remisiones por facturar --- Ventas/Ventas.aspx.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 20cdcef53..9e760f432 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -32677,8 +32677,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)