Ay que ... simplificarnos la vida...
Lang = SCH_SESSION!Root_Session.LANGUAGE
SAV_PARAMS!SAV_PARAMS.RET_VALUE("INSTALLATION","DIRECTORIES","TEMPLATES")
Path =SAV_PARAMS!FINAL_RETURN[0].APP_VALUE File= Path + "Templates\" + ToString(Format(Lang,0))+"\" + "PREST_SERV_SOC.XLS"
'APERTURA
DEL EXCEL
EXCEL!EXCEL.StartExcel()
EXCEL!EXCEL_WORKBOOKS.OpenWorkbook(File)
EXCEL!EXCEL_WORKSHEETS.GetWorksheet(1)
FILA=2
COLUMNA=1
FOR J=0 TO TO
MOVETO(J)
EXCEL!EXCEL_CELLS.GetCell(FILA,COLUMNA)
EXCEL!EXCEL_CELLS.Value(UNIDAD_ADMIN)
EXCEL!EXCEL_CELLS.GetCell(FILA,COLUMNA+1)
EXCEL!EXCEL_CELLS.Value(UNIDAD_RESPONSBLE)
EXCEL!EXCEL_CELLS.GetCell(FILA,COLUMNA+2)
EXCEL!EXCEL_CELLS.Value(NUMERO_PRESTADORES)
EXCEL!EXCEL_CELLS.GetCell(FILA,COLUMNA+3)
EXCEL!EXCEL_CELLS.Value(CARRERA)
EXCEL!EXCEL_CELLS.GetCell(FILA,COLUMNA+4)
EXCEL!EXCEL_CELLS.Value(today())
FILA=FILA+1
NEXT
ENDIF
