Quitar leyenda de cancelado en PDF en envio de correo al hacer una refacturacion

2019-09-20 17:50:08 -07:00
parent 8de419cd2e
commit 81d9bfe66d
3 changed files with 4 additions and 2 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7267,7 +7267,7 @@ Partial Class Ventas

    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)

-        If Me.CveVenta > 0 Then
+        If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then
            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
        Else
            ObjFactura = New Modelos.Factura