Issue in function module

Hello Friends,
i have created one Zfunction module in tht i have written code for interactive alv with check boxes.
now when the user selects the checkboxes amd press save button in alv grid display the output gets saved in one internal table in the source code itself but how to show the same output in the output of function module.
i declared the same structure type table in tables parameter of function module but m not getting any output .
pls suggest ....
Regards,
Sunny
Please use a more informative subject
Edited by: Rob Burbank on Feb 24, 2009 11:19 AM

Hi Sunny,
Please ignore my previous post.
I have partially understood your question. I assume that you have the required data in an internal table.
1. If you want it to be displayed in the output (in an internal table), then you can use the statement
itab2[] = itab1[].
where itab1[] is the internal table where you have all the data to be displayed (the one your specified),
itab2[] is the internal table declared in the "TABLES" tab of the function module.
Note: Here itab1 and itab2 should be of same structure.
2. If you want it to be displayed in an ALV format, then you can use the standard function module 'REUSE_ALV_GRID_DISPLAY'

Similar Messages

Issue on Function Module

Hi Gurus
I have an issue with function module, i am passing a filepath to the function module which is like this /temp/folder/AFILE.csv.
to pull the data from application server. When ever it enters to the function module it is changing the file name as /TEMP/FOLDER/AFILE.CSV( it is changing the entire thing to capitol letters), I just want to know that there is any way where i can pass the file path as it is.
Regards
Kumar.

If it is a custom Function module then goto the domain of the file parameter of the FM (if u r using std. domain then change it to a custom domain) and set the lowercase checkbox under Definition tab.
Regards,
Joy.

Issue with Function Module...

Hi Frnzs,
Here is my issue..Plz go thru it..
I have a function module (YFSF_ICR_GET_EXCHG_RATE_ODS).
the function performs the current logic without any changes,
that is reading SPOT rates for actuals (the planning cycle is empty) or S rates
for forecasts based on the planning cycle. Nothing needs to be changed here
concultion : Based on flag I_ICR ni , we have to read new exchange rates ( From ODS)
the fucntion module code is here
FUNCTION yfsf_icr_get_exchg_rate_ods.
""Local interface:
*" IMPORTING
*" REFERENCE(I_PLANCYC) TYPE /BIC/OIYPLANCYC OPTIONAL
*" REFERENCE(I_SALESORG) TYPE /BI0/OISALESORG OPTIONAL
*" REFERENCE(I_IC) TYPE /BIC/OIYINVCURR
*" REFERENCE(I_RC) TYPE /BIC/OIYREPCURR
*" REFERENCE(I_FISCPER) TYPE /BI0/OIFISCPER
*" EXPORTING
*" REFERENCE(E_EXG) TYPE /BI0/OIEXCHG_RATE
*" EXCEPTIONS
*" NO_RATE_FOUND
DATA: l_s_exg TYPE /bic/ayfsfexg00,
l_t_exg TYPE /bic/ayfsfexg00 OCCURS 0,
l_year TYPE /bi0/oifiscyear.
IF i_plancyc IS INITIAL.
Actuals
FREE l_t_exg.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE l_t_exg
FROM /bic/ayfsfexg00
WHERE fiscper <= i_fiscper
AND fiscvarnt = 'JJ'
AND /bic/yrepcurr = i_rc
AND /bic/yinvcurr = i_ic
AND /bic/yplancyc = ''
AND /bic/yexchtype = 'SPOT'
ORDER BY fiscper DESCENDING.
IF sy-subrc <> 0.
RAISE no_rate_found.
ELSE.
READ TABLE l_t_exg INTO l_s_exg INDEX 1.
e_exg = l_s_exg-exchg_rate.
ENDIF.
ELSE.
Forecasts
l_year = i_fiscper+0(4).
SELECT SINGLE *
INTO l_s_exg
FROM /bic/ayfsfexg00
WHERE fiscvarnt = 'JJ'
AND fiscyear = l_year
AND salesorg = i_salesorg
AND /bic/yrepcurr = i_rc
AND /bic/yinvcurr = i_ic
AND /bic/yplancyc = i_plancyc
AND /bic/yplancyc = ''
AND /bic/yexchtype = 'S'
AND exchg_rate GE '0.0000001'.
IF sy-subrc <> 0.
RAISE no_rate_found.
ELSE.
e_exg = l_s_exg-exchg_rate.
ENDIF.
ENDIF.
ENDFUNCTION.
ok
now my requirement is that I need to enhance the Function module for reading exchange rates.
for this i got the following information:
- It requires an additional flag I_ICR for instance that can be empty or 'X'
for instance
- If the flag is empty, the function performs the current logic without any changes,
that is reading SPOT rates for actuals (the planning cycle is empty) or S rates
for forecasts based on the planning cycle. Nothing needs to be changed here
- If the flag is 'X', the function reads a new exchange rate type, let's call
it "ICR". As stated in the requirements and functional specs, these exchange rates
are the Reuter rates valid for a complete year. These are fixed rates so no planning
cycle. The users will enter records in the format (year, reporting currency, invoicing
currency, exchange rate). If the input flag I_ICR is X, the function determines
the year based on the input period, then, based on the year it selects on the same
table as for the other exchange rates with a restriction on exchange rate type "ICR",
year, from and to currency and return the exchange rate
Update rules. There are two:
- To the consolidation ODS. No changes are required there; the function has to
read either S or SPOT rates (I_ICR flag is empty)
- From the consolidation ODS to the cube. As stated in my previous email, the
from currency is the one available in the data package. The to currency is determined by reading the sales organization master data (reporting currency attribute) based on the inter-company sales organization (also available in the incoming record). It then calls the function module above with the parameter I_ICR set to 'X' so it reads the Reuter rates.
I guess i need to create another function module and can be used.
Observation
ODS table fields.
- FISCPER
- FISCVARNT JJ
- FISCYEAR 2006
- /BIC/YREPCURR EUR
- /BIC/YINVCURR JPY
- SALESORG 0010
- /BIC/YMRC 3090
- /BIC/YPLANCYC
- /BIC/YEXCHTYPE S
- - RECORDMODE
Thanx in advance..

