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

mother's day

有时候自己过得快乐就是对妈妈最大的孝顺，因为现在在国外的时候老妈一直都是在担心我过得好不好，身体有什么不舒服，其实就是一个简单的问候，现在知道我应该好好地为我妈妈来过得开心一点，或者在国外能赚到很多钱，但是这个真是你真的想要的生活么，为了儿女，传承下来的所有的东西，一代为一代人下去，最好的就是能够照顾好自己，所有的人都在一起，这样就是最好的生活，舅舅出国是为了他的儿女，而我回国我觉得是为了我的妈妈还有自己想要的生活，在这里生活也不容易，在澳洲生活也不容易，要以经济建设为中心，做好自己的事情才是最大的孝顺。
如果非得要在澳洲这段浪费金钱，浪费时间的道路上继续浪费下去的话，我情愿不要这样的生活，或者后面再回来这个地方吧，我过得太窝囊了，现在在这里我过得并不开心，虽然我还有很多事情想去做，但是迫于经济，我还是不能完成这样的要求啊，我要好好建设好自己的经济为首要任务啊。
在澳洲你究竟锻炼了什么东西
思维上，学会了怎么做研究，把研究到的东西，学到的东西运用到真实的实践里面，所以我要以工作为向导，这个方面，我舅舅是正确的。思维导图，批判性思维，魔术记忆，这些都是很重要的技能，教会你怎么去做笔记，做成为自己的东西，然后再把它利用到你自己的生活或者思想上面去。
生活上自理没有问题，有钱就能解决了，心态的压力也没有那么大，现在的问题是我不能稳定地赚取到现在的金钱，或者说我要自己来做自己的事情的话，我要首先学会一个可以稳定我收入的情况，具体到每一个周末，每一个月，然后每一个季度，每一年的收入都要做好现金的处理，投资配置的，这个很好，很有意思，我要做到这个步骤的话就要平时自己不断地去学习这个东西，买书，看书，把平时的生活投资到自己的未来上面去，这个是一个很有挑战有意思的事情，正如其他事情一样，虽然有时候会感受到寂寞或者其他东西，但是不要紧，这个就是生活，我就是要这样不断地坚持下去做好自己的事情，然后不断 奖励自己前行，没有比训练自己更加有意思的事情了，我要成为一个怎么样的人，完全是由你自己来判断的。我要继续加油下去，不要浪费这个四十万，还有我自己的时间成本。
把发牢骚的话写在这里真是很有意思的事情。

担当

最大的不孝顺是自己过得不够幸福。
我这是怎么了，我要不断记下自己的奋斗么，用自己的那个笔墨来记下我在澳洲的最后的一段日子么，现在还是没有把经济建设搞好，这个是一个很大的问题，没有担当，这个是什么借口，担当究竟是什么东西啊，现在是学生阶段，我能做的东西就是那么多，为什么有人可以接受到，有些人还是那样不能接受呢。这个不要去继续想想，反正我要走自己的路，以经济建设为中心，每日那个按照我自己的步骤来做，我也可以做得很好的，每天来记录下我自己的的想法，然后去实现。出国留学还是什么都是一个自己实现的过程，我有太多的事情没去做了，我要不断联系这个做事的方法，领到我自己可以不断地成长起来，这个是一个很重要的方面。
明天就是母亲节，我这个离开家里又有两年的，时间成本还有其他的成本太高了，其实我最想想要的是工作经验啊，还有在实践中不断提高自己的能力，但是从现在的时间管理，我的作业，我的成就来讲，实在太差了，这个问题出现在什么地方，虽然我这两年留学成长的是思维的方法，但是实际上你做事情还是太慢啊，有什么办法来提高你自己的生产效率，我有很多事情去做，这个问题你就怎么没有想过，不过今晚可以接受，因为你了解到你自己的长处还有短处，安排好自己的时间对自己以后做事还是十分必要的，了解清楚自己的生产效率最高的时间还有做出自己的决定，这个比什么东西都重要，在这里最后的半年，我要好好锻炼的东西，除了语言，还有理财还有就是我自己的那一套做是的方式，什么东西都可以成功的模式， 在这里做的两年的学习，这个是学习经历当中最重要的问题。学到的东西，以后还是可以不断学习的。