topic Smartforms error in Application Development and Automation Discussions

Smartforms error

Former Member — Tue, 27 Nov 2007 14:31:17 GMT

Hi experts

i did a print prg for sending the pdf attachment by smartforms.

but it's getting dumpped,this is my code

plz help me,its urgent.

i checked even SDN Forums also.i made some changes,

even though i don't get the output.

it shows not matching the I_OBJBIN in "SO_NEW_DOCUMENT_ATT_SEND_API1" function module.

REPORT ZCS_SF6.

Internal Table declarations

DATA: i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,

i_tline TYPE TABLE OF tline WITH HEADER LINE, i_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE, i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE,

Objects to send mail.

i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,

i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,

i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,

i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,

Work Area declarations

w_objhead TYPE soli_tab,

w_ctrlop TYPE ssfctrlop,

w_compop TYPE ssfcompop,

w_return TYPE ssfcrescl,

w_doc_chng typE sodocchgi1,

w_data TYPE sodocchgi1,

w_buffer TYPE string,

Variables declarations

v_form_name TYPE rs38l_fnam,

v_len_in LIKE sood-objlen,

v_len_out LIKE sood-objlen,

v_len_outn TYPE i,

v_lines_txt TYPE i,

v_lines_bin TYPE i.

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

formname = 'ZCS_FORM6'

importing

fm_name = v_form_name

exceptions

no_form = 1

no_function_module = 2

others = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

w_ctrlop-getotf = 'X'.

w_ctrlop-no_dialog = 'X'.

w_compop-tdnoprev = 'X'.

CALL FUNCTION v_form_name

EXPORTING

ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =

CONTROL_PARAMETERS = W_CTRLOP

MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =

OUTPUT_OPTIONS = W_COMPOP

USER_SETTINGS = 'X'

IMPORTING

DOCUMENT_OUTPUT_INFO =

JOB_OUTPUT_INFO = W_RETURN

JOB_OUTPUT_OPTIONS =

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

i_otf[] = w_return-otfdata[].

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

format = 'PDF'

max_linewidth = 132

LINES-TDLINE

IMPORTING

bin_filesize = v_len_in

TABLES

otf = i_otf

lines = i_tline

EXCEPTIONS

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 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.

Convert PDF from 132 to 255.

LOOP AT i_tline.

Replacing space by ~

TRANSLATE i_tline USING '~'.

CONCATENATE w_buffer i_tline INTO w_buffer.

ENDLOOP.

Replacing ~ by space

TRANSLATE w_buffer USING '~'.

DO.

i_record = w_buffer.

Appending 255 characters as a record

APPEND i_record.

SHIFT w_buffer LEFT BY 255 PLACES.

IF w_buffer IS INITIAL.

EXIT.

ENDIF.

ENDDO.

Attachment

Refresh: i_reclist,

i_objtxt,

i_objbin,

i_objpack.

clear w_objhead.

Object with PDF.

i_objbin[] = i_record[].

*******DESCRIBE TABLE i_objbin LINES v_lines_bin.

Object with main text of the mail.

i_objtxt = 'Find attached the output of the smart form.'.

APPEND i_objtxt.

*i_objtxt = 'Regards,'.

*APPEND i_objtxt.

*i_objtxt = 'Chandu'.

*APPEND i_objtxt.

DESCRIBE TABLE i_objtxt LINES v_lines_txt.

read table i_objtxt index v_lines_txt.

Document information.

w_doc_chng-obj_name = 'Smartform'.

w_doc_chng-expiry_dat = sy-datum + 10.

w_doc_chng-obj_descr = 'Smart form output'.

w_doc_chng-sensitivty = 'F'.

w_doc_chng-doc_size = v_lines_txt * 255.

Pack to main body as RAW.

CLEAR i_objpack-transf_bin.

i_objpack-head_start = 1.

i_objpack-head_num = 0.

i_objpack-body_start = 1.

