diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 53ad84d4f..7bf565dd8 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2448,7 +2448,11 @@ Partial Class PopUpVerFactura
                 Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
                     Paqueteria = "", NumContrato = "", Guia = ""
 
-                Dim CveContrato As Integer = DtMovimientos(0)("CveContrato").ToString.ToEntero
+                Dim CveContrato As Integer = 0
+                If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
+                    CveContrato = DtMovimientos(0)("CveContrato").ToString.ToEntero
+                End If
+
                 If CveContrato > 0 Then
                     Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                     NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")