Check printing problem

[Former Member]

Dear All,

I am finding problem in showing line items in checkprinting program code.

I am doing the check printing from FBZ5 and seeing the line item from FB03.

Can anybody tell me please how to get that.

Only putting the document no I can see the line item correctly.

I am developing a code and want to show the payment advice but finding difficulties in the logic.

Please need help immediately.

Regards

Mave

[Former Member]

Hi Mave

If you want to see the item you can use thie dialog RF_ZEILEN_ANZEIGE, this is a code for example:

INCLUDE RFEPOSC5.

• Load document I want to see

SELECT * INTO CORRESPONDING FIELDS OF TABLE BUZTAB

FROM BSEG

WHERE BUKRS = PBUKRS

AND BELNR = PBELNR

AND GJAHR = PGJAHR.

• Find out the item I want to see

LOOP AT BUZTAB.

CLEAR BUZTAB-FLAEN.

MODIFY BUZTAB.

IF BUZTAB-BUZEI = PBUZEI.

INDEX = SY-TABIX.

ENDIF.

ENDLOOP.

BUZTAB-ZEILE = INDEX.

X_COMMIT = SPACE.

TCODE = V_TCODE.

• See the item

CALL DIALOG 'RF_ZEILEN_ANZEIGE'

EXPORTING

BUZTAB

BUZTAB-ZEILE

TCODE

IMPORTING

X_COMMIT.

IF X_COMMIT = 'X'.

COMMIT WORK.

ENDIF

Max

[Former Member]

HI , MAX

Does this will show the line item breakup for the check that i want to print from fbz5.

The code you have given is showing lot of error.

E.g

What is tcode what is the value of V_Tcode.

[Former Member]

I am using this code please tell where I am mistaking

TABLES : T020.

INCLUDE RFEPOSC5.

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

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

PARAMETERS : PBUKRS LIKE BSEG-BUKRS.

PARAMETERS : PBELNR LIKE BSEG-BELNR.

PARAMETERS : PGJAHR LIKE BSEG-GJAHR.

PARAMETERS : PBUZEI LIKE BSEG-BUZEI.

DATA : INDEX TYPE SY-TABIX.

DATA : V_TCODE TYPE T020-TCODE.

DATA : TCODE TYPE T020-TCODE.

• Load document I want to see

SELECT * INTO CORRESPONDING FIELDS OF TABLE BUZTAB

FROM BSEG

WHERE BUKRS = PBUKRS

AND BELNR = PBELNR

AND GJAHR = PGJAHR.

• Find out the item I want to see

LOOP AT BUZTAB.

CLEAR BUZTAB-FLAEN.

MODIFY BUZTAB.

IF BUZTAB-BUZEI = PBUZEI.

INDEX = SY-TABIX.

ENDIF.

ENDLOOP.

BUZTAB-ZEILE = INDEX.

X_COMMIT = SPACE.

TCODE = V_TCODE.

• See the item

CALL DIALOG 'RF_ZEILEN_ANZEIGE'

EXPORTING

BUZTAB

BUZTAB-ZEILE

TCODE

IMPORTING

X_COMMIT.

IF X_COMMIT = 'X'.

COMMIT WORK.

ENDIF.

[Former Member]

I think this code will show the line items .

I want to show it in list format so that i Can use the code in check printing code.

Regards

mave

[Former Member]

Hi

Excuse me, but I was very busy:

.....................

BUZTAB-ZEILE = INDEX.

X_COMMIT = SPACE.

TCODE = 'FB03'.

.....................

• See the item

CALL DIALOG 'RF_ZEILEN_ANZEIGE'

EXPORTING

BUZTAB

BUZTAB-ZEILE

TCODE

IMPORTING

X_COMMIT.

IF X_COMMIT = 'X'.

COMMIT WORK.

ENDIF.

Max

Message was edited by: max bianchi