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)