diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 1bb42a407..dde2b56c3 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -1304,22 +1304,22 @@
Lote
-
+
Serie
-
+
Fecha Cad.
-
- --%>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index b1fe50d71..08b091a33 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -838,11 +838,14 @@ Partial Class OS_OrdenesServicios
Dim ObjMateriales As New ClsOS
If ObjMateriales.GetDetalleMateriales(CveOsDetalle, CveOS, -1) Then
+
For Each RowE As DataRow In ObjMateriales.DtResultados.Rows
Dim Row As DataRow = Nothing
Row = TmpDTMaterialesDetalle.NewRow()
+
+
Row("CveConsecutivo") = Consecutivo
Row("CveConsecutivoDetalle") = CveConsecutivoDetalle
Row("CveOSDetalle") = CveOsDetalle
@@ -3041,12 +3044,6 @@ Partial Class OS_OrdenesServicios
End Sub
-
-
-
-
-
-
Protected Sub LnkAccionesDevolucion_Click(sender As Object, e As EventArgs)
LnkModalSolicitarDevolucion.Visible = True
@@ -3054,15 +3051,22 @@ Partial Class OS_OrdenesServicios
GvSolicitarDevolucion.DataSource = Nothing
DTSolicitudDev = New DataTable
+ GvSolicitarDevolucion.Columns(3).Visible = False 'Lote
+ GvSolicitarDevolucion.Columns(4).Visible = False 'Serie
+ GvSolicitarDevolucion.Columns(5).Visible = False 'Fecha Caducidad
+
Dim ObjOS As New ClsOS
-
-
If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then
DTSolicitudDev = ObjOS.DtResultados
GvSolicitarDevolucion.DataSource = DTSolicitudDev
End If
+ GvSolicitarDevolucion.Columns(3).Visible = DTSolicitudDev.MAX("Lote").ToString.Trim().Length > 0
+ GvSolicitarDevolucion.Columns(4).Visible = DTSolicitudDev.MAX("Serie").ToString.Trim().Length > 0
+ GvSolicitarDevolucion.Columns(5).Visible = DTSolicitudDev.MAX("FechaCaducidad").ToString.Trim().Length > 0
+
+
ObjOS.Dispose()
GvSolicitarDevolucion.DataBind()
@@ -3086,24 +3090,24 @@ Partial Class OS_OrdenesServicios
e.Row.FCTextBox("TxtDev").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad")))
'AplicaSerie, AplicaLote, AplicaCaducidad
- If Boolean.Parse(e.Row.DataKey("AplicaSerie")) Then
- e.Row.FCTextBox("TxtSerie").Visible = True
- End If
+ 'If Boolean.Parse(e.Row.DataKey("AplicaSerie")) Then
+ ' e.Row.FCTextBox("TxtSerie").Visible = True
+ 'End If
- If Boolean.Parse(e.Row.DataKey("AplicaLote")) Then
- e.Row.FCTextBox("TxtLote").Visible = True
- End If
+ 'If Boolean.Parse(e.Row.DataKey("AplicaLote")) Then
+ ' e.Row.FCTextBox("TxtLote").Visible = True
+ 'End If
- If Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
+ 'If Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
- e.Row.FCHtmlGenericControl("DVFechaCaducidad").Visible = True
- 'e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
- 'e.Row.FCMaskedEditExtender("METxtFechaCaducidad").Visible = True
- 'e.Row.FCCalendarExtender("CCTxtFechaCaducidad").Visible = True
- 'e.Row.FCCompareValidator("CVTxtFechaCaducidad").Visible = True
- 'e.Row.FCValidatorCalloutExtender("VCTxtFechaCaducidad").Visible = True
+ ' e.Row.FCHtmlGenericControl("DVFechaCaducidad").Visible = True
+ ' 'e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
+ ' 'e.Row.FCMaskedEditExtender("METxtFechaCaducidad").Visible = True
+ ' 'e.Row.FCCalendarExtender("CCTxtFechaCaducidad").Visible = True
+ ' 'e.Row.FCCompareValidator("CVTxtFechaCaducidad").Visible = True
+ ' 'e.Row.FCValidatorCalloutExtender("VCTxtFechaCaducidad").Visible = True
- End If
+ 'End If
@@ -3220,9 +3224,9 @@ Partial Class OS_OrdenesServicios
Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
- Dim Lote As String = GvRow.FCTextBox("TxtLote").Text.Trim
- Dim Serie As String = GvRow.FCTextBox("TxtSerie").Text.Trim
- Dim FechaCaducidad As DateTime = GvRow.FCTextBox("TxtFechaCaducidad").Text.ToDate
+ Dim Lote As String = GvRow.DataKey("Lote")
+ Dim Serie As String = GvRow.DataKey("Serie")
+ Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate