Ich komme leider nicht voran mit meinem Programm. Bitte um Hilfe.
Ich habe den wichtigen Teil meines QUellcodes hier rein kopiert.
Mit diesem Quellcode kann ich nun daten wie, Belegnummer, Position, Sachkonto, Lieferdatum, Material Kurztext und der gleichen Auswerten.
Nur wenn ich eine Auswertung nach den offenen Bestellungen machen möchte klappt das leider nicht.
Es sollen nur EInkaufsbeläge mit den Positionen erscheinen, wo bei der Bestellung noch kein Wareneingang stattgefunden hat, bzw. noch keine Bestellentwicklung zur Position vorhanden ist.
Hierfür eine Selektion konnte ich nicht programmieren. BITTE UM HILFE.
MEIN QUELLCODE:
TABLES: ekko, ekpo, ekkn, eket,
ekbe, t156, t160s.
SELECTION-SCREEN BEGIN OF BLOCK h_choice WITH FRAME TITLE text-001.
SELECT-OPTIONS s_eindt FOR eket-eindt.
SELECT-OPTIONS s_bedat FOR ekko-bedat.
SELECT-OPTIONS s_bwart FOR ekbe-bwart.
SELECT-OPTIONS s_selpa FOR t160s-selpa.
SELECTION-SCREEN END OF BLOCK h_choice.
TYPES: BEGIN OF pro_a002t_auswtg. " Arbeitstabtabelle Auswertung
INCLUDE STRUCTURE zdgw_auswertung.
TYPES: END OF pro_a002t_auswtg.
DATA: pro_a002i_auswtg TYPE STANDARD TABLE OF " Interne Tabelle
pro_a002t_auswtg,
pro_a002w_auswtg TYPE pro_a002t_auswtg. " Arbeitsbreich
DATA: pro_a002i_itab TYPE STANDARD TABLE OF
pro_a002t_auswtg,
pro_a002w_itab TYPE pro_a002t_auswtg.
DATA:it_tab TYPE STANDARD TABLE OF lvc_s_sort,
wa_tab LIKE LINE OF it_tab.
DATA: rv01_alvgrid TYPE REF TO cl_gui_alv_grid, " Referenzvar. ALV-Instanz
rv01_container TYPE REF TO cl_gui_custom_container. " Referenzvar. Container-Control
DATA: pro_a002w_varian TYPE disvariant, " Workarea für Variantenstruktur
pro_a002w_zebra TYPE slis_layout_alv, " und Layoutstruktur
pro_a002w_layout TYPE lvc_s_layo.
DATA: ok_code TYPE sy-ucomm. " OK-Code
DATA erg TYPE i. " Zaehler
DATA: pro_a002i_fldcat TYPE lvc_t_fcat, " Feldkatalog für ListViewerControl
pro_a002w_fldcat LIKE LINE OF pro_a002i_fldcat.
FORM load_data_into_grid.
SELECT a~ebeln a~bedat a~waers " Selektiere Eintrag
b~ebelp b~matnr b~txz01 b~netpr
b~ebeln b~ebelp
INTO CORRESPONDING FIELDS
OF TABLE pro_a002i_auswtg " in die Felder der itab
FROM ekko
AS a INNER JOIN ekpo " Join der Tabellen
AS b ON a~ebeln = b~ebeln
WHERE a~bedat IN s_bedat
AND a~loekz = space
AND b~loekz = space
ORDER BY b~ebeln b~ebelp. " Sortierung nach den Schlüsselfeldern
LOOP AT pro_a002i_auswtg INTO pro_a002w_auswtg.
SELECT SINGLE sakto zekkn FROM ekkn
INTO CORRESPONDING FIELDS OF pro_a002w_auswtg
WHERE ebeln = pro_a002w_auswtg-ebeln
AND ebelp = pro_a002w_auswtg-ebelp.
MODIFY pro_a002i_auswtg FROM pro_a002w_auswtg.
ENDLOOP.
LOOP AT pro_a002i_auswtg INTO pro_a002w_auswtg.
SELECT eindt etenr FROM eket " single
INTO CORRESPONDING FIELDS OF pro_a002w_auswtg
WHERE ebeln = pro_a002w_auswtg-ebeln
AND ebelp = pro_a002w_auswtg-ebelp
AND eindt IN s_eindt.
MODIFY pro_a002i_auswtg FROM pro_a002w_auswtg.
ENDSELECT.
ENDLOOP.
LOOP AT pro_a002i_auswtg INTO pro_a002w_auswtg.
SELECT selpa FROM t160s " single
INTO CORRESPONDING FIELDS OF pro_a002w_auswtg
WHERE selpa = pro_a002w_auswtg-selpa
and selpa IN s_selpa.
MODIFY pro_a002i_auswtg FROM pro_a002w_auswtg.
ENDSELECT.
ENDLOOP.
