DEFINE VARIABLE chExcel AS COM-HANDLE.
DEFINE VARIABLE chWorkbook AS COM-HANDLE.
DEFINE VARIABLE chWorksheet AS COM-HANDLE.
DEF INPUT PARAMETER ficha AS INT NO-UNDO.
CREATE "Excel.Application" chExcel.
chExcel:VISIBLE = FALSE.
chWorkbook = chExcel:Workbooks:Add(1).
ASSIGN
chWorkSheet = chExcel:Sheets:ITEM(1).
chWorkSheet:COLUMNS("C" + ":XFD"):HIDDEN = true.
chWorksheet:Range('A1'):ColumnWidth = 17.71.
chWorksheet:Range('A6:B16'):FONT:Bold = True.
chWorksheet:Range('A6:B31'):FONT:NAME = "Arial".
chWorksheet:Range('B1'):HorizontalAlignment = 1.
chWorksheet:Range('B1:B18'):ColumnWidth = 14.29.
chWorksheet:Range('A6:B6'):FONT:SIZE = 12.
chWorksheet:Range('A6:B6'):HorizontalAlignment = 1.
chWorksheet:Range('A7:B8'):FONT:SIZE = 12.
chWorksheet:Range('A7:B8'):HorizontalAlignment = 3.
chWorksheet:Range('A7:B8'):VerticalAlignment = 3.
chWorksheet:Range('A9:B10'):FONT:SIZE = 12.
chWorksheet:Range('A15:B20'):FONT:SIZE = 11.
chWorksheet:Range('A15:B20'):FONT:Bold = True.
chWorkSheet:range('A23:B29'):FONT:Bold = True.
chWorkSheet:range('A25:A29'):Font:Size = 10.
chWorkSheet:range('A25:A29'):Font:Size = 10.
FIND FIRST empleado WHERE Empleado.ficha = ficha NO-LOCK NO-ERROR.
IF AVAILABLE empleado THEN
FIND FIRST Area WHERE area.area = empleado.area NO-LOCK NO-ERROR.
IF AVAILABLE area THEN
FIND FIRST Categos WHERE Categos.catego = Empleado.catego NO-LOCK NO-ERROR.
IF AVAILABLE Categos THEN
FIND FIRST Tabula WHERE Categos.nivel = Tabula.nivel NO-LOCK NO-ERROR.
IF AVAILABLE Tabula THEN
FIND FIRST Deptos WHERE Deptos.depa = Empleado.depa NO-LOCK NO-ERROR.
IF AVAILABLE Deptos THEN
FIND FIRST Beneficiarios WHERE Beneficiarios.ficha = Empleado.ficha NO-LOCK NO-ERROR.
IF AVAILABLE Beneficiarios THEN
FIND FIRST Datos_emp WHERE Datos_emp.ficha = Empleado.ficha NO-LOCK NO-ERROR.
IF AVAILABLE Datos_emp THEN
chWorksheet:Range('A6'):VALUE = "No. Emp" + " " + STRING(Empleado.ficha).
chWorkSheet:range('A6'):Interior:Color = -3407872.
chWorkSheet:range('A6'):FONT:COLOR = -460552.
chWorkSheet:range('A6'):FONT:Italic = true.
chWorkSheet:range('A7:B8'):FONT:COLOR = -460552. /*Color Blanco*/
chWorkSheet:range('A7:B8'):MERGE.
chWorksheet:Range('A7:B8'):VALUE = "ADMINISTRACIÓN".
chWorkSheet:range('A7:B8'):Interior:Color = 16737792. /*Color Azul cielo*/
/*chWorkSheet:range('A8'):FONT:COLOR = -460552. /*Color Blanco*/
chWorkSheet:range('A8:B8'):MERGE.*/
chWorksheet:Range('A9'):VALUE = Empleado.nombre.
chWorkSheet:range('A9'):Font:Italic = true.
chWorksheet:Range('A10'):VALUE = Empleado.ape_pat + " " + Empleado.ape_mat.
chWorkSheet:range('A10'):Font:Italic = true.
chWorksheet:Range('A11'):VALUE = Categos.desc_cat.
chWorksheet:Rows("13:14"):RowHeight = 10.
chWorksheet:Range('A15'):VALUE = "PROYECTO: 428234811".
chWorksheet:Rows("16"):RowHeight = 22.
chWorksheet:Rows("17:18"):RowHeight = 10.
chWorksheet:Range('A19'):VALUE = "VIGENCIA".
chWorksheet:Range('A20'):VALUE = "31/01/2015".
chWorkSheet:Shapes:AddPicture("C:\nom_v10\smc_carm\Iconos\logoSMC.JPG", FALSE, TRUE, 1.64, 1.076, 95, 75):VISIBLE = TRUE.
chWorkSheet:Shapes:AddPicture("C:\nom_v10\smc_carm\Fotos\" + "SMC" + STRING(empleado.ficha) + ".JPG", FALSE, TRUE, 101.12, 1.05, 80, 90):VISIBLE = TRUE.
/*Arriba, Abajo, Ancho, Alto*/
chWorkSheet:Shapes:AddPicture("C:\nom_v10\smc_carm\Iconos\pie_rojo1.JPG", FALSE, TRUE, 98.12, 254.76, 78, 65):VISIBLE = TRUE.
/*Arriba, Abajo, Ancho, Alto*/
chWorkSheet:Shapes:AddPicture("C:\nom_v10\smc_carm\Iconos\pie_rojo2.JPG", FALSE, TRUE, 6.95, 298.76, 90.75, 21):VISIBLE = TRUE.