From 65235052f56a16ac58447257eecf6d3b53f7e334 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 6 Sep 2021 15:39:07 -0700
Subject: [PATCH] Correcion en impresion de movimiento

---
 Compras/PopUpVerFactura.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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}")