Hi Badrinath,
Welcome to SDN,
If i guess right then you are asking the question that whether to include the new functionality in existing function module or not.
You can edit the same function module.
but prefrably u can create a new function module.
you have all the details with you u need to check the condition of I_ICR in calling program and then call the new FM or the old one.
creating new function module will also keep the modularisation and clean code.
Hope this helps

Issue with function module exits

Hi,
execute the T.Code MK01, enter the language 'English' and country 'de'. it's allowing to save the data. I want to raise one pop-up message as 'country and language are not the valid combination please choose right one'. I enhanced in the function module exit. it's raising the message , but it's executing the next screen. how to stop it's first screen and I have to choose the right combination even though I raised message as Error, it's repeating same thing. Please give me any suggestion on this issue.
Thanks & Regards,
Seshu.

I have executed CMOD T.Code, we can find the 'include zxf05u01' program . I wrote the code in this include program. select statement is like this. check the code here.
" select single land1
                       spras
              into wa_t005
             from t005
            where land1 = i_lfa1-land1
            and     spras = I_lfa1-spras.
if sy-subrc <>0.
country &1 and language &2 are not the valid combination.
message e015(zall) with I_lfa1-land1 I_lfa1-spras.
endif."

Issue with function module updated values

Hi Experts,
We have an issue with customized program. In this program function module 'BBP_PD_SC_GETDETAIL' not picking
the updated values when the UI was opened. But when we were executing the same function module directly by providing the values manually it is picking up the correct data.
We thought it was a problem with session killing or buffer refresh ? We dont know how to handle this issue.
If you have any suggestions that would be great help full for me . Please reply asap.
Regards,
Chandu

Hi,
Thanks for your quick reply.
I have passed the values to the function module in the program and also used the same values for manually testing of the function module. Getting the correct values when I was testing manually.
We thought it was a session killing problem as we developed the customized code. So any idea how to refresh the session even
though the UI(User Interface) was opened.
This issue was solved when the UI was closed and opened again.
Any other ideas on this issue ?
Regards,
Chandu

Issue with function module HR_INFOTYPE_OPERATION in badi HRPAD00INFTY

Hello All,
I have a business scenario wherein, when user saves data for infotype 0002 from tcode PA30, i have create a new record for infotype 0105 by copying existing record and just changing the date.
For the same I am using funtion module HR_INFOTYPE_OPERATION inside badi HRPAD00INFTY method AFTER_INPUT.
When I am running the same function module in a independent program, its running fine. But when I run it inside the badi method, it runs with sy-subrc = 0 and no error, but later in the standard program MP000200,in pai module PRE_INPUT_CHECK, it tries to execute this statement     MOVE <namst> TO <subty> and gives dump, with runtime error MOVE_TO_LIT_NOTALLOWED_NODATA and saying that "Error at assignment: Overwritten protected field.".
Have tried all the options of function module HR_INFOTYPE_OPERATION, but nothing is helping.
Kindly let me know if any information on the same.
Best Regards,
Rahul Malani

Have you checked what's in the Subtype field of table T777D for infotype 0002?
IF t777d-namst ne space.                                  "QNOK025939
    MOVE <namst> TO <subty>.
