BSEG-XREF3 is not updating

Hello All,
I have implemetated customer Exit namely EXIT_SAPLV60B_004 to modify the field XACCIT-XREF3.
As per my understanding what ever data we have in XACCIT will be comitted to BSEG table.
But the field (XREF3) which I am modify from this exit is not reflecting in the BSEG table (Field XREF3 ).
I am not sure what setting I am missing.
Kindly help.
Regards
Sachin

Hi sachin.
Yes, BSEG is a cluster table. I'm not sure about adding new field in account document. But I think it works only for account lines. Not client and vendor lines. Its a configuration in SPRO. It's not enhancement in BSEG. It's a configuration which SAP adds automatcly during document processing I think. This solution did not work fine too, because it's not to all kinds of items in acc docs.
About the implicity enhancement point, I'll try to get the include name and form name to give you. I don't have it now and have to search im my ABAP documentations.
But be aware this field XREF3 is filled or cleared by SAP (to some kind of documents) after the substitution. Be careful, because SAP uses this field to some standard processes or to rastreability cases. You may have problems with some kind of documents if you change or clear this field value. would try not use this solution of changing XREF3.
But I'll try to find my documentation about the implicity enhancement point. If you want to find it, try debugging the standard when posting a document (after user click in SAVE button) and after substitution rule. Try to debug the standard and you will find out where the standard program change this value of XREF3.
best regards.
Glauco

Similar Messages

Assignemnt field (ZUONR) not updating for Service Order RAS

Hello Experts,
I am facing an issue in service order RAS (Order Related Billing), here assignment field (VBRK-ZUONR and BSEG-ZUONR) is not updating against document type RV.
Same is not reflected against customer in FBL5N also.
Please suggest.
Regards
Rajat

Hi
Check the copy rules in tcode VTFL and/or VTFA. Check the field for assignment number. Check also the VOFM subroutines.
Also, check Note 301077 - User exits for the interface to accounting to change the value of ZUONR in BSEG (in ACCIT in the interface of this FM)
Regards
Eduardo

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.

GL Posting using BAPI BAPI_ACC_DOCUMENT_POST but not updating in table BSEG

Hi Experts,
Hope all are doing greatu2026
I need you help to resolve the below issue.
We have on Z-Tcode to GL Posting the document using BAPI u2018BAPI_ACC_DOCUMENT_POST' and this program is successfully posted from the source file and documnet # also created successully.
We have entries in BKPF, but the table BSEG not updating and we do not have entries.
Please help me on this regards,
Thanks in Advance.
Amjad

Hi Srikant,
Thanks for your reply...
As you suggest, i have checked the structure ACCOUNTGL and below values are passing.
ACCOUNTGL -ITEMNO_ACC
ACCOUNTGL -GL_ACCOUNT
ACCOUNTGL- ITEM_TEXT
ACCOUNTGL- COMP_CODE
ACCOUNTGL- COSTCENTER
ACCOUNTGL- CS_TRANS_T
Could you please suggest me if there are any changes needs to do.
Thanks & Regards,
Amjad Hussain

Tax Amount is not updated into BSEG

Dear All,
I have recently added a tax amount field MWSTS from table BSEG into FBL1N - Vendor Line Item Display. To my surprise the input tax amount is not updated into BSEG table. The input tax is normally posted using either MIRO or FB60.
Any one has the same problem? Can please kindly share how to fix the problem?
Thanks in advance for your kind assisstance.
rgds,
Dahlia

Thanks Andreas,
However I do believe that it should be updated into BSEG - MWSTS as we have mutliple companies in different countries in the system. All the other companies have the input rate updated into BSEG - MWSTS for the vendor line item, only the company for India is not updated.
Yes, BSET do have the tax amount updated but I can't use BSET table in FBL1N. I need to provide the tax amount information for each vendor line item in FBL1N.
thks
Dahlia

XREF3 field is updating in GR/IR Mtl Clrg A/c but not in GR/IR Freight Clrg

Hi Experts,
When I run F.13 with selection of GR/IR accounts and with tick of GR/IR special purpose. only GR/IR Matrl Clearing account is clearing based on the XREF3 but GR/IR freight clearing is not happening, When i checked the MIRO document found that IR for the freight invoices is not updating with XREF3 field. Can i know what could be the reason and also the solution for it.
YJ

