--Update acuse de cancelacion en solo cfdi

Ventas/Ventas.aspx.vb

@@ -39949,9 +39949,19 @@ Partial Class Ventas
                 Dim FolioFiscal As String = RowVenta("FolioFiscal").ToString().Trim()
                 Dim Total As Decimal = RowVenta("Total").ToString().ToDecimal()
                 Dim RFCReceptor As String = RowVenta("RFCReceptor").ToString()
+                Dim CvePACCancelacion As Integer = 5
                 Dim ObjTimbrado As New Timbrado
-                Dim resp = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion:=5, ValidaFactura:=False, CveSATMotivoCancelacion:=2)
+                Dim resp = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion:=CvePACCancelacion, ValidaFactura:=False, CveSATMotivoCancelacion:=2)
                 If resp IsNot Nothing Then
+                    If resp.Verificado Then
+                        Dim CancelacionAcuse = resp.CancelacionAcuse
+                        Using ObjVentas As New ClsVentas
+                            If Not ObjVentas.UpdateCancelaVenta(CveVenta, Now, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, -1, EstadoCancelacion:="", CveEstadoCancelacion:=-1) Then
+                                Alert("Ocurrió un error al guardar el estatus de cancelación")
+                            End If
+                        End Using
+
+                    End If
                     Alert(resp.Estado)
                 End If