Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 9656

Re: issue in Remove error with condition

$
0
0

IF i_ekko-ekgrp <> '313' AND i_ekko-ekgrp <> '801' AND i_ekko-ekgrp <> '802' AND i_ekko-ekgrp <> '804' AND i_ekko-ekgrp <> '805'.

   IF ( i_ekko-kalsm = 'ZINTRA' AND i_ekko-aedat >= '20140108' AND i_ekko-bukrs <> '0262') OR " '0262' Added by Mital/Hiren on 21.08.2015

      ( i_ekko-kalsm = 'ZCTCNS' AND i_ekko-aedat >= '20140108' ).

 

     LOOP AT tekpo INTO i_ekpo WHERE loekz = space AND stapo <> 'X'

       CLEAR w_posnr.

       CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

         EXPORTING

           input  = i_ekpo-ebelp

         IMPORTING

           output = w_posnr.

 

       CLEAR i_komv.

       READ TABLE  tkomv INTO i_komv WITH KEY kposn = w_posnr

                                              kschl = 'ZMRP'.

       IF sy-subrc = 0.

         IF i_komv-kbetr IS INITIAL .

           CLEAR l_message.

           CONCATENATE 'ZMRP is Zero or Not available for line item' i_ekpo-ebelp INTO l_message

             SEPARATED BY space.

           MESSAGE l_message TYPE 'E'.

         ENDIF.

       ELSE.

         CLEAR l_message.

         CONCATENATE 'ZMRP is Zero or Not available for line item' i_ekpo-ebelp INTO l_message

           SEPARATED BY space.

         MESSAGE l_message TYPE 'E'.

*       endif.

       ENDIF.

       CLEAR i_ekpo.

     ENDLOOP.

   ENDIF.

ENDIF.




thankyou ashok for quick reply this is my code where read table has also a reference, kindly solve my issue.


Viewing all articles
Browse latest Browse all 9656

Trending Articles