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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-06-23 13:11:38 -07:00
parent 71a602f51f eabfe27d8d
commit bd90c66f74
2 changed files with 40 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Contabilidad/RepIVA.aspx.cs
View File

@@ -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);

17
Ventas/ClientesAbonar.aspx.vb
View File

@@ -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