<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLV54U_004 > ZXV54U07

*&---------------------------------------------------------------------*
*&  Include           ZXV54U07                                         *
*&---------------------------------------------------------------------*
DATA : zw_c_scd LIKE LINE OF c_scd_tab,
      zw_item LIKE LINE OF zw_c_scd-x-item.
 
 
 
LOOP AT c_scd_tab INTO zw_c_scd.
LOOP AT zw_c_scd-x-item INTO zw_item.
  IF zw_item-vfkp-fkpty = 'Z002'.         "tambahan UJS
     zw_item-vfkp-tdlnr = 'A002'.         "selalu ditanggung SMU
     zw_item-vfkp-rechs = 'A002'.
  ENDIF.
  IF zw_item-vfkp-tdlnr NE zw_item-vfkp-rechs.
     zw_item-vfkp-tdlnr = zw_item-vfkp-rechs.
    MODIFY zw_c_scd-x-item FROM zw_item.
  ENDIF.
ENDLOOP.
MODIFY c_scd_tab FROM zw_c_scd.
ENDLOOP.
 
 
*************************************************************************
****   Author          : Willy Gunawan                                ***
****   Creation date   : 02.08.2005                                   ***
****   Functional Area : ABAP                                         ***
****   Object Id/Name  : ZRE_S00012_SHIPMENT_COST_SLIP                ***
****   Description     : Form Shipment Cost                           ***
******************************Correction*********************************
****   User Id         :                                              ***
****   Date            : dd.mm.yyyy                                   ***
****   Change Req.     :                                              ***
****   Description     :                                              ***
*************************************************************************
*
***To Call ABAP List Shipment CosT
*DATA : gw_vttkf TYPE LINE OF v54a0_refobj_tab.
*DATA : gv_tknum LIKE gw_vttkf-vttkf-tknum.
*
*
*CHECK sy-ucomm = 'SICH'.
*
*READ TABLE i_refobj_tab INDEX 1 INTO gw_vttkf.
*
*gv_tknum = gw_vttkf-vttkf-tknum.
*
*IF gw_vttkf-vttkf-shtyp NE 'Z003'.             "if not export shipment.
*  SET PARAMETER ID 'FKK' FIELD gv_tknum.
*
*  EXPORT c_scd_tab TO MEMORY ID 'ZWG'.
*
*  SUBMIT zfl_sd006_shipment_cost_slip AND RETURN.
*ENDIF.
 
 
************************************************************************
***   Author          : Christine N.                                 ***
***   Creation date   : 23.08.2006                                   ***
***   Functional Area : ABAP                                         ***
***   Object Id/Name  : ZFL_SD006_SHIPMENT_COST_SLIP                 ***
***   Description     : Form Shipment Cost                           ***
*****************************Correction*********************************
***   User Id         :                                              ***
***   Date            : dd.mm.yyyy                                   ***
***   Change Req.     :                                              ***
***   Description     :                                              ***
************************************************************************
 
**To Call ABAP List Shipment CosT
DATA : gw_vttkf TYPE LINE OF v54a0_refobj_tab.
DATA : gv_tknum LIKE gw_vttkf-vttkf-tknum.
DATA : gw_vfkk TYPE LINE OF v54a0_scdd_tab.
*DATA : gv_fkart LIKE gw_vttkf-tvtk-fkart.
 
break abap02.
CHECK sy-ucomm = 'SICH'.
 
READ TABLE i_refobj_tab INDEX 1 INTO gw_vttkf.
READ TABLE c_scd_tab INDEX 1 INTO gw_vfkk.
 
gv_tknum = gw_vttkf-vttkf-tknum.
 
IF gw_vttkf-vttkf-shtyp NE 'Z003'.           "if not export shipment.
IF gw_vfkk-x-vfkk-fkart = 'ZOWN'.
  SET PARAMETER ID 'FKK' FIELD gv_tknum.
  EXPORT c_scd_tab TO MEMORY ID 'ZWG'.
 
  SUBMIT zfl_sd006_shipment_cost_slip AND RETURN.
ENDIF.
ENDIF.