ENDIF.
Usually this sentence won't be executed unless there is something in that field. Usually we don't have subtypes for IT0002.
Also make sure that the infotype that gives the dump is 0002 and not 0105.
Regards.

Flex2.0 issue with function modul

Hi Experts,
I have a problem within the Visual Composer. When I enter a value for a variable and we push the button to run the function module rsr_var_pers_var_set the paramter for the variable is not transferred to the DSO Personalisierungs Daten für Variablen Ersetzung. We have compiled our model with the flex2.0. When we compile the model with the flex1.5 it works. Is this a bug. Is there any workaround for the flex 2.0?
Thanks
Matthias

Hi Amiya,
I have more than 10 variables in the selection screen and I would like to personalize all of them when the user has select or enter his values. Therefore I use the function module RSR_VAR_PERS_VAR_SET. But in the VC model I have to connect for each variable the selection screen with the function module, because I didn`t know if it is possible to call the function module one time for all variables. (When you add the function module to the VC model it`s not possible to enter the parameters for more than one variable.)
Matthias

Issue with function module SO_NEW_DOCUMENT_ATT_SEND_API1

Hi,
I am new to web dynpro abap.In my application ,im using 'SO_NEW_DOCUMENT_ATT_SEND_API1 function module to send mail.
Application is working fine ,but in code inspector im get error like
Undesirable statement SUBMIT !
Plz help me to solve
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = lt_mailsubject
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = lt_packing_list
      contents_bin               = lt_attachment
      contents_txt               = lt_mailtxt
      receivers                  = lt_mailrecipients
    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 EQ 0.
    SUBMIT rsconn01 WITH MODE = 'INT' AND RETURN.
ENDIF.
Edited by: amrutha_prabhu2000 on Mar 29, 2011 6:32 AM

Hi Amrutha and roopa,
Please go through this.. it might solve your problem.
WebDynpro ABAP
Re: how to send an email with an attachment using webdynpros
Cheers,
Kris.

Data alignment issue with function module SO_DOCUMENT_SEND_API1

Hi All,
I am using function SO_DOCUMENT_SEND_API1 to send email from SAP. What is happening is the internal table which contains the data of the email(Content of the email) is ok. That is data in internal table is in proper format as required. This table is passed to FM SO_DOCUMENT_SEND_API1. After execution of this FM, mail is sent but the format of the email content is not the same as the format of the data in internal table.
Can anyone guide me regarding this discrepancy in the data alignment or format in the actual email ?
Thanks in advance.
Regards,
Chetan

Hi,
Pass the values like the following format,
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
    EXPORTING
      document_data = docdata
      put_in_outbox = 'X'
      commit_work    = 'X'
    TABLES
      object_content = objcont
      receivers      = intrcvers[].
CASE int_error.
    WHEN 0.
      MESSAGE s888(sabapdocu) with "Mail Sent Successfully...".
    WHEN OTHERS.
      MESSAGE s888(sabapdocu) with "Mail Not Sent...".
ENDCASE
I hope this will solve your problem.
Gothrough the following link,
https://forums.sdn.sap.com/click.jspa?searchID=14853082&messageID=5409233
Regards,
Harish

Performance issue for this function-module(HR_TIM_REPORT_ABSENCE_DATA)

Hi Friends
I am having performance issue for this function-module(HR_TIM_REPORT_ABSENCE_DATA) and one my client got over 8 thousend employees . This function-module taking forever to read the data. is there any other function-module to read the absences data IT2001 .
I did use like this .if i take out this F.M 'HR_TIM_REPORT_ABSENCE_DATA_INI' its not working other Function-module.please Suggest me .
call function 'HR_TIM_REPORT_ABSENCE_DATA_INI'
exporting "Publishing to global memory
option_string = option_s "string of sel org fields
trig_string = trig_s "string of req data
alemp_flag = sw_alemp "all employee req
infot_flag = space "split per IT neccessary
sel_modus = sw_apa
importing
org_num = fdpos_lines "number of sel org fields
tables
fieldtab = fdtab "all org fields
field_sel = fieldnametab_m. "sel org fields
To Read all infotypes from Absences type.
RP_READ_ALL_TIME_ITY PN-BEGDA PN-ENDDA.
central function unit to provide internal tables: abse orgs empl
call function 'HR_TIM_REPORT_ABSENCE_DATA'
exporting
pernr = pernr-pernr
begda = pn-begda
endda = pn-endda
IMPORTING
SUBRC = SUBRC_RTA
tables
absences = absences_01
org_fields = orgs
emp_fields = empl
REFTAB =
APLTAB =
awart_sel_p = awart_s[]
awart_sel_a = awart_s[]
abstp_sel = abstp_s[]
i0000 = p0000
i0001 = p0001
i0002 = p0002
i0007 = p0007
i2001 = p2001
i2002 = p2002
i2003 = p2003.
Thanks & Regards
Reddy

guessing will not help you much, check with SE30 to get a better insight
SE30
The ABAP Runtime Trace (SE30) - Quick and Easy
what is the total time, what are the Top 10 in the hitlist.
Siegfried

Issue in EP: Function module throwing an exception

Hi Guys,
I have an Issue in EP.....which is a replica of the production system i am working on. I have an excel file to upload. I am using the function module 'text_convert_xls_to_sap' . This is working in Production sytem.
But i am getting an Error" File cannot be processed ".
in portal environment of the same program.
The exception is in the Function Module 'text_convert_xls_to_sap' in the " PERFORM get_spreadsheet_interface USING g_con_excel....".
Here sy-subrc = 1.
Can anyone tell me what exactly is going wrong here?
Thanks,
San
PS:Helpful answers will be rewarded

Hi!
The file is closed when i access. The issue is elsewhere and it is not reading the file...
Thanks,
San

Issue with use of Function Module GUI_UPLOAD

Hi Experts,
I have an issue in using the Function Module GUI_UPLOAD for uploading the contents of an Excel file on the Presentation Server to an internal table in an ABAP Program.
My file consists of around 300 records but the FM succeeds in uploading only the first 6 lines to the Internal Table specified while calling the FM.
I dont have any idea why this happens. Any pointers in this direction will be helpful.
Thanks in advance.
Regards,
Keerthi

Hi,
Kindly go through this link below:
https://wiki.sdn.sap.com/wiki/pages/viewpage.action?pageId=60655105
Hope it helps you
Regards
Mansi

Issue with Delta in Function Module

Hi Team,
I have an issue with delta in Genric extraction using function module.Full load is working fine and i have taken post_date as delta field.plz chk the code if any delta related statements are missing.
FUNCTION ZRSAX_BIW_MANGEMENT_RAT .
""Local interface:
*" IMPORTING
*"     VALUE(I_REQUNR) TYPE SRSC_S_IF_SIMPLE-REQUNR
*"     VALUE(I_DSOURCE) TYPE SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     VALUE(I_INITFLAG) TYPE SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*" TABLES
*"      I_T_SELECT TYPE SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE ZQMBW_FUJ_MANAGEMENT OPTIONAL
*" EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table MANAGEMENT RATING
TABLES: ZQMBW_MANAGEMENT.
Auxiliary Selection criteria structure
DATA: L_S_SELECT TYPE SRSC_S_SELECT.
Maximum number of lines for DB table
STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
counter
          S_COUNTER_DATAPAKID LIKE SY-TABIX,
cursor
          S_CURSOR TYPE CURSOR.
RANGES: POST_DATE FOR ZMMTVEND_RATING-POST_DATE,
          VENDOR FOR ZMMTVEND_RATING-VENDOR.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
IF I_INITFLAG = SBIWA_C_FLAG_ON.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
Check DataSource validity
    CASE I_DSOURCE.
      WHEN 'ZQMMANAGEMENT_DS'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE E009(R3). ENDIF.
this is a typical log call. Please write every error message like this
        LOG_WRITE 'E'                  "message type
                  'R3'                 "message class
                  '009'                "message number
                  I_DSOURCE   "message variable 1
                  ' '.                 "message variable 2
        RAISE ERROR_PASSED_TO_MESS_HANDLER.
    ENDCASE.
    APPEND LINES OF I_T_SELECT TO S_S_IF-T_SELECT.
Fill parameter buffer for data extraction calls
    S_S_IF-REQUNR    = I_REQUNR.
    S_S_IF-DSOURCE = I_DSOURCE.
    S_S_IF-MAXSIZE   = I_MAXSIZE.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF I_T_FIELDS TO S_S_IF-T_FIELDS.
ELSE.                 "Initialization mode or data extraction ?
    IF S_COUNTER_DATAPAKID = 0.
Fill range tables BW will only pass down simple selection criteria
of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'VENDOR'.
        MOVE-CORRESPONDING L_S_SELECT TO VENDOR.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT = VENDOR-LOW
          IMPORTING
            OUTPUT = VENDOR-LOW.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT = VENDOR-HIGH
          IMPORTING
            OUTPUT = VENDOR-HIGH.
        APPEND VENDOR.
      ENDLOOP.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'POST_DATE'.
        MOVE-CORRESPONDING L_S_SELECT TO POST_DATE.
        CONCATENATE L_S_SELECT-LOW6(4) L_S_SELECT-LOW3(2) L_S_SELECT-LOW+0(2) INTO POST_DATE-LOW.
        CONCATENATE L_S_SELECT-HIGH6(4) L_S_SELECT-HIGH3(2) L_S_SELECT-HIGH+0(2) INTO POST_DATE-HIGH.
        APPEND POST_DATE.
      ENDLOOP.
