Compras CveUsuario ala ctualizr fecha vencimiento, ajustes Nom043

Compras/Compras.aspx.vb

@@ -15136,11 +15136,6 @@ Partial Class Compras_Compras
                     End If
 
 
-                    Dim DiasCreditoOCActual As Integer = DTOCTemp.FiltroPrimeroValor("DiasCreditoOC").ToEntero
-
-                    If DiasCreditoOCActual > DiasCredito Then
-                        DiasCredito = DiasCreditoOCActual
-                    End If
 
 
                     IvaAcumulado += ObjOC.DtResultados.Rows(0)("IVA").ToString.ToDouble
@@ -15263,10 +15258,6 @@ Partial Class Compras_Compras
                 DivOCPromocion.Visible = True
             End If
 
-            If DiasCredito > 0 Then
-                TxtFechaPago.Text = Now.AddDays(DiasCredito).ToString("dd/MM/yyyy")
-                UPCondicionesPago.Update()
-            End If
 
             'CARGA DATOS DE OC
             CargaVinculacionOC(True)
@@ -21048,7 +21039,7 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        If ObjComp.UpdateFechaVencimientoCompra(CveCompra, TxtFechaPago.Text.ToDate, UsuarioActual.CveEmpresa) Then
+        If ObjComp.UpdateFechaVencimientoCompra(CveCompra, TxtFechaPago.Text.ToDate, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             Alert("Fecha de pago actualizada correctamente.")
         End If
 

Compras/eFacturas.aspx.vb

@@ -1167,6 +1167,17 @@ Partial Class Compras_eFacturas
             '    End If
             'End If
 
+            Dim Funcionalidad123 As Integer = UsuarioActual.Empresa.Funcionalidad(123).ToEntero
+            If Funcionalidad123 > 0 Then
+                If NowADS().Day >= Funcionalidad123 Then
+                    Dim FechaLimite As Date = New Date(NowADS().Year, NowADS().Month, 1)
+                    If e.Row.DBCampo("FechaFactura").ToDate < FechaLimite Then
+                        e.Row.FCHyperLink("HplAgregar").Visible = False
+                    End If
+                End If
+            End If
+
+
             e.Row.FCCheckBox("chkRegistraFactura").Attributes.Add("onclick", "ChkRegsitraFacturas()")
 
         End If