SGTXT Help

Hi Team,
One of the uaser has requirement of clearing (via F.13) line item based on Line Item Text (SGTXT), I had
checked the Automatic Clearing Configuration but couldn't find SGTXT in that.
Can any one help as to how to go about and all the configuration Steps.
Thanks in Advance.
Pramod

You have to implement OSS note 117393:
Symptom
As of Release 4.0, it is no longer possible to define fields with a field length of more than 20 characters as a grouping criterion when maintaining grouping criteria in table TF123. For example, it is not possible anymore to define the 'Segment text' (SGTXT) field.
After implementing this note, the field SGTXT will be available for automatic clearing and it works nice but as described in the note, only the first 20 characters of the field are taken in account for clearing.

Similar Messages

  • Item text (BSEG-SGTXT) is not getting updated in Payment document generated

    Hi All,
    Item text (BSEG-SGTXT) is not getting updated in Payment document generated through F110.
    After generating the payment document via Transaction Code u2013 F110, system is not updating the
    Text field (BSEG-SGTXT) in the payment document with the text that we have entered in the Invoice (MIRO or FI Invoice).
    In case of manual payment (F-53) we can input the text manually hence that will get updated in
    payment document but this thing is not possible with F110.
    How can I update it?
    Is there any configuration for that?
    Thanks
    Daniel Dorta

    Hi All,
    I've applied the two notes as recommended. However, when I run FBL3N for payment run items, the Text field is update with wrong data, i.e. not from the Text field in FB60
    Thus, I'll like someone to help me with what should exactly be done on the 'Step', 'Pre-requisite' and 'Substitution' side of the Substitution rule (TCode GGB1), I did not fill anything in the Pre-requisite box - is this right?
    Thanx in advance.

  • FI exit help

    Hi Folks,
       I have a Bank data file that is uploaded using the SAP standard RFEBGB00 which then posts in SAP. I want to know if there is any exit that I can use within this program. My requirement is to populate the Assignment field (ZUONR) in (Tcode FB02) and overriding the SAP internal assignment. I want the Text field (SGTXT) pick up few characters to the assignment field (ZUONR).The FI exits are different which depends on substitution rule. I understand the program is Rggbs000, which needs to get this copied as Zggbs000, then update table T80d point it to the Zggbs000 program and then add in the substitution in fi config under document header. Then get the exit written in the program and link the
    substitution to the exit.How and where is the subsititution to be defined and how do I link this to my requirement. Thanks for your help.
    Regards,
    Tim

    Hi,
    these were some of the exits available for FB02 transaction, please you need to explore them as to check up which one will match your requirement.
    F050S001            FIDCMT, FIDCC1, FIDCC2: Edit user-defined IDoc segment         
    F050S002            FIDCC1: Change IDoc/do not send                                
    F050S003            FIDCC2: Change IDoc/do not send                                
    F050S004            FIDCMT, FIDCC1, FIDCC2: Change outbound IDoc/do not send       
    F050S005            FIDCMT, FIDCC1, FIDCC2 Inbound IDoc: Change FI document        
    F050S006            FI Outgoing IDoc: Reset Clearing in FI Document                
    F050S007            FIDCCH Outbound: Influence on IDoc for Document Change         
    F180A001            Balance Sheet Adjustment                                       
    FARC0002            Additional Checks for Archiving MM Vendor Master Data          
    FEDI0001            Function exits for EDI in FI                                   
    RFAVIS01            Customer Exit for Changing Payment Advice Segment Text         
    RFEPOS00            Line item display: Checking of selection conditions            
    RFKORIEX            Automatic Correspondence                                       
    SAPLF051            Workflow for FI (Pre-Capture, Release for Payment)             
    Regards,
    Jagath

  • Enhancement for VL02N to update the item text(BSEG-SGTXT) during PGI

    Hello all,
    Actually, I need your help experts. I am trying to update the item text(BSEG-SGTXT) for accounting documents with the sales order number during their creation(post goods issue) from transaction VL02N, VL01N, VL09.
    I have checked the 17 exits available for these transactions and non of these 17 exits allow me to modify the item text(BSEG-SGTXT). I am currently investigating on the two badi's available for these transactions.
    I am not sure if it possible to make these modifications via Badi's.
    Does anyone have any idea or technique that can help me to find a way to modify/update the item text(BSEG-SGTXT) for any accounting document generated during post goods issue using transaction VL02N, VL01N, VL09?
    Thanks a lot in advance for your help experts.
    Kind Regards,
    Bryan

    Hello Ankur Agrawal,
    Thanks a lot for your help.
    I got the item text from the mentioned BADI.  I will get back to this post if it works.
    Thank again for your quick reply.
    Kind Regards,
    Bryan

  • I need to "update" BSEG-SGTXT. What is the best way to do this?

    For a bunch of FI documents, the BSEG-SGTXT has been entered wrong while creating the documents. We need to change the BSEG-SGTXT values. What would be the best method to do this. We understand, direct table updates are risky and not suggested. Also BSEG-SGTXT is duplicated in other tables, like BSIS, BSID etc. We wanted to get some BAPI/ other FM. But we have not found any such one till now.
    Can anyone suggest a suitable method for this problem?

    Hi kaushik just check this Fm to change the text ..
    BAPI_EXPENDITUREPROGTREE_SVRPV
    also check
    BAPI_EXPENDITUREPROGTREE_CHVAL
    hope this helps regards,
    Vijay

  • Need help to sum up total amount in at end of.....endat!!! Please help

    Hi,
    There is one program need to calculat the SUB-TOTAL AMOUNT FOR SAME DOCUMENT NUMBER.
    Means: Need to sumup betrg for the same belnr.
    QUESTION:
    How can I write the sorce cord In AT END OF...ENDAT.
    TO SUMUP THE AMOUNT FOR SAME DOCUMENT NUMBER.
    Please help!!
    Thanks.
    Here is the sourc code.
    DATA: BEGIN OF t OCCURS 0,
            bukrs   LIKE knb1-bukrs,
    *<<<<< CR01
            zuonr   Like bsid-zuonr,                        "sort key  "CR01
    *>>>>> CR01
            belnr   LIKE bsid-belnr,
            kunnr   LIKE kna1-kunnr,
            bldat   LIKE bsid-bldat,
            budat   LIKE bsid-budat,
            netdt   LIKE bsega-netdt,
            waers   LIKE bsid-waers,
            wrbtr   LIKE bsid-wrbtr,
            shkzg   LIKE bsid-shkzg,
            xblnr   LIKE bsid-xblnr,                            "WD041005a
            sgtxt   LIKE bsid-sgtxt,
            dmbtr   LIKE bsid-dmbtr,
          END OF t.
    Description of Interface-record RECON
    DATA: BEGIN OF s,
            belnr(10),                     " document number
    *<<<< CR01 STRAT ADD ZUONR
            zuonr(10),                     "sort key  " CR01
    *>>>> CR01 END ADD ZUONR
            filler1(1),
          KUNNR(5),                      " customer no."WD290705a
            kunnr LIKE kna1-kunnr,         " customer no."WD290705a
            filler2(1),
            bldat(10),                     " date
            filler3(1),
            budat(10),
            filler4(1),
            netdt(10),                     " due date for payment
            filler5(1),
            betrg(14),                     " amount
            filler6(1),
            waers(3),                      " currency
            filler7(1),                    " document field - blank
            compcode(4),                   " company-code         "fw070905
            filler8(1),                    " comment - blank
            sgtxt(50),                     " Text             "INS MG020207
            filler9(1),
            kmmnt(30),
            filler10(1),
            vbeln(12) ,
            filler11(1),
            xblnr(16),                     "WD041005a hier Referenznr rein
            filler12(1),
            lifn2(11),
            filler13(1),                   " remark - blank
            dmbtr(14),
            filler14(1),
            twaer(3),
          END OF s.
    DATA: BEGIN OF outtab OCCURS 1000,
                s LIKE s,
          END OF outtab.
    *<<<<< INS MG020207
    TYPES: BEGIN OF ty_outalv,
             belnr(10),                     " document number
    *<<<< CR01 START ADD ZUONR
             zuonr,                         " sort key  " CR01
    *>>>>CR01 END ADD AUONR
             kunnr LIKE kna1-kunnr,         " customer no."WD290705a
             bldat(10),                     " date
             budat(10),                     " posting date
             netdt(10),                     " due date for payment
             betrg(14),                     " amount
             waers(3),                      " currency
             compcode(4),                   " company-code         "fw070905
             sgtxt(30),                     " comment
             kmmnt(30),                     " comment
             vbeln(12),                     " delivery number
             xblnr(16),                     "WD041005a hier Referenznr rein
             lifn2(11),                     " customer number
             dmbtr(14),
             twaer(3),                     " currency company code
           END OF ty_outalv.
    DATA: gt_outalv TYPE STANDARD TABLE OF ty_outalv.
    DATA: gs_outalv TYPE ty_outalv.
    *>>>>> INS MG020207
    DATA: l_date TYPE sy-datum.
    DATA: g_date TYPE sy-datum.
    DATA: g_budat TYPE bsik-budat.
    *<<<< CR01 START   ADD DATA STATEMENT
    DATA: wk_belnr LIKE bsid-zuonr,
          wk_x_belnr LIKE bsid-zuonr,
          ZUONR LIKE BSID-ZUONR,
          WRBTR LIKE BSID-WRBTR,
          WK_ZUONR LIKE BSID-ZUONR,
          WK_WRBTR LIKE BSID-WRBTR.
    *>>>> CR01 END  ADD DATA STATEMENT
    DATA: l_it_bsik TYPE STANDARD TABLE OF bsik.               "INS MG050706
    DATA: l_wa_bsik TYPE bsik.                                 "INS MG050706
    TYPE-POOLS: slis.                                          "INS MG020207
    DATA:                                                      "INS MG020207
    gt_fieldcat TYPE slis_t_fieldcat_alv,                     "INS MG020207
    gs_layout   TYPE slis_layout_alv,                         "INS MG020207
    gs_fieldcat TYPE slis_fieldcat_alv.                       "INS MG020207
    END-OF-SELECTION.
      SORT t.
      LOOP AT t.
        AT NEW bukrs.
          CLEAR anz_dl.
          CLEAR htext-anzahl.
          CLEAR htext-datei.
          htext-text1 = ' records writen in file '.
          CLEAR p_pfad.
          CONCATENATE
              i_pfad
              'CU_CC'
              t-bukrs
              sy-datum+6(2)
              sy-datum+4(2)
              sy-datum(4)
              sy-uzeit
              '.txt'
         INTO p_pfad.
          CLEAR outtab.
          REFRESH outtab.
          REFRESH: gt_outalv.                                  "INS MG020207
        ENDAT.
       IF t-shkzg = 'H'.
         h_betrg  = t-wrbtr * -1.
       ELSE.
        h_betrg  = t-wrbtr.
        h_dmbtr  = t-dmbtr.
       ENDIF.
        s-filler1 = s-filler2 = s-filler3 = s-filler4 = s-filler5 = ';'.
        s-filler6 = s-filler7 = s-filler8 = ';'.
        s-filler9 = s-filler10 = s-filler11 = s-filler12 = s-filler13 = ';'.
        s-filler14 = ';'.
        s-belnr = t-belnr.
        IF t-xblnr NE space.                                    "WD041005a
          s-xblnr      = t-xblnr.                               "WD041005a
        ELSE.                                                   "WD041005a
          s-xblnr      = t-belnr.                               "WD041005a
        ENDIF.                                                  "WD041005a
        WHILE s-xblnr(1) EQ '0'.                            "INS MG130606
          SHIFT s-xblnr LEFT.                               "INS MG130606
        ENDWHILE.                                            "INS MG130606
        WRITE t-kunnr TO s-kunnr NO-ZERO.
        s-lifn2 = s-kunnr.
        shift s-lifn2 RIGHT.
        s-lifn2(1) = 'R'.
      S-KUNNR = T-KUNNR+5(5).
        s-bldat+2(1) = '/'.
        s-bldat+5(1) = '/'.
        s-bldat0(2) = t-bldat4(2).
        s-bldat3(2) = t-bldat6(2).
        s-bldat6(4) = t-bldat0(4).
        s-budat+2(1) = '/'.
        s-budat+5(1) = '/'.
        s-budat0(2) = t-budat4(2).
        s-budat3(2) = t-budat6(2).
        s-budat6(4) = t-budat0(4).
        s-netdt+2(1) = '/'.
        s-netdt+5(1) = '/'.
        s-netdt0(2) = t-netdt4(2).
        s-netdt3(2) = t-netdt6(2).
        s-netdt6(4) = t-netdt0(4).
        s-waers      = t-waers.
        s-dmbtr      = t-dmbtr.
        s-sgtxt      = t-sgtxt.
        CLEAR s-twaer.
        SELECT SINGLE waers INTO s-twaer
                            FROM t001
                            WHERE bukrs = t-bukrs.
        IF h_betrg < 0.
          hs_betrg+0(1) = '-'.
        ELSE.
          hs_betrg+0(1) = ' '.
        ENDIF.
        WRITE h_betrg CURRENCY t-waers TO hs_betrg+1 NO-GROUPING
                                                        NO-SIGN
                                                        LEFT-JUSTIFIED.
        REPLACE ',' WITH '.' INTO hs_betrg.
        WRITE hs_betrg TO s-betrg.
        IF h_dmbtr < 0.
          hs_betrg+0(1) = '-'.
        ELSE.
          hs_betrg+0(1) = ' '.
        ENDIF.
        WRITE h_dmbtr CURRENCY t-waers TO hs_betrg+1 NO-GROUPING
                                                        NO-SIGN
                                                        LEFT-JUSTIFIED.
        REPLACE ',' WITH '.' INTO hs_betrg.
        WRITE hs_betrg TO s-dmbtr.
        s-compcode   = t-bukrs.                                 "fw070905
        IF p_downl = 'X'.
          MOVE s TO outtab-s.
          APPEND outtab.
          ADD 1 TO anz_dl.
        ENDIF.
        gs_outalv-belnr = s-belnr.                             "INS MG020207
    *<<<< CR01 START ADD as_outalv-zuonr
        gs_outalv-zuonr = s-zuonr.                             "CR01
    *>>>> CR01 EDD   ADD as_outalv-zuonr
        gs_outalv-kunnr = s-kunnr.                             "INS MG020207
        gs_outalv-bldat = s-bldat.                             "INS MG020207
        gs_outalv-netdt = s-netdt.                             "INS MG020207
        gs_outalv-betrg = s-betrg.                             "INS MG020207
        gs_outalv-waers = s-waers.                             "INS MG020207
        gs_outalv-compcode = s-compcode.                       "INS MG020207
        gs_outalv-budat = s-budat.                             "INS MG020207
        gs_outalv-sgtxt = s-sgtxt.
        gs_outalv-kmmnt = s-kmmnt.
        gs_outalv-vbeln = s-vbeln.
        gs_outalv-xblnr = s-xblnr.
        gs_outalv-lifn2 = s-lifn2.
        gs_outalv-dmbtr = s-dmbtr.
        gs_outalv-twaer = s-twaer.
        APPEND gs_outalv TO gt_outalv.                         "INS MG020207
        AT END OF bukrs.
          WRITE anz_dl  TO htext-anzahl.
          WRITE p_pfad  TO htext-datei.
          CONDENSE htext.
          IF p_downl = 'X'.
            SKIP 2.
            WRITE: / htext.
            CALL FUNCTION 'GUI_DOWNLOAD'
              EXPORTING
                filename                = p_pfad
                filetype                = 'ASC'
              TABLES
                data_tab                = outtab
              EXCEPTIONS
                file_write_error        = 1
                no_batch                = 2
                gui_refuse_filetransfer = 3
                invalid_type            = 4
                no_authority            = 5
                unknown_error           = 6
                header_not_allowed      = 7
                separator_not_allowed   = 8
                filesize_not_allowed    = 9
                header_too_long         = 10
                dp_error_create         = 11
                dp_error_send           = 12
                dp_error_write          = 13
                unknown_dp_error        = 14
                access_denied           = 15
                dp_out_of_memory        = 16
                disk_full               = 17
                dp_timeout              = 18
                file_not_found          = 19
                dataprovider_exception  = 20
                control_flush_error     = 21
                OTHERS                  = 22.
            IF sy-subrc <> 0.
             write: / 'Error creating File:', P_Pfad, sy-subrc.
              MESSAGE e405 WITH text-002 p_pfad.
            ENDIF.
          ENDIF.
    *<<<<< INS MG020207
          IF p_alvd EQ 'X'.
            PERFORM build_layout_data.
            CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
              EXPORTING
                i_callback_program     = sy-repid
                i_structure_name       = 'GT_OUTALV'
                is_layout              = gs_layout
                it_fieldcat            = gt_fieldcat[]
                i_callback_top_of_page = 'TOP-OF-PAGE'
              TABLES
                t_outtab               = gt_outalv.
          ENDIF.
    *>>>>> INS MG020207
    ENDAT.
      ENDLOOP.

    HI
    Have alook at below program
    *& Report  ZINTERNALTABLE
    REPORT  zinternaltable.
    TYPES:BEGIN OF itab,
          num TYPE i,
          name(10) TYPE c,
          amt type i,
          END OF itab.
    DATA : wa_itab TYPE itab,
           it_itab TYPE STANDARD TABLE OF itab.
    DATA : v_lines TYPE i.
    wa_itab-num = 1.
    wa_itab-name = 'nag'.
    wa_itab-amt = 1000.
    append wa_itab TO it_itab.
    wa_itab-num = 1.
    wa_itab-name = 'nag'.
    wa_itab-amt = 2000.
    append wa_itab TO it_itab.
    wa_itab-num = 1.
    wa_itab-name = 'nag'.
    wa_itab-amt = 1500.
    append wa_itab TO it_itab.
    wa_itab-num = 2.
    wa_itab-name = 'sri'.
    wa_itab-amt = 500.
    append wa_itab tO it_itab.
    wa_itab-num = 2.
    wa_itab-name = 'sri'.
    wa_itab-amt = 600.
    append wa_itab TO it_itab.
    wa_itab-num = 2.
    wa_itab-name = 'sri'.
    wa_itab-amt = 700.
    append wa_itab TO it_itab.
    wa_itab-num = 3.
    wa_itab-name = 'ganesh'.
    wa_itab-amt = 1200.
    append wa_itab TO it_itab.
    wa_itab-num = 3.
    wa_itab-name = 'ganesh'.
    wa_itab-amt = 1300.
    append wa_itab TO it_itab.
    wa_itab-num = 3.
    wa_itab-name = 'ganesh'.
    wa_itab-amt = 1400.
    append wa_itab TO it_itab.
    wa_itab-num = 4.
    wa_itab-name = 'suresh'.
    wa_itab-amt = 900.
    append wa_itab TO it_itab.
    wa_itab-num = 4.
    wa_itab-name = 'suresh'.
    wa_itab-amt = 300.
    append wa_itab TO it_itab.
    sort it_itab.
    LOOP AT it_itab INTO wa_itab.
    at first.
    write :/ 'details of sales order:'.
    uline.
    endat.
    at new num.
    write :/ 'serial num:', wa_itab-num.
    uline.
    endat.
    WRITE :/ wa_itab-num , wa_itab-name , wa_itab-amt.
    at end of num.
    uline.
    sum.
    write :/ 'total amount:',wa_itab-amt.
    uline.
    endat.
    at last.
    sum.
    uline.
    write:/ 'grand total:',wa_itab-amt.
    endat.
    ENDLOOP.
    describe table it_itab lines  v_lines.
    WRITE:/'no of records :', v_lines.
    Regards
    Nagesh.Paruchuri

  • Need help in BAPI_ACC_DOCUMENT_POST.

    Hi Friends,
    Can any one help me in passing on the TAX parameters and currency parameters to
    BAPI_ACC_DOCUMENT_POST.
    this is the code i am using . it is posting the document and a TAX line is not created .
    LOOP AT IT_ITEM WHERE HEAD_COL = IT_HEADER-FIRST_COL.
          V_ITEM = V_ITEM + 1.
          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
              INPUT  = V_ITEM
            IMPORTING
              OUTPUT = V_ITEM.
    *      IT_ACCGL-ITEMNO_ACC = V_ITEM.        "IT_ITEM-NEWBS.
    *for vendor / gl accounts based on newbs
          IF IT_ITEM-NEWBS = '40' OR IT_ITEM-NEWBS = '50'.
            IT_ACCGL-GL_ACCOUNT = IT_ITEM-NEWKO.
            IT_ACCGL-ITEMNO_ACC = V_ITEM.        "IT_ITEM-NEWBS.
            IT_ACCGL-ITEM_TEXT  = IT_ITEM-SGTXT.
            IT_ACCGL-TAX_CODE   = IT_ITEM-MWSKZ.
            CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
              EXPORTING
                INPUT  = IT_ITEM-AUFNR
              IMPORTING
                OUTPUT = IT_ACCGL-ORDERID.
            IT_ACCGL-ALLOC_NMBR = IT_ITEM-ZUONR.
            CONCATENATE IT_HEADER-BUDAT+0(4) IT_HEADER-BUDAT+5(2) IT_HEADER-BUDAT+8(2) INTO IT_ACCGL-PSTNG_DATE.
            CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
              EXPORTING
                INPUT  = IT_ITEM-KOSTL
              IMPORTING
                OUTPUT = IT_ACCGL-COSTCENTER.
            IT_ACCGL-ITEM_TEXT  = IT_ITEM-SGTXT.
            CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
              EXPORTING
                INPUT  = IT_ITEM-PRCTR
              IMPORTING
                OUTPUT = IT_ITEM-PRCTR.
            IT_ACCGL-PROFIT_CTR = IT_ITEM-PRCTR.
            APPEND IT_ACCGL.
    *for Account tax
            IT_ACCTAX-ITEMNO_ACC = V_ITEM.
            IT_ACCTAX-ACCT_KEY   = 'VST'.
            IT_ACCTAX-GL_ACCOUNT = IT_ITEM-NEWKO.
            IT_ACCTAX-TAX_CODE   = IT_ITEM-MWSKZ.
            IT_ACCTAX-TAX_RATE   = IT_MWDAT-KBETR.
            APPEND IT_ACCTAX.
    **CURRENCY
    *populate it_curr - BAPI currency table
            IT_CURR-ITEMNO_ACC = V_ITEM.      "IT_ITEM-NEWBS.
            IT_CURR-CURRENCY   = IT_HEADER-WAERS.
            IT_CURR-AMT_DOCCUR = IT_ITEM-WRBTR.
            IT_CURR-EXCH_RATE = IT_HEADER-KURSF.
            CLEAR IT_BSEG.
            READ TABLE IT_BSEG WITH KEY BELNR = IT_ITEM-NEWKO
                                        MWSKZ = IT_ITEM-MWSKZ
                                        WRBTR = IT_ITEM-WRBTR.
            IT_CURR-AMT_BASE = IT_BSEG-FWBAS.
            V_BUKRS = IT_HEADER-BUKRS.
            V_MWSKZ = IT_ITEM-MWSKZ.
            V_WAERS = IT_HEADER-WAERS.
            V_WRBTR = IT_ITEM-WRBTR.
            CALL FUNCTION 'CALCULATE_TAX_FROM_GROSSAMOUNT'
              EXPORTING
                I_BUKRS                       = V_BUKRS
                I_MWSKZ                       = V_MWSKZ
    *   I_TXJCD                       = ' '
                I_WAERS                       = V_WAERS
                I_WRBTR                       = V_WRBTR
    * IMPORTING
    *   E_FWNAV                       =
    *   E_FWNVV                       =
    *   E_FWSTE                       =
    *   E_FWAST                       =
             TABLES
               T_MWDAT                       = IT_MWDAT
             EXCEPTIONS
               BUKRS_NOT_FOUND               = 1
               COUNTRY_NOT_FOUND             = 2
               MWSKZ_NOT_DEFINED             = 3
               MWSKZ_NOT_VALID               = 4
               ACCOUNT_NOT_FOUND             = 5
               DIFFERENT_DISCOUNT_BASE       = 6
               DIFFERENT_TAX_BASE            = 7
               TXJCD_NOT_VALID               = 8
               NOT_FOUND                     = 9
               KTOSL_NOT_FOUND               = 10
               KALSM_NOT_FOUND               = 11
               PARAMETER_ERROR               = 12
               KNUMH_NOT_FOUND               = 13
               KSCHL_NOT_FOUND               = 14
               UNKNOWN_ERROR                 = 15
               OTHERS                        = 16
            IF SY-SUBRC = 0.
    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
              IT_CURR-TAX_AMT = IT_MWDAT-KBETR.
              IT_CURR-AMT_BASE = IT_MWDAT-KAWRT.
            ENDIF.
            APPEND IT_CURR.
    ***Extension1
    *populate it_extension1 - BAPI extension1 table
            V_NEWBS = IT_ITEM-NEWBS.
            IT_EXTENSION1-FIELD1(10) = V_ITEM.
            IT_EXTENSION1-FIELD1+10(2) = IT_ITEM-MWSKZ.
            IF NOT IT_ITEM-MWSKZ IS INITIAL.
              IT_EXTENSION1-FIELD2(10) = V_ITEM.
              IT_EXTENSION1-FIELD2+10(1) = 'X'.
            ENDIF.
    *for posting key
            IT_EXTENSION1-FIELD3 = V_NEWBS.
    ***for posting key IN EXTENSION2
            IT_EXTENSION2-STRUCTURE = 'ACCIT'.
            IT_TES-POSNR = V_ITEM.
            IT_TES-BSCHL = V_NEWBS.
            IT_TES-KBETR = IT_MWDAT-KBETR.
    **        IT_TES-MWSKZ = IT_ITEM-MWSKZ.
    **        IT_TES-XMWST = 'X'.
            IT_EXTENSION2-VALUEPART2(10) = V_ITEM.
            IT_EXTENSION2-VALUEPART2 = IT_ITEM-MWSKZ.
            IF NOT IT_ITEM-MWSKZ IS INITIAL.
              IT_EXTENSION2-VALUEPART3(10) = V_ITEM.
              IT_EXTENSION2-VALUEPART3+10(1) = 'X'.
            ENDIF.
            MOVE IT_TES TO IT_EXTENSION2-VALUEPART1.            "#EC ENHOK
            APPEND IT_EXTENSION2.
          ELSEIF IT_ITEM-NEWBS = '21' OR
                 IT_ITEM-NEWBS = '22' OR
                 IT_ITEM-NEWBS = '23' OR
                 IT_ITEM-NEWBS = '24' OR
                 IT_ITEM-NEWBS = '25' OR
                 IT_ITEM-NEWBS = '26' OR
                 IT_ITEM-NEWBS = '27' OR
                 IT_ITEM-NEWBS = '28' OR
                 IT_ITEM-NEWBS = '29' OR
                 IT_ITEM-NEWBS = '30' OR
                 IT_ITEM-NEWBS = '31' OR
                 IT_ITEM-NEWBS = '32' OR
                 IT_ITEM-NEWBS = '33' OR
                 IT_ITEM-NEWBS = '34' OR
                 IT_ITEM-NEWBS = '35' OR
                 IT_ITEM-NEWBS = '36' OR
                 IT_ITEM-NEWBS = '37' OR
                 IT_ITEM-NEWBS = '38' OR
                 IT_ITEM-NEWBS = '39'.
            IF IT_HEADER-BLART = 'KR' OR IT_HEADER-BLART = 'KA'.
              IT_ACCREC-ITEMNO_ACC = V_ITEM.
              CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                EXPORTING
                  INPUT  = IT_ITEM-NEWKO
                IMPORTING
                  OUTPUT = IT_ITEM-NEWKO.
              IT_ACCREC-VENDOR_NO = IT_ITEM-NEWKO.
    *for GL account
              CLEAR IT_LFB1.
              READ TABLE IT_LFB1 WITH KEY LIFNR = IT_ITEM-NEWKO.
              IF IT_LFB1-BUKRS = IT_HEADER-BUKRS.
                IT_ACCREC-GL_ACCOUNT = IT_LFB1-AKONT.
                IT_ACCREC-COMP_CODE  = IT_HEADER-BUKRS.
                IT_ACCREC-ITEM_TEXT  = IT_ITEM-SGTXT.
                IT_ACCREC-TAX_CODE   = IT_ITEM-MWSKZ.
              ENDIF.
              APPEND IT_ACCREC.
              CLEAR IT_ACCREC.
    *for Account tax
              IT_ACCTAX-ITEMNO_ACC = V_ITEM.
              IT_ACCTAX-ACCT_KEY   = 'VST'.
              IT_ACCTAX-GL_ACCOUNT = IT_LFB1-AKONT.
              IT_ACCTAX-TAX_CODE   = IT_ITEM-MWSKZ.
              IT_ACCTAX-TAX_RATE = IT_MWDAT-KBETR.
              APPEND IT_ACCTAX.
    **CURRENCY
    *populate it_curr - BAPI currency table
              IT_CURR-ITEMNO_ACC = V_ITEM.      "IT_ITEM-NEWBS.
              IT_CURR-CURRENCY   = IT_HEADER-WAERS.
              IT_CURR-AMT_DOCCUR = IT_ITEM-WRBTR * -1.
              IT_CURR-EXCH_RATE = IT_HEADER-KURSF.
              V_BUKRS = IT_HEADER-BUKRS.
              V_MWSKZ = IT_ITEM-MWSKZ.
              V_WAERS = IT_HEADER-WAERS.
              V_WRBTR = IT_ITEM-WRBTR.
              CALL FUNCTION 'CALCULATE_TAX_FROM_GROSSAMOUNT'
                EXPORTING
                  I_BUKRS                       = V_BUKRS
                  I_MWSKZ                       = V_MWSKZ
                  I_WAERS                       = V_WAERS
                  I_WRBTR                       = V_WRBTR
    * IMPORTING
    *   E_FWNAV                       =
    *   E_FWNVV                       =
    *   E_FWSTE                       =
    *   E_FWAST                       =
               TABLES
                 T_MWDAT                       = IT_MWDAT
               EXCEPTIONS
                 BUKRS_NOT_FOUND               = 1
                 COUNTRY_NOT_FOUND             = 2
                 MWSKZ_NOT_DEFINED             = 3
                 MWSKZ_NOT_VALID               = 4
                 ACCOUNT_NOT_FOUND             = 5
                 DIFFERENT_DISCOUNT_BASE       = 6
                 DIFFERENT_TAX_BASE            = 7
                 TXJCD_NOT_VALID               = 8
                 NOT_FOUND                     = 9
                 KTOSL_NOT_FOUND               = 10
                 KALSM_NOT_FOUND               = 11
                 PARAMETER_ERROR               = 12
                 KNUMH_NOT_FOUND               = 13
                 KSCHL_NOT_FOUND               = 14
                 UNKNOWN_ERROR                 = 15
                 OTHERS                        = 16
              IF SY-SUBRC = 0.
    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
                IT_CURR-TAX_AMT  = IT_MWDAT-KBETR.
                IT_CURR-AMT_BASE = IT_MWDAT-KAWRT.
              ENDIF.
              APPEND IT_CURR.
    ***Extension1
    *populate it_extension1 - BAPI extension1 table
              V_NEWBS = IT_ITEM-NEWBS.
              IT_EXTENSION1-FIELD1(10) = V_ITEM.
              IT_EXTENSION1-FIELD1+10(2) = IT_ITEM-MWSKZ.
              IF NOT IT_ITEM-MWSKZ IS INITIAL.
                IT_EXTENSION1-FIELD2(10) = V_ITEM.
                IT_EXTENSION1-FIELD2+10(1) = 'X'.
              ENDIF.
    *for posting key
              IT_EXTENSION1-FIELD3 = V_NEWBS.
    *for posting key IN EXTENSION2
              IT_EXTENSION2-STRUCTURE = 'ACCIT'.
              IT_TES-POSNR = V_ITEM.
              IT_TES-BSCHL = V_NEWBS.
              IT_TES-MWSKZ = IT_ITEM-MWSKZ.
    *          IT_TES-XMWST = 'X'.
              IT_TES-KBETR = IT_MWDAT-KBETR.
              MOVE IT_TES TO IT_EXTENSION2-VALUEPART1.          "#EC ENHOK
              IT_EXTENSION2-VALUEPART2(10) = V_ITEM.
              IT_EXTENSION2-VALUEPART2 = IT_ITEM-MWSKZ.
              IF NOT IT_ITEM-MWSKZ IS INITIAL.
                IT_EXTENSION2-VALUEPART3(10) = V_ITEM.
                IT_EXTENSION2-VALUEPART3+10(1) = 'X'.
              ENDIF.
              APPEND IT_EXTENSION2.
            ENDIF.
          ENDIF.
        ENDLOOP.
        CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
          EXPORTING
            DOCUMENTHEADER          = IT_DOC
    *   CUSTOMERCPD             =
    *   CONTRACTHEADER          =
         IMPORTING
           OBJ_TYPE                = V_OBJ_TYPE
           OBJ_KEY                 = V_OBJ_KEY
           OBJ_SYS                 = V_OBJ_SYS
          TABLES
           ACCOUNTGL               = IT_ACCGL
    *   ACCOUNTRECEIVABLE       =
           ACCOUNTPAYABLE          = IT_ACCREC
    *       ACCOUNTTAX              = IT_ACCTAX
            CURRENCYAMOUNT          = IT_CURR
    *   CRITERIA                =
    *   VALUEFIELD              =
           EXTENSION1               = IT_EXTENSION1
            RETURN                  = IT_RETURN
    *   PAYMENTCARD             =
    *   CONTRACTITEM            =
           EXTENSION2              = IT_EXTENSION2
    *   REALESTATE              =
    *   ACCOUNTWT               =
    this is for Vendor account upload to F-02.
    in the flat file i am getting the Tax codes J0 and J1. for J0 there is no tax. for j1 we have 17% tax.
    I am not clear in passing the values. i tried to pass the values through EXTENSION1 and EXTENSION2 also.
    Kindly help me n solving this.
    Thanks in Advance.
    Vikki.

    Hi All,
    Still i am not able to get the required result.
    Now i am passing the Values to the Tax values to ACCOUNTTAX strcture.
    But the GL is not posted .
    Can you give me some code snippets on how to pass on the value to ACCOUNTTAX, CURRENCY................
    For each and every Line item how we need to pass on the TAX and CURRECNY details?
    For the items which have TAX , a extra line for TAX item should be created/
    Is it possible to do this with EXTENSION1 or EXTENSION2?
    it will be very helpful to me if you can guide me in solving this.
    Awaiting your replies.
    Vikki.

  • Please Help me with this Logic.....

    Seniors , Please Help me with this Requirment
         BUKRS _____________________
         GJAHR  ____________________
         LIFNR    _____________________
         MONAT _____________________
    LIFNR  NAME1  GSBER   GJAHR  HBAL SBAL  ACCUMBAL
    1001   ABB    BUSS1   2005     300      00            
                 ABB      BUSS1    2005      00      100
                                                        300     100   (300-100)=200
                  ABB      BUSS1   2006      200      00
                  ABB      BUSS1   2006      200      00                 
                                                      400      00   (400-00)+ 200 =                                                                               
    600
                ABB     BUSS2   2005     300       00
                ABB      BUSS2    2005      00       100                                                                               
                                                     300      100    ( 300-100) =200                                                                               
                ABB      BUSS2   2006    400         00
                ABB      BUSS2   2006     00         100
                                                      400       100   (400-100)+200 =                                                                               
    500   ****************************************************************************                                                                               
    1400         300  (1400-300)                                            **********************************************************************************************************
    Same for the Next Vendor also...
    This is the report for this Requirment i am working on....Please Help me in the Logic..How to Go on with it....
    *& Report  ZVENDOR_RECONCILLATION
    REPORT  ZVENDOR_RECONCILLATION.
    TABLES : BSAK , BSIK , LFC1 , LFC3 , LFA1.
    *ALV
    TYPE-POOLS: SLIS.
    *TYPE-POOLS icon.
    DATA: It_SORT TYPE SLIS_T_SORTINFO_ALV ."WITH HEADER LINE.
    DATA: TOP TYPE slis_t_listheader,
          END TYPE slis_t_listheader,
          EVENTS TYPE slis_t_event.
    DATA : T_KEY TYPE SLIS_KEYINFO_ALV.
    DATA : FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
          LAYOUT TYPE SLIS_LAYOUT_ALV OCCURS 1 WITH HEADER LINE ,
          LCAT TYPE SLIS_FIELDCAT_ALV.
    *INTERNAL TABLE
    DATA: BEGIN OF sd_bsak,
            bukrs TYPE bsak-bukrs,
            lifnr TYPE bsak-lifnr,
            umsks TYPE bsak-umsks,
            umskz TYPE bsak-umskz,
            augdt TYPE bsak-augdt,
            augbl TYPE bsak-augbl,
            zuonr TYPE bsak-zuonr,
            gjahr TYPE bsak-gjahr,
            belnr TYPE bsak-belnr,
            buzei TYPE bsak-buzei,
            budat TYPE bsak-budat,
            bldat TYPE bsak-bldat,
            xblnr TYPE bsak-xblnr,
            blart TYPE bsak-blart,
            monat TYPE bsak-monat,
            bschl TYPE bsak-bschl,
            zumsk TYPE bsak-zumsk,
            shkzg TYPE bsak-shkzg,
            gsber TYPE bsak-gsber,
            dmbtr TYPE bsak-dmbtr,
            wrbtr TYPE bsak-wrbtr,
            sgtxt TYPE bsak-sgtxt,
            saknr TYPE bsak-saknr,
            hkont TYPE bsak-hkont,
          END OF sd_bsak.
    DATA: BEGIN OF sd_bsik,
            bukrs TYPE bsik-bukrs,
            lifnr TYPE bsik-lifnr,
            umsks TYPE bsik-umsks,
            umskz TYPE bsik-umskz,
            augdt TYPE bsik-augdt,
            augbl TYPE bsik-augbl,
            zuonr TYPE bsik-zuonr,
            gjahr TYPE bsik-gjahr,
            belnr TYPE bsik-belnr,
            buzei TYPE bsik-buzei,
            budat TYPE bsik-budat,
            bldat TYPE bsik-bldat,
            xblnr TYPE bsik-xblnr,
            blart TYPE bsik-blart,
            monat TYPE bsik-monat,
            bschl TYPE bsik-bschl,
            zumsk TYPE bsik-zumsk,
            shkzg TYPE bsik-shkzg,
            gsber TYPE bsik-gsber,
            dmbtr TYPE bsik-dmbtr,
            wrbtr TYPE bsik-wrbtr,
            sgtxt TYPE bsik-sgtxt,
            saknr TYPE bsik-saknr,
            hkont TYPE bsik-hkont,
            zlsch TYPE bsik-zlsch,
          END OF sd_bsik.
    DATA: BEGIN OF it_lfa1,
            lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
          END OF it_lfa1.
    *FINAL INTERNAL TABLE DECLARATION
    DATA: BEGIN OF IT_FINAL,
            lifnr TYPE bsak-lifnr,
            gsber TYPE bsak-gsber,
            bukrs TYPE bsak-bukrs,
            umsks TYPE bsak-umsks,
            umskz TYPE bsak-umskz,
            augdt TYPE bsak-augdt,
            augbl TYPE bsak-augbl,
            zuonr TYPE bsak-zuonr,
            gjahr TYPE bsak-gjahr,
            belnr TYPE bsak-belnr,
            buzei TYPE bsak-buzei,
            budat TYPE bsak-budat,
            bldat TYPE bsak-bldat,
            xblnr TYPE bsak-xblnr,
            blart TYPE bsak-blart,
            monat TYPE bsak-monat,
            bschl TYPE bsak-bschl,
            zumsk TYPE bsak-zumsk,
            shkzg TYPE bsak-shkzg,
           gsber TYPE bsak-gsber,
            dmbtr TYPE bsak-dmbtr,
            wrbtr TYPE bsak-wrbtr,
            sgtxt TYPE bsak-sgtxt,
            saknr TYPE bsak-saknr,
            hkont TYPE bsak-hkont,
            DMBTR_S  TYPE BSAK-DMBTR,
            DMBTR_H  TYPE BSAK-DMBTR,
            DS       TYPE P DECIMALS 2,
            DH       TYPE P DECIMALS 2,
            SUB      TYPE P DECIMALS 2,
            ADD      TYPE P DECIMALS 2,
            BAL      TYPE P DECIMALS 2,
           lifnr TYPE bsik-lifnr,
           umsks TYPE bsik-umsks,
           umskz TYPE bsik-umskz,
           augdt TYPE bsik-augdt,
           augbl TYPE bsik-augbl,
           zuonr TYPE bsik-zuonr,
           gjahr TYPE bsik-gjahr,
           belnr TYPE bsik-belnr,
           buzei TYPE bsik-buzei,
           budat TYPE bsik-budat,
           bldat TYPE bsik-bldat,
           xblnr TYPE bsik-xblnr,
           blart TYPE bsik-blart,
           monat TYPE bsik-monat,
           bschl TYPE bsik-bschl,
           zumsk TYPE bsik-zumsk,
           shkzg TYPE bsik-shkzg,
           gsber TYPE bsik-gsber,
           dmbtr TYPE bsik-dmbtr,
           wrbtr TYPE bsik-wrbtr,
           sgtxt TYPE bsik-sgtxt,
           saknr TYPE bsik-saknr,
           hkont TYPE bsik-hkont,
            zlsch TYPE bsik-zlsch,
                   lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
    END OF IT_FINAL.
    DATA: BEGIN OF SD_FINAL,
            gsber TYPE bsak-gsber,
            lifnr TYPE bsak-lifnr,
            bukrs TYPE bsak-bukrs,
           lifnr TYPE bsak-lifnr,
            umsks TYPE bsak-umsks,
            umskz TYPE bsak-umskz,
            augdt TYPE bsak-augdt,
            augbl TYPE bsak-augbl,
            zuonr TYPE bsak-zuonr,
            gjahr TYPE bsak-gjahr,
            belnr TYPE bsak-belnr,
            buzei TYPE bsak-buzei,
            budat TYPE bsak-budat,
            bldat TYPE bsak-bldat,
            xblnr TYPE bsak-xblnr,
            blart TYPE bsak-blart,
            monat TYPE bsak-monat,
            bschl TYPE bsak-bschl,
            zumsk TYPE bsak-zumsk,
            shkzg TYPE bsak-shkzg,
            dmbtr TYPE bsak-dmbtr,
            wrbtr TYPE bsak-wrbtr,
            sgtxt TYPE bsak-sgtxt,
            saknr TYPE bsak-saknr,
            hkont TYPE bsak-hkont,
                   bukrs TYPE bsik-bukrs,
           lifnr TYPE bsik-lifnr,
           umsks TYPE bsik-umsks,
           umskz TYPE bsik-umskz,
           augdt TYPE bsik-augdt,
           augbl TYPE bsik-augbl,
           zuonr TYPE bsik-zuonr,
           gjahr TYPE bsik-gjahr,
           belnr TYPE bsik-belnr,
           buzei TYPE bsik-buzei,
           budat TYPE bsik-budat,
           bldat TYPE bsik-bldat,
           xblnr TYPE bsik-xblnr,
           blart TYPE bsik-blart,
           monat TYPE bsik-monat,
           bschl TYPE bsik-bschl,
           zumsk TYPE bsik-zumsk,
           shkzg TYPE bsik-shkzg,
           gsber TYPE bsik-gsber,
           dmbtr TYPE bsik-dmbtr,
           wrbtr TYPE bsik-wrbtr,
           sgtxt TYPE bsik-sgtxt,
           saknr TYPE bsik-saknr,
           hkont TYPE bsik-hkont,
            zlsch TYPE bsik-zlsch,
                   lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
    line_color(4) TYPE c,
    END OF SD_FINAL.
    DATA IT_STD_BSAK  LIKE TABLE OF SD_BSAK  WITH HEADER LINE.
    DATA IT_STD_BSIK  LIKE TABLE OF SD_BSIK  WITH HEADER LINE.
    DATA IT_STD_LFA1  LIKE TABLE OF IT_LFA1  WITH HEADER LINE.
    DATA IT_STD_FINAL  LIKE TABLE OF IT_FINAL  WITH HEADER LINE.
    DATA IT_FINAL_DISPLAY LIKE TABLE OF SD_FINAL WITH HEADER LINE.
    *SELECTION-SCREEN
    SELECTION-SCREEN BEGIN OF BLOCK HEADER WITH FRAME TITLE TEXT-001.
    PARAMETERS:  P_BUKRS LIKE BSAK-BUKRS OBLIGATORY.
    SELECT-OPTIONS : S_GJAHR FOR BSAK-GJAHR.
    SELECT-OPTIONS: S_LIFNR FOR BSAK-LIFNR.
    SELECT-OPTIONS: S_MONAT FOR BSAK-MONAT.
    SELECTION-SCREEN END OF BLOCK HEADER.
    START-OF-SELECTION.
      SET PF-STATUS 'STATUS'.
      PERFORM DATA_RETRIVAL.
      PERFORM FIELD.
      PERFORM EVENTS USING EVENTS.
    PERFORM EVENTS_1 USING EVENTS.
    PERFORM HEADER USING TOP.
      PERFORM LAYOUT.
      PERFORM DISPLAY.
      END-OF-PAGE.
    *&      Form  DATA_RETRIVAL
         text
    -->  p1        text
    <--  p2        text
    FORM DATA_RETRIVAL .
      SELECT BUKRS  LIFNR UMSKS UMSKZ AUGDT AUGBL ZUONR GJAHR BELNR BUZEI BUDAT BLDAT XBLNR BLART
             MONAT BSCHL ZUMSK SHKZG GSBER DMBTR WRBTR SGTXT SAKNR HKONT
        FROM BSAK INTO TABLE IT_STD_BSAK
        WHERE BUKRS = P_BUKRS
              AND GJAHR IN S_GJAHR
        AND LIFNR IN S_LIFNR
        AND MONAT IN S_MONAT.
      IF NOT IT_STD_BSAK[] IS INITIAL.
        SELECT BUKRS LIFNR UMSKS UMSKZ AUGDT AUGBL ZUONR GJAHR BELNR BUZEI BUDAT BLDAT XBLNR
               BLART MONAT BSCHL ZUMSK SHKZG GSBER DMBTR WRBTR SGTXT SAKNR HKONT ZLSCH
        FROM BSIK INTO TABLE IT_STD_BSIK FOR ALL ENTRIES IN IT_STD_BSAK
        WHERE BUKRS = IT_STD_BSAK-BUKRS AND LIFNR = IT_STD_BSAK-LIFNR AND GJAHR = IT_STD_BSAK-GJAHR .
      ENDIF.
    IF NOT IT_STD_BSAK[] IS INITIAL.
        SELECT LIFNR NAME1
               FROM LFA1  INTO TABLE IT_STD_LFA1 FOR ALL ENTRIES IN IT_STD_BSAK
               WHERE LIFNR = IT_STD_BSAK-LIFNR.
      ENDIF.
      LOOP AT IT_STD_BSAK.
        IT_STD_FINAL-BUKRS = IT_STD_BSAK-BUKRS.
        IT_STD_FINAL-LIFNR = IT_STD_BSAK-LIFNR.
        IT_STD_FINAL-UMSKS = IT_STD_BSAK-UMSKS.
        IT_STD_FINAL-UMSKZ = IT_STD_BSAK-UMSKZ.
        IT_STD_FINAL-AUGDT = IT_STD_BSAK-AUGDT.
        IT_STD_FINAL-AUGBL = IT_STD_BSAK-AUGBL.
        IT_STD_FINAL-ZUONR = IT_STD_BSAK-ZUONR.
        IT_STD_FINAL-GJAHR = IT_STD_BSAK-GJAHR.
        IT_STD_FINAL-BELNR = IT_STD_BSAK-BELNR.
        IT_STD_FINAL-BUZEI = IT_STD_BSAK-BUZEI.
        IT_STD_FINAL-BUDAT = IT_STD_BSAK-BUDAT.
        IT_STD_FINAL-BLDAT = IT_STD_BSAK-BLDAT.
        IT_STD_FINAL-XBLNR = IT_STD_BSAK-XBLNR.
        IT_STD_FINAL-BLART = IT_STD_BSAK-BLART.
        IT_STD_FINAL-MONAT = IT_STD_BSAK-MONAT.
        IT_STD_FINAL-BSCHL = IT_STD_BSAK-BSCHL.
        IT_STD_FINAL-ZUMSK = IT_STD_BSAK-ZUMSK.
        IT_STD_FINAL-SHKZG = IT_STD_BSAK-SHKZG.
        IT_STD_FINAL-GSBER = IT_STD_BSAK-GSBER.
        IT_STD_FINAL-DMBTR = IT_STD_BSAK-DMBTR.
        IT_STD_FINAL-WRBTR = IT_STD_BSAK-WRBTR.
        IT_STD_FINAL-SGTXT = IT_STD_BSAK-SGTXT.
        IT_STD_FINAL-SAKNR = IT_STD_BSAK-SAKNR.
        IT_STD_FINAL-HKONT = IT_STD_BSAK-HKONT.
    READ TABLE IT_STD_LFA1 WITH KEY LIFNR = IT_STD_FINAL-LIFNR.
      IF SY-SUBRC = 0.
        IT_STD_FINAL-NAME1 = IT_STD_LFA1-NAME1.
      ENDIF.
        APPEND IT_STD_FINAL.
        CLEAR IT_STD_FINAL.
      ENDLOOP.
    LOOP AT IT_STD_BSIK.
    IF SY-SUBRC = 0.
        IT_STD_FINAL-BUKRS = IT_STD_BSIK-BUKRS.
        IT_STD_FINAL-LIFNR = IT_STD_BSIK-LIFNR.
        IT_STD_FINAL-UMSKS = IT_STD_BSIK-UMSKS.
        IT_STD_FINAL-UMSKZ = IT_STD_BSIK-UMSKZ.
        IT_STD_FINAL-AUGDT = IT_STD_BSIK-AUGDT.
        IT_STD_FINAL-AUGBL = IT_STD_BSIK-AUGBL.
        IT_STD_FINAL-ZUONR = IT_STD_BSIK-ZUONR.
        IT_STD_FINAL-GJAHR = IT_STD_BSIK-GJAHR.
        IT_STD_FINAL-BELNR = IT_STD_BSIK-BELNR.
        IT_STD_FINAL-BUZEI = IT_STD_BSIK-BUZEI.
        IT_STD_FINAL-BUDAT = IT_STD_BSIK-BUDAT.
        IT_STD_FINAL-BLDAT = IT_STD_BSIK-BLDAT.
        IT_STD_FINAL-XBLNR = IT_STD_BSIK-XBLNR.
        IT_STD_FINAL-BLART = IT_STD_BSIK-BLART.
        IT_STD_FINAL-MONAT = IT_STD_BSIK-MONAT.
        IT_STD_FINAL-BSCHL = IT_STD_BSIK-BSCHL.
        IT_STD_FINAL-ZUMSK = IT_STD_BSIK-ZUMSK.
        IT_STD_FINAL-SHKZG = IT_STD_BSIK-SHKZG.
        IT_STD_FINAL-GSBER = IT_STD_BSIK-GSBER.
        IT_STD_FINAL-DMBTR = IT_STD_BSIK-DMBTR.
        IT_STD_FINAL-WRBTR = IT_STD_BSIK-WRBTR.
        IT_STD_FINAL-SGTXT = IT_STD_BSIK-SGTXT.
        IT_STD_FINAL-SAKNR = IT_STD_BSIK-SAKNR.
        IT_STD_FINAL-HKONT = IT_STD_BSIK-HKONT.
        IT_STD_FINAL-ZLSCH = IT_STD_BSIK-ZLSCH.
        ENDIF.
        APPEND IT_STD_FINAL.
        CLEAR IT_STD_FINAL.
      ENDLOOP.
    LOOP AT IT_STD_FINAL.
        IF IT_STD_FINAL-SHKZG = 'S'.
            IT_STD_FINAL-DMBTR_S  = IT_STD_FINAL-DMBTR.
        ELSE.
        IF IT_STD_FINAL-SHKZG = 'H'.
          IT_STD_FINAL-DMBTR_H  = IT_STD_FINAL-DMBTR.
          ENDIF.
        ENDIF.
        IT_STD_FINAL-DMBTR = ''.
        MODIFY IT_STD_FINAL INDEX SY-TABIX TRANSPORTING DMBTR_H DMBTR_S DMBTR.
    "VAR.
        CLEAR IT_STD_FINAL.
      ENDLOOP.
    SORT IT_STD_FINAL BY LIFNR GSBER GJAHR.
    ENDFORM.                    " DATA_RETRIVAL
    *&      Form  FIELD
         text
    -->  p1        text
    <--  p2        text
    form FIELD .
      LCAT-FIELDNAME = 'LIFNR'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Vendor No'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'NAME1'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Vendor Name'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'GJAHR'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Fiscal Year'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'GSBER'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'BussArea'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'DMBTR_S'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Debit Balanace'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'DMBTR_H'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Credit Balance'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'BAL'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Accumulated Balance'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
    endform.                    " FIELD
    *&      Form  DISPLAY
         text
    -->  p1        text
    <--  p2        text
    form DISPLAY .
      CLEAR: IT_STD_BSAK,IT_STD_BSIK, IT_STD_LFA1 .
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
    I_INTERFACE_CHECK                = ' '
    I_BYPASSING_BUFFER                = ' '
    I_BUFFER_ACTIVE                  = ' '
        I_CALLBACK_PROGRAM                = SY-REPID
    I_CALLBACK_PF_STATUS_SET          = 'STATUS '
    I_CALLBACK_USER_COMMAND          = ' '
    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE      = ' '
    I_CALLBACK_HTML_END_OF_LIST      = ' '
    I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                  = ' '
    I_GRID_TITLE                      =
    I_GRID_SETTINGS                  =
        IS_LAYOUT                        = LAYOUT
        IT_FIELDCAT                      = FIELDCAT[]
    IT_EXCLUDING                      =
    IT_SPECIAL_GROUPS                =
         IT_SORT                          = IT_SORT
    IT_FILTER                        =
    IS_SEL_HIDE                      =
    I_DEFAULT                        = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        =
        IT_EVENTS                        = EVENTS
    IT_EVENT_EXIT                    =
    IS_PRINT                          =
    IS_REPREP_ID                      =
    I_SCREEN_START_COLUMN            = 0
    I_SCREEN_START_LINE              = 0
    I_SCREEN_END_COLUMN              = 0
    I_SCREEN_END_LINE                = 0
    I_HTML_HEIGHT_TOP                = 0
    I_HTML_HEIGHT_END                = 0
    IT_ALV_GRAPHICS                  =
    IT_HYPERLINK                      =
    IT_ADD_FIELDCAT                  =
    IT_EXCEPT_QINFO                  =
    IR_SALV_FULLSCREEN_ADAPTER        =
    IMPORTING
    E_EXIT_CAUSED_BY_CALLER          =
    ES_EXIT_CAUSED_BY_USER            =
        TABLES
       t_outtab                          = IT_CHARG
          t_outtab                          = IT_STD_FINAL[]
    EXCEPTIONS
    PROGRAM_ERROR                    = 1
    OTHERS                            = 2
      IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    "DISPLAY
    *&      Form  EVENTS
         text
    -->  p1        text
    <--  p2        text
    form EVENTS USING P_EVENTS TYPE slis_t_event.
      DATA: ls_event TYPE slis_alv_event.
      ls_event-name = 'TOP_OF_PAGE'.
      ls_event-form = 'TOP_OF_PAGE'.
      APPEND ls_event TO P_EVENTS.
    endform.                    " EVENTS
    *&      Form  TOP_OF_PAGE
         text
    FORM TOP_OF_PAGE.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          it_list_commentary = TOP.
    ENDFORM.                    "TOP_OF_PAGE
    *&      Form  LAYOUT
         text
    -->  p1        text
    <--  p2        text
    form LAYOUT .
    LAYOUT-ZEBRA = 'X'.
      LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
      LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
      APPEND LAYOUT." TO LAYOUT.
    endform.                    " LAYOUT
    *&      Form  EVENTS_1
         text
         -->P_EVENTS  text
    FORM EVENTS_1  USING    P_EVENTS TYPE slis_t_event.
      DATA: ls_event TYPE slis_alv_event.
      WRITE: SY-UNAME.
      ls_event-name = 'END_OF_PAGE'.
      ls_event-form = 'END_OF_PAGE'.
      APPEND ls_event TO P_EVENTS.
    ENDFORM.                    " EVENTS_1

    Seniors , Please Help me with this Requirment
         BUKRS _____________________
         GJAHR  ____________________
         LIFNR    _____________________
         MONAT _____________________
    LIFNR  NAME1  GSBER   GJAHR  HBAL SBAL  ACCUMBAL
    1001   ABB    BUSS1   2005     300      00            
                 ABB      BUSS1    2005      00      100
                                                        300     100   (300-100)=200
                  ABB      BUSS1   2006      200      00
                  ABB      BUSS1   2006      200      00                 
                                                      400      00   (400-00)+ 200 =                                                                               
    600
                ABB     BUSS2   2005     300       00
                ABB      BUSS2    2005      00       100                                                                               
                                                     300      100    ( 300-100) =200                                                                               
                ABB      BUSS2   2006    400         00
                ABB      BUSS2   2006     00         100
                                                      400       100   (400-100)+200 =                                                                               
    500   ****************************************************************************                                                                               
    1400         300  (1400-300)                                            **********************************************************************************************************
    Same for the Next Vendor also...
    This is the report for this Requirment i am working on....Please Help me in the Logic..How to Go on with it....
    *& Report  ZVENDOR_RECONCILLATION
    REPORT  ZVENDOR_RECONCILLATION.
    TABLES : BSAK , BSIK , LFC1 , LFC3 , LFA1.
    *ALV
    TYPE-POOLS: SLIS.
    *TYPE-POOLS icon.
    DATA: It_SORT TYPE SLIS_T_SORTINFO_ALV ."WITH HEADER LINE.
    DATA: TOP TYPE slis_t_listheader,
          END TYPE slis_t_listheader,
          EVENTS TYPE slis_t_event.
    DATA : T_KEY TYPE SLIS_KEYINFO_ALV.
    DATA : FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
          LAYOUT TYPE SLIS_LAYOUT_ALV OCCURS 1 WITH HEADER LINE ,
          LCAT TYPE SLIS_FIELDCAT_ALV.
    *INTERNAL TABLE
    DATA: BEGIN OF sd_bsak,
            bukrs TYPE bsak-bukrs,
            lifnr TYPE bsak-lifnr,
            umsks TYPE bsak-umsks,
            umskz TYPE bsak-umskz,
            augdt TYPE bsak-augdt,
            augbl TYPE bsak-augbl,
            zuonr TYPE bsak-zuonr,
            gjahr TYPE bsak-gjahr,
            belnr TYPE bsak-belnr,
            buzei TYPE bsak-buzei,
            budat TYPE bsak-budat,
            bldat TYPE bsak-bldat,
            xblnr TYPE bsak-xblnr,
            blart TYPE bsak-blart,
            monat TYPE bsak-monat,
            bschl TYPE bsak-bschl,
            zumsk TYPE bsak-zumsk,
            shkzg TYPE bsak-shkzg,
            gsber TYPE bsak-gsber,
            dmbtr TYPE bsak-dmbtr,
            wrbtr TYPE bsak-wrbtr,
            sgtxt TYPE bsak-sgtxt,
            saknr TYPE bsak-saknr,
            hkont TYPE bsak-hkont,
          END OF sd_bsak.
    DATA: BEGIN OF sd_bsik,
            bukrs TYPE bsik-bukrs,
            lifnr TYPE bsik-lifnr,
            umsks TYPE bsik-umsks,
            umskz TYPE bsik-umskz,
            augdt TYPE bsik-augdt,
            augbl TYPE bsik-augbl,
            zuonr TYPE bsik-zuonr,
            gjahr TYPE bsik-gjahr,
            belnr TYPE bsik-belnr,
            buzei TYPE bsik-buzei,
            budat TYPE bsik-budat,
            bldat TYPE bsik-bldat,
            xblnr TYPE bsik-xblnr,
            blart TYPE bsik-blart,
            monat TYPE bsik-monat,
            bschl TYPE bsik-bschl,
            zumsk TYPE bsik-zumsk,
            shkzg TYPE bsik-shkzg,
            gsber TYPE bsik-gsber,
            dmbtr TYPE bsik-dmbtr,
            wrbtr TYPE bsik-wrbtr,
            sgtxt TYPE bsik-sgtxt,
            saknr TYPE bsik-saknr,
            hkont TYPE bsik-hkont,
            zlsch TYPE bsik-zlsch,
          END OF sd_bsik.
    DATA: BEGIN OF it_lfa1,
            lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
          END OF it_lfa1.
    *FINAL INTERNAL TABLE DECLARATION
    DATA: BEGIN OF IT_FINAL,
            lifnr TYPE bsak-lifnr,
            gsber TYPE bsak-gsber,
            bukrs TYPE bsak-bukrs,
            umsks TYPE bsak-umsks,
            umskz TYPE bsak-umskz,
            augdt TYPE bsak-augdt,
            augbl TYPE bsak-augbl,
            zuonr TYPE bsak-zuonr,
            gjahr TYPE bsak-gjahr,
            belnr TYPE bsak-belnr,
            buzei TYPE bsak-buzei,
            budat TYPE bsak-budat,
            bldat TYPE bsak-bldat,
            xblnr TYPE bsak-xblnr,
            blart TYPE bsak-blart,
            monat TYPE bsak-monat,
            bschl TYPE bsak-bschl,
            zumsk TYPE bsak-zumsk,
            shkzg TYPE bsak-shkzg,
           gsber TYPE bsak-gsber,
            dmbtr TYPE bsak-dmbtr,
            wrbtr TYPE bsak-wrbtr,
            sgtxt TYPE bsak-sgtxt,
            saknr TYPE bsak-saknr,
            hkont TYPE bsak-hkont,
            DMBTR_S  TYPE BSAK-DMBTR,
            DMBTR_H  TYPE BSAK-DMBTR,
            DS       TYPE P DECIMALS 2,
            DH       TYPE P DECIMALS 2,
            SUB      TYPE P DECIMALS 2,
            ADD      TYPE P DECIMALS 2,
            BAL      TYPE P DECIMALS 2,
           lifnr TYPE bsik-lifnr,
           umsks TYPE bsik-umsks,
           umskz TYPE bsik-umskz,
           augdt TYPE bsik-augdt,
           augbl TYPE bsik-augbl,
           zuonr TYPE bsik-zuonr,
           gjahr TYPE bsik-gjahr,
           belnr TYPE bsik-belnr,
           buzei TYPE bsik-buzei,
           budat TYPE bsik-budat,
           bldat TYPE bsik-bldat,
           xblnr TYPE bsik-xblnr,
           blart TYPE bsik-blart,
           monat TYPE bsik-monat,
           bschl TYPE bsik-bschl,
           zumsk TYPE bsik-zumsk,
           shkzg TYPE bsik-shkzg,
           gsber TYPE bsik-gsber,
           dmbtr TYPE bsik-dmbtr,
           wrbtr TYPE bsik-wrbtr,
           sgtxt TYPE bsik-sgtxt,
           saknr TYPE bsik-saknr,
           hkont TYPE bsik-hkont,
            zlsch TYPE bsik-zlsch,
                   lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
    END OF IT_FINAL.
    DATA: BEGIN OF SD_FINAL,
            gsber TYPE bsak-gsber,
            lifnr TYPE bsak-lifnr,
            bukrs TYPE bsak-bukrs,
           lifnr TYPE bsak-lifnr,
            umsks TYPE bsak-umsks,
            umskz TYPE bsak-umskz,
            augdt TYPE bsak-augdt,
            augbl TYPE bsak-augbl,
            zuonr TYPE bsak-zuonr,
            gjahr TYPE bsak-gjahr,
            belnr TYPE bsak-belnr,
            buzei TYPE bsak-buzei,
            budat TYPE bsak-budat,
            bldat TYPE bsak-bldat,
            xblnr TYPE bsak-xblnr,
            blart TYPE bsak-blart,
            monat TYPE bsak-monat,
            bschl TYPE bsak-bschl,
            zumsk TYPE bsak-zumsk,
            shkzg TYPE bsak-shkzg,
            dmbtr TYPE bsak-dmbtr,
            wrbtr TYPE bsak-wrbtr,
            sgtxt TYPE bsak-sgtxt,
            saknr TYPE bsak-saknr,
            hkont TYPE bsak-hkont,
                   bukrs TYPE bsik-bukrs,
           lifnr TYPE bsik-lifnr,
           umsks TYPE bsik-umsks,
           umskz TYPE bsik-umskz,
           augdt TYPE bsik-augdt,
           augbl TYPE bsik-augbl,
           zuonr TYPE bsik-zuonr,
           gjahr TYPE bsik-gjahr,
           belnr TYPE bsik-belnr,
           buzei TYPE bsik-buzei,
           budat TYPE bsik-budat,
           bldat TYPE bsik-bldat,
           xblnr TYPE bsik-xblnr,
           blart TYPE bsik-blart,
           monat TYPE bsik-monat,
           bschl TYPE bsik-bschl,
           zumsk TYPE bsik-zumsk,
           shkzg TYPE bsik-shkzg,
           gsber TYPE bsik-gsber,
           dmbtr TYPE bsik-dmbtr,
           wrbtr TYPE bsik-wrbtr,
           sgtxt TYPE bsik-sgtxt,
           saknr TYPE bsik-saknr,
           hkont TYPE bsik-hkont,
            zlsch TYPE bsik-zlsch,
                   lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
    line_color(4) TYPE c,
    END OF SD_FINAL.
    DATA IT_STD_BSAK  LIKE TABLE OF SD_BSAK  WITH HEADER LINE.
    DATA IT_STD_BSIK  LIKE TABLE OF SD_BSIK  WITH HEADER LINE.
    DATA IT_STD_LFA1  LIKE TABLE OF IT_LFA1  WITH HEADER LINE.
    DATA IT_STD_FINAL  LIKE TABLE OF IT_FINAL  WITH HEADER LINE.
    DATA IT_FINAL_DISPLAY LIKE TABLE OF SD_FINAL WITH HEADER LINE.
    *SELECTION-SCREEN
    SELECTION-SCREEN BEGIN OF BLOCK HEADER WITH FRAME TITLE TEXT-001.
    PARAMETERS:  P_BUKRS LIKE BSAK-BUKRS OBLIGATORY.
    SELECT-OPTIONS : S_GJAHR FOR BSAK-GJAHR.
    SELECT-OPTIONS: S_LIFNR FOR BSAK-LIFNR.
    SELECT-OPTIONS: S_MONAT FOR BSAK-MONAT.
    SELECTION-SCREEN END OF BLOCK HEADER.
    START-OF-SELECTION.
      SET PF-STATUS 'STATUS'.
      PERFORM DATA_RETRIVAL.
      PERFORM FIELD.
      PERFORM EVENTS USING EVENTS.
    PERFORM EVENTS_1 USING EVENTS.
    PERFORM HEADER USING TOP.
      PERFORM LAYOUT.
      PERFORM DISPLAY.
      END-OF-PAGE.
    *&      Form  DATA_RETRIVAL
         text
    -->  p1        text
    <--  p2        text
    FORM DATA_RETRIVAL .
      SELECT BUKRS  LIFNR UMSKS UMSKZ AUGDT AUGBL ZUONR GJAHR BELNR BUZEI BUDAT BLDAT XBLNR BLART
             MONAT BSCHL ZUMSK SHKZG GSBER DMBTR WRBTR SGTXT SAKNR HKONT
        FROM BSAK INTO TABLE IT_STD_BSAK
        WHERE BUKRS = P_BUKRS
              AND GJAHR IN S_GJAHR
        AND LIFNR IN S_LIFNR
        AND MONAT IN S_MONAT.
      IF NOT IT_STD_BSAK[] IS INITIAL.
        SELECT BUKRS LIFNR UMSKS UMSKZ AUGDT AUGBL ZUONR GJAHR BELNR BUZEI BUDAT BLDAT XBLNR
               BLART MONAT BSCHL ZUMSK SHKZG GSBER DMBTR WRBTR SGTXT SAKNR HKONT ZLSCH
        FROM BSIK INTO TABLE IT_STD_BSIK FOR ALL ENTRIES IN IT_STD_BSAK
        WHERE BUKRS = IT_STD_BSAK-BUKRS AND LIFNR = IT_STD_BSAK-LIFNR AND GJAHR = IT_STD_BSAK-GJAHR .
      ENDIF.
    IF NOT IT_STD_BSAK[] IS INITIAL.
        SELECT LIFNR NAME1
               FROM LFA1  INTO TABLE IT_STD_LFA1 FOR ALL ENTRIES IN IT_STD_BSAK
               WHERE LIFNR = IT_STD_BSAK-LIFNR.
      ENDIF.
      LOOP AT IT_STD_BSAK.
        IT_STD_FINAL-BUKRS = IT_STD_BSAK-BUKRS.
        IT_STD_FINAL-LIFNR = IT_STD_BSAK-LIFNR.
        IT_STD_FINAL-UMSKS = IT_STD_BSAK-UMSKS.
        IT_STD_FINAL-UMSKZ = IT_STD_BSAK-UMSKZ.
        IT_STD_FINAL-AUGDT = IT_STD_BSAK-AUGDT.
        IT_STD_FINAL-AUGBL = IT_STD_BSAK-AUGBL.
        IT_STD_FINAL-ZUONR = IT_STD_BSAK-ZUONR.
        IT_STD_FINAL-GJAHR = IT_STD_BSAK-GJAHR.
        IT_STD_FINAL-BELNR = IT_STD_BSAK-BELNR.
        IT_STD_FINAL-BUZEI = IT_STD_BSAK-BUZEI.
        IT_STD_FINAL-BUDAT = IT_STD_BSAK-BUDAT.
        IT_STD_FINAL-BLDAT = IT_STD_BSAK-BLDAT.
        IT_STD_FINAL-XBLNR = IT_STD_BSAK-XBLNR.
        IT_STD_FINAL-BLART = IT_STD_BSAK-BLART.
        IT_STD_FINAL-MONAT = IT_STD_BSAK-MONAT.
        IT_STD_FINAL-BSCHL = IT_STD_BSAK-BSCHL.
        IT_STD_FINAL-ZUMSK = IT_STD_BSAK-ZUMSK.
        IT_STD_FINAL-SHKZG = IT_STD_BSAK-SHKZG.
        IT_STD_FINAL-GSBER = IT_STD_BSAK-GSBER.
        IT_STD_FINAL-DMBTR = IT_STD_BSAK-DMBTR.
        IT_STD_FINAL-WRBTR = IT_STD_BSAK-WRBTR.
        IT_STD_FINAL-SGTXT = IT_STD_BSAK-SGTXT.
        IT_STD_FINAL-SAKNR = IT_STD_BSAK-SAKNR.
        IT_STD_FINAL-HKONT = IT_STD_BSAK-HKONT.
    READ TABLE IT_STD_LFA1 WITH KEY LIFNR = IT_STD_FINAL-LIFNR.
      IF SY-SUBRC = 0.
        IT_STD_FINAL-NAME1 = IT_STD_LFA1-NAME1.
      ENDIF.
        APPEND IT_STD_FINAL.
        CLEAR IT_STD_FINAL.
      ENDLOOP.
    LOOP AT IT_STD_BSIK.
    IF SY-SUBRC = 0.
        IT_STD_FINAL-BUKRS = IT_STD_BSIK-BUKRS.
        IT_STD_FINAL-LIFNR = IT_STD_BSIK-LIFNR.
        IT_STD_FINAL-UMSKS = IT_STD_BSIK-UMSKS.
        IT_STD_FINAL-UMSKZ = IT_STD_BSIK-UMSKZ.
        IT_STD_FINAL-AUGDT = IT_STD_BSIK-AUGDT.
        IT_STD_FINAL-AUGBL = IT_STD_BSIK-AUGBL.
        IT_STD_FINAL-ZUONR = IT_STD_BSIK-ZUONR.
        IT_STD_FINAL-GJAHR = IT_STD_BSIK-GJAHR.
        IT_STD_FINAL-BELNR = IT_STD_BSIK-BELNR.
        IT_STD_FINAL-BUZEI = IT_STD_BSIK-BUZEI.
        IT_STD_FINAL-BUDAT = IT_STD_BSIK-BUDAT.
        IT_STD_FINAL-BLDAT = IT_STD_BSIK-BLDAT.
        IT_STD_FINAL-XBLNR = IT_STD_BSIK-XBLNR.
        IT_STD_FINAL-BLART = IT_STD_BSIK-BLART.
        IT_STD_FINAL-MONAT = IT_STD_BSIK-MONAT.
        IT_STD_FINAL-BSCHL = IT_STD_BSIK-BSCHL.
        IT_STD_FINAL-ZUMSK = IT_STD_BSIK-ZUMSK.
        IT_STD_FINAL-SHKZG = IT_STD_BSIK-SHKZG.
        IT_STD_FINAL-GSBER = IT_STD_BSIK-GSBER.
        IT_STD_FINAL-DMBTR = IT_STD_BSIK-DMBTR.
        IT_STD_FINAL-WRBTR = IT_STD_BSIK-WRBTR.
        IT_STD_FINAL-SGTXT = IT_STD_BSIK-SGTXT.
        IT_STD_FINAL-SAKNR = IT_STD_BSIK-SAKNR.
        IT_STD_FINAL-HKONT = IT_STD_BSIK-HKONT.
        IT_STD_FINAL-ZLSCH = IT_STD_BSIK-ZLSCH.
        ENDIF.
        APPEND IT_STD_FINAL.
        CLEAR IT_STD_FINAL.
      ENDLOOP.
    LOOP AT IT_STD_FINAL.
        IF IT_STD_FINAL-SHKZG = 'S'.
            IT_STD_FINAL-DMBTR_S  = IT_STD_FINAL-DMBTR.
        ELSE.
        IF IT_STD_FINAL-SHKZG = 'H'.
          IT_STD_FINAL-DMBTR_H  = IT_STD_FINAL-DMBTR.
          ENDIF.
        ENDIF.
        IT_STD_FINAL-DMBTR = ''.
        MODIFY IT_STD_FINAL INDEX SY-TABIX TRANSPORTING DMBTR_H DMBTR_S DMBTR.
    "VAR.
        CLEAR IT_STD_FINAL.
      ENDLOOP.
    SORT IT_STD_FINAL BY LIFNR GSBER GJAHR.
    ENDFORM.                    " DATA_RETRIVAL
    *&      Form  FIELD
         text
    -->  p1        text
    <--  p2        text
    form FIELD .
      LCAT-FIELDNAME = 'LIFNR'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Vendor No'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'NAME1'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Vendor Name'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'GJAHR'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Fiscal Year'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'GSBER'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'BussArea'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'DMBTR_S'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Debit Balanace'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'DMBTR_H'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Credit Balance'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
      LCAT-FIELDNAME = 'BAL'.
      LCAT-TABNAME = 'IT_STD_FINAL'.
      LCAT-SELTEXT_L = 'Accumulated Balance'.
      LCAT-JUST = 'M'.
      APPEND LCAT TO FIELDCAT.
      CLEAR LCAT.
    endform.                    " FIELD
    *&      Form  DISPLAY
         text
    -->  p1        text
    <--  p2        text
    form DISPLAY .
      CLEAR: IT_STD_BSAK,IT_STD_BSIK, IT_STD_LFA1 .
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
    I_INTERFACE_CHECK                = ' '
    I_BYPASSING_BUFFER                = ' '
    I_BUFFER_ACTIVE                  = ' '
        I_CALLBACK_PROGRAM                = SY-REPID
    I_CALLBACK_PF_STATUS_SET          = 'STATUS '
    I_CALLBACK_USER_COMMAND          = ' '
    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE      = ' '
    I_CALLBACK_HTML_END_OF_LIST      = ' '
    I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                  = ' '
    I_GRID_TITLE                      =
    I_GRID_SETTINGS                  =
        IS_LAYOUT                        = LAYOUT
        IT_FIELDCAT                      = FIELDCAT[]
    IT_EXCLUDING                      =
    IT_SPECIAL_GROUPS                =
         IT_SORT                          = IT_SORT
    IT_FILTER                        =
    IS_SEL_HIDE                      =
    I_DEFAULT                        = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        =
        IT_EVENTS                        = EVENTS
    IT_EVENT_EXIT                    =
    IS_PRINT                          =
    IS_REPREP_ID                      =
    I_SCREEN_START_COLUMN            = 0
    I_SCREEN_START_LINE              = 0
    I_SCREEN_END_COLUMN              = 0
    I_SCREEN_END_LINE                = 0
    I_HTML_HEIGHT_TOP                = 0
    I_HTML_HEIGHT_END                = 0
    IT_ALV_GRAPHICS                  =
    IT_HYPERLINK                      =
    IT_ADD_FIELDCAT                  =
    IT_EXCEPT_QINFO                  =
    IR_SALV_FULLSCREEN_ADAPTER        =
    IMPORTING
    E_EXIT_CAUSED_BY_CALLER          =
    ES_EXIT_CAUSED_BY_USER            =
        TABLES
       t_outtab                          = IT_CHARG
          t_outtab                          = IT_STD_FINAL[]
    EXCEPTIONS
    PROGRAM_ERROR                    = 1
    OTHERS                            = 2
      IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    "DISPLAY
    *&      Form  EVENTS
         text
    -->  p1        text
    <--  p2        text
    form EVENTS USING P_EVENTS TYPE slis_t_event.
      DATA: ls_event TYPE slis_alv_event.
      ls_event-name = 'TOP_OF_PAGE'.
      ls_event-form = 'TOP_OF_PAGE'.
      APPEND ls_event TO P_EVENTS.
    endform.                    " EVENTS
    *&      Form  TOP_OF_PAGE
         text
    FORM TOP_OF_PAGE.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          it_list_commentary = TOP.
    ENDFORM.                    "TOP_OF_PAGE
    *&      Form  LAYOUT
         text
    -->  p1        text
    <--  p2        text
    form LAYOUT .
    LAYOUT-ZEBRA = 'X'.
      LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
      LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
      APPEND LAYOUT." TO LAYOUT.
    endform.                    " LAYOUT
    *&      Form  EVENTS_1
         text
         -->P_EVENTS  text
    FORM EVENTS_1  USING    P_EVENTS TYPE slis_t_event.
      DATA: ls_event TYPE slis_alv_event.
      WRITE: SY-UNAME.
      ls_event-name = 'END_OF_PAGE'.
      ls_event-form = 'END_OF_PAGE'.
      APPEND ls_event TO P_EVENTS.
    ENDFORM.                    " EVENTS_1

  • Unable to print BSEG-SGTXT in Main window - SAP Script

    Hi
    I have an issue in Scripts.
    I want to print BSEG-SGTXT in my Main Window and below is my code but i am unable to print the text. while debugging, i am getting value in zsgtxt field, but i am unable to get/print in script.
    can any one help me why it's not printing? and plese suggest where it's wrong.
    In Main window:
    /:   PERFORM TEXT IN PROGRAM ZFIGS_CHECK_PRINTING     
    /:   USING &REGUP-BELNR&                              
    /:   CHANGING &ZSGTXT&                                
    /:   ENDPERFORM                                       
    CH   &ZSGTXT&           
    In Subroutine pool:
    FORM text TABLES intab STRUCTURE itcsy
                             outtab STRUCTURE itcsy.
      DATA: zbelnr(10),
            zsgtxt LIKE bseg-sgtxt.
      READ TABLE intab WITH KEY name = 'REGUP-BELNR' .
      IF sy-subrc = 0.
        MOVE intab-value TO zbelnr.
        SELECT SINGLE sgtxt INTO zsgtxt FROM bseg
              WHERE bukrs = '8140' AND
                    belnr = zbelnr.
        IF sy-subrc = 0.
          MOVE zsgtxt TO outtab-value.
          MODIFY outtab INDEX sy-tabix.
        ENDIF.
      ENDIF.
    ENDFORM.
    Thanks,
    Siva

    Hi,
    Can any one tell how to write loop statement in Main window to display BSEG-SGTXT. As i am getting text (BSEG-SGTXT) from subroutine pool and calling into Main window using Perform statement and printing duplicate text in multiple times insted of different text.
    Thanks,
    Siva

  • Problem in updating bseg-zuonr and bseg-sgtxt fields.

    Hi guys,
    I have a requirement to update    ZUONR  and  SGTXT   fields in  BSEG , BSAS, BSIS, BSAK, BSIK, BSAD, and BSID tables .  Is there any FM or BAPI to achieve this functionality as i dont want to use UPDATE statement. anybody please help me out.
    Thanks in Advance
    Regards
    satish

    Perform some search at scn on transactions FB02 and FB09 (BDC solution) or FM FI_ITEMS_MASS_CHANGE (BDC generator actually)
    Regards,
    Raymond

  • Validation on SGTXT

    Dear Experts,
    I'm trying to define a validation on the field BSEG-SGTXT via formula builder. I would like to define the validation without programming a function module. The system should check the structure of the field SGTXT based on this criteria:
    The allowed value is: *NUM4*NUM10*Text. NUM4 is always 4 numbers, NUM10 is up to 10 numbers. If some of the numbers are missing all the "*" must remain.
    I tried something like this:
    But it doesn't work correctly because if there is "*" + any other character, the system evaluates it as an error.
    Any help would be much appreciated.
    Thanks in advance.
    Regards,
    Ondrej Zatopek

    Hi,
    I'm afraid, you have to do it via user-exit using ABAP REGEX. Formula builder is not able enough for this task.
    Regards,
    Eli

  • SAPscript Output Problem - Very Urgent - Please help

    Hi,
    I am having the following problem with SAPscript.
    In the Main Window, I have instructions to the printer in the ZPL2 language (For Zebra Printer).
    There are also several variables, which are highlighted in Gray and enclosed in the’&’.
    There are also several elements – all of them empty except for the one where this code is.
    Now, I received this program to modify in terms of code and the output.
    IF you have never done any work with Zebra Printing, the way it is done is that you create a label using the Zebra BarOne or Zebra Designer program, then output it to an ‘itf’ file, upload it into a standard text as .itf and copy the uploaded contents to the main window. When printing to a Zebra printer, the Zebra printer will read the instructions and will print the output.
    Here is the problem: The config for the output type is correct.
    When doing a printing test from SAPscript, I get the right output and the Zebra printer is able to print it.
    However, the real process for this task will go through MB02. There, if I create a spool request using the proper method (select output type and etc.), it will go the spool. However, if I print preview or output (doesn’t work with the Zebra printer, so I have to output to the Laser printer), it will output the following (none of the following includes any of the ZPL2 code/instructions. Instead, it seams to print the variables contents with the field name next to it – This isn’t whats it’s the Main window!!!)
    http://img244.imageshack.us/img244/6915/66052475zk2.jpg
    Please help. I have debugged but don’t know what to do and can’t find anything wrong.
    This is very urgent. Any help will be useful.
    Thanks,
    John

    Ok, maybe I have confused others in regards to the issue as well.
    We expect this label to be output from a Zebra Printer.
    When output through Sapscripts printing test, the preview from the spool shows the ZPL2 code in small font (non readible if a created a screenshot) and if sent to the Zebra Printer, it prints the label correctly.
    When output through MB02, the preview from the spool shows the code that I have attached to the 1st post in this thread. If I try to output to the Zebra Printer, nothing happens because the ZPL2 instructions are not even in the preview and therefore, the Zebra printer recieves no instructions. I should not have mentioned the laser printer, because it has nothing to do with this issue.
    I hope that this makes the issue a little more clear and understandable. Please help.
    Here is the ZPL2 coding before uploading to standard text (only difference is that once uploaded,  the '/' characters are removed.) However, I believe that the problem may lie in the print program and how it compiles but I debugged and haven't really seen where it comes from:
    /:NEW-PAGE
    / ^XA
    / DFNEW-RE-1FS
    / ^PRC
    / LH0,0FS
    / ^LL1830
    / ^MD0
    / ^MNY
    / LH0,0FS
    / FO244,854A0N,55,46CI13FRFB154,1,0,LFN999^FS
    / FO819,698A0N,55,46CI13FRFN998FS
    / FO245,477A0N,55,46CI13FRFB755,1,0,RFN997^FS
    / FO389,926A0N,55,46CI13FRFB654,1,0,RFN996^FS
    / BY3,3.0FO42,1072B3N,N,152,N,YFRFN995FS
    / FO276,1258A0N,55,46CI13FRFN995FS
    / FO484,774A0N,55,46CI13FRFN994FS
    / FO817,774A0N,55,46CI13FRFN993FS
    / FO611,556A0N,55,46CI13FRFN992FS
    / FO245,556A0N,55,46CI13FRFN991FS
    / FO397,117A0N,55,46CI13FRFN990FS
    / FO245,405A0N,55,46CI13FRFB880,1,0,RFN989^FS
    / FO244,698A0N,55,46CI13FRFN988FS
    / FO629,998A0N,55,46CI13FRFN987FS
    / FO244,623A0N,52,42CI13FRFN986FS
    / FO397,261A0N,55,46CI13FRFB404,1,0,RFN985^FS
    / FO819,854A0N,55,46CI13FRFN984FS
    / FO725,554A0N,55,46CI13FRFN983FS
    / FO397,189A0N,55,42CI13FRFB695,1,0,RFN982^FS
    / FO397,333A0N,55,42CI13FRFN981FS
    / FO638,333A0N,55,42CI13FRFN980FS
    / FO391,21A0N,63,63CI13FRFB433,1,0,CFN979^FS
    / FO36,698A0N,55,46CI13FR
    / FDWBS:FS
    / FO37,405A0N,55,46CI13FR
    / FDMATL:FS
    / FO37,478A0N,62,44CI13FR
    / FDDESC:FS
    / FO554,698A0N,55,46CI13FR
    / FDSUPPLIER:FS
    / FO32,625A0N,55,46CI13FR
    / FDTEXT:FS
    / FO35,1258A0N,55,46CI13FR
    / FDBATCH NO:FS
    / FO770,775A0N,63,51CI13FR
    / FD/FS
    / FO32,854A0N,55,46CI13FR
    / FDESHM:FS
    / FO37,556A0N,55,46CI13FR
    / FDQTY:FS
    / FO32,998A0N,55,46CI13FR
    / FDSAP MATERIAL DOC NO:FS
    / FO525,333A0N,55,46CI13FR
    / FDofFS
    / FO556,854A0N,55,46CI13FR
    / FDINSPECT:FS
    / FO32,926A0N,55,46CI13FR
    / FDUNLOADING:FS
    / FO37,117A0N,55,46CI13FR
    / FDSTOCK TYPE:FS
    / FO32,774A0N,55,46CI13FR
    / FDPURCHASE ORDER:FS
    / FO37,188A0N,55,46CI13FR
    / FDDELIVER TO:FS
    / FO37,260A0N,55,46CI13FR
    / FDSTORAGE LOC:FS
    / FO37,332A0N,55,46CI13FR
    / FDCONTAINERS:FS
    / FO1,1359GB1217,0,6^FS
    / FO594,1359GB0,474,6^FS
    / ^XZ
    /:NEW-PAGE
    / ^XA
    / ^XFNEW-RE-1.ZPL
    / FN999FD&ATWRT_HAZAMAT(6)&^FS
    / FN998FD&EKKO-LIFNR&^FS
    / FN997FD&MABDR-MAKTX&^FS
    / FN996FD&MSEG-ABLAD&^FS
    / FN995FD&MSEG-CHARG&^FS
    / FN994FD&MSEG-EBELN&^FS
    / FN993FD&MSEG-EBELP&^FS
    / FN992FD&MSEG-ERFME&^FS
    / FN991FD&MSEG-ERFMG&^FS
    / FN990FD&MSEG-INSMK(1)&^FS
    / FN989FD&MSEG-MATNR&^FS
    / FN988FD&MSEG-MAT_PSPNR&^FS
    / FN987FD&MSEG-MBLNR&^FS
    / FN986FD&MSEG-SGTXT(40)&^FS
    / FN985FD&MSEG-UMLGO&^FS
    / FN984FD&QALS-PRUEFLOS&^FS
    / FN983FD&V_BACKORDER&^FS
    / FN982FD&V_NAME3&^FS
    / FN981FD&WS_CNTR&^FS
    / FN980FD&WS_CON&^FS
    / FN979FD&WS_HEADER& &^FS
    / ^PQ1,0,1,N
    / ^XZ
    / ^FX End of job

  • Gurus...need URGENT help...Please understand...?

    Gurus,
    I had written a BDC program for FV50 transaction..As it is an ENJOY transaction once u enter the company code it doesnt ask for the company code again if second time u go to this transaction...so to do this i made changes in the EDITING options and was able to do a BDC program for parking FI GL document..I made this BDC program a part of a Function module...when i call this FM from another program and pass the correct parameters it does not work...i have tried all the the tweaks but it doesnt work...it gives a error NO batch input available for screen SAPFM050 1001...
    please help...
    What shud i do...please suggest...
    Thanks
    Sam
    Message was edited by:
            Sam williams

    Eric, I have done that and included that functionality in the code also....let me attach my code:
    ************************BDC PROGRAM**************************************************************
      PERFORM bdc_dynpro  TABLES t_bdcdata USING 'SAPLACHD' '1000'.
      PERFORM bdc_field TABLES t_bdcdata USING 'BDC_CURSOR'
                                              'BKPF-BUKRS'.
      PERFORM bdc_field  TABLES t_bdcdata USING 'BDC_OKCODE'
                                                    '=ENTR'.
      PERFORM bdc_field TABLES t_bdcdata USING 'BKPF-BUKRS'
                                    wa_document_header-comp_code.
      PERFORM bdc_dynpro  TABLES t_bdcdata USING 'SAPMF05A'
                                    wa_document_header-comp_code.
      PERFORM bdc_field  TABLES t_bdcdata USING 'BDC_OKCODE'
                                                    '=PBBP'.
      PERFORM bdc_field  TABLES t_bdcdata USING 'ACGL_HEAD-BLDAT'
                                    wa_document_header-doc_date.
      PERFORM bdc_field  TABLES t_bdcdata USING 'ACGL_HEAD-LDGRP'
                                                 var_ledger.
      PERFORM bdc_field  TABLES t_bdcdata USING 'ACGL_HEAD-BUDAT'
                                    wa_document_header-pstng_date.
      PERFORM bdc_field  TABLES t_bdcdata USING 'ACGL_HEAD-XBLNR'
                                    wa_document_header-ref_doc_no.
      PERFORM bdc_field  TABLES t_bdcdata USING 'ACGL_HEAD-BKTXT'
                                    wa_document_header-header_txt.
      PERFORM bdc_field  TABLES t_bdcdata USING 'ACGL_HEAD-BLART'
                                    wa_document_header-doc_type.
      PERFORM bdc_field  TABLES t_bdcdata USING 'BDC_CURSOR'
                                    'ACGL_ITEM_GEN-GEN_CHAR2(02)'.
    ******Loop at the BDC Table to fill each line of items
      LOOP AT t_bdc_document_item_main INTO wa_bdc_document_item_main.
        idx = idx + 1.
        ch3 = idx.
        CONCATENATE 'ACGL_ITEM-HKONT('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata      USING fname
                                 wa_bdc_document_item_main-v_hkont.
        CONCATENATE 'ACGL_ITEM-SHKZG('ch3')' INTO fname.
    *****Transaction takes only H or S for Debit/Credit Indicator
        IF wa_bdc_document_item_main-v_shkzg = 'C'.
          var_shkzg = 'H'.
        ELSEIF wa_bdc_document_item_main-v_shkzg = 'D'.
          var_shkzg = 'S'.
        ENDIF.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                              var_shkzg.
        CONCATENATE 'ACGL_ITEM-WRBTR('ch3')' INTO fname.
        MOVE: wa_bdc_document_item_main-v_wrbtr TO amount.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                                 amount.
        CONCATENATE 'ACGL_ITEM-SGTXT('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_sgtxt.
        CONCATENATE 'ACGL_ITEM-PRCTR('ch3')' INTO fname.
        PERFORM bdc_field   TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_prctr.
        CONCATENATE 'ACGL_ITEM-KOSTL('ch3')' INTO fname.
        PERFORM bdc_field   TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_kostl.
        CONCATENATE 'ACGL_ITEM-BEWAR('ch3')' INTO fname.
        PERFORM bdc_field   TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_bewar.
        CONCATENATE 'ACGL_ITEM-VBUND('ch3')' INTO fname.
        PERFORM bdc_field   TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_vbund.
        CONCATENATE 'ACGL_ITEM_GEN-GEN_CHAR1('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_yylob.
        CONCATENATE 'ACGL_ITEM_GEN-GEN_CHAR2('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_yycsg.
        CONCATENATE 'ACGL_ITEM_GEN-GEN_CHAR3('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_yyprg.
        CONCATENATE 'ACGL_ITEM_GEN-GEN_CHAR4('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_yydch.
        CONCATENATE 'ACGL_ITEM_GEN-GEN_CHAR5('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_yymay.
        CONCATENATE 'ACGL_ITEM-ZZITY('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzity.
        CONCATENATE 'ACGL_ITEM-ZZSOU('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzsou.
        CONCATENATE 'ACGL_ITEM-ZZPRO('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzpro.
        CONCATENATE 'ACGL_ITEM-ZZACY('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzacy.
    DI Fields added on 9/21/07
        CONCATENATE 'ACGL_ITEM-ZZDIRNNAM('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzdirnnam.
        CONCATENATE 'ACGL_ITEM-ZZDIRNTYP('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzdirntyp.
        CONCATENATE 'ACGL_ITEM-ZZDIRNNUM('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzdirnnum.
        CONCATENATE 'ACGL_ITEM-ZZDIFLNAM('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzdiflnam.
        CONCATENATE 'ACGL_ITEM-ZZDIJRNID('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzdijrnid.
        CONCATENATE 'ACGL_ITEM-ZZDIJRNLNK('ch3')' INTO fname.
        PERFORM bdc_field  TABLES t_bdcdata USING fname
                                      wa_bdc_document_item_main-v_zzdijrnlnk.
    End of Changes.
        options-defsize = 'X'.
        options-dismode = 'A'. "N - No Display = A - Display All
       options-nobiend = 'X'.
        options-nobinpt = 'X'.
      ENDLOOP.
    SET PARAMETER ID 'BUK' FIELD SPACE.
      CALL TRANSACTION 'FV50L' USING t_bdcdata MESSAGES INTO
      t_messages OPTIONS FROM options.
      LOOP AT t_messages INTO wa_messages.
        ADD 1 TO l_lines.
        CALL FUNCTION 'MESSAGE_TEXT_BUILD'
          EXPORTING
            msgid               = wa_messages-msgid
            msgnr               = wa_messages-msgnr
            msgv1               = wa_messages-msgv1
            msgv2               = wa_messages-msgv2
            msgv3               = wa_messages-msgv3
            msgv4               = wa_messages-msgv4
          IMPORTING
            message_text_output = wa_result-message.
        MOVE:wa_result-message TO wa_return-message,
             wa_messages-msgtyp TO wa_result-result_flag,
             wa_messages-msgv1+0(10) TO wa_result-document_number,
             wa_messages-msgv2+0(4) TO wa_result-comp_code.
        APPEND wa_result TO tb_result.
        APPEND wa_return TO t_return.
        CLEAR: wa_result,
               wa_return.
      ENDLOOP.
      return[] = t_return[].
    ENDFUNCTION.
    Form Definition for new screen
    FORM bdc_dynpro TABLES it_bdcdata STRUCTURE bdcdata USING program
    dynpro.
      DATA: wa_bdcdata TYPE bdcdata.
      wa_bdcdata-program = program.
      wa_bdcdata-dynpro = dynpro.
      wa_bdcdata-dynbegin = 'X'.
      APPEND wa_bdcdata TO it_bdcdata.
    ENDFORM. "BDC_DYNPRO
    Form Definition to insert new field
    FORM bdc_field TABLES it_bdcdata STRUCTURE bdcdata USING fnam fval.
      DATA: wa_bdcdata TYPE bdcdata.
      IF fval <> space.
        CLEAR wa_bdcdata.
        wa_bdcdata-fnam = fnam.
        wa_bdcdata-fval = fval.
        APPEND wa_bdcdata TO it_bdcdata.
      ENDIF.
    ENDFORM.                    "BDC_FIELD

  • GOITEM-SGTXT in MIGO not updated in table MSEG

    Hi Experts
    I have a requirement to capture the MIGO line item text into Accounting document.
    Issue is - the text entered in GOITEM-SGTXT is not getting reflected in MSEG-SGTXT.
    Can someone enlighten me as to where / in which table the line item text is getting stored?
    Thanks
    Gayathri

    Hi Gayathri,
    Please check if the customer exit EXIT_SAPMM07M_001 is activated in your  system. Here you can normally set any value for the field MSEG-SGTXT.                                                                               
    If this exit is activated, please check if the field E_SGTXT is missing since you have to add this field in the export-parameters   (see standard LXMBCU02) and you may need to adjust your code to add the   statements (before ENDFUNCTION):                                                                               
    IF E_SGTXT is initial.                                                             
       E_SGTXT = I_MSEG-SGTXT.                                                          
    ENDIF.                                                                               
    Please also see the on-line documentation for the user exit by going to transaction SMOD, entering the Enhancement MBCF0002 and selecting the  option to display the Documentation.    
    Hope this can help
    Regards,
    Mauro

  • With FB02 changes in BSEG-SGTXT  not transferred to COEP-SGTXT

    Hi guys
    In ECC 6.0 when you change a doc.  with FB02, BSEG-SGTXT is not transferred to COEP-SGTXT. In fact if you parked an invoice with FV60 and leave item text  "SGTXT" field blank , and afterwards you fill the item text with something and save the doc. as definitve the field bseg-sgtxt is not transferred to controlling doc and field COEP-sgtxt is not updated.
    Transactions KOB1 or KSB1 don't  show you the changes made in the finance document in line item text.
    I have searched in the sap notes but all of them relates to version up to 500.
    I Do not Know how to resolve the issue. I tried also with 1KE8  but only reverse and create a new Profit center doc and the field GLPCA-SGTXT is blank
    Does someone Know how to reflect or transfer the changes made in FB02 in Bseg-sgtxt to Coel-SGTX ?
    Kind Regards

    Hi Abhisek
    When I searched in sap help portal this note: 1003756,  I get next error message:  "The requested SAP Note is either in reworking or is released internally only"
    By the way I do not get also this note implemented in my system, but I can not find it also in https://websmp203.sap-ag.de/notes
    Do you Know Why ?
    Kind Regards

Maybe you are looking for