**Get Management rating details
      OPEN CURSOR WITH HOLD S_CURSOR FOR
      SELECT VENDOR POST_DATE OVERALL_MNGT_RAT OVERALL_DEV_RAT FROM ZMMTVEND_RATING WHERE VENDOR IN VENDOR AND POST_DATE IN POST_DATE .
    ENDIF.
Fetch records into interface table.
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.

Hi
Check URLs:
How to populate the ranges using FM for the SELECTs
Re: Generic Delta Function Module

Issue with gui_download function module

Hi All,
         I have an issue with gui_download function module that it is creating one extra line while downloading my internal table data into text file,which i donot want.i have searched for various threads but couldnot get the proper reply.Or please provide me some other Function Module which will not create one extra line.Please help.

part 2
INCLUDE RPPPXD00.
DATA : BEGIN OF COMMON PART A.
INCLUDE RPPPXD10.
DATA : END OF COMMON PART.
INCLUDE PC2RXTW0.
INCLUDE RPC2RX00.
DATA : BEGIN OF COMMON PART B.
INCLUDE RPC2CD00.
DATA : END OF COMMON PART.
INCLUDE RPPPXM00.
INCLUDE RPCMGR00.
AT SELECTION-SCREEN OUTPUT.
CONCATENATE SY-DATUM2(6) SY-UZEIT0(4) INTO REF_NO.
LOOP AT SCREEN.
    IF R1 = 'X'.
      IF SCREEN-NAME = 'FLN' OR SCREEN-NAME = '%_FLN_%_APP_%-TEXT' OR
         SCREEN-NAME = 'BTC' OR SCREEN-NAME = '%_BTC_%_APP_%-TEXT' OR
        SCREEN-NAME = 'PY_DT' OR SCREEN-NAME = '%_PY_DT_%_APP_%-TEXT'"SOC BY ANKITA"
       OR SCREEN-NAME = 'ORG_ID' OR SCREEN-NAME = '%_ORG_ID_%_APP_%-TEXT'
       OR SCREEN-NAME = 'ORG_AC' OR SCREEN-NAME = '%_ORG_AC_%_APP_%-TEXT'
       OR SCREEN-NAME = 'DEPT_CD' OR SCREEN-NAME = '%_DEPT_CD_%_APP_%-TEXT'
       OR SCREEN-NAME = 'REF_NO' OR SCREEN-NAME = '%_REF_NO_%_APP_%-TEXT'
       OR SCREEN-NAME = 'PRS_BNK' OR SCREEN-NAME = '%_PRS_BNK_%_APP_%-TEXT'
       OR SCREEN-NAME = 'TRANS_TY' OR SCREEN-NAME = '%_TRANS_TY_%_APP_%-TEXT'
       OR SCREEN-NAME = 'TRANS_ID' OR SCREEN-NAME = '%_TRANS_ID_%_APP_%-TEXT'
       OR SCREEN-NAME = 'TRANS_RK' OR SCREEN-NAME = '%_TRANS_RK_%_APP_%-TEXT'."EOC BY ANKITA
        SCREEN-ACTIVE = 0.
      ENDIF.
    ENDIF.
    IF R2 = 'X'.
      IF SCREEN-NAME = 'FLN' OR SCREEN-NAME = '%_FLN_%_APP_%-TEXT' OR
         SCREEN-NAME = 'BTC' OR SCREEN-NAME = '%_BTC_%_APP_%-TEXT' OR
         SCREEN-NAME = 'PREPBY' OR SCREEN-NAME = '%_PREPBY_%_APP_%-TEXT'
         OR SCREEN-NAME = 'APROBY' OR SCREEN-NAME = '%_APROBY_%_APP_%-TEXT'
         OR SCREEN-NAME = 'PY_DT' OR SCREEN-NAME = '%_PY_DT_%_APP_%-TEXT' "SOC BY ANKITA
         OR SCREEN-NAME = 'ORG_ID' OR SCREEN-NAME = '%_ORG_ID_%_APP_%-TEXT'
         OR SCREEN-NAME = 'ORG_AC' OR SCREEN-NAME = '%_ORG_AC_%_APP_%-TEXT'
         OR SCREEN-NAME = 'DEPT_CD' OR SCREEN-NAME = '%_DEPT_CD_%_APP_%-TEXT'
         OR SCREEN-NAME = 'REF_NO' OR SCREEN-NAME = '%_REF_NO_%_APP_%-TEXT'
         OR SCREEN-NAME = 'PRS_BNK' OR SCREEN-NAME = '%_PRS_BNK_%_APP_%-TEXT'
         OR SCREEN-NAME = 'TRANS_TY' OR SCREEN-NAME = '%_TRANS_TY_%_APP_%-TEXT'
         OR SCREEN-NAME = 'TRANS_ID' OR SCREEN-NAME = '%_TRANS_ID_%_APP_%-TEXT'
         OR SCREEN-NAME = 'TRANS_RK' OR SCREEN-NAME = '%_TRANS_RK_%_APP_%-TEXT'."EOC BY ANKITA
        SCREEN-ACTIVE = 0.
      ENDIF.
    ENDIF.
    IF R3 = 'X'.
      IF SCREEN-NAME = 'PREPBY' OR SCREEN-NAME = '%_PREPBY_%_APP_%-TEXT'
        OR SCREEN-NAME = 'APROBY' OR SCREEN-NAME = '%_APROBY_%_APP_%-TEXT'
        OR SCREEN-NAME = 'PY_DT' OR SCREEN-NAME = '%_PY_DT_%_APP_%-TEXT' "SOC BY ANKITA
        OR SCREEN-NAME = 'ORG_ID' OR SCREEN-NAME = '%_ORG_ID_%_APP_%-TEXT'
        OR SCREEN-NAME = 'ORG_AC' OR SCREEN-NAME = '%_ORG_AC_%_APP_%-TEXT'
        OR SCREEN-NAME = 'REF_NO' OR SCREEN-NAME = '%_REF_NO_%_APP_%-TEXT'
        OR SCREEN-NAME = 'DEPT_CD' OR SCREEN-NAME = '%_DEPT_CD_%_APP_%-TEXT'
        OR SCREEN-NAME = 'PRS_BNK' OR SCREEN-NAME = '%_PRS_BNK_%_APP_%-TEXT'
        OR SCREEN-NAME = 'TRANS_TY' OR SCREEN-NAME = '%_TRANS_TY_%_APP_%-TEXT'
        OR SCREEN-NAME = 'TRANS_ID' OR SCREEN-NAME = '%_TRANS_ID_%_APP_%-TEXT'
        OR SCREEN-NAME = 'TRANS_RK' OR SCREEN-NAME = '%_TRANS_RK_%_APP_%-TEXT'."EOC BY ANKITA
        SCREEN-ACTIVE = 0.
      ENDIF.
    ENDIF.
    IF R4 = 'X'.
      IF SCREEN-NAME = 'PREPBY' OR SCREEN-NAME = '%_PREPBY_%_APP_%-TEXT'"SOC BY ANKITA
         OR SCREEN-NAME = 'APROBY' OR SCREEN-NAME = '%_APROBY_%_APP_%-TEXT'
         OR SCREEN-NAME = 'BTC' OR SCREEN-NAME = '%_BTC_%_APP_%-TEXT'."EOC BY ANKITA
        SCREEN-ACTIVE = 0.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
