From 383b24f7ca2ba52cdc6a1c060a5e500fdb204ba0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 15 Oct 2020 12:37:15 -0700 Subject: [PATCH] -- cambio en contabilizacion, primero se caudra y luego se contabiliza --- Bancos/PagoDeudor.aspx.cs | 21 +++++++++++-------- Bancos/PolizaCheque.aspx.vb | 41 +++++++++++++++++++++---------------- 2 files changed, 35 insertions(+), 27 deletions(-) diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 88424c2bd..c59201a8f 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -842,6 +842,17 @@ public partial class Bancos_PagoDeudor : ClsPaginas MsgError = "No se pudo insertar concepto de bancos complementaria"; } } + + if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10)) + { + if (ObjMov.ValorPolizaDescuadre > 0) + { + MsgError = ObjMov.MensajePolizaDescuadre; + $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas"); + } + } + + bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); //if (UsuarioActual.CveEmpresa == 119) AutoConta = false; @@ -881,15 +892,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas MsgError = "No se pudo insertar la póliza"; } - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10)) - { - if (ObjMov.ValorPolizaDescuadre > 0) - { - MsgError = ObjMov.MensajePolizaDescuadre; - $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas"); - } - } - + if (MsgError.Equals("")) { if (Msg.ToString().Equals("")) diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index f27450da1..40d7ad541 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -849,7 +849,8 @@ Partial Class Bancos_PolizaCheque 'Dim Conta As ClsContPAQi = Nothing Dim IDPoliza As Integer = 0 Dim CveIE As Integer - Dim MsgError As String = "" + Dim MsgError As String = "" + Dim idCuentaContabilizacion As Long = 1 'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then ' Conta = New ClsContPAQi(UsuarioActual.Empresa) @@ -875,7 +876,8 @@ Partial Class Bancos_PolizaCheque Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero - End If + End If + Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1) Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza) @@ -886,8 +888,8 @@ Partial Class Bancos_PolizaCheque If CvePrePoliza > 0 Then - Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

" - Dim idCuentaContabilizacion As Long = 1 + Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

" + Dim Importe As Double = 0 Dim TipoMovto As Boolean = False Dim IdCtaContable As Integer = 0 @@ -958,20 +960,6 @@ Partial Class Bancos_PolizaCheque End If - 'El movimiento 2 es el de Pago - If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - 'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) - IDPoliza = ObjMov.ContaIdPoliza - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) - End If - Else - Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError) - End If - End If - If CvePeriodo > 0 Then If Not ObjNom.UpdatePagoNomina(CvePeriodo, CveIE, CvePrePoliza, UsuarioActual.CveEmpresa) Then MsgError = "No se pudo actualizar el periodo de la nómina" @@ -1008,8 +996,25 @@ Partial Class Bancos_PolizaCheque Else MsgError = "No se pudo validar la prepoliza de cuadre." End If + End If + + + 'El movimiento 2 es el de Pago + If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then + If idCuentaContabilizacion > 0 Then + If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + 'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) + IDPoliza = ObjMov.ContaIdPoliza + Else + MsgError = "Error al contabilizar" + Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) + End If + Else + Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError) + End If End If + If MsgError = "" Then ObjIE.Commit()