Forms Personalization issue - Default GRE on Tax Balances form

Hi -
Since we have only 1 GRE in our HRMS system, I am trying to populate ( basically default) the GRE name on the GRE field of the Tax Balances form.
I chose when new form instance and in the action i am setting the value of field TAXSEL.GRE = 'Name of GRE'
So, when I open the form, it looks like it is successfully able to populate the field with the name of the GRE, but then it opens up the find person window where you need to enter the name of the employee whose tax baalnce you want to view. When I enter the name of the employee, the GRE field automatically dis-appears. So it defeats the purpose of the personalization.
Has anyone tried this kind of personalization ? or any insights will be greatly appreciated.
Regards
Tushar

Dear Tushar,
try the following:
1 - Help --> Diagnostic --> Custom Code --> Show Custom Events.
2 - repeat the failing scenario
3 - see which event on wich item is making GRE field dis-appearing
4 - set your custom code on the event after the one identified in 3
hope this help
Giuseppe

Similar Messages

Need help in Payroll Tax Balance Issue - Urgent

Hi,
Please help me with the following Tax and Balance issue. The system is on 12.0.3, South African Legislation.
Issue : Salary has been restructured from Basic Salary to Total package structure in Dec 2008. Retro Pay was used to pay the difference amounts in Dec Run. But while configuring the new Elements for this Total Package they have missed out adding the Retro Elements to Proper Tax calculating Balances.
Eg : "TP Salary" element is fed to "Taxable Income RFI" balance but "TP Retro Salary" element is not fed to this balance.
So tax has not been calculated for those Retro amounts. This has been identified while validating test run for IRP5 tax certificates.
The Feb 09 (Feb is the Tax year End for payroll) Payroll was already run on 10th and payments were already done. Now we need to tax the retro amounts and retrieve the balance tax amounts from Employees.
I added the proper tax balances to those Retro elements and and the balances were adjusted to add the Retro amounts. Then I ran the Feb run the payroll again as of 20th, it did not recalculate the tax.
How to recalculate the tax so that correct tax reflects in the Tax certificates? Please help me with the necessary Info.
Thanks,
Sri.

Hi,
As I mentioned earlier, I added the appropriate balances which are used to calculate Tax to Retro Elements and those Balances got updated with the delta amount but Tax was not updated. I want to know is there any process provided by Oracle using which Tax for those already paid amounts can be recalculated.
I calculated the Tax manually and using Adjust Balance form added ZA_TAX_BALANCE_ADJUSTMENT Element and given the difference tax amount in PAYE and Tax Input values and saved the form. The Tax got updated.
Tax_ASG_RUN - 15000
Tax_ASG_TAX_YTD - 153257.32 (Prev - 138257.32). When I run the IRP5 (Tax Certificate Process) the tax is also getting correctly on it.
But client wants Oracle to calculate the Tax for those retro amounts so thats the challenge.
Could you help me with this.
Thanks,
Sri

Default entry of Tax code V0 in the PO.

Can anybody help me in resolving the issue of bringng the tax code V0 as a default entry in the PO on Invoice tab.
At this moment users are asked to enter the tax code manually. We want to avoid tht. We are not maintaining Info records manually. It gets generated at the time of PO creation. So is there any customisation setting/ or userexit program to set tax code V0 in all the existing info record.If this can happen then tax code V0 will get defaulted in the PO.
Also will there be different settingto set tax code V) as default in the new info records which will be created in future.
Awaiting reply.
Regards,
Anup.

Were you able to find a solution for this?

Default Profit center for balance sheet account

Dear All
I've problem when i display accounting document in billing, there is no profit center information in GL account VAT,since document spliting is not activated,so I maintain default profit center for balance sheet account (3KEH),.
can anybody tell me why this problem raised? where that i have missed the configuration?
Thanks And Regards
Adit

Hi Vijay,
Good day!
I would like to seek your advice regarding the default profit center for Balance Sheet Account:
We have this issue that BS account defualted to a certain profit center: I have done several testings but still cannot find why the BS account defaulted to the profit center
1. I have checked the FAGLBK3EH and the BS account in which PC defaulted is not maintained in this tcode.
2. also check the OBBH and the document does not contain any cost object wherein a profit center can be derived. also checked substitution, either both of this code does not defines the profit center im searching for.
Can you please advice some directions where to check and why certain profit center defaulted to balance sheet account.
Your advice is greatly appreciated.
Janice

Issue on Projected Income Tax (Payroll India)

