From f4d26b4796d5cbbfab98c768fe992f794e6864d6 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 12 Oct 2022 13:35:18 -0700 Subject: [PATCH] Compras autocatabilizar amortizacion de anticipos --- Compras/Compras.aspx.vb | 49 +++++++++++++++++++++++++++++++ Compras/Proveedores.aspx.vb | 4 +++ Ventas/ProductosServicios.aspx | 12 ++------ Ventas/ProductosServicios.aspx.vb | 2 +- 4 files changed, 56 insertions(+), 11 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ee2823cb8..2049b7864 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8372,6 +8372,8 @@ Partial Class Compras_Compras If CveCompra > 0 Then + Dim ObjContaAC As ClsContPAQi = Nothing + 'INICIALIZA OBJETOS If Not (ObjComprasParametro IsNot Nothing And ObjContaParametro IsNot Nothing) Then ObjCompra = New ClsCompras @@ -8478,8 +8480,33 @@ Partial Class Compras_Compras Next + + + If ErrorMovtosCxP = 0 And CvePrePolizaNueva > 0 Then + + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then + If ObjContaAC Is Nothing Then + ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + ObjContaAC.IniciaTransacSQL() + End If + + If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveEmpresa, UsuarioActual.Empresa, MinFecha, "", ObjContaAC) Then + ErrorMovtosCxP = 3 + End If + + End If + + End If + Select Case ErrorMovtosCxP Case 0 + + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then + If ObjContaAC IsNot Nothing Then + ObjContaAC.Commit() + End If + End If + Alert("El movimiento se aplicó correctamente.", TipoMensaje.MsgInformacion) ObjCompra.Commit() @@ -8501,18 +8528,40 @@ Partial Class Compras_Compras UpAnticipos.Update() UpPS.Update() dtnc.Dispose() + Case 1 Alert("Ocurrió un error al amortizar la nota de crédito
Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia) ObjCompra.RollBack() Case 2 Alert("Ocurrió un error al amortizar la nota de crédito
Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia) + ObjCompra.RollBack() + Case 3 + Alert("Ocurrió un error al contabilizar la la amortizacion del anticipo.", TipoMensaje.MsgAdvertencia) + + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then + If ObjContaAC IsNot Nothing Then + Try + ObjContaAC.RollBack() + Catch ex As Exception + + End Try + End If + End If + ObjCompra.RollBack() End Select Catch ex As Exception ObjCompra.RollBack() End Try + + + If ObjContaAC IsNot Nothing Then + ObjContaAC.Dispose() + End If + ObjCompra.Dispose() + Else 'sino se ha guardado la compra, se registra temporal que anticpos van a cargarle diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 7c5ce2a0e..e771ec2c1 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -4468,6 +4468,9 @@ Partial Class Compras_Proveedores Dim CuentaPadre = -1 + Dim TipoCuenta As String = "D" + + Select Case btn.CommandArgument.ToString Case "Proveedores" CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero) @@ -4477,6 +4480,7 @@ Partial Class Compras_Proveedores CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero Case "Anticipos" CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero + TipoCuenta = "A" Case "Deudores" CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index db37674b1..53a8876e8 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -1,12 +1,7 @@ <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ProductosServicios.aspx.vb" Inherits="ProductosyServicios" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - + @@ -1906,10 +1901,7 @@

- El producto seleccionado en el recuadro de arriba sera unificado en el producto actual - - - + El producto seleccionado en el recuadro de arriba sera unificado en el producto actual

diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 7d0a7221e..d6b631b89 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1993,7 +1993,7 @@ Partial Class ProductosyServicios RegistraScript("$('#DivUnificar').modal();LimpiaModalUnificar()") End Sub Public Sub CargaPSUnificar() - DdlPsUnificar.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlPsUnificar.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, Estatus:=-1) DdlPsUnificar.DataBind() 'DdlPsUnificar.setEsWebService(True) 'DdlPsUnificar.ddlWS.Attributes.Add("data-clear", "1")