Output error

[Former Member]

Hi,

Below is my code : When I execute this it is not displaying any data. Right now I don't want the values to be displayed in ALV just normal report.

&----

---

*& Report ZTESTING1

*&

&----

---

*&

*&

&----

---

REPORT ZTESTING1.

TABLES:

SSCRFIELDS, " Fields on selection screens

BSIS, " Accounting: Secondary Index for G/L Accounts

BSEG, " Accounting Document Segment

BKPF, " Accounting Document Header

SKA1, " G/L Account Master (Chart of Accounts)

T001A, " Add. Local Currencies Ctrl for Company Code

TCURR. " Exchange Rates

----

---

• DATA DECLARATIONS

----

---

INCLUDE <ICON>.

----

---

• ALV grid reporting data *

----

---

TYPE-POOLS: SLIS.

----

---

• DATA DECLARATIONS

----

---

CONSTANTS: GC_FX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_FXACCT',

GC_CTA_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_CTAACCT',

GC_ICFX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_ICFXACCT'.

DATA: GV_SET_LINE_COUNTER TYPE I,

GV_FX_ACCOUNT LIKE BSEG-HKONT,

GV_CTA_ACCOUNT LIKE BSEG-HKONT,

GV_ICFX_ACCOUNT LIKE BSEG-HKONT,

GT_SET_VALUES LIKE RGSBV OCCURS 0 WITH HEADER LINE.

DATA : DATUM TYPE SY-DATUM .

• ALV Grid structures

DATA: GT_FIELDCAT TYPE LVC_T_FCAT,

GS_FIELDCAT TYPE LVC_S_FCAT,

GT_EVENTS TYPE SLIS_T_EVENT,

GS_EVENTS TYPE SLIS_ALV_EVENT,

GT_EXTAB TYPE SLIS_T_EXTAB,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GS_LINE TYPE SLIS_LISTHEADER,

GT_SELFIELD TYPE SLIS_SELFIELD.

DATA: GT_RSPARAMS TYPE TABLE OF RSPARAMS.

• Data for ALV variant

DATA GV_REPNAME LIKE SY-REPID.

DATA GV_X_VARIANT LIKE DISVARIANT.

DATA GV_EXIT(1) TYPE C.

DATA GV_SAVE(1) TYPE C.

DATA GV_VARIANT LIKE DISVARIANT.

DATA GV_STATUS TYPE SLIS_FORMNAME VALUE 'F_STANDARD_02'.

• Internal table for BSIS data

DATA : BEGIN OF GT_FXENTRIES OCCURS 0,

HKONT LIKE BSIS-HKONT, " GL Accnt

BUKRS LIKE BSIS-BUKRS, " Company Code

MONAT LIKE BSIS-MONAT, " Period

BLART LIKE BSIS-BLART, " Doc. Type

WRBTR LIKE BSIS-WRBTR, " Amt. in DC

WAERS LIKE BSIS-WAERS, " Doc. Currency

DMBTR LIKE BSIS-DMBTR, " Amt in Local Currency

DMBE2 LIKE BSIS-DMBE2, " Amt in Global Currency

PRCTR LIKE BSIS-PRCTR, " Profit Center

BELNR LIKE BSIS-BELNR, " Doc. Number

GJAHR LIKE BSIS-GJAHR, " Year

BUDAT LIKE BSIS-BUDAT, " Posting Date

VBUND LIKE BSIS-VBUND, " Trading Partner

PPRCT LIKE BSIS-PPRCT, " Partner Profit Center

KOSTL LIKE BSIS-KOSTL, " Cost Center

PROJK LIKE BSIS-PROJK, " WBS Element

END OF GT_FXENTRIES.

• Internal table for SKAT (GL Description)

DATA : BEGIN OF GT_GLTEXT OCCURS 0,

SAKNR LIKE SKAT-SAKNR, " GL Number

