From 93651d7696417aa75b8ac8a30e00e5138f413661 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Tue, 15 Nov 2022 14:23:40 -0700
Subject: [PATCH]

---
 App_Code/modExtensiones.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 165bf13b5..e37d222e5 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -1005,11 +1005,11 @@ Namespace Extensiones
                 '**********Une la parte entera y la parte decimal*************
                 If dec <> "" Then
 
-                    palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda)
+                    palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
 
                     Retorno = palabras.ToString
                 Else
-                    palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda)
+                    palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
 
                     Retorno = palabras.ToString
                 End If
@@ -2156,6 +2156,7 @@ Namespace Extensiones
                 Dim worksheet = excel.Worksheets(0)
                 worksheet.Rows.InsertEmpty(0, TotalRowHeader)
                 Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+                If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error
                 celdasConTexto.Style.Font.Name = "Calibri Light"
 
                 Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)