i_objpack-body_num = v_lines_txt.

i_objpack-doc_type = 'RAW'.

APPEND i_objpack.

Packing as PDF.

i_objpack-transf_bin = 'X'.

i_objpack-head_start = 1.

i_objpack-head_num = 1.

i_objpack-body_start = 1.

describe table i_objbin lines v_lines_bin.

read table i_objbin index v_lines_bin.

i_objpack-doc_size = v_lines_bin * 255.

i_objpack-body_num = v_lines_bin.

i_objpack-doc_type = 'PDF'.

i_objpack-obj_name = 'Smartform'.

i_objpack-obj_descr = 'sf output'

APPEND i_objpack.

Document information.

CLEAR i_reclist.

e-mail receivers.

i_reclist-receiver = 'chandrasekhar.valluri@eds.com'.

*i_reclist-express = 'X'. "Send express

i_reclist-rec_type = 'U'.

APPEND i_reclist.

Sending mail.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = w_doc_chng

put_in_outbox = 'X'

TABLES

packing_list = i_objpack

object_header = w_objhead

contents_hex = i_objbin

contents_txt = i_objtxt

receivers = i_reclist

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

OTHERS = 8.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

points wl be rewarded,if it is useful

thanks in advance.

Re: Smartforms error

Former Member — Tue, 27 Nov 2007 14:36:27 GMT

HI,

Here is the complete program for you.. I have done the same requirment..

----

*
P R O G R A M D E C L A R A T I O N *
*

----

PROGRAM ID : ZF_QUERY_BANK
AUTHOR : Mahesh Raganmoni
OWNER(Process Team) :
CREATE DATE : 03/04/2004
R/3 RELEASE VERSION : 4.72
BASED-ON PROGRAM : none
ADS : BP14.B&CF.301
DESCRIPTION : This program calles the Bank Query Smartform
and sends this smartforms as an email to the
bank

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

MODIFICATION LOG CONTROL (Most recent on top):
DATE AUTHOR CTS REQ DESCRIPTION

----

*09/13/2004 Mahesh Raganmoni DR1K901766 Original Version *

----

T A B L E S *

----

TABLES : BUT021, "BP: Address usages

BUT020, "BP: Addresses

T001, "Company Codes

DFKKZP, "Payment lot: Data for payment

BUT000, "BP: General data I

ADR3, "Fax Numbers (Business Address Services)

BNKA, "Bank master record

T012. "House Banks

----

Internal Tables *

----

*Address Details of Business Partner

DATA :IT_ADDRESS LIKE STANDARD TABLE OF BUS020_EXT WITH HEADER LINE.

*Return Table

DATA : IT_RETURN LIKE STANDARD TABLE OF BAPIRET2.

PDF Data to hold the data to be sent as an attachment

DATA : IT_PDF_NUC_DATA TYPE STANDARD TABLE OF SOLI.

Converted data from OTF

DATA : IT_PDF_TABLE TYPE RCL_BAG_TLINE.

Data Declaration for Sendig Email

DATA: IT_OBJPACK LIKE SOPCKLSTI1 OCCURS 1 WITH HEADER LINE,

IT_OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE,

IT_OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,

IT_OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,

IT_OBJHEX LIKE SOLIX OCCURS 10 WITH HEADER LINE,

IT_RECLIST LIKE SOMLRECI1 OCCURS 1 WITH HEADER LINE,

IT_LISTOBJECT LIKE ABAPLIST OCCURS 1 WITH HEADER LINE.

----

Structures *

----

DATA :WA_BUS000 TYPE BUS000_EXT, "Business Partner Details

WA_ADDRESS TYPE BAPIADDR3, "Collector Address

WA_OUTPUT_OPTIONS TYPE SSFCOMPOP,

WA_CONTROL_PARAMETERS TYPE SSFCTRLOP,

WA_OUTPUT_DATA TYPE SSFCRESCL,

