Ver Mensaje Individual
  #3  
Viejo 24/07/08, 14:54:46
ibecerra
 
Mensajes: n/a
Hola haber si te entendi, lo que deseas es generar un reporte pero que te visualize una pantalla en excel.
utiliza la siguiente funcion

Hola utiliza lo siguiente funcion
DATA: BEGIN OF F_CAMPOS OCCURS 40,
FIELD(60),
END OF F_CAMPOS.
DATA: F_PIVOT LIKE EXCELPIVOT OCCURS 10 WITH HEADER LINE.

*----puede tener cualquier campo
DATA: BEGIN OF T_EXCEL OCCURS 0,
RAZON_SOCIAL(72) TYPE C, "KNA1-NAME1
APELLIDO_PA(24) TYPE C,"MOVER ESPACIO
APELLIDO_MA(24) TYPE C,"MOVER ESPACIO
TIPDOC(1) TYPE C,
NUMIDENT(15) TYPE C,"NRO DOC DE IDENTIDAD
NUMLETRA(12) TYPE C,"REFERENCIA DEL REPORTE
FECVEC(6) TYPE C,"FEC VENCIMIENTO DDMMAA
IMPORTE LIKE ZTB_CARTA_P-WRBTR ,"IMP REPORTE 11.2
END OF T_EXCEL.


DATA:
W_HOJA LIKE RLGRAP-FILENAME
VALUE 'Estructura para banco',
XPATH LIKE RLGRAP-FILENAME VALUE 'C:\WINDOWS '.
CLEAR F_CAMPOS.
FREE F_CAMPOS.
F_CAMPOS = 'Razón Social '.
APPEND F_CAMPOS.
F_CAMPOS = 'Apellido Paterno '. APPEND F_CAMPOS.
F_CAMPOS = 'Apellido Materno '. APPEND F_CAMPOS.
F_CAMPOS = 'T. de Documento de Ident.'. APPEND F_CAMPOS.
F_CAMPOS = 'Nro de Documento de ident.'. APPEND F_CAMPOS.
F_CAMPOS = 'Nro de Letra'. APPEND F_CAMPOS.
F_CAMPOS = 'Fecha de vencimiento'. APPEND F_CAMPOS.
F_CAMPOS = 'Importe'. APPEND F_CAMPOS.

*-- Nombre de Hoja ..
W_HOJA = 'Reporte'.

MS_EXCEL_OLE_STANDARD_DAT


CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
EXPORTING
FILE_NAME = XPATH
CREATE_PIVOT = ' '
DATA_SHEET_NAME = W_HOJA
PIVOT_SHEET_NAME = W_HOJA
PASSWORD = ' '
PASSWORD_OPTION = 0
TABLES
PIVOT_FIELD_TAB = F_PIVOT
DATA_TAB = T_EXCEL
FIELDNAMES = F_CAMPOS
EXCEPTIONS
FILE_NOT_EXIST = 1
FILENAME_EXPECTED = 2
COMMUNICATION_ERROR = 3
OLE_OBJECT_METHOD_ERROR = 4
OLE_OBJECT_PROPERTY_ERROR = 5
INVALID_FILENAME = 6
INVALID_PIVOT_FIELDS = 7
DOWNLOAD_PROBLEM = 8
Responder Con Cita