Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 9190

Re: Dunning notices with negative arrears

$
0
0

Again the error message FM 708 depends, in my opinion, on a wrong note implementation:

 

 

Please refer to screen shot attached and check Your code

 

 

 

*     item must be dunned, calculate new duning level and key

      IF h_dunn_it = 'X'.

        IF gd_exit_active = 'X'.

          CALL FUNCTION 'OPEN_FI_PERFORM_00001762_E'

            CHANGING

              cs_mhnd_ext = t_mhnd_ext

            EXCEPTIONS

              OTHERS      = 4.

          IF sy-subrc <> 0.

            PERFORM determine_du_level TABLES   t_t047b

                                       USING    t_mhnd_ext

                                       CHANGING t_mhnd_ext-mahnn.

 

 

*           log the new dunning level for the item

                 "1273832

            IF 0 = 1. MESSAGE s831. ENDIF.

                         "1273832

            IF t_mhnd_ext-mahnn <> '9'.

                            "1273832

            PERFORM log_msg USING '831'

                    t_mhnd_ext-blinf t_mhnd_ext-mahnn space space.

"1273832

            ENDIF.

                                                 "1273832

          ENDIF.

*{   INSERT         FD6K900676                                        1

            IF t_mhnd_ext-mahnn > 0.             "modif. 333506

              t_mhnd_ext-xfael = 'X'.            "modif. 333506

            ENDIF.                               "modif. 333506

*}   INSERT

        ELSE.

*       generate dunning level (mahnn)

          PERFORM determine_du_level TABLES   t_t047b

                                       USING    t_mhnd_ext

                                       CHANGING t_mhnd_ext-mahnn.

 

 

*           log the new dunning level for the item

                 "1273832

            IF 0 = 1. MESSAGE s831. ENDIF.

                         "1273832

            IF t_mhnd_ext-mahnn <> '9'.

                            "1273832

            PERFORM log_msg USING '831'

                    t_mhnd_ext-blinf t_mhnd_ext-mahnn space space.

"1273832

            ENDIF.

                                                 "1273832

          ENDIF.

*{   INSERT         FD6K900676                                        1

            IF t_mhnd_ext-mahnn > 0.             "modif. 333506

              t_mhnd_ext-xfael = 'X'.            "modif. 333506

            ENDIF.                               "modif. 333506

*}   INSERT

        ELSE.

*       generate dunning level (mahnn)

          PERFORM determine_du_level TABLES   t_t047b

                                     USING    t_mhnd_ext

                                     CHANGING t_mhnd_ext-mahnn.

*         log the new dunning level for the item

                 "1273832

          IF 0 = 1. MESSAGE s831. ENDIF.

                         "1273832

          IF t_mhnd_ext-mahnn <> '9'.

                            "1273832

          PERFORM log_msg USING '831'

                  t_mhnd_ext-blinf t_mhnd_ext-mahnn space space.

"1273832

          ENDIF.

                                                 "1273832

        ENDIF.

*{   INSERT         FD6K900676                                        1

            IF t_mhnd_ext-mahnn > 0.             "modif. 333506

              t_mhnd_ext-xfael = 'X'.            "modif. 333506

            ENDIF.                               "modif. 333506

*}   INSERT

      ELSE.

*       if item is not to be dunned keep the old mahns as mahnn

 

thanks.

mauri


Viewing all articles
Browse latest Browse all 9190

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>