START-OF-SELECTION.
SELECT SINGLE * FROM T549Q WHERE PERMO = '01'
                             AND   PABRJ = PRD+0(4)
                             AND   PABRP = PRD+4(2).
FR_DT = T549Q-BEGDA.
TO_DT = T549Q-ENDDA.
CONCATENATE FR_DT0(4) FR_DT4(2) INTO FR_P.
CONCATENATE TO_DT0(4) TO_DT4(2) INTO TO_P.
PN-PAPER = PRD.
PN-PERMO = '01'.
GET PERNR.
RP-PROVIDE-FROM-LAST P0003 SPACE PN-BEGDA PN-ENDDA.
RP_PROVIDE_FROM_LAST P0001 SPACE PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND EQ 1.
   SN = SN + 1.
   ITAB1-SNO = SN.
   ITCC-SNO = SN.
    ITAB1-ENO = PERNR-PERNR.
    ITAB1-NAM = PERNR-ENAME.
ELSE.
    REJECT.
ENDIF.
RP-INIT-BUFFER.
RP-SEL-CALC.
CALL FUNCTION 'RP_EVALUATION_PERIODS'
    EXPORTING
      LAST_CALCULATED_DAY = P0003-ABRDT
      LAST_DAY_IN_PERIOD = TO_DT
      RETROCALCULATED_DAY = RP-SEL-CALC-RRDAT
    TABLES
      DIR                 = RGDIR
      EVP                 = EVP
    EXCEPTIONS
      RGDIR_EMPTY         = 1
      INTERNAL_ERROR      = 2
      OTHERS              = 3.
