cancel
Showing results for 
Search instead for 
Did you mean: 

VL 602 in VLPODL

henrik_suess
Discoverer
0 Kudos

Hello,

recently we discovered that the system behaves differently when posting a POD via VLPOD and VLPODL.

The difference lies in enhancement 5 of form WARENAUSGANG_BUCHEN, include FV50WF0W.

Delivery header status:

WBSTK = C

PDSTK = A

Without an activated DIMP-switch you would get error message VL 602 (goods issue has already been sent for this delivery). But with activated DIMP-switch SAP checks which transaction code is being used to post POD.

When sy-tcode = VLPOD or VLPODA the error message will not be sent.

But with VLPODL it will be.

Does anyone of you know why SAP differentiates here?

Regards,

Henrik

Coding:

IF ( wb_wa_erf = space OR xvbuk-wbstk EQ charc )
          AND xlikp-mdiff_buch IS INITIAL                      "^_XAN-SPM
          AND lf_post_disc     IS INITIAL.                     "^_VB-SPM
*... Teil-WE: keine Fehlermeldung
* if likp-vbtyp eq vbtyp_liav and not likpd-kzebu is initial. "v_XAN-SPM
       IF ( likp-vbtyp = vbtyp_liav   OR
            likp-vbtyp = vbtyp_lire ) AND NOT
          likpd-kzebu IS INITIAL.                              "^_XAN-SPM
         EXIT.
       ENDIF.
       IF likp-vbtyp EQ vbtyp_liav.
         wat-msgno = '636'.
* MESSAGE E636.
* Der Wareneingang für diese Anlieferung ist bereits gebucht.
       ELSE.
* MESSAGE E602.
* Lieferung ist schon Warenausgang gebucht
         wat-msgno = '602'.
       ENDIF.
       IF cl_ops_switch_check=>mm_sfws_sit( ) IS NOT INITIAL.        "v_SIT
         IF ( gv_sit_flag = 'X' AND sy-tcode = 'VLPOD' ) OR
            ( gv_sit_flag = 'X' AND sy-tcode = 'VLPODA' ) OR
            ( gv_sit_flag = 'X' AND lv_sitgo = charx ).
           lv_no_msg = 'X'.
         ELSE.
           CLEAR lv_no_msg.
         ENDIF.
         IF lv_no_msg IS INITIAL.
           wat-msgty = e.
           wat-msgid = 'VL'.
           wat-msgv1 = space.
           wat-msgv2 = space.
           wat-msgv3 = space.
           wat-msgv4 = space.
           APPEND wat.
         ENDIF.
       ELSE.
         wat-msgty = e.
         wat-msgid = 'VL'.
         wat-msgv1 = space.
         wat-msgv2 = space.
         wat-msgv3 = space.
         wat-msgv4 = space.
         APPEND wat.
       ENDIF.                                                        "^_SiT
     ENDIF.

Accepted Solutions (0)

Answers (1)

Answers (1)

former_member189779
Active Contributor
0 Kudos

Henrik,

Do you found solution for this?

Regards

Vinit