Monday, 27 February 2012

Useful statements to display date and message


WRITE sy-datum TO ldf_date DD/MM/YYYY.

  WRITE sy-uzeit TO ldf_time ENVIRONMENT TIME FORMAT.
      l_text = 'Finance Report (Critical Fields)'(736).

Wednesday, 15 February 2012

To fetch the country name , if we know country key

Select the country key from the table KNA1- land1
and provide country key(LAND1) and language in the T005T table and select LANDX(Country name).

To handle currency fields (to display in , format)

  * To Change Total GST number format to x,xxx,xxx.xx
  CLEAR: ldf_total_gst,
         ldf_total_amount.

  WHILE ldf_total_gst2 IS NOT INITIAL.
    IF sy-index = 1.
      CONCATENATE ldf_total_gst ldf_total_gst2+12(3INTO ldf_total_gst.
    ELSE.
      CONCATENATE ldf_total_gst2+12(3) ldf_total_gst  INTO ldf_total_gst.
    ENDIF.
    SHIFT ldf_total_gst2 BY 3 PLACES RIGHT.
    CHECK sy-index <> 1.
    IF ldf_total_gst2 IS NOT INITIAL.
      CONCATENATE  ',' ldf_total_gst INTO ldf_total_gst.
    ENDIF.
  ENDWHILE.

  IF ldf_total_gst+0(1) = ','.
    CLEAR:ldf_len.
    ldf_len = STRLEN( ldf_total_gst ).
    ldf_total_gst = ldf_total_gst+1(ldf_len).
  ENDIF.

******************************************************************

*** replace all occurrences of ',' in ldf_total_gst with space.
*** condense ldf_total_gst no-gaps.
*** replace all occurrences of ',' in ldf_total_amount with space.
*** condense ldf_total_amount no-gaps.
***
***  ldf_total_gst3 = ldf_total_gst.
***  ldf_total_amount3 = ldf_total_amount.
***
***  ldf_total_gst3 = ldf_total_gst3 + ldf_total_gst1.
***  ldf_total_amount3 = ldf_total_amount3 + ldf_total_amount1.
***
***  ldf_total_gst2 = ldf_total_gst3 .
***  ldf_total_amount2 = ldf_total_amount3.
*********************************************************************
  ldf_total_gst2 = ldf_total_gst1 .
  ldf_total_amount2 = ldf_total_amount1.
*********************************************************************

Tuesday, 14 February 2012

Status symbols and to delete a particular value in string


 gcf_reds(4)        type c           value '@0A@',      "To get red symbol
 gcf_gre(4)         type c           value '@08@',      " to get green symbol 
 gcf_yel(4)         type c           value '@09@',
            " to get yello symbol




replace all occurrences of ',' in ldf_total_gst with space.
 condense ldf_total_gst no-gaps.

Thursday, 15 December 2011

PDF converter link

Import and Export statements in enhancement


Importing value to variable.
 
ENHANCEMENT 1  ZENHIZEV05R0032.    "active version
export PRDEST to MEMORY ID 'LDF_PRINT'.
ENDENHANCEMENT.
 
To import the value.
 
IMPORT prdest FROM MEMORY ID 'LDF_PRINT'.
      FREE MEMORY ID 'LDF_PRINT'.