DESCRIBE TABLE EVP LINES LIN.
IF LIN > 0.
    LOOP AT EVP.
      IF EVP-IAPER = TO_P AND EVP-PAPER = TO_P.
        RX-KEY-PERNR = PERNR-PERNR.
        UNPACK EVP-SEQNR TO RX-KEY-SEQNO.
        RP-IMP-C2-TN.
        READ TABLE BT INDEX 1.
        READ TABLE WPBP INDEX 1.
        READ TABLE TAX INDEX 1."CHANGES BY ANKITA
        ITAB1-BAC = BT-BANKN.
        ITAB1-BKEY = BT-BANKL .
        ITAB1-DEP = WPBP-KOSTL.
        ITAB1-BETRG = BT-BETRG."CHANGES BY ANKITA
        ITAB1-TAXID = TAX-TAXID."CHANGES BY ANKITA
        YEAR = VERSC-PAYDT+0(4) - 11.
        MONTH = VERSC-PAYDT+4(2).
        DAY = VERSC-PAYDT+6(2).
        CONCATENATE YEAR MONTH DAY INTO ITAB1-PDT.
       ITAB1-PDT = VERSC-PAYDT - 110000.
        ITCC-DEP = WPBP-KOSTL.
        LOOP AT RT WHERE LGART = '/559'.
          ITAB1-BTFR = RT-BETRG.
          ITCC-BTFR = RT-BETRG.
         IF EVP-SRTZA = 'P'.
           ITAB1-BTFR = ITAB1-BTFR - RT-BETRG.
         ELSE.
           ITAB1-BTFR = ITAB1-BTFR + RT-BETRG.
         ENDIF.
        ENDLOOP.
      ENDIF.
    ENDLOOP.
ENDIF.
APPEND: ITAB1, ITCC.
CLEAR: ITAB1, ITCC.
END-OF-SELECTION.
CONCATENATE 'Prepared By:' ` ` PREPBY INTO PREPBY.
CONCATENATE 'Approved By:' ` ` APROBY INTO APROBY.
IF R1 = 'X'.
    FORMAT COLOR 2.
    ULINE (127).
    NEW-LINE.
    WRITE: 2 'Sr No.', 10 'Emp Num', 27 'Name'.
    WRITE: 57 'Department'.
    WRITE: 72 ' Transfer Amount' RIGHT-JUSTIFIED.
    WRITE: 92 'Bank Key', 107 'Bank AC. Number'.
    WRITE:1 '|', 8 '|', 25 '|', 55 '|', 70 '|', 90 '|', 105 '|', 127 '|'.
    NEW-LINE.
    ULINE (127).
    NEW-LINE.
    FORMAT COLOR OFF.
    LOOP AT ITAB1.
      SN = SY-TABIX.
      WRITE: 2 SN, 10 ITAB1-ENO, 27 ITAB1-NAM.
      WRITE: 57 ITAB1-DEP.
      WRITE: 72 ITAB1-BTFR.
      WRITE: 92 ITAB1-BKEY, 107 ITAB1-BAC.
      WRITE: 1 '|', 8 '|', 25 '|', 55 '|', 70 '|', 90 '|', 105 '|', 127 '|'.
      ULINE (127).
      NEW-LINE.
    ENDLOOP.
    SKIP 4.
    ULINE 90(32).
    NEW-LINE.
    WRITE: 90 PREPBY.
    SKIP 4.
    ULINE 90(32).
    NEW-LINE.
    WRITE: 90 APROBY.
ENDIF.
IF R2 = 'X'.
    LOOP AT ITCC.
      COLLECT ITCC INTO ITCOL.
    ENDLOOP.
    FORMAT COLOR 2.
    ULINE (44).
    NEW-LINE.
    WRITE:2 'Sr No.', 9 'Department'.
    WRITE: 27 'Transfer Amount ' RIGHT-JUSTIFIED.
    WRITE:1 '|', 8 '|', 25 '|', 44 '|'.
    NEW-LINE.
    ULINE (44).
    NEW-LINE.
    FORMAT COLOR OFF.
    LOOP AT ITCOL.
      SN = SY-TABIX.
      WRITE: 2 SN, 9 ITCOL-DEP, 27 ITCOL-BTFR.
      WRITE:1 '|', 8 '|', 25 '|', 44 '|'.
      NEW-LINE.
      ULINE (44).
      NEW-LINE.
    ENDLOOP.
