‎2006 Sep 22 4:42 PM
Hi Experts,
Could you please anybody help me and resolve this issue
As per my below requirement i had written below select queries but this requirement says ATWRT is next retest date and manufacturer expiration date based on the values of AUSP-ATINN field.
But the values of ATWRT from the table AUSP are
1) CUST-N09.00602560
2) CUST-N11.00220820
3) CUST-N09.00602560 and so on..........
but how can i get above requirement as mentioned above dates .
<b>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).</b>
SELECT a~matnr
a~bdmng
a~meins
a~charg
a~aufpl
a~aplzl
a~objnr
b~maktx
INTO TABLE gt_resb_makt
FROM resb AS a INNER JOIN makt AS b
ON amatnr = bmatnr
WHERE a~objnr = wa_afvc-objnr
AND a~aufpl = wa_afvc-aufpl
AND a~aplzl = wa_afvc-aplzl.
IF gt_resb_makt[] IS NOT INITIAL.
SELECT objek
<b>atwrt</b>
atinn
FROM ausp
INTO TABLE gt_ausp
FOR ALL ENTRIES IN gt_resb_makt
WHERE objek = gt_resb_makt-charg
AND atinn = 9999999400.
SELECT objek
atwrt
atinn
FROM ausp
INTO TABLE gt_ausp1
FOR ALL ENTRIES IN gt_resb_makt
WHERE objek = gt_resb_makt-charg
AND atinn = 9999999409.
Regards,
Divya
‎2006 Sep 22 4:44 PM
sorry i did't mentioned the point for this i had written the below code but data for date (ausp-atwrt) is not coming into my form
Regards,
Divya
‎2006 Sep 22 4:50 PM
HI Divya,
as per i understand...
try this method..
1. select objek from ausp itab where atinn = urs characteristic.
2. loop at itab.
select objeck from inob into itab1 where cuobj = itab-objek.
endloop.
inob-objek is a mix of matnr + batch.
matnr = itab1-objek+0(18).
batch = itab1-objek+18(10).
use these matnr and batch values in table RESB and get all other things as per ur requirement.
hope it helps.. let me know if u have other requirement.
Regards