ZFI30300

Code listing for: ZFI30300
Description: Usporedba stanja zaliha po mjesecima
************************************************************************
*  AUTOR: Siniša Kolundžiæ
*  DATUM: 2016-08-29
*
*  SVRHA: Usporedba stanja zaliha po mjesecima
*  DOKUMENTACIJA:
************************************************************************
*  IZMJENE:
*  DATUM      AUTOR    OPIS
*  ===       ========  ===============================
************************************************************************


report zfi30300.

tables: s031, t001, zlkon01, ska1, t030, tcurv, a550, sscrfields .
type-pools icon.

data g_functxt type smp_dyntxt.


selection-screen:
  begin of block b_holder with frame,
  begin of block b_params with frame title text-001.

select-options: s_bukrs for t001-bukrs obligatory,
                s_spmoni  for s031-spmon obligatory no-extension no intervals,
                s_spmonu  for s031-spmon obligatory no-extension no intervals.

parameters: p_kurst type tcurv-kurst obligatory.
select-options: s_kschl for a550-kschl obligatory no intervals.


selection-screen:
  end of block b_params,
  begin of block b_optional with frame title text-002.

select-options: s_saknrl for zlkon01-saknr,
                s_saknr   for ska1-saknr,
                s_matnr   for s031-matnr.

selection-screen:
  end of block b_optional,
  begin of block b_display with frame title text-003.

parameters p_layout type slis_vari modif id lay.

selection-screen:
  end of block b_display,
  end of block b_holder.

selection-screen: function key 1,
                  function key 2.

include zfi30300_classes.


initialization.
  g_functxt-quickinfo = 'Odreðivanje % marže za PCI'.
  g_functxt-text = '% PCI marže'.
  sscrfields-functxt_01 = g_functxt.

  g_functxt-quickinfo = 'Odreðivanje varijante obraèuna troškova za COGP'.
  g_functxt-text = 'Varijante obraèuna troškova'.
  sscrfields-functxt_02 = g_functxt.




at selection-screen on value-request for s_saknrl-low.
  lcl_app=>f4_saknr_lact( ).

at selection-screen on value-request for s_saknrl-high.
  lcl_app=>f4_saknr_lact( ).


at selection-screen on value-request for s_saknr-low.
  lcl_app=>f4_saknr( ).

at selection-screen on value-request for s_saknr-high.
  lcl_app=>f4_saknr( ).

at selection-screen on value-request for p_layout.
  lcl_app=>find_layout( ).

at selection-screen on p_layout.
  lcl_app=>check_layout( ).

at selection-screen.
  lcl_app=>authority_check( ).

  case sscrfields-ucomm.
    when 'FC01'.
      call function 'VIEW_MAINTENANCE_CALL'
        exporting
          action    = 'U'
          view_name = 'ZBFRPCI'.
    when 'FC02'.
      call function 'VIEW_MAINTENANCE_CALL'
        exporting
          action    = 'U'
          view_name = 'ZBFRKLVAR'.
  endcase.


start-of-selection.
  lcl_app=>make_it_so( ).


*----------------------------------------------------------------------*
*  MODULE status_0100 OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
module status_0100 output.
  lcl_app=>app->handle_pbo( ).
endmodule. "status_0100 OUTPUT

*----------------------------------------------------------------------*
*  MODULE user_command_0100 INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
module user_command_0100 input.
  lcl_app=>app->handle_pai( sy-ucomm ).
endmodule. "user_command_0100 INPUT

*GUI Texts
*----------------------------------------------------------
* TB100 --> Stanje zaliha po mjesecima

*Text elements
*----------------------------------------------------------
* 001 Paramatri odabira
* 002 Dodatni parametri
* 003 Parametri prikaza


*Selection texts
*----------------------------------------------------------
* P_KURST D       .
* P_LAYOUT D       .
* S_BUKRS D       .
* S_KSCHL D       .
* S_MATNR D       .
* S_SAKNR D       .
* S_SAKNRL         Lactalis konto
* S_SPMONI         Razdoblje izvješæivanja
* S_SPMONU         Razdoblje usporedbe
Extracted by Mass Download version 1.5.5 - E.G.Mellodew. 1998-2016. Sap Release 700