2020-04-21 10:27:26 -07:00
parent ee1103180d
commit f8a3e8acf0
5 changed files with 413 additions and 3 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3572,7 +3572,7 @@ Partial Class PopUpVerFactura
 #Region "OP = 'CAN' - CANCELACION"
    Public Sub ImprimeCancelacion(CveVenta As Integer)
        Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
            Dim FolioFiscal = drv("FolioFiscal").ToString
            Dim SelloCancelacion = drv("SelloCancelacion").ToString