Hi, In PO if GR-Based IV is checked then XREF3 will get filled for the GR/IR Account item for the material, But for Freight condition item it will not be filled, If GR-Based IV is not set, then it will not get filled, It is SAP standard.
Check below link for making enhacement for your requirement,
[Field XREF3|http://forums.sdn.sap.com/thread.jspa?messageID=9764105#9764105]

BAPI_ACC_DOCUMENT_POST does not update BKPF/BSEG tables

Hello,
I used bapi_acc_document_post to post a accounting document The following routine says that the document is successfully posted, however, does not update the acccounting tables. I read several messages on the SDN and unable to get the correct answer.
Your help is appreciated.
Regards
William
REPORT ze_bapi_acc_document_post .
SELECTION-SCREEN BEGIN OF BLOCK bl01 .
SELECTION-SCREEN ULINE.
PARAMETERS:
ref_key LIKE bapiache01-obj_key DEFAULT 'TEST000001BAPICALL',
dest    LIKE bdi_logsys-logsys DEFAULT '          '.
SELECTION-SCREEN END   OF BLOCK bl01 .
DATA:
gd_documentheader    LIKE bapiache09,
gd_customercpd       LIKE bapiacpa09,
gd_fica_hd           LIKE bapiaccahd,
it_accountreceivable LIKE TABLE OF bapiacar09 WITH HEADER LINE,
it_accountgl         LIKE TABLE OF bapiacgl09 WITH HEADER LINE,
it_accounttax        LIKE TABLE OF bapiactx09 WITH HEADER LINE,
it_criteria          LIKE TABLE OF bapiackec9 WITH HEADER LINE,
it_valuefield        LIKE TABLE OF bapiackev9 WITH HEADER LINE,
it_currencyamount    LIKE TABLE OF bapiaccr09 WITH HEADER LINE,
it_return            LIKE TABLE OF bapiret2   WITH HEADER LINE,
it_receivers         LIKE TABLE OF bdi_logsys WITH HEADER LINE,
it_fica_it           LIKE TABLE OF bapiaccait WITH HEADER LINE,
it_accountpayable    LIKE TABLE OF bapiacap09 WITH HEADER LINE,
it_paymentcard       LIKE TABLE OF bapiacpc09 WITH HEADER LINE,
it_ext               LIKE TABLE OF bapiacextc WITH HEADER LINE.
PERFORM fill_internal_tables.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
DESTINATION dest
EXPORTING
    documentheader    = gd_documentheader
    customercpd       = gd_customercpd
    contractheader    = gd_fica_hd
TABLES
    accountgl         = it_accountgl
    accountreceivable = it_accountreceivable
    accountpayable    = it_accountpayable
    accounttax        = it_accounttax
    currencyamount    = it_currencyamount
    return            = it_return.
WRITE: / 'Result of check all:'.                            "#EC NOTEXT
PERFORM show_messages.
DATA: l_type LIKE gd_documentheader-obj_type,
        l_key LIKE gd_documentheader-obj_key,
        l_sys LIKE gd_documentheader-obj_sys.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
    EXPORTING
      documentheader    = gd_documentheader
      customercpd       = gd_customercpd
      contractheader    = gd_fica_hd
    IMPORTING
      obj_type          = l_type
      obj_key           = l_key
      obj_sys           = l_sys
    TABLES
      accountgl         = it_accountgl
      accountpayable    = it_accountpayable
      accounttax        = it_accounttax
      currencyamount    = it_currencyamount
      return            = it_return
    EXCEPTIONS
      OTHERS = 1.
WRITE: / 'Result of post:'.                               "#EC NOTEXT
PERFORM show_messages.
REFRESH IT_RETURN.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
   WAIT          = 'X'.
IMPORTING
RETURN        = IT_RETURN.
    COMMIT WORK.     .
BREAK-POINT.
     Form fill_internal_tables
FORM fill_internal_tables.
PERFORM fill_header.
PERFORM fill_accountgl.
PERFORM fill_accountap.
PERFORM fill_accounttax.
PERFORM fill_currencyamount.
ENDFORM.                               " fill_internal_tables
     Form Show_messages
FORM show_messages.
IF it_return[] IS INITIAL.
    WRITE: / 'no messages'.
ELSE.
    SKIP 1.
    LOOP AT it_return.
      WRITE: /    it_return-type,
             (2) it_return-id,
                  it_return-number,
             (80) it_return-message,
                  it_return-message_v1,
             (20) it_return-parameter,
             (3) it_return-row,
                  it_return-field.
    ENDLOOP.
ENDIF.
ULINE.
ENDFORM.                               " Show_messages
      FORM fill_accountgl                                           *
FORM fill_accountgl.
Actual invoice line
CLEAR it_accountgl.
it_accountgl-itemno_acc     = 2.
it_accountgl-gl_account     = '0000009223'.
it_accountgl-item_text      = 'Line Iten'. "#EC NOTEXT
it_accountgl-profit_ctr     = 'DNDDUMMY'.
it_accountgl-comp_code      = '0180'.
it_accountgl-tax_code       = 'IG'.
it_accountgl-FUNDS_CTR      = '1985BA'.
it_accountgl-COSTCENTER     = '1985BA'.
it_accountgl-FUND           = 'C113'.
it_accountgl-TAXJURCODE     = 'CAON'.
APPEND it_accountgl.
ENDFORM.                    "fill_accountgl
      FORM fill_header                                              *
FORM fill_header.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
   IMPORTING
     own_logical_system = gd_documentheader-obj_sys.
OBJ_TYPE has to be replaced by customers object key (Y* or Z*)
gd_documentheader-obj_type   = 'BKPFF'.
gd_documentheader-obj_key    = ref_key.
gd_documentheader-BUS_ACT    = 'RMRP'.
gd_documentheader-username   = sy-uname.
gd_documentheader-header_txt = 'BAPI Test'.               "#EC NOTEXT
gd_documentheader-obj_key_r =
GD_DOCUMENTHEADER-reason_rev =
gd_documentheader-comp_code = '0180'.
GD_DOCUMENTHEADER-AC_DOC_NO =
gd_documentheader-fisc_year = '2008'.
gd_documentheader-doc_date   = sy-datum.
gd_documentheader-pstng_date = '20070901'.
GD_DOCUMENTHEADER-TRANS_DATE = SY-DATUM.
GD_DOCUMENTHEADER-VALUE_DATE =
GD_DOCUMENTHEADER-FIS_PERIOD =
gd_documentheader-doc_type   = 'RE'.
gd_documentheader-ref_doc_no = '6000009268'.
GD_DOCUMENTHEADER-COMPO_ACC = 'FI'.
gd_documentheader-bus_act    = 'RFBU'.
ENDFORM.                    "fill_header
      FORM fill_ap                                                  *
FORM fill_accountap.
vendor line
CLEAR it_accountpayable.
it_accountpayable-itemno_acc = 1.
it_accountpayable-comp_code = '0180'.
it_accountpayable-pmnttrms = '0006'.
it_accountpayable-TAX_CODE = 'IG'.
it_accountpayable-vendor_no = '0001200051'.
it_accountpayable-item_text = 'Vendor Line'. "#EC NOTEXT
APPEND it_accountpayable.
ENDFORM.                    "fill_accountap
      FORM fill_tax                                                 *
FORM fill_accounttax.
tax line
CLEAR it_accounttax.
it_accounttax-itemno_acc = 3.
it_accounttax-gl_account = '0000081710'.
it_accounttax-tax_code   = 'IG'.
it_accounttax-acct_key   = 'VST'.
it_accounttax-TAXJURCODE     = 'CA00'.
APPEND it_accounttax.
ENDFORM.                    "fill_accounttax
      FORM fill_currencyamount                                      *
FORM fill_currencyamount.
CLEAR it_currencyamount.
it_currencyamount-itemno_acc   = 1.
it_currencyamount-curr_type    = '00'.
it_currencyamount-currency     = 'CAD'.
it_currencyamount-amt_base     = '106.00'.
APPEND it_currencyamount.
CLEAR it_currencyamount.
it_currencyamount-itemno_acc   = 2.
it_currencyamount-curr_type    = '00'.
it_currencyamount-currency     = 'CAD'.
it_currencyamount-amt_base     = '100.00'.
APPEND it_currencyamount.
CLEAR it_currencyamount.
it_currencyamount-itemno_acc   = 3.
it_currencyamount-curr_type    = '00'.
it_currencyamount-currency     = 'CAD'.
it_currencyamount-amt_base     = '6.00'.
APPEND it_currencyamount.
ENDFORM.                    "fill_currencyamount

U have to implement the BADI for this.. ‘AC_DOCUMENT’
Add source code into Method: CHANGE_INITIAL & CHANGE_AFTER_CHECK,
*---<SAPLBPFC> is for Posting      with BAPI: BAPI_ACC_DOCUMENT_POST
*---<SAPCNVE > is for Posting(Tax) with BAPI: BAPI_ACC_DOCUMENT_POST
*---<SAPMSSY1> is for Test(Check) with BAPI: BAPI_ACC_DOCUMENT_CHECK
DATA: wa_header TYPE acchd.
    IF sy-xprog NE ' SAPMSSY1 '.
      CLEAR wa_header.
      wa_header = im_document-header.
      ex_document-header-bktxt = wa_header-bktxt.
      CLEAR wa_header.
    ENDIF.

Document number not updating in the document

hi gurus,
this is a excise invoice voucher form used by the client .
some values are not updated in document no.
could someone tell me why it is not updating.
if there are any corrections in code pls update me and solve my problem.
urs
pradeep.r
*& Include           ZFI_PAY_ADVICE_F01_STR_2                         *
*&      Form select_data
      text
--> p1        text
<-- p2        text
FORM SELECT_DATA .
REFRESH IT_BKPF.
CLEAR   IT_BKPF.
SELECT BELNR GJAHR XBLNR BLDAT BLART INTO CORRESPONDING FIELDS OF
TABLE IT_BKPF FROM BKPF
WHERE BELNR IN S_BELNR
AND   GJAHR IN S_GJAHR
AND   BUKRS IN S_BUKRS.
IF IT_BKPF[] IS INITIAL.
    MESSAGE S001.
ENDIF.
SORT IT_BKPF BY BELNR GJAHR.
LOOP AT IT_BKPF.
    SELECT SINGLE EBELN WRBTR WERKS LIFNR KUNNR INTO
    (IT_BKPF-ZUONR,IT_BKPF-WRBTR,IT_BKPF-WERKS,IT_BKPF-LIFNR,IT_BKPF-KUNNR)
    FROM BSEG
    WHERE BELNR = IT_BKPF-BELNR
    AND   GJAHR = IT_BKPF-GJAHR
    AND BUKRS IN S_BUKRS
    AND   KOART = 'K'.
    IF NOT IT_BKPF-LIFNR IS INITIAL.
      DATA : WRK_ADRNR LIKE LFA1-ADRNR.
      CLEAR WRK_ADRNR.
      SELECT SINGLE ADRNR INTO WRK_ADRNR FROM LFA1
      WHERE LIFNR = IT_BKPF-LIFNR.
      SELECT SINGLE NAME1
                    NAME2
                    NAME3
                    NAME4
                    CITY1
                    REGION
                    COUNTRY
                    STREET
     INTO (IT_BKPF-NAME1,IT_BKPF-NAME2,IT_BKPF-NAME3,IT_BKPF-NAME4,
     IT_BKPF-CITY1,IT_BKPF-REGION,IT_BKPF-COUNTRY,IT_BKPF-STREET)
     FROM ADRC
     WHERE ADDRNUMBER EQ WRK_ADRNR.
Text for Country
      SELECT SINGLE LANDX INTO IT_BKPF-LANDX FROM T005T
      WHERE LAND1 = IT_BKPF-COUNTRY
      AND   SPRAS EQ SY-LANGU.
Text for Region
      SELECT SINGLE BEZEI INTO IT_BKPF-BEZEI FROM T005U
      WHERE BLAND = IT_BKPF-REGION
      AND   SPRAS EQ SY-LANGU
      AND   LAND1 = IT_BKPF-COUNTRY.
    ENDIF.
    IF NOT IT_BKPF-KUNNR IS INITIAL.
      CLEAR WRK_ADRNR.
      SELECT SINGLE ADRNR INTO (WRK_ADRNR) FROM KNA1
      WHERE KUNNR = IT_BKPF-KUNNR.
      SELECT SINGLE NAME1
                    NAME2
                    NAME3
                    NAME4
                    CITY1
                    REGION
                    COUNTRY
                    STREET
     INTO (IT_BKPF-NAME1,IT_BKPF-NAME2,IT_BKPF-NAME3,IT_BKPF-NAME4,
     IT_BKPF-CITY1,IT_BKPF-REGION,IT_BKPF-COUNTRY,IT_BKPF-STREET)
     FROM ADRC
     WHERE ADDRNUMBER EQ WRK_ADRNR.
Text for Country
      SELECT SINGLE LANDX INTO IT_BKPF-LANDX FROM T005T
      WHERE LAND1 = IT_BKPF-COUNTRY
      AND   SPRAS EQ SY-LANGU.
Text for Region
      SELECT SINGLE BEZEI INTO IT_BKPF-BEZEI FROM T005U
      WHERE BLAND = IT_BKPF-REGION
      AND   SPRAS EQ SY-LANGU
      AND   LAND1 = IT_BKPF-COUNTRY.
    ENDIF.
    MODIFY IT_BKPF.
ENDLOOP.
REFRESH IT_DATA.
CLEAR   IT_DATA.
LOOP AT IT_BKPF.
    DATA : WRK_BSAKBELNR LIKE BSAK-BELNR.
    CLEAR WRK_BSAKBELNR.
    SELECT SINGLE BELNR INTO WRK_BSAKBELNR FROM BSAK
    WHERE AUGBL = IT_BKPF-BELNR
    AND   GJAHR = IT_BKPF-GJAHR
    AND BUKRS IN S_BUKRS.
Advance
    IF WRK_BSAKBELNR IS INITIAL.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = IT_BKPF-BELNR.
      IT_DATA-GJAHR = IT_BKPF-GJAHR.
      IT_DATA-XBLNR = IT_BKPF-XBLNR.
      IT_DATA-BLDAT = IT_BKPF-BLDAT.
      IT_DATA-BLART = IT_BKPF-BLART.
      IT_DATA-ZUONR = IT_BKPF-ZUONR.
      IT_DATA-WRBTR = IT_BKPF-WRBTR.
      IT_DATA-WRBTRC = IT_DATA-WRBTR.
      APPEND IT_DATA.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
TDS
      DATA : WRK_TDSWRBTR LIKE BSIS-WRBTR.
      CLEAR WRK_TDSWRBTR.
      SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND BUKRS IN S_BUKRS
      AND   QSSKZ NE SPACE
      AND   QSSKZ NE 'XX'
      AND   XREF3 NE SPACE
      AND   QSSKZ NE 'S1'
      AND   QSSKZ NE 'S2'.
      IF WRK_TDSWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSAS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ NE SPACE
        AND   QSSKZ NE 'XX'
        AND   XREF3 NE SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'S1'
        AND   QSSKZ NE 'S2'.
      ENDIF.
      DATA : WRK_BSCHL LIKE BSIS-BSCHL.
      CLEAR WRK_BSCHL.
      IF NOT WRK_TDSWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'TDS/ECess'.
        IT_DATA-WRBTR = WRK_TDSWRBTR.
        SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSIS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ NE SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'XX'
        AND   XREF3 NE SPACE
        AND   QSSKZ NE 'S1'
        AND   QSSKZ NE 'S2'
        AND   BSCHL = '40'.
        IF WRK_BSCHL IS INITIAL.
          SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSAS
          WHERE BELNR = IT_BKPF-BELNR
          AND   GJAHR = IT_BKPF-GJAHR
          AND   QSSKZ NE SPACE
          AND   QSSKZ NE 'XX'
          AND   XREF3 NE SPACE
          AND BUKRS IN S_BUKRS
          AND   QSSKZ NE 'S1'
          AND   QSSKZ NE 'S2'
          AND   BSCHL = '40'.
        ENDIF.
        IF WRK_BSCHL IS INITIAL.
          IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        ENDIF.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
Discount
      DATA : WRK_DEDWRBTR LIKE BSIS-WRBTR.
      CLEAR WRK_DEDWRBTR.
      SELECT SUM( WRBTR ) INTO WRK_DEDWRBTR FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND   QSSKZ EQ SPACE
      AND BUKRS IN S_BUKRS
      AND   BSCHL NE '50'.
      IF NOT WRK_DEDWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_DEDWRBTR FROM BSAS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ EQ SPACE
        AND BUKRS IN S_BUKRS
        AND   BSCHL NE '50'.
      ENDIF.
      IF NOT WRK_DEDWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'Discount'.
        IT_DATA-WRBTR = WRK_DEDWRBTR.
        IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
Invoice
    ELSE.
      REFRESH IT_BELNR.
      CLEAR   IT_BELNR.
      DATA : W_YEAR(4),
             W_MONTH(2) VALUE '04',
             W_DATE(2) VALUE '01',
             W_YEAR1(8).
      W_YEAR = S_GJAHR-LOW.
      CONCATENATE W_YEAR W_MONTH W_DATE INTO W_YEAR1.
      SELECT BELNR GJAHR XBLNR BLDAT BLART ZUONR WRBTR BSCHL INTO
      TABLE IT_BELNR FROM BSAK
      WHERE AUGBL = IT_BKPF-BELNR
            AND AUGDT GE W_YEAR1
          AND   GJAHR = IT_BKPF-GJAHR
            AND   BELNR NE IT_BKPF-BELNR
            AND BUKRS IN S_BUKRS.
      SORT IT_BELNR BY BELNR GJAHR.
      LOOP AT IT_BELNR.
        CLEAR WRK_TDSWRBTR.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
        WHERE BELNR = IT_BELNR-BELNR
        AND   GJAHR = IT_BELNR-GJAHR
        AND   QSSKZ NE SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'XX'.
        IF WRK_TDSWRBTR IS INITIAL.
          SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSAS
          WHERE BELNR = IT_BELNR-BELNR
          AND   GJAHR = IT_BELNR-GJAHR
          AND   QSSKZ NE SPACE
          AND BUKRS IN S_BUKRS
          AND   QSSKZ NE 'XX'.
        ENDIF.
        IT_DATA-VBELNR = IT_BKPF-BELNR.
        IT_DATA-BELNR = IT_BELNR-BELNR.
        IT_DATA-GJAHR = IT_BELNR-GJAHR.
        IT_DATA-XBLNR = IT_BELNR-XBLNR.
        IT_DATA-BLDAT = IT_BELNR-BLDAT.
        IT_DATA-BLART = IT_BELNR-BLART.
        IT_DATA-ZUONR = IT_BELNR-ZUONR.
        IT_DATA-WRBTR = IT_BELNR-WRBTR + WRK_TDSWRBTR .
        IF IT_BELNR-BSCHL GE '31' AND IT_BELNR-BSCHL LE '39'.
          IT_DATA-WRBTRC = IT_DATA-WRBTR.
        ELSE.
          IF IT_BELNR-BSCHL GE '21' AND IT_BELNR-BSCHL LE '29'.
            IT_DATA-WRBTRC = IT_DATA-WRBTR * - 1.
          ENDIF.
        ENDIF.
        APPEND IT_DATA.
        IT_DATA-VBELNR = IT_BKPF-BELNR.
        IT_DATA-BELNR = ' '.
        IT_DATA-GJAHR = ' '.
        IT_DATA-BLDAT = ' '.
        IT_DATA-BLART = ' '.
        IT_DATA-ZUONR = ' '.
TDSBELNR
        IF NOT WRK_TDSWRBTR IS INITIAL.
          IT_DATA-XBLNR = 'TDS/ECess'.
          IT_DATA-WRBTR = WRK_TDSWRBTR.
          CLEAR WRK_BSCHL.
          IF NOT WRK_TDSWRBTR IS INITIAL.
            IT_DATA-XBLNR = 'TDS/ECess'.
            IT_DATA-WRBTR = WRK_TDSWRBTR.
            SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSIS
            WHERE BELNR = IT_BELNR-BELNR
            AND   GJAHR = IT_BELNR-GJAHR
            AND   QSSKZ NE SPACE
            AND   QSSKZ NE 'XX'
            AND   BSCHL = '40'.
            IF WRK_BSCHL IS INITIAL.
              SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSAS
              WHERE BELNR = IT_BELNR-BELNR
              AND   GJAHR = IT_BELNR-GJAHR
              AND   QSSKZ NE SPACE
              AND   QSSKZ NE 'XX'
              AND   BSCHL = '40'.
            ENDIF.
            IF WRK_BSCHL IS INITIAL.
              IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
            ENDIF.
            IT_DATA-WRBTRC = IT_DATA-WRBTR.
            APPEND IT_DATA.
          ENDIF.
        ENDIF.
      ENDLOOP.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
TDSVBELNR
      CLEAR WRK_TDSWRBTR.
      SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND   QSSKZ NE SPACE
      AND BUKRS IN S_BUKRS
      AND   QSSKZ NE 'XX'
      AND   QSSKZ NE 'S1'
      AND   QSSKZ NE 'S2'.
      IF WRK_TDSWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSAS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ NE SPACE
        AND   QSSKZ NE 'XX'
        AND   AUGBL = SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'S1'
        AND   QSSKZ NE 'S2'.
      ENDIF.
**INSERTED BY PALANI ON 01.04.2006
      IF WRK_TDSWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR.
      ENDIF.
***END BY PALANI.
      IF NOT WRK_TDSWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'TDS/ECess'.
        IT_DATA-WRBTR = WRK_TDSWRBTR.
        IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
*DiscountVBELNR
      CLEAR WRK_DEDWRBTR.
      SELECT SUM( WSKTO ) INTO WRK_DEDWRBTR FROM BSE_CLR
      WHERE BELNR_CLR = IT_BKPF-BELNR
      AND   GJAHR_CLR = IT_BKPF-GJAHR
      AND BUKRS IN S_BUKRS.
      IF NOT WRK_DEDWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'Discount'.
        IT_DATA-WRBTR = WRK_DEDWRBTR.
        IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
    ENDIF.
ENDLOOP.
LOOP AT IT_BKPF.
SELECT SINGLE BUTXT ORT01 LAND1 INTO (IT_DATA-BUTXT,IT_DATA-ORT01,IT_DATA-LAND1)
FROM T001
WHERE BUKRS IN S_BUKRS.
MODIFY IT_DATA INDEX SY-TABIX.
*ENDLOOP.
ENDFORM.                    " select_data
*&      Form print_data
      text
--> p1        text
<-- p2        text
FORM PRINT_DATA .
PERFORM OPEN_FORM.
PERFORM WRITE_FORM.
PERFORM CLOSE_FORM.
LEAVE LIST-PROCESSING.
ENDFORM.                    " print_data
*&      Form open_form
      text
--> p1        text
<-- p2        text
FORM OPEN_FORM .
CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      FORM     = 'ZFI_PAY_ADV_MODN'
      LANGUAGE = SY-LANGU.
ENDFORM.                    " open_form
*&      Form write_form
      text
--> p1        text
<-- p2        text
FORM WRITE_FORM .
LOOP AT IT_BKPF.
    IF SY-TABIX GT 1.
      AT NEW BELNR.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            ELEMENT = 'NEW'
            WINDOW = 'MAIN'.
      ENDAT.
    ENDIF.
    LOOP AT IT_DATA WHERE VBELNR = IT_BKPF-BELNR.
      DATA : BEGIN OF IT_HKONT OCCURS 0,
               HKONT LIKE BSIS-HKONT,
               WRBTR LIKE BSIS-WRBTR,
             END OF IT_HKONT.
      REFRESH IT_HKONT.
      CLEAR   IT_HKONT.
      SELECT HKONT WRBTR INTO TABLE IT_HKONT FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR.
      DELETE IT_HKONT WHERE HKONT(3) NE '005'.
      IF NOT IT_HKONT[] IS INITIAL.
        LOOP AT IT_HKONT.
          IT_DATA-TOTAL = IT_DATA-TOTAL + IT_HKONT-WRBTR.
          MODIFY IT_DATA.
        ENDLOOP.
      ELSE.
        IT_DATA-TOTAL = IT_DATA-TOTAL + IT_DATA-WRBTR.
        MODIFY IT_DATA.
      ENDIF.
    ENDLOOP.
    LOOP AT IT_DATA WHERE VBELNR = IT_BKPF-BELNR.
      IF IT_DATA-BLART EQ ''. " for invoice Date
        IT_DATA-BLDAT = IT_BKPF-BLDAT.
      ENDIF.
      IT_DATA-LIFNR = IT_BKPF-LIFNR.
      IT_DATA-KUNNR = IT_BKPF-KUNNR.
      IT_DATA-NAME1 = IT_BKPF-NAME1.
      IT_DATA-NAME2 = IT_BKPF-NAME2.
      IT_DATA-NAME3 = IT_BKPF-NAME3.
      IT_DATA-NAME4 = IT_BKPF-NAME4.
      IT_DATA-CITY1 = IT_BKPF-CITY1.
      IT_DATA-REGION = IT_BKPF-REGION.
      IT_DATA-COUNTRY = IT_BKPF-COUNTRY.
      IT_DATA-STREET = IT_BKPF-STREET.
      IT_DATA-LANDX = IT_BKPF-LANDX.
      IT_DATA-BEZEI = IT_BKPF-BEZEI.
      CLEAR : WRK_HBKID , WRK_BANKL.
      SELECT SINGLE CHECT ZALDT HBKID INTO
      (IT_DATA-CHECT , IT_DATA-ZALDT , WRK_HBKID)
      FROM PAYR
      WHERE VBLNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND   VOIDR = '00'.
      SELECT SINGLE BANKL INTO WRK_BANKL
      FROM T012
      WHERE HBKID = WRK_HBKID.
     AND spras EQ 'EN'.
      SELECT SINGLE BANKA INTO IT_DATA-BANKA
      FROM BNKA
      WHERE BANKL = WRK_BANKL.
      MODIFY IT_DATA.
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          ELEMENT = 'ITEMS'
          WINDOW = 'MAIN'.
    ENDLOOP.
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        ELEMENT = 'TOTAL'
        WINDOW = 'MAIN'.
ENDLOOP.
ENDFORM.                    " write_form
*&      Form close_form
      text
--> p1        text
<-- p2        text
FORM CLOSE_FORM .
CALL FUNCTION 'CLOSE_FORM' .
ENDFORM.                    " close_form

Hi
Could you tell us what fields are not updated?
Regards,
Raj

Profit Center is not updating in Vendor line item

Hi Experts,
For my GL postings in F-43, F-41, F-53 ,F-54 and F-28 the 1st line item corressponds to Vendor or Customer, the profit center is not updaitng the values and shows nill. We have given check in Exit and Substitution but its not updating in BSEG structure as its functioning like loop.
Pls advise, how to resolve it.
thanks & reagrds
sankar.

Hi Bharathi,
thanks for your prompt reply.
But as per my Client requirement, we need to pass the profit center values to the vendor/customer line items also.In such case, what' s the solution?
Pls advise.
regards
Sankar/Brahma

BAPI_ACC_DOCUMENT_POST line item text SGTXT not updating

Hi,
We have copied following LSMW for opening balance upload from ECC 5 to ECC 6.
When we upload through LSMW (BAPI_ACC_DOCUMENT_POST ) which is used for uploading opening balances of G/L accounts field Long Text (Tech Name: ITEM_TEXT) not updating.
Form Vendor and Customer Opening balances LSMWs Long Text (Tech Name: ITEM_TEXT) field of G/L line item is not updating. According to my observation data field SGTXT of BSEG table. not getting updated through this LSMW. I have tried same transaction through T Code F-02 and it is updating field SGTXT of BSEG table. As per confirmation from business same LSMWs are working fine in ECC 5.
Jigar

hi experts,
no body faced this situation?
Any suggestions ?
kindly give me any inputs
thanks & regards,
Raghul
Edited by: Raghul Gandhi on Aug 11, 2009 11:32 AM
Edited by: Raghul Gandhi on Aug 11, 2009 12:56 PM

Transaction Type is not updated to FAGLFLEXT

Hi,
When entering asset acquisition, user will use posting key:70 and transaction type 100 and enter the asset. This is updated in the BSEG. In the FAGLFLEXT table there is column transaction type, it is
not updated..
Pl.sugesst how to rectify the above bug and let me know if any OSS notes to be applied.
Thanx & Regs
Daddala

Check the following consulting note.
https://service.sap.com/sap/support/notes/990612
You have to add scenario FIN_CONS to your ledger in the following path in SPRO.
Financial Accounting (New) -> Financial Accounting Global Settings (New) -> Ledgers -> Ledger -> Assign Scenarios and Customer Fields to Ledgers

Profit center document created but profit center not updated in FI document

Hi Experts,
I have a strange issue; we created FI document via billing document (SD) where in profit center document got created but profit center is not updated in FI document.
We have separate table to identify the profit center by customer.
Please let know what could be the cause or reason for this kind of scenario
Thanks,
VK

Hi Krishna,
Though ur question seems very old, but now i got the same requirement as like you.
So if you remeber what needs to be done for this issue thats very good help to me.
My Requirement is : I have created Service Entry Sheet by referring PO and while releasing this Service Entry Sheet system is generating MIGO Doc and FI documents in background.
And I have updated PERNR (Persnoal No.) in MSEG-SGTXT by using enhancment but it's not populating in BSEG-SGTXT.
And I found an internal table while debugging i.e ; like ACCIT (not exactly ,similar to this ) where i have updated pernr and sgtxt but same thing will not available in FI Doc display (BSEG-PERNR or BSEG-SGTXG)
So could you plz suggest what needs to be done to achieve this. Im assuming that, is it possible through BTE (Business Transaction Events) ?. if yes, plz tell me how to proceed.
Thanks
Madhan

Trading partner not updating in table FAGLFLEXA

Hi All
We are in ECC5.0 and we are using new GL. When we post entry tarding partner field updating in BSEG table, but it is not updating in FAGLFLEXA table.
Can anybody tell me the what is the reason and soution for the same.
Thanks in advance
Regards
Sekhar

Hi
Field RASSC not updating in the table FAGLFLEXA. That is the problem.
Regards
Sekhar

Accounting Document not updated in BKPF for JV by J1IH

Hi
The user posted JV through transaction code J1IH.
The document number is updated in table J_1IPART2 but when the user is trying to see the same document in FB03 we are getting the error message as "the document is not exist or not archived".
And we have checked in tables BKPF and BSEG we did not find this document.
Can anyone please suggest how to find the reason why the system is not updated this document?
Regards
RS

Hi Hari,
Thanks for your reply. I have checked in this transaction code also. The system is showing the message as "The document is already posted".
But it is not updated any tables except the document number is updated in table J_1IPART2.
Is there any other reasons for not updating the tables.
Regards
RS

Accounting Document not updated after Vf01(billing)

Hi Gurus,
After creating invoice in vf01 when i m looking at accounting document, then my value is updated but the quantity is not updated in fb02.
when i see table BSEG then the value of MENGE is not updated there.
It is always coming ZERO.
Thanks in advance

Hi
Please check whether FI doculments summarisation is active for this field under procedure VBRK.
Regards

BSEG-XREF3 is not updating

Similar Messages

Maybe you are looking for