From 7f7ddb4f79f05bced477f66e0cc8b35f2caf4245 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 19 Nov 2024 15:48:16 -0700
Subject: [PATCH] =?UTF-8?q?--=20bit=C3=A1cora=20de=20la=20remisi=C3=B3n=20?=
 =?UTF-8?q?en=20la=20OS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OS/OrdenesServicios.aspx.vb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index c75ccc163..c41c24b6c 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3370,6 +3370,14 @@ Partial Class OS_OrdenesServicios
                             ProcesoOK = False
                         End If
                     End If
+                    If ProcesoOK Then ' bitácora de la remisión generada.
+                        Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL)
+                        Dim LigaVenta As String = String.Format("Remisión Generada: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", CveVentaRemisionGenerada, Respuesta.SerieFolio)
+
+                        If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Respuesta.CveVenta, CveOS:=CveOS) Then
+                            ProcesoOK = False
+                        End If
+                    End If
                 End If
                 If ProcesoOK Then
                     If Not ObjOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa, Observaciones:=TxtObservacionModal.Text.Trim) Then
@@ -3483,7 +3491,6 @@ Partial Class OS_OrdenesServicios
                     Exit For
                 End If
             End If
-
         Next
 
         AnexoManerialUtilizado.Text = "[]"