Ver Mensaje Individual
  #1  
Viejo 18/04/06, 00:56:12
Avatar de DCErick
DCErick DCErick is offline
Moderator
 
Fecha de Ingreso: mar 2006
Localización: Monterrey
Mensajes: 1,090
Rendimiento...

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.




ENDFUNCTION.
Responder Con Cita