diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 679812716..2ddf94156 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -393,7 +393,33 @@ public partial class Contabilidad_RepIVA : ClsPaginas if (k > 0) { bool flag = true; - excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00"; + switch (NombreHoja) + { + case "IVA Trasladado": + //FECHAS,FOLIOS, NUM CUENTA + if (!excelWorksheet.Columns[k + 1].Name.Contiene("B","L","C","P","Q")) + { + excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00"; + } + break; + case "IVA Acreditable": + //FECHAS,FOLIOS, NUM CUENTA + if (!excelWorksheet.Columns[k + 1].Name.Contiene("D","E","Y","Z","AA","AB")) + { + excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00"; + } + //FOLIO BANCARIO + if (excelWorksheet.Columns[k + 1].Name.Contiene("AA","AB")) + { + excelWorksheet.Columns[k + 1].Style.NumberFormat = "0"; + excelWorksheet.Columns[k + 1].Style.HorizontalAlignment = HorizontalAlignmentStyle.Left; + } + break; + default: + break; + } + + try { excelWorksheet.Columns[k].AutoFit(1.0); diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 8a24e0da2..a1ac6178e 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -241,7 +241,12 @@ Partial Class Ventas_ClientesAbonar Me.CveCorte = CargaCorteCaja(-1, UsuarioActual) 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 LnkAccionesModalSeleccionLayout.Visible = True End If @@ -2896,9 +2901,13 @@ Partial Class Ventas_ClientesAbonar End Sub Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init - RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString - Calendario.EndDate = NowADS() - + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString + Calendario.EndDate = NowADS().AddDays(2) + Else + RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString + Calendario.EndDate = NowADS() + End If End Sub