From 46035c97949ab54857f391884285888f9666658b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 24 Dec 2021 07:15:05 -0700
Subject: [PATCH] =?UTF-8?q?registra=20en=20bit=C3=A1cora=20la=20liga=20de?=
 =?UTF-8?q?=20la=20autorizaci=C3=B3n=20donde=20se=20remision=C3=B3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 40ec22a04..956eee3d1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11688,6 +11688,11 @@ Partial Class Ventas
             If ObjVentas.CveVenta > 0 And CvePedidoA > 0 And DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
                 If Not ObjCliente.UpdateEstatusPedido(CvePedidoA, 18, -1, UsuarioActual.CveUsuario, CveRemision:=factura.CveVenta) Then
                     ErrorList.Add("Ocurrió un error al actualizar el estatus del pedidoA")
+                Else
+                    'Remision
+                    If Not ObjEventos.AddEventoBitacora($"Remisionado de autorización en: <a href='/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}' target='_blank' class='Texto'>{ObjFactura.Folio}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CvePedidoA) Then
+                        ErrorList.Add("Ocurrió un error al agregar bitácora de Autorización")
+                    End If
                 End If
             End If