From 544a1a16852a971bfed2f059dc661a40cd31ba36 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 13 Mar 2020 12:20:22 -0700 Subject: [PATCH] --- App_Code/ClsContabilidad.vb | 24 +- Contabilidad2/CatCuentas.aspx | 57 +++- Contabilidad2/CatCuentas.aspx.vb | 180 ++++++++++++- WebCaudillo20200311.config | 428 +++++++++++++++++++++++++++++++ vwd.webinfo | 2 + 5 files changed, 675 insertions(+), 16 deletions(-) create mode 100644 WebCaudillo20200311.config diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index ff6b8012f..f5e63f696 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1962,9 +1962,28 @@ Public Class ClsContabilidad #End Region #Region " C O N T A B I L I D A D - C O N C E P T O S - C O N T A B L E S " - Public Function GetConta_ConceptosContables() As Boolean + Public Function GetConta_CuentasDataContabilidad(CveCuenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_CuentasDataContabilidadGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener lod datos de Concepto Contables.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetConta_ConceptosContables(Optional Estado As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_ConceptosContablesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@Estado", SqlDbType.Int).Value = Estado + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -4605,7 +4624,7 @@ Public Class ClsContabilidad Public Function UpdateCuenta(CveCuenta As Integer, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1, Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "", Optional CveConceptoAdmin As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, - Optional CveBancoCuenta As Integer = -1) As Boolean + Optional CveBancoCuenta As Integer = -1, Optional CveAlmacen As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_UpdateCuentas") @@ -4625,6 +4644,7 @@ Public Class ClsContabilidad .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen End With Try diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx index b61b15b26..0bbfc328f 100644 --- a/Contabilidad2/CatCuentas.aspx +++ b/Contabilidad2/CatCuentas.aspx @@ -75,7 +75,7 @@ -<%--