MyWorksheet is xlsDocument
xlsAddWorksheet(MyWorksheet, "R04_C-0451")
//MyWorksheet = xlsOpen(sNombreArchivoXLS, xlsWrite)
xlsCurrentWorksheet(MyWorksheet, 1)
nColumna is int
nRenglon is int = 1
FOR nColumna = 1 TO 15
MyWorksheet[nRenglon,nColumna]..BackgroundColor = LightYellow
MyWorksheet[nRenglon,nColumna]..Border..LineTop..Thickness = 3
MyWorksheet[nRenglon,nColumna]..Border..LineBottom..Thickness = 3
MyWorksheet[nRenglon,nColumna]..Font..Bold = True
MyWorksheet[nRenglon,nColumna]..AlignmentH = haCenter
MyWorksheet[nRenglon,nColumna]..AlignmentV = vaMiddle
MyWorksheet[nRenglon,nColumna] = nColumna
END
nRenglon++
MyWorksheet[nRenglon,03] = "NUMERO DE REPORTE"
MyWorksheet[nRenglon,04] = "NUMERO DE SOCIO"
MyWorksheet[nRenglon,05] = "TIPO DE SOCIO"
MyWorksheet[nRenglon,06] = "NOMBRE O DENOMINACION SOCIAL DEL ACREDITADO"
MyWorksheet[nRenglon,07] = "APELLIDO PATERNO DEL ACREDITADO"
MyWorksheet[nRenglon,08] = "APELLIDO MATERNO DEL ACREDITADO"
MyWorksheet[nRenglon,09] = "PERSONALIDAD JURIDICA DEL ACREDITADO"
MyWorksheet[nRenglon,10] = "GRUPO DE RIESGO"
MyWorksheet[nRenglon,11] = "ACTIVIDAD ECONÓMICA DEL ACREDITADO"
MyWorksheet[nRenglon,12] = "FECHA DE NACIMIENTO / CONSTITUCION DEL ACREDITADO"
MyWorksheet[nRenglon,13] = "RFC DEL ACREDITADO"
MyWorksheet[nRenglon,14] = "CURP DEL ACREDITADO"
MyWorksheet[nRenglon,15] = "EDAD DEL ACREDITADO"
nRenglon++
MyWorksheet[nRenglon,03] = sC03_Reporte
MyWorksheet[nRenglon,04] = nC04_NoSocio
MyWorksheet[nRenglon,05] = nC05_TipoSocio
MyWorksheet[nRenglon,06] = sC06_NombreSocio
MyWorksheet[nRenglon,07] = sC07_PaternoSocio
MyWorksheet[nRenglon,08] = sC08_MaternoSocio
MyWorksheet[nRenglon,09] = nC09_Personalidad
MyWorksheet[nRenglon,10] = sC10_GrupoRiesgo
MyWorksheet[nRenglon,11] = sC11_Actividad
MyWorksheet[nRenglon,12] = sC12_FNacimiento
MyWorksheet[nRenglon,13] = sC13_RFC
MyWorksheet[nRenglon,14] = sC14_CURP
MyWorksheet[nRenglon,15] = nC15_EdadSocio
fSaveText (sNombreArchivoCSV, sFileContent)
xlsSave(MyWorksheet, sNombreArchivoXLS)
Info("Proceso concluido", sNombreArchivoCSV,sNombreArchivoXLS )
