From 35d1bb7cf01cc080aec68a9c8e139c7644c7ef9a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Nov 2023 11:32:35 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20al=20traspasar=20saldo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 4 ++++ Contabilidad2/CatCuentas.aspx.vb | 7 ++++++- Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs | 15 +++++++++------ 3 files changed, 19 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 72954ea76..336499c97 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6435,6 +6435,10 @@ Public Class ClsContabilidad Try SqlAdapter.Fill(Data) Retorno = True + Catch ex As sqlException + If ex.Message.Contains("50015;") Then + OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If Catch ex As Exception Me.OnError("Ocurrió un error al obtener traspasar las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index ce3ff3bfb..f8cd86cfe 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -488,13 +488,18 @@ Partial Class Contabilidad2_CatCuentas DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta) If idnew > 0 Then - If Not ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then + If ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then If Not ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda, DigAgrup, CveAgrupadorSat, NomIdioma) Then + TieneError = True ObjConta.RollBack() ObjConta.Dispose() Exit Sub End If + Else + TieneError = True + ObjConta.RollBack() + ObjConta.Dispose() End If End If End If diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs index d37500623..318a73884 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs @@ -326,8 +326,9 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas decimal ImporteTotalGasto = 0; string MsgError = ""; - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - + CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza: 3); + bool tMovto = true; + int tConceptoSaldar = 78; if (CvePrePoliza > 0) { foreach (GridViewRow Gv in GvDatos.Rows) @@ -337,7 +338,9 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas { if (Tipo == 2) { - ConPreP = ClsPaginas.get_ObtenerCveConceptoPrePoliza(6, Gv.DataKey("CveMoneda").ToEntero(), false, 2); + ConPreP = ClsPaginas.get_ObtenerCveConceptoPrePoliza(6, Gv.DataKey("CveMoneda").ToEntero(), false, 2); + tMovto = false; + tConceptoSaldar = 255; } else if (Tipo == 1) { @@ -357,7 +360,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas } ImporteTotalGasto += Saldo; - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) { MsgError = "Ocurrio un error al saldar el movimiento"; break; @@ -366,7 +369,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas { decimal ImporteMN = (Saldo * Gv.DataKey("TipoCambio").ToDecimal() - Saldo).RoundSQL(); ImporteTotalGasto += ImporteMN; - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, ImporteMN, ConPreP.CveConceptoComplementario, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta:CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteME: Saldo, TipoCambio: Gv.DataKey("TipoCambio").ToDecimal())) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, ImporteMN, ConPreP.CveConceptoComplementario, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta:CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteME: Saldo, TipoCambio: Gv.DataKey("TipoCambio").ToDecimal())) { MsgError = "Ocurrio un error al saldar el movimiento"; break; @@ -378,7 +381,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas if (ImporteTotalGasto != 0) { ImporteTotalGasto = ImporteTotalGasto * -1; // se invierte el valor, para cuadre de prepoliza - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, ImporteTotalGasto, ImporteTotalGasto, 78, "", TxtConcepto.Text, CveIE: CveIE, CveVenta: CveVenta, CveSubProyecto: DdlSubProyectoSaldar.SelectedValue.ToEntero())) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, ImporteTotalGasto, ImporteTotalGasto, tConceptoSaldar, "", TxtConcepto.Text, CveIE: CveIE, CveVenta: CveVenta, CveSubProyecto: DdlSubProyectoSaldar.SelectedValue.ToEntero())) { MsgError = "Ocurrio un error al saldar el movimiento"; }