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

--FIX generacion de nc por pronto pago

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-11-29 17:50:59 -07:00
parent 1232384b62
commit 6fae25ffba
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1529,7 +1529,11 @@ Partial Class Ventas_ClientesAbonar
ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)
Try
Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion)
If ListaVentasGenerarNC.Count > 0 Then
ObjFacturaDevolucion.Observaciones = String.Format("Descuento por pronto pago. Factura: {0}", ListaVentasGenerarNC(0).SerieFolio)
End If
Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion, Modulo:="Clientes/Abonar")
Retorno.Respuesta = Resp
Catch ex As Exception
OnError("Ocurrió un error al guardar la NC de pronto pago", ex)
@@ -2819,8 +2823,8 @@ Partial Class Ventas_ClientesAbonar
UpDatos.Update()
Else
If SBPagoMAyorASaldo.ToString.Length > 0 Then
Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMAyorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
If SBPagoMayorASaldo.ToString.Length > 0 Then
Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMayorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
End If
End If