cancel
Showing results for 
Search instead for 
Did you mean: 

Table for QM

Former Member
0 Kudos

Hi,

Please help me to find the table for

AUFBX - sample was stoted

PRNVX - sample was destroyed

the structure for PRNVX is RQPRS

regards

Rahul

Accepted Solutions (1)

Accepted Solutions (1)

Former Member
0 Kudos

Hi Rahuls,

These fields do not correspond to a table. Flags are related to the physical sample status. You can find it using the following function module: QAST_STATUS_CHECK.

Check the following standard source code (include LQPRSF10, P_OBJNR = "QP" + "Sample number", example = "QP0000200013042")


*&---------------------------------------------------------------------*
*&      Form  STATUSKENNZEICHEN
*&---------------------------------------------------------------------*
*       Bestimmen der Schalter 'Aufbewahrung durchgeführt' und
*       'Probe nicht mehr vorhanden'
*----------------------------------------------------------------------*
*      -->P_OBJNR  Objektnummer der Phys. Probe
*      <--P_AUFBX  Flag 'Aufbewahrung durchgeführt'
*      <--P_PRNVX  Falg 'Probe nicht mehr vorhanden'
*----------------------------------------------------------------------*
FORM STATUSKENNZEICHEN USING VALUE(P_OBJNR) LIKE QPRS-OBJNR
                       CHANGING P_AUFBX
                                P_PRNVX.

  CALL FUNCTION 'QAST_STATUS_CHECK'
       EXPORTING
            I_OBJNR          = P_OBJNR
            I_STATUS         = C_STATUS_AUFB
       EXCEPTIONS
            STATUS_NOT_ACTIV = 1
            OTHERS           = 2.
  IF SY-SUBRC EQ C_RC00.
*-- Status aktiv
    MOVE C_KREUZ TO P_AUFBX.
  ELSE.
    CLEAR P_AUFBX.
  ENDIF.
*-- Prüfen, ob Status 'Probe nicht mehr vorhand.' sitzt
  CALL FUNCTION 'QAST_STATUS_CHECK'
       EXPORTING
            I_OBJNR          = P_OBJNR
            I_STATUS         = C_STATUS_PRNV
       EXCEPTIONS
            STATUS_NOT_ACTIV = 1
            OTHERS           = 2.
  IF SY-SUBRC EQ C_RC00.
*-- Status aktiv
    MOVE C_KREUZ TO P_PRNVX.
  ELSE.
    CLEAR P_PRNVX.
  ENDIF.

ENDFORM.                               " STATUSKENNZEICHEN

Answers (1)

Answers (1)

former_member42744
Active Contributor
0 Kudos

I gave you this answer in your previous posting about these fields.

Craig