for all entries in abap

[former_member781613]

Hi please me from last one week battling this

iam unable to get data using for all entries 3 tables without common field in last table.

[REPORT ZREPORT_152.

TYPES: BEGIN OF ty_vbrk,

Vbeln TYPE vbeln_vf,
VKORG TYPE vbrk-VKORG,
VTWEG TYPE vbrk-VTWEG,
FKART TYPE vbrk-FKART,
FKDAT TYPE vbrk-FKDAT,
END OF ty_vbrk,

BEGIN OF ty_vbrp,
POSNR TYPE POSNR_VF,
MATNR TYPE vbrp-matnr,
FKIMG TYPE vbrp-FKIMG,
NTGEW TYPE NTGEW_15,
END OF ty_vbrp,

BEGIN OF ty_kna1,
KUNNR TYPE kna1-KUNNR,
NAME1 TYPE NAME1_GP,
LAND1 TYPE LAND1_GP,

END OF ty_kna1.


DATA: lt_vbrk TYPE TABLE OF ty_vbrk,
ls_vbrk TYPE ty_vbrk,
lt_vbrp TYPE TABLE OF ty_vbrp,
ls_vbrp TYPE ty_vbrp,
lt_kna1 TYPE TABLE OF ty_kna1,
ls_kna1 TYPE ty_kna1.


types: BEGIN OF ty_final,
Vbeln TYPE vbeln_vf,
VKORG TYPE vbrk-VKORG,
VTWEG TYPE vbrk-VTWEG,
FKART TYPE vbrk-FKART,
FKDAT TYPE vbrk-FKDAT,

POSNR TYPE POSNR_VF,
MATNR TYPE vbrp-matnr,
FKIMG TYPE vbrp-FKIMG,
NTGEW TYPE NTGEW_15,

KUNNR TYPE kna1-KUNNR,
NAME1 TYPE NAME1_GP,
LAND1 TYPE LAND1_GP,
END OF ty_final.


DATA: lt_final TYPE TABLE OF ty_final,
ls_final TYPE ty_final.

SELECTION-SCREEN BEGIN OF BLOCK bj WITH FRAME TITLE t1.

SELECT-OPTIONS s_vbeln FOR ls_vbrk-vbeln.

SELECTION-SCREEN end of BLOCK bj.



SELECT vbeln vkorg
VTWEG FKART FKDAT
FROM vbrk into TABLE lt_vbrk WHERE vbeln in s_vbeln.

if NOT lt_vbrk is INITIAL.

SELECT posnr
matnr
FKIMG FKIMG FROM vbrp INTO TABLE lt_vbrp FOR ALL ENTRIES IN lt_vbrk
WHERE vbeln = lt_vbrk-vbeln .


endif.

if lt_vbrp is NOT INITIAL.



ENDIF.



LOOP at lt_final INTO ls_final.


WRITE:/ ls_vbrk-Vbeln,
ls_vbrk-VKORG,
ls_vbrk-VTWEG,
ls_vbrk-FKART,
ls_vbrk-FKDAT,

ls_vbrp-POSNR,
ls_vbrp-matnr,
ls_vbrp-FKIMG,
ls_vbrp-NTGEW,


ls_kna1-KUNNR,
ls_kna1-NAME1,

ls_kna1-LAND1.

endloop.]

[Sandra_Rossi]

Please edit your question, select your code and press the button [CODE], which makes the code appear colored/indented, it will be easier for people to look at it. Thank you!

[matt]

No point in answering. Post is former member

[Sandra_Rossi]

Again, there is a button "CODE" in the editor, to format your code before posting it.

[matt]

Nice to see you've shown your face. Have you tried asking this guy https://answers.sap.com/questions/13552416/for-all-entries-2.html

[matt]

Almost exactly the same question, posted at about the same time...

[raymond_giuseppi · Accepted solution]

There are customer id fields in VBRK (kunnr, kunag, etc.) and a relation beween VBRK (header) and VBRP (detail) so I cannot understand your 'without common field'

Can you explain what you tried and what you failed to achieve?

[matt · Accepted solution]

Don't hold your breath. The poster is now a former member

[former_member781613 · Accepted solution]

Hi @raymond.giuseppii

I'm not getting output please me regarding this.

I pasted code below

TYPES: BEGIN OF ty_vbrk,

Vbeln TYPE vbeln_vf,
VKORG TYPE vbrk-VKORG,
VTWEG TYPE vbrk-VTWEG,
FKART TYPE vbrk-FKART,
FKDAT TYPE vbrk-FKDAT,
END OF ty_vbrk,

BEGIN OF ty_vbrp,
POSNR TYPE POSNR_VF,
MATNR TYPE vbrp-matnr,
FKIMG TYPE vbrp-FKIMG,
NTGEW TYPE NTGEW_15,
END OF ty_vbrp,

BEGIN OF ty_kna1,
KUNNR TYPE kna1-KUNNR,
NAME1 TYPE NAME1_GP,
LAND1 TYPE LAND1_GP,

END OF ty_kna1.


DATA: lt_vbrk TYPE TABLE OF ty_vbrk,
ls_vbrk TYPE ty_vbrk,
lt_vbrp TYPE TABLE OF ty_vbrp,
ls_vbrp TYPE ty_vbrp,
lt_kna1 TYPE TABLE OF ty_kna1,
ls_kna1 TYPE ty_kna1.


types: BEGIN OF ty_final,
Vbeln TYPE vbeln_vf,
VKORG TYPE vbrk-VKORG,
VTWEG TYPE vbrk-VTWEG,
FKART TYPE vbrk-FKART,
FKDAT TYPE vbrk-FKDAT,

