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

--clases cat bloqueo diario

Browse Source 
--fix salto de linea layout banamex
This commit is contained in:
Jonathan Alexis Perez Morales
2024-07-16 02:36:20 -07:00
parent c7752358fc
commit e326efcee0
5 changed files with 110 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
App_Code/ClsContabilidad.vb
View File

@@ -6330,6 +6330,71 @@ Public Class ClsContabilidad
Return Retorno
End Function
#End Region
#Region "B L O Q U E O -- D I A R I O"
Public Function GetBloqueoDiario(CveBloqueoDiario As Integer, FechaI As DateTime, FechaF As DateTime, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_BloqueoDiarioGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveBloqueoDiario", SqlDbType.Int).Value = CveBloqueoDiario
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener el periodo de bloqueo diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddUpdateBloqueoDiario(CveBloqueoDiario As Integer, Fecha As DateTime, Bloqueado As Boolean, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_BloqueoDiarioAddUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveBloqueoDiario", SqlDbType.Int).Value = CveBloqueoDiario
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@Bloqueado", SqlDbType.Bit).Value = Bloqueado
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al actulizar el periodo de bloqueo diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveBloqueoDiario(CveBloqueoDiario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_BloqueoDiarioRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveBloqueoDiario", SqlDbType.Int).Value = CveBloqueoDiario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar el periodo de bloqueo diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region "ESTADO RESULTADOS HORIZONTAL"

1
App_Code/ClsPaginas.vb
View File

@@ -10131,6 +10131,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad/CatContaEjercicios.aspx".ToUpper(), 725)
PaginaDict.Add("/Contabilidad/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
PaginaDict.Add("/Contabilidad/CatBloqueoDiario.aspx".ToUpper(), 680)
#End Region
#Region "Contratos"
'--------------------- C O N T R A T O S - P R E S U P U E S T O S ---------------------

20
Contabilidad/CatBloqueoDiario.aspx Normal file
View File

@@ -0,0 +1,20 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatBloqueoDiario.aspx.vb" Inherits="Contabilidad_CatBloqueoDiario" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
Catálogo de bloqueo diario
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
</asp:Content>

5
Contabilidad/CatBloqueoDiario.aspx.vb Normal file
View File

@@ -0,0 +1,5 @@

Partial Class Contabilidad_CatBloqueoDiario
Inherits ClsPaginas
End Class

5
Nomina/Nomina.aspx.cs
View File

@@ -10154,7 +10154,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
SbLinea.Append("001"); SbLinea.Append("001");
}
else {
else
{
SbLinea.Append("012"); SbLinea.Append("000");
}
sb.AppendLine(SbLinea.ToString());
@@ -10421,7 +10422,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
var NumCargos = (1).ToString("000000");
var StrImportes = SumaImportes.ToString("0000000000000000.00").Replace(".", "");
sb.AppendLine($"{TipoReg4}{ClaveMoneda}{NumAbonos}{StrImportes}{NumCargos}{StrImportes}");
sb.Append($"{TipoReg4}{ClaveMoneda}{NumAbonos}{StrImportes}{NumCargos}{StrImportes}");
Response.Clear();
Response.ClearHeaders();