WA_HEADER TYPE ZFCOLL_HEADER, "Smartform Header Info

WA_DFKKZP TYPE DFKKZP,

WA_DOCDATA LIKE SODOCCHGI1.

----

Variables *

----

DATA : W_FORMNAME TYPE TDSFNAME, "Smartform Name

W_NAME_ORG TYPE CHAR35, "Business Partner Name

W_ADDRNUMBER LIKE BUT021-ADDRNUMBER, "Address Number of BP

W_ADDRESS1 TYPE CHAR35, "Address Line 1

W_ADDRESS2 TYPE CHAR35, "Address Line 2

W_ADDRESS3 TYPE CHAR35, "Address Line 3

W_GE_NAME TYPE CHAR35, "GE Contact Name

W_GE_PHONE TYPE CHAR35, "GE Contact Phone

W_GE_PHONE1 TYPE CHAR35, "GE Contact Phone

W_GE_PHONE_EX TYPE CHAR10, "GE Contact Phone

W_GE_EMAIL TYPE CHAR35, "GE Contact Email

W_CLIENT_NAME TYPE CHAR30, "Client Name

W_GE_FAX TYPE CHAR35, "GE Fax No

W_GE_FAX1 TYPE CHAR35, "GE Fax No

W_CLIENT_FAX TYPE CHAR35, "Client's Fax No

W_PDF_LEN TYPE I, "Length of PDF file

W_ERR_MESG(120) TYPE C, "Error Message

W_ORG1R LIKE DFKKCR-ORG1R, "Company Code

W_REFERENCE LIKE DFKKCR-REFERENCE, "Payment Reference

W_FNAME TYPE RS38L_FNAM, "Smartform Function Module

" Name

W_SFNAME TYPE TDSFNAME, " Smart Form Name

W_BANKN TYPE CHAR18, "Bank Account Number

W_BETRZ TYPE CHAR15, " Credit AMount

W_WAERS TYPE CHAR5, " Credit Currency

W_VALUT TYPE DFKKZP-VALUT. " Value Date

VARIABLES FOR EMAIL

DATA: W_TAB_LINES TYPE I,

W_DOC_SIZE TYPE I,

W_ATT_TYPE LIKE SOODK-OBJTP,

W_DATFM TYPE XUDATFM.

VARIABLES FOR DATE

DATA: W_DAY(2) TYPE C,

W_MONTH(2) TYPE C,

W_YEAR(4) TYPE C,

W_DATE(10) TYPE C.

*----

Constants *

*----

DATA : C_SELECTED TYPE C VALUE 'X', "Constant for Checked

C_COMMA(2) TYPE C VALUE ', ',"Constant for Comma

C_HYPHEN TYPE C VALUE '-'. "Constant for Hypen

*----

Selection Screen *

*----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: P_KEYZ1 TYPE RFKZ0-KEYZ1 OBLIGATORY, "Payment Lot

P_POSZA TYPE DFKKZP-POSZA OBLIGATORY. "Item Number

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS: P_REMIT TYPE C AS CHECKBOX DEFAULT 'X', " Remitter Form

P_GENRL TYPE C AS CHECKBOX USER-COMMAND RG1, " General Form

P_TEXT TYPE AD_SMTPADR MODIF ID SC1. " Free Text

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

PARAMETERS:P_MAIL TYPE C AS CHECKBOX USER-COMMAND RG2, "Send Email

P_MAILID TYPE AD_SMTPADR MODIF ID SC2.

SELECTION-SCREEN END OF BLOCK b3.

*----

Initialization *

*----

WA_OUTPUT_OPTIONS-XDFCMODE = 'X'.

WA_OUTPUT_OPTIONS-XDF = SPACE.

WA_OUTPUT_OPTIONS-XSFCMODE = 'X'.

WA_OUTPUT_OPTIONS-XDF = SPACE.

*----

At Selection Screen Output *

