BSEG-PERNR not updated

I am not able to populate/enter the field personnel number PERNR in the line item (table BSEG) of GL/Vendor, even though the customizing of corresonding posting keys and Field status variant group of GL accounts are showing the field status as optional for personnel number.
Please advice how can I populate this field BSEG-PERNR ready for input in the line item.
Thanks
ROn

Ron,
That additional information helps. Personally, I don't prefer opening up this fileld during document entry, as the data that might go in there (BSEG-PERNR) may be inconsistent with the employee vendor number in the vendor field, due to potential errors during manual input. For that matter, I don't even know if it is possible to open the field, as I would try exactly what you have done (changing the FSG for the vendor recon acct and that of the posting key, and apparently it is not working).
I have never tried this, but please see if a substitution rule in OBBH delivers your need. Please note that the substitution is not impacted due to the reason that the field is not visible during online entry. Even if the PERNR field is suppressed, substitution should still be able to substitute PERNR with vendor ID in that document, in the background.
If all else fails, explore if ADP can treat these two feeds (expenses and payroll) differently and accept the employee number in the vendor field during expense interface from your side.

Similar Messages

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

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.

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

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

"Collective Inv." (BSEG-SAMNR) not being populated

We are in the process of enabling invoice list functiionality in SAP. In doing that we get everything working, except for the update to BSEG-SAMNR (Collective Inv.) for a respective FI document that is tagged to an invoice list. This becomes key for us as we can pull this field into various A/R transactions like F-28 and FBL5N.
I have searched OSS and online, but so far can't seem to find any reference to this. We are on ECC 6.0 and SP14.
Has anyone run into this? Or have any idea how to get that field updated? Appreciate any thoughts or suggestions.
Thanks,
Jay

Hi Jay,
In the FI transactions field BSEG-SAMNR is only contained on the
customer line item screen (screen 0301 of program SAPMF05A), which
means that when a FI document is posted with a FI transaction,
a value for field BSEG-SAMNR can be entered for the customer line
item (and only for the customer line item).
Otherwise this field has no further meaning in FI.
note 335031 -> FBV1: Field 'SAMNR' missing on the customer screen
                     -> implementation of the above described
                        for document parking
note 563076 -> FB05: Leading zeros with selection on fields NUMC
                     -> open item selection with field SAMNR
note 573312 -> FB05: Creating down payment from down payment request
                     -> copy of the value of field SAMNR from
                        down payment request to down payment
note 583163 -> FB02: Field BSEG-SAMNR not changeable with down payments
note 631894 -> RFBIBL00 in mode 'D': BSEG-SAMNR not filled in FI
               document
note 745442 -> F110: Acct assgnmt w/ down payment from down payment
               request
                     -> same like note 573312 for payment program
Regards,
Alex

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

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

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

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

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

IDOC_INPUT_HRMD, it posts the document but does not update the Infotypes

Hi,
I am trying to trigger the IDoc Type 'HRMD_A06'. This Idoc was posted successfully, with the status as '53' (inbound IDoc). The Processing Function Module is IDOC_INPUT_HRMD for the IDoc "HRMD_A06". However the infotypes are not updated. The infotypes I am trying to update are 0000,0001,0002,0006, & 0008.
If someone has a solution for this issue. Kindly let me know.
Regards,
Narun

Hi Srinu,
Again....
Whats happening in Debug ???
Just clone the FM as it is and use the FM HR_INFOTYPE_OPERATION instead of other.
Parameters:
The following code is for infotype 15 inside custom FM which i have done. u can use for ref.
CALL FUNCTION 'ENQUEUE_EPPRELE'
        EXPORTING
          pernr          = l_wa_p0015-pernr
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 2
          OTHERS         = 3.
      IF sy-subrc = 0.
        CALL FUNCTION 'HR_INFOTYPE_OPERATION'
          EXPORTING
            INFTY                  = c_0015
            NUMBER                 = l_wa_p0015-pernr
            SUBTYPE                = l_wa_p0015-subty
OBJECTID               =
LOCKINDICATOR          =
            VALIDITYEND            = l_wa_p0015-begda
            VALIDITYBEGIN          = l_wa_p0015-endda
   RECORDNUMBER          =
            RECORD                 = l_wa_p0015
            OPERATION              = c_ins1
            TCLAS                  = c_a
            DIALOG_MODE            = '0'
NOCOMMIT               =
VIEW_IDENTIFIER        =
SECONDARY_RECORD       =
          IMPORTING
            RETURN                 = l_i_return .
KEY                    =
To dequeue the selected employee
        CALL FUNCTION 'DEQUEUE_EPPRELE'
          EXPORTING
            pernr = l_wa_p0015-pernr.

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-PERNR not updated

Similar Messages

Maybe you are looking for