TXT50 LIKE SKAT-TXT50, " GL Description

END OF GT_GLTEXT.

• Internl table for bseg for Auto Posting

DATA : BEGIN OF GT_BSEG OCCURS 0,

XAUTO LIKE BSEG-XAUTO, " Auto Post

END OF GT_BSEG.

*Internal table for BKPF Document header for user name

DATA : BEGIN OF GT_DOCHEADER OCCURS 0,

USNAM LIKE BKPF-USNAM, " User Name

END OF GT_DOCHEADER.

*Internal table for Group Currency

DATA : BEGIN OF GT_GRPCURR OCCURS 0,

MANDT LIKE T000-MANDT, " Client specific

MWAER LIKE T000-MWAER, " group currency

END OF GT_GRPCURR.

• Final Internal table for display

DATA : BEGIN OF GT_FINALFX OCCURS 0.

INCLUDE STRUCTURE GT_FXENTRIES.

INCLUDE STRUCTURE GT_GLTEXT.

INCLUDE STRUCTURE GT_BSEG.

INCLUDE STRUCTURE GT_DOCHEADER.

INCLUDE STRUCTURE GT_GRPCURR.

DATA : END OF GT_FINALFX.

----

---

*Selection Screen

----

---

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : SO_BUKRS FOR BSIS-BUKRS," Company Code

SO_GJAHR FOR BSIS-GJAHR DEFAULT SY-DATUM(4). " Fiscal

" Year

PARAMETERS : SP_MONAT LIKE BSIS-MONAT. " Period

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.

PARAMETERS : SP_WAERS LIKE BSIS-WAERS, " Amt in Document Currency

SP_BLART LIKE BSIS-BLART. " Document Type

SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.

PARAMETERS SP_VBUND LIKE BSIS-VBUND. "Trading Partner

SELECTION-SCREEN END OF BLOCK B3.

SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.

SELECT-OPTIONS : SO_HKONT FOR BSIS-HKONT. "G/L Account Number

PARAMETERS : SP_FX RADIOBUTTON GROUP RADI , " Foreign Exchange

SP_CTA RADIOBUTTON GROUP RADI, " Cummulative Translation

" Adj

SP_IC_FX RADIOBUTTON GROUP RADI, " Inter Co. FX

SP_XAUTO AS CHECKBOX USER-COMMAND FLAG. " Auto Post System

SELECTION-SCREEN END OF BLOCK B4.

----

---

• INITIALIZATION

*----

---

INITIALIZATION.

• PERFORM F_PRIOR_PERIOD.

----

---

• EVENT: AT SELECTION-SCREEN.

----

---

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

• A T S E L E C T I O N S C R E E N

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

• Process After Input (PAI)

• Validating selection screen fields

AT SELECTION-SCREEN.

• PERFORM F_VALIDATE_GLACCOUNT.

----

---

• EVENT: START-OF-SELECTION

----

---

START-OF-SELECTION.

*G/L Account validation in the selection screen

• IF SP_FX = 'X' AND SP_XAUTO NE 'X'.

PERFORM F_FX_WITH_AUTOPOST.

• ENDIF.

&----

---

*& Form F_FX_WITH_AUTOPOST

&----

---

• SELECT THE DATA BASING ON THE FOREIGN EXCHANGE AND SYSTEM AUTO

• POSTING

----

---

FORM F_FX_WITH_AUTOPOST.

SELECT HKONT BUKRS MONAT BLART WRBTR WAERS DMBTR

WAERS DMBE2 PRCTR BELNR GJAHR

BUDAT VBUND PPRCT KOSTL PROJK

FROM BSIS

INTO CORRESPONDING FIELDS

OF table GT_FXENTRIES WHERE BUKRS IN SO_BUKRS

AND GJAHR IN SO_GJAHR

AND MONAT = SP_MONAT

AND WAERS = SP_WAERS

AND BLART = SP_BLART

