-- activar bloqueo 2024 EMD

This commit is contained in:
2025-01-10 08:00:05 -07:00
parent 67ba9d9ebe
commit 806d86e2ce
2 changed files with 10 additions and 11 deletions

View File

@@ -785,7 +785,7 @@
</ItemTemplate>
</asp:TemplateField>
<%-- 4 --%>
<asp:BoundField DataField="Obs" ItemStyle-Width="300px" />
<asp:BoundField DataField="Obs" ItemStyle-Width="250px" />
<%-- 5 --%>
<asp:TemplateField ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
@@ -796,7 +796,7 @@
</ItemTemplate>
</asp:TemplateField>
<%-- 6 --%>
<asp:BoundField DataField="TipoGasto" ItemStyle-Width="177px" />
<asp:BoundField DataField="TipoGasto" ItemStyle-Width="125px" />
<%-- 7 --%>
<asp:BoundField DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />
<%-- 8 --%>
@@ -827,13 +827,13 @@
</asp:TemplateField>
<%-- 12 --%>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="45px">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<%-- 13 --%>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="45px">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>

View File

@@ -1122,13 +1122,12 @@ Partial Class Compras_eFacturas
e.Row.FCCheckBox("chkRegistraFactura").Visible = False
End If
'If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
' Dim Fecha28Dic As Date = New Date(2024, 12, 28)
' If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then
' e.Row.FCHyperLink("HplAgregar").Visible = False
' End If
'End If
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
Dim Fecha28Dic As Date = New Date(2024, 12, 28)
If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then
e.Row.FCHyperLink("HplAgregar").Visible = False
End If
End If
End If
End Sub