cancel
Showing results for 
Search instead for 
Did you mean: 

check printing problem.

former_member799868
Participant
0 Kudos

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,

Accepted Solutions (0)

Answers (5)

Answers (5)

former_member799868
Participant
0 Kudos

ans

Former Member
0 Kudos

Hi,

Dont go for Smartform. Configuring Smartform for FI module is very Tuff task. So you can Copy Existing Script and do the Modifications. Copy the Print program and change include program RFFORI01 as per your requirement. It is better.

Former Member
0 Kudos

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

Former Member
0 Kudos

Hi,

In your z program, change the form name in function module OPEN_FORM to your script name. And maintain your z program name in FBZP transaction.

Former Member
0 Kudos

Hi:

You need to create your own driver program and Smartform as well and then would be configured by Nace t/code.

Regards

Shashi