AND VBUND = SP_VBUND

AND HKONT IN SO_HKONT.

LOOP AT GT_FXENTRIES.

WRITE : / GT_FXENTRIES-HKONT, GT_FXENTRIES-BUKRS.

ENDLOOP.

ENDFORM. "F_FX_WITH_AUTOPOST

Please help me out.

Thanks.

Message was edited by: Pavan Panduru

[Former Member]

Hi pavan,

1. Since u have used PARAMETERS

in your selection screen,

(and there = for the sql)

2. We have to PUT some data in the

parameters

3. If we leave the parameter BLANK,

it will not fetch any record.

4. Hence,

a) either put appropriate data in all parameteres,

b) conver them to select-options,

and hence, use IN in the sql

(if we use select-option / In,

the data will come even if the select-option

is blank, in such blank means all)

regards,

amit m.

[Former Member]

Hi,

Please can you check on debug mode if any data is being populated in your internal table from the select clause?

[Former Member]

Hi,

when I debug the program, no data is populated into Internal table.

Please help me out.

Thanks,

Pavan.

[Laxmana_Appana_]

Hi,

Check the internal table data in debug mode , select statement bringing the values from the tables are not.

OR

Go to the table BSIS in se16 and pass the same selection screen input values at table fields in SE16 and check , for the given input any data exist in your system or not.

Regards

Appana

Message was edited by: L Appana

[Former Member]

hi pavan,

problem is with the where condition. since i commented the where clause.

REPORT  ZTESTING1  .

TABLES:
SSCRFIELDS, " Fields on selection screens
BSIS, " Accounting: Secondary Index for G/L Accounts
BSEG, " Accounting Document Segment
BKPF, " Accounting Document Header
SKA1, " G/L Account Master (Chart of Accounts)
T001A, " Add. Local Currencies Ctrl for Company Code
TCURR. " Exchange Rates

*---------------------------------------------------------------------*

* DATA DECLARATIONS

*---------------------------------------------------------------------*

INCLUDE <ICON>.

*----------------------------------------------------------------------*

* ALV grid reporting data *

*----------------------------------------------------------------------*

TYPE-POOLS: SLIS.

*---------------------------------------------------------------------*

* DATA DECLARATIONS

*---------------------------------------------------------------------*



CONSTANTS: GC_FX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_FXACCT',

GC_CTA_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_CTAACCT',

GC_ICFX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_ICFXACCT'.



DATA: GV_SET_LINE_COUNTER TYPE I,

GV_FX_ACCOUNT LIKE BSEG-HKONT,

GV_CTA_ACCOUNT LIKE BSEG-HKONT,

GV_ICFX_ACCOUNT LIKE BSEG-HKONT,

GT_SET_VALUES LIKE RGSBV OCCURS 0 WITH HEADER LINE.

DATA : DATUM TYPE SY-DATUM .

* ALV Grid structures

DATA: GT_FIELDCAT TYPE LVC_T_FCAT,

GS_FIELDCAT TYPE LVC_S_FCAT,

GT_EVENTS TYPE SLIS_T_EVENT,

GS_EVENTS TYPE SLIS_ALV_EVENT,

GT_EXTAB TYPE SLIS_T_EXTAB,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GS_LINE TYPE SLIS_LISTHEADER,

GT_SELFIELD TYPE SLIS_SELFIELD.



DATA: GT_RSPARAMS TYPE TABLE OF RSPARAMS.


* Data for ALV variant

DATA GV_REPNAME LIKE SY-REPID.

DATA GV_X_VARIANT LIKE DISVARIANT.

DATA GV_EXIT(1) TYPE C.

DATA GV_SAVE(1) TYPE C.

DATA GV_VARIANT LIKE DISVARIANT.

DATA GV_STATUS TYPE SLIS_FORMNAME VALUE 'F_STANDARD_02'.


* Internal table for BSIS data

