5 Fecha de pago: Aumentar días, en: ProveedoresAbonar, PopUpIE, ExC, Deudores, Acreedores, transferencias entre cuentas, - Pendiente fechas anteriores-

Bancos/Transferencias.aspx.vb

@@ -78,6 +78,7 @@ Partial Class Bancos_Transferencias
 
             DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
 
+
         End If
     End Sub
 
@@ -616,6 +617,9 @@ Partial Class Bancos_Transferencias
                 RFVTxtPaguese.Visible = True
             End If
         End If
+
+        ValidaFechaDocumentoDiasPosteriores()
+
         UPPDatos.Update()
 
     End Sub
@@ -662,4 +666,36 @@ Partial Class Bancos_Transferencias
         DdlCajaChica.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
+
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+        RVTxtFechaDocumento.MinimumValue = NowADS().AddMonths(-38).ToShortDateString
+        Calendario.EndDate = NowADS().AddDays(2)
+
+    End Sub
+
+    Private Sub ValidaFechaDocumentoDiasPosteriores()
+
+
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(3).ToShortDateString
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 d<>as de la fecha actual"
+
+        Calendario.EndDate = NowADS().AddDays(3)
+
+        If DdlTipoMovto.SelectedValue.Contiene("1", "16") Then 'cheques, 3meses
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddMonths(3).ToShortDateString
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 meses de la fecha actual"
+            Calendario.EndDate = NowADS().AddMonths(3)
+        End If
+        If DdlTipoMovto.SelectedValue = "2" Then 'transfer, 3semanas
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(21).ToShortDateString
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 semanas de la fecha actual"
+            Calendario.EndDate = NowADS().AddDays(21)
+        End If
+
+        UPPDatos.Update()
+        'UpGuardar.Update()
+
+    End Sub
+
 End Class