VERY URGENT: Certification of Reports 6i for Windows XP

Hello !!!
We have a cust. which is delivering software for small comunities in
Germany. They are handling about 4500 Users and they have 1 Mio. $
licenses in DB and reports.
the problem is: the customer can't upgrade to
reports 9i, because reports is embedded in a client/server application.
They would need some more time to do the upgrade.
Having reports on the web would bring some authentication problems.
The user will authenticate in the client/server application. But the user
shouldn't know the login to the database for the reports.
Portal and SSO Server are no acceptable solutions for the customer,
because this would require an additional oracle database. They are selling
their application to their customer who have databasese like Informix, DB/2
or SQL Server and don't want an additional database. So they can't go this
way. Having a Kay-map File (cgicmd.dat) ist also not acceptable for the
customer, because the username/password would appear there in clear text and
they already decided, that they won't accept this. OS permissions are
no solution, because most of their customers have an insecure Microsoft
Windows environment, even for the server.
So they are in a situation, that they can't upgrade immediately to
Web-Reports and need some more time.
Unfortunately many of their customers
come with XP computers and they would have to say that they have to
downgrade to Windows 2000 or loose this customer.
There have been some rumours about patch 11 for the certification. This
was rejected. Then Patch 12. Anotherone said it willl be Patch 13.
Another rumour stated that development isn't planing this certification anymore.
These statements are only made for Forms6i. Does they apply to reports6i
also ???
We urgently need an official statement for our customers.
If the certification is only in Patch 13 in December we will realize some
million $ looses. This special customer won't accept this very long delay.
Many Thanks ind advance
Rainer

Certification is on its way.
Frank