DATA : BEGIN OF GT_FXENTRIES OCCURS 0,

HKONT LIKE BSIS-HKONT, " GL Accnt

BUKRS LIKE BSIS-BUKRS, " Company Code

MONAT LIKE BSIS-MONAT, " Period

BLART LIKE BSIS-BLART, " Doc. Type

WRBTR LIKE BSIS-WRBTR, " Amt. in DC

WAERS LIKE BSIS-WAERS, " Doc. Currency

DMBTR LIKE BSIS-DMBTR, " Amt in Local Currency

DMBE2 LIKE BSIS-DMBE2, " Amt in Global Currency

PRCTR LIKE BSIS-PRCTR, " Profit Center

BELNR LIKE BSIS-BELNR, " Doc. Number

GJAHR LIKE BSIS-GJAHR, " Year

BUDAT LIKE BSIS-BUDAT, " Posting Date

VBUND LIKE BSIS-VBUND, " Trading Partner

PPRCT LIKE BSIS-PPRCT, " Partner Profit Center

KOSTL LIKE BSIS-KOSTL, " Cost Center

PROJK LIKE BSIS-PROJK, " WBS Element

END OF GT_FXENTRIES.





* Internal table for SKAT (GL Description)

DATA : BEGIN OF GT_GLTEXT OCCURS 0,

SAKNR LIKE SKAT-SAKNR, " GL Number

TXT50 LIKE SKAT-TXT50, " GL Description

END OF GT_GLTEXT.





* Internl table for bseg for Auto Posting

DATA : BEGIN OF GT_BSEG OCCURS 0,

XAUTO LIKE BSEG-XAUTO, " Auto Post

END OF GT_BSEG.





*Internal table for BKPF Document header for user name

DATA : BEGIN OF GT_DOCHEADER OCCURS 0,

USNAM LIKE BKPF-USNAM, " User Name

END OF GT_DOCHEADER.



*Internal table for Group Currency

DATA : BEGIN OF GT_GRPCURR OCCURS 0,

MANDT LIKE T000-MANDT, " Client specific

MWAER LIKE T000-MWAER, " group currency

END OF GT_GRPCURR.





* Final Internal table for display

DATA : BEGIN OF GT_FINALFX OCCURS 0.

        INCLUDE STRUCTURE GT_FXENTRIES.

        INCLUDE STRUCTURE GT_GLTEXT.

        INCLUDE STRUCTURE GT_BSEG.

        INCLUDE STRUCTURE GT_DOCHEADER.

        INCLUDE STRUCTURE GT_GRPCURR.

DATA : END OF GT_FINALFX.





*---------------------------------------------------------------------*

*Selection Screen

*---------------------------------------------------------------------*



SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : SO_BUKRS FOR BSIS-BUKRS," Company Code

SO_GJAHR FOR BSIS-GJAHR DEFAULT SY-DATUM(4). " Fiscal

" Year

PARAMETERS : SP_MONAT LIKE BSIS-MONAT. " Period

SELECTION-SCREEN END OF BLOCK B1.





SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.

PARAMETERS : SP_WAERS LIKE BSIS-WAERS, " Amt in Document Currency

SP_BLART LIKE BSIS-BLART. " Document Type

SELECTION-SCREEN END OF BLOCK B2.



SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.

PARAMETERS SP_VBUND LIKE BSIS-VBUND. "Trading Partner

SELECTION-SCREEN END OF BLOCK B3.



SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.

SELECT-OPTIONS : SO_HKONT FOR BSIS-HKONT. "G/L Account Number



PARAMETERS : SP_FX RADIOBUTTON GROUP RADI , " Foreign Exchange

SP_CTA RADIOBUTTON GROUP RADI, " Cummulative Translation
" Adj
SP_IC_FX RADIOBUTTON GROUP RADI, " Inter Co. FX
SP_XAUTO AS CHECKBOX USER-COMMAND FLAG. " Auto Post System
SELECTION-SCREEN END OF BLOCK B4.
*---------------------------------------------------------------------*
** INITIALIZATION
**---------------------------------------------------------------------*