Hi Experts
We have upgraded the system with SP_HR Component patch level 64 and configured SAP Note 1568264.
We have an issues on Projected Income Tax.
Scenario :
Monthly sal : 25000/- and paid the same to employee in Apr, May 11.
In the month of June employee has LOP for 2 days and paid 22000/- against June 11.
Now system is calculating projected IT based on 22000/- for the remaining months i.e., 22000*10= 2,20,000/-.
Showing projected income tax as 2,20,000+50000 = 2,70,000/- (should be 3,00,000/-)
Please suggest the possible ways to resolve this.
Appreciate your help.
Thanks
Venkat Babu Kurada

Hi Experts,
New issues rise Now....
For New (mid month) joinee at the first month Exemption U/S 10 is calculated based on the Conveyance Allowance amount *12 months (or no. of remaining months for financial yr end), but in my client income tax Exemption U/S 10 based on the actual salary (not earned salary) from the first month onwards.
For example :
Employee X,
Joined date 15.08.2011,
Conveyance Allowance = 800 INR. Earned Conveyance Allowance for 15 days = 400 INR.
While Start Payroll for the period 5th (August) 2011. The WT /130 Exemption U/S 10 = 3,200 (400*8). Based on this Conveyance Allowance The Exemption U/S 10 calculated, But I want to calculated the Exemption U/S 10 at first month (august 2011) based on follows,
August month earned Conveyance Allowance = 400 INR + Actual Conveyance Allowance per month =800*7 =5,600.
Exemption U/S 10 = 6,000 INR.
Please give me some solution
Thanks and regards
Mohan .V

Issue with down payment tax cal and clearing it aganest vendor inv

HI,
I have an issue with down payment tax cal.
1.     I had configured withholding tax and raised down payment, tax has been cal
2.     In the next step I had raised inv, at this time also tax had been cal
3.     When I am doing down payment clearing the tax collected at the time of down payment had to be reversed but itu2019s not.
Can any one give me solution for clearing the tax that cal on down payment.
Thanking you.

Dear
Vendor master has got tax codes both at the time of payment and at the time of invoice. Hence system is calculating tds on both occassions.
Since you pay advance first tds calculated is right. Now while doing miro remove the tax codes manually and do miro/mir7/fb60.
If already MIRO/MIR7/FB60 done then reverse the invoice document and clear the tax GL accounts.
Regards

Invoice Date as default to calculate tax in MIRO

Hi,
I need to make Invoice date as default to calculate tax in MIRO.Can anybody suggest me User-Exit or BADI to do the same?
i need to calculate the tax according to Invoice date and not system date (posting date).

hi!
You can set transaction variant for your requirement using T.code SHD0 and that too only if the requirement is needed for all LIV postings. In SHD0 you can enable the tick and set the field in display mode. If the requirement is not for all postings then you copy the MIRO trtansaction USING T.Code OMW9 and set the transaction variant for that new t.code. But if you want to create a new t.code its upto you to check all other requirements.
Reward if useful.
Yuvi.

Depriciation Posting happens to Default Profit Center for Balance Sheet Act

Dear Experts,
I am facing problem in SAP where when I run Depriciation for Co Code B the system is picking up Default Profit Center for Balance Sheet Account GL Account while it is picking up proper Profit Center for P&L GL Account from Asset Master in the Depriciation Document AF.
Can you please advice what exactly customization to i need to check since Depriciation for Co Code A is happening properly for CO CODE A.for P&L and B/S GL Account.
Regards,
Rahul

Hi Rahul,
When you want to have the profit center in your balance sheet account you should make the field cost center optional in the field status group from your asset reconciliation accounts.
The system need this to determinate the profit center (no cost center is filled in)

Assignment of Default profit center to Balance sheet Account

Hi Gurus,
Is it possible to assign default profit center to balance sheet accout code ?. If it is possible how to do?
Many thanks,
Panneer

Transaction code: 3KEH
1. Define account(s)
2. Next, click on PrCtr Determination
3. Then, under Maintain Entries, click on Rule Values and complete the settings here.
Elias
Edited by: Elias Akorli on Dec 7, 2009 3:49 PM

Tax Balance Deduction

Dear Experts
We have a scenario. We are calculating an international tax for emps working outside US.
1. The calculated Tax reduces our FIT withheld. This works.
However on the SOE, tax balance adds up FIT with held + SS+Medi+ international tax . The Other deductions show International tax. We dont want to show international tax in tax deduction column..need to reduce the international value adding to the tax deduction. Tried ..but no luck.. any advise/suggestions are appreciated.

Experts,
Please help. How to reduce Tax deductions excluding the international tax which is shown in Other deduction tab...Appreciate your help
Thanks

Forms Personalization Issues / Urgent help

