From a17380bb3adb975988e15320845a332019bb9b84 Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Wed, 23 Oct 2019 22:50:59 -0700
Subject: [PATCH] Amortizar factura con nc y pagar contado

---
 Compras/Compras.aspx.vb | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 194981e48..91663ea7a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4190,7 +4190,7 @@ Partial Class Compras_Compras
                     Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
                     Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero
 
-                    If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
+                    If RBLPago.SelectedValue.ToEntero = 2 Then 'Contado
 
                         If RBLContado.SelectedValue = "1" Then
                             ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
@@ -6740,7 +6740,7 @@ Partial Class Compras_Compras
                                                                 '    End If
                                                                 'End If
 
-                                                                For Each Ant As Anticipos In ArrAnticipos
+                                                                For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
 
                                                                     Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
                                                                     Dim CveCompraNC As Integer = CveCompra
@@ -7327,7 +7327,7 @@ Partial Class Compras_Compras
                                                 Dim PorcentajePago As Decimal
                                                 Dim CveConceptoAnt As Integer = 21
                                                 Dim CveCompraNC As Integer
-                                                For Each Ant As Anticipos In ArrAnticipos
+                                                For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                                                     CveCompraNC = CveCompra
                                                     Dim CveConceptoPago As Integer = 17
                                                     Select Case Ant.TipoMovto
@@ -8840,7 +8840,7 @@ Partial Class Compras_Compras
 
                 Dim ImporteAnticipo As Decimal = 0
                 If ArrAnticipos.Count > 0 Then
-                    For Each Ant As Anticipos In ArrAnticipos
+                    For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                         ImporteAnticipo += Ant.Importe
                     Next
                 End If
@@ -12255,7 +12255,7 @@ Partial Class Compras_Compras
         Select Case RBLContado.SelectedValue
             Case "1" ' Bancos
                 PnlContadoBancos.Visible = True
-                TxtDocumentoImporte.Text = TxtTotal.Text
+                TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
             Case "2" ' F y E
                 PnlContadoFyE.Visible = True
                 CargaFuncionariosEmpleados()
@@ -12270,7 +12270,7 @@ Partial Class Compras_Compras
                 CargaAcreedores()
             Case "6" ' Caja Chica
                 PnlContadoCajaChica.Visible = True
-                TxtDocumentoImporteCaja.Text = TxtTotal.Text
+                TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
         End Select
 
         UpContado.Update()
@@ -14596,7 +14596,7 @@ Partial Class Compras_Compras
         'ANTICIPOS COMPRA
         Dim ImporteAnticipo As Decimal = 0
         If ArrAnticipos.Count > 0 Then
-            For Each Ant As Anticipos In ArrAnticipos
+            For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                 ImporteAnticipo += Ant.Importe
             Next
         End If