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

--Aumentar fecha de pago 2 dias

Browse Source
This commit is contained in:
JPerez
2025-06-21 11:37:03 -07:00
parent f8d9f5a70a
commit 16c960d83f
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Ventas/ClientesAbonar.aspx.vb
View File

@@ -241,7 +241,12 @@ Partial Class Ventas_ClientesAbonar
Me.CveCorte = CargaCorteCaja(-1, UsuarioActual) Me.CveCorte = CargaCorteCaja(-1, UsuarioActual)
End If End If
RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy") If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToString("dd/MM/yyyy")
Else
RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
End If
If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then
LnkAccionesModalSeleccionLayout.Visible = True LnkAccionesModalSeleccionLayout.Visible = True
End If End If
@@ -2893,9 +2898,13 @@ Partial Class Ventas_ClientesAbonar
End Sub End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
Calendario.EndDate = NowADS() RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
Calendario.EndDate = NowADS().AddDays(2)
Else
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End If
End Sub End Sub