INITIALIZATION.
* PERFORM F_PRIOR_PERIOD.
*---------------------------------------------------------------------*

* EVENT: AT SELECTION-SCREEN.

*---------------------------------------------------------------------*

***********************************************************************
* A T S E L E C T I O N S C R E E N
***********************************************************************
* Process After Input (PAI)

* Validating selection screen fields

AT SELECTION-SCREEN.
* PERFORM F_VALIDATE_GLACCOUNT.
*---------------------------------------------------------------------*
* EVENT: START-OF-SELECTION
*---------------------------------------------------------------------*

START-OF-SELECTION.

*G/L Account validation in the selection screen
* IF SP_FX = 'X' AND SP_XAUTO NE 'X'.

  PERFORM F_FX_WITH_AUTOPOST.

* ENDIF.
*&--------------------------------------------------------------------*
*& Form F_FX_WITH_AUTOPOST
*&--------------------------------------------------------------------*

* SELECT THE DATA BASING ON THE FOREIGN EXCHANGE AND SYSTEM AUTO
* POSTING
*---------------------------------------------------------------------*

FORM F_FX_WITH_AUTOPOST.

  SELECT HKONT BUKRS MONAT BLART WRBTR WAERS DMBTR
  WAERS DMBE2 PRCTR BELNR GJAHR
  BUDAT VBUND PPRCT KOSTL PROJK
  FROM BSIS
  INTO CORRESPONDING FIELDS
  OF TABLE GT_FXENTRIES.
*  WHERE BUKRS IN SO_BUKRS
*  AND GJAHR IN SO_GJAHR
*  AND MONAT = SP_MONAT
*  AND WAERS = SP_WAERS
*  AND BLART = SP_BLART
*  AND VBUND = SP_VBUND
*  AND HKONT IN SO_HKONT.

  LOOP AT GT_FXENTRIES.

    WRITE : / GT_FXENTRIES-HKONT, GT_FXENTRIES-BUKRS.

  ENDLOOP.
ENDFORM. "F_FX_WITH_AUTOPOST

Regards

vijay

[Former Member]

Hi,

I need the data basing on the selection criteria.

Please help me out.

Thanks.

[Former Member]

Hi Pavan,

<b>

The following is based on the assumption that data really exists (satisfying your selection criteria).

</b>

I think you are not able to see the output because the event 'END-OF-SELECTION' has not been explicitly mentioned in your code.

Please add this event statement ('END-OF-SELECTION' ) just before you loop the data for final listing. (i.e,LOOP AT GT_FXENTRIES).

Hope it will work.

Cheers,

Anirban.

Message was edited by: Anirban Dutta

[Former Member]

Hi pavan,

there is no problem with your program. you have to identify your test data properly. for checking purpose i made some changes to your code, it is working fine.

just check this in your system also,...

REPORT  ZTEST                           .

TABLES:
SSCRFIELDS, " Fields on selection screens
BSIS, " Accounting: Secondary Index for G/L Accounts
BSEG, " Accounting Document Segment
BKPF, " Accounting Document Header
SKA1, " G/L Account Master (Chart of Accounts)
T001A, " Add. Local Currencies Ctrl for Company Code
TCURR. " Exchange Rates

*---------------------------------------------------------------------*

* DATA DECLARATIONS

*---------------------------------------------------------------------*

INCLUDE <ICON>.

*----------------------------------------------------------------------*

* ALV grid reporting data *

*----------------------------------------------------------------------*

TYPE-POOLS: SLIS.

*---------------------------------------------------------------------*

* DATA DECLARATIONS

*---------------------------------------------------------------------*



CONSTANTS: GC_FX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_FXACCT',

GC_CTA_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_CTAACCT',