ENDIF.
IF R3 = 'X'.
    LOOP AT ITAB1.
      CLEAR: ITTF, P3, P11, P13, P6, V_BAC.
      LEN = STRLEN( ITAB1-BKEY ).
      IF LEN < 3.
        CONCATENATE ITAB1-BKEY '***' INTO P3.
      ELSE.
      LEN = LEN - 3.
        LEN = 3.
        P3 = ITAB1-BKEY+LEN(3).
      ENDIF.
      CLEAR LEN.
      V_BAC = ITAB1-BAC.
      REPLACE ALL OCCURRENCES OF '-' IN ITAB1-BAC WITH ''.
      CONDENSE ITAB1-BAC NO-GAPS.
      LEN = STRLEN( ITAB1-BAC )."if length of acc num > limit
      IF LEN > 11.
        IT_FAIL-EN = ITAB1-ENO.
        IT_FAIL-BA = V_BAC.
        APPEND IT_FAIL.
        CLEAR: IT_FAIL.
        CONTINUE.
      ENDIF.
      P11 = ITAB1-BAC.
      CONCATENATE P11 '***********' INTO P11.
above step is for putting '' in place of unfilled chars of P11.
      P13 = ITAB1-BTFR * 100.
      P6 = ITAB1-PDT+2(6).
      CONCATENATE ` ` P3 P11 BTC P13 P6 INTO STR.
      ITTF-ROW = STR.
      APPEND ITTF.
    ENDLOOP.
    IF ITTF[] IS NOT INITIAL.
      CONCATENATE FLN SY-DATUM SY-UZEIT '.txt' INTO FILEPATH.
      CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME                        = FILEPATH
        FILETYPE                        = 'ASC'
     WRITE_FIELD_SEPARATOR           = 'X'
        TABLES
        DATA_TAB                        = ITTF
     OTHERS                          = 22
      SKIP 2.
      IF SY-SUBRC <> 0.
        WRITE:/ 'Unable to Download file at ', FILEPATH.
      ELSE.
        WRITE:/ 'File with following data downloaded at ', FILEPATH.
        NEW-LINE.
        SKIP 2.
        LOOP AT ITTF.
          WRITE:/ ITTF.
        ENDLOOP.
      ENDIF.
    ELSE.
      WRITE 'No Data, no file was downloaded'.
    ENDIF.
    IF IT_FAIL[] IS NOT INITIAL.
      SKIP 2.
      FORMAT COLOR 2.
      WRITE 'Acc. No. of following employees exceeded the length limit'.
      WRITE:/ 'So their entry was not created in the file'.
      SKIP 1.
      WRITE : 'Employee Number', 20 'Bank Acc. No.'.
      FORMAT COLOR OFF.
      LOOP AT IT_FAIL.
        NEW-LINE.
        WRITE : IT_FAIL-EN, 20 IT_FAIL-BA.
      ENDLOOP.
    ENDIF.
ENDIF.
IF R4 = 'X'."CHANGES BY ANKITA
    WRITE:/ 'ERROR LOG - BANK A/C NO. CONTAINS ALPHANUMERIC'.
    WRITE:/ 'EMPID' COLOR COL_POSITIVE,12 '|',15 'Receiving Bank Code' COLOR COL_POSITIVE,
                                                                  40 '|','Receiver A/C No' COLOR COL_POSITIVE.
    PERFORM EXTRACT_DATA.
    SKIP 2.
ENDIF."EOC
RP-READ-PAYROLL-DIR.
Edited by: ANKITA BHARDWAJ on Dec 9, 2009 10:36 AM

Function Module GUI_DOWNLOAD: Type String Issue

I am working in 4.6C. I have used this Function Module many times in the past without issue, but not at this site. It abends and gives me the error message:
The call to the function module "GUI_DOWNLOAD" is incorrect:
The function module interface allows you to specify only fields
of a particular type under "FILENAME". The field "FNAME" specified here
has a different field type.
Here is the field declaration in the code:
PARAMETER: fname type rlgrap-filename DEFAULT 'C:/New_PO_Format.xls'.
The import parameter in GUI_DOWNLOAD for FILENAME is type STRING. When I double click on STRING in the FM I get "Unable to find a tool to process request". And, TYPE STRING does not exist in the system? I started making a Z version of GUI_DOWNLOAD, but it started giving me headaches because I had to start copying other SAP function modules.
Am I missing something? Or, is there a new and improved version of GUI_DOWNLOAD to use?

data : v_file type string.
PARAMETER: fname type rlgrap-filename DEFAULT 'C:/New_PO_Format.xls'.
start-of-selection.
v_file = fname.
use v_file in gui_download parameter.
Thanks
Seshu

Issue in function module

Similar Messages

Maybe you are looking for