*----

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'SC1'.

IF P_GENRL = C_SELECTED.

SCREEN-INPUT = 1.

ELSE.

CLEAR P_TEXT.

SCREEN-INPUT = 0.

ENDIF.

IF SCREEN-GROUP1 = 'SC2'.

IF P_MAIL = C_SELECTED.

SCREEN-INPUT = 1.

ELSE.

CLEAR P_MAILID.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

AT SELECTION-SCREEN.

IF P_REMIT NE C_SELECTED AND P_GENRL NE C_SELECTED.

MESSAGE E004 WITH TEXT-004.

ENDIF.

*----

Start of selection *

*----

START-OF-SELECTION.

IF P_GENRL EQ C_SELECTED.

IF P_TEXT IS INITIAL.

MESSAGE I004 WITH TEXT-023.

STOP.

ENDIF.

IF P_MAIL EQ C_SELECTED.

IF P_MAILID IS INITIAL.

MESSAGE I004 WITH TEXT-005.

STOP.

ENDIF.

**Getting Payment Lot and Payment Lot number

PERFORM GET_PAYMENT_DETAILS.

IF NOT WA_DFKKZP IS INITIAL.

Getting the Bank Details

PERFORM GET_BANK_DETAILS.

**Getting the Ge Contact Details

PERFORM GET_GE_CONTACT_DETAILS .

Populating the Structure fields to pass to smartform

PERFORM FILL_EXPORT_STRUCTURES.

CLEAR W_FNAME.

Getting the Function Module name for the Smartform

IF P_REMIT EQ C_SELECTED AND P_GENRL NE C_SELECTED.

W_SFNAME = 'ZF_REMITTER_FORM'.

PERFORM GET_FORMNAME .

ELSEIF P_REMIT NE C_SELECTED AND P_GENRL EQ C_SELECTED.

W_SFNAME = 'ZF_GENERAL_FORM'.

PERFORM GET_FORMNAME .

ELSEIF P_REMIT EQ C_SELECTED AND P_GENRL EQ C_SELECTED.

W_SFNAME = 'ZF_QUERY_BANK_FORM'.

PERFORM GET_FORMNAME .

ENDIF.

IF NOT W_FNAME IS INITIAL.

PERFORM CALL_FORM.

IF P_MAIL EQ 'X'.

IF NOT P_MAILID IS INITIAL.

PERFORM SET_PARAMETERS.

PERFORM DEVICE_TYPE.

PERFORM CALL_FORM.

PERFORM CONVERT_TO_PDF.

PERFORM CONVERT_PDF_TO_BINARY.

PERFORM SEND_MAIL_NO_DISPLAY.

ENDIF.

&----

*& Form GET_FORMNAME

&----

Fetch the Function module name for the Smartform

----

FORM GET_FORMNAME .

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = W_SFNAME

IMPORTING

FM_NAME = W_FNAME

EXCEPTIONS

NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " GET_FORMNAME

&----

*& Form CALL_FORM

&----

To Call the Smartform

----

FORM CALL_FORM .

SHIFT W_BETRZ LEFT DELETING LEADING SPACE.

CALL FUNCTION W_FNAME

EXPORTING

CONTROL_PARAMETERS = WA_CONTROL_PARAMETERS

OUTPUT_OPTIONS = WA_OUTPUT_OPTIONS

USER_SETTINGS = 'X'

S_HEADER = WA_HEADER

V_ACNO = W_BANKN

V_AMOUNT = W_BETRZ

V_CURR = W_WAERS

V_DATE = W_VALUT

V_TEXT = P_TEXT

IMPORTING

JOB_OUTPUT_INFO = WA_OUTPUT_DATA

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " CALL_FORM

&----

*& Form FILL_EXPORT_STRUCTURES

&----

Populate the structure to send to the smartform as input

----

FORM FILL_EXPORT_STRUCTURES .

