W Pub: ABAP Prog Propios Ordenes

  1. report zgestionar_ordenes no standard page heading.
  2. *
  3. * man
  4. * Pequeño programa que permite llevar un control sobre las ordenes
  5. * de transporte.
  6. * La tabla de gestin es el propio programa, de esta forma se establece
  7. * un bloqueo estandard del propio editor.
  8. *
  9. * Para una mayor comodidad en el momento de introducir la ordenes, te
  10. * recomiendo que utilices la primera linea de esta forma no perderas
  11. * de vista la cabecera
  12. *
  13. * Si lo metes en una orden y lo transportas, sabrs que siempre tienes
  14. * cpia en productivo ;)
  15. *
  16. select-options: orden  for sy-DBSYS,
  17.                 modulo for sy-DBSYS,
  18.                 fechas for sy-datum,
  19.                 coderr for sy-PAUTH.
  20.  
  21. Data: begin of itab occurs 0,
  22.        _com(1),               "Asterisko
  23.        _ord(10),              "Orden
  24.        _tip(1),               "Tipo W/C
  25.        _mod(10),              "Mdulo
  26.        _ori(10),              "Mquina de Origen
  27.        _des(10),              "Mquina de Destino
  28.        _fec like sy-datum,    "Fecha de Liberacin
  29.        _cod(2) type n,        "Cdigo de Error
  30.        _txt(20),              "Mini Descripcin
  31.       end of itab.
  32.  
  33. top-of-page.
  34.     Write: /001 'ORDEN',
  35.             012 'Mdulo',
  36.             023 'Tp',
  37.             025 'Origen',
  38.             037 'Destino',
  39.             049 'Fecha Exp.',
  40.             061 'Err',
  41.             065 'Descripcin'.
  42.     uline /001(92).
  43. end-of-selection.
  44.    perform load_data.
  45.    perform list_data.
  46.  
  47. form list_Data.
  48.   Loop at itab where _ord in orden  and
  49.                      _mod in modulo and
  50.                      _fec in fechas and
  51.                      _cod in coderr.
  52.     case itab-_cod.
  53.        when '00'. format color COL_BACKGROUND.
  54.        when '04'. format color col_total.
  55.        when others. format color col_negative.
  56.     endcase.
  57.     Write: /001 itab-_ord,
  58.             012 itab-_mod,
  59.             023 itab-_tip,
  60.             025 itab-_ori,
  61.             037 itab-_des,
  62.             049 itab-_fec,
  63.             061 itab-_cod,
  64.             065 itab-_txt.
  65.   endloop.
  66. endform.
  67.  
  68. form load_data.
  69.    clear: itab. refresh: itab.
  70.    read report sy-repid into itab.
  71.    loop at itab.
  72.       delete itab.
  73.       if itab+68(4) = 'FIN*'. exit. endif.
  74.    endloop.
  75.    sort itab by _ord _fec.
  76. endform.
  77. *
  78. *Orden
  79. *|         Tipo (W) WorkBench o Customize
  80. *|         |Mdulo de la orden
  81. *|         ||         Mquina Origen
  82. *|         ||         |         Mquina Destino
  83. *|         ||         |         |         Fecha de Transporte
  84. *|         ||         |         |         |       Cdigo de Error
  85. *|         ||         |         |         |       | Mini_Descripcin
  86. *|         ||         |         |         |       | |
  87. *| #### PUT||YOUR ORDE|ERS BELOW| THIS LIN|E  ####| |               FIN*
  88. *GBDK123123CTC        GBD       GBT       2004081200Demo de trasnporte
  89. *GBDK918235W123456789012345678901234567890200409100012345678901234567890
  90. *GBDK918235W123456789012345678901234567890200408231212345678901234567890
  91. *GBDK918235W123456789012345678901234567890200410030012345678901234567890
  92. *GBDK918235W123456789012345678901234567890200408110412345678901234567890
  93. *GBDK918235W123456789012345678901234567890200401010012345678901234567890
[$[Get Code]]