From 45d41bd7c3db9e158ca2bd31a90d8b4c7a3fbe23 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 21 Dec 2022 17:40:28 -0700 Subject: [PATCH] Correciones Compras amortizacion nota de credito, pago deudores correcion prepoliza centavos --- Bancos/PagoDeudor.aspx.cs | 12 +++++++++++- Compras/Compras.aspx.vb | 8 -------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index eb2d25f4c..697ec6c74 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -686,11 +686,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas (Double)tipoCambio, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + decimal ImporteMN=0; if (CveIE > 0) { decimal Importe; - decimal ImporteMN; + //GUARDA COMPROBANTE if (!filemove.Equals("")) @@ -834,6 +835,15 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (CveMoneda != 1 && UsaComplementaria) { + + decimal difComplementaria = ImporteMN - (ImporteBanco + ImporteComplementaria); + + if (difComplementaria != 0) + { + ImporteComplementaria = difComplementaria > 0 ? (ImporteComplementaria+ difComplementaria) : (ImporteComplementaria- difComplementaria); + } + + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1ffad0d7e..58c79ad7a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8639,15 +8639,7 @@ Partial Class Compras_Compras PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal - If CveConceptoCompra <> 21 Then - Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) - - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 - End If - - End If If CveMonedaAnticipo > 1 Then