WA_HEADER-BANKA = BNKA-BANKA.

WA_HEADER-ADDR_1 = BNKA-STRAS.

WA_HEADER-ADDR_2 = BNKA-ORT01.

WA_HEADER-ADDR_3 = BNKA-PROVZ.

WA_HEADER-ZZSRCBPNM = T012-NAME1.

SHIFT WA_HEADER-ZZSRCBPNM LEFT DELETING LEADING SPACE.

WA_HEADER-FAX_NUMBER = W_CLIENT_FAX.

WA_HEADER-BUTXT = T001-BUTXT.

WA_HEADER-NAME1 = W_GE_NAME.

WA_HEADER-TEL_NUMBER = W_GE_PHONE.

WA_HEADER-TEL_EXTENS = W_GE_PHONE_EX.

WA_HEADER-SMTP_ADDR = W_GE_EMAIL.

WA_HEADER-GE_FAX_NUMBER = W_GE_FAX.

ENDFORM. " FILL_EXPORT_STRUCTURES

&----

*& FORM CONVERT_TO_PDF

&----

Convert the final doucment (OTF FORMAT) into pdf format

----

FORM CONVERT_TO_PDF .

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

FORMAT = 'PDF'

IMPORTING

BIN_FILESIZE = W_PDF_LEN

TABLES

OTF = WA_OUTPUT_DATA-OTFDATA

LINES = IT_PDF_TABLE

EXCEPTIONS

ERR_MAX_LINEWIDTH = 1

ERR_FORMAT = 2

ERR_CONV_NOT_POSSIBLE = 3

ERR_BAD_OTF = 4

OTHERS = 5.

ENDFORM. " CONVERT_TO_PDF

&----

*& FORM SET_PARAMETERS

&----

Set control parameters to get the output format (OTF) from smart form*

----

FORM SET_PARAMETERS .

WA_CONTROL_PARAMETERS-NO_DIALOG = 'X'.

WA_CONTROL_PARAMETERS-GETOTF = 'X'.

WA_CONTROL_PARAMETERS-LANGU = SY-LANGU.

ENDFORM. " SET_PARAMETERS

&----

*& FORM DEVICE_TYPE

&----

Get the Device type

----

FORM DEVICE_TYPE .

CALL FUNCTION 'SSF_GET_DEVICE_TYPE'

EXPORTING

I_LANGUAGE = WA_CONTROL_PARAMETERS-LANGU

IMPORTING

E_DEVTYPE = WA_OUTPUT_OPTIONS-TDPRINTER

EXCEPTIONS

NO_LANGUAGE = 1

LANGUAGE_NOT_INSTALLED = 2

NO_DEVTYPE_FOUND = 3

SYSTEM_ERROR = 4

OTHERS = 5.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " DEVICE_TYPE

&----

*& FORM CONVERT_PDF_TO_BINARY

&----

To convert PDF file to Binary format

----

FORM CONVERT_PDF_TO_BINARY .

CALL FUNCTION 'QCE1_CONVERT'

TABLES

T_SOURCE_TAB = IT_PDF_TABLE

T_TARGET_TAB = IT_PDF_NUC_DATA

EXCEPTIONS

CONVERT_NOT_POSSIBLE = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " CONVERT_PDF_TO_BINARY

&----

*& FORM SEND_MAIL_NO_DISPLAY

&----

To send a email

----

FORM SEND_MAIL_NO_DISPLAY .

DATA: L_SLINE(255) TYPE C,

L_INDEX TYPE SY-TABIX.

IT_OBJBIN[] = IT_PDF_NUC_DATA[].

Title and Description of the mail

WA_DOCDATA-OBJ_DESCR = TEXT-012.

Mail Body content

PERFORM MAIL_BODY.

DESCRIBE TABLE IT_OBJTXT LINES W_TAB_LINES.

READ TABLE IT_OBJTXT INDEX W_TAB_LINES INTO L_SLINE.