GC_ICFX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_ICFXACCT'.



DATA: GV_SET_LINE_COUNTER TYPE I,

GV_FX_ACCOUNT LIKE BSEG-HKONT,

GV_CTA_ACCOUNT LIKE BSEG-HKONT,

GV_ICFX_ACCOUNT LIKE BSEG-HKONT,

GT_SET_VALUES LIKE RGSBV OCCURS 0 WITH HEADER LINE.

DATA : DATUM TYPE SY-DATUM .

* ALV Grid structures

DATA: GT_FIELDCAT TYPE LVC_T_FCAT,

GS_FIELDCAT TYPE LVC_S_FCAT,

GT_EVENTS TYPE SLIS_T_EVENT,

GS_EVENTS TYPE SLIS_ALV_EVENT,

GT_EXTAB TYPE SLIS_T_EXTAB,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GS_LINE TYPE SLIS_LISTHEADER,

GT_SELFIELD TYPE SLIS_SELFIELD.



DATA: GT_RSPARAMS TYPE TABLE OF RSPARAMS.


* Data for ALV variant

DATA GV_REPNAME LIKE SY-REPID.

DATA GV_X_VARIANT LIKE DISVARIANT.

DATA GV_EXIT(1) TYPE C.

DATA GV_SAVE(1) TYPE C.

DATA GV_VARIANT LIKE DISVARIANT.

DATA GV_STATUS TYPE SLIS_FORMNAME VALUE 'F_STANDARD_02'.


* Internal table for BSIS data

DATA : BEGIN OF GT_FXENTRIES OCCURS 0,

HKONT LIKE BSIS-HKONT, " GL Accnt

BUKRS LIKE BSIS-BUKRS, " Company Code

MONAT LIKE BSIS-MONAT, " Period

BLART LIKE BSIS-BLART, " Doc. Type

WRBTR LIKE BSIS-WRBTR, " Amt. in DC

WAERS LIKE BSIS-WAERS, " Doc. Currency

DMBTR LIKE BSIS-DMBTR, " Amt in Local Currency

DMBE2 LIKE BSIS-DMBE2, " Amt in Global Currency

PRCTR LIKE BSIS-PRCTR, " Profit Center

BELNR LIKE BSIS-BELNR, " Doc. Number

GJAHR LIKE BSIS-GJAHR, " Year

BUDAT LIKE BSIS-BUDAT, " Posting Date

VBUND LIKE BSIS-VBUND, " Trading Partner

PPRCT LIKE BSIS-PPRCT, " Partner Profit Center

KOSTL LIKE BSIS-KOSTL, " Cost Center

PROJK LIKE BSIS-PROJK, " WBS Element

END OF GT_FXENTRIES.





* Internal table for SKAT (GL Description)

DATA : BEGIN OF GT_GLTEXT OCCURS 0,

SAKNR LIKE SKAT-SAKNR, " GL Number

TXT50 LIKE SKAT-TXT50, " GL Description

END OF GT_GLTEXT.





* Internl table for bseg for Auto Posting

DATA : BEGIN OF GT_BSEG OCCURS 0,

XAUTO LIKE BSEG-XAUTO, " Auto Post

END OF GT_BSEG.





*Internal table for BKPF Document header for user name

DATA : BEGIN OF GT_DOCHEADER OCCURS 0,

USNAM LIKE BKPF-USNAM, " User Name

END OF GT_DOCHEADER.



*Internal table for Group Currency

DATA : BEGIN OF GT_GRPCURR OCCURS 0,

MANDT LIKE T000-MANDT, " Client specific

MWAER LIKE T000-MWAER, " group currency

END OF GT_GRPCURR.





* Final Internal table for display

DATA : BEGIN OF GT_FINALFX OCCURS 0.

        INCLUDE STRUCTURE GT_FXENTRIES.

        INCLUDE STRUCTURE GT_GLTEXT.

        INCLUDE STRUCTURE GT_BSEG.

        INCLUDE STRUCTURE GT_DOCHEADER.

        INCLUDE STRUCTURE GT_GRPCURR.

