Deleting zeros in Quantity field in Sap Script

Hi,
I have a Quantity(FKIMG) field in Invoice (Sap Script), It is showing as 1.000 ,I want to show this as 1 ,By removing all zeros and point.
how can i do this in Script?
Thanks in advance,
fractal

Hi,
Use TRUNC "Interger part of x
ex:
TRUNC(FKIMG) to get integer part of the quantity.
or
declare an integer variable and pass quantity to this variable , use the same variable for print.
Regards
Appana

Similar Messages

How can we remove the following zeros from quantity field ?

Hi All.
how can we remove the following zeros from quantity field while populating ALV by using FM REUSE_ALV_GRID_DISPLAY ?
eg:getting output zqty = 2.000
but i need           zqty = 2.
help me to reslove this issue.
Regards.
jay

Hi,
While populating the field catlog do the following thing to   avoid zeros.
wa_fieldcat-tabname = 'I_OUTPUT'.    " Curr
wa_fieldcat-fieldname = 'FWAER'.
wa_fieldcat-seltext_l = text-023.
wa_fieldcat-no_zero = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Thanks,
Khushbu.

Remove trailing zeroes in quantity field.

Hi all,
I am having quantity field in ALV grid display : VBAP-KWMENG. Iam getting quantity value as 1,000.My requirement is to get quantity value as 1.(without ',' and zeroes).
Suggest me a suitable solution.
Thanks all.

Other way is check for the below code ..
DATA:
lv_decimal TYPE f DECIMALS 3,
lv_string TYPE string.
lv_decimal = '22.010'.
WRITE lv_decimal TO lv_string.
SHIFT lv_string RIGHT DELETING TRAILING '0'.
* also delete trailing '.', if possible
SHIFT lv_string RIGHT DELETING TRAILING'.'.
CONDENSE lv_string NO-GAPS.
* now no trailing zeros are in the decimal stored in LV_STRING

Using Sum field in Sap script

Hi all,
I am trying to add content of field (Tax VAT) in sap script and put into another symbol using following command
/:SUMMING program symbol INTO sum symbol
but after running me22n tcode to display the PO error occured
Overwriting a protected fieldError analysis
The program tried to assign a new value to the field "<SM_SUM>" even though
it is protected against changes.
I am modifying medruck std PO script and using standard prog. for it i.e. SAPFM06P.
Please tell me wheather it is necessary to make sum symbol dynamically define in SAPFM06P and how to do this.
with regards
Rajvinder Sahni

Hi...
If you need to summ numbers or do any operation, in your SAP Script you can call subritunes and do all the operations you need.
On your SAP script write:
/: PERFORM subrutine IN PROGRAM Zprogram
/: USING &PAR1&
/: CHANGING &PAR2&
/: ENDPERFORM
PS: You can use as many USING AND CHANGING as you need.
And the zprogram goes;
FORM subrutine TABLES t_in STRUCTURE itcsy
t_out STRUCTURE itcsy.
data: par1 type n.
Read the value on PAR1
READ TABLE t_in WITH KEY 'PAR1'.
CHECK sy-subrc = 0.
PAR1 = t_IN-value.
DO WHATEVER YOU NEED TO DO
ADD 1 TO PAR1.
SEND THE VALUES BACK
READ TABLE t_OUT WITH KEY 'PAR2'.
t_sal-value = PAR1 .
MODIFY t_OUT INDEX sy-tabix.
ENDFORM.
Hope this helps,
Gabriel

How can i update regup-sgtxt field in sap script

Hi experts,
I have created sap script for payment print prog. In that one field is amount discription "REGUP-SGTXT". i want to use field "REGUP-SGTXT" as a discription. for sap script payment print i use T-Code f-43, fb03,f-58... now in whic T-code i fiiled the value of "REGUP-SGTXT"?? how can i update value in my sap script?? cause i ceateed so many doc no but "REGUP-SGTXT" its blank... so how can i fill this fiels???
Give me suggetion
Zenithi

