compaq311
23/05/07, 22:40:57
Un saludo a todos soy nuevo en ABAP.
Tengo esta consulta de donde me piden que traiga la planta (WERKS) de los movimientos que estan en itab_refu.
LOOP AT itab_refu.
SELECT SINGLE VBELV FROM VBFA
INTO documento
WHERE VBELN = itab_refu-zuonr AND
VBTYP_V = 'J'.
IF SY-SUBRC <> 0.
**Factura
SELECT SINGLE WERKS LGORT FROM VBRP
INTO (CENTRO)
WHERE VBELN = itab_refu-zuonr AND
WERKS NOT IS INITIAL.
ELSE.
**Entrega
SELECT SINGLE WERKS FROM LIPS
INTO (CENTRO)
WHERE VBELN = documento AND
LFIMG NE 0.
ENDIF.
itab_refu-werks = CENTRO
MODIFY itab_refu.
ENDLOOP.
Hay alguna otra alternativa por que se tarda mucho este programa. itab_refu trae como 2000 registros.
Saludos y gracias.
Tengo esta consulta de donde me piden que traiga la planta (WERKS) de los movimientos que estan en itab_refu.
LOOP AT itab_refu.
SELECT SINGLE VBELV FROM VBFA
INTO documento
WHERE VBELN = itab_refu-zuonr AND
VBTYP_V = 'J'.
IF SY-SUBRC <> 0.
**Factura
SELECT SINGLE WERKS LGORT FROM VBRP
INTO (CENTRO)
WHERE VBELN = itab_refu-zuonr AND
WERKS NOT IS INITIAL.
ELSE.
**Entrega
SELECT SINGLE WERKS FROM LIPS
INTO (CENTRO)
WHERE VBELN = documento AND
LFIMG NE 0.
ENDIF.
itab_refu-werks = CENTRO
MODIFY itab_refu.
ENDLOOP.
Hay alguna otra alternativa por que se tarda mucho este programa. itab_refu trae como 2000 registros.
Saludos y gracias.