Programación General > ABAP

 Rendimiento

(1/1)

senzao18:
Holas hice la siguiente BAPI y me gustaria saber si se puede hacer que corra mas rapido...  haber si alguien me ayuda a tener un codigo mas eficiente ....


FUNCTION zbapi_traslado_selall.
*"----------------------------------------------------------------------
*"*"Interfase local
*" TABLES
*" T_ZEKKO STRUCTURE ZSEKKO OPTIONAL
*" T_ZEKPO STRUCTURE ZSEKPO OPTIONAL
*" T_ZEKET STRUCTURE ZSEKET OPTIONAL
*"----------------------------------------------------------------------


*CABECERA.
SELECT ebeln aedat reswk ekgrp bedat
FROM ekko INTO CORRESPONDING FIELDS OF TABLE t_zekko
WHERE aedat < sy-datum AND bsakz EQ 'T' AND bstyp EQ 'F' AND statu EQ '9' AND ebeln BETWEEN 430000000 AND 4399999999.

**Articulos.
LOOP AT t_zekko.
SELECT ebeln ebelp matnr menge
APPENDING CORRESPONDING FIELDS OF TABLE t_zekpo
FROM ekpo
WHERE loekz NE 'L' AND ebeln = t_zekko-ebeln.
ENDLOOP.

***Tallas
LOOP AT t_zekpo.
SELECT ebeln ebelp j_3asize menge
FROM eket APPENDING CORRESPONDING FIELDS OF TABLE t_zeket
WHERE ebeln = t_zekpo-ebeln AND ebelp EQ t_zekpo-ebelp.
ENDLOOP.

Blag:
Intenta con esto  B)


--- Código: Text --- *CABECERA.SELECT ebeln aedat reswk ekgrp bedatFROM ekko INTO CORRESPONDING FIELDS OF TABLE t_zekkoWHERE aedat &#60; sy-datum     AND bsakz EQ 'T'     AND bstyp EQ 'F'     AND statu EQ '9'     AND ebeln BETWEEN 430000000 AND 4399999999. IF NOT t_zekko[] IS INITIAL.**Articulos.SELECT ebeln ebelp matnr mengeINTO CORRESPONDING FIELDS OF TABLE t_zekpoFROM ekpoFOR ALL ENTRIES IN t_zekkoWHERE ebeln EQ t_zekko-ebeln    AND loekz NE 'L'. ***TallasSELECT ebeln ebelp j_3asize mengeINTO CORRESPONDING FIELDS OF TABLE t_zeketFROM eketFOR ALL ENTRIES IN t_zekkoWHERE ebeln EQ t_zekpo-ebeln     AND ebelp EQ t_zekpo-ebelp.ENDIF.  
Saludos,

Blag  :smartass:

Navegación

[0] Índice de Mensajes