Hi
Most of the times this text won't get populated
So better write an external PERFORM subroutine in the SCRIPT and fetch it from BSEG/BKPF tables using BELNR field and use in the cheque printing.
see the sample code for subroutines
How to call a subroutine form SAPscripts
The Form :
/: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.
/: PERFORM
/: USING &INVAR1&
/: USING &INVAR2&
/: CHANGING &OUTVAR1&
/: CHANGING &OUTVAR2&
/: ENDPERFORM
INVAR1 and INVAR2 are variable symbols and may be of any of the four SAPscript symbol types.
OUTVAR1 and OUTVAR2 are local text symbols and must therefore be character strings.
Example:
In script form
/: PERFORM READ_TEXTS IN PROGRAM 'Z08M1_FORM_EKFORM1'
/: USING &EKKO-EKORG&
/: USING &EKPO-WERKS&
/: USING &EKKO-EKGRP&
/: USING &EKKO-BSTYP&
/: CHANGING &COMPNAME&
/: CHANGING &SENDADR&
/: CHANGING &INVCADR&
/: CHANGING &COMPADR&
/: CHANGING &COVERLTR&
/: CHANGING &SHIPADR&
/: CHANGING &REMINDER&
/: CHANGING &REJECTION&
/: CHANGING &POSTADR&
/: CHANGING &LOGO&
/: ENDPERFORM
In program
FORM Read_texts - To extract the standard texts from the table *
FORM READ_TEXTS TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : L_EKORG TYPE EKORG,
L_WERKS TYPE WERKS_D,
L_BSTYP TYPE BSTYP,
L_EKGRP TYPE BKGRP.
READ TABLE IN_PAR WITH KEY 'EKKO-EKORG' .
CHECK SY-SUBRC = 0.
L_EKORG = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKPO-WERKS' .
CHECK SY-SUBRC = 0.
L_WERKS = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKKO-EKGRP' .
CHECK SY-SUBRC = 0.
L_EKGRP = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKKO-BSTYP' .
CHECK SY-SUBRC = 0.
L_BSTYP = IN_PAR-VALUE.
CLEAR Z08M1_ORG_TEXTS.
SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG
AND WERKS = L_WERKS
AND EKGRP = L_EKGRP
AND BSTYP = L_BSTYP.
IF SY-SUBRC NE 0.
SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG
AND WERKS = L_WERKS
AND EKGRP = L_EKGRP
AND BSTYP = SPACE.
ENDIF.
READ TABLE OUT_PAR WITH KEY 'COMPNAME'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COMP.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'SENDADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_ADRS.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'INVCADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_INVC.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'COMPADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_CPAD.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'COVERLTR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COVR.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'SHIPADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_SHIP.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'REMINDER'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RMDR.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'REJECTION'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RJCT.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'POSTADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_POST.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'LOGO'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_LOGO.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDFORM.
REPORT ZMPO1 .
form get_freight tables in_par structure itcsy out_par structure itcsy.
tables: ekko,konv,t685t.
data: begin of itab occurs 0,
 ebeln like ekko-ebeln,
 knumv like ekko-knumv,
 end of itab.
data: begin of itab1 occurs 0,
 knumv like konv-knumv,
 kposn like konv-kposn,
 kschl like konv-kschl,
 kbetr like konv-kbetr,
 waers like konv-waers,
 kwert like konv-kwert,
 end of itab1.
data: begin of iout occurs 0,
 kschl like konv-kschl,
 vtext like t685t-vtext,
 kbetr like konv-kbetr,
 kwert like konv-kwert,
 end of iout.
data v_po like ekko-ebeln.
read table in_par with key 'EKKO-EBELN'.
if sy-subrc = 0.
 v_po = in_par-value.
 select
 ebeln
 knumv
from ekko
into table itab
where ebeln = v_po.
if sy-subrc = 0.
 loop at itab.
 select
 knumv
 kposn
 kschl
 kbetr
 waers
 kwert
 into table itab1
 from konv
 where knumv = itab-knumv and
 kappl = 'M'.
 endloop.
 loop at itab1.
 if itab1-kposn <> 0.
 select single * from t685t
 where kschl = itab1-kschl
 and kappl = 'M'
 and spras = 'EN'.
 iout-vtext = t685t-vtext.
 iout-kschl = itab1-kschl.
 iout-kbetr = itab1-kbetr.
 iout-kwert = itab1-kwert.
 append iout.
 clear iout.
 endif.
 endloop.
 sort itab1 by kposn.
 loop at iout.
 sort iout by kschl.
 if ( iout-kschl eq 'GSDC' OR
 iout-kschl eq 'GSFR' OR
 iout-kschl eq 'GSIR' ).
 at end of kschl.
 read table iout index sy-tabix.
 sum.
 write:/ iout-kschl,iout-vtext,iout-kwert.
 out_par-name = 'A1'.
 out_par-value = iout-vtext.
 append out_par.
 out_par-name = 'A2'.
 out_par-value = iout-kwert.
 append out_par.
 endat.
 endif.
 endloop.
 endif.
