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. - -
+ + <%--
@@ -1330,7 +1330,7 @@ -
+
--%>
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