From 99edc08a95abee9124e1a496265ef56936a4177d Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 4 Jul 2023 20:52:32 -0700
Subject: [PATCH] --Formato descarga solicitud de acuse de cancelacion con
 stimultsoft

---
 Compras/PopUpVerFactura.aspx.vb | 50 +++++++++++++++++++++++++++++++--
 1 file changed, 48 insertions(+), 2 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 5e80c0326..01a91c951 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5782,8 +5782,12 @@ Partial Class PopUpVerFactura
             Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
             Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
 
+            Dim MotivoCancelacion As String = "" ' drv("MotivoCancelacion").ToString()
+            Dim FolioSustitucion As String = "" ' drv("FolioFiscalPadre").ToString()
+
+            Dim DirectorioArchivo As String = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.mrt", ModExtensiones.DirectorioBaseEmpresas)
+
             Dim RFCEmisor = UsuarioActual.Empresa.RFC
-            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))
 
             Dim Titulo As String = "Acuse de cancelación de CFDI"
             Dim EstadoCFDI As String = "Cancelado"
@@ -5802,9 +5806,27 @@ Partial Class PopUpVerFactura
             End If
 
             If CveEstatusFactura = 20 Then
+
+                DirectorioArchivo = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacionSolicitud.mrt", ModExtensiones.DirectorioBaseEmpresas)
+
                 Titulo = "Acuse de solicitud de cancelación de CFDI"
                 EstadoCFDI = "Vigente"
 
+                Using ObjV As New ClsVentas
+                    If ObjV.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveVenta:=CveVenta) Then
+                        Dim RowCancelacion = ObjV.DtResultados.FiltroPrimero("")
+                        If RowCancelacion IsNot Nothing Then
+                            Dim CveMotivoCancelacion = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
+                            FolioSustitucion = RowCancelacion("FolioFiscalSustitucion").ToString()
+
+                            If CveMotivoCancelacion > 0 Then
+                                MotivoCancelacion = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CodigoSATDescripcion")
+                            End If
+                        End If
+                    End If
+                End Using
+
+
                 'SI TIENE DATOS EN EL SELLO DE SOLICITUD Y ESTA EN PROCESO, ENVIAR ESTE SELLO
                 If Not String.IsNullOrEmpty(SelloSolicitudCancelacion) Then
                     SelloCancelacion = SelloSolicitudCancelacion
@@ -5829,6 +5851,8 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
+            Dim Archivo As New System.IO.FileInfo(DirectorioArchivo)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("Titulo", Titulo))
             params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
@@ -5840,7 +5864,29 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("MsgError", ""))
             params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
 
-            ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
+            'ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
+
+            Dim DtAcuse As DataTable = Nothing
+
+            If CveEstatusFactura = 20 Then
+                DtAcuse = New DataTable("DtAcuse")
+                DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
+                DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
+                DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
+                DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
+
+                Dim RowCFDI = DtAcuse.NewRow()
+
+                RowCFDI("FolioFiscal") = FolioFiscal
+                RowCFDI("Estatus") = "Solicitud de cancelación recibida"
+                RowCFDI("MotivoCancelacion") = MotivoCancelacion
+                RowCFDI("FolioSustitucion") = FolioSustitucion
+
+                DtAcuse.Rows.Add(RowCFDI)
+            End If
+
+
+            ImprimirPDFStimulsoft(Archivo.FullName, DtAcuse, params, "AcuseCancelacion" & CveVenta)
 
         End If