topic Re: help needed in Application Development and Automation Discussions

help needed

Former Member — Tue, 19 Sep 2006 13:40:51 GMT

hi experts,

could u plz help me to code for the below desc

Material number (RESB-MATNR) material short text,( MAKT-MAKTX) quantity weighed (RESB-BDMNG), unit of measure (RESB-MEINS), next retest date (READ AUSP-ATWRT where batch equals AUSP-OBJEK and AUSP-ATINN equals LOBM_QNDAT), manufacturer expiration date(READ AUSP-ATWRT where batch equals AUSP-OBJEK and AUSP-ATINN equals LOBM_VFDAT), batch number.(RESB-CHARG).

regards,

siri.

Re: help needed

Former Member — Tue, 19 Sep 2006 13:49:19 GMT

SELECT RESB_{MATNR MAKT}MAKTX RESB_{BDMNG RESB}MEINS RESB~CHARG

INTO TABLE ITAB

FROM RESB INNER JOIN MAKT ON RESB_{MATNR = MAKT}MATNR.

SELECT OBJEK ATWRT ATINN

FROM AUSP

INTO TABLE IBATCH

FOR ALL ENTRIES IN ITAB

WHERE OBJEK = ITAB-CHARG

AND ATINN IN ('LOBM_VFDAT','LOBM_QNDAT').

IBATCH AND ITAB CONTAINS YOUR DATA

LOOP AT ITAB.

LOOP AT IBATCH WHERE OBJEK = ITAB-CHARG.

*NEXT RESET DATE

*MANUFACTURE EXPIRATION DATE

ENDLOOP.

Message was edited by: Anurag Bankley

Re: help needed

Former Member — Tue, 19 Sep 2006 14:02:44 GMT

HI,

SELECT MATNR

BDMNG MEINS CHARG

INTO TABLE I_resb

FROM RESB .

if not i_resb[] is initial.

SELECT OBJEK ATWRT ATINN

FROM AUSP

INTO TABLE I_ausp

FOR ALL ENTRIES IN I_resb

WHERE OBJEK = I_resb-CHARG

AND (( ATINN eq 'LOBM_VFDAT' )or

ATINN eq 'LOBM_QNDAT' )).

LOOP AT I_resg.

read table I_ausp WHERE OBJEK = I_resb-CHARG.

prepare final tab.e

ENDLOOP.

Regards

amole