DATA : END OF GT_FINALFX.





*---------------------------------------------------------------------*

*Selection Screen

*---------------------------------------------------------------------*



SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : SO_BUKRS FOR BSIS-BUKRS," Company Code

SO_GJAHR FOR BSIS-GJAHR DEFAULT SY-DATUM(4). " Fiscal

" Year

<b>SELECT-OPTIONS : SP_MONAT for BSIS-MONAT no intervals no-extension.</b>
SELECTION-SCREEN END OF BLOCK B1.





SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.

<b>SELECT-OPTIONS : SP_WAERS for BSIS-WAERS no intervals no-extension,
" Amt in Document Currency

SP_BLART for BSIS-BLART no intervals no-extension. " Document Type</b>

SELECTION-SCREEN END OF BLOCK B2.



SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.

<b>SELECT-OPTIONS SP_VBUND for BSIS-VBUND no intervals no-extension.</b>"Trading Partner

SELECTION-SCREEN END OF BLOCK B3.



SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.

SELECT-OPTIONS : SO_HKONT FOR BSIS-HKONT. "G/L Account Number



PARAMETERS : SP_FX RADIOBUTTON GROUP RADI , " Foreign Exchange

SP_CTA RADIOBUTTON GROUP RADI, " Cummulative Translation
" Adj
SP_IC_FX RADIOBUTTON GROUP RADI, " Inter Co. FX
SP_XAUTO AS CHECKBOX USER-COMMAND FLAG. " Auto Post System
SELECTION-SCREEN END OF BLOCK B4.
*---------------------------------------------------------------------*
** INITIALIZATION
**---------------------------------------------------------------------*

INITIALIZATION.
* PERFORM F_PRIOR_PERIOD.
*---------------------------------------------------------------------*

* EVENT: AT SELECTION-SCREEN.

*---------------------------------------------------------------------*

***********************************************************************
* A T S E L E C T I O N S C R E E N
***********************************************************************
* Process After Input (PAI)

* Validating selection screen fields

AT SELECTION-SCREEN.
* PERFORM F_VALIDATE_GLACCOUNT.
*---------------------------------------------------------------------*
* EVENT: START-OF-SELECTION
*---------------------------------------------------------------------*

START-OF-SELECTION.

*G/L Account validation in the selection screen
* IF SP_FX = 'X' AND SP_XAUTO NE 'X'.

  PERFORM F_FX_WITH_AUTOPOST.

* ENDIF.
*&--------------------------------------------------------------------*
*& Form F_FX_WITH_AUTOPOST
*&--------------------------------------------------------------------*

* SELECT THE DATA BASING ON THE FOREIGN EXCHANGE AND SYSTEM AUTO
* POSTING
*---------------------------------------------------------------------*

FORM F_FX_WITH_AUTOPOST.

  SELECT HKONT BUKRS MONAT BLART WRBTR WAERS DMBTR
  WAERS DMBE2 PRCTR BELNR GJAHR
  BUDAT VBUND PPRCT KOSTL PROJK
  FROM BSIS
  INTO CORRESPONDING FIELDS
  OF TABLE GT_FXENTRIES
  WHERE BUKRS IN SO_BUKRS
  AND GJAHR IN SO_GJAHR
<b>  AND MONAT in SP_MONAT
  AND WAERS in SP_WAERS
  AND BLART in SP_BLART
  AND VBUND in SP_VBUND</b>
  AND HKONT IN SO_HKONT.

  LOOP AT GT_FXENTRIES.

    WRITE : / GT_FXENTRIES-HKONT, GT_FXENTRIES-BUKRS.

  ENDLOOP.
ENDFORM. "F_FX_WITH_AUTOPOST

Regards

vijay