Hello Oracle Gurus,
I have an issue while customizing the Customer Standard Form in Oracle Applications using Forms Personalization.
Issue descritption:
1) In Customer Standard Form (ARXCUDCI), at Bill-to Site level i need to disable the buttons NEW and OPEN for a custom responsibility.
I have written code in Trigger Event "WHEN-NEW-FORM-INSTANCE" and in actions i mentioned as
1. Property - Object Type as Item
Target Object as CTRL.ADDR_SU_NEW
Property Name as Enabled
Value as False
2. Property - Object Type as Item
Target Object as CTRL.ADDR_SU_OPEN
Property Name as Enabled
Value as False
When i check, it is working for the NEW button (i.e. NEW button getting disabled) but the same is not working for OPEN button.
Am i missing any thing else.........Any suggestions are highly appreciated.
Thanks & Regards,
Lakshmi Kalyan Vara Prasad.

I would guess that the problem with the Open button is that there is existing standard code within the form that runs after the WHEN-NEW-FORMS-INSTANCE trigger that enables/disables the Open button based on some other condition.
Apart from opening up the form in Forms Builder and working through the code to work out what standard code is doing this (which can be an extremely painful process), I would suggest that you try moving your personalisation to a later event, such as WHEN-NEW-BLOCK-INSTANCE.

Issue on migration of tax depreciation balances for group assets

Dear Experts,
My client is using group assets for tax depreciation report India.
The SAP implementation was done in 2006 during the data migration the
client was not clear of the values both individual asset wise and
group asset wise to migrate to tax depreciation area. So the tax
depreciation for some of the assets are migrated with some
(non caluclated) value.
Now the client want to see the tax depreciation group asset wise or if
possible individual asset wise.For this the group asset need to be
created and assigned to each individual asset in the asset master
record.
The fiscal year variant is v3, april to march with 4 quaters June,
Sep, Dec, Mar.
Now when the data migration for the current year come into picture
I can use AS81/AS82 for loading current year opening balance and
accumulated depreciation for all the group of assets as a whole. Or
I can use AS91/AS92 to load balances into tax depreciation of
each asset individually. But I am not sure whether this is correct.
And also what to do with the previous years balances. I am very
confused. Somebody suggest good solution.
When I create a legacy asset or group asset in AS91 and AS81
respectively the fields in the Takeover values screen are grayed
out and do not allow mw to input values. But I am able to enter
values by clicking the button Transactions in the Takeover values
screen and able to enter a value date , transacton type and amount
for tax depreciation area. Here again I am not convinced using 100
transaction type for current year opening balance. I used
transaction type 652(Unplanned tax depreciation on current year
acquisition) for accumulated current year dpereciation upto second
quarter septemeber 2008.
In asset explorer under "Planned values" tab the opening balance
must be visible under Fiscal year start column but it is displayed
under change column as I entered values for tax depreciation area
in AS81 in Transaction screen with asset value date as 01.04.2008
transaction type 100 and amount as xxxxxx and value date 30.09.2008
652 xxxxxxxx.
Need expert guidance on this
Rgds
Komal

Dear Experts,
Your inputs are awaited.
Rgds
Komal

Forms Personalization issue condition error in post-forms-commit.

I am trying to personalize PERWSEAC form (i.e. Assignment costing form in HRMS).
In the post-forms-commit, I added condition like this
:SYSTEM.CURRENT_BLOCK = 'COST' AND 1=1, when validated it is working fine.
And at runtime it throws error like this "The condition :SYSTEM.CURRENT_BLOCK = 'COST' AND 1=1 could not be evaluated because of error"
If condition is changed to :SYSTEM.CURRENT_BLOCK = 'COST' it works fine.
Please suggest what is going wrong, before it was working fine.

Hello,
This is the "standalone" Forms forum. Ask personnalization questions in the dedicated E-Busines Suite forum.
Francois

Personalization Issue with Master Item form EBS R12 -help needed

There is an existing personalization in EBS 11i on Master Item form (INVIDITM) that is ported over to R12. Personalization prevents one responsibility from making updates/inserts.
trigger event: WHEN-NEW-FORM-INSTANCE
responsibiity: INV Inquiry
Under Action tab:
Block>MTL_SYSTEM_ITEMS>UPDATE_ALLOWED>FALSE
Block>MTL_SYSTEM_ITEMS>INSERT_ALLOWED>FALSE
Block>MTL_SYSTEM_ITEMS>DELETE_ALLOWED>FALSE (although this is not needed since seeded form prevents deletes)
In 11i this works as intended, i.e. when form is opened no updates or inserts are possible. When block is queried the data is not updatable, no inserts are possible.
In R12 (12.1.3) when form is opened no updates or inserts are possible. When block is queried the data fields become updatable and can be saved. No inserts are possible though.
I thought this is an anomaly.
Has anyone encountered this. If so what is the solution?
Thanks,
Sunil

Are thery any other personalization events in 11i, apart from WHEN-NEW-FORM-INSTANCE which are not migrated to R12?
Thanks
Shree

Performance Issue For Opening And Closing Balance In FBL1N/3N/5N

