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

10
OS/OrdenesServicios.aspx
View File

@@ -1304,22 +1304,22 @@
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Lote</HeaderTemplate> <HeaderTemplate>Lote</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtLote" runat="server" Width="50px" Text='<%# Eval("Lote") %>' Visible="false"></asp:TextBox> <asp:Label ID="LblLote" runat="server" Width="50px" Text='<%# Eval("Lote") %>' ></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Serie</HeaderTemplate> <HeaderTemplate>Serie</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtSerie" runat="server" Width="50px" Text='<%# Eval("Serie") %>' Visible="false" ></asp:TextBox> <asp:Label ID="LblSerie" runat="server" Width="50px" Text='<%# Eval("Serie") %>' ></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Fecha Cad.</HeaderTemplate> <HeaderTemplate>Fecha Cad.</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblFechaCaducidad" runat="server" Width="50px" Text='<%# Eval("FechaCaducidad", "{0:dd/MM/yyyy}") %>' ></asp:Label>
<div runat="server" id="DVFechaCaducidad" visible="false"> <%--<div runat="server" id="DVFechaCaducidad" visible="false">
<asp:TextBox ID="TxtFechaCaducidad" runat="server" Width="70px" Text='<%# Eval("FechaCaducidad") %>' ></asp:TextBox> <asp:TextBox ID="TxtFechaCaducidad" runat="server" Width="70px" Text='<%# Eval("FechaCaducidad") %>' ></asp:TextBox>
<ajax:MaskedEditExtender ID="METxtFechaCaducidad" runat="server" TargetControlID="TxtFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="METxtFechaCaducidad" runat="server" TargetControlID="TxtFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
@@ -1330,7 +1330,7 @@
</asp:CompareValidator> </asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCTxtFechaCaducidad" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaCaducidad" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCTxtFechaCaducidad" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaCaducidad" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div> --%>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

54
OS/OrdenesServicios.aspx.vb
View File

@@ -838,11 +838,14 @@ Partial Class OS_OrdenesServicios
Dim ObjMateriales As New ClsOS Dim ObjMateriales As New ClsOS
If ObjMateriales.GetDetalleMateriales(CveOsDetalle, CveOS, -1) Then If ObjMateriales.GetDetalleMateriales(CveOsDetalle, CveOS, -1) Then
For Each RowE As DataRow In ObjMateriales.DtResultados.Rows For Each RowE As DataRow In ObjMateriales.DtResultados.Rows
Dim Row As DataRow = Nothing Dim Row As DataRow = Nothing
Row = TmpDTMaterialesDetalle.NewRow() Row = TmpDTMaterialesDetalle.NewRow()
Row("CveConsecutivo") = Consecutivo Row("CveConsecutivo") = Consecutivo
Row("CveConsecutivoDetalle") = CveConsecutivoDetalle Row("CveConsecutivoDetalle") = CveConsecutivoDetalle
Row("CveOSDetalle") = CveOsDetalle Row("CveOSDetalle") = CveOsDetalle
@@ -3041,12 +3044,6 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Protected Sub LnkAccionesDevolucion_Click(sender As Object, e As EventArgs) Protected Sub LnkAccionesDevolucion_Click(sender As Object, e As EventArgs)
LnkModalSolicitarDevolucion.Visible = True LnkModalSolicitarDevolucion.Visible = True
@@ -3054,15 +3051,22 @@ Partial Class OS_OrdenesServicios
GvSolicitarDevolucion.DataSource = Nothing GvSolicitarDevolucion.DataSource = Nothing
DTSolicitudDev = New DataTable 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 Dim ObjOS As New ClsOS
If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then
DTSolicitudDev = ObjOS.DtResultados DTSolicitudDev = ObjOS.DtResultados
GvSolicitarDevolucion.DataSource = DTSolicitudDev GvSolicitarDevolucion.DataSource = DTSolicitudDev
End If 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() ObjOS.Dispose()
GvSolicitarDevolucion.DataBind() 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"))) e.Row.FCTextBox("TxtDev").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad")))
'AplicaSerie, AplicaLote, AplicaCaducidad 'AplicaSerie, AplicaLote, AplicaCaducidad
If Boolean.Parse(e.Row.DataKey("AplicaSerie")) Then 'If Boolean.Parse(e.Row.DataKey("AplicaSerie")) Then
e.Row.FCTextBox("TxtSerie").Visible = True ' e.Row.FCTextBox("TxtSerie").Visible = True
End If 'End If
If Boolean.Parse(e.Row.DataKey("AplicaLote")) Then 'If Boolean.Parse(e.Row.DataKey("AplicaLote")) Then
e.Row.FCTextBox("TxtLote").Visible = True ' e.Row.FCTextBox("TxtLote").Visible = True
End If '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.FCHtmlGenericControl("DVFechaCaducidad").Visible = True
'e.Row.FCTextBox("TxtFechaCaducidad").Visible = True ' 'e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
'e.Row.FCMaskedEditExtender("METxtFechaCaducidad").Visible = True ' 'e.Row.FCMaskedEditExtender("METxtFechaCaducidad").Visible = True
'e.Row.FCCalendarExtender("CCTxtFechaCaducidad").Visible = True ' 'e.Row.FCCalendarExtender("CCTxtFechaCaducidad").Visible = True
'e.Row.FCCompareValidator("CVTxtFechaCaducidad").Visible = True ' 'e.Row.FCCompareValidator("CVTxtFechaCaducidad").Visible = True
'e.Row.FCValidatorCalloutExtender("VCTxtFechaCaducidad").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 CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
Dim Lote As String = GvRow.FCTextBox("TxtLote").Text.Trim Dim Lote As String = GvRow.DataKey("Lote")
Dim Serie As String = GvRow.FCTextBox("TxtSerie").Text.Trim Dim Serie As String = GvRow.DataKey("Serie")
Dim FechaCaducidad As DateTime = GvRow.FCTextBox("TxtFechaCaducidad").Text.ToDate Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate