How to get a copied transaction from MIR4 only to display??

Question

hi all, we have two transactions named ZZMIR4 and ZZZMIR4. Both are copies from MIR4, but the first one is for modifications and the other one is only to display....
I use two registers in T169 to get this...ZZMIR4 has T169-TRTYP = 'V' so we can change invoices from this transaction and ZZZMIR4 has T169-TRTYP = 'A' so when you enter in this transaction you get the invoice in display mode...but the problem is that I can go through menus and do "edit-change" so I can modify the document anyway...
What Can I do to force only display with ZZZMIR4???
Perhaps using auth. object M_RECH_WRK??? if yes, then what activity I need to use to only allow display and what I can use to allow both change&display??? coz in se93 I set ZZZMIR4 with this object M_RECH_WRK and activity "03" but I can do "edit-change" anyway without problems....
Thanks in advance...any tips would be much appreciated...

Answer 1

Hi,
in program SAPLMR1M, dynpro 600 in PAI you have MODULE exit_6000 AT EXIT-COMMAND.
here you have:
    WHEN 'PPCH'.
      IF akt_typ = c_trtyp_a.
*---------- clear existing buffer and read from database -------------*
*---------- with lock for change                         -------------*
        MOVE rbkpv-rbstat TO f_rbstat_old.
        CALL FUNCTION 'MRM_PUFFER_REFRESH'.
        CALL FUNCTION 'MRM_INVOICE_READ'
          EXPORTING
            i_belnr     = rbkpv-belnr
            i_gjahr     = rbkpv-gjahr
            i_xselk     = 'X'
            i_buffer_on = space
            i_lock      = c_x
          IMPORTING
            e_rbkpv     = rbkpv
          EXCEPTIONS
            lock_error  = 1.
        IF sy-subrc NE 0.
          MESSAGE ID      sy-msgid
          TYPE    'I'
          NUMBER  sy-msgno
          WITH    sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ELSE.
          IF rbkpv-rbstat NE f_rbstat_old.
            MESSAGE i891 WITH rbkpv-belnr rbkpv-gjahr.
          ENDIF.
          CLEAR init.
          CLEAR init_6000.
          mir4_change = 'X'.
          LEAVE TO SCREEN 6000.
        ENDIF.
      ELSE.
        akt_typ = c_trtyp_a.
      ENDIF.
      CLEAR ok-code.
  ENDCASE.
The key here seems to be variables init, init_6000 and mir4_change.
See if you can do something so that when ok-code = 'PPCH' -> init = 'X', init_600 = 'X' and mir4_change = ' '.
(Another option: you can create a variant for transaction ZZZMIR4 so that all fields remain as "display only").
Best regards.
Edited by: Pablo Casamayor on Nov 17, 2009 9:15 AM