Dear experts,
                    I Am Having Requirement to Bring Opening And Closing Balance In FBL1N, FBL3N, FBL5N.
For This requirement I Used BADI : FI_ITEMS_CH_DATA~CHANGE_ITEMS, below is my Code For FBL1N, And I've Done the same For 3N/5N...With Related BAPI
*   IF SY-TCODE = 'FBL1N'.
*    LOOP AT ct_items INTO gs_items.
*      CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
*        EXPORTING
*          date      = gs_items-budat
*          days      = '01'
*          months    = '00'
*          signum    = '-'
*          years     = '00'
*        IMPORTING
*          calc_date = lv_date.
*      CALL FUNCTION 'BAPI_AP_ACC_GETKEYDATEBALANCE'
*        EXPORTING
*          companycode        = gs_items-bukrs
*          vendor             = gs_items-konto
*          keydate            = lv_date
**   BALANCESPGLI       = ' '
**   NOTEDITEMS         = ' '
** IMPORTING
**   RETURN             =
*        TABLES
*          keybalance         = lv_obal.
*      CALL FUNCTION 'BAPI_AP_ACC_GETKEYDATEBALANCE'
*        EXPORTING
*          companycode        = gs_items-bukrs
*          vendor             = gs_items-konto
*          keydate            = gs_items-budat
**   BALANCESPGLI       = ' '
**   NOTEDITEMS         = ' '
** IMPORTING
**   RETURN             =
*        TABLES
*          keybalance         = lv_cbal
*      READ TABLE lv_cbal INTO gs_cbal INDEX 1.
*      gs_items-cbal = gs_cbal-lc_bal.
*      READ TABLE lv_obal INTO gs_obal INDEX 1.
*      gs_items-obal = gs_obal-lc_bal.
*      MODIFY ct_items FROM gs_items TRANSPORTING obal cbal.
*      CLEAR: gs_items,gs_obal,gs_cbal.
*    ENDLOOP.
*   ENDIF.
So, Above Code Causing Me the Performance Issue, Kindly Suggest Me the Solution..
Regards,
uday.

Hi Uday,
I am sending you the code i used for the creation a Zreport based on FBL5N. Please check if it can of any help.
*& Report ZFBL5N                                                      *
REPORT zfbl5n_new .
TABLES : bsid,knc1,lfc1.
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_bsid,
          bukrs TYPE bsid-bukrs,
          kunnr TYPE bsid-kunnr,
          belnr TYPE bsid-belnr,
          buzei TYPE bsid-buzei,
          bldat TYPE bsid-bldat,
          blart TYPE bsid-blart,
          bschl TYPE bsid-bschl,
          shkzg TYPE bsid-shkzg,
          dmbtr TYPE bsid-dmbtr,
          augdt TYPE bsid-augdt,
          augbl TYPE bsid-augbl,
          zuonr TYPE bsid-zuonr,
          sgtxt TYPE bsid-sgtxt,
          zfbdt TYPE bsid-zfbdt,
          zterm TYPE bsid-zterm,
          zbd1t TYPE bsid-zbd1t,
          zbd2t TYPE bsid-zbd2t,
          zbd3t TYPE bsid-zbd3t,
          kkber TYPE bsid-kkber,
          bstat TYPE bsid-bstat,
          umskz TYPE bsid-umskz,
        END OF ty_bsid.
TYPES: BEGIN OF ty_bsik,
         bukrs TYPE bsik-bukrs,
          lifnr TYPE bsik-lifnr,
          belnr TYPE bsik-belnr,
          buzei TYPE bsik-buzei,
          bldat TYPE bsik-bldat,
          blart TYPE bsik-blart,
          bschl TYPE bsik-bschl,
          shkzg TYPE bsik-shkzg,
          dmbtr TYPE bsik-dmbtr,
          augdt TYPE bsik-augdt,
          augbl TYPE bsik-augbl,
          zuonr TYPE bsik-zuonr,
          sgtxt TYPE bsik-sgtxt,
           zfbdt TYPE bsik-zfbdt,
*         KKBER TYPE bsik-kkber,
          zterm TYPE bsik-zterm,
           zbd1t TYPE bsik-zbd1t,
          zbd2t TYPE bsik-zbd2t,
          zbd3t TYPE bsik-zbd3t,
          bstat TYPE bsid-bstat,
          umskz TYPE bsid-umskz,
        END OF ty_bsik.
TYPES: BEGIN OF ty_final,
          belnr TYPE bsid-belnr,
