registra en bitácora la liga de la autorización donde se remisionó

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