Credit Card issue to create Deliveries

Question

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

Answer 1

I looked into OSS NOTE 303052 as suggested by you and that's already implemented.
Did you look at the part of the note that suggests changing the message from type 'I' to u2018Eu2019?  That is in the comments at the top and is a MODIFICATION that isnu2019t part of the note itself:
If you want to prevent the creation of a delivery without sufficient authorization, you have to change the message type from 'I' to 'E'.
You've probably already tried setting a break-point on the form itself, FORM BEDINGUNG_PRUEFEN_111, correct? 
Turn on system debugging?
Perhaps your form isn't being called at all?
Regards,
Eric Bushman
www.paymetric.com