Orden de trabajo

AF/OrdenTrabajo.aspx.vb

@@ -50,12 +50,16 @@ Partial Class AF_OrdenTrabajo
             If Request("CveOrdenTrabajo") IsNot Nothing Then
                 CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
 
-                DVFechaFin.Visible = True
-                Tab.Visible = True
+                If CveOrdenTrabajo > 0 Then
 
-                CargaDatos()
+                    DVFechaFin.Visible = True
+                    DVFolioAsignado.Visible = True
+                    DVEstatus.Visible = True
 
+                    Tab.Visible = True
+                    CargaDatos()
 
+                End If
 
             End If
 
@@ -78,7 +82,7 @@ Partial Class AF_OrdenTrabajo
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
         DdlAF.DataBind()
 
-
+        DdlAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         Dim ObjAF As New ClsAF
 
@@ -127,7 +131,8 @@ Partial Class AF_OrdenTrabajo
 
             If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then
 
-                LblFolio.Text = $"Folio OT:  {ObjAF.DtResultados(0)("Folio").ToString}"
+                LblFolio.Text = ObjAF.DtResultados(0)("Folio").ToString
+                LblAsiganado.Text = ObjAF.DtResultados(0)("NombreCompleto").ToString
 
                 DdlSubProyecto.SelectedValueExist(ObjAF.DtResultados(0)("CveSubProyecto").ToString)
                 DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
@@ -197,6 +202,16 @@ Partial Class AF_OrdenTrabajo
 
         Else
 
+            If DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero = 3 Then
+                If txtFechaF.Text.Length = 0 Then
+                    Alert("La fecha fin  es requerida.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+
+
+
+
             Dim ObjAF As New ClsAF
             ObjAF.IniciaTransacSQL()
             Dim ErrorProceso As Boolean = False
@@ -210,7 +225,7 @@ Partial Class AF_OrdenTrabajo
                 FechaFinal = txtFechaF.Text.ToDate
             End If
 
-            If Not ObjAF.UpdateOrdenesTrabajo(CveOrdenTrabajo, DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, TxtServicio.Text.Trim, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, FechaFinal, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            If Not ObjAF.UpdateOrdenesTrabajo(CveOrdenTrabajo, DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, TxtServicio.Text.Trim, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, FechaFinal, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then
                 ErrorProceso = True
             End If
 
@@ -394,12 +409,16 @@ Partial Class AF_OrdenTrabajo
 
     Protected Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
-        If e.Row.RowType = DataControlRowType.Header Then
+        If e.Row.RowType = DataControlRowType.DataRow Then
 
             If GvMaterial.Columns(4).Visible Then
 
-                Dim HLOC As HyperLink = e.Row.FCHyperLink("HLOC")
-                HLOC.NavigateUrl = $"../OC/OC.aspx?CveOrdenTrabajo={CveOrdenTrabajo}"
+                If e.Row.DataKey("Faltante").ToDecimal > 0 Then
+                    Dim HLOC As HyperLink = e.Row.FCHyperLink("HLOC")
+                    HLOC.Visible = True
+                    HLOC.NavigateUrl = $"../OC/OC.aspx?CveOrdenTrabajo={CveOrdenTrabajo}"
+                End If
+
 
             End If