*         buzei TYPE bsak-buzei,
          bldat TYPE bsid-bldat,
          blart TYPE bsid-blart,
          chq TYPE bsid-zuonr,
          debit TYPE bsid-dmbtr,
          credit TYPE bsid-dmbtr,
          txt TYPE bsid-sgtxt,
          date TYPE bsid-zfbdt,
          kkber TYPE bsid-kkber,
          zterm TYPE bsid-zterm,
          augbl TYPE bsid-augbl,
          augdt TYPE bsid-augdt,
          flag TYPE c,
        END OF ty_final.
TYPES : BEGIN OF gs_openbal,
          bukrs TYPE bapi3007_2-comp_code,
          kunnr TYPE bapi3007_2-customer,
          dmbtr TYPE bapi3007_2-lc_amount,
         END OF gs_openbal.
DATA: it_bsid TYPE STANDARD TABLE OF ty_bsid,
       it_bsik TYPE STANDARD TABLE OF ty_bsik,
       it_final TYPE STANDARD TABLE OF ty_final.
DATA: wa_bsid TYPE ty_bsid,
       wa_bsik TYPE ty_bsik,
       wa_final TYPE ty_final.
DATA: w_days TYPE t5a4a-dlydy,
       w_month TYPE t5a4a-dlymo,
       w_year TYPE t5a4a-dlyyr,
       w_date TYPE p0001-begda,
       w_name1 TYPE kna1-name1,
       w_ort01 TYPE kna1-ort01,
       w_lifnr TYPE kna1-lifnr,
       w_dmbtr1 TYPE bsid-dmbtr,
       w_dmbtr2 TYPE bsid-dmbtr,
       w_dmbtr3 TYPE bsad-dmbtr,
       w_dmbtr4 TYPE bsad-dmbtr,
       w_opbal TYPE bsid-dmbtr,
       w_credit TYPE bsik-dmbtr,
       w_debit TYPE bsik-dmbtr,
       w_clobal TYPE bsik-dmbtr,
       w_credit1 TYPE bsik-dmbtr,
       w_debit1 TYPE bsik-dmbtr,
       w_clobal1 TYPE bsik-dmbtr.
DATA: ld_yrper LIKE rwcoom-fiscper,
       kunnr LIKE kna1-kunnr,
       x_norm TYPE c,
       x_park,
       x_apar,
       x_merk,
       ok_code(4),
       wa_x001 LIKE x001,
       return LIKE bapireturn,
       line_count LIKE sy-loopc,
       number_of_records TYPE i,
       xindex LIKE sy-tabix,
       open LIKE knc1-um01s,
       temp(20),
       close LIKE knc1-um01s,
       gjahr LIKE bsid-gjahr,
       period LIKE bkpf-monat,
       f(1),
       v_char(2),
       closec(20),
       openc(20),
       debit LIKE bapi3007_2-lc_amount,
       credit LIKE debit.
DATA : v_dmbtr LIKE bsid-dmbtr.
*DATA : tot_debit LIKE t_ar-debit,
*       tot_credit LIKE t_ar-credit.
DATA : t_kna1 LIKE kna1 OCCURS 1 WITH HEADER LINE,
        t_knb1 LIKE knb1 OCCURS 10 WITH HEADER LINE.
DATA ibsid LIKE bsid OCCURS 0 WITH HEADER LINE.
DATA ibsad LIKE bsad OCCURS 0 WITH HEADER LINE.
DATA ibsik LIKE bsik OCCURS 0 WITH HEADER LINE.
DATA ibsak LIKE bsak OCCURS 0 WITH HEADER LINE.
DATA : it_fieldcat_alv   TYPE slis_t_fieldcat_alv,
        wa_fieldcat_alv     TYPE slis_fieldcat_alv,
        is_layout_alv TYPE slis_layout_alv,
        wa_layout_alv TYPE slis_layout_alv,
        it_list_top_of_page TYPE slis_t_listheader,
        it_events TYPE slis_t_event,
        wa_events TYPE LINE OF slis_t_event.
DATA : BEGIN OF ibukrs OCCURS 0,
           bukrs LIKE t001-bukrs,
          END OF ibukrs.
DATA : BEGIN OF ikunnr1 OCCURS 0,
          kunnr LIKE knc1-kunnr,
         END OF ikunnr1.
DATA : BEGIN OF ikunnr OCCURS 0,
           kunnr LIKE knc1-kunnr,
           bukrs LIKE t001-bukrs,
           lifnr LIKE lfc1-lifnr,
          END OF ikunnr.
DATA: it_sort TYPE slis_t_sortinfo_alv,
       wa_sort TYPE slis_sortinfo_alv.
DATA:    r_bschl TYPE RANGE OF bschl,
          wa_bschl LIKE LINE OF r_bschl.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_kunnr TYPE bsid-kunnr OBLIGATORY,
              p_bukrs TYPE bsid-bukrs OBLIGATORY.
SELECT-OPTIONS: so_budat FOR bsid-budat .
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : p_normal AS CHECKBOX,
              p_spl    AS CHECKBOX,
              p_vendor AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
