From 4ad1d89087fd7c07307ad483bd69c8fdab08327d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Jan 2023 09:08:37 -0700
Subject: [PATCH] desaplicar pago de anticipo de compra

---
 Contabilidad/PopUpAuxiliar.aspx.vb | 50 +++++++++++++++++++++++++++---
 1 file changed, 46 insertions(+), 4 deletions(-)

diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 111ae7686..21da35698 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -225,13 +225,21 @@ Partial Class PopUpAuxiliar
                 e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarCompra"
                 e.Row.FCLinkButton("imgD").Visible = False
                 If e.Row.DBCampo("CveConceptoContable").Contiene("272") Then
-                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveCompraAmortizacion"))
+                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveIE"))
                 Else
-                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"))
+                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
                 End If
-            End If
 
-            If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
+            ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("21") Then 'desaplicar anticipo de compra
+
+            e.Row.FCLinkButton("LnkDesAplicar").Visible = True
+            e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarAnticipoCompra"
+            e.Row.FCLinkButton("imgD").Visible = False
+            e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
+
+        End If
+
+        If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
                 e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}"
                 'If e.Row.DBCampo("CveReferencia").ToEntero > 0 Then
                 '    e.Row.Cells(10).Text = ""
@@ -519,6 +527,40 @@ Partial Class PopUpAuxiliar
 
         End If
 
+        If e.CommandName = "DesAplicarAnticipoCompra" Then
+
+            Dim CvePrePoliza, CveCompra, CveIE As Integer
+            Dim TieneError = False
+
+            Dim St As String() = e.CommandArgument.ToString.Split("|"c)
+            If St.Length > 0 Then
+                CvePrePoliza = St(0).ToEntero
+                CveCompra = St(1).ToEntero
+                CveIE = St(2).ToEntero
+            End If
+
+            If CvePrePoliza > 0 Then
+                Dim Conta As New ClsContabilidad()
+                Conta.IniciaTransacSQL()
+
+                If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 21, CveCompra, CveIE) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError Then
+                    Conta.Commit()
+                    Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion)
+                Else
+                    Conta.RollBack()
+                    Alert("Pago no fue desaplicado.", TipoMensaje.ToastError)
+                End If
+            End If
+
+        End If
 
     End Sub
 End Class