‎2006 Sep 19 2:40 PM
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.
‎2006 Sep 19 2:49 PM
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).
--
SELECT RESBMATNR MAKTMAKTX RESBBDMNG RESBMEINS RESB~CHARG
INTO TABLE ITAB
FROM RESB INNER JOIN MAKT ON RESBMATNR = MAKTMATNR.
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.
ENDLOOP.
Message was edited by: Anurag Bankley
‎2006 Sep 19 3:02 PM
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