L_INDEX = W_TAB_LINES + 1.

WA_DOCDATA-DOC_SIZE = ( W_TAB_LINES ) * 255 + STRLEN( L_SLINE ).

WA_DOCDATA-OBJ_EXPDAT = '29991231'.

WA_DOCDATA-SENSITIVTY = 'O'.

WA_DOCDATA-OBJ_PRIO = '5'.

WA_DOCDATA-EXPIRY_DAT = '29991231'.

WA_DOCDATA-PROC_TYPE = 'R'.

CLEAR IT_OBJPACK-TRANSF_BIN .

IT_OBJPACK-HEAD_START = 0.

IT_OBJPACK-HEAD_NUM = 0.

IT_OBJPACK-BODY_START = 1.

IT_OBJPACK-BODY_NUM = W_TAB_LINES.

IT_OBJPACK-DOC_TYPE = 'RAW'.

IT_OBJPACK-OBJ_DESCR = TEXT-013.

APPEND IT_OBJPACK.

Create message attachment

W_ATT_TYPE = 'PDF'.

DESCRIBE TABLE IT_OBJBIN LINES W_TAB_LINES.

READ TABLE IT_OBJBIN INDEX W_TAB_LINES.

L_INDEX = W_TAB_LINES + 1.

IT_OBJPACK-DOC_SIZE = ( W_TAB_LINES ) * 255 .

IT_OBJPACK-TRANSF_BIN = 'X'.

IT_OBJPACK-HEAD_START = 0.

IT_OBJPACK-HEAD_NUM = 0.

IT_OBJPACK-BODY_START = 1.

IT_OBJPACK-BODY_NUM = W_TAB_LINES.

IT_OBJPACK-DOC_TYPE = W_ATT_TYPE.

IT_OBJPACK-OBJ_DESCR = TEXT-013.

APPEND IT_OBJPACK.

Create receiver list

IT_RECLIST-RECEIVER = P_MAILID. "<-- CHANGE ADDRESS

IT_RECLIST-REC_TYPE = 'U'.

IT_RECLIST-EXPRESS = 'X'.

APPEND IT_RECLIST.

Send Email

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = WA_DOCDATA

PUT_IN_OUTBOX = 'X'

COMMIT_WORK = 'X' "USED FROM REL.6.10

TABLES

PACKING_LIST = IT_OBJPACK

CONTENTS_BIN = IT_OBJBIN

CONTENTS_TXT = IT_OBJTXT

RECEIVERS = IT_RECLIST

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

DOCUMENT_TYPE_NOT_EXIST = 3

OPERATION_NO_AUTHORIZATION = 4

PARAMETER_ERROR = 5

X_ERROR = 6

ENQUEUE_ERROR = 7

OTHERS = 8.

IF SY-SUBRC <> 0.

MESSAGE ID 'SO' TYPE 'S' NUMBER '023'

WITH WA_DOCDATA-OBJ_NAME.

ELSE.

SUBMIT RSCONN01 WITH MODE = 'INT' AND RETURN.

SET SCREEN 0.

ENDIF.

ENDFORM. " SEND_MAIL_NO_DISPLAY

&----

*& Form GET_PAYMENT_DETAILS

&----

Get the Payment Lot and Payment Number

----

FORM GET_PAYMENT_DETAILS .

Get the Payment Lot and Payment Number

SELECT SINGLE BETRZ

BVRKO

BUKRS

WAERS

VALUT

BANKS

BANKL

BANKN

FROM DFKKZP

INTO (WA_DFKKZP-BETRZ,WA_DFKKZP-BVRKO,

WA_DFKKZP-BUKRS,WA_DFKKZP-WAERS,WA_DFKKZP-VALUT,

WA_DFKKZP-BANKS,WA_DFKKZP-BANKL,WA_DFKKZP-BANKN)

WHERE KEYZ1 = P_KEYZ1

