Tabelle auf Dynpro ausgeben ?

Re: Tabelle auf Dynpro ausgeben ?

Hi,

du findest ein Beispiel für OOALVs im von SAP gegebenen Demoprogramm BCALV_GRID_DEMO

Gruß
Pyro

Re: Tabelle auf Dynpro ausgeben ?

****UPDATE:****
Hab eine bisschen einfachere Variante gefunden ein ALV zu generieren wie ich finde.
http://www.saphub.com/abap-tutorial/create-abap-alv/
Aber wenn ich es nach diesem Aufbau mache dann hab ich das ALV im Fullscreen anstatt nur im Container. Kann ich das irgendwie beheben ? Denn mit dieser Variante habe ich meine Spaltenüberschriften übergeben und breitere Spalten.

-------------------------------------------------------------

Danke erstmal Läuft soweit. Bauen unsere Abfrage jetzt noch etwas um.
Habe jetzt aber eine neue Frage. Wir hätten gerne eine Spalten- und eine Zeilen"überschrift", damit man weiß wo man hinschießt. Also "A1" z.B. Aber wie mache ich das ?
Und zweite Frage^^ Wir wollen unsere Spalten auf eine feste Größe setzen, jetzt sind die noch sehr eng beieinander. Der Nutzer kann die auseinanderziehen aber wir wollen von Anfang an das die Spalten breiter sind. Der Container is groß genug.

Danke schonmal

Re: Tabelle auf Dynpro ausgeben ?

OK danke schonmal Wir haben in unserem ALV folgender Maßen eingebaut. Aber ohne Feldkatalog. Wollte später dann noch einen anlegen und diesen einfügen aber dann kam die Nachricht das mein Feldkatalog nicht den richtigen Typ hat. Ich habe den übrigens bei IT_FIELDCATALOG eingetragen.
Entschuldigt den langen Code aber dachte ich lass das kommentierte mal drin falls ihr Felder seht die wir nutzen müssten.
Was wir gemacht haben ist einen Container im Screen-Painter angelegt und im PBO-Modul eine Tabelle 'itab' gefüllt die 10x10 groß ist.
Diese geben wir hierrüber dann aus bzw. frischen diese immer wieder nach jedem Zug auf.

CREATE OBJECT R_CONTAINER "Tabellen-container wird erstellt
EXPORTING
* PARENT =
CONTAINER_NAME = 'CONTAINER'"Name
* STYLE =
* LIFETIME = lifetime_default
* REPID =
* DYNNR =
* NO_AUTODEF_PROGID_DYNNR =
* EXCEPTIONS
* CNTL_ERROR = 1
* CNTL_SYSTEM_ERROR = 2
* CREATE_ERROR = 3
* LIFETIME_ERROR = 4
* LIFETIME_DYNPRO_DYNPRO_LINK = 5
* others = 6
.
IF SY-SUBRC <> 0. "Falls ein Fehler auftritt ausgabe Fehlermeldung
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

IF R_GRID IS INITIAL.

CREATE OBJECT R_GRID
EXPORTING
* I_SHELLSTYLE = 0
* I_LIFETIME =
I_PARENT = R_CONTAINER
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
* I_FCAT_COMPLETE = SPACE
* EXCEPTIONS
* ERROR_CNTL_CREATE = 1
* ERROR_CNTL_INIT = 2
* ERROR_CNTL_LINK = 3
* ERROR_DP_CREATE = 4
* others = 5
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL METHOD R_GRID->SET_TABLE_FOR_FIRST_DISPLAY "Methode um die Tabelle zur ersten Anzeige zu laden
EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME = 'ZSV_STRUK' "Name der Struktur die zugrunde liegt
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
CHANGING
IT_OUTTAB = JTAB "Tabelle die ausgegeben bzw angezeigt wird
* IT_FIELDCATALOG =
* IT_SORT =
* IT_FILTER =
* EXCEPTIONS
* INVALID_PARAMETER_COMBINATION = 1
* PROGRAM_ERROR = 2
* TOO_MANY_LINES = 3
* others = 4
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ELSE.

CALL METHOD R_GRID->REFRESH_TABLE_DISPLAY "Wenn kein Fehler auftritt wird die Tabelle aufgefrischt
* EXPORTING
* IS_STABLE =
* I_SOFT_REFRESH =
* EXCEPTIONS
* FINISHED = 1
* others = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDIF.


ENDFORM. " ausgabe