From 12957314cf6525d3bbb6c8298d58814f71e533d6 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Mar 2024 17:03:31 -0700 Subject: [PATCH 01/40] =?UTF-8?q?-=20=20cambios=20en=20refacturaci=C3=B3n?= =?UTF-8?q?=20,=20que=20el=20pago=20sobre=20la=20nueva=20factura=20se=20ut?= =?UTF-8?q?ilice=20el=20pagoprepolizascompra?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 27 +++++++++++++++++++++++---- 1 file changed, 23 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3855b52f3..925c4074e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10,7 +10,6 @@ Imports System.Threading.Tasks Imports Newtonsoft.Json Imports Extensiones Imports MoreLinq -Imports ClbNegBICFDv3_3 Partial Class Compras_Compras Inherits ClsPaginas @@ -7035,7 +7034,7 @@ Partial Class Compras_Compras 'EMPIEZA REFACTURACION If Not ErrorPrepoliza AndAlso CveCompraRefacturacion > 0 Then - ErrorBitacora = GuardaRefacturacion(ObjCompras, ObjEventos, CvePrePoliza) + ErrorBitacora = GuardaRefacturacion(ObjCompras, ObjEventos, CvePrePoliza, ObjConta, CompraActual) If ErrorBitacora Then Alert("Ocurrió un error al hacer la Refacturación", TipoMensaje.MsgError) End If @@ -13098,7 +13097,7 @@ Partial Class Compras_Compras RegistraScript(String.Format("$('#{0}').modal('hide')", DivRefacturacion.ClientID)) End Sub - Private Function GuardaRefacturacion(ByRef ObjCompra As ClsCompras, ByRef ObjEventos As ClsOIEventos, CvePrePoliza As Integer) As Boolean + Private Function GuardaRefacturacion(ByRef ObjCompra As ClsCompras, ByRef ObjEventos As ClsOIEventos, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad, ByRef CompraActual As Compra) As Boolean Dim dr As DataRow = Nothing Dim ErrorBitacora As Boolean = False Dim IdPolizaAnterior As Integer = -1 @@ -13118,8 +13117,28 @@ Partial Class Compras_Compras If ChkRefacNC.Checked Then Tipo = 2 'CONTABILIZA REFACTURACION - If Not ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then + If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then + Dim dttpagos As DataTable + If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then + dttpagos = ObjCompra.DtResultados + + For Each drp As DataRow In dttpagos.Rows + Dim Pago As New CompraPago + Pago.ImportePago = drp("ImporteMN").ToString.ToDecimal + Pago.CveIE = drp("CveIE").ToString.ToEntero + Pago.CveMonedaPago = 1 + Pago.CveCompraAmortizacion = -1 + Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC") + + Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + Next + + End If + + Else + ErrorBitacora = True + End If From 6770346dde08d1179f14a4c4cb98942cd14844bf Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 Mar 2024 17:08:38 -0700 Subject: [PATCH 02/40] --Impresion de cambio de vigencia --- Compras/PopUpVerFactura.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index fd3c9db42..8d0239e5a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2891,7 +2891,7 @@ Partial Class PopUpVerFactura End If - Case 3, 16, 37, 40, 45 ' S A L I D A S + Case 3, 16, 37, 40, 45, 47 ' S A L I D A S 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) @@ -2904,6 +2904,8 @@ Partial Class PopUpVerFactura concepto = "SALIDA VIRTUAL" ElseIf CveConcepto = 45 Then concepto = "SALIDA DE USADOS" + ElseIf CveConcepto = 47 Then + concepto = "SALIDA POR CAMBIO DE VIGENCIA" Else concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN" End If From 8c84011c0177ebd8b2faba5fef998042921e9cf8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 Mar 2024 19:17:43 -0700 Subject: [PATCH 03/40] --Activar las RNC, para devoluciones sobre Remisiones. y que quede pendiente para aplicarse en las futuras "remisiones/facturas". --Agregar columna "Atencion A" en gridview de amortizaciones --Obligar a llenar el texto Atencion A con la funconalidad 109 en todos los tipos de documento --- Ventas/Clientes.aspx | 1 + Ventas/Clientes.aspx.vb | 14 +++++--- Ventas/Ventas.aspx | 72 +++++++++++++++++++++------------------- Ventas/Ventas.aspx.vb | 73 ++++++++++++++++++++++++++++++----------- 4 files changed, 103 insertions(+), 57 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 347109d9d..615d5941e 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1461,6 +1461,7 @@ + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 34288b8e0..48457315e 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -922,12 +922,18 @@ Partial Class Clientes LnkAgregarLineaAdicional.Visible = True GetLineasAdicionales() End If + + If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then + If RblTipo.Items.FindByValue("RNC") IsNot Nothing Then + RblTipo.Items.Remove(RblTipo.Items.FindByValue("RNC")) + End If + End If + + ChkPermiso4.Enabled = False + ChkPermiso5.Enabled = False + ChkPermiso6.Enabled = False End If - 'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017 - ChkPermiso4.Enabled = False - ChkPermiso5.Enabled = False - ChkPermiso6.Enabled = False End Sub diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 5a677a9e8..6205dd638 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4572,6 +4572,12 @@ + + Atención A + + + + Amort. Ant. @@ -8685,41 +8691,41 @@ -