Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 109 vistas

    11 24 Soluci N Ejercicio Sentencia MOVE CORRESPONDING

    Cargado por

    Jose Rodriguez
    Este documento describe cómo utilizar la sentencia MOVE-CORRESPONDING en ABAP para mover los datos de una tabla interna sin encabezado a una tabla interna con encabezado. Explica cómo seleccionar datos de una tabla, ordenarlos y filtrarlos antes de moverlos a otra tabla usando MOVE-CORRESPONDING. Luego buclea a través de la nueva tabla para escribir los datos.

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd

    11 24 Soluci N Ejercicio Sentencia MOVE CORRESPONDING

    Cargado por

    Jose Rodriguez
    109 vistas4 páginas
    Este documento describe cómo utilizar la sentencia MOVE-CORRESPONDING en ABAP para mover los datos de una tabla interna sin encabezado a una tabla interna con encabezado. Explica cómo seleccionar datos de una tabla, ordenarlos y filtrarlos antes de moverlos a otra tabla usando MOVE-CORRESPONDING. Luego buclea a través de la nueva tabla para escribir los datos.

    Título original

    11-24-Soluci-n-Ejercicio-Sentencia-MOVE-CORRESPONDING

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento describe cómo utilizar la sentencia MOVE-CORRESPONDING en ABAP para mover los datos de una tabla interna sin encabezado a una tabla interna con encabezado. Explica cómo seleccionar datos de una tabla, ordenarlos y filtrarlos antes de moverlos a otra tabla usando MOVE-CORRESPONDING. Luego buclea a través de la nueva tabla para escribir los datos.

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    109 vistas4 páginas

    11 24 Soluci N Ejercicio Sentencia MOVE CORRESPONDING

    Cargado por

    Jose Rodriguez
    Este documento describe cómo utilizar la sentencia MOVE-CORRESPONDING en ABAP para mover los datos de una tabla interna sin encabezado a una tabla interna con encabezado. Explica cómo seleccionar datos de una tabla, ordenarlos y filtrarlos antes de moverlos a otra tabla usando MOVE-CORRESPONDING. Luego buclea a través de la nueva tabla para escribir los datos.

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    de 4

    SAP ABAP Programación

    Solución Ejercicio – Sentencia MOVE-CORRESPONDING

    SOLUCIÓN EJERCICIO
    Sentencia MOVE-CORRESPONDING
    SAP ABAP Programación

    1
    SAP ABAP Programación
    Solución Ejercicio – Sentencia MOVE-CORRESPONDING

    1. En la transacción del Editor ABAP modifique el programa


    Z_DSCRB_USUARIOSAP*.

    2. La sentencia que mueve toda la información de la tabla interna sin


    cabecera a la tabla interna con cabecera es:

    MOVE-CORRESPONDING gt_clientes TO gt_deudores[].

    3. Todo el código de la aplicación.

    DATA: gt_deudores TYPE STANDARD TABLE OF kna1 WITH HEADE


    R LINE,
    gt_clientes TYPE STANDARD TABLE OF kna1,
    gwa_cliente TYPE kna1,
    gv_no_clientes TYPE i.

    SELECT * FROM kna1


    INTO TABLE gt_clientes
    WHERE land1 EQ 'US'.

    IF sy-subrc EQ 0.
    DESCRIBE TABLE gt_clientes LINES gv_no_clientes.
    WRITE: 'El nº de deudores de EE.UU. es ', gv_no_client
    es.

    READ TABLE gt_clientes INTO gwa_cliente


    WITH KEY regio = 'IL'.

    IF sy-subrc EQ 0.
    WRITE: / 'Número de deudor: ', gwa_cliente-kunnr.
    ENDIF.

    SKIP 3.

    WRITE / 'Deudores con la fecha de creación superior a


    01 de enero de 2015'.

    SORT gt_clientes DESCENDING BY erdat.

    LOOP AT gt_clientes INTO gwa_cliente


    WHERE erdat GT '20050101'.

    * Lógica que elimina primer registro de la tabla interna

    2
    SAP ABAP Programación
    Solución Ejercicio – Sentencia MOVE-CORRESPONDING

    IF sy-tabix EQ 1.
    DELETE TABLE gt_clientes FROM gwa_cliente.
    ENDIF.

    IF gwa_cliente-erdat EQ '20050722'.

    gwa_cliente-erdat = sy-datum.
    MODIFY gt_clientes FROM gwa_cliente TRANSPORTING erd
    at.

    ENDIF.

    WRITE: / gwa_cliente-kunnr,
    gwa_cliente-erdat.

    ENDLOOP.

    ENDIF.

    SKIP 3.

    SELECT * FROM kna1


    INTO TABLE gt_deudores
    WHERE land1 EQ 'DE'.

    IF sy-subrc EQ 0.

    WRITE / 'Deudores de Alemania'.


    LOOP AT gt_deudores.

    IF gwa_cliente-erdat EQ '20050722'.
    DELETE gt_deudores.
    ELSE.
    WRITE: / gwa_cliente-kunnr,
    gwa_cliente-erdat.
    ENDIF.

    ENDLOOP.

    ENDIF.

    SKIP 3.

    MOVE-CORRESPONDING gt_clientes TO gt_deudores[].

    WRITE / 'Deudores de la tabla interna con cabecera'.

    3
    SAP ABAP Programación
    Solución Ejercicio – Sentencia MOVE-CORRESPONDING

    LOOP AT gt_deudores.

    WRITE: / gt_deudores-kunnr,
    gt_deudores-land1.

    ENDLOOP.

    También podría gustarte