Rep Servicios a Domicilio, impresión CE en factura , ProveedopresAbonar enviar parametro CveSubProyecto

OS/OrdenesServicios.aspx.vb

@@ -1083,7 +1083,20 @@ Partial Class OS_OrdenesServicios
 
 
 
+            'If Not Errores Then
 
+            '    Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
+            '    If TipoEstatusSeleccionado = 3 Then
+
+            '        Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
+
+            '        If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS) Then
+            '            Errores = True
+            '        End If
+
+
+            '    End If
+            'End If
 
             If Not Errores Then
                 ViewState("CveOS") = ObjOrdenServicio.CveOS
@@ -1190,6 +1203,24 @@ Partial Class OS_OrdenesServicios
                 Errores = True
             End If
 
+
+            If Not Errores Then
+
+                Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
+                If TipoEstatusSeleccionado = 4 Then
+
+                    Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
+
+                    If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
+                        Errores = True
+                    End If
+
+
+                End If
+            End If
+
+
+
             If Not Errores Then
                 ObjOrdenServicio.Commit()