endif.
endform.
IN THE FORM I AM WRITING THIS CODE.
/:DEFINE &A1& = ' '
/:DEFINE &A2& = ' '
/:PERFORM GET_FREIGHT IN PROGRAM ZMFORM_PO1
/:USING &EKKO-EBELN&
/:CHANGING &A1&
/:CHANGING &A2&
/:ENDPERFORM
&A1&
&A2&
This Code is to be written in the PO form under ADDRESS window.
/:DEFINE &A1& = ' '
/:DEFINE &A2& = ' '
/:DEFINE &A3& = ' '
/:DEFINE &A4& = ' '
/:DEFINE &A5& = ' '
/:DEFINE &A6& = ' '
/:PERFORM GET_VENDOR IN PROGRAM ZMFORM_PO
/:USING &EKKO-EBELN&
/:CHANGING &A1&
/:CHANGING &A2&
/:CHANGING &A3&
/:CHANGING &A4&
/:CHANGING &A5&
/:CHANGING &A6&
/:ENDPERFORM
&A1&
&A2&
&A3&
&A4&
&A5&
&A6&
Regards
Anji

How to remove extra zeros in quantity field.

I am retrieving the field which is of type QUAN(13) and decimals 3. The values are stored as
1,000
20,000
50,000
2,340
23.50
Now i want to output as 1, 20, 50 , 2.34, 23.5
I want to remove the additional zeros. Is there any FM for the same.
satya

hi
Check this similar thread
https://forums.sdn.sap.com/click.jspa?searchID=700505&messageID=401791
<REMOVED BY MODERATOR - REQUEST OR OFFER POINTS ARE FORBIDDEN>
Message was edited by:
Rahul Kavuri
Edited by: Alvaro Tejada Galindo on Dec 30, 2009 11:21 AM

How to add new fields in sap scripts using itcsy structure

hi guys,
could u provide the screen-shots for adding field in scripts. copied standard forms .
thanks& regards
eswar.

Hi,
you cannot add new fields using ITCSY. It is the interface structure between a SAPscript an a value-changing form-routine.
Need example anyway?
Good luck!
Jo

Output blank for some of fields in SAP script

Hi All,
I am working for an issue in which a ZFORM is configured with VA22(Change Quotation) and ZDRIVER Program.Now my
Concern is when user make some change and save the Quotation and pick the option from menu to show print preview:
Menu -> Sales Document -> issue Output to -> Message type
Now using this option he pick the appropriate message type for ZFORM and he get some of fileds black of some
of windows of FORM. Now if he reopen the transaction VA22 or open VA22 in another session and pick the same
option to show the output of form then all those missing value appear properly, I checked in DRIVER program that
every field having value Properly and is passing to F.M "TEXT_SYMBOL_SETVALUE" with their corresponding
TEXT SYMBOL names properly in both of the case..........
It seems that there might be a problem of buffer memory but I am not sure, could someone help me out.

Hi,
Check if SAP note 1243485 resolves this problem.
Regards,
Aidan

How to add new fields in sap copied standard form using itcsy structure

hi guys,
i want add some fields in sap script copied standard form using itcsy structure.
let me know the procedure with any example.
thanks,
anitha.

Hii anitha
plz c code below
Syntax goes like this
/: PERFORM <form> IN PROGRAM <prog>
/: USING &INVAR1&
/: USING &INVAR2&
/: CHANGING &OUTVAR1&
/: CHANGING &OUTVAR2&
/: ENDPERFORM
INVAR1 and INVAR2 are variable symbols and may be of any of the four SAPscript symbol types.
OUTVAR1 and OUTVAR2 are local text symbols and must therefore be character strings.
Example:
In script form
/: PERFORM READ_TEXTS IN PROGRAM 'Z08M1_FORM_EKFORM1'
/: USING &EKKO-EKORG&
/: USING &EKPO-WERKS&
/: USING &EKKO-EKGRP&
/: USING &EKKO-BSTYP&
/: CHANGING &COMPNAME&
/: CHANGING &SENDADR&
/: CHANGING &INVCADR&
/: CHANGING &COMPADR&
/: CHANGING &COVERLTR&
/: CHANGING &SHIPADR&
/: CHANGING &REMINDER&
/: CHANGING &REJECTION&
/: CHANGING &POSTADR&
/: CHANGING &LOGO&
/: ENDPERFORM
In program
FORM Read_texts - To extract the standard texts from the table *
FORM READ_TEXTS TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : L_EKORG TYPE EKORG,
L_WERKS TYPE WERKS_D,
L_BSTYP TYPE BSTYP,
L_EKGRP TYPE BKGRP.
READ TABLE IN_PAR WITH KEY 'EKKO-EKORG' .
CHECK SY-SUBRC = 0.
L_EKORG = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKPO-WERKS' .
CHECK SY-SUBRC = 0.
L_WERKS = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKKO-EKGRP' .
CHECK SY-SUBRC = 0.
L_EKGRP = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKKO-BSTYP' .
CHECK SY-SUBRC = 0.
L_BSTYP = IN_PAR-VALUE.
CLEAR Z08M1_ORG_TEXTS.
SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG
AND WERKS = L_WERKS
AND EKGRP = L_EKGRP
AND BSTYP = L_BSTYP.
IF SY-SUBRC NE 0.
SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG
AND WERKS = L_WERKS
AND EKGRP = L_EKGRP
AND BSTYP = SPACE.
ENDIF.
READ TABLE OUT_PAR WITH KEY 'COMPNAME'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COMP.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'SENDADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_ADRS.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'INVCADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_INVC.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'COMPADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_CPAD.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'COVERLTR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COVR.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'SHIPADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_SHIP.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'REMINDER'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RMDR.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'REJECTION'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RJCT.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'POSTADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_POST.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'LOGO'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_LOGO.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDFORM.
reward points if useful
regards
Jaipal

