AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--fix tipo de transaccion cuando es IxC al aplicar NC por pronto pago

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-06 17:35:43 -07:00
parent 3761a52b13
commit 23350964aa
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1177,7 +1177,7 @@ Partial Class Ventas_ClientesAbonar
For Each Fac As Modelos.Factura In ListaFacturasGenerarNC For Each Fac As Modelos.Factura In ListaFacturasGenerarNC
Dim ListaNC As New List(Of Modelos.Factura) Dim ListaNC As New List(Of Modelos.Factura)
ListaNC.Add(Fac) 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 If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then
NCGeneradas.Add(Resp) NCGeneradas.Add(Resp)
@@ -1351,7 +1351,7 @@ Partial Class Ventas_ClientesAbonar
Public Property Respuesta As Modelos.Factura.MMensajeFactura Public Property Respuesta As Modelos.Factura.MMensajeFactura
End Class 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() Dim Retorno As New RespuestaNotaCredrito()
Try Try
@@ -1397,7 +1397,18 @@ Partial Class Ventas_ClientesAbonar
ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición" ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición"
ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE" 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) Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago").ToString)
ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString.ToEntero ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString.ToEntero