[amam2605]

Hola !! Gracias por la informacion. Ahora estoy necesitando declarar un parameter y select options debido a que tengo en el programa lo siguiente: Donde se declara esto y como.

Muchas Gracias de Antemano.

Saludos

SELECTION-SCREEN BEGIN OF BLOCK BOX1 WITH FRAME TITLE TEXT-P01.
PARAMETERS: SOCIE LIKE BSAK-BUKRS MEMORY ID BUK OBLIGATORY.
SELECT-OPTIONS: EJERC FOR BSAK-GJAHR OBLIGATORY NO-EXTENSION,
FEC_R FOR BKPF-BUDAT OBLIGATORY NO-EXTENSION,
DOC_R FOR BSAK-BELNR,
COD_U FOR BKPF-USNAM,
ACREE FOR LFA1-LIFNR.
SELECTION-SCREEN END OF BLOCK BOX1.

SELECTION-SCREEN BEGIN OF BLOCK BOX2 WITH FRAME TITLE TEXT-P02.
SELECT-OPTIONS TIPO_R FOR WITH_ITEM-WITHT DEFAULT 'RF' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BOX2.

* ---------------------------------------------------------------------*
* INICIO DEL PROGRAMA
* ---------------------------------------------------------------------*
* Busqueda de información de la Sociedad
AT SELECTION-SCREEN ON SOCIE.
SELECT SINGLE * FROM T001 WHERE BUKRS EQ SOCIE.
IF SY-SUBRC NE 0.
MESSAGE E012 WITH SOCIE.
ELSE.
NOMSOC = T001-BUTXT. " Nombre de la sociedad
SELECT SINGLE * FROM ADRC WHERE ADDRNUMBER EQ T001-ADRNR.
DIRSOC = ADRC-STREET. " Dirección de la sociedad
RIFSOC = ADRC-SORT2. " RIF de la sociedad
ENDIF.