The check should disregard if the sales order had earlier been blocked, then released via VKM1.
Currently, the system simply ignores credit check when the original sales order was blocked and then released by credit management.
What do I need to look out for?
This is what's been done:
1. Sales order assigned to credit group C2.
2. Delivery assigned to credit group C3.
3. Use automatic credit management
4. No risk categories.
Configuration for Delivery Credit Check:
* Use user exit 1 to make sure all deliveries are BLOCKED by Credit management.
Report result from CHECK_CM:
* System checked previous sales order had been approved by credit, hence the status "D".
* No check is carried out, even the user exit 1 is not triggered.
User Exit for User Check 1:
- Code: Select all
***INCLUDE LVKMPFZ1 .
* Subroutines for user credit check 1
*---------------------------------------------------------------------*
* FORM USER_CREDIT_CHECK1 *
*---------------------------------------------------------------------*
* this routine must be programmed, if user activates credit *
* check user 1 in T691f *
* please regard message numbers V1170, V1171 in Table T100 *
*---------------------------------------------------------------------*
* --> UCC1_UPDATE 'X' means during posting a document *
* ' ' means during processing items *
* --> UCC1_KKBER credit control area *
* --> UCC1_KNKLI credit customer *
* --> UCC1_FLG_ORDER 'X' means document is an order *
* --> UCC1_FLG_DELIVERY 'X' means document is a delivery note *
* <-- UCC1_RC returncode: 0 means OK, 4 means not OK *
*---------------------------------------------------------------------*
FORM USER_CREDIT_CHECK1 USING UCC1_UPDATE
UCC1_KKBER
UCC1_KNKLI
UCC1_FLG_ORDER
UCC1_FLG_DELIVERY
CHANGING
UCC1_RC.
* clear the returncode
CLEAR UCC1_RC.
* credit check: if not positiv, set returncode
* MOVE CON_RC_NOK TO UCC1_RC.
** Compulsory block -- Added for ensure delivery is blocked, regardless.
ucc1_rc = 4.
** End of update for Pacific Andes
ENDFORM.
Thanks in advance!
Regards,
RL
