From 4b6695e7a3a966f9f2cf4789b17135b816eb24f1 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Tue, 4 May 2021 17:53:49 -0700 Subject: [PATCH] poder cambiar el codigo de la cuenta --- App_Code/ClsContabilidad.vb | 4 +++- Contabilidad2/CatCuentas.aspx.vb | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 2959aba4a..8b5995aea 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -4543,7 +4543,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, Optional CveAlmacen As Integer = -1, Optional Afectable As Integer = -1) As Boolean + Optional CveBancoCuenta As Integer = -1, Optional CveAlmacen As Integer = -1, Optional Afectable As Integer = -1, Optional Codigo As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_UpdateCuentas") @@ -4565,6 +4565,8 @@ Public Class ClsContabilidad .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@Afectable", SqlDbType.Int).Value = Afectable + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + End With Try diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index f114656ed..c9d48fa35 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -304,7 +304,7 @@ Partial Class Contabilidad2_CatCuentas End If - + TxtCuenta.Enabled = True Guardar.Visible = True updatos.Visible = True updatos.Update() @@ -330,7 +330,7 @@ Partial Class Contabilidad2_CatCuentas If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, - CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then + CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen, Codigo:=TxtCuenta.Text.Replace("-", "")) Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)