|
Mas vale tarde
Se que es un poco tarde, pero quizas le sirva a otro.
Efectivamente necesitas utilizar la funcion "RP_EVALUATE_INDIRECTLY_P0008" que es una especialización de la funcion "RP_EVALUATE_INDIRECTLY". Le envias una tabla (tbindbw) a la función con los valores:
tbindbw-lgart = p0008-lga01.
tbindbw-opken = p0008-opk01.
tbindbw-betrg = p0008-bet01.
tbindbw-waers = p0008-waers.
tbindbw-indbw = p0008-ind01.
tbindbw-anzhl = p0008-anz01.
tbindbw-modna = t511-modna.
tbindbw-zeinh = t511-zeinh.
append tbindbw.
La forma de invocar la función sería:
CALL FUNCTION 'RP_EVALUATE_INDIRECTLY_P0008'
EXPORTING
PBEGDA = p0008-begda
PMOLGA = '39'
PP0001 = p0001
PP0007 = p0007
PP0008 = p0008
PPERNR = it0000-pernr
TABLES
ptbindbw = tbindbw
EXCEPTIONS
BAD_PARAMETERS = 1
ERROR_AT_INDIRECT_EVALUATION = 2
OTHERS = 3.
Por si acaso debes declarar y llenar las estructuras p0001, p0007 y p0008, llenalas con las tablas pa0001, pa0007 y pa0008.
Eso sería, espero te sirva, si tienes mas dudas pregunta.
Saludos
Teo
|