on 12-12-2007 8:09 AM
As subject.
My sap script code as below:
/: PERFORM GET_CHAMT_DATE IN PROGRAM ZRAP004
/:USING &SPELL-WORD&
/:CHANGING &SPELL-WORD&
/:ENDPERFORM
My program ZRAP004 code as below:
FORM get_chamt_date USING u_iword TYPE spell-word
CHANGING u_oword TYPE spell-word.
CONCATENATE u_iword '元整'(t01) INTO u_oword.
endform.
This form is for check printing.
It's by standard function 'F110' to excute check printing.
But when i finished this transaction. System return error message as below:
<b>This routine contains 2 formal parameters, but the current call
contains 4 actual parameters.</b>
Please help. Thanks a lot!!
Hii
write in the script
/: perform <formname> in program <prgname>
/: using &amt-field&
/: changing&amt_in_wrds&
in the program
FORM <form name> TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
call the function module SPELL_AMOUNT
PASS THE VALUES
ENDFORM
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
hi,
In ur program write the form rourtine
****
FORM get_chamt_date USING tables intab structure itcsy
outab structure itcsy.
data: in(256), out(256).
READ TABLE intab INDEX 1.
IF sy-subrc = 0.
v = intab-value.
ENDIF.
CONCATENATE u_iword '元整'(t01) INTO u_oword.
CONCATENATE v '元整'(t01) into out.
READ TABLE outab INDEX 1.
IF sy-subrc = 0.
outab-value = out.
MODIFY outab INDEX 1.
ENDIF.
this will help u
endform.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Still not work.
I was changed my code in sap script as below:
PERFORM GET_CHAMT_DATE IN PROGRAM ZRAP004
USING &SPELL-WORD&
USING ®UH-VALUT&
USING ®UD-SWNES&
CHANGING &SPELL-WORD&
CHANGING ®UH-PYORD&
CHANGING ®UH-BKREF&
ENDPERFORM
My program code as below:
DATA: lv_year(4), "chinese year
lv_len TYPE i,
lv_amt(14) TYPE c,
lv_oamt(14) TYPE c.
BREAK-POINT.
READ TABLE ut_itab WITH KEY 'SPELL_WORD'.
IF sy-subrc = 0.
CONCATENATE ut_itab-value '元整'(t01) INTO ut_itab-value.
MODIFY ut_itab INDEX sy-tabix.
READ TABLE ut_otab WITH KEY 'SPELL-WORD'.
ut_otab = ut_itab.
MODIFY ut_otab INDEX sy-tabix.
ENDIF.
READ TABLE ut_itab WITH KEY 'REGUH-VALUT'.
lv_year = ut_itab-value(4) - 1911.
WRITE lv_year TO lv_year RIGHT-JUSTIFIED."set year
ut_itab-value(4) = lv_year."set year
MODIFY ut_itab INDEX sy-tabix.
READ TABLE ut_otab WITH KEY 'REGUH-PYORD'.
IF sy-subrc = 0.
ut_otab = ut_itab.
MODIFY ut_otab INDEX sy-tabix.
ENDIF.
READ TABLE ut_itab WITH KEY 'REGUD-SWENS'.
IF sy-subrc = 0.
WRITE ut_itab-value TO lv_amt NO-GROUPING LEFT-JUSTIFIED.
CONDENSE lv_amt NO-GAPS.
SHIFT lv_amt LEFT DELETING LEADING '*'.
lv_len = STRLEN( lv_amt ).
lv_len = 14 - lv_len.
DO lv_len TIMES.
IF lv_oamt = space.
CONCATENATE '*' lv_amt INTO lv_oamt.
ELSE.
CONCATENATE '*' lv_oamt INTO lv_oamt.
ENDIF.
ENDDO.
CONCATENATE '$' lv_oamt INTO lv_oamt.
ut_itab-value = lv_oamt.
MODIFY ut_itab INDEX sy-tabix.
ENDIF.
READ TABLE ut_otab WITH KEY 'REGUH-BKREF'.
IF sy-subrc = 0.
ut_otab = ut_itab.
MODIFY ut_otab INDEX sy-tabix.
ENDIF.
Please help, thanks a lot!!
Hey,
why are u using the same FORM get_chamt_date USING u_iword TYPE spell-word
in the Form?
pl tell the exact requirement so taht we can help..
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hiii
PERFORM CDE_CENT IN PROGRAM ZKRPMM_PERFORM_Z1MEDRUCK
/:USING &EKKO-EBELN&
/:CHANGING &CDECENT&
/:ENDPERFORM
The report :
REPORT zkrpmm_perform_z1medruck .
DATA : BEGIN OF it_input_table OCCURS 10.
INCLUDE STRUCTURE itcsy.
DATA : END OF it_input_table.
déclaration de la table output_table contenant les
variables exportées
DATA : BEGIN OF it_output_table OCCURS 0.
INCLUDE STRUCTURE itcsy.
DATA : END OF it_output_table.
DATA : w_ebeln LIKE ekko-ebeln,
w_vbeln LIKE vbak-vbeln,
w_zcdffa LIKE vbak-zcdffa.
*----
*
FORM CDE_CENT
*
*----
*
FORM cde_cent TABLES input output.
it_input_table[] = input[].
it_output_table[] = output[].
READ TABLE it_input_table INDEX 1.
MOVE it_input_table-value TO w_ebeln.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = w_ebeln
IMPORTING
output = w_ebeln.
SELECT SINGLE zcdffa FROM ekko
INTO w_zcdffa
WHERE ebeln = w_ebeln.
it_output_table-name = 'CDECENT'.
MOVE w_zcdffa TO it_output_table-value.
MODIFY it_output_table INDEX 1.
output[] = it_output_table[].
ENDFORM.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
101 | |
13 | |
13 | |
11 | |
11 | |
7 | |
6 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.