Skip to Content
0
Former Member
Dec 07, 2011 at 03:58 PM

Credit Card issue to create Deliveries

77 Views

Hi,

Hereu2019s the situation.

We have 2 types of Orders.

DROP SHIP ORDERS - The part to be shipped is actually in an inventory managed location. No transfer order need to be created. This sales order has a Credit Card that is denied.

NOTE: The order has to be pre-authorized, and then Denied and then get picked from an Inventory Location.

1. Use VL01N to create the Delivery. No error (warning) message was displayed indicating credit card issues.

2. Change the storage location on the line item to the inventory managed location and enter the delivery quantity.

3. Press Save. A error (warning) message is displayed indicating credit card issue.

4. The system lists the delivery number that has been created.

5. Execute VL02N to view the delivery. the delivery does not exist.

TRANSFER ORDERS -

1. Use VL01N to create the Delivery.

2. You do not need to change the SLOC value.

3. Press Save.

4. A Transfer Order is created automatically and the Delivery exists.

I copied BEDINGUNG_PRUEFEN_111 into BEDINGUNG_PRUEFEN_911 to make some changes.

The problem is when I use the below code it works fine for DROP SHIP ORDERS. For TRANSFER ORDER, a delivery is created but a transfer order is not created.

************************************************************
*** Attention: copied routine!                           ***
*** Attention:                                           ***
*** Character string 111 is replaced by 911 everywhere ! ***
************************************************************


*---------------------------------------------------------------------*
*       FORM BEDINGUNG_PRUEFEN_911                                    *
*       User checks for subsequent functions from a delivery          *
*                                                                     *
*       Picking                                                       *
*---------------------------------------------------------------------*

FORM BEDINGUNG_PRUEFEN_911.

* Picking is not allowed if a credit block exists
*  IF statement deleted                                     "n_566523
*   document header
  IF VBUK-CMGST CA 'B'.
*Read the subsequent function information for the message
    PERFORM FOFUN_TEXT_READ USING    GL_FOFUN
                            CHANGING FOFUN_TEXT.

    MESSAGE ID 'V1' TYPE 'W' NUMBER '849'
            WITH FOFUN_TEXT
            RAISING WARNING.

  ENDIF.

ENDFORM.

When I comment the below line TRANSFER ORDERS work fine but DROP SHIP ORDERS show that a delivery is created but actually its not created.

RAISING WARNING.

I tried using the debug but the program would not stop in this routine.

I would appreciate your suggestions on this.

Thanks

Rakesh