Problem with quantity field in BDC

hi experts,
               i am trying to upload data from internal table to SAP using BDC, but while uploading quantity fields it is giving error as "Input fields is longer than screen field", Is there any method to upload quantity fields to SAP.
                 thanks in adancae,

Hi,
Before passing the value to perform bdc_field, convert that value to char type
For eg.
DATA :        v_val(10)               TYPE c,
v_val = wa_operation-std_value_01. CONDENSE v_val.
CONCATENATE 'PLPOD-VGW01(' n_linecount1 ')' INTO v_para.
PERFORM f_bdc_field       USING v_para           v_val.
FORM f_bdc_field USING fnam fval.
CLEAR wa_bdctab.
wa_bdctab-fnam = fnam.
wa_bdctab-fval = fval.
APPEND wa_bdctab TO it_bdctab.
ENDFORM.                    " f_bdc_field
check this it would be useful.

Structure of SAP Script.....

Hi,
What is the structure of SAP SCRIPT..... If anybody knows help me....
Thanx in adv,
Regards,
SureshKumar.V

Hi,
Check the links for info on SAPSCRIPT structures -
BAPI Tutorial
Re: Sapscript
Re: Sapscript
Re: sapscript: how to align empty fields?
Re: Addition of new fields to SAP script
Re: scripts
Re: scripts
Regards,
Amit
Reward all helpful replies.

Quantity Field Display in Sap Scripts

Hi,
I am displaying the quantity field in the sap script layout.But in the quantity field having 3 decimal places.
Ex: 3.400 is there i want to display 3.4
3.000 only i want to display 3
3.740 -
3.74 like that i want.
I want to omit the zeros after decimal places.
Please give me the solution.
Regards,
Jenny

As it is quantity field, it will print even the decimal points...U can try this...move the value to a char variable and use truncating to remove zeros by deleting them and use this value in ur script to print the value.

How to delete zeros in layout for quantity and currency fields

Hi All
Iam getting zeros in place of quantity and currency field records, which i doesnt require in layout SAP-Script.
Please let me know if any one has an idea.
Regards
Bhaskar

Hi,
Add NO-ZEROES statement to it.
or
U can use CONDENSE statement.
Cheers,
SImha.

Quantity field conversion problem in SAP script

Hi experts,
I have problem with sap script quantity field conversion.
In purchase order the actual value of field( MDPM-ERFMG) is 3,500.
But in Print preview it is showing only 3.5
Any one Please help me in this problem
thanks in advance
murali

Hello,
check this:
Number of Decimal Places
A program symbol of one of the data types DEC, QUAN, and FLTP can contain decimal place data. Use the option below to override the Dictionary definition for the number of decimal places for the formatting of this symbol value.
Syntax
&symbol(.N)&
The EKPO-MENGE field contains the value 1234.56. The Dictionary definition specifies 3 decimal places and an output length of 17.
&EKPO-MENGE& -> 1,234.560
&EKPO-MENGE(.1) -> 1,234.6
&EKPO-MENGE&(.4) -> 1,234.5600
&EKPO-MENGE&(.0) -> 1,235
REgards,
Vasanth

How to delete leading zeros in sap script

Hi
In sapscript iam facing an issue with num4 field.
Iam using this field to display Serial.No
it is displaying '1' as 0001 i want to display here 1 with out leading zeros.
If there any solution let me know

Hi,
Try below code
data: w_vbeln type vbak-vbeln,
w_char(10).
w_vbeln = '000012345'.
write w_vbeln to w_char no-zero.
or
The function Module 'CONVERSION_EXIT_ALPHA_OUTPUT' is used to remove the leading zeros in a field.
the following is a sample code which i have used for 'Commitment item' in my report. replace the field with your required field.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = IT_FMIT1-RFIPEX
IMPORTING
OUTPUT = IT_FMIT1-RFIPEX.
Regards,
Chandru

Deleting zeros in Quantity field in Sap Script

Similar Messages

Maybe you are looking for