PERFORM get_data.
PERFORM process_data.
*PERFORM calculate_openbal. " Commented by anish
PERFORM calculate_open_bal.
PERFORM calculate_closing_bal.
PERFORM build_catalog_sort USING it_sort.
PERFORM reuse_alv_events_get .
PERFORM display_data.
*&      Form GET_DATA
*       text
* --> p1        text
* <-- p2        text
FORM get_data .
   SELECT bukrs kunnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t kkber
     bstat umskz FROM bsid
     INTO TABLE it_bsid
     WHERE bukrs = p_bukrs
      AND kunnr = p_kunnr
      AND budat IN so_budat.
   SELECT bukrs kunnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t kkber
    bstat umskz FROM bsad
    APPENDING TABLE it_bsid
    WHERE bukrs = p_bukrs
     AND kunnr = p_kunnr
     AND budat IN so_budat.
   SELECT SINGLE name1 ort01 lifnr FROM kna1
     INTO (w_name1 , w_ort01 , w_lifnr)
     WHERE kunnr = p_kunnr.
   IF p_vendor IS NOT INITIAL.
     SELECT bukrs lifnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t
     bstat umskz   FROM bsik
     APPENDING TABLE it_bsik
     WHERE bukrs = p_bukrs
       AND lifnr = w_lifnr
       AND budat IN so_budat.
     SELECT bukrs lifnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t
     bstat umskz FROM bsak
    APPENDING TABLE it_bsik
    WHERE bukrs = p_bukrs
      AND lifnr = w_lifnr
      AND budat IN so_budat.
   ENDIF.
   SORT it_bsid BY bschl.
   DELETE it_bsid WHERE bschl = '04'.
   DELETE it_bsid WHERE bschl = '07'.
   DELETE it_bsid WHERE bschl = '17'.
   DELETE it_bsid WHERE bschl = '34'.
   DELETE it_bsid WHERE bschl = '27'.
   DELETE it_bsid WHERE bschl = '37'.
   SORT it_bsik BY bschl.
   DELETE it_bsik WHERE bschl = '04'.
   DELETE it_bsik WHERE bschl = '07'.
   DELETE it_bsik WHERE bschl = '17'.
   DELETE it_bsik WHERE bschl = '34'.
   DELETE it_bsik WHERE bschl = '27'.
   DELETE it_bsik WHERE bschl = '37'.
ENDFORM.                    " GET_DATA
*&      Form PROCESS_DATA
*       text
* --> p1        text
* <-- p2        text
FORM process_data .
   DATA:okay       TYPE c VALUE space.
   w_month = '00'.
   w_year = '00'.
   SORT it_bsid BY bldat .
   LOOP AT it_bsid INTO wa_bsid.
     PERFORM check_item_ok USING p_normal
                                  p_spl
                                  p_vendor
*                               x_park
                                  wa_bsid
                            CHANGING okay.
     CHECK okay = 'X'.
     wa_final-belnr = wa_bsid-belnr.
     wa_final-bldat = wa_bsid-bldat.
     wa_final-blart = wa_bsid-blart.
     wa_final-txt = wa_bsid-sgtxt.
     wa_final-kkber = wa_bsid-kkber.
     wa_final-zterm = wa_bsid-zterm.
     wa_final-augbl = wa_bsid-augbl.
     wa_final-augdt = wa_bsid-augdt.
     wa_final-flag = 'C'.
     IF wa_bsid-blart = 'DZ'.
       wa_final-chq = wa_bsid-zuonr.
     ENDIF.
     IF wa_bsid-shkzg = 'S'.
       wa_final-debit = wa_bsid-dmbtr.
     ELSEIF wa_bsid-shkzg = 'H'.
       wa_final-credit = wa_bsid-dmbtr.
     ENDIF.
     w_credit = w_credit + wa_final-credit.
     w_debit = w_debit + wa_final-debit.
****** Net due date
     IF wa_bsid-zbd1t IS NOT INITIAL.
       w_days = wa_bsid-zbd1t.
     ELSEIF wa_bsid-zbd2t IS NOT INITIAL.
       w_days = wa_bsid-zbd2t.
     ELSEIF wa_bsid-zbd3t IS NOT INITIAL.
       w_days = wa_bsid-zbd3t.
     ENDIF.
     IF w_days IS INITIAL.
       wa_final-date = wa_bsid-zfbdt.
     ELSE.
       CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
         EXPORTING
           date      = wa_bsid-zfbdt
           days      = w_days
           months    = w_month
           signum    = '+'
           years     = w_year
         IMPORTING
           calc_date = w_date.
       wa_final-date = w_date.
     ENDIF.
     APPEND wa_final TO it_final.
     CLEAR: w_days , w_date , wa_final .
   ENDLOOP.
   IF it_bsik IS NOT INITIAL.
     CLEAR: w_days , w_date.
     SORT it_bsik BY bldat.
     LOOP AT it_bsik INTO wa_bsik.
       wa_final-belnr = wa_bsik-belnr.
       wa_final-bldat = wa_bsik-bldat.
       wa_final-blart = wa_bsik-blart.
       wa_final-txt = wa_bsik-sgtxt.
