Future letter

稀缺资源

稀缺矿产资源上市公司股票的长期关注价值有三点： 

1：稀缺注定长期趋势看涨，其特性还是因为矿产资源的不可再生。

2：大股东必须牢固保持控股地位，很难想象，在全流通时代，会资本不会对这些企业虎视耽耽。

3：价格决定价值。从整体调整幅度看，矿产资源股的调整空间已经超过大盘同期跌幅，从平均不到8元的价格水平，对有自身良好资源储备的上市公司来讲，已经陆续接近安全边际。

有色 ;
600489 ｜ 中金黄金 ｜600547｜ 山东黄金｜ 601899 紫金矿业 ｜002237 ｜恒邦股份 ｜600459 ｜贵研铂业 
稀有资源 ;
｜000928｜ ST吉炭 ｜600516｜方大炭素｜600478｜ 科力远 ｜600338｜ ST珠峰｜000655｜金岭矿业｜600980｜北矿磁材｜000762｜西矿业｜000657｜*ST中钨｜000630｜铜陵有色｜002066｜瑞泰科技｜600111｜包钢稀土｜002182｜云海金属｜002155｜辰州矿业｜002149｜西部材料｜600549｜厦门钨业｜002088｜鲁阳股份｜600362｜江西铜业｜601958｜金钼股份｜000969｜安泰科技｜000960｜锡业股份｜002203｜海亮股份｜600714｜ ST金瑞｜000970｜中科三环｜600390｜金瑞科技｜600172｜黄河旋风｜000962｜东方钽业｜600531｜豫光金铅｜601168｜西部矿业｜000060｜中金岭南｜600456｜宝钛股份｜002171｜精诚铜业｜600432｜吉恩镍业｜002057｜中钢天源｜000878｜云南铜业｜600961｜株冶集团｜600711｜ ST雄震｜600497｜驰宏锌锗｜600255｜鑫科材料｜600331｜宏达股份｜002114｜罗平锌电｜000795｜太原刚玉｜600691｜*ST东碳｜000751｜锌业股份｜002075｜ ST张铜

Outsourcing problem

lack of direction
lack of management
type of distance
lack of commintment
lack of
communication
lack of comprehensive business
lack of deligence



structure
developiong of peace
frm top down to councils boards


beheaviral

COUWBOY ROUGH

technology

new product collaboration

veritical texam
telephonece.

logistic presentation

Strategic Operations and Logistics Planning(SOLP)*,

To carry out strategic change throughout all the partners in a supply chain to achieve
major long-term improvements

Thirdly it describes one method of
achieving major change in supply chains by joint strategic planning involving several
key partners

It should base on our SOLP understand what the customer need

there are a dangerous effect, arising information and more supplier information arsie.

Two suppliers were represented on the first SOLP process

Tut7

&---------------------------------------------------------------------*
*& Report  ZBMC_7_2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBMC_7_2.
tables: sbook, scustom.

constants: eol type i value 90.

parameters: airline like sbook-carrid.

top-of-page.
format color col_heading.
write: 'List of Flight Bookings', 84 'Page ' no-gap, (2) sy-pagno.
uline.
write: / 'Booking        Customer    Carrier   Connection       Flight',
          at eol space.
write: / 'Id             Id          Id        Id               Date',
         at eol space.
uline.
skip 1.

start-of-selection.
select * from sbook
   where carrid = airline
   order by customid.
   write: /  sbook-bookid  color col_total,
         16(8) sbook-customid color COL_TOTAL,
         28 sbook-carrid,
         38 sbook-connid,
         55 sbook-fldate.
   hide: sbook-customid.
endselect.

end-of-selection.
  clear sbook-customid.

at line-selection.
  check not sbook-customid is initial.
  select single * from scustom
                  where id = sbook-customid.
  skip 5.
  write:  'Customer Id:', 25(8) scustom-id color COL_TOTAL.
  skip 2.
  write:  'Customer Name:', 25 scustom-name color col_total.
  skip 2.
  write:  'Customer City:', 25 scustom-city color col_total.

  clear sbook-customid.

top-of-page during line-selection.
  format color col_heading.
  write: 'Cusromer Details', 84 'Page ' no-gap, (2) sy-pagno.
  uline.

 

 

*&---------------------------------------------------------------------*
*& Report  ZBMC_7_1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBMC_7_1 NO STANDARD PAGE HEADING.

