Disabling all fields in VA02 on a particular Order status

Question

Hi Gurus,
We have a requirement to grey out all the fields of the sales order in VA02 if the current order header status is
set to a particular value , lets say '10' (E0010).
I have tried below code in MV45AFZZ  (userexit_field_modification) :
IF sy-tcode = 'VA02' AND vbak-auart = 'ZTIL'.
    CALL FUNCTION 'STATUS_READ'
      EXPORTING
        client           = sy-mandt
        objnr            = vbak-objnr
        only_active      = 'X'
      TABLES
        status           = lt_stat
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.
    DELETE lt_stat WHERE stat CP 'I*'.
    READ TABLE lt_stat INTO lw_stat WITH KEY stat = 'E0010'.
    IF sy-subrc EQ 0.
      LOOP AT SCREEN.
        screen-input = 0.
        MODIFY SCREEN.
      ENDLOOP.
    ENDIF.
ENDIF.
But, the issue is here the program goes for a long endless loop
and eventually we have to stop the transaction.
(since we did not want to choose any particular field, but grey out entire order)
Could anyone of you please suggest what needs to be done here.
Thanks in advance.
Regards,
Nitin

Answer 1

Hi Nitin,
You didn't mention that you want that two fields to be open.
What you have done is correct in the form routine but you should not use Loop at screen. Because the Form routine is itself called for each field.
The following code logic change inside the userexit_field_modification will solve your problem.
Write like;
IF sy-tcode = 'VA02' AND vbak-auart = 'ZTIL'.
CALL FUNCTION 'STATUS_READ'
EXPORTING
client = sy-mandt
objnr = vbak-objnr
only_active = 'X'
TABLES
status = lt_stat
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
DELETE lt_stat WHERE stat CP 'I*'.
READ TABLE lt_stat INTO lw_stat WITH KEY stat = 'E0010'.
IF sy-subrc EQ 0.
IF SCREEN-NAME NE 'FIELDNAME1' AND SCREEN-NAME NE 'FIELDNAME2'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
There is no need for trasaction variant and all if this works.
Regards,
Karthik D
Edited by: Karthik D on Feb 3, 2011 4:05 PM - Corrected code