*    wa_final-kkber = wa_bsik-kkber.
       wa_final-zterm = wa_bsik-zterm.
       wa_final-augbl = wa_bsik-augbl.
       wa_final-augdt = wa_bsik-augdt.
       wa_final-flag = 'V'.
       IF wa_bsik-blart = 'DZ'.
         wa_final-chq = wa_bsik-zuonr.
       ENDIF.
       IF wa_bsik-shkzg = 'S'.
         wa_final-debit = wa_bsik-dmbtr.
       ELSEIF wa_bsik-shkzg = 'H'.
         wa_final-credit = wa_bsik-dmbtr.
       ENDIF.
       w_credit1 = w_credit1 + wa_final-credit.
       w_debit1 = w_debit1 + wa_final-debit.
******* Net Due date
       IF wa_bsik-zbd1t IS NOT INITIAL.
         w_days = wa_bsik-zbd1t.
       ELSEIF wa_bsik-zbd2t IS NOT INITIAL.
         w_days = wa_bsik-zbd2t.
       ELSEIF wa_bsik-zbd3t IS NOT INITIAL.
         w_days = wa_bsik-zbd3t.
       ENDIF.
       IF w_days IS INITIAL.
         wa_final-date = wa_bsik-zfbdt.
       ELSE.
         CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
           EXPORTING
             date      = wa_bsik-zfbdt
             days      = w_days
             months    = w_month
             signum    = '+'
             years     = w_year
           IMPORTING
             calc_date = w_date.
       ENDIF.
       wa_final-date = w_date.
       APPEND wa_final TO it_final.
       CLEAR: wa_final.
     ENDLOOP.
   ENDIF.
ENDFORM.                    " PROCESS_DATA
*&      Form DISPLAY_DATA
*       text
* --> p1        text
* <-- p2        text
FORM display_data .
   wa_fieldcat_alv-fieldname = 'BELNR'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-003.
   wa_fieldcat_alv-outputlen = '11'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'BLDAT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-004.
   wa_fieldcat_alv-outputlen = '13'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'BLART'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-005.
   wa_fieldcat_alv-outputlen = '02'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'CHQ'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-006.
   wa_fieldcat_alv-outputlen = '09'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'DEBIT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-007.
   wa_fieldcat_alv-outputlen = '15'.
   wa_fieldcat_alv-do_sum = 'X'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'CREDIT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-008.
   wa_fieldcat_alv-outputlen = '15'.
   wa_fieldcat_alv-do_sum = 'X'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'TXT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-009.
   wa_fieldcat_alv-outputlen = '50'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'DATE'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-010.
   wa_fieldcat_alv-outputlen = '12'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'KKBER'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-011.
   wa_fieldcat_alv-outputlen = '04'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'ZTERM'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-012.
   wa_fieldcat_alv-outputlen = '13'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'AUGBL'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-013.
   wa_fieldcat_alv-outputlen = '15'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'AUGDT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-014.
   wa_fieldcat_alv-outputlen = '17'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'FLAG'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-tech = 'X'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program             = sy-repid
      is_layout                      = wa_layout_alv
      it_fieldcat                    = it_fieldcat_alv
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
      it_sort                        = it_sort
      it_events                      = it_events
      i_save                            = 'A'
     TABLES
       t_outtab                       = it_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.
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*    EXPORTING
*      i_callback_program                = sy-repid
*     i_callback_top_of_page            = 'TOP_OF_PAGE'
*      is_layout                         = wa_layout_alv
*      it_fieldcat                       = it_fieldcat_alv
*      it_sort                           = it_sort
***   I_DEFAULT                         = 'X'
**      i_save                            = 'A'
***   IT_EVENTS                         =
*     TABLES
*       t_outtab                          = it_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_DATA
*&      Form TOP_OF_PAGE
*       Header at top of page.
FORM top_of_page.
   SKIP 1.
   WRITE: AT 35 'Account Statement from' , so_budat-low , 'to' , so_budat-high.
   SKIP 2.
   WRITE: AT /5 'CUSTOMER:' , p_kunnr.
   WRITE: AT 35 'Name:' , w_name1.
   WRITE: AT /5 'Company:' , p_bukrs.
   WRITE: AT 35 'City:' , w_ort01.
   SKIP 1.
   WRITE: AT /5 'Opening Balance as on' , so_budat-low , '   ' , w_opbal LEFT-JUSTIFIED.
   SKIP 2.
