Compras Vincualcion OC etiqueta ret ISR

OS/Asignaciones.aspx.vb

@@ -4,6 +4,7 @@ Option Strict On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
+Imports MKB.TimePicker
 
 Partial Class OS_Asignaciones
     Inherits ClsPaginas
@@ -453,6 +454,7 @@ Partial Class OS_Asignaciones
 #Region "GV"
     Private Sub GvNA_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvNA.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
+
             If e.Row.DataKey("CveUsuarioAtendio") <> "" Then
                 e.Row.FCCheckBox("ChbxAsignar").Visible = False
                 e.Row.FCTextBox("FechaOS").Visible = False
@@ -471,6 +473,21 @@ Partial Class OS_Asignaciones
                 e.Row.FindControl("TimeSelector").Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+
+                Dim FechaCita = e.Row.DataKey("FechaCitaOS").ToDateTime
+                e.Row.FCTextBox("FechaOS").Text = FechaCita.ToString("dd/MM/yyyy")
+                e.Row.FCTextBox("FechaOS").Visible = True
+
+                e.Row.FindControl("TimeSelector").Visible = True
+
+                Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector)
+                TMSelector.Date = FechaCita
+
+
+            End If
+
+
         End If
 
         UpOS.Update()