Servicio a domicilio, alta y actualizacion en reporte

OS/OrdenesServicios.aspx.vb

@@ -383,6 +383,31 @@ Partial Class OS_OrdenesServicios
             End If
 
 
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+
+                DivDetalles.Attributes.Add("style", "display:none") 'No se usa .visible = false  pora que la llamada a updatepanel no cause errores de js en el cliente
+                TREstatus.Visible = False
+
+                TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True)
+
+                DdlPsModalFinalizar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+                If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+                    'DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+                    DdlPsModalFinalizar.SelectedText = ""
+                    DdlPsModalFinalizar.SelectedValue = "-1"
+                Else
+                    DdlPS.ddl.Items.Clear()
+                    'DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+                    DdlPsModalFinalizar.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+                    DdlPsModalFinalizar.ddl.DataBind()
+                    DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+                End If
+
+
+
+            End If
+
         End If
 
     End Sub
@@ -496,6 +521,7 @@ Partial Class OS_OrdenesServicios
 
                 TxtDescripcion.Text = ObjOS.Descripcion
                 TxtSolicito.Text = ObjOS.PersonaSolicito
+                CveOsDetalle = ObjOS.CveOSDetalle
 
                 TxtFechaRecibido.Text = ObjOS.FechaRecepcion.ToString
                 CveFolio = ObjOS.Folio
@@ -788,7 +814,7 @@ Partial Class OS_OrdenesServicios
             If ObjCliente.DtResultados.Rows.Count > 0 Then
 
                 If CargaPublicoGeneral Then
-                    CveCliente = ObjCliente.CveCliente
+                    Me.CveCliente = ObjCliente.CveCliente
                 End If
 
                 TxtCodigo.Text = ObjCliente.Codigo
@@ -2785,4 +2811,32 @@ Partial Class OS_OrdenesServicios
     End Sub
 
 #End Region
+
+    Protected Sub LnkFinalizar_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DVModalFinalizarOrden').modal('show');")
+    End Sub
+
+    Protected Sub LnkModalFinalizarOrden_Click(sender As Object, e As EventArgs)
+
+        Dim TieneError As Boolean = True
+
+        Dim CvePsFinalizar As Integer = DdlPsModalFinalizar.SelectedValue.ToEntero
+
+        If Not CvePsFinalizar > 0 Then
+            Alert("El proiducto es requerido.", TipoMensaje.MsgAdvertencia)
+        End If
+
+        Dim objOS As New ClsOS
+        If objOS.UpdateOrdenesServiciosFinaliza(CveOS, CveOsDetalle, CvePsFinalizar, UsuarioActual.CveEmpresa) Then
+            TieneError = False
+        End If
+        objOS.Dispose()
+
+        If Not TieneError Then
+            Alert("Orden Finalizada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);")
+            RegistraScript("$('#DVModalFinalizarOrden').modal('hide');")
+        End If
+
+
+    End Sub
 End Class