ENDFORM.                    "TOP_OF_PAGE
*&      Form END_OF_PAGE
*       Footer at End of page.
FORM end_of_page.
   SKIP 2.
   IF so_budat-high IS NOT INITIAL.
     WRITE: AT 5 'Closing Balance as on' , so_budat-high , '   ' , w_clobal LEFT-JUSTIFIED.
   ELSE.
     WRITE: AT 5 'Closing Balance ' , w_clobal LEFT-JUSTIFIED.
   ENDIF.
ENDFORM.                    "end_of_page
*&      Form CALCULATE_OPENBAL
*       text
* --> p1        text
* <-- p2        text
FORM calculate_openbal .
   DATA:v_gjahr       TYPE bsid-gjahr.
   DATA: v_period LIKE t009b-poper,v_monat LIKE t001-periv.
   CALL FUNCTION 'FI_PERIOD_DETERMINE'
          EXPORTING
               i_budat        = so_budat-low
               i_bukrs        = p_bukrs
*           I_PERIV        = ' '
*           I_GJAHR        = 0000
*           I_MONAT        = 00
*           X_XMO16        = ' '
          IMPORTING
               e_gjahr        = v_gjahr
*            e_monat        = v_monat
               e_poper        = v_period.
   IF sy-subrc NE 0.
   ENDIF.
   DATA: f_date LIKE sy-datum.
   CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
     EXPORTING
       i_gjahr = v_gjahr
       i_monmit = 00
       i_periv = 'V3'
       i_poper = v_period
     IMPORTING
       e_date   = f_date.
   period = v_period - 1.
   gjahr = v_gjahr.
   DATA wa_kna1 LIKE kna1.
   CALL FUNCTION 'READ_KNA1'
     EXPORTING
       xkunnr         = p_kunnr
     IMPORTING
       xkna1          = wa_kna1
     EXCEPTIONS
       key_incomplete = 1
       not_authorized = 2
       not_found      = 3
       OTHERS         = 4.
   IF sy-subrc <> 0.
     MESSAGE w023(zwww).
     CALL SCREEN 0010.
   ENDIF.
   MOVE-CORRESPONDING wa_kna1 TO t_kna1.
   APPEND t_kna1.
   SELECT kunnr FROM kna1 INTO TABLE ikunnr1
     WHERE kunnr = p_kunnr.
   SELECT bukrs FROM t001 INTO TABLE ibukrs
    FOR ALL ENTRIES IN t_knb1
    WHERE bukrs = t_knb1-bukrs.
   LOOP AT ikunnr1.
     LOOP AT ibukrs.
       ikunnr-kunnr = ikunnr1-kunnr.
       ikunnr-bukrs = ibukrs-bukrs.
       READ TABLE t_kna1 WITH KEY kunnr = ikunnr1-kunnr.
       ikunnr-lifnr = t_kna1-lifnr.
       APPEND ikunnr.
     ENDLOOP.
   ENDLOOP.
   DELETE ikunnr WHERE bukrs NE p_bukrs.
   LOOP AT ikunnr.
     CLEAR: knc1,lfc1,f.
     IF NOT ( ikunnr-kunnr IS INITIAL ) AND NOT ( p_vendor IS INITIAL ).
       SELECT SINGLE * FROM lfc1
              WHERE gjahr = gjahr AND bukrs = ikunnr-bukrs
                                  AND lifnr = ikunnr-lifnr.
     ENDIF.
     SELECT SINGLE * FROM knc1
       WHERE gjahr = gjahr AND bukrs = p_bukrs
             AND kunnr = p_kunnr.
     IF sy-subrc = 0.
       CASE period .
         WHEN 12.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h + knc1-um10s - knc1-um10h +
           knc1-um11s - knc1-um11h + knc1-um12s - knc1-um12h.
           IF NOT ( lfc1 IS INITIAL ).
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h + lfc1-um10s - lfc1-um10h +
             lfc1-um11s - lfc1-um11h + lfc1-um12s - lfc1-um12h.
           ENDIF.
         WHEN 11.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h + knc1-um10s - knc1-um10h +
           knc1-um11s - knc1-um11h.
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h + lfc1-um10s - lfc1-um10h +
             lfc1-um11s - lfc1-um11h.
           ENDIF.
         WHEN 10.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h + knc1-um10s - knc1-um10h .
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h + lfc1-um10s - lfc1-um10h.
           ENDIF.
         WHEN 9.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h .
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h.
           ENDIF.
         WHEN 8.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h.
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h .
           ENDIF.
         WHEN 7.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h .
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um

Forms Personalization issue - Default GRE on Tax Balances form

Similar Messages

Maybe you are looking for