function module DSVAS_MSWORD_SAVE

Former Member — Fri, 04 Nov 2005 19:23:37 GMT

Hi all,

I'm in the need of finding a function that converts a

spool file into word then I want to download the file to

my pc.

I found this function module DSVAS_MSWORD_SAVE. within the import parameters it has a session number. If any of u have use this function can you tell me what goes in this parameter.

Thanks in advanced,

Fidel Peralta

Re: function module DSVAS_MSWORD_SAVE

Former Member — Fri, 04 Nov 2005 19:25:05 GMT

see below example

ZSPOOL2WORD

Genera un fichero Word a partir de una orden de spool

************************************************************************

MÓDULO : FI *
TIPO : Listado *
TITULO : Generación fichero Word
DESCRIPCION : Genera un fichero Word a partir de una orden de spool

AUTOR: Andres Picazo FECHA: 24/03/2003 *
MODIFICACIONES *
-------------- *
FECHA NOMBRE DESCRIPCION *
-------------------------------------------------------------------- *

************************************************************************

REPORT ZSPOOL2WORD

NO STANDARD PAGE HEADING

LINE-COUNT 065

LINE-SIZE 080.

INCLUDE OLE2INCL.

*----~~TABLAS/ESTRUCTURAS~~--

*----~~TABLAS INTERNAS~~--

DATA I_BUFFER(132) OCCURS 1000000 WITH HEADER LINE.

*----~~VARIABLES~~--

*----~~PARAMETER/SELECT-OPTIONS EN PANTALLA~~--

SELECTION-SCREEN BEGIN OF BLOCK BLK_PAR WITH FRAME TITLE TEXT-SEL. "Pará

PARAMETERS: P_SPOOL LIKE TSP01-RQIDENT OBLIGATORY.

SELECTION-SCREEN END OF BLOCK BLK_PAR.

SELECTION-SCREEN BEGIN OF BLOCK BLK_WOR WITH FRAME TITLE TEXT-WOR.

PARAMETERS: P_WORD AS CHECKBOX DEFAULT 'X'.

PARAMETERS: P_FWOR LIKE RLGRAP-FILENAME DEFAULT 'C:MAYOR.DOC'.

PARAMETERS: P_PLAN LIKE RLGRAP-FILENAME

DEFAULT 'D:DATOSAPISMAYORPLANTILLA LIBRO MAYOR.DOC'.

SELECTION-SCREEN END OF BLOCK BLK_WOR.

SELECTION-SCREEN BEGIN OF BLOCK BLK_FIC WITH FRAME TITLE TEXT-FIC.

PARAMETERS: P_CTXT AS CHECKBOX DEFAULT ''.

PARAMETERS: P_FTXT LIKE RLGRAP-FILENAME DEFAULT 'C:MAYOR.TXT'.

SELECTION-SCREEN END OF BLOCK BLK_FIC.

************************************************************************

LOGICA DEL PROGRAMA

************************************************************************

*----

INITIALIZATION

*----

INITIALIZATION.

*----

START-OF-SELECTION.

*----

START-OF-SELECTION.

PERFORM LEER_SPOOL.

IF NOT P_CTXT IS INITIAL.

PERFORM GRABA_FICHERO.

ENDIF.

IF NOT P_WORD IS INITIAL.

PERFORM LANZA_WORD.

ENDIF.

************************************************************************

FORMS ADICIONALES

************************************************************************

*&----

*& Form LEER_SPOOL

*&----

Lee la orden de spool en el buffer

*----

FORM LEER_SPOOL.

CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB'

EXPORTING

RQIDENT = P_SPOOL

FIRST_LINE = 1

LAST_LINE = 9999999

TABLES

BUFFER = I_BUFFER

EXCEPTIONS

NO_SUCH_JOB = 1

NOT_ABAP_LIST = 2

JOB_CONTAINS_NO_DATA = 3

SELECTION_EMPTY = 4

NO_PERMISSION = 5

CAN_NOT_ACCESS = 6

READ_ERROR = 7

OTHERS = 8.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'Error' SY-SUBRC

'al leer la orden de spool' P_SPOOL.

ENDIF.

ENDFORM. " LEER_SPOOL

*&----

*& Form GRABA_FICHERO

*&----

Graba el contenido del spool a fichero de texto.

*----

FORM GRABA_FICHERO.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

BIN_FILESIZE = ' '
CODEPAGE = ' '

FILENAME = P_FTXT

FILETYPE = 'ASC'

MODE = ' '
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
COL_SELECT = ' '
COL_SELECTMASK = ' '
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = I_BUFFER

FIELDNAMES =

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_WRITE_ERROR = 2

INVALID_FILESIZE = 3

INVALID_TABLE_WIDTH = 4

INVALID_TYPE = 5

NO_BATCH = 6

UNKNOWN_ERROR = 7

GUI_REFUSE_FILETRANSFER = 8

OTHERS = 9.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'Error' SY-SUBRC

'al grabar el fichero' P_FTXT.

ENDIF.

ENDFORM. " GRABA_FICHERO

*&----

*& Form LANZA_WORD

*&----

Abre la plantilla de Word y pega el contenido del portapapeles.

*----

FORM LANZA_WORD.

DATA: WORDAPP TYPE OLE2_OBJECT,

DOCUMENT TYPE OLE2_OBJECT,

SELECTION TYPE OLE2_OBJECT.

Copia el contenido del buffer en el portapeles

CALL FUNCTION 'CLPB_EXPORT'

TABLES

DATA_TAB = I_BUFFER

EXCEPTIONS

CLPB_ERROR = 1

OTHERS = 2.

Abre Word

CREATE OBJECT WORDAPP 'word.application'.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'No se ha podido abrir el Word'.

ENDIF.

Lo pone en visible

SET PROPERTY OF WORDAPP 'Visible' = 1.

Cogemes el objeto documento

CALL METHOD OF WORDAPP 'Documents' = DOCUMENT.

Abrimos el fichero plantilla

IF P_PLAN IS INITIAL.

CALL METHOD OF DOCUMENT 'Add'.

ELSE.

CALL METHOD OF DOCUMENT 'Open' EXPORTING #1 = P_PLAN.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'Error al leer el fichero plantilla'.

ENDIF.

Coge el objeto selección

CALL METHOD OF WORDAPP 'Selection' = SELECTION.

Pega el contenido del portapapeles

CALL METHOD OF SELECTION 'Paste'.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'Error al pegar contenido del portapapeles'.

ENDIF.

Graba el fichero

CALL METHOD OF WORDAPP 'ActiveDocument' = DOCUMENT.

CALL METHOD OF DOCUMENT 'SaveAs' EXPORTING #1 = P_FWOR.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'Error al grabar el nuevo documento'.

ENDIF.

Cierra Word

CALL METHOD OF WORDAPP 'Quit'.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'Error al cerrar Word'.

ENDIF.

ENDFORM. " LANZA_WORD

topic function module DSVAS_MSWORD_SAVE in Application Development and Automation Discussions

function module DSVAS_MSWORD_SAVE

Re: function module DSVAS_MSWORD_SAVE