Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - rompirce

Páginas: [1]
1
Programación ABAP / INFORMACIÓN DE 4 TABLAS
« en: 21 de Enero de 2014, 08:29:14 pm »
Hola
Soy nuevo en esto de sap... me piden que haga un programa en el que vengan datos da varias tablas t001w, ztmm_0002, t005, t005u
necesito sacar ciertos datos de dichas tablas, ya he podido realizar con tablas internas lo de la t001w pero me falta agregar algunos campos
de las otras tablas este es mi código:

REPORT  ZTABLAINTERNA2                          .

TYPES: BEGIN OF ST_T001W,
        WERKS LIKE T001W-WERKS,           "CENTRO
        NAME1 LIKE T001W-NAME1,           "NOMBRE
*       WERKS LIKE T001W-FLDATE,          "TIPO
*       WERKS LIKE T001W-SEATSMAX,        "ESTADO
        STRAS LIKE T001W-STRAS,           "CALLE Y NUMERO
        LAND1 LIKE T001W-LAND1,           "PAIS
        PSTLZ LIKE T001W-PSTLZ,           "CODIGO POSTAL
        ORT01 LIKE T001W-ORT01,           "COLONIA
        REGIO LIKE T001W-REGIO,           "ESTADO
        LGORTJDE LIKE ZTMM_0002-LGORTJDE, "Almacen NPDV
        BEZEI LIKE T005U-BEZEI,           "Denominacion(Estado)
        END OF ST_T001W.

DATA: TI_T001W TYPE STANDARD TABLE OF ST_T001W WITH HEADER LINE.


PARAMETERS: P_WERKS LIKE T001W-WERKS.

SELECT WERKS NAME1 STRAS LAND1 PSTLZ ORT01 REGIO
       FROM T001W INTO TABLE TI_T001W
       WHERE WERKS = P_WERKS.
             
LOOP AT TI_T001W.
WRITE: / TI_T001W-WERKS,
         TI_T001W-NAME1,
         TI_T001W-STRAS,
         TI_T001W-LAND1,
         TI_T001W-PSTLZ,
         TI_T001W-ORT01,
         TI_T001W-REGIO,
         TI_T001W-LGORTJDE,
         TI_T001W-BEZEI.
ENDLOOP.


Me gustaría saber como es que le puedo agregar los campos de las demás tablas y de antemano les agradezco su apoyo.

Páginas: [1]