AND POSZA = P_POSZA.

IF SY-SUBRC NE 0.

MESSAGE I004 WITH TEXT-100.

EXIT.

ELSE.

W_ORG1R = WA_DFKKZP-BUKRS.

W_BETRZ = WA_DFKKZP-BETRZ.

W_BANKN = WA_DFKKZP-BANKN.

W_WAERS = WA_DFKKZP-WAERS.

W_VALUT = WA_DFKKZP-VALUT.

ENDIF.

ENDFORM. " GET_PAYMENT_DETAILS

&----

*& Form GET_BANK_DETAILS

&----

To Retrive the Bank Details

----

FORM GET_BANK_DETAILS .

*Get the Bank Address Details

SELECT SINGLE BANKA

STRAS

ORT01

PROVZ

FROM BNKA

INTO (BNKA-BANKA,BNKA-STRAS,BNKA-ORT01,BNKA-PROVZ)

WHERE BANKS = WA_DFKKZP-BANKS

AND BANKL = WA_DFKKZP-BANKL.

IF SY-SUBRC NE 0.

MESSAGE I004 WITH TEXT-101.
EXIT.

ENDIF.

GET The Bank Contact Name.

SELECT SINGLE NAME1

FROM T012

INTO T012-NAME1

WHERE BANKS = WA_DFKKZP-BANKS

AND BANKL = WA_DFKKZP-BANKL.

IF SY-SUBRC NE 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF NOT W_ORG1R IS INITIAL.

Get the GE Legal Entity Name

SELECT SINGLE BUTXT FROM T001

INTO T001-BUTXT

WHERE BUKRS = W_ORG1R.

IF SY-SUBRC NE 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " GET_BANK_DETAILS

&----

*& Form GET_COLLECTOR_DETAILS

&----

To get the Collector Address Details

----

FORM GET_GE_CONTACT_DETAILS .

*Getting the Collector details

CALL FUNCTION 'BAPI_USER_GET_DETAIL'

EXPORTING

USERNAME = SY-UNAME

IMPORTING

ADDRESS = WA_ADDRESS

TABLES

RETURN = IT_RETURN.

IF NOT WA_ADDRESS IS INITIAL.

CONCATENATE WA_ADDRESS-FIRSTNAME0(18) WA_ADDRESS-LASTNAME0(17)

INTO W_GE_NAME SEPARATED BY SPACE.

W_GE_PHONE = WA_ADDRESS-TEL1_NUMBR.

W_GE_PHONE_EX = WA_ADDRESS-TEL1_EXT.

W_GE_EMAIL = WA_ADDRESS-E_MAIL.

IF NOT WA_ADDRESS-FAX_EXTENS IS INITIAL.

CONCATENATE WA_ADDRESS-FAX_NUMBER C_HYPHEN WA_ADDRESS-FAX_EXTENS

INTO W_GE_FAX.

ELSE.

W_GE_FAX = WA_ADDRESS-FAX_NUMBER.

ENDIF.

ENDFORM. " GET_GE_CONTACT_DETAILS

&----

*& Form MAIL_BODY

&----

To Build the email body

----

FORM MAIL_BODY .

PERFORM GET_USER_DATE_FORMAT.

W_YEAR = W_VALUT+0(4).

W_MONTH = W_VALUT+4(2).

W_DAY = W_VALUT+6(2).

PERFORM GET_DATE.

IF P_REMIT EQ 'X' .

CONCATENATE TEXT-020 WA_HEADER-ZZSRCBPNM ',' INTO IT_OBJTXT-LINE

SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-021 WA_HEADER-BUTXT ',' TEXT-022

INTO IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

SHIFT W_BETRZ LEFT DELETING LEADING SPACE.

CONCATENATE TEXT-024 W_DATE

TEXT-025 W_BETRZ W_WAERS TEXT-026

