Porque este TABLE CONTROL no coje valores??

[Driau]

Hola a todos..llevo unos dias..un poco asqueado porque intento hacer un TABLE CONTROL y no me sale. Parece que mas o menos...me sale. Pero cuando se ejecuta el SELECT del PERFORM EXTRACCION. Las variables VAR_MATNR y VAR_CHARG..no cogen ningún valor. He asociado los dos campos del TABLE CONTROL a estas dos variables con lo de "Coger datos del programa"...pero no hay manera. Alguien me pude ayudar??? Os pego aquí el código...grácias!!!

REPORT ZCONTROL_LOTES .
CONTROLS T_CTRL TYPE TABLEVIEW USING SCREEN 9000.
TABLES AFPO.
*DATA AFPO_ITAB LIKE STANDARD TABLE OF AFPO.

DATA: BEGIN OF AFPO_ITAB OCCURS 0,
MATNR LIKE AFPO-MATNR,
CHARG LIKE AFPO-CHARG,
END OF AFPO_ITAB.

DATA INIT.
DATA OK_CODE LIKE SY-UCOMM.
DATA SAVE_OK LIKE SY-UCOMM.
DATA MARK.
DATA COL TYPE CXTAB_COLUMN.

DATA: V_PRUEBA LIKE AFPO_ITAB-MATNR VALUE '5'.

DATA: VAR_MATNR LIKE AFPO-MATNR,
VAR_CHARG LIKE AFPO-CHARG.

CALL SCREEN 9000.

*&---------------------------------------------------------------------*
*& Module STATUS_09000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_09000 OUTPUT.
SET PF-STATUS 'ZSTATUS'.
SET TITLEBAR '9000'.
IF INIT IS INITIAL.
* Datenbeschaffung
SELECT MATNR CHARG
FROM AFPO
INTO CORRESPONDING FIELDS OF TABLE AFPO_ITAB.
DESCRIBE TABLE AFPO_ITAB LINES T_CTRL-LINES.
INIT = 'X'.
ENDIF.

ENDMODULE. " STATUS_09000 OUTPUT

*&---------------------------------------------------------------------*
*& Module FILL_TABLE_CONTROL OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE CHANGE_SDYN_CONN OUTPUT.
* you can change the content of current table control line via
* sdyn_conn
* READ TABLE AFPO_ITAB INTO sdyn_conn INDEX table_control-current_line.

ENDMODULE. " FILL_TABLE_CONTROL OUTPUT
*&---------------------------------------------------------------------*
*& Module READ_TABLE_CONTROL INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE READ_TABLE_CONTROL INPUT.
* Check input values

* IF MARK = 'X' AND SAVE_OK = 'DELETE'.
* DELETE TABLE AFPO_ITAB FROM A.
* DESCRIBE TABLE SDYN_ITAB LINES TABLE_CONTROL-LINES.
* ENDIF.
ENDMODULE. " READ_TABLE_CONTROL INPUT

*&---------------------------------------------------------------------*
*& Module USER_COMMAND_09000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
* WHEN 'SORT'.
* DATA: FLDNAME(9000),HELP(9000).
*
* READ TABLE TABLE_CONTROL-COLS INTO COL WITH KEY SELECTED = 'X'.
* SPLIT COL-SCREEN-NAME AT '-' INTO HELP FLDNAME.
* SORT AFPO_ITAB BY (FLDNAME).
* WHEN '/EECAN'.
* SELECT MATNR CHARG
* FROM AFPO
* INTO CORRESPONDING FIELDS OF TABLE AFPO_ITAB.
WHEN ' '.
PERFORM EXTRACCION.
ENDCASE.

ENDMODULE. " USER_COMMAND_09000 INPUT

*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE EXIT INPUT.
LEAVE PROGRAM.
ENDMODULE. " EXIT INPUT

*&---------------------------------------------------------------------*
*& Form extraccion
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM EXTRACCION.

SELECT MATNR CHARG
INTO CORRESPONDING FIELDS OF TABLE AFPO_ITAB
FROM AFPO
WHERE MATNR = VAR_MATNR
AND CHARG = VAR_CHARG.

* SELECT MATNR CHARG
*INTO CORRESPONDING FIELDS OF TABLE AFPO_ITAB
*FROM AFPO
*WHERE MATNR = V_PRUEBA.

[Miguelfg12]

¿Dónde estás cargando las variables VAR_MATNR y VAR_CHARG?

[Driau]

No entiendo a que te refieres con donde estas cargando las variables...

Yo he creado un table control con el screen painter...y alli es donde las he cogio. Como te digo es el primer Table Control que hago con lo que és muy possible que no sepa ni que haya que cargar variables.....