tables: spfli.
constants: eol type i value 90.

top-of-page.
format color col_heading.
write: 'List of Flight Connections', 84 'Page ' no-gap, (2) sy-pagno.
uline.
write: / 'Carrier        Connection       City                  City',
          at eol space.
write: / 'Id             Id               From                  To',
         at eol space.
uline.
skip 1.

start-of-selection.
select * from spfli.
   write: /  spfli-carrid color col_total,
         16 spfli-connid color COL_TOTAL,
         33 spfli-cityfrom,
         55 spfli-cityto.
   hide: spfli-carrid, spfli-connid.
endselect.

end-of-selection.
  clear spfli-carrid.

at line-selection.
  check not spfli-carrid is initial.
  skip 10.
  write: 'The Airline you have chosen is: ', 40 spfli-carrid color 4.
  skip 2.
  write: 'The Flight Connection is: ', 40 spfli-connid color 4.
  clear spfli-carrid.

 

 

*---------------------------------------------------------------------*
*& Report  ZBMC_7_3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBMC_7_3.
tables: sbook, scustom.

parameters: airline like sbook-carrid.
constants: col1 type i value 10,
           col2 type i value 77.
data:      lin1 type i,
           lin2 type i.

start-of-selection.
select * from sbook
    where carrid = airline
    order by customid.

  write: / sbook-bookid, sbook-customid, sbook-carrid, sbook-connid,
           sbook-fldate.
  hide:    sbook-carrid, sbook-connid, sbook-fldate, sbook-customid.
endselect.

*end-of-selection.
  If sy-subrc <> 0.
       write :/ 'No Records Found'.
       Exit.
  Endif.

  clear sbook-customid.

at line-selection.
  check not SBOOK-CUSTOMID is initial.
  set titlebar 'WIN' with sbook-carrid sbook-connid sbook-fldate.
  format color col_normal.
  if sy-curow < 14.
     lin1 = 15.
     lin2 = 18.
  else.
     lin1 = 04.
     lin2 = 8.
  endif.
  window starting at col1 lin1
         ending   at col2 lin2.
  select single * from scustom
         where id eq sbook-customid.
   write: / 'Customer Information'.
   uline.
   write: / 'Cust Id:', 15 scustom-id,
          / 'Cust Name:', scustom-name under scustom-id,
          / 'Cust City:', scustom-city under scustom-name.
   uline.
   clear SBOOK-CUSTOMID.

 

 

*&---------------------------------------------------------------------*
*& Report  ZBMC_7_4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBMC_7_4.
tables: sflight, sbook.

data: itabbk like sbook occurs 0
      with header line.

Start-of-selection.

Select * from sflight.

  write: / sflight-carrid, sflight-connid, sflight-fldate.
  hide:    sflight-carrid, sflight-connid, sflight-fldate.

Endselect.

end-of-selection.
  If sy-subrc <> 0.
    Write: / 'No record Found'.
    Exit.
  Endif.

  clear sflight-carrid.
  set pf-status 'BASE'.
  set titlebar 'BAS'.

at user-command.
   case sy-ucomm.
     when 'BOOK'.
     perform display1.
     when 'SRT1'.
     sy-lsind = 1.
     sort itabbk by order_date.
     perform display2.
     when 'SRT2'.
     sy-lsind = 1.
     sort itabbk by loccuram.
     PERFORM display2.

endcase.


form display1.
 check not sflight-carrid is initial.
 set pf-status 'SORT'.
 set titlebar 'BKS'.
 select * from sbook into table itabbk
          where carrid = sflight-carrid
          and   connid = sflight-connid
          and   fldate = sflight-fldate.
    
  if sy-subrc ne 0.
      skip 5.
      write: 'No bookings found'.
   Else.
      Perform display2.
   endif.
   clear sflight-carrid.
 endform.


form display2.
  loop at itabbk.
    write: /    itabbk-carrid,
             16 itabbk-connid,
             25 itabbk-fldate,
             37 itabbk-bookid,
             46 itabbk-order_date,
             57(8) itabbk-loccuram.
   endloop.
endform.

CRM t

Certain trends are becoming more important in the customer service solutions world, such as real-time methods via social networking sources, self-service knowledge management tools, mobile capabilities and social computing for multichannel customer service.

2