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) ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)
Try 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 Retorno.Respuesta = Resp
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al guardar la NC de pronto pago", ex) OnError("Ocurrió un error al guardar la NC de pronto pago", ex)
@@ -2819,8 +2823,8 @@ Partial Class Ventas_ClientesAbonar
UpDatos.Update() UpDatos.Update()
Else Else
If SBPagoMAyorASaldo.ToString.Length > 0 Then If SBPagoMayorASaldo.ToString.Length > 0 Then
Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMAyorASaldo.ToString}", TipoMensaje.MsgAdvertencia) Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMayorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
End If End If
End If End If