POSNR TYPE POSNR_VF,
MATNR TYPE vbrp-matnr,
FKIMG TYPE vbrp-FKIMG,
NTGEW TYPE NTGEW_15,

KUNNR TYPE kna1-KUNNR,
NAME1 TYPE NAME1_GP,
LAND1 TYPE LAND1_GP,
END OF ty_final.


DATA: lt_final TYPE TABLE OF ty_final,
ls_final TYPE ty_final.

SELECTION-SCREEN BEGIN OF BLOCK bj WITH FRAME TITLE t1.

SELECT-OPTIONS s_vbeln FOR ls_vbrk-vbeln.

SELECTION-SCREEN end of BLOCK bj.



SELECT vbeln vkorg
VTWEG FKART FKDAT
FROM vbrk into TABLE lt_vbrk WHERE vbeln in s_vbeln.

if NOT lt_vbrk is INITIAL.

SELECT posnr
matnr
FKIMG FKIMG FROM vbrp INTO TABLE lt_vbrp FOR ALL ENTRIES IN lt_vbrk
WHERE vbeln = lt_vbrk-vbeln .


endif.

if lt_vbrp is NOT INITIAL.
select kunnr name1 land1 from kna1 into table lt_kna1


ENDIF.



LOOP at lt_final INTO ls_final.


WRITE:/ ls_vbrk-Vbeln,
ls_vbrk-VKORG,
ls_vbrk-VTWEG,
ls_vbrk-FKART,
ls_vbrk-FKDAT,

ls_vbrp-POSNR,
ls_vbrp-matnr,
ls_vbrp-FKIMG,
ls_vbrp-NTGEW,


ls_kna1-KUNNR,
ls_kna1-NAME1,
ls_kna1-LAND1.

endloop.

[former_member828025 · Accepted solution]

Hi @raymond.giuseppi,

I'm not getting output.

i pasted code below can u check this please.

TYPES: BEGIN OF ty_vbrk,

Vbeln TYPE vbeln_vf,
VKORG TYPE vbrk-VKORG,
VTWEG TYPE vbrk-VTWEG,
FKART TYPE vbrk-FKART,
FKDAT TYPE vbrk-FKDAT,
END OF ty_vbrk,

BEGIN OF ty_vbrp,
POSNR TYPE POSNR_VF,
MATNR TYPE vbrp-matnr,
FKIMG TYPE vbrp-FKIMG,
NTGEW TYPE NTGEW_15,
END OF ty_vbrp,

BEGIN OF ty_kna1,
KUNNR TYPE kna1-KUNNR,
NAME1 TYPE NAME1_GP,
LAND1 TYPE LAND1_GP,

END OF ty_kna1.


DATA: lt_vbrk TYPE TABLE OF ty_vbrk,
ls_vbrk TYPE ty_vbrk,
lt_vbrp TYPE TABLE OF ty_vbrp,
ls_vbrp TYPE ty_vbrp,
lt_kna1 TYPE TABLE OF ty_kna1,
ls_kna1 TYPE ty_kna1.


types: BEGIN OF ty_final,
Vbeln TYPE vbeln_vf,
VKORG TYPE vbrk-VKORG,
VTWEG TYPE vbrk-VTWEG,
FKART TYPE vbrk-FKART,
FKDAT TYPE vbrk-FKDAT,

POSNR TYPE POSNR_VF,
MATNR TYPE vbrp-matnr,
FKIMG TYPE vbrp-FKIMG,
NTGEW TYPE NTGEW_15,

KUNNR TYPE kna1-KUNNR,
NAME1 TYPE NAME1_GP,
LAND1 TYPE LAND1_GP,
END OF ty_final.


DATA: lt_final TYPE TABLE OF ty_final,
ls_final TYPE ty_final.

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

SELECT-OPTIONS s_vbeln FOR ls_vbrk-vbeln.

SELECTION-SCREEN end of BLOCK b1.


SELECT vbeln vkorg
VTWEG FKART FKDAT
FROM vbrk into TABLE lt_vbrk WHERE vbeln in s_vbeln.

if NOT lt_vbrk is INITIAL.

SELECT posnr
matnr
FKIMG FKIMG FROM vbrp INTO TABLE lt_vbrp FOR ALL ENTRIES IN lt_vbrk
WHERE vbeln = lt_vbrk-vbeln .


endif.

if lt_vbrp is NOT INITIAL.

SELECT kunnr name1 land1 FROM kna1 INTO TABLE Lt_kna1 FOR ALL ENTRIES IN Lt_vbrk WHERE

ENDIF.

LOOP at lt_final INTO ls_final.
WRITE:/ ls_vbrk-Vbeln,
ls_vbrk-VKORG,
ls_vbrk-VTWEG,
ls_vbrk-FKART,
ls_vbrk-FKDAT,

ls_vbrp-POSNR,
ls_vbrp-matnr,
ls_vbrp-FKIMG,
ls_vbrp-NTGEW,


ls_kna1-KUNNR,
ls_kna1-NAME1,
ls_kna1-LAND1.

endloop.

[Sandra_Rossi · Accepted solution]

sharadaracha

Please edit your comment, select your code and press the button [CODE], which makes the code appear colored/indented, it will be easier for people to look at it. Thank you!

[raymond_giuseppi · Accepted solution]

Also post your code that fills it_final. (If no code, what did you exepect from a loop on an empty internal table)

(Or loop at a sorted type table for vbrp and at new values of invoice number add the required code to read data from tables built from vbrk and lfa1.)