Scribd
Upload
41 views

Gerar SapScript PDF Email

This document discusses changes made to generate a PDF and send an email. It includes code for getting communication type and values, converting the communication data, and opening a form. Leandro Marques made additions on 10/10/2006 to include variables and call functions for retrieving recipient and sender for email.

Uploaded by

Leandro Marques
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
41 views

Gerar SapScript PDF Email

This document discusses changes made to generate a PDF and send an email. It includes code for getting communication type and values, converting the communication data, and opening a form. Leandro Marques made additions on 10/10/2006 to include variables and call functions for retrieving recipient and sender for email.

Uploaded by

Leandro Marques
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Se quiser olhar no include o nome dele � ZFM06F02

*** Altera��es necessarias para Gerar PDF e fazer o envio de e-mail

*** Leandro Marques - Inicio inclus�o - 10/10/2006


DATA: LS_SNAST LIKE SNAST,
LF_PROGRAMM TYPE TDPROGRAM,
LS_COMM_TYPE TYPE AD_COMM,
LS_COMM_VALUES TYPE SZADR_COMM_VALUES,
LS_RECIPIENT LIKE SWOTOBJID,
LS_SENDER LIKE SWOTOBJID.
*** Leandro Marques - Fim Inclus�o - 10/10/2006
* ... use stratagy to get communication type
CALL FUNCTION 'ADDR_GET_NEXT_COMM_TYPE'
EXPORTING
STRATEGY = NAST-TCODE
* ADDRESS_TYPE =
ADDRESS_NUMBER = LFA1-ADRNR
* PERSON_NUMBER = addr_key-persnumber
IMPORTING
COMM_TYPE = LS_COMM_TYPE
COMM_VALUES = LS_COMM_VALUES
* TABLES
* STRATEGY_TABLE =
EXCEPTIONS
ADDRESS_NOT_EXIST = 1
PERSON_NOT_EXIST = 2
NO_COMM_TYPE_FOUND = 3
INTERNAL_ERROR = 4
PARAMETER_ERROR = 5
OTHERS = 6.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

* convert communication data


MOVE-CORRESPONDING NAST TO LS_SNAST.
MOVE SY-REPID TO LF_PROGRAMM.
CALL FUNCTION 'CONVERT_COMM_TYPE_DATA'
EXPORTING
PI_COMM_TYPE = LS_COMM_TYPE
PI_COMM_VALUES = LS_COMM_VALUES
* pi_screen = us_screen
* PI_NEWID =
PI_COUNTRY = LFA1-LAND1
PI_REPID = LF_PROGRAMM
PI_SNAST = LS_SNAST
IMPORTING
PE_ITCPO = ITCPO
PE_DEVICE = XDEVICE
PE_MAIL_RECIPIENT = LS_RECIPIENT
PE_MAIL_SENDER = LS_SENDER
EXCEPTIONS
COMM_TYPE_NOT_SUPPORTED = 1
RECIPIENT_CREATION_FAILED = 2
SENDER_CREATION_FAILED = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*** Leandro Marques - Fim da Inclus�o - 10/10/2006

WHEN OTHERS.
XDEVICE = 'PRINTER'.
IF NAST-LDEST EQ SPACE.
XDIALOG = 'X'.
ELSE.
ITCPO-TDDEST = NAST-LDEST.
ENDIF.

ENDCASE.

*- Testausgabe --------------------------------------------------------*
IF XSCREEN NE SPACE.
*- Testausgabe auf Bildschirm -----------------------------------------*
IF NAST-TCODE EQ 'XTST'.
ITCPO-TDPREVIEW = 'X'.
ENDIF.
ENDIF.

** itcpo-tdnoprint = 'X'.
ITCPO-TDCOVER = NAST-TDOCOVER.
ITCPO-TDCOPIES = NAST-ANZAL.
ITCPO-TDDATASET = NAST-DSNAM.
ITCPO-TDSUFFIX1 = NAST-DSUF1.
ITCPO-TDSUFFIX2 = NAST-DSUF2.
ITCPO-TDIMMED = NAST-DIMME.
ITCPO-TDDELETE = NAST-DELET.
ITCPO-TDSENDDATE = NAST-VSDAT.
ITCPO-TDSENDTIME = NAST-VSURA.
ITCPO-TDPROGRAM = SY-REPID.

*** Leandro Marques - Inicio da Inclus�o 10/10/2006


** DISPONIBILIZA FORMULARIO -------------------------------------------*
* Formular festlegen -------------------------------------------------*
CALL FUNCTION 'OPEN_FORM'
EXPORTING FORM = XFORMULAR
LANGUAGE = EKKO-SPRAS
OPTIONS = ITCPO
ARCHIVE_INDEX = TOA_DARA
ARCHIVE_PARAMS = ARC_PARAMS
* ARCHIVE_PARAMS = ALARC_PAR1
DEVICE = XDEVICE
DIALOG = XDIALOG
MAIL_SENDER = LS_SENDER
MAIL_RECIPIENT = LS_RECIPIENT
EXCEPTIONS CANCELED = 01.

You might also like