Similar Messages

  • URGENT: Certification of Reports 6i for Windows XP

    Hello !!!
    We have a cust. which is delivering software for small comunities in
    Germany. They are handling about 4500 Users and they have 1 Mio. $
    licenses in DB and reports.
    the problem is: the customer can't upgrade to
    reports 9i, because reports is embedded in a client/server application.
    They would need some more time to do the upgrade.
    Having reports on the web would bring some authentication problems.
    The user will authenticate in the client/server application. But the user
    shouldn't know the login to the database for the reports.
    Portal and SSO Server are no acceptable solutions for the customer,
    because this would require an additional oracle database. They are selling
    their application to their customer who have databasese like Informix, DB/2
    or SQL Server and don't want an additional database. So they can't go this
    way. Having a Kay-map File (cgicmd.dat) ist also not acceptable for the
    customer, because the username/password would appear there in clear text and
    they already decided, that they won't accept this. OS permissions are
    no solution, because most of their customers have an insecure Microsoft
    Windows environment, even for the server.
    So they are in a situation, that they can't upgrade immediately to
    Web-Reports and need some more time.
    Unfortunately many of their customers
    come with XP computers and they would have to say that they have to
    downgrade to Windows 2000 or loose this customer.
    There have been some rumours about patch 11 for the certification. This
    was rejected. Then Patch 12. Anotherone said it willl be Patch 13.
    Another rumour stated that development isn't planing this certification anymore.
    These statements are only made for Forms6i. Does they apply to reports6i
    also ???
    We urgently need an official statement for our customers.
    If the certification is only in Patch 13 in December we will realize some
    million $ looses. This special customer won't accept this very long delay.
    Many Thanks ind advance
    Rainer
    \\|//
    -----------------------------ooO-(_)-Ooo-------------------------------------------------
    O R A C L E Rainer Sch|tz
    Sales Consultant
    Server Technology Competence Center M|nchen
    Oracle Deutschland GmbH Riesstr. 25 Telefon +49-89-1430-1582
    80992 M|nchen Fax +49-89-1430-1572
    Handy +49-177-5940-848
    Email [email protected]
    It is more difficult to shatter a preconceived idea than splitting an atom.
    Es ist schwieriger eine vorgefa_te Meinung zu zertr|mmern als ein Atom.
    (Albert Einstein)

    Certification is on its way.
    Frank

  • 4th try: Certification of Reports 6i for Windows XP

    Hello !!!
    We have a cust. which is delivering software for small comunities in
    Germany. They are handling about 4500 Users and they have 1 Mio. $
    licenses in DB and reports.
    the problem is: the customer can't upgrade to
    reports 9i, because reports is embedded in a client/server application.
    They would need some more time to do the upgrade.
    Having reports on the web would bring some authentication problems.
    The user will authenticate in the client/server application. But the user
    shouldn't know the login to the database for the reports.
    Portal and SSO Server are no acceptable solutions for the customer,
    because this would require an additional oracle database. They are selling
    their application to their customer who have databasese like Informix, DB/2
    or SQL Server and don't want an additional database. So they can't go this
    way. Having a Kay-map File (cgicmd.dat) ist also not acceptable for the
    customer, because the username/password would appear there in clear text and
    they already decided, that they won't accept this. OS permissions are
    no solution, because most of their customers have an insecure Microsoft
    Windows environment, even for the server.
    So they are in a situation, that they can't upgrade immediately to
    Web-Reports and need some more time.
    Unfortunately many of their customers
    come with XP computers and they would have to say that they have to
    downgrade to Windows 2000 or loose this customer.
    There have been some rumours about patch 11 for the certification. This
    was rejected. Then Patch 12. Anotherone said it willl be Patch 13.
    Another rumour stated that development isn't planing this certification anymore.
    These statements are only made for Forms6i. Does they apply to reports6i
    also ???
    We urgently need an official statement for our customers.
    If the certification is only in Patch 13 in December we will realize some
    million $ looses. This special customer won't accept this very long delay.
    Many Thanks ind advance
    Rainer

    Frank

  • 3rd try: Certification of Reports 6i for Windows XP

    Hello !!!
    We have a cust. which is delivering software for small comunities in
    Germany. They are handling about 4500 Users and they have 1 Mio. $
    licenses in DB and reports.
    the problem is: the customer can't upgrade to
    reports 9i, because reports is embedded in a client/server application.
    They would need some more time to do the upgrade.
    Having reports on the web would bring some authentication problems.
    The user will authenticate in the client/server application. But the user
    shouldn't know the login to the database for the reports.
    Portal and SSO Server are no acceptable solutions for the customer,
    because this would require an additional oracle database. They are selling
    their application to their customer who have databasese like Informix, DB/2
    or SQL Server and don't want an additional database. So they can't go this
    way. Having a Kay-map File (cgicmd.dat) ist also not acceptable for the
    customer, because the username/password would appear there in clear text and
    they already decided, that they won't accept this. OS permissions are
    no solution, because most of their customers have an insecure Microsoft
    Windows environment, even for the server.
    So they are in a situation, that they can't upgrade immediately to
    Web-Reports and need some more time.
    Unfortunately many of their customers
    come with XP computers and they would have to say that they have to
    downgrade to Windows 2000 or loose this customer.
    There have been some rumours about patch 11 for the certification. This
    was rejected. Then Patch 12. Anotherone said it willl be Patch 13.
    Another rumour stated that development isn't planing this certification anymore.
    These statements are only made for Forms6i. Does they apply to reports6i
    also ???
    We urgently need an official statement for our customers.
    If the certification is only in Patch 13 in December we will realize some
    million $ looses. This special customer won't accept this very long delay.
    Many Thanks ind advance
    Rainer

    Frank

  • Very urgent --pls help Report Painter Problem,

    Hi to all,
    I have created  5 operating expenses report by cost centres through report painter. some for full period , some for actual and sone for budget.
    Under one set of that cost centre reports I have many subsets under which there are cost centre groups and then the cost centres.
    I want to add one more set to existing set. I have added the set and set contains one cost centre group and their are also cost centres under it.
    The table  which i am using for cost centre grous is GLT1 and field is RCNTR and for cost centres it is CCSS and KOSTL respectively.
    In the above procedure I have two queries.
    1)even after adding the set and when i try to execute the report from T- code SERP it doesnot show my created set in variation.
    2)Also even if it was showing the set earlier but report was showing zero values. When i clicked on zero amount a pop up arises for plan and actual values and when i clicked on plan values it had value of Rs 255000(for cost centres). then outside why this amount doesnot appears.
    PLS THIS IS VERY VERY URGENT
    Regards
    TANUJA

    I've just read this thread three times and I have absolutely no idea what you are doing, in what version, and what you are asking for help with.
    Do you want to change the message type? If you do you MUST drop the queue and start over again from the beginning.
    Do you want to enqueue messages?
    Post your DDL and other relevant information or you are on your own. We can not guess at your issue.

  • Oracle Forms and Reports 10gR2 for Windows Server 2008 (64bit)

    Hi!
    I need to install Oracle Forms and Reports 10gR2 in a windows server 2008 64 bit machine. But I cannot find the installer of it. Is there a way to do it?
    Thanks...

    I need to install Oracle Forms and Reports 10gR2 in a windows server 2008 64 bit machine.Be aware that Oracle Forms and Reports 10gR2 (AS 10.1.2.0.2) is not certified for windows server 2008, as from Oracle Certification Matrices

  • Very urgent: Can't create LSMW for PO service item

    Hi all,
    I created LSMW for PO service(Item cat ="D") by using BAPI
    ( Business object: BUS2012, Method:CREATEFROMDATA1, Message Type:PORDCR1 and Basic Type: PORDCR102)
    This below is my source filed.
    POHDR
      PO_NUMBER
        POITEM
          PO_NUMBER
          PO_ITEM
              SERVICE-ITEM
                 PO_NUMBER
                 PO_ITEM
                Activity Item
                Activity Number
                  ACC_ASSIGN
                  PO_NUMBER
                  PO_ITEM
                  Activity Item
                  Activity Number
                  Sequence Number
    After i started idoc i got the message Message no. SE518 (No account assignment exists for service line 0000000010)
    How can i slove this problem?
    Thank you,
    Duanchai

    so you consider this closed?
    Very urgent: LSMW

  • Download forms and reports 6i for Windows XP

    hi guys,
    I have just installed Windows XP, then I installed the Forms 6i, but I can't connect to the Oracle 9i DB,
    the Net Easy Config is OK, Easy Config can test the connectioin successfully.
    I try to download the latest Form 6i from the download sites, but I can only find Linux, Unix, NT version.
    I am wondering are there any Forms 6i for Windows XP or 98, or just not let us download them ???

    yes

  • New 60GB iPod very slow in updating with iTunes for Windows

    I just purchased my first iPod, the new 60GB model. I imported all my music into iTunes from a music server connected to my home network. Although the import took a very long time, it all imported succesfully.
    When initially connecting my iPod, its litearlly took all night (several hours) to get all the music into my iPod. It was 6000 songs and 40GB.
    Now evertime I connect my iPod to my PC, it takes about 45-60 minutes to update, even though no changes were made to the music in the library.
    Is this normal? For it to take that long to update every time I connect? I know I can shut off the automatic update, but this seems like a very long time, and there may be something wrong.
    I have a new Windows XP PC with 2GB of memory, a fast processor, and I am connecting to the front USB 2.0 port. I have made sure I have all the updated iPod and iTunes software, and I have reset the iPod several times.
    If anyone can help, I would appreciate it. Thanks.
      Windows XP  

    Yes, it does say update in progress, but doesnt show it copying any songs (when there are no new songs), and it does eventually finish and let me disconnect properly, its just take forever...
    I am connected directly to a USB 2.0 port in the front of my PC. I do not have a USB hub, though 6 out of my 7 USB ports are occupied (keyboard, mouse, printer, etc).
    evertime I connect my iPod to
    my PC, it takes about 45-60 minutes to update, even
    though no changes were made to the music in the
    library.
    During these updates, does iTunes show "update in
    progress" messages in the iTunes "LCD" display? Does
    it eventually show a message about copying files to
    the iPod? 45-60 minutes is too long if no files are
    getting loaded into the iPod.
    Are you connected directly to the USB port, or going
    through a USB hub? Any other USB devices connected
    at the same time?

  • VERY URGENT:REGARDING ALV REPORT

    HI,
    I am making Interactive alv report in which i have to display 3 views in a single report i.e.
    1.) I  have to display :-
    RAW MATERIAL      DAYS
    BOP                        DAYS
    Here days are the difference b/w the Material Doc. Date and Requsition Approval date.
    (which  i have already calculated.)
    2.) When i double click the raw material or bop option then material no and days are to be dislplayed.
    3.)  After double clicking the material then the its migo status and requsition status to be dislplayed .(this thing i had performed )
    My main problem is dat i have to write it all in a single ALV but its little confusing to me as i am doing this kind of report for first time.
    If anybody provide me useful or solved awnser ,he or she will be definately rewarded.
    Message was edited by:
            ric .s

    hi ric.s
    check this prog
    *& Report  ZSAMP_INTERCTIVE                                            *
    REPORT  zsamp_interctive                        .
    TABLES: mara,vbap.
    DATA : BEGIN OF itab OCCURS 0,
           matnr LIKE mara-matnr,
           ernam LIKE mara-ernam,
           END OF itab.
    DATA :  BEGIN OF itab1 OCCURS 0,
            matnr LIKE vbap-matnr,
            vbeln LIKE vbap-vbeln,
            END OF itab1.
    DATA: fld(20) TYPE c,val LIKE mara-matnr .
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
    SELECT-OPTIONS: m FOR mara-matnr OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK blk1.
    *AT SELECTION-SCREEN ON m.
    SELECT SINGLE matnr FROM mara INTO mara-matnr WHERE matnr = m.
    IF sy-subrc NE 0.
       MESSAGE e000(zz) WITH 'invalid ' mara-matnr 'in your ' 'selection'.
    ENDIF.
    START-OF-SELECTION.
      SELECT matnr ernam INTO TABLE itab FROM mara WHERE matnr IN m.
      SELECT matnr vbeln INTO TABLE itab1 FROM vbap FOR ALL ENTRIES IN itab
      WHERE matnr = itab-matnr.
    END-OF-SELECTION.
      LOOP AT itab.
        WRITE:/20 itab-matnr,40 itab-ernam.
       hide itab-matnr.
        CLEAR itab-matnr.
      ENDLOOP.
    AT LINE-SELECTION.
      GET CURSOR FIELD fld  VALUE val.
      CASE fld.
        WHEN 'ITAB-MATNR'.
          WRITE:/ val.
      ENDCASE.
      CASE sy-lsind.
        WHEN '1'.
          SET PF-STATUS 'XX2'.
          SET TITLEBAR 'XX2'.
          IF itab1[] IS INITIAL.
            WRITE:/ 'no data found for itab1 in first secondary list'.
          ENDIF.
          LOOP AT itab1.
            WRITE:/30 itab1-matnr,60 itab1-vbeln.
           hide itab1-matnr.
          ENDLOOP.
        WHEN '2'.
          SET PF-STATUS 'XX2'.
          SET TITLEBAR 'XX2'.
          LOOP AT itab.
            WRITE:/30 itab-matnr,60 itab-ernam.
          ENDLOOP.
      ENDCASE.
    AT USER-COMMAND.
      CASE sy-ucomm.
        WHEN 'SET'.
          IF sy-lsind = 1.
            WINDOW STARTING AT 5 3 ENDING AT 40 10.
            WRITE 'Select line for a second window'.
          ELSEIF sy-lsind = 2.
            WINDOW STARTING AT 45 10 ENDING AT 60 12.
            WRITE 'Last window'.
          ENDIF.
        WHEN 'BACK'.
        sy-lsind = sy-lsind - 1.
        WHEN 'ABC'.
          WRITE:/ 'iam great'.
       WHEN 'DOWNLOAD'.
          CALL FUNCTION 'GUI_DOWNLOAD'
            EXPORTING
            BIN_FILESIZE                    =
              filename                        = 'c:\temp.txt'
              filetype                        = 'DAT'
            TABLES
              data_tab                        = itab
           FIELDNAMES                      =
           EXCEPTIONS
             file_write_error                = 1
             no_batch                        = 2
             gui_refuse_filetransfer         = 3
             invalid_type                    = 4
             no_authority                    = 5
             unknown_error                   = 6
             header_not_allowed              = 7
             separator_not_allowed           = 8
             filesize_not_allowed            = 9
             header_too_long                 = 10
             dp_error_create                 = 11
             dp_error_send                   = 12
             dp_error_write                  = 13
             unknown_dp_error                = 14
             access_denied                   = 15
             dp_out_of_memory                = 16
             disk_full                       = 17
             dp_timeout                      = 18
             file_not_found                  = 19
             dataprovider_exception          = 20
             control_flush_error             = 21
             OTHERS                          = 22.
          IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.
      ENDCASE.
    TOP-OF-PAGE DURING  LINE-SELECTION.
      CASE sy-lsind.
        WHEN '1'.
          WRITE:/ 'this is secondary list'.
      ENDCASE.

  • Forms 6i and Reports 6i for Window Vista

    Dear!
    How can I find out the software of Oracle Forms 6i & Oracle Reports 6i & Oracle Database 9i which supports Windows Vista 32-bit Edition.
    Please Helpme...

    Paul M. wrote:
    Why so old (and desupported) products ?Because they work?
    I've known sites that don't upgrade until the version they're upgrading to is desupported - at that point it's mature and has almost all the bugs found and either fixed or workarounds identified.
    Another possibility is that their application relies on features of client/server, and 6i is the last client/server version.
    We're still using Forms 6i for a combination of those two reasons. Client/Server will rise again! After all, dumb terminals have made a comeback (sorry, it's called webforms these days).
    :)

  • Very Urgent! Print Report output to local printer on button click in form

    In Sales Order Form there is a print receipt button. In current situation On Clicking the 'Print Receipt Button' it submits a XML Publisher report(PDF output) to the concurrent manager. Currently to print that report i need to go view--> requests--> view output and then print. According to my new Requirement i need to print that report directly to local printer on one simple Print receipt button click in form.
    I am trying to call the printers on server using custom.pll. The report is running successfully but it is not printing output to the local printer. I need to print the report to the local printers based on responsibility. Local printers are available on apps server. Can anyone help me on this issue ASAP.
    Is it possible to print the document using custom.pll? Is there any other alternative to print the report on simple button click in form.
    Environment: Apps 11.5.10.2, Forms 6i
    Here is the code that i am using in my custom.pll.
    if (v_form_name = 'OEXOETEL' --and v_block_name = 'LINES_SUMMARY'
         and name_in('parameter.ACTIONS') = 'PAYMENT_RECEIPT' )THEN
    l_organization_id := Name_In('PARAMETER.OE_ORGANIZATION_ID');
    l_order_header_id := Name_In('ORDER.header_id');
    select to_number(oe_sys_parameters.value ('SET_OF_BOOKS_ID')) into l_sob_id from dual;
    xml_layout := FND_REQUEST.ADD_LAYOUT('XXAFP','XXAFPOEXPMTRCRTF','en','US','PDF');
    select a.profile_option_value
    into v_printer_name     
    from fnd_profile_option_values a
    , fnd_profile_options b
    , fnd_profile_options_tl c
    , fnd_user fu
    where a.profile_option_id = b.profile_option_id
    and c.profile_option_name = b.profile_option_name
    and fu.user_id (+) = a.level_value
    and c.language = 'US'
    and c.user_profile_option_name='Printer'
    and a.level_id = 10003 ;
    if (FND_SUBMIT.SET_PRINT_OPTIONS(v_printer_name, 'Portrait', 2, TRUE, 'N'))
         then
    l_new_request_id := FND_REQUEST.SUBMIT_REQUEST('XXAFP','XXAFPOEXPMTRC',
    null,null,FALSE,l_sob_id,l_organization_id,NULL,NULL,l_order_header_id,
    chr(0), '', '', '', '', '', '', '', '', '', '',
    end if;
    fnd_message.set_string('Request Submitted for Custom Payment Receipt. Request ID is '||l_new_request_id);
    fnd_message.show;
    copy('NULL','parameter.ACTIONS');
    IF (l_new_request_id = 0) THEN
    FND_MESSAGE.RETRIEVE;
    FND_MESSAGE.ERROR;
    else
    l_commit_result := APP_FORM.QuietCommit;
    END IF;
    I need to complete this requirement immediately. Can anyone suggest me better ways in doing this.
    Thanks,
    Srinivas

    I solved this problem myself using shell script through custom.pll. I wrote shellscript and called that shellscript through FND_REQUEST.SUBMIT_REQUEST.It printed 2 copies to local printer.

  • Very  urgent- find parent-child relationship for wbs element

    Hi,
    There is a certain parent child heirachy in WBS elements.My requiremnet is to delete WBS element depending on certain field , say depending on some ""status"".If the status is active in some or any of the child then I am not suppose to delete its respective parent too. This parent-child relation can have say 5 levels.
    For this I require a logic /program which shall maintain the parent reference for that particular child whih I want/ dont want to delete.
    I am maintaining bottom- to -top approach.
    That is I shall be checking for the status of the lowest level of WBS and then  going to the highest.
    Please Help!
    Kshitija

    hi you can use following code....
    REPORT  zpmgmt_rpt_projinfo NO STANDARD PAGE HEADING LINE-SIZE  160.
    *& Includes
    INCLUDE <icon>.
    INCLUDE zdata_declare_n.  " include for data declaration
    INCLUDE zsubr_n.          " include for both subroutines
    DATA: gv_index LIKE sy-tabix,
          lv_index LIKE sy-tabix,
          date_index TYPE sy-tabix.
    *& Start of Selection ( Get Data )
    START-OF-SELECTION.
    For initial display cnt is set to X
      IF cnt EQ 'X'.
        PERFORM getdata.
        CLEAR it_final.
        PERFORM hierarchy.
        cnt = ''.
      ENDIF.
    *&      Form  GETDATA
    Fetches the data and logic for T1 and T2
    -->  p1        text
    <--  p2        text
    FORM getdata.
    Getting project header data
      SELECT * FROM proj
        INTO CORRESPONDING FIELDS OF TABLE it_proj
        WHERE pspid IN so_posid
        AND werks IN so_plant
        AND stort IN so_loc
        AND erdat IN so_date.
      IF sy-subrc <> 0.
        MESSAGE 'Enter the valid entry' TYPE 'I'.
        STOP.
      ENDIF.
      LOOP AT it_proj.
        PROJECT = it_proj-pspid.
    Get project & WBS element details
    BAPI used gives the output in some specific format
    which is used for roll-up logic.
        CALL FUNCTION 'BAPI_PROJECT_GETINFO'
         EXPORTING
            project_definition           = project
            with_activities              = 'X'
         IMPORTING
            e_project_definition         = e_project_definition
         TABLES
            e_wbs_hierarchie_table       = e_wbs_hierarchie_table.
    Appending all the projects in the e_wbs.
            LOOP AT e_wbs_hierarchie_table.
              MOVE-CORRESPONDING e_wbs_hierarchie_table TO e_wbs.
              APPEND e_wbs.
              CLEAR e_wbs.
            ENDLOOP.
        CLEAR PROJECT.
      ENDLOOP.
      SET COUNTRY 'US'.
      i_repid = sy-repid.
    Getting data into internal tables
    Getting project WBS element
      SELECT * FROM prps
        INTO CORRESPONDING FIELDS OF TABLE it_prps
        FOR ALL ENTRIES IN it_proj
        WHERE psphi = it_proj-pspnr.
    Getting project activities
      SELECT * FROM afvc
        INTO CORRESPONDING FIELDS OF TABLE it_afvc
        FOR ALL ENTRIES IN it_prps
        WHERE projn = it_prps-pspnr.
      SORT it_afvc BY vornr.
    Getting activities start & end dates from AFVV
      SELECT * FROM afvv
       INTO CORRESPONDING FIELDS OF TABLE it_afvv
       FOR ALL ENTRIES IN it_afvc
       WHERE aufpl = it_afvc-aufpl
       AND aplzl = it_afvc-aplzl.
    Getting plant name
      SELECT * FROM t001w
        INTO CORRESPONDING FIELDS OF TABLE it_t001w
        FOR ALL ENTRIES IN it_proj
        WHERE werks = it_proj-werks.
    Logic for passing data to final internal table
    Passing Project master data
      READ TABLE it_proj INDEX 1.
      IF sy-subrc EQ 0.
        CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
          EXPORTING
            input  = it_proj-pspid
          IMPORTING
            output = it_proj-pspid.
        it_final-posid = it_proj-pspid.
        it_final-post1 = it_proj-post1.
        APPEND it_final.
        CLEAR it_final.
      ENDIF.
    Passing WBS element to the final internal table IT_FINAL
      LOOP AT it_prps.
        CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
          EXPORTING
            input  = it_prps-posid
          IMPORTING
            output = it_prps-posid.
         CLEAR color.
    Get WBS element status ans color(T2)from OBJNR
        CALL FUNCTION 'ZGET_STATUS_N'
          EXPORTING
            objnr    = it_prps-objnr
          IMPORTING
            color    = color
          TABLES
            t_status = it_tj30t.
        IF     color = 'RED'.
          it_final-t2 = '@0A@'.
        ELSEIF color = 'YELLOW'.
          it_final-t2 = '@09@'.
        ELSEIF color = 'GREEN'.
          it_final-t2 = '@08@'.
        ENDIF.
        SORT it_tj30t DESCENDING.
    Getting User statuses of WBS element at component level.
        READ TABLE it_tj30t INDEX 1.
        IF sy-subrc EQ 0.
          CONCATENATE it_tj30t-txt04 '' INTO it_final-txt04 SEPARATED BY  space.
        ENDIF.
        READ TABLE it_tj30t INDEX 2.
        IF sy-subrc EQ 0.
          CONCATENATE it_tj30t-txt04 it_final-txt04 INTO it_final-txt04  SEPARATED BY space.
        ENDIF.
        MOVE-CORRESPONDING it_prps TO it_final.
        READ TABLE it_proj WITH KEY pspid = it_prps-posid.
        IF sy-subrc EQ 0.
          it_final-werks = it_proj-werks.
        ENDIF.
        APPEND it_final.
        CLEAR  it_final-txt04.
    Passing activity to the final internal table IT_FINAL
        LOOP AT it_afvc WHERE projn EQ it_prps-pspnr.
          CLEAR color.
    Getting user status and color(T2) for Activity from OBJNR
          CALL FUNCTION 'ZGET_STATUS_N'
            EXPORTING
              objnr    = it_afvc-objnr
            IMPORTING
              color    = color
            TABLES
              t_status = it_tj30t.
          IF     color = 'RED'.
            it_final-t2 = '@0A@'.
          ELSEIF color = 'YELLOW'.
            it_final-t2 = '@09@'.
          ELSEIF color = 'GREEN'.
            it_final-t2 = '@08@'.
          ENDIF.
          CLEAR: it_final-fsavd,
                 it_final-fssad.
          MOVE-CORRESPONDING it_afvc TO it_final.
    Getting User statuses of WBS element at activity level.
          SORT it_tj30t DESCENDING.
          READ TABLE it_tj30t INDEX 1.
          IF sy-subrc EQ 0.
            CONCATENATE it_tj30t-txt04 '' INTO it_final-txt04 SEPARATED  BY space.
          ENDIF.
          READ TABLE it_tj30t INDEX 2.
          IF sy-subrc EQ 0.
            CONCATENATE it_tj30t-txt04 it_final-txt04 INTO it_final-txt04  SEPARATED BY space.
          ENDIF.
          APPEND it_final.
          lv_index = sy-tabix.
          CLEAR it_final-txt04.
          CLEAR it_final-ltxa1.
          CLEAR it_tj30t.
          REFRESH it_tj30t.
    Start Date and End Date fetched from AFVV.
          LOOP AT it_afvv  WHERE   aufpl  EQ it_afvc-aufpl
                              AND   aplzl EQ it_afvc-aplzl.
            MOVE-CORRESPONDING it_afvv TO it_final.
            MODIFY it_final INDEX lv_index TRANSPORTING fsavd fssad.
          ENDLOOP.
          CLEAR it_afvc.
          CLEAR lv_index.
        ENDLOOP.
      ENDLOOP.
    Logic for T1.
    T1 is based on T2 and start date and end date of activities.
      LOOP AT it_final WHERE stufe = 3
                       AND ltxa1 IS NOT INITIAL.
        gv_index = sy-tabix.
        PERFORM date_difference.
        CASE it_final-t2.
          WHEN '@0A@'.     "  If Red
            IF sy-datum GT it_final-fssad.
              it_final-t1 = '@0A@'.
            ELSEIF sy-datum LE it_final-fssad AND
                   sy-datum GE it_final-fsavd.
              IF gv_diff > 1.
                PERFORM date_monitor.
              ENDIF.
              it_final-t1 = '@09@'.
            ELSEIF
              sy-datum LT it_final-fsavd.
              it_final-t1 = '@08@'.
            ENDIF.
          WHEN '@09@'.     " If Yellow
            IF sy-datum GT it_final-fssad.
              it_final-t1 = '@0A@'.
            ELSEIF sy-datum LE it_final-fssad AND
                   sy-datum GE it_final-fsavd.
              IF gv_diff > 1.
                PERFORM date_monitor.
              ENDIF.
              it_final-t1 = '@09@'.
            ELSEIF
              sy-datum LT it_final-fsavd.
              it_final-t1 = '@08@'.
            ENDIF.
          WHEN '@08@'.     " If Green
            it_final-t1 = '@08@'.
        ENDCASE.
        MODIFY it_final INDEX gv_index TRANSPORTING t1.
        CLEAR gv_index.
      ENDLOOP.
    ENDFORM.                    " GETDATA
    *&      Form  hierarchy
    Displays the data in ALV hierarchical manner.
    In coding 3 tables are used for roll-up functionality.
    FORM hierarchy .
      DATA: it_final1 LIKE it_final OCCURS 0 WITH HEADER LINE.
      DATA: it_final2 LIKE it_final OCCURS 0 WITH HEADER LINE.
      DATA: it_final3 LIKE it_final OCCURS 0 WITH HEADER LINE.
      DATA: count TYPE i VALUE 1.
      DATA: posid LIKE prps-posid.
      DATA: change,
            date_mask  TYPE c LENGTH 10,
            lv_index2 LIKE sy-tabix.
      DATA: index TYPE sy-tabix.
      DATA: up LIKE prps-posid.
    Deleting duplicate entries from the it_final.*****************
      DELETE ADJACENT DUPLICATES FROM it_final.
      LOOP AT it_final WHERE stufe EQ 2.
        IF posid NE it_final-posid.
          posid = it_final-posid.
        ELSE.
          DELETE it_final INDEX sy-tabix.
        ENDIF.
      ENDLOOP.
      CLEAR posid.
      LOOP AT it_final  WHERE stufe EQ 3
                        AND ltxa1 EQ space.
        IF posid NE it_final-posid.
          posid = it_final-posid.
        ELSE.
          DELETE it_final INDEX sy-tabix.
        ENDIF.
      ENDLOOP.
    Updating a new intrnal table for roll up functionality. ********
      it_final1[] = it_final[].
      CLEAR: lv_index2.
      LOOP AT it_final1 WHERE stufe =  3
                        AND ltxa1 IS NOT INITIAL.
        READ TABLE it_final WITH KEY  stufe = 3
                                      posid = it_final1-posid
                                      post1 = it_final1-post1.
       clear change.
        IF sy-subrc = 0.
          lv_index = sy-tabix.
          IF lv_index2 <> lv_index.
            CLEAR: change.
            lv_index2 = lv_index.
          ENDIF.
          IF it_final1-t1 = '@0A@'.
            it_final-t1 =  '@0A@' .
            MODIFY it_final INDEX lv_index TRANSPORTING t1.
            DELETE it_final1 WHERE posid = it_final-posid.
            CONTINUE.
          ENDIF.
          IF  it_final1-t1 = '@09@'.
            it_final-t1 = '@09@'.
            change = 'Y'.
            MODIFY it_final INDEX lv_index TRANSPORTING t1.
            CONTINUE.
          ENDIF.
          IF it_final1-t1 = '@08@'.
            it_final-t1 =  '@08@' .
            IF change IS INITIAL.
              MODIFY it_final INDEX lv_index TRANSPORTING t1.
            ENDIF.
            CONTINUE.
          ENDIF.
        ENDIF.
      ENDLOOP.
      it_final2[] = it_final[].
      CLEAR: lv_index2.
      LOOP AT it_final2 WHERE stufe = 3
                        AND ltxa1 IS INITIAL.
        READ TABLE e_wbs WITH KEY wbs_element = it_final2-posid.
        IF sy-subrc = 0.
          READ TABLE it_final WITH KEY stufe = 2
                                       posid = e_wbs-up.
          IF sy-subrc = 0.
            CHECK it_final-t1 <> '@0A@'.
            lv_index = sy-tabix.
            IF lv_index2 <> lv_index.
              CLEAR: change.
              lv_index2 = lv_index.
            ENDIF.
            IF   it_final2-t1 = '@0A@'.
              it_final-t1 =  '@0A@' .
              MODIFY it_final INDEX lv_index TRANSPORTING t1.
              CONTINUE.
            ENDIF.
            IF  it_final2-t1 = '@09@'.
              it_final-t1 = '@09@'.
              MODIFY it_final INDEX lv_index TRANSPORTING t1.
              change = 'Y'.
              CONTINUE.
            ENDIF.
            IF it_final2-t1 = '@08@'.
              it_final-t1 =  '@08@' .
              IF change IS INITIAL.
                MODIFY it_final INDEX lv_index TRANSPORTING t1.
              ENDIF.
              CONTINUE.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDLOOP.
      it_final3[] = it_final[].
      CLEAR: lv_index2.
      CLEAR change.
      LOOP AT it_final3 WHERE stufe = 2.
        READ TABLE e_wbs WITH KEY wbs_element = it_final3-posid.
        CHECK sy-subrc = 0.
        READ TABLE it_final WITH KEY stufe = 1
                                     posid = e_wbs-up.
        IF sy-subrc = 0.
          CHECK it_final-t1 <> '@0A@'.
          lv_index = sy-tabix.
          IF lv_index2 <> lv_index.
            CLEAR: change.
            lv_index2 = lv_index.
          ENDIF.
          IF   it_final3-t1 = '@0A@'.
            it_final-t1 =  '@0A@' .
            MODIFY it_final INDEX lv_index TRANSPORTING t1.
            DELETE it_final3.   " WHERE stufe = 2.
            CONTINUE.
          ENDIF.
          IF  it_final3-t1 = '@09@'.
            it_final-t1 = '@09@'.
            MODIFY it_final INDEX lv_index TRANSPORTING t1.
            change = 'Y'.
            CONTINUE.
          ENDIF.
          IF it_final3-t1 = '@08@'.
            it_final-t1 =  '@08@' .
            IF change IS INITIAL.
              MODIFY it_final INDEX lv_index TRANSPORTING t1.
            ENDIF.
            CONTINUE.
          ENDIF.
        ENDIF.
      ENDLOOP.
    Building hierarchy table ***************
      LOOP AT it_final.
        IF it_final-stufe = '0'.
          node_tab-type = 'T'.
          node_tab-name = 'Project'.
          node_tab-tlevel = '01'.
          node_tab-nlength = '8'.
          node_tab-color = '4'.
          node_tab-text = it_final-post1.
          node_tab-tlength ='20'.
          node_tab-tcolor = 5.
          APPEND node_tab.
          it_final_hsk-node = node_tab.
          APPEND it_final_hsk. CLEAR it_final_hsk.
          CLEAR node_tab.
        ELSEIF it_final-stufe = '1'.
          node_tab-type = 'P'.
          node_tab-name = 'Project'.
          node_tab-tlevel = '02'.
          node_tab-nlength = '10'.
          node_tab-color = '1'.
          node_tab-kind2 = 'I'.
          node_tab-text3+0(4) = it_final-t1.
          node_tab-tlength3 = '5'.
          node_tab-tcolor3 = 1.
          node_tab-kind3 = ' '.
          node_tab-text4 = it_final-posid.
          node_tab-tlength4 ='20'.
          node_tab-tcolor4 = 3.
    Code added for plant name
          CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
            EXPORTING
              input  = it_final-posid
            IMPORTING
              output = it_final-posid.
          READ TABLE it_proj WITH KEY pspid = it_final-posid.
          CHECK sy-subrc = 0.
          READ TABLE it_t001w WITH KEY werks = it_proj-werks.
          CHECK sy-subrc = 0.
    Code End.
          node_tab-kind4 = ' '.
          node_tab-text5 = it_t001w-name1.   " Plant Name
          node_tab-tlength5 ='25'.
          node_tab-tcolor5 = 4.
          node_tab-kind5 = ' '.
          node_tab-text6 = it_proj-stort.
          node_tab-tlength6 ='15'.
          node_tab-tcolor6 = 4.
          node_tab-kind6 = ' '.
          node_tab-text7 = it_final-post1.
          node_tab-tlength7 ='25'.
          node_tab-tcolor7 = 4.
          APPEND node_tab.
          it_final_hsk-node = node_tab.
          APPEND it_final_hsk. CLEAR it_final.
          CLEAR node_tab.
        ELSEIF it_final-stufe = '2'.
          node_tab-type = 'P'.
          node_tab-name = 'Gate Id'.
          node_tab-tlevel = '03'.
          node_tab-nlength = '10'.
          node_tab-color = '1'.
          node_tab-kind2 = 'I'.
          node_tab-text3+0(4) = it_final-t1.
          node_tab-tlength3 = '5'.
          node_tab-tcolor3 = 1.
          node_tab-kind3 = ' '.
          node_tab-text4 = it_final-posid.
          node_tab-tlength4 ='20'.
          node_tab-tcolor4 = 3.
          node_tab-kind4 = ' '.
          node_tab-text5 = it_final-post1.
          node_tab-tlength5 ='25'.
          node_tab-tcolor5 = 4.
          APPEND node_tab.
          it_final_hsk-node = node_tab.
          APPEND it_final_hsk.
          CLEAR it_final.
          CLEAR node_tab.
        ELSEIF it_final-stufe = '3' AND it_final-ltxa1 EQ space.
          node_tab-type = 'P'.
          node_tab-name = 'Component'.
          node_tab-tlevel = '04'.
          node_tab-nlength = '11'.
          node_tab-color = '1'.
          node_tab-kind2 = 'I'.
          node_tab-text3+0(4) = it_final-t1.
          node_tab-tlength3 = '5'.
          node_tab-tcolor3 = 1.
          node_tab-kind3 = ' '.
          node_tab-text4 = it_final-posid.
          node_tab-tlength4 ='25'.
          node_tab-tcolor4 = 3.
          node_tab-kind4 = ' '.
          node_tab-text5 = it_final-post1.
          node_tab-tlength5 ='25'.
          node_tab-tcolor5 = 4.
    Code added for start date and end date for component level.
          SELECT SINGLE pstrm petrf INTO (v_pstrm, v_petrf)
               FROM prte WHERE posnr = it_final-pspnr.
          it_final-fsavd = v_pstrm.
          it_final-fssad = v_petrf.
          MODIFY it_final INDEX sy-tabix.
          WRITE it_final-fsavd TO date_mask MM/DD/YYYY.
          node_tab-tpos1 = '0'.
          node_tab-kind5 = ' '.
          node_tab-text6 = date_mask.
          node_tab-tlength6 ='10'.
          node_tab-tcolor6 = 3.
          CLEAR date_mask.
          WRITE it_final-fssad TO date_mask MM/DD/YYYY.
          node_tab-tpos1 = '0'.
          node_tab-kind6 = ' '.
          node_tab-text7 = date_mask.
          node_tab-tlength7 ='10'.
          node_tab-tcolor7 = 3.
          CLEAR date_mask.
          APPEND node_tab.
          it_final_hsk-node = node_tab.
          APPEND it_final_hsk.
          CLEAR it_final_hsk.
          CLEAR node_tab.
        ELSEIF it_final-ltxa1 IS NOT INITIAL.
          node_tab-type = 'P'.
          node_tab-name = 'Element'.
          node_tab-tlevel = '05'.
          node_tab-nlength = '11'.
          node_tab-color = '1'.
          node_tab-kind = 'I'.
          node_tab-text1+0(4) = it_final-t1.
          node_tab-tlength1 = '5'.
          node_tab-tcolor1 = 1.
          node_tab-kind2 = 'I'.
          node_tab-text3+0(4) = it_final-t2.
          node_tab-tlength3 = '5'.
          node_tab-tcolor3 = 1.
          node_tab-kind3 = ' '.
          node_tab-text4 = it_final-ltxa1.
          node_tab-tlength4 ='45'.
          node_tab-tcolor4 = 3.
          node_tab-kind4 = ' '.
          node_tab-text5 = it_final-txt04.
          node_tab-tlength5 ='10'.
          node_tab-tcolor5 = 3.
          WRITE it_final-fsavd TO date_mask .
          node_tab-kind5 = ' '.
          node_tab-text6 = date_mask.
          node_tab-tlength6 ='10'.
          node_tab-tcolor6 = 3.
          CLEAR date_mask.
          WRITE it_final-fssad TO date_mask.
          node_tab-tpos1 = '0'.
          node_tab-kind6 = ' '.
          node_tab-text7 = date_mask.
          node_tab-tlength7 ='10'.
          node_tab-tcolor7 = 3.
          CLEAR date_mask.
          APPEND node_tab.
          it_final_hsk-node = node_tab.
          APPEND it_final_hsk.
          CLEAR it_final_hsk.
          CLEAR node_tab.
        ENDIF.
      ENDLOOP.
      CALL FUNCTION 'RS_TREE_CONSTRUCT'
        TABLES
          nodetab = it_final_hsk.
      CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
        EXPORTING
          callback_program      = i_repid
          callback_user_command = 'USER_COMMAND'
          callback_gui_status   = 'ZLD_TREE_N'
          screen_start_column   = 0
          use_control           = 'L'.
    ENDFORM.                    " hierarchy
    *&      Form  MYGUI
          text
         -->EX_TAB     text
    FORM zld_tree_n.
      SET PF-STATUS 'ZLD_TREE_N'.
    ENDFORM.                    "zld_tree.
    **&      Form  user_command
        Code for REFRESH button
    FORM user_command TABLES   node STRUCTURE seucomm
                               USING ucomm CHANGING exit
                                        list_refresh.
      CASE ucomm.
        WHEN 'REFR' .
          CLEAR it_final.
          REFRESH it_final_hsk.
          REFRESH it_final.
          PERFORM getdata.
          CLEAR it_final.
          PERFORM hierarchy.
        WHEN 'BACK1'.
          LEAVE TO TRANSACTION 'ZCN41_N'.
      ENDCASE.
    ENDFORM.                    "user_command
    include.....
    *&  Include           ZDATA_DECLARE
    *& Tables used for the report
    TABLES: proj, prps, aufk, afvc, jest, tj30t, afvv, prte.
    *& Type Pools used
    TYPE-POOLS: slis, icon, fibs, stree.
    *& Class & Data defination
    CLASS DEFINATION
    CLASS cl_gui_resources DEFINITION LOAD.
    DATA DECLARATION
    DATA: g_lights_name TYPE lvc_cifnm VALUE 'LIGHT',
          pspid LIKE proj-pspid,
          l_pos TYPE i VALUE 1,
          gs_layout TYPE slis_layout_alv,
          color TYPE zcn41_color_n-color.
    DATA : cnt VALUE 'X'.
    DATA : i_repid TYPE sy-repid.
    DATA : t_node TYPE snodetext.
    DATA : node_tab LIKE t_node OCCURS 0 WITH HEADER LINE.
    DATA : gv_diff TYPE p, stort LIKE proj-stort.
    CONSTANTS: st_formname_top_of_page TYPE slis_formname
                                  VALUE 'TOP_OF_PAGE-ALV'.
    *& Internal Table Declarations
    DATA it_proj   TYPE STANDARD TABLE OF proj WITH HEADER LINE.
    DATA it_prps   TYPE STANDARD TABLE OF prps WITH HEADER LINE.
    DATA it_afvc   TYPE STANDARD TABLE OF afvc WITH HEADER LINE.
    DATA it_tj30t  TYPE STANDARD TABLE OF tj30t WITH HEADER LINE.
    DATA it_afvv   TYPE STANDARD TABLE OF afvv WITH HEADER LINE.
    DATA it_jcds   TYPE STANDARD TABLE OF jcds WITH HEADER LINE.
    DATA it_t001w  TYPE STANDARD TABLE OF t001w WITH HEADER LINE.
    DATA: BEGIN OF it_final OCCURS 0,
              stufe  LIKE prps-stufe,
              pspnr  LIKE prps-pspnr,
              t1      TYPE icon-id,
              t2      TYPE icon-id,
              node    LIKE node_tab,
              posid  LIKE prps-posid,
              post1  LIKE prps-post1,
              ltxa1  LIKE afvc-ltxa1,
              txt04(20),
              objnr  LIKE afvc-objnr,
              vornr  LIKE afvc-vornr,
              aufpl  LIKE afvc-aufpl,
              aplzl  LIKE afvc-aplzl,
              fsavd  LIKE afvv-fsavd,  "Ear. Start date
              fssad  LIKE afvv-fssad,  "Ear. finish date
              werks  LIKE t001w-name1,     " added after update
              stort  LIKE proj-stort,     " added after update
         END OF it_final.
    DATA: BEGIN OF it_hsk OCCURS 0,
            t2      TYPE icon-id,
            t1      TYPE icon-id,
            posid  LIKE prps-posid,
            post1  LIKE prps-post1,
            objnr  LIKE afvc-objnr,
            stufe  LIKE prps-stufe,
          END OF it_hsk.
    DATA: BEGIN OF it_new OCCURS 0,
            objnr LIKE afvc-objnr,
            fsavd LIKE afvv-fsavd,
            fssad LIKE afvv-fssad,
            udate LIKE jcds-udate,
            t2(10),
          END OF it_new.
    CLEAR : node_tab, node_tab[].
    DATA  : entval TYPE prps-posid.
    DATA  : ct_fieldcat TYPE  slis_t_fieldcat_alv.
    DATA  : BEGIN OF it_final_hsk OCCURS 0,
              node LIKE node_tab,
            END OF it_final_hsk.
    DATA  : project LIKE bapipr-project_definition,
            e_project_definition LIKE bapi_project_definition_ex.
    DATA  : e_wbs_hierarchie_table TYPE STANDARD TABLE OF bapi_wbs_hierarchie
            WITH HEADER LINE.
    DATA  : e_wbs LIKE e_wbs_hierarchie_table OCCURS 0 WITH HEADER LINE.
    DATA:  v_pstrm LIKE prte-pstrm, v_petrf LIKE prte-petrf,
           v_posnr LIKE prps-pspnr.
    *& Selection Screen of the report
    SELECTION-SCREEN BEGIN OF BLOCK pms WITH FRAME TITLE text-001.
    SELECT-OPTIONS so_posid FOR proj-pspid OBLIGATORY.
    SELECT-OPTIONS so_plant FOR proj-werks.
    SELECT-OPTIONS so_loc FOR proj-stort.
    SELECT-OPTIONS so_date FOR sy-datum.
    SELECTION-SCREEN END OF BLOCK pms.
    *AT SELECTION-SCREEN .
    READ TABLE it_proj WITH KEY pspid = so_posid.
    IF sy-subrc <> 0.
       MESSAGE 'Project Name dose not exist' TYPE 'E.
    ENDIF.
    include..
    *&  Include           ZSUBR
    *&      Form  date_difference
          text
    -->  p1        text
    <--  p2        text
    FORM date_difference .
      CALL FUNCTION 'ZDATETIME_DIFFERENCE_N'
        EXPORTING
          date1                  = it_final-fsavd
          time1                  = '000000'
          date2                  = it_final-fssad
          time2                  = '000000'
       IMPORTING
         datediff               = gv_diff
       EXCEPTIONS
         INVALID_DATETIME       = 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.                    " date_difference
    *&      Form  date_monitor
          text
    -->  p1        text
    <--  p2        text
    T1 for more than 1 days activities
    Subroutines result out the T1 on basis of 80% of activity ( Green )
    or if 20 % reamined. ( Yellow )
    FORM date_monitor .
      DATA: date TYPE string,
            temp_date TYPE string,
            lv_date LIKE afvv-fsavd,
            lv_date_final LIKE afvv-fsavd,
            lv_days LIKE  bseg-dtws1 VALUE 0.
      CONSTANTS: con TYPE f VALUE '0.8'.
    *lv_date = it_new-fsavd.
      IF gv_diff EQ 2.
        lv_days = 1.
        CALL FUNCTION 'ZCALC_DATE_N'
          EXPORTING
            date      = it_final-fsavd
            days      = lv_days
            months    = '00'
            sign      = '+'
            years     = '00'
          IMPORTING
            calc_date = lv_date_final.
        IF sy-datum LE lv_date_final.
          it_final-t1 = '@08@'.
        ELSEIF sy-datum GT lv_date_final AND
               sy-datum EQ it_final-fssad.
          it_final-t1 = '@09@'.
        ENDIF.
      ELSEIF gv_diff > 2.
        lv_days = con * gv_diff.
        CALL FUNCTION 'ZCALC_DATE_N'
          EXPORTING
            date      = lv_date
            days      = lv_days
            months    = '00'
            sign      = '+'
            years     = '00'
          IMPORTING
            calc_date = lv_date_final.
        IF sy-datum LE lv_date_final.
          it_final-t1 = '@08@'.
        ELSEIF sy-datum GT lv_date_final AND
               sy-datum EQ it_final-fssad.
          it_final-t1 = '@09@'.
        ENDIF.
      ENDIF.
    ENDFORM.                    " date_monitor
    this code will give you exact out put as you required from bootom to top functinality....with status....

  • Very urgent...accounting entries for (excise duty)taxes and duties on sales

    Hi Friends,
    I'd appreciate if anyone would help me out the entries for excise duty and cenvat utilisation during sales.
    During billing document:
    Customer -- dr
    To sales a/c --(cr)
    To CENVAT SUSPENSE AC (CR).
    Now could anyone tell me what kind of account is cenvat suspense account i.e., current asset or current liability.
    Like wise can anyone help me out with the entries of excise invoice creation, TR6C Challan, Entries for Fortnightly utilization etc. that is all the entries until that particular sale is completed.
    It would be greatly useful if you could even specify the kind of account is (for each account possibly) i.e, if the account is an expense or current asset or current liability.
    If anyone possesses a document in regards to the same plz do forward the same to my mail id:
    [email protected]
    regards
    kim.

    Hi!!! Kim,
    Entries related to Excise –
    When Availing of Cenvat Credit – (T.Code – J1IEX)
    (GL A/Cs against ETT – GRPO)
    RG23A BED A/C Dr. (BS GL – Current Assets)
    RG23A E.Cess A/C Dr. (BS GL – Current Assets)
    RG23A S&H E.Cess A/C Dr. (BS GL – Current Assets)
    To Cenvat Clearing A/C (BS GL – Current Liabilities)
    RG23C BED A/C Dr. (BS GL – Current Assets)
    RG23C E.Cess A/C Dr. (BS GL – Current Assets)
    RG23C S&H E.Cess A/C Dr. (BS GL – Current Assets)
    To Cenvat Clearing A/C (BS GL – Current Liabilities)
    When Billing Document is created, Corresponding A/C Entry -
    (GL A/Cs from VKOA & Tax Codes)
    Customer A/C Dr. (Recon GL – BS – Current Assets)
    To Sales A/C (P&L GL – Income)
    To BED. Recovered A/C / Cenvat Suspense A/C
    To E.Cess Recovered A/C / Cenvat Suspense A/C
    To S&H E.Cess Recovered A/C / Cenvat Suspense A/C
    When BED / E.Cess / S&H E.Cess Recovered A/Cs are used -
    These are P&L A/Cs & Grouped as Income A/Cs in FS Version.
    When Cenvat Suspense A/C is used  -
    It is BS A/C & Grouped in Current Liabilties in FS Version
    When Creation of Excise Invoice - (GL A/Cs against ETT - DLFC)
    E.D Paid A/C  / Cenvat Suspense A/C Dr.
    To BED. Payable A/C (BS GL – Current Liabilities)
    To E.Cess Payable A/C (BS GL – Current Liabilities)
    To S&H E.cess Payable A/C (BS GL – Current Liabilities)
    When E.D. Paid A/C (P&L GL - Expenditure)
    When Cenvat Suspense A/C (BS GL - Current Liabilities)
    When TR6 Challan & Deposit of Cash into PLA A/C - (JV by FB50 / F-02)
    PLA on Hold A/C Dr. (BS GL – Current Assets)
    To Cheque Issued A/C  (BS GL – Current Assets)
    Updation of TR6 Challan in J1IH – (GL A/Cs against ETT – TR6)
    PLA BED Dr. (BS GL – Current Assets)
    PLA E.Cess Dr. (BS GL – Current Assets)
    PLA S&H E.Cess Dr. (BS GL – Current Assets)
    To PLA on Hold A/C (BS GL – Current Assets)
    When Fortnightly Utilization – (T.Code – J2IUN)
    Utilization from RG23A Registers / RG23 C Registers (GL A/Cs against ETT – UTLZ)
    BED. Payable A/C Dr. (BS GL – Current Liabilities)
    E.Cess Payable A/C Dr. (BS GL – Current Liabilities)
    S&H E.cess Payable A/C Dr. (BS GL – Current Liabilities)
    To RG 23A BED A/C Cr. (BS GL – Current Assets)
    To RG23A E.Cess A/C Cr. (BS GL – Current Assets)
    To RG23A S&H Ecess A/C Cr. (BS GL – Current Assets)
    BED. Payable A/C Dr. (BS GL – Current Liabilities)
    E.Cess Payable A/C Dr. (BS GL – Current Liabilities)
    S&H E.cess Payable A/C Dr. (BS GL – Current Liabilities)
    To RG 23C BED A/C Cr. (BS GL – Current Assets)
    To RG23C E.Cess A/C Cr. (BS GL – Current Assets)
    To RG23C S&H Ecess A/C Cr. (BS GL – Current Assets)
    Hope that this information will serve your purpose.
    Please give necessary marks.
    Regards...
    Ameya D. Mohoni...

  • Report tool for Windows 2003 System

    Hi everyone,
    I've just managed a Windows Server 2003, Oracle 10g running. I want to a tool what collect Disk I/O, Memory, ... statistics by month like ltom, oswatcher. Could you recommend ?
    Best Regards.

    I would use the performance monitor tool. Just go Start -> run -> perfmon and it will open up. you can add whatever stats to it you like and have it logging permanently, etc. We have them running all the time to collect stats so that if we want to go back we can.

Maybe you are looking for

  • Is the Mini-Dvi adapter suppose to click into the back on the Mac mini?

    Is the Mini-Dvi adapter suppose to click into the back on the Mac mini? It does on my mac book but not on the Mac mini. I sort of have to just jam it in there, no nice clicking sound, and it does not feel very secure.

  • Discount in payments

    hi experts well i have cut a invoice of 100 rs now i have 2 give 100% discount in payment as customer is not paying me any thing how i will manage that

  • Tables for Purchase Register

    Hi Gurus, I want prepare a purchase register . please tell me the tables for that. please help me out. regards, Lakshmi

  • SQL for finding identical domains in e-mail addresses

    Hi, guys can anyone help me designing a query which will guve me the names and email addresses of all people who have the identical registered domain names Edited by: user12258774 on Nov 22, 2009 1:35 PM Edited by: user12258774 on Nov 28, 2009 1:09 P

  • Export of views

    Hi all, I know there is the possibility to export and import vews. I can see "Import Custom Views and Presentations" option on the projects phane of the Process Administrator. The problem is that I can't find a way to export them. I need to export an