OrdenesTrabajo comit General

AF/OrdenTrabajo.aspx.vb

@@ -37,6 +37,7 @@ Partial Class AF_OrdenTrabajo
             If Request("CveOrdenTrabajo") IsNot Nothing Then
                 CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
                 Tab.Visible = True
+                CargaDatos()
             End If
 
             CargaCombos()
@@ -106,7 +107,9 @@ Partial Class AF_OrdenTrabajo
 
     Private Sub CargaDatos()
 
-
+        CargaMaterial()
+        CargaActividades()
+        CargaCheckList()
 
 
     End Sub
@@ -369,4 +372,102 @@ Partial Class AF_OrdenTrabajo
 
 
     End Sub
+
+
+    Private Sub CargaMaterial()
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
+            GvMaterial.DataSource = ObjAF.DtResultados
+        Else
+            GvMaterial.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        GvMaterial.DataBind()
+        UpGvMaterial.Update()
+
+    End Sub
+
+    Private Sub CargaActividades()
+
+        Dim ObjAF As New ClsAF
+
+
+        If ObjAF.GetOrdenesTrabajoActividades(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
+            GvActividades.DataSource = ObjAF.DtResultados
+        Else
+            GvActividades.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        GvActividades.DataBind()
+        UpGvActividades.Update()
+
+
+    End Sub
+
+    Private Sub CargaCheckList()
+
+        Dim ObjAF As New ClsAF
+
+
+        If ObjAF.GetOrdenesTrabajoCheckList(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
+
+
+            GvCheckList.DataSource = ObjAF.DtResultados
+        Else
+            GvCheckList.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        GvCheckList.DataBind()
+        UpGvCheckList.Update()
+
+    End Sub
+
+    Protected Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+    End Sub
+    Protected Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+    End Sub
+    Protected Sub GvCheckList_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim Chk As CheckBox = e.Row.FCCheckBox("Chk")
+            Dim RDLSINOND As RadioButtonList = e.Row.FCRadioButtonList("RDLSINOND")
+            Dim TxtObservaciones As TextBox = e.Row.FCTextBox("TxtObservaciones")
+
+            If e.Row.DataKey("CveOrdenTrabajoCheckList").ToEntero = 0 Then
+
+                e.Row.FCLiteral("LtlNROW").Text = e.Row.DataKey("CheckListActividadGrupo").ToString
+
+                e.Row.Attributes.Add("style", "background-color:#DDD")
+
+                Chk.Visible = False
+                RDLSINOND.Visible = False
+                TxtObservaciones.Visible = False
+            Else
+
+                If Boolean.Parse(e.Row.DataKey("Terminado")) Then
+                    Chk.Checked = True
+                Else
+                    Chk.Checked = False
+                End If
+
+            End If
+
+
+
+
+
+        End If
+
+    End Sub
 End Class