Check printing problem.

Question

for check printing through f-58 or FBz5 my client requred format is not matching with standard script
F110_PRENUM_CHCK . so i need to create new script for check as well as for Pmnt advice .
instead of script can we create Smartform and configure the smartform? fro payment advice i am
not finding any code in  progam RFFOUS_C .
if i create now script or smartform where i should change the code in this program....i made z program of RFFOUS_C .
Thanks,

Answer 1

Hi,
Make your own z program 'ZRFFOUS_C', in that find include 'RFFORI01', just make a Z copy of that include code, 'ZRFFORI01'.
Now in this Z include 'ZRFFORI01', find the subroutine 'scheck', comment all the FMs starting with
OPEN_FORM, READ_FORM_LINES, CLOSE_FORM, START_FORM, WRITE_FORM  in that include, and just at the end,
Now try to find this piece of code at the start of the subroutine scheck:
  IF flg_sort NE 2.
    SORT BY avis.
    flg_sort = 2.
  ENDIF.
  hlp_ep_element = '525'.
and paste the below code after 'ENDIF' and before '  hlp_ep_element = '525'.'  :
  DATA: lf_fm_name     TYPE rs38l_fnam.
  DATA: lf_formname    TYPE tdsfname.
  DATA: i_bank    TYPE zregup,
        i_bank1   TYPE zregup.
  DATA: w_reguh TYPE reguh,
        w_regud TYPE regud.
  DATA: i_reguh LIKE reguh OCCURS 0,
        i_regud LIKE regud OCCURS 0,
        count TYPE n,
        lino TYPE n,
        output TYPE ssfcompop,
        cpa   TYPE ssfctrlop,
        spool TYPE ssfcrescl,
        spool1 TYPE ssfcresop.
  lf_formname = 'ZFRM_FIS_CHEQUE'..................ur Z smartform name
******Now in the same subroutine, at the last , whr the loop ends:
    APPEND : regup TO i_bank,
             reguh TO i_reguh,
             regud TO i_regud.
  ENDLOOP.
  hlp_ep_element = '525'.
*****start your code hea
  SORT i_reguh BY lifnr.
  DELETE ADJACENT DUPLICATES FROM i_reguh COMPARING lifnr.
  DESCRIBE TABLE i_reguh LINES lino.
  LOOP AT i_reguh INTO w_reguh.
    count =  count + 1.
    cpa-no_dialog = 'X'.
    cpa-no_close = ' '.
    cpa-preview = ' '.
    cpa-getotf = ' '.
    cpa-langu = ''.
    output-tdimmed = ' '.
    output-tddelete = ' '.
    output-tdnoprint = ' '.
   IF count EQ 1.
      output-tdnewid = 'X'.
   ELSE.
     output-tdnewid = ' '.
   ENDIF.
   IF count EQ lino.
      output-tdfinal = 'X'.
   ENDIF.
    reguh = w_reguh.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = lf_formname
      IMPORTING
        fm_name            = lf_fm_name
      EXCEPTIONS
        no_form            = 1
        no_function_module = 2
        OTHERS             = 3.
    CLEAR regud.
    READ TABLE i_regud INTO regud WITH KEY ovbln = w_reguh-vblnr.
    CALL FUNCTION lf_fm_name
      EXPORTING
  ARCHIVE_INDEX              =
  ARCHIVE_INDEX_TAB          =
  ARCHIVE_PARAMETERS         =
  CONTROL_PARAMETERS         =
  MAIL_APPL_OBJ              =
  MAIL_RECIPIENT             =
  MAIL_SENDER                =
    output_options             = output
  USER_SETTINGS              = 'X'
        i_bank                     = i_bank
        i_ven                      = reguh
        i_ban                      = regud
IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
     EXCEPTIONS
       formatting_error           = 1
       internal_error             = 2
       send_error                 = 3
       user_canceled              = 4
       OTHERS                     = 5
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDLOOP.
****This is how it has been done at my client side, u please consult a FI consultant as well, about this
Edited by: Azeem Ahmed Matte on Feb 24, 2009 1:00 PM