Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report Z_SINAN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_sinan.
* Authority-check object 'S_TABU_NAM'
** link to the authorithy object S_RFC
* ID 'ACTVT' Field '03'
* ID 'TABLE' Field 'KNA1'.
*If Sy-subrc NE 0.
* RAISE NOT_AUTHORIZED.
* Exit.
* Endif.
DATA: BEGIN OF struct,
mandt TYPE mandt,
kunnr TYPE char10,
land1 TYPE char3,
name1 TYPE char35,
name2 TYPE char35,
ort01 TYPE char35,
pstlz TYPE char20,
regio TYPE char3,
stras TYPE char35,
telf1 TYPE char16,
adrnr TYPE char10,
mcod1 TYPE char25,
mcod2 TYPE char25,
mcod3 TYPE char25,
anred TYPE char15,
aufsd TYPE char2,
brsch TYPE char4,
konzs TYPE char10,
ktokd TYPE char4,
kukla TYPE char2,
lifnr TYPE char10,
lifsd TYPE char2,
locco TYPE char10,
name3 TYPE char35,
name4 TYPE char35,
niels TYPE char2,
ort02 TYPE char35,
pfach TYPE char10,
pstl2 TYPE char10,
counc TYPE char3,
cityc TYPE char4,
sperr TYPE char1,
spras TYPE lang,
telf2 TYPE char16,
stceg TYPE char20,
dear1 TYPE char1,
dear2 TYPE char1,
dear3 TYPE char1,
dear4 TYPE char1,
bran1 TYPE char10,
bran2 TYPE char10,
bran3 TYPE char10,
bran4 TYPE char10,
bran5 TYPE char10,
* umsat TYPE CURR, "geht nicht kp
umjah TYPE numeric4,
* uwaer TYPE CUKY, "geht nicht kp
jmzah TYPE numeric6,
jmjah TYPE numeric4,
katr1 TYPE char2,
katr2 TYPE char2,
katr3 TYPE char2,
katr4 TYPE char2,
katr5 TYPE char2,
katr6 TYPE char3,
katr7 TYPE char3,
katr8 TYPE char3,
katr9 TYPE char3,
katr10 TYPE char3,
stkzn TYPE char1,
* umsa1 TYPE CURR, "geht nicht kp
pfort TYPE char35,
werks TYPE char4,
sperz TYPE char1,
cassd TYPE char2,
psoo1 TYPE char50,
psoo2 TYPE char50,
psoo3 TYPE char50,
psoo4 TYPE char50,
psoo5 TYPE char50,
END OF struct.
DATA: lt_workarea TYPE TABLE OF struct,
ls_workarea TYPE struct,
go_table TYPE REF TO cl_salv_table,
go_functions TYPE REF TO cl_salv_functions.
SELECT
mandt
kunnr
land1
name1
name2
ort01
pstlz
regio
stras
telf1
adrnr
mcod1
mcod2
mcod3
anred
aufsd
brsch
konzs
ktokd
kukla
lifnr
lifsd
locco
name3
name4
niels
ort02
pfach
pstl2
counc
cityc
sperr
spras
telf2
stceg
dear1
dear2
dear3
dear4
bran1
bran2
bran3
bran4
bran5
* umsat
umjah
* uwaer
jmzah
jmjah
katr1
katr2
katr3
katr4
katr5
katr6
katr7
katr8
katr9
katr10
stkzn
* umsa1
pfort
werks
sperz
cassd
psoo1
psoo2
psoo3
psoo4
psoo5
FROM kna1
INTO ls_workarea.
ENDSELECT.
MODIFY TABLE lt_workarea FROM ls_workarea.
TRY. "ALV Copy and Paste
CL_SALV_TABLE=>FACTORY(
IMPORTING r_salv_table = go_table
CHANGING t_table = lt_workarea
).
CATCH cx_salv_msg.
ENDTRY.
go_functions = go_table->get_functions( ).
go_functions->set_all( abap_true ).
go_table->display( ).
Ich wollte es auch mit der KNA1 Struktur machen ... mein Kollege aber nicht xDabuma hat geschrieben:Huhu Schäfer_anfänger,
ich verstehe jetzt nicht ganz warum du alle Felder selber definierst und als Struktur abbildest.
Und komplett alle Daten aus der KNA1- mit SELECT-ENDSELECT auszulesen ist denk ich auch nicht sinnvoll.
Du könntest doch einfach die KNA1-Struktur nehmen?
Bitte gehe mal in die Transaktion SE11 und gib bei Datentyp STRUCT ein.
In deinem Coding wird nämlich nicht dein interner Datentyp verwendet, sondern der vom dict.
Dein SELECT - ENDSELECT passt übrigens nicht mit dem MODIFY TABLE zusammen...
Bitte lies dir mal im Internet bzw. in der SAP-Hilfe durch wie man das verwendet, das habe ich dir nämlich in einem anderen Post schonmal erklärt.
Liebe Grüße
abuma
Dankeabuma hat geschrieben:Beim letzten mal hattest du mein Beispielprogramm ja nicht mal getestet.
Vom Verständnis her hätte das sicherlich weitergeholfen...
http://www.abapforum.com/forum/viewtopi ... 668#p80804
Ein Danke hätte auch gereicht.
Grüße
abuma