Validation and substitute in SAP ABAP issue

-
irst of all you have to define your user exit in the FORM routine GET_EXIT_TITLES with the correct
exit type (EXITS-PARAM).
The exit type required for your FORM routine is C_EXIT_PARAM_CLASS A where complete type is transferred as a parameter.
Bear in mind that this exit type can only be used for callup points with complete documents (3).
Hereafter an example for your issue

  exits-name  = 'USDN'.
  exits-param = c_exit_param_class.
  exits-title = 'SDN Test 4 GSBER Substitution'.
  append exits.


*&---------------------------------------------------------------------*
*&      USER EXIT USDN
*&---------------------------------------------------------------------*
*  GSBER substitution
*----------------------------------------------------------------------*
form usdn using bool_data type gb002_015.

  data wa_bseg type bseg.
  loop at bool_data-bseg into wa_bseg where koart = 'K'.
    exit.
  endloop..
   
 loop at bool_data-bseg into bseg where koart = 'T'.
        bseg-gsber = wa_bseg-gsber.
        modify bool_data-bseg from bseg.
 endloop.

endform.
FORM RK001 USING bool_data TYPE gb002_015    "TYPE GB002_<boolean class of aspect 001>
           CHANGING b_result.
*  BREAK-POINT.
  DATA: gv_dmbtr2  TYPE bseg-dmbtr,
        gv_dmbtr1 TYPE bseg-dmbtr,
        gv_netwr  TYPE ekpo-netwr,
        gv_sub    TYPE bseg-dmbtr.
  CLEAR: gv_dmbtr2,gv_dmbtr1.

  DATA wa_bseg TYPE bseg.
  LOOP AT bool_data-bseg INTO wa_bseg. "where koart = 'K'.
    gv_dmbtr2 = gv_dmbtr2 + wa_bseg-dmbtr.
    CLEAR: wa_bseg.
  ENDLOOP.
  READ TABLE bool_data-bseg INTO wa_bseg INDEX 1.
  IF sy-subrc EQ 0.
    SELECT dmbtr,ebeln FROM bseg INTO TABLE @DATA(gt_bseg) WHERE ebeln = @wa_bseg-ebeln.
    IF sy-subrc EQ 0.
      LOOP AT gt_bseg INTO DATA(gs_bseg).
        gv_dmbtr1 = gv_dmbtr1 + gs_bseg-dmbtr.
        CLEAR: gs_bseg.
      ENDLOOP.
    ENDIF.
    SELECT ebeln,netwr FROM ekpo INTO TABLE @DATA(gt_ekpo) WHERE ebeln EQ @wa_bseg-ebeln.
    IF sy-subrc EQ 0.
      LOOP AT gt_ekpo INTO DATA(gs_ekpo).
        gv_netwr = gv_netwr + gs_ekpo-netwr.
        CLEAR: gs_ekpo.
      ENDLOOP.
    ENDIF.
  ENDIF.
  GV_SUB = GV_DMBTR2 + GV_DMBTR.
  IF GV_SUB LE GV_NETWR.
   ELSE.
    MESSAGE 'Posting Amount Issue Pleae fix IT' TYPE 'E'.
  ENDIF.
ENDFORM.
Please support my work

Comments

Post a Comment

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and  sy - uname  =  'FREDDIE' . BREAK freddie . *SELECT SINGLE KVGR1 KVGR2 *  FROM vbak *  INTO ls_vbak * WHERE vbeln = vbak-vbeln. * *IF vbak-KVGR1 <> ls_vbak-KVGR1 or vbak-KVGR2 <> ls_vbak-KVGR2. *  VBAK-FAKSK = '05'.
Read more

How to Give Dropdown in alv report in sap abap programming Language

-
   IF  p_fieldname  =  'REASONS' .     wa_fcat - f4availabl  =  'X' .    ENDIF .   PERFORM  dropdown_table  CHANGING  g_grid . FORM  dropdown_table  CHANGING  g_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA  : lt_dropdown  TYPE  lvc_t_drop  WITH  HEADER  LINE .    DATA :  gs_f4  TYPE  lvc_s_f4 ,         gt_f4  TYPE  lvc_t_f4 .    LOOP  AT  it_fcat  INTO  wa_fcat .      IF  wa_fcat - fieldname  =  'REASONS' .       wa_fcat - drdn_hndl  =  '1' .       wa_fcat - outputlen  =  20 .        MODIFY  it_fcat  FROM  wa_fcat .      ENDIF .    ENDLOOP . *CLEAR GT_F4. *  GS_F4-FIELDNAME  = 'REMARK'. *  GS_F4-REGISTER   = 'X'. *  GS_F4-GETBEFORE  = 'X'. *  GS_F4-CHNGEAFTER = 'X'. *  APPEND GS_F4 to GT_F4.    CALL  METHOD  g_grid -> register_f4_for_fields      EXPORTING       it_f4  =  gt_f4 .   lt_dropdown - handle  =  '1' .   lt_dropdown - value  =  'Loadability Issue' .    APPEND  lt
Read more

Long Text in input and output field in module pool

-
Image
display long text in input and output field then below code help you how to display long text your input and output fields in sap ************************************************************************ * Program Name      :  ZLONG_TEXT_EDITOR           Object ID:   p002    * * Description       :  Long text with function module                   * * Create Date       :  26.12.2018                                      * * FO Owner          :  Rohini kumar                                    * * Tech Owner        :  Rohini Kumar                                    * * Project Module    :  SD                                              * ************************************************************************ *                        Change Log                                    * ************************************************************************ *  REQ#         DATE         WHO            CHANGE_ID        DESCR     * *-------------------------------------------
Read more