FBL1N FBL3N FBL5N Add New Column

FBL1N (Vendor line item display)

Financial Accounting
  Accounts Receivable and Accounts Payable
    Vendor Accounts
      Line Items
        Display Line Items
          Define Additional Fields for the Line Item Display

FBL3N (G/L account line item display)

Financial Accounting
  General Ledger Accounting
    G/L Accounts
      Line Items
        Display Line Items with ALV
          Define Special Fields for Finding and Sorting Data

FBL5N (Customer line item display)

Financial Accounting
  Accounts Receivable and Accounts Payable
    Customer Accounts
      Line Items
        Display Line Items
          Define Additional Fields for the Line Item Display

SAP Check E-mail Valid or Invalid

      DATA lv_email_addr TYPE sx_address.
      IF gt_out-mail IS NOT INITIAL.
        MOVE 'INT' TO lv_email_addr-type.
        MOVE gt_out-mail TO lv_email_addr-address.

        CALL FUNCTION 'SX_INTERNET_ADDRESS_TO_NORMAL'
          EXPORTING
            address_unstruct    = lv_email_addr
          EXCEPTIONS
            error_address_type  = 1
            error_address       = 2
            error_group_address = 3
            OTHERS              = 4.

        IF sy-subrc <> 0.
          gt_out-msj = 'Mail Hatalı...'.
          gt_out-h   = 'X'.
        ENDIF.
      ENDIF.

SAP Clear Buffer Transactions

/$SYNC - buffers of the application server
/$CUA - CUA buffer of the application server
/$TAB - the TABLE buffers of the application server
/$NAM - the nametab buffer of the application server
/$DYNP - the screen buffer of the application server

Request Report ,Programme,ALV.. Anything..

 Please contact with me..
                                             arifarifoglu@gmail.com

Purchasing Document Item Change History

SAS:Satınlama Siparişi Değişiklik Kayıtları:

CDHDR : Change document header
CDPOS  : Change document items

For Purchasing Doc,
OBJECTCLAS = 'EINKBELEG'

OBJECTID = Purchase Doc Number

TABNAME = 'EKPO'
FNAME : Field name (For Quantity : 'MENGE')

Example Code;
You can get the first inserted quantity of purc. item,

    DATA : lt_cdpos2 LIKE cdpos OCCURS 0 WITH HEADER LINE .
    DATA lv_tabkey2 LIKE cdpos-tabkey.
    CLEAR lv_tabkey2.
    CONCATENATE
    '200'
    itab-EBELN "Purch.Doc.
    itab-EBELp "Item No
    INTO lv_tabkey2 .

      REFRESH lt_cdpos2.
      SELECT * FROM cdpos INTO TABLE lt_cdpos2
        WHERE objectclas EQ 'EINKBELEG' AND
              objectid   EQ itab-EBELN  AND
              tabkey     EQ lv_tabkey2 AND
              tabname    EQ 'EKPO'  AND
              fname      EQ 'MENGE' AND  "QTY
              chngind    EQ 'U' .
        IF SY-SUBRC EQ 0 .
        SORT  lt_cdpos2 BY CHANGENR ASCENDING .
        READ TABLE lt_cdpos2 INDEX 1.
        ITAB-FIRST_MENGE = lt_cdpos2-value_old.

        ENDIF.