-- bitácora de la remisión en la OS

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 = "[]"