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

26
Contabilidad/RepIVA.aspx.cs
View File

@@ -393,7 +393,33 @@ public partial class Contabilidad_RepIVA : ClsPaginas
if (k > 0) if (k > 0)
{ {
bool flag = true; bool flag = true;
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"; 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 try
{ {
excelWorksheet.Columns[k].AutoFit(1.0); excelWorksheet.Columns[k].AutoFit(1.0);

11
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
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToString("dd/MM/yyyy")
Else
RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy") 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
@@ -2896,9 +2901,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
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
Calendario.EndDate = NowADS().AddDays(2)
Else
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS() Calendario.EndDate = NowADS()
End If
End Sub End Sub