INTO IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = TEXT-027.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = WA_HEADER-NAME1.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-028 WA_HEADER-BUTXT INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = TEXT-029.

APPEND IT_OBJTXT.

CONCATENATE TEXT-030 W_GE_FAX INTO IT_OBJTXT-LINE

SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-031 W_GE_PHONE TEXT-035 W_GE_PHONE_EX INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-032 WA_HEADER-SMTP_ADDR INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-033 WA_HEADER-BUTXT INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

ELSEIF P_GENRL EQ 'X'.

CLEAR IT_OBJTXT.

REFRESH IT_OBJTXT.

CONCATENATE TEXT-020 WA_HEADER-ZZSRCBPNM ',' INTO IT_OBJTXT-LINE

SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-021 WA_HEADER-BUTXT '.'

INTO IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-034 P_TEXT '.'

INTO IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = TEXT-027.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = WA_HEADER-NAME1.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-028 WA_HEADER-BUTXT INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = TEXT-029.

APPEND IT_OBJTXT.

CONCATENATE TEXT-030 W_GE_FAX INTO IT_OBJTXT-LINE

SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-031 W_GE_PHONE TEXT-035 W_GE_PHONE_EX INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-032 WA_HEADER-SMTP_ADDR INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

ELSEIF ( P_REMIT EQ 'X' AND P_GENRL EQ 'X' ).

CONCATENATE TEXT-020 WA_HEADER-ZZSRCBPNM ',' INTO IT_OBJTXT-LINE

SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-021 WA_HEADER-BUTXT ',' TEXT-022

INTO IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

SHIFT W_BETRZ LEFT DELETING LEADING SPACE.

CONCATENATE TEXT-024 W_DATE TEXT-025 W_BETRZ W_WAERS TEXT-026

INTO IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = TEXT-027.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = WA_HEADER-NAME1.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-028 WA_HEADER-BUTXT INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

IT_OBJTXT-LINE = TEXT-029.

APPEND IT_OBJTXT.

CONCATENATE TEXT-030 W_GE_FAX INTO IT_OBJTXT-LINE

SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-031 W_GE_PHONE TEXT-035 W_GE_PHONE_EX INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-032 WA_HEADER-SMTP_ADDR INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

CONCATENATE SPACE SPACE SPACE INTO IT_OBJTXT-LINE.

APPEND IT_OBJTXT.

CONCATENATE TEXT-033 WA_HEADER-BUTXT INTO

IT_OBJTXT-LINE SEPARATED BY SPACE.

APPEND IT_OBJTXT.

ENDIF.

ENDFORM. " MAIL_BODY

&----

*& Form get_user_date_format

&----

to get the User Date Format from USR01 table

----

FORM GET_USER_DATE_FORMAT.

CLEAR W_DATFM.

SELECT SINGLE DATFM INTO W_DATFM

FROM USR01

WHERE BNAME = SY-UNAME.

ENDFORM. " get_user_date_format

&----

*& Form GET_DATE

&----

Get the date in the user format

----

FORM GET_DATE .

CLEAR W_DATE.

CASE W_DATFM.

WHEN '1'.

CONCATENATE W_DAY '.' W_MONTH '.' W_YEAR INTO W_DATE.

WHEN '2'.

CONCATENATE W_MONTH '/' W_DAY '/' W_YEAR INTO W_DATE.

WHEN '3'.

CONCATENATE W_MONTH '-' W_DAY '-' W_YEAR INTO W_DATE.

WHEN '4'.

CONCATENATE W_YEAR '.' W_MONTH '.' W_DAY INTO W_DATE.

WHEN '5'.

CONCATENATE W_YEAR '/' W_MONTH '/' W_DAY INTO W_DATE.

WHEN '6'.

CONCATENATE W_YEAR '-' W_MONTH '-' W_DAY INTO W_DATE.

ENDCASE.

ENDFORM. " GET_DATE

Thanks

Mahesh