AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OS Modal DVModalSolicitarDevolucion txt serie, lote, fecha caducidad a Lbl, ocultar columnas serie lote fecha de caducidad si no tienen datos, datos GvSolicitarDevolucion solo mostrar movimiento de Ped

Browse Source
This commit is contained in:
rakcsle
2023-12-22 11:25:06 -07:00
parent a613feecbf
commit 90c9dfea62
2 changed files with 34 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
OS/OrdenesServicios.aspx.vb
View File

@@ -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