AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-11-15 14:23:40 -07:00
parent ad9f7264ae
commit 93651d7696
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/modExtensiones.vb
View File

@@ -1005,11 +1005,11 @@ Namespace Extensiones
'**********Une la parte entera y la parte decimal************* '**********Une la parte entera y la parte decimal*************
If dec <> "" Then If dec <> "" Then
palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda) palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString Retorno = palabras.ToString
Else Else
palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda) palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString Retorno = palabras.ToString
End If End If
@@ -2156,6 +2156,7 @@ Namespace Extensiones
Dim worksheet = excel.Worksheets(0) Dim worksheet = excel.Worksheets(0)
worksheet.Rows.InsertEmpty(0, TotalRowHeader) worksheet.Rows.InsertEmpty(0, TotalRowHeader)
Dim celdasConTexto = worksheet.GetUsedCellRange(True) 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" celdasConTexto.Style.Font.Name = "Calibri Light"
Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)