In my previous post, I documented the way to fulfill bank account relation information by leveraging the standard extension: <Flow Builder Plus: extend standard logic for fetching bank account | SAP Blogs>

In this post, I will use the standard extension point to support the case that Downpayment Request was cleared by the downpayment.

By default, Flow Builder Plus supports only the clearing relationship between documents, including practical clearing cases. All those clearing relationship are located on document line item level, means, the specified document line item is cleared or not.

However, the clearing between downpayment request and downpayment request is something different because it is on document level:

• Downpayment item are not selectable for clearing;
• Downpayment request have been cleared;

To achieve so, you need create a BAdI implementation for BAdI IF_FQM_FLOW_ENHANCEMENTS_CORE, for its method ADJUST_FLOWS.

The following sample codes shows the way to support one of the clearing down payment request:

class ZFQM_BADI_ADJUSTFLOW_DOWNPAYMENT definition
  public
  final
  create public .

public section.

  interfaces IF_BADI_INTERFACE .
  interfaces IF_FQM_FLOW_ENHANCEMENTS_CORE .
protected section.
private section.
ENDCLASS.



CLASS ZFQM_BADI_ADJUSTFLOW_DOWNPAYMENT IMPLEMENTATION.


  METHOD if_fqm_flow_enhancements_core~adjust_flows.
  " ----------------------------------------------------------------------
  " This sample code only covers the following scenario:
  " - Down payment request cleared
  "   Same Vendor
  "   Invoice item item with Special G/L indicator: 'A'
  "   Down payment request item with Special G/L indicator: 'F'
  "   Down payment request item are cleared by the invoice document
  "
  " ----------------------------------------------------------------------
    SELECT a~fi_document_number, a~fi_fiscal_year, a~company_code, a~fi_account, a~line_number
      FROM @ct_flows AS a
        INNER JOIN bseg AS b
          ON a~fi_document_number = b~belnr
          AND a~fi_fiscal_year = b~gjahr
          AND a~company_code = b~bukrs
          AND a~fi_document_line_item = b~buzei
        WHERE a~certainty_level = 'PAY_N' AND a~origin_application = 'BSEGV'
          AND b~koart = 'K'
          AND b~umskz = 'A'
        INTO TABLE @DATA(lt_invoice_flows).
    IF lt_invoice_flows IS NOT INITIAL.
        SELECT a~line_number
          FROM @lt_invoice_flows AS a
            INNER JOIN bseg AS b
              ON  a~fi_document_number = b~augbl
                AND a~fi_fiscal_year = b~auggj
                AND a~company_code = b~bukrs
                AND a~fi_account = b~hkont
             WHERE b~koart = 'K' AND b~umskz = 'F'
         INTO TABLE @DATA(lt_line_number).

        IF lt_line_number IS NOT INITIAL.
          LOOP AT ct_flows INTO DATA(ls_flow).
            READ TABLE lt_line_number TRANSPORTING NO FIELDS
              WITH KEY line_number = ls_flow-line_number.
            IF sy-subrc EQ 0.
              DELETE ct_flows.
            ENDIF.
          ENDLOOP.
        ENDIF.
      ENDIF.
  ENDMETHOD.
ENDCLASS.